packages feed

gi-gio 2.0.21 → 2.0.22

raw patch · 360 files changed

+189/−171875 lines, 360 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

ChangeLog.md view
@@ -1,3 +1,7 @@+### 2.0.22+++ List autogenerated modules in .cabal file+ ### 2.0.21  + Do not try to generate bindings for g_content_type_[gs]et_mime_dirs in OSX, as these are not available there. See https://github.com/haskell-gi/haskell-gi/issues/227.
− GI/Gio.hs 
@@ -1,60 +0,0 @@---{- |-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.Gio-    (     module GI.Gio.Callbacks                 ,-    module GI.Gio.Constants                 ,-    module GI.Gio.Enums                     ,-    module GI.Gio.Flags                     ,-    module GI.Gio.Functions                 ,-    module GI.Gio.Interfaces                ,-    module GI.Gio.Objects                   ,-    module GI.Gio.Structs                   ,----    module Data.GI.Base                     ,---    ) where--import GI.Gio.Callbacks-import GI.Gio.Constants-import GI.Gio.Enums-import GI.Gio.Flags-import GI.Gio.Functions-import GI.Gio.Interfaces-import GI.Gio.Objects-import GI.Gio.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-
− GI/Gio/Callbacks.hs 
@@ -1,4285 +0,0 @@---{- |-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.Gio.Callbacks-    ( -- -- * Signals--- ** ActionEntryActivateFieldCallback #signal:ActionEntryActivateFieldCallback#--    ActionEntryActivateFieldCallback        ,-    ActionEntryActivateFieldCallback_WithClosures,-    C_ActionEntryActivateFieldCallback      ,-    drop_closures_ActionEntryActivateFieldCallback,-    dynamic_ActionEntryActivateFieldCallback,-    genClosure_ActionEntryActivateFieldCallback,-    mk_ActionEntryActivateFieldCallback     ,-    noActionEntryActivateFieldCallback      ,-    noActionEntryActivateFieldCallback_WithClosures,-    wrap_ActionEntryActivateFieldCallback   ,----- ** ActionEntryChangeStateFieldCallback #signal:ActionEntryChangeStateFieldCallback#--    ActionEntryChangeStateFieldCallback     ,-    ActionEntryChangeStateFieldCallback_WithClosures,-    C_ActionEntryChangeStateFieldCallback   ,-    drop_closures_ActionEntryChangeStateFieldCallback,-    dynamic_ActionEntryChangeStateFieldCallback,-    genClosure_ActionEntryChangeStateFieldCallback,-    mk_ActionEntryChangeStateFieldCallback  ,-    noActionEntryChangeStateFieldCallback   ,-    noActionEntryChangeStateFieldCallback_WithClosures,-    wrap_ActionEntryChangeStateFieldCallback,----- ** AsyncReadyCallback #signal:AsyncReadyCallback#--    AsyncReadyCallback                      ,-    AsyncReadyCallback_WithClosures         ,-    C_AsyncReadyCallback                    ,-    drop_closures_AsyncReadyCallback        ,-    dynamic_AsyncReadyCallback              ,-    genClosure_AsyncReadyCallback           ,-    mk_AsyncReadyCallback                   ,-    noAsyncReadyCallback                    ,-    noAsyncReadyCallback_WithClosures       ,-    wrap_AsyncReadyCallback                 ,----- ** BusAcquiredCallback #signal:BusAcquiredCallback#--    BusAcquiredCallback                     ,-    BusAcquiredCallback_WithClosures        ,-    C_BusAcquiredCallback                   ,-    drop_closures_BusAcquiredCallback       ,-    dynamic_BusAcquiredCallback             ,-    genClosure_BusAcquiredCallback          ,-    mk_BusAcquiredCallback                  ,-    noBusAcquiredCallback                   ,-    noBusAcquiredCallback_WithClosures      ,-    wrap_BusAcquiredCallback                ,----- ** BusNameAcquiredCallback #signal:BusNameAcquiredCallback#--    BusNameAcquiredCallback                 ,-    BusNameAcquiredCallback_WithClosures    ,-    C_BusNameAcquiredCallback               ,-    drop_closures_BusNameAcquiredCallback   ,-    dynamic_BusNameAcquiredCallback         ,-    genClosure_BusNameAcquiredCallback      ,-    mk_BusNameAcquiredCallback              ,-    noBusNameAcquiredCallback               ,-    noBusNameAcquiredCallback_WithClosures  ,-    wrap_BusNameAcquiredCallback            ,----- ** BusNameAppearedCallback #signal:BusNameAppearedCallback#--    BusNameAppearedCallback                 ,-    BusNameAppearedCallback_WithClosures    ,-    C_BusNameAppearedCallback               ,-    drop_closures_BusNameAppearedCallback   ,-    dynamic_BusNameAppearedCallback         ,-    genClosure_BusNameAppearedCallback      ,-    mk_BusNameAppearedCallback              ,-    noBusNameAppearedCallback               ,-    noBusNameAppearedCallback_WithClosures  ,-    wrap_BusNameAppearedCallback            ,----- ** BusNameLostCallback #signal:BusNameLostCallback#--    BusNameLostCallback                     ,-    BusNameLostCallback_WithClosures        ,-    C_BusNameLostCallback                   ,-    drop_closures_BusNameLostCallback       ,-    dynamic_BusNameLostCallback             ,-    genClosure_BusNameLostCallback          ,-    mk_BusNameLostCallback                  ,-    noBusNameLostCallback                   ,-    noBusNameLostCallback_WithClosures      ,-    wrap_BusNameLostCallback                ,----- ** BusNameVanishedCallback #signal:BusNameVanishedCallback#--    BusNameVanishedCallback                 ,-    BusNameVanishedCallback_WithClosures    ,-    C_BusNameVanishedCallback               ,-    drop_closures_BusNameVanishedCallback   ,-    dynamic_BusNameVanishedCallback         ,-    genClosure_BusNameVanishedCallback      ,-    mk_BusNameVanishedCallback              ,-    noBusNameVanishedCallback               ,-    noBusNameVanishedCallback_WithClosures  ,-    wrap_BusNameVanishedCallback            ,----- ** CancellableSourceFunc #signal:CancellableSourceFunc#--    C_CancellableSourceFunc                 ,-    CancellableSourceFunc                   ,-    CancellableSourceFunc_WithClosures      ,-    drop_closures_CancellableSourceFunc     ,-    dynamic_CancellableSourceFunc           ,-    genClosure_CancellableSourceFunc        ,-    mk_CancellableSourceFunc                ,-    noCancellableSourceFunc                 ,-    noCancellableSourceFunc_WithClosures    ,-    wrap_CancellableSourceFunc              ,----- ** DBusInterfaceGetPropertyFunc #signal:DBusInterfaceGetPropertyFunc#--    C_DBusInterfaceGetPropertyFunc          ,-    DBusInterfaceGetPropertyFunc            ,-    DBusInterfaceGetPropertyFunc_WithClosures,-    drop_closures_DBusInterfaceGetPropertyFunc,-    dynamic_DBusInterfaceGetPropertyFunc    ,-    genClosure_DBusInterfaceGetPropertyFunc ,-    mk_DBusInterfaceGetPropertyFunc         ,-    noDBusInterfaceGetPropertyFunc          ,-    noDBusInterfaceGetPropertyFunc_WithClosures,-    wrap_DBusInterfaceGetPropertyFunc       ,----- ** DBusInterfaceMethodCallFunc #signal:DBusInterfaceMethodCallFunc#--    C_DBusInterfaceMethodCallFunc           ,-    DBusInterfaceMethodCallFunc             ,-    DBusInterfaceMethodCallFunc_WithClosures,-    drop_closures_DBusInterfaceMethodCallFunc,-    dynamic_DBusInterfaceMethodCallFunc     ,-    genClosure_DBusInterfaceMethodCallFunc  ,-    mk_DBusInterfaceMethodCallFunc          ,-    noDBusInterfaceMethodCallFunc           ,-    noDBusInterfaceMethodCallFunc_WithClosures,-    wrap_DBusInterfaceMethodCallFunc        ,----- ** DBusInterfaceSetPropertyFunc #signal:DBusInterfaceSetPropertyFunc#--    C_DBusInterfaceSetPropertyFunc          ,-    DBusInterfaceSetPropertyFunc            ,-    DBusInterfaceSetPropertyFunc_WithClosures,-    drop_closures_DBusInterfaceSetPropertyFunc,-    dynamic_DBusInterfaceSetPropertyFunc    ,-    genClosure_DBusInterfaceSetPropertyFunc ,-    mk_DBusInterfaceSetPropertyFunc         ,-    noDBusInterfaceSetPropertyFunc          ,-    noDBusInterfaceSetPropertyFunc_WithClosures,-    wrap_DBusInterfaceSetPropertyFunc       ,----- ** DBusMessageFilterFunction #signal:DBusMessageFilterFunction#--    C_DBusMessageFilterFunction             ,-    DBusMessageFilterFunction               ,-    DBusMessageFilterFunction_WithClosures  ,-    drop_closures_DBusMessageFilterFunction ,-    dynamic_DBusMessageFilterFunction       ,-    genClosure_DBusMessageFilterFunction    ,-    mk_DBusMessageFilterFunction            ,-    noDBusMessageFilterFunction             ,-    noDBusMessageFilterFunction_WithClosures,-    wrap_DBusMessageFilterFunction          ,----- ** DBusProxyTypeFunc #signal:DBusProxyTypeFunc#--    C_DBusProxyTypeFunc                     ,-    DBusProxyTypeFunc                       ,-    DBusProxyTypeFunc_WithClosures          ,-    drop_closures_DBusProxyTypeFunc         ,-    dynamic_DBusProxyTypeFunc               ,-    genClosure_DBusProxyTypeFunc            ,-    mk_DBusProxyTypeFunc                    ,-    noDBusProxyTypeFunc                     ,-    noDBusProxyTypeFunc_WithClosures        ,-    wrap_DBusProxyTypeFunc                  ,----- ** DBusSignalCallback #signal:DBusSignalCallback#--    C_DBusSignalCallback                    ,-    DBusSignalCallback                      ,-    DBusSignalCallback_WithClosures         ,-    drop_closures_DBusSignalCallback        ,-    dynamic_DBusSignalCallback              ,-    genClosure_DBusSignalCallback           ,-    mk_DBusSignalCallback                   ,-    noDBusSignalCallback                    ,-    noDBusSignalCallback_WithClosures       ,-    wrap_DBusSignalCallback                 ,----- ** DBusSubtreeDispatchFunc #signal:DBusSubtreeDispatchFunc#--    C_DBusSubtreeDispatchFunc               ,-    DBusSubtreeDispatchFunc                 ,-    DBusSubtreeDispatchFunc_WithClosures    ,-    drop_closures_DBusSubtreeDispatchFunc   ,-    dynamic_DBusSubtreeDispatchFunc         ,-    genClosure_DBusSubtreeDispatchFunc      ,-    mk_DBusSubtreeDispatchFunc              ,-    noDBusSubtreeDispatchFunc               ,-    noDBusSubtreeDispatchFunc_WithClosures  ,-    wrap_DBusSubtreeDispatchFunc            ,----- ** DBusSubtreeIntrospectFunc #signal:DBusSubtreeIntrospectFunc#--    C_DBusSubtreeIntrospectFunc             ,-    DBusSubtreeIntrospectFunc               ,-    DBusSubtreeIntrospectFunc_WithClosures  ,-    drop_closures_DBusSubtreeIntrospectFunc ,-    dynamic_DBusSubtreeIntrospectFunc       ,-    genClosure_DBusSubtreeIntrospectFunc    ,-    mk_DBusSubtreeIntrospectFunc            ,-    noDBusSubtreeIntrospectFunc             ,-    noDBusSubtreeIntrospectFunc_WithClosures,-    wrap_DBusSubtreeIntrospectFunc          ,----- ** DatagramBasedSourceFunc #signal:DatagramBasedSourceFunc#--    C_DatagramBasedSourceFunc               ,-    DatagramBasedSourceFunc                 ,-    DatagramBasedSourceFunc_WithClosures    ,-    drop_closures_DatagramBasedSourceFunc   ,-    dynamic_DatagramBasedSourceFunc         ,-    genClosure_DatagramBasedSourceFunc      ,-    mk_DatagramBasedSourceFunc              ,-    noDatagramBasedSourceFunc               ,-    noDatagramBasedSourceFunc_WithClosures  ,-    wrap_DatagramBasedSourceFunc            ,----- ** DesktopAppLaunchCallback #signal:DesktopAppLaunchCallback#--    C_DesktopAppLaunchCallback              ,-    DesktopAppLaunchCallback                ,-    DesktopAppLaunchCallback_WithClosures   ,-    drop_closures_DesktopAppLaunchCallback  ,-    dynamic_DesktopAppLaunchCallback        ,-    genClosure_DesktopAppLaunchCallback     ,-    mk_DesktopAppLaunchCallback             ,-    noDesktopAppLaunchCallback              ,-    noDesktopAppLaunchCallback_WithClosures ,-    wrap_DesktopAppLaunchCallback           ,----- ** FileMeasureProgressCallback #signal:FileMeasureProgressCallback#--    C_FileMeasureProgressCallback           ,-    FileMeasureProgressCallback             ,-    FileMeasureProgressCallback_WithClosures,-    drop_closures_FileMeasureProgressCallback,-    dynamic_FileMeasureProgressCallback     ,-    genClosure_FileMeasureProgressCallback  ,-    mk_FileMeasureProgressCallback          ,-    noFileMeasureProgressCallback           ,-    noFileMeasureProgressCallback_WithClosures,-    wrap_FileMeasureProgressCallback        ,----- ** FileProgressCallback #signal:FileProgressCallback#--    C_FileProgressCallback                  ,-    FileProgressCallback                    ,-    FileProgressCallback_WithClosures       ,-    drop_closures_FileProgressCallback      ,-    dynamic_FileProgressCallback            ,-    genClosure_FileProgressCallback         ,-    mk_FileProgressCallback                 ,-    noFileProgressCallback                  ,-    noFileProgressCallback_WithClosures     ,-    wrap_FileProgressCallback               ,----- ** FileReadMoreCallback #signal:FileReadMoreCallback#--    C_FileReadMoreCallback                  ,-    FileReadMoreCallback                    ,-    FileReadMoreCallback_WithClosures       ,-    drop_closures_FileReadMoreCallback      ,-    dynamic_FileReadMoreCallback            ,-    genClosure_FileReadMoreCallback         ,-    mk_FileReadMoreCallback                 ,-    noFileReadMoreCallback                  ,-    noFileReadMoreCallback_WithClosures     ,-    wrap_FileReadMoreCallback               ,----- ** IOSchedulerJobFunc #signal:IOSchedulerJobFunc#--    C_IOSchedulerJobFunc                    ,-    IOSchedulerJobFunc                      ,-    IOSchedulerJobFunc_WithClosures         ,-    drop_closures_IOSchedulerJobFunc        ,-    dynamic_IOSchedulerJobFunc              ,-    genClosure_IOSchedulerJobFunc           ,-    mk_IOSchedulerJobFunc                   ,-    noIOSchedulerJobFunc                    ,-    noIOSchedulerJobFunc_WithClosures       ,-    wrap_IOSchedulerJobFunc                 ,----- ** PollableSourceFunc #signal:PollableSourceFunc#--    C_PollableSourceFunc                    ,-    PollableSourceFunc                      ,-    PollableSourceFunc_WithClosures         ,-    drop_closures_PollableSourceFunc        ,-    dynamic_PollableSourceFunc              ,-    genClosure_PollableSourceFunc           ,-    mk_PollableSourceFunc                   ,-    noPollableSourceFunc                    ,-    noPollableSourceFunc_WithClosures       ,-    wrap_PollableSourceFunc                 ,----- ** ReallocFunc #signal:ReallocFunc#--    C_ReallocFunc                           ,-    ReallocFunc                             ,-    dynamic_ReallocFunc                     ,-    genClosure_ReallocFunc                  ,-    mk_ReallocFunc                          ,-    noReallocFunc                           ,-    wrap_ReallocFunc                        ,----- ** SettingsBindGetMapping #signal:SettingsBindGetMapping#--    C_SettingsBindGetMapping                ,-    SettingsBindGetMapping                  ,-    SettingsBindGetMapping_WithClosures     ,-    drop_closures_SettingsBindGetMapping    ,-    dynamic_SettingsBindGetMapping          ,-    genClosure_SettingsBindGetMapping       ,-    mk_SettingsBindGetMapping               ,-    noSettingsBindGetMapping                ,-    noSettingsBindGetMapping_WithClosures   ,-    wrap_SettingsBindGetMapping             ,----- ** SettingsBindSetMapping #signal:SettingsBindSetMapping#--    C_SettingsBindSetMapping                ,-    SettingsBindSetMapping                  ,-    SettingsBindSetMapping_WithClosures     ,-    drop_closures_SettingsBindSetMapping    ,-    dynamic_SettingsBindSetMapping          ,-    genClosure_SettingsBindSetMapping       ,-    mk_SettingsBindSetMapping               ,-    noSettingsBindSetMapping                ,-    noSettingsBindSetMapping_WithClosures   ,-    wrap_SettingsBindSetMapping             ,----- ** SettingsGetMapping #signal:SettingsGetMapping#--    C_SettingsGetMapping                    ,-    SettingsGetMapping                      ,-    SettingsGetMapping_WithClosures         ,-    drop_closures_SettingsGetMapping        ,-    dynamic_SettingsGetMapping              ,-    genClosure_SettingsGetMapping           ,-    mk_SettingsGetMapping                   ,-    noSettingsGetMapping                    ,-    noSettingsGetMapping_WithClosures       ,-    wrap_SettingsGetMapping                 ,----- ** SimpleAsyncThreadFunc #signal:SimpleAsyncThreadFunc#--    C_SimpleAsyncThreadFunc                 ,-    SimpleAsyncThreadFunc                   ,-    dynamic_SimpleAsyncThreadFunc           ,-    genClosure_SimpleAsyncThreadFunc        ,-    mk_SimpleAsyncThreadFunc                ,-    noSimpleAsyncThreadFunc                 ,-    wrap_SimpleAsyncThreadFunc              ,----- ** SocketSourceFunc #signal:SocketSourceFunc#--    C_SocketSourceFunc                      ,-    SocketSourceFunc                        ,-    SocketSourceFunc_WithClosures           ,-    drop_closures_SocketSourceFunc          ,-    dynamic_SocketSourceFunc                ,-    genClosure_SocketSourceFunc             ,-    mk_SocketSourceFunc                     ,-    noSocketSourceFunc                      ,-    noSocketSourceFunc_WithClosures         ,-    wrap_SocketSourceFunc                   ,----- ** TaskThreadFunc #signal:TaskThreadFunc#--    C_TaskThreadFunc                        ,-    TaskThreadFunc                          ,-    dynamic_TaskThreadFunc                  ,-    genClosure_TaskThreadFunc               ,-    mk_TaskThreadFunc                       ,-    noTaskThreadFunc                        ,-    wrap_TaskThreadFunc                     ,----- ** VfsFileLookupFunc #signal:VfsFileLookupFunc#--    C_VfsFileLookupFunc                     ,-    VfsFileLookupFunc                       ,-    VfsFileLookupFunc_WithClosures          ,-    drop_closures_VfsFileLookupFunc         ,-    dynamic_VfsFileLookupFunc               ,-    genClosure_VfsFileLookupFunc            ,-    mk_VfsFileLookupFunc                    ,-    noVfsFileLookupFunc                     ,-    noVfsFileLookupFunc_WithClosures        ,-    wrap_VfsFileLookupFunc                  ,-----    ) 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.Flags as GLib.Flags-import qualified GI.GLib.Structs.VariantType as GLib.VariantType-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DatagramBased as Gio.DatagramBased-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMessage as Gio.DBusMessage-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMethodInvocation as Gio.DBusMethodInvocation-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusObjectManagerClient as Gio.DBusObjectManagerClient-import {-# SOURCE #-} qualified GI.Gio.Objects.DesktopAppInfo as Gio.DesktopAppInfo-import {-# SOURCE #-} qualified GI.Gio.Objects.SimpleAction as Gio.SimpleAction-import {-# SOURCE #-} qualified GI.Gio.Objects.SimpleAsyncResult as Gio.SimpleAsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Socket as Gio.Socket-import {-# SOURCE #-} qualified GI.Gio.Objects.Task as Gio.Task-import {-# SOURCE #-} qualified GI.Gio.Objects.Vfs as Gio.Vfs-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceVTable as Gio.DBusInterfaceVTable-import {-# SOURCE #-} qualified GI.Gio.Structs.IOSchedulerJob as Gio.IOSchedulerJob---- callback VfsFileLookupFunc---          -> Callable {returnType = Just (TInterface (Name {namespace = "Gio", name = "File"})), returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "a #GFile for @identifier.", sinceVersion = Nothing}, args = [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVfs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the identifier to lookup a #GFile for. This can either\n    be an URI or a parse name as returned by g_file_get_parse_name()", 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 passed to the function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "This function type is used by g_vfs_register_uri_scheme() to make it\npossible for a client to associate an URI scheme to a different #GFile\nimplementation.\n\nThe client should return a reference to the new file that has been\ncreated for @uri, or %NULL to continue with the default implementation.", sinceVersion = Just "2.50"}}--- | Type for the callback on the (unwrapped) C side.-type C_VfsFileLookupFunc =-    Ptr Gio.Vfs.Vfs ->-    CString ->-    Ptr () ->-    IO (Ptr Gio.File.File)---- Args : [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVfs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the identifier to lookup a #GFile for. This can either\n    be an URI or a parse name as returned by g_file_get_parse_name()", 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 passed to the function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_VfsFileLookupFunc :: FunPtr C_VfsFileLookupFunc -> C_VfsFileLookupFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_VfsFileLookupFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Vfs.IsVfs a) =>-    FunPtr C_VfsFileLookupFunc-    -> a-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs' -}-    -> T.Text-    {- ^ /@identifier@/: the identifier to lookup a 'GI.Gio.Interfaces.File.File' for. This can either-    be an URI or a parse name as returned by 'GI.Gio.Interfaces.File.fileGetParseName' -}-    -> Ptr ()-    {- ^ /@userData@/: user data passed to the function -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' for /@identifier@/. -}-dynamic_VfsFileLookupFunc __funPtr vfs identifier userData = liftIO $ do-    vfs' <- unsafeManagedPtrCastPtr vfs-    identifier' <- textToCString identifier-    result <- (__dynamic_C_VfsFileLookupFunc __funPtr) vfs' identifier' userData-    checkUnexpectedReturnNULL "vfsFileLookupFunc" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr vfs-    freeMem identifier'-    return result'---- | Generate a function pointer callable from C code, from a `C_VfsFileLookupFunc`.-foreign import ccall "wrapper"-    mk_VfsFileLookupFunc :: C_VfsFileLookupFunc -> IO (FunPtr C_VfsFileLookupFunc)--{- |-This function type is used by 'GI.Gio.Objects.Vfs.vfsRegisterUriScheme' to make it-possible for a client to associate an URI scheme to a different 'GI.Gio.Interfaces.File.File'-implementation.--The client should return a reference to the new file that has been-created for /@uri@/, or 'Nothing' to continue with the default implementation.--/Since: 2.50/--}-type VfsFileLookupFunc =-    Gio.Vfs.Vfs-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs' -}-    -> T.Text-    {- ^ /@identifier@/: the identifier to lookup a 'GI.Gio.Interfaces.File.File' for. This can either-    be an URI or a parse name as returned by 'GI.Gio.Interfaces.File.fileGetParseName' -}-    -> IO Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' for /@identifier@/. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `VfsFileLookupFunc`@.-noVfsFileLookupFunc :: Maybe VfsFileLookupFunc-noVfsFileLookupFunc = Nothing--{- |-This function type is used by 'GI.Gio.Objects.Vfs.vfsRegisterUriScheme' to make it-possible for a client to associate an URI scheme to a different 'GI.Gio.Interfaces.File.File'-implementation.--The client should return a reference to the new file that has been-created for /@uri@/, or 'Nothing' to continue with the default implementation.--/Since: 2.50/--}-type VfsFileLookupFunc_WithClosures =-    Gio.Vfs.Vfs-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs' -}-    -> T.Text-    {- ^ /@identifier@/: the identifier to lookup a 'GI.Gio.Interfaces.File.File' for. This can either-    be an URI or a parse name as returned by 'GI.Gio.Interfaces.File.fileGetParseName' -}-    -> Ptr ()-    {- ^ /@userData@/: user data passed to the function -}-    -> IO Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' for /@identifier@/. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `VfsFileLookupFunc_WithClosures`@.-noVfsFileLookupFunc_WithClosures :: Maybe VfsFileLookupFunc_WithClosures-noVfsFileLookupFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_VfsFileLookupFunc :: VfsFileLookupFunc -> VfsFileLookupFunc_WithClosures-drop_closures_VfsFileLookupFunc _f vfs identifier _ = _f vfs identifier---- | Wrap the callback into a `GClosure`.-genClosure_VfsFileLookupFunc :: MonadIO m => VfsFileLookupFunc -> m (GClosure C_VfsFileLookupFunc)-genClosure_VfsFileLookupFunc cb = liftIO $ do-    let cb' = drop_closures_VfsFileLookupFunc cb-    let cb'' = wrap_VfsFileLookupFunc Nothing cb'-    mk_VfsFileLookupFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `VfsFileLookupFunc` into a `C_VfsFileLookupFunc`.-wrap_VfsFileLookupFunc ::-    Maybe (Ptr (FunPtr C_VfsFileLookupFunc)) ->-    VfsFileLookupFunc_WithClosures ->-    C_VfsFileLookupFunc-wrap_VfsFileLookupFunc funptrptr _cb vfs identifier userData = do-    vfs' <- (newObject Gio.Vfs.Vfs) vfs-    identifier' <- cstringToText identifier-    result <- _cb  vfs' identifier' userData-    maybeReleaseFunPtr funptrptr-    result' <- B.ManagedPtr.disownObject result-    return result'----- callback TaskThreadFunc---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "@task's source object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "task_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "@task's task data", 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 "@task's #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The prototype for a task function to be run in a thread via\ng_task_run_in_thread() or g_task_run_in_thread_sync().\n\nIf the return-on-cancel flag is set on @task, and @cancellable gets\ncancelled, then the #GTask will be completed immediately (as though\ng_task_return_error_if_cancelled() had been called), without\nwaiting for the task function to complete. However, the task\nfunction will continue running in its thread in the background. The\nfunction therefore needs to be careful about how it uses\nexternally-visible state in this case. See\ng_task_set_return_on_cancel() for more details.\n\nOther than in that case, @task will be completed when the\n#GTaskThreadFunc returns, not when it calls a\n`g_task_return_` function.", sinceVersion = Just "2.36"}}--- | Type for the callback on the (unwrapped) C side.-type C_TaskThreadFunc =-    Ptr Gio.Task.Task ->-    Ptr GObject.Object.Object ->-    Ptr () ->-    Ptr Gio.Cancellable.Cancellable ->-    IO ()---- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "@task's source object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "task_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "@task's task data", 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 "@task's #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_TaskThreadFunc :: FunPtr C_TaskThreadFunc -> C_TaskThreadFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_TaskThreadFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Task.IsTask a, GObject.Object.IsObject b, Gio.Cancellable.IsCancellable c) =>-    FunPtr C_TaskThreadFunc-    -> a-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> b-    {- ^ /@sourceObject@/: /@task@/\'s source object -}-    -> Ptr ()-    {- ^ /@taskData@/: /@task@/\'s task data -}-    -> Maybe (c)-    {- ^ /@cancellable@/: /@task@/\'s 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-dynamic_TaskThreadFunc __funPtr task sourceObject taskData cancellable = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    sourceObject' <- unsafeManagedPtrCastPtr sourceObject-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    (__dynamic_C_TaskThreadFunc __funPtr) task' sourceObject' taskData maybeCancellable-    touchManagedPtr task-    touchManagedPtr sourceObject-    whenJust cancellable touchManagedPtr-    return ()---- | Generate a function pointer callable from C code, from a `C_TaskThreadFunc`.-foreign import ccall "wrapper"-    mk_TaskThreadFunc :: C_TaskThreadFunc -> IO (FunPtr C_TaskThreadFunc)--{- |-The prototype for a task function to be run in a thread via-@/g_task_run_in_thread()/@ or @/g_task_run_in_thread_sync()/@.--If the return-on-cancel flag is set on /@task@/, and /@cancellable@/ gets-cancelled, then the 'GI.Gio.Objects.Task.Task' will be completed immediately (as though-'GI.Gio.Objects.Task.taskReturnErrorIfCancelled' had been called), without-waiting for the task function to complete. However, the task-function will continue running in its thread in the background. The-function therefore needs to be careful about how it uses-externally-visible state in this case. See-'GI.Gio.Objects.Task.taskSetReturnOnCancel' for more details.--Other than in that case, /@task@/ will be completed when the-'GI.Gio.Callbacks.TaskThreadFunc' returns, not when it calls a-@g_task_return_@ function.--/Since: 2.36/--}-type TaskThreadFunc =-    Gio.Task.Task-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> GObject.Object.Object-    {- ^ /@sourceObject@/: /@task@/\'s source object -}-    -> Ptr ()-    {- ^ /@taskData@/: /@task@/\'s task data -}-    -> Maybe Gio.Cancellable.Cancellable-    {- ^ /@cancellable@/: /@task@/\'s 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `TaskThreadFunc`@.-noTaskThreadFunc :: Maybe TaskThreadFunc-noTaskThreadFunc = Nothing---- | Wrap the callback into a `GClosure`.-genClosure_TaskThreadFunc :: MonadIO m => TaskThreadFunc -> m (GClosure C_TaskThreadFunc)-genClosure_TaskThreadFunc cb = liftIO $ do-    let cb' = wrap_TaskThreadFunc Nothing cb-    mk_TaskThreadFunc cb' >>= B.GClosure.newGClosure----- | Wrap a `TaskThreadFunc` into a `C_TaskThreadFunc`.-wrap_TaskThreadFunc ::-    Maybe (Ptr (FunPtr C_TaskThreadFunc)) ->-    TaskThreadFunc ->-    C_TaskThreadFunc-wrap_TaskThreadFunc funptrptr _cb task sourceObject taskData cancellable = do-    task' <- (newObject Gio.Task.Task) task-    sourceObject' <- (newObject GObject.Object.Object) sourceObject-    maybeCancellable <--        if cancellable == nullPtr-        then return Nothing-        else do-            cancellable' <- (newObject Gio.Cancellable.Cancellable) cancellable-            return $ Just cancellable'-    _cb  task' sourceObject' taskData maybeCancellable-    maybeReleaseFunPtr funptrptr----- callback SocketSourceFunc---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "it should return %FALSE if the source should be removed.", sinceVersion = Nothing}, args = [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current condition at the source fired.", 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 "data passed in by the user.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "This is the function type of the callback used for the #GSource\nreturned by g_socket_create_source().", sinceVersion = Just "2.22"}}--- | Type for the callback on the (unwrapped) C side.-type C_SocketSourceFunc =-    Ptr Gio.Socket.Socket ->-    CUInt ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current condition at the source fired.", 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 "data passed in by the user.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_SocketSourceFunc :: FunPtr C_SocketSourceFunc -> C_SocketSourceFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_SocketSourceFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Socket.IsSocket a) =>-    FunPtr C_SocketSourceFunc-    -> a-    {- ^ /@socket@/: the 'GI.Gio.Objects.Socket.Socket' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: the current condition at the source fired. -}-    -> Ptr ()-    {- ^ /@userData@/: data passed in by the user. -}-    -> m Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}-dynamic_SocketSourceFunc __funPtr socket condition userData = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let condition' = gflagsToWord condition-    result <- (__dynamic_C_SocketSourceFunc __funPtr) socket' condition' userData-    let result' = (/= 0) result-    touchManagedPtr socket-    return result'---- | Generate a function pointer callable from C code, from a `C_SocketSourceFunc`.-foreign import ccall "wrapper"-    mk_SocketSourceFunc :: C_SocketSourceFunc -> IO (FunPtr C_SocketSourceFunc)--{- |-This is the function type of the callback used for the 'GI.GLib.Structs.Source.Source'-returned by @/g_socket_create_source()/@.--/Since: 2.22/--}-type SocketSourceFunc =-    Gio.Socket.Socket-    {- ^ /@socket@/: the 'GI.Gio.Objects.Socket.Socket' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: the current condition at the source fired. -}-    -> IO Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketSourceFunc`@.-noSocketSourceFunc :: Maybe SocketSourceFunc-noSocketSourceFunc = Nothing--{- |-This is the function type of the callback used for the 'GI.GLib.Structs.Source.Source'-returned by @/g_socket_create_source()/@.--/Since: 2.22/--}-type SocketSourceFunc_WithClosures =-    Gio.Socket.Socket-    {- ^ /@socket@/: the 'GI.Gio.Objects.Socket.Socket' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: the current condition at the source fired. -}-    -> Ptr ()-    {- ^ /@userData@/: data passed in by the user. -}-    -> IO Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketSourceFunc_WithClosures`@.-noSocketSourceFunc_WithClosures :: Maybe SocketSourceFunc_WithClosures-noSocketSourceFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_SocketSourceFunc :: SocketSourceFunc -> SocketSourceFunc_WithClosures-drop_closures_SocketSourceFunc _f socket condition _ = _f socket condition---- | Wrap the callback into a `GClosure`.-genClosure_SocketSourceFunc :: MonadIO m => SocketSourceFunc -> m (GClosure C_SocketSourceFunc)-genClosure_SocketSourceFunc cb = liftIO $ do-    let cb' = drop_closures_SocketSourceFunc cb-    let cb'' = wrap_SocketSourceFunc Nothing cb'-    mk_SocketSourceFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `SocketSourceFunc` into a `C_SocketSourceFunc`.-wrap_SocketSourceFunc ::-    Maybe (Ptr (FunPtr C_SocketSourceFunc)) ->-    SocketSourceFunc_WithClosures ->-    C_SocketSourceFunc-wrap_SocketSourceFunc funptrptr _cb socket condition userData = do-    socket' <- (newObject Gio.Socket.Socket) socket-    let condition' = wordToGFlags condition-    result <- _cb  socket' condition' userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback SimpleAsyncThreadFunc---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Simple thread function that runs an asynchronous operation and\nchecks for cancellation.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_SimpleAsyncThreadFunc =-    Ptr Gio.SimpleAsyncResult.SimpleAsyncResult ->-    Ptr GObject.Object.Object ->-    Ptr Gio.Cancellable.Cancellable ->-    IO ()---- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_SimpleAsyncThreadFunc :: FunPtr C_SimpleAsyncThreadFunc -> C_SimpleAsyncThreadFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_SimpleAsyncThreadFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.SimpleAsyncResult.IsSimpleAsyncResult a, GObject.Object.IsObject b, Gio.Cancellable.IsCancellable c) =>-    FunPtr C_SimpleAsyncThreadFunc-    -> a-    {- ^ /@res@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> b-    {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object'. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-dynamic_SimpleAsyncThreadFunc __funPtr res object cancellable = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    object' <- unsafeManagedPtrCastPtr object-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    (__dynamic_C_SimpleAsyncThreadFunc __funPtr) res' object' maybeCancellable-    touchManagedPtr res-    touchManagedPtr object-    whenJust cancellable touchManagedPtr-    return ()---- | Generate a function pointer callable from C code, from a `C_SimpleAsyncThreadFunc`.-foreign import ccall "wrapper"-    mk_SimpleAsyncThreadFunc :: C_SimpleAsyncThreadFunc -> IO (FunPtr C_SimpleAsyncThreadFunc)--{- |-Simple thread function that runs an asynchronous operation and-checks for cancellation.--}-type SimpleAsyncThreadFunc =-    Gio.SimpleAsyncResult.SimpleAsyncResult-    {- ^ /@res@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> GObject.Object.Object-    {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object'. -}-    -> Maybe Gio.Cancellable.Cancellable-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SimpleAsyncThreadFunc`@.-noSimpleAsyncThreadFunc :: Maybe SimpleAsyncThreadFunc-noSimpleAsyncThreadFunc = Nothing---- | Wrap the callback into a `GClosure`.-genClosure_SimpleAsyncThreadFunc :: MonadIO m => SimpleAsyncThreadFunc -> m (GClosure C_SimpleAsyncThreadFunc)-genClosure_SimpleAsyncThreadFunc cb = liftIO $ do-    let cb' = wrap_SimpleAsyncThreadFunc Nothing cb-    mk_SimpleAsyncThreadFunc cb' >>= B.GClosure.newGClosure----- | Wrap a `SimpleAsyncThreadFunc` into a `C_SimpleAsyncThreadFunc`.-wrap_SimpleAsyncThreadFunc ::-    Maybe (Ptr (FunPtr C_SimpleAsyncThreadFunc)) ->-    SimpleAsyncThreadFunc ->-    C_SimpleAsyncThreadFunc-wrap_SimpleAsyncThreadFunc funptrptr _cb res object cancellable = do-    res' <- (newObject Gio.SimpleAsyncResult.SimpleAsyncResult) res-    object' <- (newObject GObject.Object.Object) object-    maybeCancellable <--        if cancellable == nullPtr-        then return Nothing-        else do-            cancellable' <- (newObject Gio.Cancellable.Cancellable) cancellable-            return $ Just cancellable'-    _cb  res' object' maybeCancellable-    maybeReleaseFunPtr funptrptr----- callback SettingsGetMapping---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the conversion succeeded, %FALSE in case of an error", sinceVersion = Nothing}, args = [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GVariant to map, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the result of the mapping", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user data that was passed to\ng_settings_get_mapped()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the function that is used to convert from a value stored\nin a #GSettings to a value that is useful to the application.\n\nIf the value is successfully mapped, the result should be stored at\n@result and %TRUE returned.  If mapping fails (for example, if @value\nis not in the right format) then %FALSE should be returned.\n\nIf @value is %NULL then it means that the mapping function is being\ngiven a \"last chance\" to successfully return a valid value.  %TRUE\nmust be returned in this case.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_SettingsGetMapping =-    Ptr GVariant ->-    Ptr (Ptr ()) ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GVariant to map, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the result of the mapping", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user data that was passed to\ng_settings_get_mapped()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_SettingsGetMapping :: FunPtr C_SettingsGetMapping -> C_SettingsGetMapping---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_SettingsGetMapping ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_SettingsGetMapping-    -> GVariant-    {- ^ /@value@/: the 'GVariant' to map, or 'Nothing' -}-    -> Ptr ()-    {- ^ /@userData@/: the user data that was passed to-'GI.Gio.Objects.Settings.settingsGetMapped' -}-    -> m ((Bool, Ptr ()))-    {- ^ __Returns:__ 'True' if the conversion succeeded, 'False' in case of an error -}-dynamic_SettingsGetMapping __funPtr value userData = liftIO $ do-    value' <- unsafeManagedPtrGetPtr value-    result_ <- allocMem :: IO (Ptr (Ptr ()))-    result <- (__dynamic_C_SettingsGetMapping __funPtr) value' result_ userData-    let result' = (/= 0) result-    result_' <- peek result_-    touchManagedPtr value-    freeMem result_-    return (result', result_')---- | Generate a function pointer callable from C code, from a `C_SettingsGetMapping`.-foreign import ccall "wrapper"-    mk_SettingsGetMapping :: C_SettingsGetMapping -> IO (FunPtr C_SettingsGetMapping)--{- |-The type of the function that is used to convert from a value stored-in a 'GI.Gio.Objects.Settings.Settings' to a value that is useful to the application.--If the value is successfully mapped, the result should be stored at-/@result@/ and 'True' returned.  If mapping fails (for example, if /@value@/-is not in the right format) then 'False' should be returned.--If /@value@/ is 'Nothing' then it means that the mapping function is being-given a \"last chance\" to successfully return a valid value.  'True'-must be returned in this case.--}-type SettingsGetMapping =-    GVariant-    {- ^ /@value@/: the 'GVariant' to map, or 'Nothing' -}-    -> IO ((Bool, Ptr ()))-    {- ^ __Returns:__ 'True' if the conversion succeeded, 'False' in case of an error -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsGetMapping`@.-noSettingsGetMapping :: Maybe SettingsGetMapping-noSettingsGetMapping = Nothing--{- |-The type of the function that is used to convert from a value stored-in a 'GI.Gio.Objects.Settings.Settings' to a value that is useful to the application.--If the value is successfully mapped, the result should be stored at-/@result@/ and 'True' returned.  If mapping fails (for example, if /@value@/-is not in the right format) then 'False' should be returned.--If /@value@/ is 'Nothing' then it means that the mapping function is being-given a \"last chance\" to successfully return a valid value.  'True'-must be returned in this case.--}-type SettingsGetMapping_WithClosures =-    GVariant-    {- ^ /@value@/: the 'GVariant' to map, or 'Nothing' -}-    -> Ptr ()-    {- ^ /@userData@/: the user data that was passed to-'GI.Gio.Objects.Settings.settingsGetMapped' -}-    -> IO ((Bool, Ptr ()))-    {- ^ __Returns:__ 'True' if the conversion succeeded, 'False' in case of an error -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsGetMapping_WithClosures`@.-noSettingsGetMapping_WithClosures :: Maybe SettingsGetMapping_WithClosures-noSettingsGetMapping_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_SettingsGetMapping :: SettingsGetMapping -> SettingsGetMapping_WithClosures-drop_closures_SettingsGetMapping _f value _ = _f value---- | Wrap the callback into a `GClosure`.-genClosure_SettingsGetMapping :: MonadIO m => SettingsGetMapping -> m (GClosure C_SettingsGetMapping)-genClosure_SettingsGetMapping cb = liftIO $ do-    let cb' = drop_closures_SettingsGetMapping cb-    let cb'' = wrap_SettingsGetMapping Nothing cb'-    mk_SettingsGetMapping cb'' >>= B.GClosure.newGClosure----- | Wrap a `SettingsGetMapping` into a `C_SettingsGetMapping`.-wrap_SettingsGetMapping ::-    Maybe (Ptr (FunPtr C_SettingsGetMapping)) ->-    SettingsGetMapping_WithClosures ->-    C_SettingsGetMapping-wrap_SettingsGetMapping funptrptr _cb value result_ userData = do-    value' <- B.GVariant.newGVariantFromPtr value-    (result, outresult_) <- _cb  value' userData-    poke result_ outresult_-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback SettingsBindSetMapping---          -> Callable {returnType = Just TVariant, returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "a new #GVariant holding the data from @value,\n    or %NULL in case of an error", sinceVersion = Nothing}, args = [Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GValue containing the property value to map", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GVariantType to create", 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 that was specified when the binding was created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type for the function that is used to convert an object property\nvalue to a #GVariant for storing it in #GSettings.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_SettingsBindSetMapping =-    Ptr GValue ->-    Ptr GLib.VariantType.VariantType ->-    Ptr () ->-    IO (Ptr GVariant)---- Args : [Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GValue containing the property value to map", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GVariantType to create", 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 that was specified when the binding was created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_SettingsBindSetMapping :: FunPtr C_SettingsBindSetMapping -> C_SettingsBindSetMapping---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_SettingsBindSetMapping ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_SettingsBindSetMapping-    -> GValue-    {- ^ /@value@/: a 'GI.GObject.Structs.Value.Value' containing the property value to map -}-    -> GLib.VariantType.VariantType-    {- ^ /@expectedType@/: the 'GI.GLib.Structs.VariantType.VariantType' to create -}-    -> Ptr ()-    {- ^ /@userData@/: user data that was specified when the binding was created -}-    -> m GVariant-    {- ^ __Returns:__ a new 'GVariant' holding the data from /@value@/,-    or 'Nothing' in case of an error -}-dynamic_SettingsBindSetMapping __funPtr value expectedType userData = liftIO $ do-    value' <- unsafeManagedPtrGetPtr value-    expectedType' <- unsafeManagedPtrGetPtr expectedType-    result <- (__dynamic_C_SettingsBindSetMapping __funPtr) value' expectedType' userData-    checkUnexpectedReturnNULL "settingsBindSetMapping" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr value-    touchManagedPtr expectedType-    return result'---- | Generate a function pointer callable from C code, from a `C_SettingsBindSetMapping`.-foreign import ccall "wrapper"-    mk_SettingsBindSetMapping :: C_SettingsBindSetMapping -> IO (FunPtr C_SettingsBindSetMapping)--{- |-The type for the function that is used to convert an object property-value to a 'GVariant' for storing it in 'GI.Gio.Objects.Settings.Settings'.--}-type SettingsBindSetMapping =-    GValue-    {- ^ /@value@/: a 'GI.GObject.Structs.Value.Value' containing the property value to map -}-    -> GLib.VariantType.VariantType-    {- ^ /@expectedType@/: the 'GI.GLib.Structs.VariantType.VariantType' to create -}-    -> IO GVariant-    {- ^ __Returns:__ a new 'GVariant' holding the data from /@value@/,-    or 'Nothing' in case of an error -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsBindSetMapping`@.-noSettingsBindSetMapping :: Maybe SettingsBindSetMapping-noSettingsBindSetMapping = Nothing--{- |-The type for the function that is used to convert an object property-value to a 'GVariant' for storing it in 'GI.Gio.Objects.Settings.Settings'.--}-type SettingsBindSetMapping_WithClosures =-    GValue-    {- ^ /@value@/: a 'GI.GObject.Structs.Value.Value' containing the property value to map -}-    -> GLib.VariantType.VariantType-    {- ^ /@expectedType@/: the 'GI.GLib.Structs.VariantType.VariantType' to create -}-    -> Ptr ()-    {- ^ /@userData@/: user data that was specified when the binding was created -}-    -> IO GVariant-    {- ^ __Returns:__ a new 'GVariant' holding the data from /@value@/,-    or 'Nothing' in case of an error -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsBindSetMapping_WithClosures`@.-noSettingsBindSetMapping_WithClosures :: Maybe SettingsBindSetMapping_WithClosures-noSettingsBindSetMapping_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_SettingsBindSetMapping :: SettingsBindSetMapping -> SettingsBindSetMapping_WithClosures-drop_closures_SettingsBindSetMapping _f value expectedType _ = _f value expectedType---- | Wrap the callback into a `GClosure`.-genClosure_SettingsBindSetMapping :: MonadIO m => SettingsBindSetMapping -> m (GClosure C_SettingsBindSetMapping)-genClosure_SettingsBindSetMapping cb = liftIO $ do-    let cb' = drop_closures_SettingsBindSetMapping cb-    let cb'' = wrap_SettingsBindSetMapping Nothing cb'-    mk_SettingsBindSetMapping cb'' >>= B.GClosure.newGClosure----- | Wrap a `SettingsBindSetMapping` into a `C_SettingsBindSetMapping`.-wrap_SettingsBindSetMapping ::-    Maybe (Ptr (FunPtr C_SettingsBindSetMapping)) ->-    SettingsBindSetMapping_WithClosures ->-    C_SettingsBindSetMapping-wrap_SettingsBindSetMapping funptrptr _cb value expectedType userData = do-    B.ManagedPtr.withTransient GValue value $ \value' -> do-        B.ManagedPtr.withTransient GLib.VariantType.VariantType expectedType $ \expectedType' -> do-            result <- _cb  value' expectedType' userData-            maybeReleaseFunPtr funptrptr-            result' <- B.GVariant.disownGVariant result-            return result'----- callback SettingsBindGetMapping---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the conversion succeeded, %FALSE in case of an error", sinceVersion = Nothing}, args = [Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the property value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GVariant", 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 that was specified when the binding was created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type for the function that is used to convert from #GSettings to\nan object property. The @value is already initialized to hold values\nof the appropriate type.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_SettingsBindGetMapping =-    Ptr GValue ->-    Ptr GVariant ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the property value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GVariant", 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 that was specified when the binding was created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_SettingsBindGetMapping :: FunPtr C_SettingsBindGetMapping -> C_SettingsBindGetMapping---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_SettingsBindGetMapping ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_SettingsBindGetMapping-    -> GValue-    {- ^ /@value@/: return location for the property value -}-    -> GVariant-    {- ^ /@variant@/: the 'GVariant' -}-    -> Ptr ()-    {- ^ /@userData@/: user data that was specified when the binding was created -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the conversion succeeded, 'False' in case of an error -}-dynamic_SettingsBindGetMapping __funPtr value variant userData = liftIO $ do-    value' <- unsafeManagedPtrGetPtr value-    variant' <- unsafeManagedPtrGetPtr variant-    result <- (__dynamic_C_SettingsBindGetMapping __funPtr) value' variant' userData-    let result' = (/= 0) result-    touchManagedPtr value-    touchManagedPtr variant-    return result'---- | Generate a function pointer callable from C code, from a `C_SettingsBindGetMapping`.-foreign import ccall "wrapper"-    mk_SettingsBindGetMapping :: C_SettingsBindGetMapping -> IO (FunPtr C_SettingsBindGetMapping)--{- |-The type for the function that is used to convert from 'GI.Gio.Objects.Settings.Settings' to-an object property. The /@value@/ is already initialized to hold values-of the appropriate type.--}-type SettingsBindGetMapping =-    GValue-    {- ^ /@value@/: return location for the property value -}-    -> GVariant-    {- ^ /@variant@/: the 'GVariant' -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if the conversion succeeded, 'False' in case of an error -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsBindGetMapping`@.-noSettingsBindGetMapping :: Maybe SettingsBindGetMapping-noSettingsBindGetMapping = Nothing--{- |-The type for the function that is used to convert from 'GI.Gio.Objects.Settings.Settings' to-an object property. The /@value@/ is already initialized to hold values-of the appropriate type.--}-type SettingsBindGetMapping_WithClosures =-    GValue-    {- ^ /@value@/: return location for the property value -}-    -> GVariant-    {- ^ /@variant@/: the 'GVariant' -}-    -> Ptr ()-    {- ^ /@userData@/: user data that was specified when the binding was created -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if the conversion succeeded, 'False' in case of an error -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsBindGetMapping_WithClosures`@.-noSettingsBindGetMapping_WithClosures :: Maybe SettingsBindGetMapping_WithClosures-noSettingsBindGetMapping_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_SettingsBindGetMapping :: SettingsBindGetMapping -> SettingsBindGetMapping_WithClosures-drop_closures_SettingsBindGetMapping _f value variant _ = _f value variant---- | Wrap the callback into a `GClosure`.-genClosure_SettingsBindGetMapping :: MonadIO m => SettingsBindGetMapping -> m (GClosure C_SettingsBindGetMapping)-genClosure_SettingsBindGetMapping cb = liftIO $ do-    let cb' = drop_closures_SettingsBindGetMapping cb-    let cb'' = wrap_SettingsBindGetMapping Nothing cb'-    mk_SettingsBindGetMapping cb'' >>= B.GClosure.newGClosure----- | Wrap a `SettingsBindGetMapping` into a `C_SettingsBindGetMapping`.-wrap_SettingsBindGetMapping ::-    Maybe (Ptr (FunPtr C_SettingsBindGetMapping)) ->-    SettingsBindGetMapping_WithClosures ->-    C_SettingsBindGetMapping-wrap_SettingsBindGetMapping funptrptr _cb value variant userData = do-    B.ManagedPtr.withTransient GValue value $ \value' -> do-        variant' <- B.GVariant.newGVariantFromPtr variant-        result <- _cb  value' variant' userData-        maybeReleaseFunPtr funptrptr-        let result' = (fromIntegral . fromEnum) result-        return result'----- callback ReallocFunc---          -> Callable {returnType = Just (TBasicType TPtr), returnMayBeNull = True, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "a pointer to the reallocated memory", sinceVersion = Nothing}, args = [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "memory block to reallocate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size to reallocate @data to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Changes the size of the memory block pointed to by @data to\n@size bytes.\n\nThe function should have the same semantics as realloc().", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_ReallocFunc =-    Ptr () ->-    Word64 ->-    IO (Ptr ())---- Args : [Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "memory block to reallocate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size to reallocate @data to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_ReallocFunc :: FunPtr C_ReallocFunc -> C_ReallocFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_ReallocFunc ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_ReallocFunc-    -> Ptr ()-    {- ^ /@data@/: memory block to reallocate -}-    -> Word64-    {- ^ /@size@/: size to reallocate /@data@/ to -}-    -> m (Ptr ())-    {- ^ __Returns:__ a pointer to the reallocated memory -}-dynamic_ReallocFunc __funPtr data_ size = liftIO $ do-    result <- (__dynamic_C_ReallocFunc __funPtr) data_ size-    return result---- | Generate a function pointer callable from C code, from a `C_ReallocFunc`.-foreign import ccall "wrapper"-    mk_ReallocFunc :: C_ReallocFunc -> IO (FunPtr C_ReallocFunc)--{- |-Changes the size of the memory block pointed to by /@data@/ to-/@size@/ bytes.--The function should have the same semantics as @/realloc()/@.--}-type ReallocFunc =-    Ptr ()-    {- ^ /@data@/: memory block to reallocate -}-    -> Word64-    {- ^ /@size@/: size to reallocate /@data@/ to -}-    -> IO (Ptr ())-    {- ^ __Returns:__ a pointer to the reallocated memory -}---- | A convenience synonym for @`Nothing` :: `Maybe` `ReallocFunc`@.-noReallocFunc :: Maybe ReallocFunc-noReallocFunc = Nothing---- | Wrap the callback into a `GClosure`.-genClosure_ReallocFunc :: MonadIO m => ReallocFunc -> m (GClosure C_ReallocFunc)-genClosure_ReallocFunc cb = liftIO $ do-    let cb' = wrap_ReallocFunc Nothing cb-    mk_ReallocFunc cb' >>= B.GClosure.newGClosure----- | Wrap a `ReallocFunc` into a `C_ReallocFunc`.-wrap_ReallocFunc ::-    Maybe (Ptr (FunPtr C_ReallocFunc)) ->-    ReallocFunc ->-    C_ReallocFunc-wrap_ReallocFunc funptrptr _cb data_ size = do-    result <- _cb  data_ size-    maybeReleaseFunPtr funptrptr-    return result----- callback PollableSourceFunc---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "it should return %FALSE if the source should be removed.", sinceVersion = Nothing}, args = [Arg {argCName = "pollable_stream", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GPollableInputStream or #GPollableOutputStream", 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 "data passed in by the user.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "This is the function type of the callback used for the #GSource\nreturned by g_pollable_input_stream_create_source() and\ng_pollable_output_stream_create_source().", sinceVersion = Just "2.28"}}--- | Type for the callback on the (unwrapped) C side.-type C_PollableSourceFunc =-    Ptr GObject.Object.Object ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "pollable_stream", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GPollableInputStream or #GPollableOutputStream", 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 "data passed in by the user.", 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_PollableSourceFunc :: FunPtr C_PollableSourceFunc -> C_PollableSourceFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_PollableSourceFunc ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>-    FunPtr C_PollableSourceFunc-    -> a-    {- ^ /@pollableStream@/: the 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' or 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' -}-    -> Ptr ()-    {- ^ /@userData@/: data passed in by the user. -}-    -> m Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}-dynamic_PollableSourceFunc __funPtr pollableStream userData = liftIO $ do-    pollableStream' <- unsafeManagedPtrCastPtr pollableStream-    result <- (__dynamic_C_PollableSourceFunc __funPtr) pollableStream' userData-    let result' = (/= 0) result-    touchManagedPtr pollableStream-    return result'---- | Generate a function pointer callable from C code, from a `C_PollableSourceFunc`.-foreign import ccall "wrapper"-    mk_PollableSourceFunc :: C_PollableSourceFunc -> IO (FunPtr C_PollableSourceFunc)--{- |-This is the function type of the callback used for the 'GI.GLib.Structs.Source.Source'-returned by 'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamCreateSource' and-'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamCreateSource'.--/Since: 2.28/--}-type PollableSourceFunc =-    GObject.Object.Object-    {- ^ /@pollableStream@/: the 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' or 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' -}-    -> IO Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `PollableSourceFunc`@.-noPollableSourceFunc :: Maybe PollableSourceFunc-noPollableSourceFunc = Nothing--{- |-This is the function type of the callback used for the 'GI.GLib.Structs.Source.Source'-returned by 'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamCreateSource' and-'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamCreateSource'.--/Since: 2.28/--}-type PollableSourceFunc_WithClosures =-    GObject.Object.Object-    {- ^ /@pollableStream@/: the 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' or 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' -}-    -> Ptr ()-    {- ^ /@userData@/: data passed in by the user. -}-    -> IO Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `PollableSourceFunc_WithClosures`@.-noPollableSourceFunc_WithClosures :: Maybe PollableSourceFunc_WithClosures-noPollableSourceFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_PollableSourceFunc :: PollableSourceFunc -> PollableSourceFunc_WithClosures-drop_closures_PollableSourceFunc _f pollableStream _ = _f pollableStream---- | Wrap the callback into a `GClosure`.-genClosure_PollableSourceFunc :: MonadIO m => PollableSourceFunc -> m (GClosure C_PollableSourceFunc)-genClosure_PollableSourceFunc cb = liftIO $ do-    let cb' = drop_closures_PollableSourceFunc cb-    let cb'' = wrap_PollableSourceFunc Nothing cb'-    mk_PollableSourceFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `PollableSourceFunc` into a `C_PollableSourceFunc`.-wrap_PollableSourceFunc ::-    Maybe (Ptr (FunPtr C_PollableSourceFunc)) ->-    PollableSourceFunc_WithClosures ->-    C_PollableSourceFunc-wrap_PollableSourceFunc funptrptr _cb pollableStream userData = do-    pollableStream' <- (newObject GObject.Object.Object) pollableStream-    result <- _cb  pollableStream' userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback IOSchedulerJobFunc---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if this function should be called again to\n   complete the job, %FALSE if the job is complete (or cancelled)", sinceVersion = Nothing}, args = [Arg {argCName = "job", argType = TInterface (Name {namespace = "Gio", name = "IOSchedulerJob"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOSchedulerJob.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "I/O Job function.\n\nLong-running jobs should periodically check the @cancellable\nto see if they have been cancelled.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_IOSchedulerJobFunc =-    Ptr Gio.IOSchedulerJob.IOSchedulerJob ->-    Ptr Gio.Cancellable.Cancellable ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "job", argType = TInterface (Name {namespace = "Gio", name = "IOSchedulerJob"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOSchedulerJob.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_IOSchedulerJobFunc :: FunPtr C_IOSchedulerJobFunc -> C_IOSchedulerJobFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_IOSchedulerJobFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    FunPtr C_IOSchedulerJobFunc-    -> Gio.IOSchedulerJob.IOSchedulerJob-    {- ^ /@job@/: a 'GI.Gio.Structs.IOSchedulerJob.IOSchedulerJob'. -}-    -> Maybe (a)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Ptr ()-    {- ^ /@userData@/: the data to pass to callback function -}-    -> m Bool-    {- ^ __Returns:__ 'True' if this function should be called again to-   complete the job, 'False' if the job is complete (or cancelled) -}-dynamic_IOSchedulerJobFunc __funPtr job cancellable userData = liftIO $ do-    job' <- unsafeManagedPtrGetPtr job-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- (__dynamic_C_IOSchedulerJobFunc __funPtr) job' maybeCancellable userData-    let result' = (/= 0) result-    touchManagedPtr job-    whenJust cancellable touchManagedPtr-    return result'---- | Generate a function pointer callable from C code, from a `C_IOSchedulerJobFunc`.-foreign import ccall "wrapper"-    mk_IOSchedulerJobFunc :: C_IOSchedulerJobFunc -> IO (FunPtr C_IOSchedulerJobFunc)--{- |-I\/O Job function.--Long-running jobs should periodically check the /@cancellable@/-to see if they have been cancelled.--}-type IOSchedulerJobFunc =-    Gio.IOSchedulerJob.IOSchedulerJob-    {- ^ /@job@/: a 'GI.Gio.Structs.IOSchedulerJob.IOSchedulerJob'. -}-    -> Maybe Gio.Cancellable.Cancellable-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if this function should be called again to-   complete the job, 'False' if the job is complete (or cancelled) -}---- | A convenience synonym for @`Nothing` :: `Maybe` `IOSchedulerJobFunc`@.-noIOSchedulerJobFunc :: Maybe IOSchedulerJobFunc-noIOSchedulerJobFunc = Nothing--{- |-I\/O Job function.--Long-running jobs should periodically check the /@cancellable@/-to see if they have been cancelled.--}-type IOSchedulerJobFunc_WithClosures =-    Gio.IOSchedulerJob.IOSchedulerJob-    {- ^ /@job@/: a 'GI.Gio.Structs.IOSchedulerJob.IOSchedulerJob'. -}-    -> Maybe Gio.Cancellable.Cancellable-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Ptr ()-    {- ^ /@userData@/: the data to pass to callback function -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if this function should be called again to-   complete the job, 'False' if the job is complete (or cancelled) -}---- | A convenience synonym for @`Nothing` :: `Maybe` `IOSchedulerJobFunc_WithClosures`@.-noIOSchedulerJobFunc_WithClosures :: Maybe IOSchedulerJobFunc_WithClosures-noIOSchedulerJobFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_IOSchedulerJobFunc :: IOSchedulerJobFunc -> IOSchedulerJobFunc_WithClosures-drop_closures_IOSchedulerJobFunc _f job cancellable _ = _f job cancellable---- | Wrap the callback into a `GClosure`.-genClosure_IOSchedulerJobFunc :: MonadIO m => IOSchedulerJobFunc -> m (GClosure C_IOSchedulerJobFunc)-genClosure_IOSchedulerJobFunc cb = liftIO $ do-    let cb' = drop_closures_IOSchedulerJobFunc cb-    let cb'' = wrap_IOSchedulerJobFunc Nothing cb'-    mk_IOSchedulerJobFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `IOSchedulerJobFunc` into a `C_IOSchedulerJobFunc`.-wrap_IOSchedulerJobFunc ::-    Maybe (Ptr (FunPtr C_IOSchedulerJobFunc)) ->-    IOSchedulerJobFunc_WithClosures ->-    C_IOSchedulerJobFunc-wrap_IOSchedulerJobFunc funptrptr _cb job cancellable userData = do-    job' <- (newPtr Gio.IOSchedulerJob.IOSchedulerJob) job-    maybeCancellable <--        if cancellable == nullPtr-        then return Nothing-        else do-            cancellable' <- (newObject Gio.Cancellable.Cancellable) cancellable-            return $ Just cancellable'-    result <- _cb  job' maybeCancellable userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback FileReadMoreCallback---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if more data should be read back. %FALSE otherwise.", sinceVersion = Nothing}, args = [Arg {argCName = "file_contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the data as currently read.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of the data currently read.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data passed to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "When loading the partial contents of a file with g_file_load_partial_contents_async(),\nit may become necessary to determine if any more data from the file should be loaded.\nA #GFileReadMoreCallback function facilitates this by returning %TRUE if more data\nshould be read, or %FALSE otherwise.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_FileReadMoreCallback =-    CString ->-    Int64 ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "file_contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the data as currently read.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of the data currently read.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data passed to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_FileReadMoreCallback :: FunPtr C_FileReadMoreCallback -> C_FileReadMoreCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_FileReadMoreCallback ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_FileReadMoreCallback-    -> T.Text-    {- ^ /@fileContents@/: the data as currently read. -}-    -> Int64-    {- ^ /@fileSize@/: the size of the data currently read. -}-    -> Ptr ()-    {- ^ /@callbackData@/: data passed to the callback. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if more data should be read back. 'False' otherwise. -}-dynamic_FileReadMoreCallback __funPtr fileContents fileSize callbackData = liftIO $ do-    fileContents' <- textToCString fileContents-    result <- (__dynamic_C_FileReadMoreCallback __funPtr) fileContents' fileSize callbackData-    let result' = (/= 0) result-    freeMem fileContents'-    return result'---- | Generate a function pointer callable from C code, from a `C_FileReadMoreCallback`.-foreign import ccall "wrapper"-    mk_FileReadMoreCallback :: C_FileReadMoreCallback -> IO (FunPtr C_FileReadMoreCallback)--{- |-When loading the partial contents of a file with @/g_file_load_partial_contents_async()/@,-it may become necessary to determine if any more data from the file should be loaded.-A 'GI.Gio.Callbacks.FileReadMoreCallback' function facilitates this by returning 'True' if more data-should be read, or 'False' otherwise.--}-type FileReadMoreCallback =-    T.Text-    {- ^ /@fileContents@/: the data as currently read. -}-    -> Int64-    {- ^ /@fileSize@/: the size of the data currently read. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if more data should be read back. 'False' otherwise. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `FileReadMoreCallback`@.-noFileReadMoreCallback :: Maybe FileReadMoreCallback-noFileReadMoreCallback = Nothing--{- |-When loading the partial contents of a file with @/g_file_load_partial_contents_async()/@,-it may become necessary to determine if any more data from the file should be loaded.-A 'GI.Gio.Callbacks.FileReadMoreCallback' function facilitates this by returning 'True' if more data-should be read, or 'False' otherwise.--}-type FileReadMoreCallback_WithClosures =-    T.Text-    {- ^ /@fileContents@/: the data as currently read. -}-    -> Int64-    {- ^ /@fileSize@/: the size of the data currently read. -}-    -> Ptr ()-    {- ^ /@callbackData@/: data passed to the callback. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if more data should be read back. 'False' otherwise. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `FileReadMoreCallback_WithClosures`@.-noFileReadMoreCallback_WithClosures :: Maybe FileReadMoreCallback_WithClosures-noFileReadMoreCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_FileReadMoreCallback :: FileReadMoreCallback -> FileReadMoreCallback_WithClosures-drop_closures_FileReadMoreCallback _f fileContents fileSize _ = _f fileContents fileSize---- | Wrap the callback into a `GClosure`.-genClosure_FileReadMoreCallback :: MonadIO m => FileReadMoreCallback -> m (GClosure C_FileReadMoreCallback)-genClosure_FileReadMoreCallback cb = liftIO $ do-    let cb' = drop_closures_FileReadMoreCallback cb-    let cb'' = wrap_FileReadMoreCallback Nothing cb'-    mk_FileReadMoreCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `FileReadMoreCallback` into a `C_FileReadMoreCallback`.-wrap_FileReadMoreCallback ::-    Maybe (Ptr (FunPtr C_FileReadMoreCallback)) ->-    FileReadMoreCallback_WithClosures ->-    C_FileReadMoreCallback-wrap_FileReadMoreCallback funptrptr _cb fileContents fileSize callbackData = do-    fileContents' <- cstringToText fileContents-    result <- _cb  fileContents' fileSize callbackData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback FileProgressCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "current_num_bytes", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current number of bytes in the operation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_num_bytes", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the total number of bytes in the operation.", 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 passed to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "When doing file operations that may take a while, such as moving\na file or copying a file, a progress callback is used to pass how\nfar along that operation is to the application.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_FileProgressCallback =-    Int64 ->-    Int64 ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "current_num_bytes", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current number of bytes in the operation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_num_bytes", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the total number of bytes in the operation.", 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 passed to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_FileProgressCallback :: FunPtr C_FileProgressCallback -> C_FileProgressCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_FileProgressCallback ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_FileProgressCallback-    -> Int64-    {- ^ /@currentNumBytes@/: the current number of bytes in the operation. -}-    -> Int64-    {- ^ /@totalNumBytes@/: the total number of bytes in the operation. -}-    -> Ptr ()-    {- ^ /@userData@/: user data passed to the callback. -}-    -> m ()-dynamic_FileProgressCallback __funPtr currentNumBytes totalNumBytes userData = liftIO $ do-    (__dynamic_C_FileProgressCallback __funPtr) currentNumBytes totalNumBytes userData-    return ()---- | Generate a function pointer callable from C code, from a `C_FileProgressCallback`.-foreign import ccall "wrapper"-    mk_FileProgressCallback :: C_FileProgressCallback -> IO (FunPtr C_FileProgressCallback)--{- |-When doing file operations that may take a while, such as moving-a file or copying a file, a progress callback is used to pass how-far along that operation is to the application.--}-type FileProgressCallback =-    Int64-    {- ^ /@currentNumBytes@/: the current number of bytes in the operation. -}-    -> Int64-    {- ^ /@totalNumBytes@/: the total number of bytes in the operation. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `FileProgressCallback`@.-noFileProgressCallback :: Maybe FileProgressCallback-noFileProgressCallback = Nothing--{- |-When doing file operations that may take a while, such as moving-a file or copying a file, a progress callback is used to pass how-far along that operation is to the application.--}-type FileProgressCallback_WithClosures =-    Int64-    {- ^ /@currentNumBytes@/: the current number of bytes in the operation. -}-    -> Int64-    {- ^ /@totalNumBytes@/: the total number of bytes in the operation. -}-    -> Ptr ()-    {- ^ /@userData@/: user data passed to the callback. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `FileProgressCallback_WithClosures`@.-noFileProgressCallback_WithClosures :: Maybe FileProgressCallback_WithClosures-noFileProgressCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_FileProgressCallback :: FileProgressCallback -> FileProgressCallback_WithClosures-drop_closures_FileProgressCallback _f currentNumBytes totalNumBytes _ = _f currentNumBytes totalNumBytes---- | Wrap the callback into a `GClosure`.-genClosure_FileProgressCallback :: MonadIO m => FileProgressCallback -> m (GClosure C_FileProgressCallback)-genClosure_FileProgressCallback cb = liftIO $ do-    let cb' = drop_closures_FileProgressCallback cb-    let cb'' = wrap_FileProgressCallback Nothing cb'-    mk_FileProgressCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `FileProgressCallback` into a `C_FileProgressCallback`.-wrap_FileProgressCallback ::-    Maybe (Ptr (FunPtr C_FileProgressCallback)) ->-    FileProgressCallback_WithClosures ->-    C_FileProgressCallback-wrap_FileProgressCallback funptrptr _cb currentNumBytes totalNumBytes userData = do-    _cb  currentNumBytes totalNumBytes userData-    maybeReleaseFunPtr funptrptr----- callback FileMeasureProgressCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "reporting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if more reports will come", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current cumulative size measurement", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_dirs", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of directories visited so far", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_files", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of non-directory files encountered", 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 "the data passed to the original request for this callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "This callback type is used by g_file_measure_disk_usage() to make\nperiodic progress reports when measuring the amount of disk spaced\nused by a directory.\n\nThese calls are made on a best-effort basis and not all types of\n#GFile will support them.  At the minimum, however, one call will\nalways be made immediately.\n\nIn the case that there is no support, @reporting will be set to\n%FALSE (and the other values undefined) and no further calls will be\nmade.  Otherwise, the @reporting will be %TRUE and the other values\nall-zeros during the first (immediate) call.  In this way, you can\nknow which type of progress UI to show without a delay.\n\nFor g_file_measure_disk_usage() the callback is made directly.  For\ng_file_measure_disk_usage_async() the callback is made via the\ndefault main context of the calling thread (ie: the same way that the\nfinal async result would be reported).\n\n@current_size is in the same units as requested by the operation (see\n%G_FILE_DISK_USAGE_APPARENT_SIZE).\n\nThe frequency of the updates is implementation defined, but is\nideally about once every 200ms.\n\nThe last progress callback may or may not be equal to the final\nresult.  Always check the async result to get the final value.", sinceVersion = Just "2.38"}}--- | Type for the callback on the (unwrapped) C side.-type C_FileMeasureProgressCallback =-    CInt ->-    Word64 ->-    Word64 ->-    Word64 ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "reporting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if more reports will come", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current cumulative size measurement", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_dirs", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of directories visited so far", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_files", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of non-directory files encountered", 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 "the data passed to the original request for this callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_FileMeasureProgressCallback :: FunPtr C_FileMeasureProgressCallback -> C_FileMeasureProgressCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_FileMeasureProgressCallback ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_FileMeasureProgressCallback-    -> Bool-    {- ^ /@reporting@/: 'True' if more reports will come -}-    -> Word64-    {- ^ /@currentSize@/: the current cumulative size measurement -}-    -> Word64-    {- ^ /@numDirs@/: the number of directories visited so far -}-    -> Word64-    {- ^ /@numFiles@/: the number of non-directory files encountered -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to the original request for this callback -}-    -> m ()-dynamic_FileMeasureProgressCallback __funPtr reporting currentSize numDirs numFiles userData = liftIO $ do-    let reporting' = (fromIntegral . fromEnum) reporting-    (__dynamic_C_FileMeasureProgressCallback __funPtr) reporting' currentSize numDirs numFiles userData-    return ()---- | Generate a function pointer callable from C code, from a `C_FileMeasureProgressCallback`.-foreign import ccall "wrapper"-    mk_FileMeasureProgressCallback :: C_FileMeasureProgressCallback -> IO (FunPtr C_FileMeasureProgressCallback)--{- |-This callback type is used by @/g_file_measure_disk_usage()/@ to make-periodic progress reports when measuring the amount of disk spaced-used by a directory.--These calls are made on a best-effort basis and not all types of-'GI.Gio.Interfaces.File.File' will support them.  At the minimum, however, one call will-always be made immediately.--In the case that there is no support, /@reporting@/ will be set to-'False' (and the other values undefined) and no further calls will be-made.  Otherwise, the /@reporting@/ will be 'True' and the other values-all-zeros during the first (immediate) call.  In this way, you can-know which type of progress UI to show without a delay.--For @/g_file_measure_disk_usage()/@ the callback is made directly.  For-@/g_file_measure_disk_usage_async()/@ the callback is made via the-default main context of the calling thread (ie: the same way that the-final async result would be reported).--/@currentSize@/ is in the same units as requested by the operation (see-@/G_FILE_DISK_USAGE_APPARENT_SIZE/@).--The frequency of the updates is implementation defined, but is-ideally about once every 200ms.--The last progress callback may or may not be equal to the final-result.  Always check the async result to get the final value.--/Since: 2.38/--}-type FileMeasureProgressCallback =-    Bool-    {- ^ /@reporting@/: 'True' if more reports will come -}-    -> Word64-    {- ^ /@currentSize@/: the current cumulative size measurement -}-    -> Word64-    {- ^ /@numDirs@/: the number of directories visited so far -}-    -> Word64-    {- ^ /@numFiles@/: the number of non-directory files encountered -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `FileMeasureProgressCallback`@.-noFileMeasureProgressCallback :: Maybe FileMeasureProgressCallback-noFileMeasureProgressCallback = Nothing--{- |-This callback type is used by @/g_file_measure_disk_usage()/@ to make-periodic progress reports when measuring the amount of disk spaced-used by a directory.--These calls are made on a best-effort basis and not all types of-'GI.Gio.Interfaces.File.File' will support them.  At the minimum, however, one call will-always be made immediately.--In the case that there is no support, /@reporting@/ will be set to-'False' (and the other values undefined) and no further calls will be-made.  Otherwise, the /@reporting@/ will be 'True' and the other values-all-zeros during the first (immediate) call.  In this way, you can-know which type of progress UI to show without a delay.--For @/g_file_measure_disk_usage()/@ the callback is made directly.  For-@/g_file_measure_disk_usage_async()/@ the callback is made via the-default main context of the calling thread (ie: the same way that the-final async result would be reported).--/@currentSize@/ is in the same units as requested by the operation (see-@/G_FILE_DISK_USAGE_APPARENT_SIZE/@).--The frequency of the updates is implementation defined, but is-ideally about once every 200ms.--The last progress callback may or may not be equal to the final-result.  Always check the async result to get the final value.--/Since: 2.38/--}-type FileMeasureProgressCallback_WithClosures =-    Bool-    {- ^ /@reporting@/: 'True' if more reports will come -}-    -> Word64-    {- ^ /@currentSize@/: the current cumulative size measurement -}-    -> Word64-    {- ^ /@numDirs@/: the number of directories visited so far -}-    -> Word64-    {- ^ /@numFiles@/: the number of non-directory files encountered -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to the original request for this callback -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `FileMeasureProgressCallback_WithClosures`@.-noFileMeasureProgressCallback_WithClosures :: Maybe FileMeasureProgressCallback_WithClosures-noFileMeasureProgressCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_FileMeasureProgressCallback :: FileMeasureProgressCallback -> FileMeasureProgressCallback_WithClosures-drop_closures_FileMeasureProgressCallback _f reporting currentSize numDirs numFiles _ = _f reporting currentSize numDirs numFiles---- | Wrap the callback into a `GClosure`.-genClosure_FileMeasureProgressCallback :: MonadIO m => FileMeasureProgressCallback -> m (GClosure C_FileMeasureProgressCallback)-genClosure_FileMeasureProgressCallback cb = liftIO $ do-    let cb' = drop_closures_FileMeasureProgressCallback cb-    let cb'' = wrap_FileMeasureProgressCallback Nothing cb'-    mk_FileMeasureProgressCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `FileMeasureProgressCallback` into a `C_FileMeasureProgressCallback`.-wrap_FileMeasureProgressCallback ::-    Maybe (Ptr (FunPtr C_FileMeasureProgressCallback)) ->-    FileMeasureProgressCallback_WithClosures ->-    C_FileMeasureProgressCallback-wrap_FileMeasureProgressCallback funptrptr _cb reporting currentSize numDirs numFiles userData = do-    let reporting' = (/= 0) reporting-    _cb  reporting' currentSize numDirs numFiles userData-    maybeReleaseFunPtr funptrptr----- callback DesktopAppLaunchCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pid", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Process identifier", 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 = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "During invocation, g_desktop_app_info_launch_uris_as_manager() may\ncreate one or more child processes.  This callback is invoked once\nfor each, providing the process ID.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_DesktopAppLaunchCallback =-    Ptr Gio.DesktopAppInfo.DesktopAppInfo ->-    Int32 ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pid", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Process identifier", 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 = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DesktopAppLaunchCallback :: FunPtr C_DesktopAppLaunchCallback -> C_DesktopAppLaunchCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DesktopAppLaunchCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DesktopAppInfo.IsDesktopAppInfo a) =>-    FunPtr C_DesktopAppLaunchCallback-    -> a-    {- ^ /@appinfo@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> Int32-    {- ^ /@pid@/: Process identifier -}-    -> Ptr ()-    {- ^ /@userData@/: User data -}-    -> m ()-dynamic_DesktopAppLaunchCallback __funPtr appinfo pid userData = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    (__dynamic_C_DesktopAppLaunchCallback __funPtr) appinfo' pid userData-    touchManagedPtr appinfo-    return ()---- | Generate a function pointer callable from C code, from a `C_DesktopAppLaunchCallback`.-foreign import ccall "wrapper"-    mk_DesktopAppLaunchCallback :: C_DesktopAppLaunchCallback -> IO (FunPtr C_DesktopAppLaunchCallback)--{- |-During invocation, 'GI.Gio.Objects.DesktopAppInfo.desktopAppInfoLaunchUrisAsManager' may-create one or more child processes.  This callback is invoked once-for each, providing the process ID.--}-type DesktopAppLaunchCallback =-    Gio.DesktopAppInfo.DesktopAppInfo-    {- ^ /@appinfo@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> Int32-    {- ^ /@pid@/: Process identifier -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DesktopAppLaunchCallback`@.-noDesktopAppLaunchCallback :: Maybe DesktopAppLaunchCallback-noDesktopAppLaunchCallback = Nothing--{- |-During invocation, 'GI.Gio.Objects.DesktopAppInfo.desktopAppInfoLaunchUrisAsManager' may-create one or more child processes.  This callback is invoked once-for each, providing the process ID.--}-type DesktopAppLaunchCallback_WithClosures =-    Gio.DesktopAppInfo.DesktopAppInfo-    {- ^ /@appinfo@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> Int32-    {- ^ /@pid@/: Process identifier -}-    -> Ptr ()-    {- ^ /@userData@/: User data -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DesktopAppLaunchCallback_WithClosures`@.-noDesktopAppLaunchCallback_WithClosures :: Maybe DesktopAppLaunchCallback_WithClosures-noDesktopAppLaunchCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DesktopAppLaunchCallback :: DesktopAppLaunchCallback -> DesktopAppLaunchCallback_WithClosures-drop_closures_DesktopAppLaunchCallback _f appinfo pid _ = _f appinfo pid---- | Wrap the callback into a `GClosure`.-genClosure_DesktopAppLaunchCallback :: MonadIO m => DesktopAppLaunchCallback -> m (GClosure C_DesktopAppLaunchCallback)-genClosure_DesktopAppLaunchCallback cb = liftIO $ do-    let cb' = drop_closures_DesktopAppLaunchCallback cb-    let cb'' = wrap_DesktopAppLaunchCallback Nothing cb'-    mk_DesktopAppLaunchCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `DesktopAppLaunchCallback` into a `C_DesktopAppLaunchCallback`.-wrap_DesktopAppLaunchCallback ::-    Maybe (Ptr (FunPtr C_DesktopAppLaunchCallback)) ->-    DesktopAppLaunchCallback_WithClosures ->-    C_DesktopAppLaunchCallback-wrap_DesktopAppLaunchCallback funptrptr _cb appinfo pid userData = do-    appinfo' <- (newObject Gio.DesktopAppInfo.DesktopAppInfo) appinfo-    _cb  appinfo' pid userData-    maybeReleaseFunPtr funptrptr----- callback DatagramBasedSourceFunc---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%G_SOURCE_REMOVE if the source should be removed,\n  %G_SOURCE_CONTINUE otherwise", sinceVersion = Nothing}, args = [Arg {argCName = "datagram_based", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDatagramBased", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current condition at the source fired", 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 "data passed in by the user", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "This is the function type of the callback used for the #GSource\nreturned by g_datagram_based_create_source().", sinceVersion = Just "2.48"}}--- | Type for the callback on the (unwrapped) C side.-type C_DatagramBasedSourceFunc =-    Ptr Gio.DatagramBased.DatagramBased ->-    CUInt ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "datagram_based", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDatagramBased", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current condition at the source fired", 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 "data passed in by the user", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DatagramBasedSourceFunc :: FunPtr C_DatagramBasedSourceFunc -> C_DatagramBasedSourceFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DatagramBasedSourceFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DatagramBased.IsDatagramBased a) =>-    FunPtr C_DatagramBasedSourceFunc-    -> a-    {- ^ /@datagramBased@/: the 'GI.Gio.Interfaces.DatagramBased.DatagramBased' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: the current condition at the source fired -}-    -> Ptr ()-    {- ^ /@userData@/: data passed in by the user -}-    -> m Bool-    {- ^ __Returns:__ 'GI.GLib.Constants.SOURCE_REMOVE' if the source should be removed,-  'GI.GLib.Constants.SOURCE_CONTINUE' otherwise -}-dynamic_DatagramBasedSourceFunc __funPtr datagramBased condition userData = liftIO $ do-    datagramBased' <- unsafeManagedPtrCastPtr datagramBased-    let condition' = gflagsToWord condition-    result <- (__dynamic_C_DatagramBasedSourceFunc __funPtr) datagramBased' condition' userData-    let result' = (/= 0) result-    touchManagedPtr datagramBased-    return result'---- | Generate a function pointer callable from C code, from a `C_DatagramBasedSourceFunc`.-foreign import ccall "wrapper"-    mk_DatagramBasedSourceFunc :: C_DatagramBasedSourceFunc -> IO (FunPtr C_DatagramBasedSourceFunc)--{- |-This is the function type of the callback used for the 'GI.GLib.Structs.Source.Source'-returned by 'GI.Gio.Interfaces.DatagramBased.datagramBasedCreateSource'.--/Since: 2.48/--}-type DatagramBasedSourceFunc =-    Gio.DatagramBased.DatagramBased-    {- ^ /@datagramBased@/: the 'GI.Gio.Interfaces.DatagramBased.DatagramBased' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: the current condition at the source fired -}-    -> IO Bool-    {- ^ __Returns:__ 'GI.GLib.Constants.SOURCE_REMOVE' if the source should be removed,-  'GI.GLib.Constants.SOURCE_CONTINUE' otherwise -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DatagramBasedSourceFunc`@.-noDatagramBasedSourceFunc :: Maybe DatagramBasedSourceFunc-noDatagramBasedSourceFunc = Nothing--{- |-This is the function type of the callback used for the 'GI.GLib.Structs.Source.Source'-returned by 'GI.Gio.Interfaces.DatagramBased.datagramBasedCreateSource'.--/Since: 2.48/--}-type DatagramBasedSourceFunc_WithClosures =-    Gio.DatagramBased.DatagramBased-    {- ^ /@datagramBased@/: the 'GI.Gio.Interfaces.DatagramBased.DatagramBased' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: the current condition at the source fired -}-    -> Ptr ()-    {- ^ /@userData@/: data passed in by the user -}-    -> IO Bool-    {- ^ __Returns:__ 'GI.GLib.Constants.SOURCE_REMOVE' if the source should be removed,-  'GI.GLib.Constants.SOURCE_CONTINUE' otherwise -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DatagramBasedSourceFunc_WithClosures`@.-noDatagramBasedSourceFunc_WithClosures :: Maybe DatagramBasedSourceFunc_WithClosures-noDatagramBasedSourceFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DatagramBasedSourceFunc :: DatagramBasedSourceFunc -> DatagramBasedSourceFunc_WithClosures-drop_closures_DatagramBasedSourceFunc _f datagramBased condition _ = _f datagramBased condition---- | Wrap the callback into a `GClosure`.-genClosure_DatagramBasedSourceFunc :: MonadIO m => DatagramBasedSourceFunc -> m (GClosure C_DatagramBasedSourceFunc)-genClosure_DatagramBasedSourceFunc cb = liftIO $ do-    let cb' = drop_closures_DatagramBasedSourceFunc cb-    let cb'' = wrap_DatagramBasedSourceFunc Nothing cb'-    mk_DatagramBasedSourceFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `DatagramBasedSourceFunc` into a `C_DatagramBasedSourceFunc`.-wrap_DatagramBasedSourceFunc ::-    Maybe (Ptr (FunPtr C_DatagramBasedSourceFunc)) ->-    DatagramBasedSourceFunc_WithClosures ->-    C_DatagramBasedSourceFunc-wrap_DatagramBasedSourceFunc funptrptr _cb datagramBased condition userData = do-    datagramBased' <- (newObject Gio.DatagramBased.DatagramBased) datagramBased-    let condition' = wordToGFlags condition-    result <- _cb  datagramBased' condition' userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback DBusSubtreeIntrospectFunc---          -> Callable {returnType = Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})), returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "A %NULL-terminated array of pointers to #GDBusInterfaceInfo, or %NULL.", sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that was registered with g_dbus_connection_register_subtree().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A node that is a child of @object_path (relative to @object_path) or %NULL for the root of the subtree.", 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 "The @user_data #gpointer passed to g_dbus_connection_register_subtree().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the @introspect function in #GDBusSubtreeVTable.\n\nSubtrees are flat.  @node, if non-%NULL, is always exactly one\nsegment of the object path (ie: it never contains a slash).\n\nThis function should return %NULL to indicate that there is no object\nat this node.\n\nIf this function returns non-%NULL, the return value is expected to\nbe a %NULL-terminated array of pointers to #GDBusInterfaceInfo\nstructures describing the interfaces implemented by @node.  This\narray will have g_dbus_interface_info_unref() called on each item\nbefore being freed with g_free().\n\nThe difference between returning %NULL and an array containing zero\nitems is that the standard DBus interfaces will returned to the\nremote introspector in the empty array case, but not in the %NULL\ncase.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_DBusSubtreeIntrospectFunc =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    CString ->-    CString ->-    Ptr () ->-    IO (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo)---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that was registered with g_dbus_connection_register_subtree().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A node that is a child of @object_path (relative to @object_path) or %NULL for the root of the subtree.", 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 "The @user_data #gpointer passed to g_dbus_connection_register_subtree().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}))--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DBusSubtreeIntrospectFunc :: FunPtr C_DBusSubtreeIntrospectFunc -> C_DBusSubtreeIntrospectFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DBusSubtreeIntrospectFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_DBusSubtreeIntrospectFunc-    -> a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that was registered with 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> T.Text-    {- ^ /@node@/: A node that is a child of /@objectPath@/ (relative to /@objectPath@/) or 'Nothing' for the root of the subtree. -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> m Gio.DBusInterfaceInfo.DBusInterfaceInfo-    {- ^ __Returns:__ A 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo', or 'Nothing'. -}-dynamic_DBusSubtreeIntrospectFunc __funPtr connection sender objectPath node userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    sender' <- textToCString sender-    objectPath' <- textToCString objectPath-    node' <- textToCString node-    result <- (__dynamic_C_DBusSubtreeIntrospectFunc __funPtr) connection' sender' objectPath' node' userData-    checkUnexpectedReturnNULL "dBusSubtreeIntrospectFunc" result-    result' <- (wrapBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) result-    touchManagedPtr connection-    freeMem sender'-    freeMem objectPath'-    freeMem node'-    return result'---- | Generate a function pointer callable from C code, from a `C_DBusSubtreeIntrospectFunc`.-foreign import ccall "wrapper"-    mk_DBusSubtreeIntrospectFunc :: C_DBusSubtreeIntrospectFunc -> IO (FunPtr C_DBusSubtreeIntrospectFunc)--{- |-The type of the /@introspect@/ function in 'GI.Gio.Structs.DBusSubtreeVTable.DBusSubtreeVTable'.--Subtrees are flat.  /@node@/, if non-'Nothing', is always exactly one-segment of the object path (ie: it never contains a slash).--This function should return 'Nothing' to indicate that there is no object-at this node.--If this function returns non-'Nothing', the return value is expected to-be a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo'-structures describing the interfaces implemented by /@node@/.  This-array will have 'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoUnref' called on each item-before being freed with 'GI.GLib.Functions.free'.--The difference between returning 'Nothing' and an array containing zero-items is that the standard DBus interfaces will returned to the-remote introspector in the empty array case, but not in the 'Nothing'-case.--/Since: 2.26/--}-type DBusSubtreeIntrospectFunc =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that was registered with 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> T.Text-    {- ^ /@node@/: A node that is a child of /@objectPath@/ (relative to /@objectPath@/) or 'Nothing' for the root of the subtree. -}-    -> IO Gio.DBusInterfaceInfo.DBusInterfaceInfo-    {- ^ __Returns:__ A 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo', or 'Nothing'. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusSubtreeIntrospectFunc`@.-noDBusSubtreeIntrospectFunc :: Maybe DBusSubtreeIntrospectFunc-noDBusSubtreeIntrospectFunc = Nothing--{- |-The type of the /@introspect@/ function in 'GI.Gio.Structs.DBusSubtreeVTable.DBusSubtreeVTable'.--Subtrees are flat.  /@node@/, if non-'Nothing', is always exactly one-segment of the object path (ie: it never contains a slash).--This function should return 'Nothing' to indicate that there is no object-at this node.--If this function returns non-'Nothing', the return value is expected to-be a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo'-structures describing the interfaces implemented by /@node@/.  This-array will have 'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoUnref' called on each item-before being freed with 'GI.GLib.Functions.free'.--The difference between returning 'Nothing' and an array containing zero-items is that the standard DBus interfaces will returned to the-remote introspector in the empty array case, but not in the 'Nothing'-case.--/Since: 2.26/--}-type DBusSubtreeIntrospectFunc_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that was registered with 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> T.Text-    {- ^ /@node@/: A node that is a child of /@objectPath@/ (relative to /@objectPath@/) or 'Nothing' for the root of the subtree. -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> IO Gio.DBusInterfaceInfo.DBusInterfaceInfo-    {- ^ __Returns:__ A 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo', or 'Nothing'. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusSubtreeIntrospectFunc_WithClosures`@.-noDBusSubtreeIntrospectFunc_WithClosures :: Maybe DBusSubtreeIntrospectFunc_WithClosures-noDBusSubtreeIntrospectFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DBusSubtreeIntrospectFunc :: DBusSubtreeIntrospectFunc -> DBusSubtreeIntrospectFunc_WithClosures-drop_closures_DBusSubtreeIntrospectFunc _f connection sender objectPath node _ = _f connection sender objectPath node---- | Wrap the callback into a `GClosure`.-genClosure_DBusSubtreeIntrospectFunc :: MonadIO m => DBusSubtreeIntrospectFunc -> m (GClosure C_DBusSubtreeIntrospectFunc)-genClosure_DBusSubtreeIntrospectFunc cb = liftIO $ do-    let cb' = drop_closures_DBusSubtreeIntrospectFunc cb-    let cb'' = wrap_DBusSubtreeIntrospectFunc Nothing cb'-    mk_DBusSubtreeIntrospectFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `DBusSubtreeIntrospectFunc` into a `C_DBusSubtreeIntrospectFunc`.-wrap_DBusSubtreeIntrospectFunc ::-    Maybe (Ptr (FunPtr C_DBusSubtreeIntrospectFunc)) ->-    DBusSubtreeIntrospectFunc_WithClosures ->-    C_DBusSubtreeIntrospectFunc-wrap_DBusSubtreeIntrospectFunc funptrptr _cb connection sender objectPath node userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    node' <- cstringToText node-    result <- _cb  connection' sender' objectPath' node' userData-    maybeReleaseFunPtr funptrptr-    result' <- B.ManagedPtr.disownBoxed result-    return result'----- callback DBusSubtreeDispatchFunc---          -> Callable {returnType = Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceVTable"})), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "A #GDBusInterfaceVTable or %NULL if you don't want to handle the methods.", sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that was registered with g_dbus_connection_register_subtree().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface name that the method call or property access is for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A node that is a child of @object_path (relative to @object_path) or %NULL for the root of the subtree.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for user data to pass to functions in the returned #GDBusInterfaceVTable (never %NULL).", 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 "The @user_data #gpointer passed to g_dbus_connection_register_subtree().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the @dispatch function in #GDBusSubtreeVTable.\n\nSubtrees are flat.  @node, if non-%NULL, is always exactly one\nsegment of the object path (ie: it never contains a slash).", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_DBusSubtreeDispatchFunc =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr () ->-    Ptr () ->-    IO (Ptr Gio.DBusInterfaceVTable.DBusInterfaceVTable)---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that was registered with g_dbus_connection_register_subtree().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface name that the method call or property access is for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "node", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A node that is a child of @object_path (relative to @object_path) or %NULL for the root of the subtree.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for user data to pass to functions in the returned #GDBusInterfaceVTable (never %NULL).", 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 "The @user_data #gpointer passed to g_dbus_connection_register_subtree().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceVTable"}))--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DBusSubtreeDispatchFunc :: FunPtr C_DBusSubtreeDispatchFunc -> C_DBusSubtreeDispatchFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DBusSubtreeDispatchFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_DBusSubtreeDispatchFunc-    -> a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that was registered with 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name that the method call or property access is for. -}-    -> T.Text-    {- ^ /@node@/: A node that is a child of /@objectPath@/ (relative to /@objectPath@/) or 'Nothing' for the root of the subtree. -}-    -> Ptr ()-    {- ^ /@outUserData@/: Return location for user data to pass to functions in the returned 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' (never 'Nothing'). -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> m Gio.DBusInterfaceVTable.DBusInterfaceVTable-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' or 'Nothing' if you don\'t want to handle the methods. -}-dynamic_DBusSubtreeDispatchFunc __funPtr connection sender objectPath interfaceName node outUserData userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    sender' <- textToCString sender-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    node' <- textToCString node-    result <- (__dynamic_C_DBusSubtreeDispatchFunc __funPtr) connection' sender' objectPath' interfaceName' node' outUserData userData-    checkUnexpectedReturnNULL "dBusSubtreeDispatchFunc" result-    result' <- (newPtr Gio.DBusInterfaceVTable.DBusInterfaceVTable) result-    touchManagedPtr connection-    freeMem sender'-    freeMem objectPath'-    freeMem interfaceName'-    freeMem node'-    return result'---- | Generate a function pointer callable from C code, from a `C_DBusSubtreeDispatchFunc`.-foreign import ccall "wrapper"-    mk_DBusSubtreeDispatchFunc :: C_DBusSubtreeDispatchFunc -> IO (FunPtr C_DBusSubtreeDispatchFunc)--{- |-The type of the /@dispatch@/ function in 'GI.Gio.Structs.DBusSubtreeVTable.DBusSubtreeVTable'.--Subtrees are flat.  /@node@/, if non-'Nothing', is always exactly one-segment of the object path (ie: it never contains a slash).--/Since: 2.26/--}-type DBusSubtreeDispatchFunc =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that was registered with 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name that the method call or property access is for. -}-    -> T.Text-    {- ^ /@node@/: A node that is a child of /@objectPath@/ (relative to /@objectPath@/) or 'Nothing' for the root of the subtree. -}-    -> Ptr ()-    {- ^ /@outUserData@/: Return location for user data to pass to functions in the returned 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' (never 'Nothing'). -}-    -> IO Gio.DBusInterfaceVTable.DBusInterfaceVTable-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' or 'Nothing' if you don\'t want to handle the methods. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusSubtreeDispatchFunc`@.-noDBusSubtreeDispatchFunc :: Maybe DBusSubtreeDispatchFunc-noDBusSubtreeDispatchFunc = Nothing--{- |-The type of the /@dispatch@/ function in 'GI.Gio.Structs.DBusSubtreeVTable.DBusSubtreeVTable'.--Subtrees are flat.  /@node@/, if non-'Nothing', is always exactly one-segment of the object path (ie: it never contains a slash).--/Since: 2.26/--}-type DBusSubtreeDispatchFunc_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that was registered with 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name that the method call or property access is for. -}-    -> T.Text-    {- ^ /@node@/: A node that is a child of /@objectPath@/ (relative to /@objectPath@/) or 'Nothing' for the root of the subtree. -}-    -> Ptr ()-    {- ^ /@outUserData@/: Return location for user data to pass to functions in the returned 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' (never 'Nothing'). -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'. -}-    -> IO Gio.DBusInterfaceVTable.DBusInterfaceVTable-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' or 'Nothing' if you don\'t want to handle the methods. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusSubtreeDispatchFunc_WithClosures`@.-noDBusSubtreeDispatchFunc_WithClosures :: Maybe DBusSubtreeDispatchFunc_WithClosures-noDBusSubtreeDispatchFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DBusSubtreeDispatchFunc :: DBusSubtreeDispatchFunc -> DBusSubtreeDispatchFunc_WithClosures-drop_closures_DBusSubtreeDispatchFunc _f connection sender objectPath interfaceName node outUserData _ = _f connection sender objectPath interfaceName node outUserData---- | Wrap the callback into a `GClosure`.-genClosure_DBusSubtreeDispatchFunc :: MonadIO m => DBusSubtreeDispatchFunc -> m (GClosure C_DBusSubtreeDispatchFunc)-genClosure_DBusSubtreeDispatchFunc cb = liftIO $ do-    let cb' = drop_closures_DBusSubtreeDispatchFunc cb-    let cb'' = wrap_DBusSubtreeDispatchFunc Nothing cb'-    mk_DBusSubtreeDispatchFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `DBusSubtreeDispatchFunc` into a `C_DBusSubtreeDispatchFunc`.-wrap_DBusSubtreeDispatchFunc ::-    Maybe (Ptr (FunPtr C_DBusSubtreeDispatchFunc)) ->-    DBusSubtreeDispatchFunc_WithClosures ->-    C_DBusSubtreeDispatchFunc-wrap_DBusSubtreeDispatchFunc funptrptr _cb connection sender objectPath interfaceName node outUserData userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    node' <- cstringToText node-    result <- _cb  connection' sender' objectPath' interfaceName' node' outUserData userData-    maybeReleaseFunPtr funptrptr-    result' <- unsafeManagedPtrGetPtr result-    return result'----- callback DBusSignalCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the sender of the signal.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that the signal was emitted on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the interface.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the signal.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with parameters for the signal.", 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 passed when subscribing to the signal.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Signature for callback function used in g_dbus_connection_signal_subscribe().", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_DBusSignalCallback =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the sender of the signal.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that the signal was emitted on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the interface.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the signal.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with parameters for the signal.", 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 passed when subscribing to the signal.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DBusSignalCallback :: FunPtr C_DBusSignalCallback -> C_DBusSignalCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DBusSignalCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_DBusSignalCallback-    -> a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@senderName@/: The unique bus name of the sender of the signal. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the signal was emitted on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The name of the interface. -}-    -> T.Text-    {- ^ /@signalName@/: The name of the signal. -}-    -> GVariant-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed when subscribing to the signal. -}-    -> m ()-dynamic_DBusSignalCallback __funPtr connection senderName objectPath interfaceName signalName parameters userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    senderName' <- textToCString senderName-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    signalName' <- textToCString signalName-    parameters' <- unsafeManagedPtrGetPtr parameters-    (__dynamic_C_DBusSignalCallback __funPtr) connection' senderName' objectPath' interfaceName' signalName' parameters' userData-    touchManagedPtr connection-    touchManagedPtr parameters-    freeMem senderName'-    freeMem objectPath'-    freeMem interfaceName'-    freeMem signalName'-    return ()---- | Generate a function pointer callable from C code, from a `C_DBusSignalCallback`.-foreign import ccall "wrapper"-    mk_DBusSignalCallback :: C_DBusSignalCallback -> IO (FunPtr C_DBusSignalCallback)--{- |-Signature for callback function used in 'GI.Gio.Objects.DBusConnection.dBusConnectionSignalSubscribe'.--/Since: 2.26/--}-type DBusSignalCallback =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@senderName@/: The unique bus name of the sender of the signal. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the signal was emitted on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The name of the interface. -}-    -> T.Text-    {- ^ /@signalName@/: The name of the signal. -}-    -> GVariant-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusSignalCallback`@.-noDBusSignalCallback :: Maybe DBusSignalCallback-noDBusSignalCallback = Nothing--{- |-Signature for callback function used in 'GI.Gio.Objects.DBusConnection.dBusConnectionSignalSubscribe'.--/Since: 2.26/--}-type DBusSignalCallback_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@senderName@/: The unique bus name of the sender of the signal. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the signal was emitted on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The name of the interface. -}-    -> T.Text-    {- ^ /@signalName@/: The name of the signal. -}-    -> GVariant-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed when subscribing to the signal. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusSignalCallback_WithClosures`@.-noDBusSignalCallback_WithClosures :: Maybe DBusSignalCallback_WithClosures-noDBusSignalCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DBusSignalCallback :: DBusSignalCallback -> DBusSignalCallback_WithClosures-drop_closures_DBusSignalCallback _f connection senderName objectPath interfaceName signalName parameters _ = _f connection senderName objectPath interfaceName signalName parameters---- | Wrap the callback into a `GClosure`.-genClosure_DBusSignalCallback :: MonadIO m => DBusSignalCallback -> m (GClosure C_DBusSignalCallback)-genClosure_DBusSignalCallback cb = liftIO $ do-    let cb' = drop_closures_DBusSignalCallback cb-    let cb'' = wrap_DBusSignalCallback Nothing cb'-    mk_DBusSignalCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `DBusSignalCallback` into a `C_DBusSignalCallback`.-wrap_DBusSignalCallback ::-    Maybe (Ptr (FunPtr C_DBusSignalCallback)) ->-    DBusSignalCallback_WithClosures ->-    C_DBusSignalCallback-wrap_DBusSignalCallback funptrptr _cb connection senderName objectPath interfaceName signalName parameters userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    senderName' <- cstringToText senderName-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    signalName' <- cstringToText signalName-    parameters' <- B.GVariant.newGVariantFromPtr parameters-    _cb  connection' senderName' objectPath' interfaceName' signalName' parameters' userData-    maybeReleaseFunPtr funptrptr----- callback DBusProxyTypeFunc---          -> Callable {returnType = Just (TBasicType TGType), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "A #GType to use for the remote object. The returned type\n  must be a #GDBusProxy or #GDBusObjectProxy -derived\n  type.", sinceVersion = Nothing}, args = [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path of the remote object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The interface name of the remote object or %NULL if a #GDBusObjectProxy #GType is requested.", 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 "Function signature for a function used to determine the #GType to\nuse for an interface proxy (if @interface_name is not %NULL) or\nobject proxy (if @interface_name is %NULL).\n\nThis function is called in the\n[thread-default main loop][g-main-context-push-thread-default]\nthat @manager was constructed in.", sinceVersion = Just "2.30"}}--- | Type for the callback on the (unwrapped) C side.-type C_DBusProxyTypeFunc =-    Ptr Gio.DBusObjectManagerClient.DBusObjectManagerClient ->-    CString ->-    CString ->-    Ptr () ->-    IO CGType---- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path of the remote object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The interface name of the remote object or %NULL if a #GDBusObjectProxy #GType is requested.", 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 TGType)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DBusProxyTypeFunc :: FunPtr C_DBusProxyTypeFunc -> C_DBusProxyTypeFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DBusProxyTypeFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusObjectManagerClient.IsDBusObjectManagerClient a) =>-    FunPtr C_DBusProxyTypeFunc-    -> a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path of the remote object. -}-    -> Maybe (T.Text)-    {- ^ /@interfaceName@/: The interface name of the remote object or 'Nothing' if a 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' 'GType' is requested. -}-    -> Ptr ()-    {- ^ /@userData@/: User data. -}-    -> m GType-    {- ^ __Returns:__ A 'GType' to use for the remote object. The returned type-  must be a 'GI.Gio.Objects.DBusProxy.DBusProxy' or 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' -derived-  type. -}-dynamic_DBusProxyTypeFunc __funPtr manager objectPath interfaceName userData = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    objectPath' <- textToCString objectPath-    maybeInterfaceName <- case interfaceName of-        Nothing -> return nullPtr-        Just jInterfaceName -> do-            jInterfaceName' <- textToCString jInterfaceName-            return jInterfaceName'-    result <- (__dynamic_C_DBusProxyTypeFunc __funPtr) manager' objectPath' maybeInterfaceName userData-    let result' = GType result-    touchManagedPtr manager-    freeMem objectPath'-    freeMem maybeInterfaceName-    return result'---- | Generate a function pointer callable from C code, from a `C_DBusProxyTypeFunc`.-foreign import ccall "wrapper"-    mk_DBusProxyTypeFunc :: C_DBusProxyTypeFunc -> IO (FunPtr C_DBusProxyTypeFunc)--{- |-Function signature for a function used to determine the 'GType' to-use for an interface proxy (if /@interfaceName@/ is not 'Nothing') or-object proxy (if /@interfaceName@/ is 'Nothing').--This function is called in the-[thread-default main loop][g-main-context-push-thread-default]-that /@manager@/ was constructed in.--/Since: 2.30/--}-type DBusProxyTypeFunc =-    Gio.DBusObjectManagerClient.DBusObjectManagerClient-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path of the remote object. -}-    -> Maybe T.Text-    {- ^ /@interfaceName@/: The interface name of the remote object or 'Nothing' if a 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' 'GType' is requested. -}-    -> IO GType-    {- ^ __Returns:__ A 'GType' to use for the remote object. The returned type-  must be a 'GI.Gio.Objects.DBusProxy.DBusProxy' or 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' -derived-  type. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusProxyTypeFunc`@.-noDBusProxyTypeFunc :: Maybe DBusProxyTypeFunc-noDBusProxyTypeFunc = Nothing--{- |-Function signature for a function used to determine the 'GType' to-use for an interface proxy (if /@interfaceName@/ is not 'Nothing') or-object proxy (if /@interfaceName@/ is 'Nothing').--This function is called in the-[thread-default main loop][g-main-context-push-thread-default]-that /@manager@/ was constructed in.--/Since: 2.30/--}-type DBusProxyTypeFunc_WithClosures =-    Gio.DBusObjectManagerClient.DBusObjectManagerClient-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path of the remote object. -}-    -> Maybe T.Text-    {- ^ /@interfaceName@/: The interface name of the remote object or 'Nothing' if a 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' 'GType' is requested. -}-    -> Ptr ()-    {- ^ /@userData@/: User data. -}-    -> IO GType-    {- ^ __Returns:__ A 'GType' to use for the remote object. The returned type-  must be a 'GI.Gio.Objects.DBusProxy.DBusProxy' or 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' -derived-  type. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusProxyTypeFunc_WithClosures`@.-noDBusProxyTypeFunc_WithClosures :: Maybe DBusProxyTypeFunc_WithClosures-noDBusProxyTypeFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DBusProxyTypeFunc :: DBusProxyTypeFunc -> DBusProxyTypeFunc_WithClosures-drop_closures_DBusProxyTypeFunc _f manager objectPath interfaceName _ = _f manager objectPath interfaceName---- | Wrap the callback into a `GClosure`.-genClosure_DBusProxyTypeFunc :: MonadIO m => DBusProxyTypeFunc -> m (GClosure C_DBusProxyTypeFunc)-genClosure_DBusProxyTypeFunc cb = liftIO $ do-    let cb' = drop_closures_DBusProxyTypeFunc cb-    let cb'' = wrap_DBusProxyTypeFunc Nothing cb'-    mk_DBusProxyTypeFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `DBusProxyTypeFunc` into a `C_DBusProxyTypeFunc`.-wrap_DBusProxyTypeFunc ::-    Maybe (Ptr (FunPtr C_DBusProxyTypeFunc)) ->-    DBusProxyTypeFunc_WithClosures ->-    C_DBusProxyTypeFunc-wrap_DBusProxyTypeFunc funptrptr _cb manager objectPath interfaceName userData = do-    manager' <- (newObject Gio.DBusObjectManagerClient.DBusObjectManagerClient) manager-    objectPath' <- cstringToText objectPath-    maybeInterfaceName <--        if interfaceName == nullPtr-        then return Nothing-        else do-            interfaceName' <- cstringToText interfaceName-            return $ Just interfaceName'-    result <- _cb  manager' objectPath' maybeInterfaceName userData-    maybeReleaseFunPtr funptrptr-    let result' = gtypeToCGType result-    return result'----- callback DBusMessageFilterFunction---          -> Callable {returnType = Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"})), returnMayBeNull = True, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "A #GDBusMessage that will be freed with\ng_object_unref() or %NULL to drop the message. Passive filter\nfunctions can simply return the passed @message object.", sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A locked #GDBusMessage that the filter function takes ownership of.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "incoming", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if it is a message received from the other peer, %FALSE if it is\na message to be sent to the other peer.", 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 passed when adding the filter.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Signature for function used in g_dbus_connection_add_filter().\n\nA filter function is passed a #GDBusMessage and expected to return\na #GDBusMessage too. Passive filter functions that don't modify the\nmessage can simply return the @message object:\n|[\nstatic GDBusMessage *\npassive_filter (GDBusConnection *connection\n                GDBusMessage    *message,\n                gboolean         incoming,\n                gpointer         user_data)\n{\n  // inspect @message\n  return message;\n}\n]|\nFilter functions that wants to drop a message can simply return %NULL:\n|[\nstatic GDBusMessage *\ndrop_filter (GDBusConnection *connection\n             GDBusMessage    *message,\n             gboolean         incoming,\n             gpointer         user_data)\n{\n  if (should_drop_message)\n    {\n      g_object_unref (message);\n      message = NULL;\n    }\n  return message;\n}\n]|\nFinally, a filter function may modify a message by copying it:\n|[\nstatic GDBusMessage *\nmodifying_filter (GDBusConnection *connection\n                  GDBusMessage    *message,\n                  gboolean         incoming,\n                  gpointer         user_data)\n{\n  GDBusMessage *copy;\n  GError *error;\n\n  error = NULL;\n  copy = g_dbus_message_copy (message, &error);\n  // handle @error being set\n  g_object_unref (message);\n\n  // modify @copy\n\n  return copy;\n}\n]|\nIf the returned #GDBusMessage is different from @message and cannot\nbe sent on @connection (it could use features, such as file\ndescriptors, not compatible with @connection), then a warning is\nlogged to standard error. Applications can\ncheck this ahead of time using g_dbus_message_to_blob() passing a\n#GDBusCapabilityFlags value obtained from @connection.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_DBusMessageFilterFunction =-    Ptr Gio.DBusConnection.DBusConnection ->-    Ptr Gio.DBusMessage.DBusMessage ->-    CInt ->-    Ptr () ->-    IO (Ptr Gio.DBusMessage.DBusMessage)---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A locked #GDBusMessage that the filter function takes ownership of.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "incoming", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if it is a message received from the other peer, %FALSE if it is\na message to be sent to the other peer.", 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 passed when adding the filter.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DBusMessageFilterFunction :: FunPtr C_DBusMessageFilterFunction -> C_DBusMessageFilterFunction---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DBusMessageFilterFunction ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.DBusMessage.IsDBusMessage b) =>-    FunPtr C_DBusMessageFilterFunction-    -> a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> b-    {- ^ /@message@/: A locked 'GI.Gio.Objects.DBusMessage.DBusMessage' that the filter function takes ownership of. -}-    -> Bool-    {- ^ /@incoming@/: 'True' if it is a message received from the other peer, 'False' if it is-a message to be sent to the other peer. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed when adding the filter. -}-    -> m (Maybe Gio.DBusMessage.DBusMessage)-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusMessage.DBusMessage' that will be freed with-'GI.GObject.Objects.Object.objectUnref' or 'Nothing' to drop the message. Passive filter-functions can simply return the passed /@message@/ object. -}-dynamic_DBusMessageFilterFunction __funPtr connection message incoming userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    message' <- B.ManagedPtr.disownObject message-    let incoming' = (fromIntegral . fromEnum) incoming-    result <- (__dynamic_C_DBusMessageFilterFunction __funPtr) connection' message' incoming' userData-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Gio.DBusMessage.DBusMessage) result'-        return result''-    touchManagedPtr connection-    touchManagedPtr message-    return maybeResult---- | Generate a function pointer callable from C code, from a `C_DBusMessageFilterFunction`.-foreign import ccall "wrapper"-    mk_DBusMessageFilterFunction :: C_DBusMessageFilterFunction -> IO (FunPtr C_DBusMessageFilterFunction)--{- |-Signature for function used in 'GI.Gio.Objects.DBusConnection.dBusConnectionAddFilter'.--A filter function is passed a 'GI.Gio.Objects.DBusMessage.DBusMessage' and expected to return-a 'GI.Gio.Objects.DBusMessage.DBusMessage' too. Passive filter functions that don\'t modify the-message can simply return the /@message@/ object:->->static GDBusMessage *->passive_filter (GDBusConnection *connection->                GDBusMessage    *message,->                gboolean         incoming,->                gpointer         user_data)->{->  // inspect @message->  return message;->}--Filter functions that wants to drop a message can simply return 'Nothing':->->static GDBusMessage *->drop_filter (GDBusConnection *connection->             GDBusMessage    *message,->             gboolean         incoming,->             gpointer         user_data)->{->  if (should_drop_message)->    {->      g_object_unref (message);->      message = NULL;->    }->  return message;->}--Finally, a filter function may modify a message by copying it:->->static GDBusMessage *->modifying_filter (GDBusConnection *connection->                  GDBusMessage    *message,->                  gboolean         incoming,->                  gpointer         user_data)->{->  GDBusMessage *copy;->  GError *error;->->  error = NULL;->  copy = g_dbus_message_copy (message, &error);->  // handle @error being set->  g_object_unref (message);->->  // modify @copy->->  return copy;->}--If the returned 'GI.Gio.Objects.DBusMessage.DBusMessage' is different from /@message@/ and cannot-be sent on /@connection@/ (it could use features, such as file-descriptors, not compatible with /@connection@/), then a warning is-logged to standard error. Applications can-check this ahead of time using 'GI.Gio.Objects.DBusMessage.dBusMessageToBlob' passing a-'GI.Gio.Flags.DBusCapabilityFlags' value obtained from /@connection@/.--/Since: 2.26/--}-type DBusMessageFilterFunction =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> Gio.DBusMessage.DBusMessage-    {- ^ /@message@/: A locked 'GI.Gio.Objects.DBusMessage.DBusMessage' that the filter function takes ownership of. -}-    -> Bool-    {- ^ /@incoming@/: 'True' if it is a message received from the other peer, 'False' if it is-a message to be sent to the other peer. -}-    -> IO (Maybe Gio.DBusMessage.DBusMessage)-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusMessage.DBusMessage' that will be freed with-'GI.GObject.Objects.Object.objectUnref' or 'Nothing' to drop the message. Passive filter-functions can simply return the passed /@message@/ object. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusMessageFilterFunction`@.-noDBusMessageFilterFunction :: Maybe DBusMessageFilterFunction-noDBusMessageFilterFunction = Nothing--{- |-Signature for function used in 'GI.Gio.Objects.DBusConnection.dBusConnectionAddFilter'.--A filter function is passed a 'GI.Gio.Objects.DBusMessage.DBusMessage' and expected to return-a 'GI.Gio.Objects.DBusMessage.DBusMessage' too. Passive filter functions that don\'t modify the-message can simply return the /@message@/ object:->->static GDBusMessage *->passive_filter (GDBusConnection *connection->                GDBusMessage    *message,->                gboolean         incoming,->                gpointer         user_data)->{->  // inspect @message->  return message;->}--Filter functions that wants to drop a message can simply return 'Nothing':->->static GDBusMessage *->drop_filter (GDBusConnection *connection->             GDBusMessage    *message,->             gboolean         incoming,->             gpointer         user_data)->{->  if (should_drop_message)->    {->      g_object_unref (message);->      message = NULL;->    }->  return message;->}--Finally, a filter function may modify a message by copying it:->->static GDBusMessage *->modifying_filter (GDBusConnection *connection->                  GDBusMessage    *message,->                  gboolean         incoming,->                  gpointer         user_data)->{->  GDBusMessage *copy;->  GError *error;->->  error = NULL;->  copy = g_dbus_message_copy (message, &error);->  // handle @error being set->  g_object_unref (message);->->  // modify @copy->->  return copy;->}--If the returned 'GI.Gio.Objects.DBusMessage.DBusMessage' is different from /@message@/ and cannot-be sent on /@connection@/ (it could use features, such as file-descriptors, not compatible with /@connection@/), then a warning is-logged to standard error. Applications can-check this ahead of time using 'GI.Gio.Objects.DBusMessage.dBusMessageToBlob' passing a-'GI.Gio.Flags.DBusCapabilityFlags' value obtained from /@connection@/.--/Since: 2.26/--}-type DBusMessageFilterFunction_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> Gio.DBusMessage.DBusMessage-    {- ^ /@message@/: A locked 'GI.Gio.Objects.DBusMessage.DBusMessage' that the filter function takes ownership of. -}-    -> Bool-    {- ^ /@incoming@/: 'True' if it is a message received from the other peer, 'False' if it is-a message to be sent to the other peer. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed when adding the filter. -}-    -> IO (Maybe Gio.DBusMessage.DBusMessage)-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusMessage.DBusMessage' that will be freed with-'GI.GObject.Objects.Object.objectUnref' or 'Nothing' to drop the message. Passive filter-functions can simply return the passed /@message@/ object. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusMessageFilterFunction_WithClosures`@.-noDBusMessageFilterFunction_WithClosures :: Maybe DBusMessageFilterFunction_WithClosures-noDBusMessageFilterFunction_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DBusMessageFilterFunction :: DBusMessageFilterFunction -> DBusMessageFilterFunction_WithClosures-drop_closures_DBusMessageFilterFunction _f connection message incoming _ = _f connection message incoming---- | Wrap the callback into a `GClosure`.-genClosure_DBusMessageFilterFunction :: MonadIO m => DBusMessageFilterFunction -> m (GClosure C_DBusMessageFilterFunction)-genClosure_DBusMessageFilterFunction cb = liftIO $ do-    let cb' = drop_closures_DBusMessageFilterFunction cb-    let cb'' = wrap_DBusMessageFilterFunction Nothing cb'-    mk_DBusMessageFilterFunction cb'' >>= B.GClosure.newGClosure----- | Wrap a `DBusMessageFilterFunction` into a `C_DBusMessageFilterFunction`.-wrap_DBusMessageFilterFunction ::-    Maybe (Ptr (FunPtr C_DBusMessageFilterFunction)) ->-    DBusMessageFilterFunction_WithClosures ->-    C_DBusMessageFilterFunction-wrap_DBusMessageFilterFunction funptrptr _cb connection message incoming userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    message' <- (wrapObject Gio.DBusMessage.DBusMessage) message-    let incoming' = (/= 0) incoming-    result <- _cb  connection' message' incoming' userData-    maybeReleaseFunPtr funptrptr-    maybeM nullPtr result $ \result' -> do-        result'' <- B.ManagedPtr.disownObject result'-        return result''----- callback DBusInterfaceSetPropertyFunc---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if the property was set to @value, %FALSE if @error is set.", sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that the method was invoked on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface name for the property.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the property to get the value of.", 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 set the property to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for error.", 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 "The @user_data #gpointer passed to g_dbus_connection_register_object().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the @set_property function in #GDBusInterfaceVTable.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_DBusInterfaceSetPropertyFunc =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr GError ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that the method was invoked on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface name for the property.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the property to get the value of.", 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 set the property to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for error.", 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 "The @user_data #gpointer passed to g_dbus_connection_register_object().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DBusInterfaceSetPropertyFunc :: FunPtr C_DBusInterfaceSetPropertyFunc -> C_DBusInterfaceSetPropertyFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DBusInterfaceSetPropertyFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_DBusInterfaceSetPropertyFunc-    -> a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name for the property. -}-    -> T.Text-    {- ^ /@propertyName@/: The name of the property to get the value of. -}-    -> GVariant-    {- ^ /@value@/: The value to set the property to. -}-    -> GError-    {- ^ /@error@/: Return location for error. -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to @/g_dbus_connection_register_object()/@. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the property was set to /@value@/, 'False' if /@error@/ is set. -}-dynamic_DBusInterfaceSetPropertyFunc __funPtr connection sender objectPath interfaceName propertyName value error_ userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    sender' <- textToCString sender-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    propertyName' <- textToCString propertyName-    value' <- unsafeManagedPtrGetPtr value-    error_' <- unsafeManagedPtrGetPtr error_-    result <- (__dynamic_C_DBusInterfaceSetPropertyFunc __funPtr) connection' sender' objectPath' interfaceName' propertyName' value' error_' userData-    let result' = (/= 0) result-    touchManagedPtr connection-    touchManagedPtr value-    touchManagedPtr error_-    freeMem sender'-    freeMem objectPath'-    freeMem interfaceName'-    freeMem propertyName'-    return result'---- | Generate a function pointer callable from C code, from a `C_DBusInterfaceSetPropertyFunc`.-foreign import ccall "wrapper"-    mk_DBusInterfaceSetPropertyFunc :: C_DBusInterfaceSetPropertyFunc -> IO (FunPtr C_DBusInterfaceSetPropertyFunc)--{- |-The type of the /@setProperty@/ function in 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable'.--/Since: 2.26/--}-type DBusInterfaceSetPropertyFunc =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name for the property. -}-    -> T.Text-    {- ^ /@propertyName@/: The name of the property to get the value of. -}-    -> GVariant-    {- ^ /@value@/: The value to set the property to. -}-    -> GError-    {- ^ /@error@/: Return location for error. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if the property was set to /@value@/, 'False' if /@error@/ is set. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusInterfaceSetPropertyFunc`@.-noDBusInterfaceSetPropertyFunc :: Maybe DBusInterfaceSetPropertyFunc-noDBusInterfaceSetPropertyFunc = Nothing--{- |-The type of the /@setProperty@/ function in 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable'.--/Since: 2.26/--}-type DBusInterfaceSetPropertyFunc_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name for the property. -}-    -> T.Text-    {- ^ /@propertyName@/: The name of the property to get the value of. -}-    -> GVariant-    {- ^ /@value@/: The value to set the property to. -}-    -> GError-    {- ^ /@error@/: Return location for error. -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to @/g_dbus_connection_register_object()/@. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if the property was set to /@value@/, 'False' if /@error@/ is set. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusInterfaceSetPropertyFunc_WithClosures`@.-noDBusInterfaceSetPropertyFunc_WithClosures :: Maybe DBusInterfaceSetPropertyFunc_WithClosures-noDBusInterfaceSetPropertyFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DBusInterfaceSetPropertyFunc :: DBusInterfaceSetPropertyFunc -> DBusInterfaceSetPropertyFunc_WithClosures-drop_closures_DBusInterfaceSetPropertyFunc _f connection sender objectPath interfaceName propertyName value error_ _ = _f connection sender objectPath interfaceName propertyName value error_---- | Wrap the callback into a `GClosure`.-genClosure_DBusInterfaceSetPropertyFunc :: MonadIO m => DBusInterfaceSetPropertyFunc -> m (GClosure C_DBusInterfaceSetPropertyFunc)-genClosure_DBusInterfaceSetPropertyFunc cb = liftIO $ do-    let cb' = drop_closures_DBusInterfaceSetPropertyFunc cb-    let cb'' = wrap_DBusInterfaceSetPropertyFunc Nothing cb'-    mk_DBusInterfaceSetPropertyFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `DBusInterfaceSetPropertyFunc` into a `C_DBusInterfaceSetPropertyFunc`.-wrap_DBusInterfaceSetPropertyFunc ::-    Maybe (Ptr (FunPtr C_DBusInterfaceSetPropertyFunc)) ->-    DBusInterfaceSetPropertyFunc_WithClosures ->-    C_DBusInterfaceSetPropertyFunc-wrap_DBusInterfaceSetPropertyFunc funptrptr _cb connection sender objectPath interfaceName propertyName value error_ userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    propertyName' <- cstringToText propertyName-    value' <- B.GVariant.newGVariantFromPtr value-    error_' <- (newBoxed GError) error_-    result <- _cb  connection' sender' objectPath' interfaceName' propertyName' value' error_' userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback DBusInterfaceMethodCallFunc---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that the method was invoked on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface name the method was invoked on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the method that was invoked.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with parameters.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation object that must be used to return a value or error.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The @user_data #gpointer passed to g_dbus_connection_register_object().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the @method_call function in #GDBusInterfaceVTable.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_DBusInterfaceMethodCallFunc =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr Gio.DBusMethodInvocation.DBusMethodInvocation ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that the method was invoked on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface name the method was invoked on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the method that was invoked.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with parameters.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation object that must be used to return a value or error.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The @user_data #gpointer passed to g_dbus_connection_register_object().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DBusInterfaceMethodCallFunc :: FunPtr C_DBusInterfaceMethodCallFunc -> C_DBusInterfaceMethodCallFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DBusInterfaceMethodCallFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.DBusMethodInvocation.IsDBusMethodInvocation b) =>-    FunPtr C_DBusInterfaceMethodCallFunc-    -> a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name the method was invoked on. -}-    -> T.Text-    {- ^ /@methodName@/: The name of the method that was invoked. -}-    -> GVariant-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters. -}-    -> b-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation' object that must be used to return a value or error. -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to @/g_dbus_connection_register_object()/@. -}-    -> m ()-dynamic_DBusInterfaceMethodCallFunc __funPtr connection sender objectPath interfaceName methodName parameters invocation userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    sender' <- textToCString sender-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    methodName' <- textToCString methodName-    parameters' <- unsafeManagedPtrGetPtr parameters-    invocation' <- B.ManagedPtr.disownObject invocation-    (__dynamic_C_DBusInterfaceMethodCallFunc __funPtr) connection' sender' objectPath' interfaceName' methodName' parameters' invocation' userData-    touchManagedPtr connection-    touchManagedPtr parameters-    touchManagedPtr invocation-    freeMem sender'-    freeMem objectPath'-    freeMem interfaceName'-    freeMem methodName'-    return ()---- | Generate a function pointer callable from C code, from a `C_DBusInterfaceMethodCallFunc`.-foreign import ccall "wrapper"-    mk_DBusInterfaceMethodCallFunc :: C_DBusInterfaceMethodCallFunc -> IO (FunPtr C_DBusInterfaceMethodCallFunc)--{- |-The type of the /@methodCall@/ function in 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable'.--/Since: 2.26/--}-type DBusInterfaceMethodCallFunc =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name the method was invoked on. -}-    -> T.Text-    {- ^ /@methodName@/: The name of the method that was invoked. -}-    -> GVariant-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters. -}-    -> Gio.DBusMethodInvocation.DBusMethodInvocation-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation' object that must be used to return a value or error. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusInterfaceMethodCallFunc`@.-noDBusInterfaceMethodCallFunc :: Maybe DBusInterfaceMethodCallFunc-noDBusInterfaceMethodCallFunc = Nothing--{- |-The type of the /@methodCall@/ function in 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable'.--/Since: 2.26/--}-type DBusInterfaceMethodCallFunc_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name the method was invoked on. -}-    -> T.Text-    {- ^ /@methodName@/: The name of the method that was invoked. -}-    -> GVariant-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters. -}-    -> Gio.DBusMethodInvocation.DBusMethodInvocation-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation' object that must be used to return a value or error. -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to @/g_dbus_connection_register_object()/@. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusInterfaceMethodCallFunc_WithClosures`@.-noDBusInterfaceMethodCallFunc_WithClosures :: Maybe DBusInterfaceMethodCallFunc_WithClosures-noDBusInterfaceMethodCallFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DBusInterfaceMethodCallFunc :: DBusInterfaceMethodCallFunc -> DBusInterfaceMethodCallFunc_WithClosures-drop_closures_DBusInterfaceMethodCallFunc _f connection sender objectPath interfaceName methodName parameters invocation _ = _f connection sender objectPath interfaceName methodName parameters invocation---- | Wrap the callback into a `GClosure`.-genClosure_DBusInterfaceMethodCallFunc :: MonadIO m => DBusInterfaceMethodCallFunc -> m (GClosure C_DBusInterfaceMethodCallFunc)-genClosure_DBusInterfaceMethodCallFunc cb = liftIO $ do-    let cb' = drop_closures_DBusInterfaceMethodCallFunc cb-    let cb'' = wrap_DBusInterfaceMethodCallFunc Nothing cb'-    mk_DBusInterfaceMethodCallFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `DBusInterfaceMethodCallFunc` into a `C_DBusInterfaceMethodCallFunc`.-wrap_DBusInterfaceMethodCallFunc ::-    Maybe (Ptr (FunPtr C_DBusInterfaceMethodCallFunc)) ->-    DBusInterfaceMethodCallFunc_WithClosures ->-    C_DBusInterfaceMethodCallFunc-wrap_DBusInterfaceMethodCallFunc funptrptr _cb connection sender objectPath interfaceName methodName parameters invocation userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    methodName' <- cstringToText methodName-    parameters' <- B.GVariant.newGVariantFromPtr parameters-    invocation' <- (wrapObject Gio.DBusMethodInvocation.DBusMethodInvocation) invocation-    _cb  connection' sender' objectPath' interfaceName' methodName' parameters' invocation' userData-    maybeReleaseFunPtr funptrptr----- callback DBusInterfaceGetPropertyFunc---          -> Callable {returnType = Just TVariant, returnMayBeNull = False, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "A #GVariant with the value for @property_name or %NULL if\n    @error is set. If the returned #GVariant is floating, it is\n    consumed - otherwise its reference count is decreased by one.", sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that the method was invoked on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface name for the property.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the property to get the value of.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for error.", 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 "The @user_data #gpointer passed to g_dbus_connection_register_object().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The type of the @get_property function in #GDBusInterfaceVTable.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_DBusInterfaceGetPropertyFunc =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    CString ->-    CString ->-    CString ->-    Ptr GError ->-    Ptr () ->-    IO (Ptr GVariant)---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The unique bus name of the remote caller.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path that the method was invoked on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface name for the property.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the property to get the value of.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for error.", 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 "The @user_data #gpointer passed to g_dbus_connection_register_object().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_DBusInterfaceGetPropertyFunc :: FunPtr C_DBusInterfaceGetPropertyFunc -> C_DBusInterfaceGetPropertyFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_DBusInterfaceGetPropertyFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_DBusInterfaceGetPropertyFunc-    -> a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name for the property. -}-    -> T.Text-    {- ^ /@propertyName@/: The name of the property to get the value of. -}-    -> GError-    {- ^ /@error@/: Return location for error. -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to @/g_dbus_connection_register_object()/@. -}-    -> m GVariant-    {- ^ __Returns:__ A 'GVariant' with the value for /@propertyName@/ or 'Nothing' if-    /@error@/ is set. If the returned 'GVariant' is floating, it is-    consumed - otherwise its reference count is decreased by one. -}-dynamic_DBusInterfaceGetPropertyFunc __funPtr connection sender objectPath interfaceName propertyName error_ userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    sender' <- textToCString sender-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    propertyName' <- textToCString propertyName-    error_' <- unsafeManagedPtrGetPtr error_-    result <- (__dynamic_C_DBusInterfaceGetPropertyFunc __funPtr) connection' sender' objectPath' interfaceName' propertyName' error_' userData-    checkUnexpectedReturnNULL "dBusInterfaceGetPropertyFunc" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr connection-    touchManagedPtr error_-    freeMem sender'-    freeMem objectPath'-    freeMem interfaceName'-    freeMem propertyName'-    return result'---- | Generate a function pointer callable from C code, from a `C_DBusInterfaceGetPropertyFunc`.-foreign import ccall "wrapper"-    mk_DBusInterfaceGetPropertyFunc :: C_DBusInterfaceGetPropertyFunc -> IO (FunPtr C_DBusInterfaceGetPropertyFunc)--{- |-The type of the /@getProperty@/ function in 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable'.--/Since: 2.26/--}-type DBusInterfaceGetPropertyFunc =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name for the property. -}-    -> T.Text-    {- ^ /@propertyName@/: The name of the property to get the value of. -}-    -> GError-    {- ^ /@error@/: Return location for error. -}-    -> IO GVariant-    {- ^ __Returns:__ A 'GVariant' with the value for /@propertyName@/ or 'Nothing' if-    /@error@/ is set. If the returned 'GVariant' is floating, it is-    consumed - otherwise its reference count is decreased by one. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusInterfaceGetPropertyFunc`@.-noDBusInterfaceGetPropertyFunc :: Maybe DBusInterfaceGetPropertyFunc-noDBusInterfaceGetPropertyFunc = Nothing--{- |-The type of the /@getProperty@/ function in 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable'.--/Since: 2.26/--}-type DBusInterfaceGetPropertyFunc_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@sender@/: The unique bus name of the remote caller. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path that the method was invoked on. -}-    -> T.Text-    {- ^ /@interfaceName@/: The D-Bus interface name for the property. -}-    -> T.Text-    {- ^ /@propertyName@/: The name of the property to get the value of. -}-    -> GError-    {- ^ /@error@/: Return location for error. -}-    -> Ptr ()-    {- ^ /@userData@/: The /@userData@/ @/gpointer/@ passed to @/g_dbus_connection_register_object()/@. -}-    -> IO GVariant-    {- ^ __Returns:__ A 'GVariant' with the value for /@propertyName@/ or 'Nothing' if-    /@error@/ is set. If the returned 'GVariant' is floating, it is-    consumed - otherwise its reference count is decreased by one. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusInterfaceGetPropertyFunc_WithClosures`@.-noDBusInterfaceGetPropertyFunc_WithClosures :: Maybe DBusInterfaceGetPropertyFunc_WithClosures-noDBusInterfaceGetPropertyFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_DBusInterfaceGetPropertyFunc :: DBusInterfaceGetPropertyFunc -> DBusInterfaceGetPropertyFunc_WithClosures-drop_closures_DBusInterfaceGetPropertyFunc _f connection sender objectPath interfaceName propertyName error_ _ = _f connection sender objectPath interfaceName propertyName error_---- | Wrap the callback into a `GClosure`.-genClosure_DBusInterfaceGetPropertyFunc :: MonadIO m => DBusInterfaceGetPropertyFunc -> m (GClosure C_DBusInterfaceGetPropertyFunc)-genClosure_DBusInterfaceGetPropertyFunc cb = liftIO $ do-    let cb' = drop_closures_DBusInterfaceGetPropertyFunc cb-    let cb'' = wrap_DBusInterfaceGetPropertyFunc Nothing cb'-    mk_DBusInterfaceGetPropertyFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `DBusInterfaceGetPropertyFunc` into a `C_DBusInterfaceGetPropertyFunc`.-wrap_DBusInterfaceGetPropertyFunc ::-    Maybe (Ptr (FunPtr C_DBusInterfaceGetPropertyFunc)) ->-    DBusInterfaceGetPropertyFunc_WithClosures ->-    C_DBusInterfaceGetPropertyFunc-wrap_DBusInterfaceGetPropertyFunc funptrptr _cb connection sender objectPath interfaceName propertyName error_ userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    sender' <- cstringToText sender-    objectPath' <- cstringToText objectPath-    interfaceName' <- cstringToText interfaceName-    propertyName' <- cstringToText propertyName-    error_' <- (newBoxed GError) error_-    result <- _cb  connection' sender' objectPath' interfaceName' propertyName' error_' userData-    maybeReleaseFunPtr funptrptr-    result' <- B.GVariant.disownGVariant result-    return result'----- callback CancellableSourceFunc---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "it should return %FALSE if the source should be removed.", sinceVersion = Nothing}, args = [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GCancellable", 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 "data passed in by the user.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "This is the function type of the callback used for the #GSource\nreturned by g_cancellable_source_new().", sinceVersion = Just "2.28"}}--- | Type for the callback on the (unwrapped) C side.-type C_CancellableSourceFunc =-    Ptr Gio.Cancellable.Cancellable ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GCancellable", 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 "data passed in by the user.", 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_CancellableSourceFunc :: FunPtr C_CancellableSourceFunc -> C_CancellableSourceFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_CancellableSourceFunc ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    FunPtr C_CancellableSourceFunc-    -> Maybe (a)-    {- ^ /@cancellable@/: the 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> Ptr ()-    {- ^ /@userData@/: data passed in by the user. -}-    -> m Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}-dynamic_CancellableSourceFunc __funPtr cancellable userData = liftIO $ do-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- (__dynamic_C_CancellableSourceFunc __funPtr) maybeCancellable userData-    let result' = (/= 0) result-    whenJust cancellable touchManagedPtr-    return result'---- | Generate a function pointer callable from C code, from a `C_CancellableSourceFunc`.-foreign import ccall "wrapper"-    mk_CancellableSourceFunc :: C_CancellableSourceFunc -> IO (FunPtr C_CancellableSourceFunc)--{- |-This is the function type of the callback used for the 'GI.GLib.Structs.Source.Source'-returned by @/g_cancellable_source_new()/@.--/Since: 2.28/--}-type CancellableSourceFunc =-    Maybe Gio.Cancellable.Cancellable-    {- ^ /@cancellable@/: the 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> IO Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `CancellableSourceFunc`@.-noCancellableSourceFunc :: Maybe CancellableSourceFunc-noCancellableSourceFunc = Nothing--{- |-This is the function type of the callback used for the 'GI.GLib.Structs.Source.Source'-returned by @/g_cancellable_source_new()/@.--/Since: 2.28/--}-type CancellableSourceFunc_WithClosures =-    Maybe Gio.Cancellable.Cancellable-    {- ^ /@cancellable@/: the 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> Ptr ()-    {- ^ /@userData@/: data passed in by the user. -}-    -> IO Bool-    {- ^ __Returns:__ it should return 'False' if the source should be removed. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `CancellableSourceFunc_WithClosures`@.-noCancellableSourceFunc_WithClosures :: Maybe CancellableSourceFunc_WithClosures-noCancellableSourceFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_CancellableSourceFunc :: CancellableSourceFunc -> CancellableSourceFunc_WithClosures-drop_closures_CancellableSourceFunc _f cancellable _ = _f cancellable---- | Wrap the callback into a `GClosure`.-genClosure_CancellableSourceFunc :: MonadIO m => CancellableSourceFunc -> m (GClosure C_CancellableSourceFunc)-genClosure_CancellableSourceFunc cb = liftIO $ do-    let cb' = drop_closures_CancellableSourceFunc cb-    let cb'' = wrap_CancellableSourceFunc Nothing cb'-    mk_CancellableSourceFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `CancellableSourceFunc` into a `C_CancellableSourceFunc`.-wrap_CancellableSourceFunc ::-    Maybe (Ptr (FunPtr C_CancellableSourceFunc)) ->-    CancellableSourceFunc_WithClosures ->-    C_CancellableSourceFunc-wrap_CancellableSourceFunc funptrptr _cb cancellable userData = do-    maybeCancellable <--        if cancellable == nullPtr-        then return Nothing-        else do-            cancellable' <- (newObject Gio.Cancellable.Cancellable) cancellable-            return $ Just cancellable'-    result <- _cb  maybeCancellable userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback BusNameVanishedCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection the name is being watched on, or\n    %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name being watched.", 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 passed to g_bus_watch_name().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Invoked when the name being watched is known not to have to have a owner.\n\nThis is also invoked when the #GDBusConnection on which the watch was\nestablished has been closed.  In that case, @connection will be\n%NULL.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_BusNameVanishedCallback =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection the name is being watched on, or\n    %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name being watched.", 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 passed to g_bus_watch_name().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_BusNameVanishedCallback :: FunPtr C_BusNameVanishedCallback -> C_BusNameVanishedCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_BusNameVanishedCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_BusNameVanishedCallback-    -> a-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' the name is being watched on, or-    'Nothing'. -}-    -> T.Text-    {- ^ /@name@/: The name being watched. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_watch_name()/@. -}-    -> m ()-dynamic_BusNameVanishedCallback __funPtr connection name userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    (__dynamic_C_BusNameVanishedCallback __funPtr) connection' name' userData-    touchManagedPtr connection-    freeMem name'-    return ()---- | Generate a function pointer callable from C code, from a `C_BusNameVanishedCallback`.-foreign import ccall "wrapper"-    mk_BusNameVanishedCallback :: C_BusNameVanishedCallback -> IO (FunPtr C_BusNameVanishedCallback)--{- |-Invoked when the name being watched is known not to have to have a owner.--This is also invoked when the 'GI.Gio.Objects.DBusConnection.DBusConnection' on which the watch was-established has been closed.  In that case, /@connection@/ will be-'Nothing'.--/Since: 2.26/--}-type BusNameVanishedCallback =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' the name is being watched on, or-    'Nothing'. -}-    -> T.Text-    {- ^ /@name@/: The name being watched. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusNameVanishedCallback`@.-noBusNameVanishedCallback :: Maybe BusNameVanishedCallback-noBusNameVanishedCallback = Nothing--{- |-Invoked when the name being watched is known not to have to have a owner.--This is also invoked when the 'GI.Gio.Objects.DBusConnection.DBusConnection' on which the watch was-established has been closed.  In that case, /@connection@/ will be-'Nothing'.--/Since: 2.26/--}-type BusNameVanishedCallback_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' the name is being watched on, or-    'Nothing'. -}-    -> T.Text-    {- ^ /@name@/: The name being watched. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_watch_name()/@. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusNameVanishedCallback_WithClosures`@.-noBusNameVanishedCallback_WithClosures :: Maybe BusNameVanishedCallback_WithClosures-noBusNameVanishedCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_BusNameVanishedCallback :: BusNameVanishedCallback -> BusNameVanishedCallback_WithClosures-drop_closures_BusNameVanishedCallback _f connection name _ = _f connection name---- | Wrap the callback into a `GClosure`.-genClosure_BusNameVanishedCallback :: MonadIO m => BusNameVanishedCallback -> m (GClosure C_BusNameVanishedCallback)-genClosure_BusNameVanishedCallback cb = liftIO $ do-    let cb' = drop_closures_BusNameVanishedCallback cb-    let cb'' = wrap_BusNameVanishedCallback Nothing cb'-    mk_BusNameVanishedCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `BusNameVanishedCallback` into a `C_BusNameVanishedCallback`.-wrap_BusNameVanishedCallback ::-    Maybe (Ptr (FunPtr C_BusNameVanishedCallback)) ->-    BusNameVanishedCallback_WithClosures ->-    C_BusNameVanishedCallback-wrap_BusNameVanishedCallback funptrptr _cb connection name userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    name' <- cstringToText name-    _cb  connection' name' userData-    maybeReleaseFunPtr funptrptr----- callback BusNameLostCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection on which to acquire the name or %NULL if\nthe connection was disconnected.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name being owned.", 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 passed to g_bus_own_name() or g_bus_own_name_on_connection().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Invoked when the name is lost or @connection has been closed.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_BusNameLostCallback =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection on which to acquire the name or %NULL if\nthe connection was disconnected.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name being owned.", 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 passed to g_bus_own_name() or g_bus_own_name_on_connection().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_BusNameLostCallback :: FunPtr C_BusNameLostCallback -> C_BusNameLostCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_BusNameLostCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_BusNameLostCallback-    -> a-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' on which to acquire the name or 'Nothing' if-the connection was disconnected. -}-    -> T.Text-    {- ^ /@name@/: The name being owned. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_own_name()/@ or @/g_bus_own_name_on_connection()/@. -}-    -> m ()-dynamic_BusNameLostCallback __funPtr connection name userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    (__dynamic_C_BusNameLostCallback __funPtr) connection' name' userData-    touchManagedPtr connection-    freeMem name'-    return ()---- | Generate a function pointer callable from C code, from a `C_BusNameLostCallback`.-foreign import ccall "wrapper"-    mk_BusNameLostCallback :: C_BusNameLostCallback -> IO (FunPtr C_BusNameLostCallback)--{- |-Invoked when the name is lost or /@connection@/ has been closed.--/Since: 2.26/--}-type BusNameLostCallback =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' on which to acquire the name or 'Nothing' if-the connection was disconnected. -}-    -> T.Text-    {- ^ /@name@/: The name being owned. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusNameLostCallback`@.-noBusNameLostCallback :: Maybe BusNameLostCallback-noBusNameLostCallback = Nothing--{- |-Invoked when the name is lost or /@connection@/ has been closed.--/Since: 2.26/--}-type BusNameLostCallback_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' on which to acquire the name or 'Nothing' if-the connection was disconnected. -}-    -> T.Text-    {- ^ /@name@/: The name being owned. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_own_name()/@ or @/g_bus_own_name_on_connection()/@. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusNameLostCallback_WithClosures`@.-noBusNameLostCallback_WithClosures :: Maybe BusNameLostCallback_WithClosures-noBusNameLostCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_BusNameLostCallback :: BusNameLostCallback -> BusNameLostCallback_WithClosures-drop_closures_BusNameLostCallback _f connection name _ = _f connection name---- | Wrap the callback into a `GClosure`.-genClosure_BusNameLostCallback :: MonadIO m => BusNameLostCallback -> m (GClosure C_BusNameLostCallback)-genClosure_BusNameLostCallback cb = liftIO $ do-    let cb' = drop_closures_BusNameLostCallback cb-    let cb'' = wrap_BusNameLostCallback Nothing cb'-    mk_BusNameLostCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `BusNameLostCallback` into a `C_BusNameLostCallback`.-wrap_BusNameLostCallback ::-    Maybe (Ptr (FunPtr C_BusNameLostCallback)) ->-    BusNameLostCallback_WithClosures ->-    C_BusNameLostCallback-wrap_BusNameLostCallback funptrptr _cb connection name userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    name' <- cstringToText name-    _cb  connection' name' userData-    maybeReleaseFunPtr funptrptr----- callback BusNameAppearedCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection the name is being watched on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name being watched.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_owner", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Unique name of the owner of the name being watched.", 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 passed to g_bus_watch_name().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Invoked when the name being watched is known to have to have a owner.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_BusNameAppearedCallback =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    CString ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection the name is being watched on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name being watched.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_owner", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Unique name of the owner of the name being watched.", 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 passed to g_bus_watch_name().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_BusNameAppearedCallback :: FunPtr C_BusNameAppearedCallback -> C_BusNameAppearedCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_BusNameAppearedCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_BusNameAppearedCallback-    -> a-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' the name is being watched on. -}-    -> T.Text-    {- ^ /@name@/: The name being watched. -}-    -> T.Text-    {- ^ /@nameOwner@/: Unique name of the owner of the name being watched. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_watch_name()/@. -}-    -> m ()-dynamic_BusNameAppearedCallback __funPtr connection name nameOwner userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    nameOwner' <- textToCString nameOwner-    (__dynamic_C_BusNameAppearedCallback __funPtr) connection' name' nameOwner' userData-    touchManagedPtr connection-    freeMem name'-    freeMem nameOwner'-    return ()---- | Generate a function pointer callable from C code, from a `C_BusNameAppearedCallback`.-foreign import ccall "wrapper"-    mk_BusNameAppearedCallback :: C_BusNameAppearedCallback -> IO (FunPtr C_BusNameAppearedCallback)--{- |-Invoked when the name being watched is known to have to have a owner.--/Since: 2.26/--}-type BusNameAppearedCallback =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' the name is being watched on. -}-    -> T.Text-    {- ^ /@name@/: The name being watched. -}-    -> T.Text-    {- ^ /@nameOwner@/: Unique name of the owner of the name being watched. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusNameAppearedCallback`@.-noBusNameAppearedCallback :: Maybe BusNameAppearedCallback-noBusNameAppearedCallback = Nothing--{- |-Invoked when the name being watched is known to have to have a owner.--/Since: 2.26/--}-type BusNameAppearedCallback_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' the name is being watched on. -}-    -> T.Text-    {- ^ /@name@/: The name being watched. -}-    -> T.Text-    {- ^ /@nameOwner@/: Unique name of the owner of the name being watched. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_watch_name()/@. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusNameAppearedCallback_WithClosures`@.-noBusNameAppearedCallback_WithClosures :: Maybe BusNameAppearedCallback_WithClosures-noBusNameAppearedCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_BusNameAppearedCallback :: BusNameAppearedCallback -> BusNameAppearedCallback_WithClosures-drop_closures_BusNameAppearedCallback _f connection name nameOwner _ = _f connection name nameOwner---- | Wrap the callback into a `GClosure`.-genClosure_BusNameAppearedCallback :: MonadIO m => BusNameAppearedCallback -> m (GClosure C_BusNameAppearedCallback)-genClosure_BusNameAppearedCallback cb = liftIO $ do-    let cb' = drop_closures_BusNameAppearedCallback cb-    let cb'' = wrap_BusNameAppearedCallback Nothing cb'-    mk_BusNameAppearedCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `BusNameAppearedCallback` into a `C_BusNameAppearedCallback`.-wrap_BusNameAppearedCallback ::-    Maybe (Ptr (FunPtr C_BusNameAppearedCallback)) ->-    BusNameAppearedCallback_WithClosures ->-    C_BusNameAppearedCallback-wrap_BusNameAppearedCallback funptrptr _cb connection name nameOwner userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    name' <- cstringToText name-    nameOwner' <- cstringToText nameOwner-    _cb  connection' name' nameOwner' userData-    maybeReleaseFunPtr funptrptr----- callback BusNameAcquiredCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection on which to acquired the name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name being owned.", 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 passed to g_bus_own_name() or g_bus_own_name_on_connection().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Invoked when the name is acquired.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_BusNameAcquiredCallback =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection on which to acquired the name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name being owned.", 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 passed to g_bus_own_name() or g_bus_own_name_on_connection().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_BusNameAcquiredCallback :: FunPtr C_BusNameAcquiredCallback -> C_BusNameAcquiredCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_BusNameAcquiredCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_BusNameAcquiredCallback-    -> a-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' on which to acquired the name. -}-    -> T.Text-    {- ^ /@name@/: The name being owned. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_own_name()/@ or @/g_bus_own_name_on_connection()/@. -}-    -> m ()-dynamic_BusNameAcquiredCallback __funPtr connection name userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    (__dynamic_C_BusNameAcquiredCallback __funPtr) connection' name' userData-    touchManagedPtr connection-    freeMem name'-    return ()---- | Generate a function pointer callable from C code, from a `C_BusNameAcquiredCallback`.-foreign import ccall "wrapper"-    mk_BusNameAcquiredCallback :: C_BusNameAcquiredCallback -> IO (FunPtr C_BusNameAcquiredCallback)--{- |-Invoked when the name is acquired.--/Since: 2.26/--}-type BusNameAcquiredCallback =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' on which to acquired the name. -}-    -> T.Text-    {- ^ /@name@/: The name being owned. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusNameAcquiredCallback`@.-noBusNameAcquiredCallback :: Maybe BusNameAcquiredCallback-noBusNameAcquiredCallback = Nothing--{- |-Invoked when the name is acquired.--/Since: 2.26/--}-type BusNameAcquiredCallback_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' on which to acquired the name. -}-    -> T.Text-    {- ^ /@name@/: The name being owned. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_own_name()/@ or @/g_bus_own_name_on_connection()/@. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusNameAcquiredCallback_WithClosures`@.-noBusNameAcquiredCallback_WithClosures :: Maybe BusNameAcquiredCallback_WithClosures-noBusNameAcquiredCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_BusNameAcquiredCallback :: BusNameAcquiredCallback -> BusNameAcquiredCallback_WithClosures-drop_closures_BusNameAcquiredCallback _f connection name _ = _f connection name---- | Wrap the callback into a `GClosure`.-genClosure_BusNameAcquiredCallback :: MonadIO m => BusNameAcquiredCallback -> m (GClosure C_BusNameAcquiredCallback)-genClosure_BusNameAcquiredCallback cb = liftIO $ do-    let cb' = drop_closures_BusNameAcquiredCallback cb-    let cb'' = wrap_BusNameAcquiredCallback Nothing cb'-    mk_BusNameAcquiredCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `BusNameAcquiredCallback` into a `C_BusNameAcquiredCallback`.-wrap_BusNameAcquiredCallback ::-    Maybe (Ptr (FunPtr C_BusNameAcquiredCallback)) ->-    BusNameAcquiredCallback_WithClosures ->-    C_BusNameAcquiredCallback-wrap_BusNameAcquiredCallback funptrptr _cb connection name userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    name' <- cstringToText name-    _cb  connection' name' userData-    maybeReleaseFunPtr funptrptr----- callback BusAcquiredCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection to a message bus.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name that is requested to be owned.", 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 passed to g_bus_own_name().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Invoked when a connection to a message bus has been obtained.", sinceVersion = Just "2.26"}}--- | Type for the callback on the (unwrapped) C side.-type C_BusAcquiredCallback =-    Ptr Gio.DBusConnection.DBusConnection ->-    CString ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GDBusConnection to a message bus.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name that is requested to be owned.", 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 passed to g_bus_own_name().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_BusAcquiredCallback :: FunPtr C_BusAcquiredCallback -> C_BusAcquiredCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_BusAcquiredCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    FunPtr C_BusAcquiredCallback-    -> a-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' to a message bus. -}-    -> T.Text-    {- ^ /@name@/: The name that is requested to be owned. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_own_name()/@. -}-    -> m ()-dynamic_BusAcquiredCallback __funPtr connection name userData = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    (__dynamic_C_BusAcquiredCallback __funPtr) connection' name' userData-    touchManagedPtr connection-    freeMem name'-    return ()---- | Generate a function pointer callable from C code, from a `C_BusAcquiredCallback`.-foreign import ccall "wrapper"-    mk_BusAcquiredCallback :: C_BusAcquiredCallback -> IO (FunPtr C_BusAcquiredCallback)--{- |-Invoked when a connection to a message bus has been obtained.--/Since: 2.26/--}-type BusAcquiredCallback =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' to a message bus. -}-    -> T.Text-    {- ^ /@name@/: The name that is requested to be owned. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusAcquiredCallback`@.-noBusAcquiredCallback :: Maybe BusAcquiredCallback-noBusAcquiredCallback = Nothing--{- |-Invoked when a connection to a message bus has been obtained.--/Since: 2.26/--}-type BusAcquiredCallback_WithClosures =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: The 'GI.Gio.Objects.DBusConnection.DBusConnection' to a message bus. -}-    -> T.Text-    {- ^ /@name@/: The name that is requested to be owned. -}-    -> Ptr ()-    {- ^ /@userData@/: User data passed to @/g_bus_own_name()/@. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `BusAcquiredCallback_WithClosures`@.-noBusAcquiredCallback_WithClosures :: Maybe BusAcquiredCallback_WithClosures-noBusAcquiredCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_BusAcquiredCallback :: BusAcquiredCallback -> BusAcquiredCallback_WithClosures-drop_closures_BusAcquiredCallback _f connection name _ = _f connection name---- | Wrap the callback into a `GClosure`.-genClosure_BusAcquiredCallback :: MonadIO m => BusAcquiredCallback -> m (GClosure C_BusAcquiredCallback)-genClosure_BusAcquiredCallback cb = liftIO $ do-    let cb' = drop_closures_BusAcquiredCallback cb-    let cb'' = wrap_BusAcquiredCallback Nothing cb'-    mk_BusAcquiredCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `BusAcquiredCallback` into a `C_BusAcquiredCallback`.-wrap_BusAcquiredCallback ::-    Maybe (Ptr (FunPtr C_BusAcquiredCallback)) ->-    BusAcquiredCallback_WithClosures ->-    C_BusAcquiredCallback-wrap_BusAcquiredCallback funptrptr _cb connection name userData = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    name' <- cstringToText name-    _cb  connection' name' userData-    maybeReleaseFunPtr funptrptr----- callback AsyncReadyCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the object the asynchronous operation was started with.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult.", 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 passed to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Type definition for a function that will be called back when an asynchronous\noperation within GIO has been completed. #GAsyncReadyCallback\ncallbacks from #GTask are guaranteed to be invoked in a later\niteration of the\n[thread-default main context][g-main-context-push-thread-default]\nwhere the #GTask was created. All other users of\n#GAsyncReadyCallback must likewise call it asynchronously in a\nlater iteration of the main context.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_AsyncReadyCallback =-    Ptr GObject.Object.Object ->-    Ptr Gio.AsyncResult.AsyncResult ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the object the asynchronous operation was started with.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult.", 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 passed to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_AsyncReadyCallback :: FunPtr C_AsyncReadyCallback -> C_AsyncReadyCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_AsyncReadyCallback ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a, Gio.AsyncResult.IsAsyncResult b) =>-    FunPtr C_AsyncReadyCallback-    -> Maybe (a)-    {- ^ /@sourceObject@/: the object the asynchronous operation was started with. -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> Ptr ()-    {- ^ /@userData@/: user data passed to the callback. -}-    -> m ()-dynamic_AsyncReadyCallback __funPtr sourceObject res userData = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    res' <- unsafeManagedPtrCastPtr res-    (__dynamic_C_AsyncReadyCallback __funPtr) maybeSourceObject res' userData-    whenJust sourceObject touchManagedPtr-    touchManagedPtr res-    return ()---- | Generate a function pointer callable from C code, from a `C_AsyncReadyCallback`.-foreign import ccall "wrapper"-    mk_AsyncReadyCallback :: C_AsyncReadyCallback -> IO (FunPtr C_AsyncReadyCallback)--{- |-Type definition for a function that will be called back when an asynchronous-operation within GIO has been completed. 'GI.Gio.Callbacks.AsyncReadyCallback'-callbacks from 'GI.Gio.Objects.Task.Task' are guaranteed to be invoked in a later-iteration of the-[thread-default main context][g-main-context-push-thread-default]-where the 'GI.Gio.Objects.Task.Task' was created. All other users of-'GI.Gio.Callbacks.AsyncReadyCallback' must likewise call it asynchronously in a-later iteration of the main context.--}-type AsyncReadyCallback =-    Maybe GObject.Object.Object-    {- ^ /@sourceObject@/: the object the asynchronous operation was started with. -}-    -> Gio.AsyncResult.AsyncResult-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AsyncReadyCallback`@.-noAsyncReadyCallback :: Maybe AsyncReadyCallback-noAsyncReadyCallback = Nothing--{- |-Type definition for a function that will be called back when an asynchronous-operation within GIO has been completed. 'GI.Gio.Callbacks.AsyncReadyCallback'-callbacks from 'GI.Gio.Objects.Task.Task' are guaranteed to be invoked in a later-iteration of the-[thread-default main context][g-main-context-push-thread-default]-where the 'GI.Gio.Objects.Task.Task' was created. All other users of-'GI.Gio.Callbacks.AsyncReadyCallback' must likewise call it asynchronously in a-later iteration of the main context.--}-type AsyncReadyCallback_WithClosures =-    Maybe GObject.Object.Object-    {- ^ /@sourceObject@/: the object the asynchronous operation was started with. -}-    -> Gio.AsyncResult.AsyncResult-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> Ptr ()-    {- ^ /@userData@/: user data passed to the callback. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AsyncReadyCallback_WithClosures`@.-noAsyncReadyCallback_WithClosures :: Maybe AsyncReadyCallback_WithClosures-noAsyncReadyCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_AsyncReadyCallback :: AsyncReadyCallback -> AsyncReadyCallback_WithClosures-drop_closures_AsyncReadyCallback _f sourceObject res _ = _f sourceObject res---- | Wrap the callback into a `GClosure`.-genClosure_AsyncReadyCallback :: MonadIO m => AsyncReadyCallback -> m (GClosure C_AsyncReadyCallback)-genClosure_AsyncReadyCallback cb = liftIO $ do-    let cb' = drop_closures_AsyncReadyCallback cb-    let cb'' = wrap_AsyncReadyCallback Nothing cb'-    mk_AsyncReadyCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `AsyncReadyCallback` into a `C_AsyncReadyCallback`.-wrap_AsyncReadyCallback ::-    Maybe (Ptr (FunPtr C_AsyncReadyCallback)) ->-    AsyncReadyCallback_WithClosures ->-    C_AsyncReadyCallback-wrap_AsyncReadyCallback funptrptr _cb sourceObject res userData = do-    maybeSourceObject <--        if sourceObject == nullPtr-        then return Nothing-        else do-            sourceObject' <- (newObject GObject.Object.Object) sourceObject-            return $ Just sourceObject'-    res' <- (newObject Gio.AsyncResult.AsyncResult) res-    _cb  maybeSourceObject res' userData-    maybeReleaseFunPtr funptrptr----- callback ActionEntryChangeStateFieldCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "SimpleAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, 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 = 2, 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_ActionEntryChangeStateFieldCallback =-    Ptr Gio.SimpleAction.SimpleAction ->-    Ptr GVariant ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "SimpleAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, 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 = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_ActionEntryChangeStateFieldCallback :: FunPtr C_ActionEntryChangeStateFieldCallback -> C_ActionEntryChangeStateFieldCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_ActionEntryChangeStateFieldCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.SimpleAction.IsSimpleAction a) =>-    FunPtr C_ActionEntryChangeStateFieldCallback-    -> a-    -> GVariant-    -> Ptr ()-    -> m ()-dynamic_ActionEntryChangeStateFieldCallback __funPtr action value userData = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    value' <- unsafeManagedPtrGetPtr value-    (__dynamic_C_ActionEntryChangeStateFieldCallback __funPtr) action' value' userData-    touchManagedPtr action-    touchManagedPtr value-    return ()---- | Generate a function pointer callable from C code, from a `C_ActionEntryChangeStateFieldCallback`.-foreign import ccall "wrapper"-    mk_ActionEntryChangeStateFieldCallback :: C_ActionEntryChangeStateFieldCallback -> IO (FunPtr C_ActionEntryChangeStateFieldCallback)--{- |-/No description available in the introspection data./--}-type ActionEntryChangeStateFieldCallback =-    Gio.SimpleAction.SimpleAction-    -> GVariant-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ActionEntryChangeStateFieldCallback`@.-noActionEntryChangeStateFieldCallback :: Maybe ActionEntryChangeStateFieldCallback-noActionEntryChangeStateFieldCallback = Nothing--{- |-/No description available in the introspection data./--}-type ActionEntryChangeStateFieldCallback_WithClosures =-    Gio.SimpleAction.SimpleAction-    -> GVariant-    -> Ptr ()-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ActionEntryChangeStateFieldCallback_WithClosures`@.-noActionEntryChangeStateFieldCallback_WithClosures :: Maybe ActionEntryChangeStateFieldCallback_WithClosures-noActionEntryChangeStateFieldCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_ActionEntryChangeStateFieldCallback :: ActionEntryChangeStateFieldCallback -> ActionEntryChangeStateFieldCallback_WithClosures-drop_closures_ActionEntryChangeStateFieldCallback _f action value _ = _f action value---- | Wrap the callback into a `GClosure`.-genClosure_ActionEntryChangeStateFieldCallback :: MonadIO m => ActionEntryChangeStateFieldCallback -> m (GClosure C_ActionEntryChangeStateFieldCallback)-genClosure_ActionEntryChangeStateFieldCallback cb = liftIO $ do-    let cb' = drop_closures_ActionEntryChangeStateFieldCallback cb-    let cb'' = wrap_ActionEntryChangeStateFieldCallback Nothing cb'-    mk_ActionEntryChangeStateFieldCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `ActionEntryChangeStateFieldCallback` into a `C_ActionEntryChangeStateFieldCallback`.-wrap_ActionEntryChangeStateFieldCallback ::-    Maybe (Ptr (FunPtr C_ActionEntryChangeStateFieldCallback)) ->-    ActionEntryChangeStateFieldCallback_WithClosures ->-    C_ActionEntryChangeStateFieldCallback-wrap_ActionEntryChangeStateFieldCallback funptrptr _cb action value userData = do-    action' <- (newObject Gio.SimpleAction.SimpleAction) action-    value' <- B.GVariant.newGVariantFromPtr value-    _cb  action' value' userData-    maybeReleaseFunPtr funptrptr----- callback ActionEntryActivateFieldCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "SimpleAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, 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 = 2, 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_ActionEntryActivateFieldCallback =-    Ptr Gio.SimpleAction.SimpleAction ->-    Ptr GVariant ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "SimpleAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, 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 = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_ActionEntryActivateFieldCallback :: FunPtr C_ActionEntryActivateFieldCallback -> C_ActionEntryActivateFieldCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_ActionEntryActivateFieldCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.SimpleAction.IsSimpleAction a) =>-    FunPtr C_ActionEntryActivateFieldCallback-    -> a-    -> Maybe (GVariant)-    -> Ptr ()-    -> m ()-dynamic_ActionEntryActivateFieldCallback __funPtr action parameter userData = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    maybeParameter <- case parameter of-        Nothing -> return nullPtr-        Just jParameter -> do-            jParameter' <- unsafeManagedPtrGetPtr jParameter-            return jParameter'-    (__dynamic_C_ActionEntryActivateFieldCallback __funPtr) action' maybeParameter userData-    touchManagedPtr action-    whenJust parameter touchManagedPtr-    return ()---- | Generate a function pointer callable from C code, from a `C_ActionEntryActivateFieldCallback`.-foreign import ccall "wrapper"-    mk_ActionEntryActivateFieldCallback :: C_ActionEntryActivateFieldCallback -> IO (FunPtr C_ActionEntryActivateFieldCallback)--{- |-/No description available in the introspection data./--}-type ActionEntryActivateFieldCallback =-    Gio.SimpleAction.SimpleAction-    -> Maybe GVariant-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ActionEntryActivateFieldCallback`@.-noActionEntryActivateFieldCallback :: Maybe ActionEntryActivateFieldCallback-noActionEntryActivateFieldCallback = Nothing--{- |-/No description available in the introspection data./--}-type ActionEntryActivateFieldCallback_WithClosures =-    Gio.SimpleAction.SimpleAction-    -> Maybe GVariant-    -> Ptr ()-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ActionEntryActivateFieldCallback_WithClosures`@.-noActionEntryActivateFieldCallback_WithClosures :: Maybe ActionEntryActivateFieldCallback_WithClosures-noActionEntryActivateFieldCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_ActionEntryActivateFieldCallback :: ActionEntryActivateFieldCallback -> ActionEntryActivateFieldCallback_WithClosures-drop_closures_ActionEntryActivateFieldCallback _f action parameter _ = _f action parameter---- | Wrap the callback into a `GClosure`.-genClosure_ActionEntryActivateFieldCallback :: MonadIO m => ActionEntryActivateFieldCallback -> m (GClosure C_ActionEntryActivateFieldCallback)-genClosure_ActionEntryActivateFieldCallback cb = liftIO $ do-    let cb' = drop_closures_ActionEntryActivateFieldCallback cb-    let cb'' = wrap_ActionEntryActivateFieldCallback Nothing cb'-    mk_ActionEntryActivateFieldCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `ActionEntryActivateFieldCallback` into a `C_ActionEntryActivateFieldCallback`.-wrap_ActionEntryActivateFieldCallback ::-    Maybe (Ptr (FunPtr C_ActionEntryActivateFieldCallback)) ->-    ActionEntryActivateFieldCallback_WithClosures ->-    C_ActionEntryActivateFieldCallback-wrap_ActionEntryActivateFieldCallback funptrptr _cb action parameter userData = do-    action' <- (newObject Gio.SimpleAction.SimpleAction) action-    maybeParameter <--        if parameter == nullPtr-        then return Nothing-        else do-            parameter' <- B.GVariant.newGVariantFromPtr parameter-            return $ Just parameter'-    _cb  action' maybeParameter userData-    maybeReleaseFunPtr funptrptr---
− GI/Gio/Constants.hs 
@@ -1,1001 +0,0 @@-{-# 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.Gio.Constants-    ( -    pattern VOLUME_MONITOR_EXTENSION_POINT_NAME,-    pattern VOLUME_IDENTIFIER_KIND_UUID     ,-    pattern VOLUME_IDENTIFIER_KIND_UNIX_DEVICE,-    pattern VOLUME_IDENTIFIER_KIND_NFS_MOUNT,-    pattern VOLUME_IDENTIFIER_KIND_LABEL    ,-    pattern VOLUME_IDENTIFIER_KIND_HAL_UDI  ,-    pattern VOLUME_IDENTIFIER_KIND_CLASS    ,-    pattern VFS_EXTENSION_POINT_NAME        ,-    pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_SERVER,-    pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_CLIENT,-    pattern TLS_BACKEND_EXTENSION_POINT_NAME,-    pattern SETTINGS_BACKEND_EXTENSION_POINT_NAME,-    pattern PROXY_RESOLVER_EXTENSION_POINT_NAME,-    pattern PROXY_EXTENSION_POINT_NAME      ,-    pattern NETWORK_MONITOR_EXTENSION_POINT_NAME,-    pattern NATIVE_VOLUME_MONITOR_EXTENSION_POINT_NAME,-    pattern MENU_LINK_SUBMENU               ,-    pattern MENU_LINK_SECTION               ,-    pattern MENU_ATTRIBUTE_TARGET           ,-    pattern MENU_ATTRIBUTE_LABEL            ,-    pattern MENU_ATTRIBUTE_ICON             ,-    pattern MENU_ATTRIBUTE_ACTION_NAMESPACE ,-    pattern MENU_ATTRIBUTE_ACTION           ,-    pattern FILE_ATTRIBUTE_UNIX_UID         ,-    pattern FILE_ATTRIBUTE_UNIX_RDEV        ,-    pattern FILE_ATTRIBUTE_UNIX_NLINK       ,-    pattern FILE_ATTRIBUTE_UNIX_MODE        ,-    pattern FILE_ATTRIBUTE_UNIX_IS_MOUNTPOINT,-    pattern FILE_ATTRIBUTE_UNIX_INODE       ,-    pattern FILE_ATTRIBUTE_UNIX_GID         ,-    pattern FILE_ATTRIBUTE_UNIX_DEVICE      ,-    pattern FILE_ATTRIBUTE_UNIX_BLOCK_SIZE  ,-    pattern FILE_ATTRIBUTE_UNIX_BLOCKS      ,-    pattern FILE_ATTRIBUTE_TRASH_ORIG_PATH  ,-    pattern FILE_ATTRIBUTE_TRASH_ITEM_COUNT ,-    pattern FILE_ATTRIBUTE_TRASH_DELETION_DATE,-    pattern FILE_ATTRIBUTE_TIME_MODIFIED_USEC,-    pattern FILE_ATTRIBUTE_TIME_MODIFIED    ,-    pattern FILE_ATTRIBUTE_TIME_CREATED_USEC,-    pattern FILE_ATTRIBUTE_TIME_CREATED     ,-    pattern FILE_ATTRIBUTE_TIME_CHANGED_USEC,-    pattern FILE_ATTRIBUTE_TIME_CHANGED     ,-    pattern FILE_ATTRIBUTE_TIME_ACCESS_USEC ,-    pattern FILE_ATTRIBUTE_TIME_ACCESS      ,-    pattern FILE_ATTRIBUTE_THUMBNAIL_PATH   ,-    pattern FILE_ATTRIBUTE_THUMBNAIL_IS_VALID,-    pattern FILE_ATTRIBUTE_THUMBNAILING_FAILED,-    pattern FILE_ATTRIBUTE_STANDARD_TYPE    ,-    pattern FILE_ATTRIBUTE_STANDARD_TARGET_URI,-    pattern FILE_ATTRIBUTE_STANDARD_SYMLINK_TARGET,-    pattern FILE_ATTRIBUTE_STANDARD_SYMBOLIC_ICON,-    pattern FILE_ATTRIBUTE_STANDARD_SORT_ORDER,-    pattern FILE_ATTRIBUTE_STANDARD_SIZE    ,-    pattern FILE_ATTRIBUTE_STANDARD_NAME    ,-    pattern FILE_ATTRIBUTE_STANDARD_IS_VOLATILE,-    pattern FILE_ATTRIBUTE_STANDARD_IS_VIRTUAL,-    pattern FILE_ATTRIBUTE_STANDARD_IS_SYMLINK,-    pattern FILE_ATTRIBUTE_STANDARD_IS_HIDDEN,-    pattern FILE_ATTRIBUTE_STANDARD_IS_BACKUP,-    pattern FILE_ATTRIBUTE_STANDARD_ICON    ,-    pattern FILE_ATTRIBUTE_STANDARD_FAST_CONTENT_TYPE,-    pattern FILE_ATTRIBUTE_STANDARD_EDIT_NAME,-    pattern FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME,-    pattern FILE_ATTRIBUTE_STANDARD_DESCRIPTION,-    pattern FILE_ATTRIBUTE_STANDARD_COPY_NAME,-    pattern FILE_ATTRIBUTE_STANDARD_CONTENT_TYPE,-    pattern FILE_ATTRIBUTE_STANDARD_ALLOCATED_SIZE,-    pattern FILE_ATTRIBUTE_SELINUX_CONTEXT  ,-    pattern FILE_ATTRIBUTE_RECENT_MODIFIED  ,-    pattern FILE_ATTRIBUTE_PREVIEW_ICON     ,-    pattern FILE_ATTRIBUTE_OWNER_USER_REAL  ,-    pattern FILE_ATTRIBUTE_OWNER_USER       ,-    pattern FILE_ATTRIBUTE_OWNER_GROUP      ,-    pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE_FILE,-    pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE,-    pattern FILE_ATTRIBUTE_MOUNTABLE_START_STOP_TYPE,-    pattern FILE_ATTRIBUTE_MOUNTABLE_IS_MEDIA_CHECK_AUTOMATIC,-    pattern FILE_ATTRIBUTE_MOUNTABLE_HAL_UDI,-    pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_UNMOUNT,-    pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_STOP,-    pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START_DEGRADED,-    pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START,-    pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_POLL,-    pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_MOUNT,-    pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_EJECT,-    pattern FILE_ATTRIBUTE_ID_FILESYSTEM    ,-    pattern FILE_ATTRIBUTE_ID_FILE          ,-    pattern FILE_ATTRIBUTE_GVFS_BACKEND     ,-    pattern FILE_ATTRIBUTE_FILESYSTEM_USE_PREVIEW,-    pattern FILE_ATTRIBUTE_FILESYSTEM_USED  ,-    pattern FILE_ATTRIBUTE_FILESYSTEM_TYPE  ,-    pattern FILE_ATTRIBUTE_FILESYSTEM_SIZE  ,-    pattern FILE_ATTRIBUTE_FILESYSTEM_REMOTE,-    pattern FILE_ATTRIBUTE_FILESYSTEM_READONLY,-    pattern FILE_ATTRIBUTE_FILESYSTEM_FREE  ,-    pattern FILE_ATTRIBUTE_ETAG_VALUE       ,-    pattern FILE_ATTRIBUTE_DOS_REPARSE_POINT_TAG,-    pattern FILE_ATTRIBUTE_DOS_IS_SYSTEM    ,-    pattern FILE_ATTRIBUTE_DOS_IS_MOUNTPOINT,-    pattern FILE_ATTRIBUTE_DOS_IS_ARCHIVE   ,-    pattern FILE_ATTRIBUTE_ACCESS_CAN_WRITE ,-    pattern FILE_ATTRIBUTE_ACCESS_CAN_TRASH ,-    pattern FILE_ATTRIBUTE_ACCESS_CAN_RENAME,-    pattern FILE_ATTRIBUTE_ACCESS_CAN_READ  ,-    pattern FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE,-    pattern FILE_ATTRIBUTE_ACCESS_CAN_DELETE,-    pattern DRIVE_IDENTIFIER_KIND_UNIX_DEVICE,-    pattern DESKTOP_APP_INFO_LOOKUP_EXTENSION_POINT_NAME,--    ) 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---{- |-Extension point for volume monitor functionality.-See [Extending GIO][extending-gio].--}-pattern VOLUME_MONITOR_EXTENSION_POINT_NAME = "gio-volume-monitor" :: T.Text--{- |-The string used to obtain a UUID with 'GI.Gio.Interfaces.Volume.volumeGetIdentifier'.--}-pattern VOLUME_IDENTIFIER_KIND_UUID = "uuid" :: T.Text--{- |-The string used to obtain a Unix device path with 'GI.Gio.Interfaces.Volume.volumeGetIdentifier'.--}-pattern VOLUME_IDENTIFIER_KIND_UNIX_DEVICE = "unix-device" :: T.Text--{- |-The string used to obtain a NFS mount with 'GI.Gio.Interfaces.Volume.volumeGetIdentifier'.--}-pattern VOLUME_IDENTIFIER_KIND_NFS_MOUNT = "nfs-mount" :: T.Text--{- |-The string used to obtain a filesystem label with 'GI.Gio.Interfaces.Volume.volumeGetIdentifier'.--}-pattern VOLUME_IDENTIFIER_KIND_LABEL = "label" :: T.Text--{-# DEPRECATED VOLUME_IDENTIFIER_KIND_HAL_UDI ["(Since version 2.58)","Do not use, HAL is deprecated."] #-}-{- |-The string used to obtain a Hal UDI with 'GI.Gio.Interfaces.Volume.volumeGetIdentifier'.--}-pattern VOLUME_IDENTIFIER_KIND_HAL_UDI = "hal-udi" :: T.Text--{- |-The string used to obtain the volume class with 'GI.Gio.Interfaces.Volume.volumeGetIdentifier'.--Known volume classes include @device@, @network@, and @loop@. Other-classes may be added in the future.--This is intended to be used by applications to classify 'GI.Gio.Interfaces.Volume.Volume'-instances into different sections - for example a file manager or-file chooser can use this information to show @network@ volumes under-a \"Network\" heading and @device@ volumes under a \"Devices\" heading.--}-pattern VOLUME_IDENTIFIER_KIND_CLASS = "class" :: T.Text--{- |-Extension point for 'GI.Gio.Objects.Vfs.Vfs' functionality.-See [Extending GIO][extending-gio].--}-pattern VFS_EXTENSION_POINT_NAME = "gio-vfs" :: T.Text--{- |-The purpose used to verify the server certificate in a TLS connection. This-is the most common purpose in use. Used by TLS clients.--}-pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_SERVER = "1.3.6.1.5.5.7.3.1" :: T.Text--{- |-The purpose used to verify the client certificate in a TLS connection.-Used by TLS servers.--}-pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_CLIENT = "1.3.6.1.5.5.7.3.2" :: T.Text--{- |-Extension point for TLS functionality via 'GI.Gio.Interfaces.TlsBackend.TlsBackend'.-See [Extending GIO][extending-gio].--}-pattern TLS_BACKEND_EXTENSION_POINT_NAME = "gio-tls-backend" :: T.Text--{- |-Extension point for 'GI.Gio.Objects.SettingsBackend.SettingsBackend' functionality.--}-pattern SETTINGS_BACKEND_EXTENSION_POINT_NAME = "gsettings-backend" :: T.Text--{- |-Extension point for proxy resolving functionality.-See [Extending GIO][extending-gio].--}-pattern PROXY_RESOLVER_EXTENSION_POINT_NAME = "gio-proxy-resolver" :: T.Text--{- |-Extension point for proxy functionality.-See [Extending GIO][extending-gio].--/Since: 2.26/--}-pattern PROXY_EXTENSION_POINT_NAME = "gio-proxy" :: T.Text--{- |-Extension point for network status monitoring functionality.-See [Extending GIO][extending-gio].--/Since: 2.30/--}-pattern NETWORK_MONITOR_EXTENSION_POINT_NAME = "gio-network-monitor" :: T.Text--{- |-/No description available in the introspection data./--}-pattern NATIVE_VOLUME_MONITOR_EXTENSION_POINT_NAME = "gio-native-volume-monitor" :: T.Text--{- |-The name of the link that associates a menu item with a submenu.--See also 'GI.Gio.Objects.MenuItem.menuItemSetLink'.--/Since: 2.32/--}-pattern MENU_LINK_SUBMENU = "submenu" :: T.Text--{- |-The name of the link that associates a menu item with a section.  The linked-menu will usually be shown in place of the menu item, using the item\'s label-as a header.--See also 'GI.Gio.Objects.MenuItem.menuItemSetLink'.--/Since: 2.32/--}-pattern MENU_LINK_SECTION = "section" :: T.Text--{- |-The menu item attribute which holds the target with which the item\'s action-will be activated.--See also @/g_menu_item_set_action_and_target()/@--/Since: 2.32/--}-pattern MENU_ATTRIBUTE_TARGET = "target" :: T.Text--{- |-The menu item attribute which holds the label of the item.--/Since: 2.32/--}-pattern MENU_ATTRIBUTE_LABEL = "label" :: T.Text--{- |-The menu item attribute which holds the icon of the item.--The icon is stored in the format returned by 'GI.Gio.Interfaces.Icon.iconSerialize'.--This attribute is intended only to represent \'noun\' icons such as-favicons for a webpage, or application icons.  It should not be used-for \'verbs\' (ie: stock icons).--/Since: 2.38/--}-pattern MENU_ATTRIBUTE_ICON = "icon" :: T.Text--{- |-The menu item attribute that holds the namespace for all action names in-menus that are linked from this item.--/Since: 2.36/--}-pattern MENU_ATTRIBUTE_ACTION_NAMESPACE = "action-namespace" :: T.Text--{- |-The menu item attribute which holds the action name of the item.  Action-names are namespaced with an identifier for the action group in which the-action resides. For example, \"win.\" for window-specific actions and \"app.\"-for application-wide actions.--See also @/g_menu_model_get_item_attribute()/@ and @/g_menu_item_set_attribute()/@.--/Since: 2.32/--}-pattern MENU_ATTRIBUTE_ACTION = "action" :: T.Text--{- |-A key in the \"unix\" namespace for getting the user ID for the file.-This attribute is only available for UNIX file systems.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_UNIX_UID = "unix::uid" :: T.Text--{- |-A key in the \"unix\" namespace for getting the device ID for the file-(if it is a special file). See @/lstat()/@ documentation. This attribute-is only available for UNIX file systems. Corresponding 'GI.Gio.Enums.FileAttributeType'-is 'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_UNIX_RDEV = "unix::rdev" :: T.Text--{- |-A key in the \"unix\" namespace for getting the number of hard links-for a file. See @/lstat()/@ documentation. This attribute is only available-for UNIX file systems. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_UNIX_NLINK = "unix::nlink" :: T.Text--{- |-A key in the \"unix\" namespace for getting the mode of the file-(e.g. whether the file is a regular file, symlink, etc). See @/lstat()/@-documentation. This attribute is only available for UNIX file systems.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_UNIX_MODE = "unix::mode" :: T.Text--{- |-A key in the \"unix\" namespace for checking if the file represents a-UNIX mount point. This attribute is 'True' if the file is a UNIX mount-point. Since 2.58, @\/@ is considered to be a mount point.-This attribute is only available for UNIX file systems.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_UNIX_IS_MOUNTPOINT = "unix::is-mountpoint" :: T.Text--{- |-A key in the \"unix\" namespace for getting the inode of the file.-This attribute is only available for UNIX file systems. Corresponding-'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint64'.--}-pattern FILE_ATTRIBUTE_UNIX_INODE = "unix::inode" :: T.Text--{- |-A key in the \"unix\" namespace for getting the group ID for the file.-This attribute is only available for UNIX file systems.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_UNIX_GID = "unix::gid" :: T.Text--{- |-A key in the \"unix\" namespace for getting the device id of the device the-file is located on (see @/stat()/@ documentation). This attribute is only-available for UNIX file systems. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_UNIX_DEVICE = "unix::device" :: T.Text--{- |-A key in the \"unix\" namespace for getting the block size for the file-system. This attribute is only available for UNIX file systems.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_UNIX_BLOCK_SIZE = "unix::block-size" :: T.Text--{- |-A key in the \"unix\" namespace for getting the number of blocks allocated-for the file. This attribute is only available for UNIX file systems.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint64'.--}-pattern FILE_ATTRIBUTE_UNIX_BLOCKS = "unix::blocks" :: T.Text--{- |-A key in the \"trash\" namespace.  When requested against-items in @trash:\/\/\/@, will return the original path to the file before it-was trashed. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeByteString'.--/Since: 2.24/--}-pattern FILE_ATTRIBUTE_TRASH_ORIG_PATH = "trash::orig-path" :: T.Text--{- |-A key in the \"trash\" namespace.  When requested against-@trash:\/\/\/@ returns the number of (toplevel) items in the trash folder.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_TRASH_ITEM_COUNT = "trash::item-count" :: T.Text--{- |-A key in the \"trash\" namespace.  When requested against-items in @trash:\/\/\/@, will return the date and time when the file-was trashed. The format of the returned string is YYYY-MM-DDThh:mm:ss.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--/Since: 2.24/--}-pattern FILE_ATTRIBUTE_TRASH_DELETION_DATE = "trash::deletion-date" :: T.Text--{- |-A key in the \"time\" namespace for getting the microseconds of the time-the file was last modified. This should be used in conjunction with-'GI.Gio.Constants.FILE_ATTRIBUTE_TIME_MODIFIED'. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_TIME_MODIFIED_USEC = "time::modified-usec" :: T.Text--{- |-A key in the \"time\" namespace for getting the time the file was last-modified. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint64', and contains the time since the-file was modified, in seconds since the UNIX epoch.--}-pattern FILE_ATTRIBUTE_TIME_MODIFIED = "time::modified" :: T.Text--{- |-A key in the \"time\" namespace for getting the microseconds of the time-the file was created. This should be used in conjunction with-'GI.Gio.Constants.FILE_ATTRIBUTE_TIME_CREATED'. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_TIME_CREATED_USEC = "time::created-usec" :: T.Text--{- |-A key in the \"time\" namespace for getting the time the file was created.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint64',-and contains the time since the file was created, in seconds since the UNIX-epoch.--This corresponds to the NTFS ctime.--}-pattern FILE_ATTRIBUTE_TIME_CREATED = "time::created" :: T.Text--{- |-A key in the \"time\" namespace for getting the microseconds of the time-the file was last changed. This should be used in conjunction with-'GI.Gio.Constants.FILE_ATTRIBUTE_TIME_CHANGED'. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_TIME_CHANGED_USEC = "time::changed-usec" :: T.Text--{- |-A key in the \"time\" namespace for getting the time the file was last-changed. Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint64',-and contains the time since the file was last changed, in seconds since the-UNIX epoch.--This corresponds to the traditional UNIX ctime.--}-pattern FILE_ATTRIBUTE_TIME_CHANGED = "time::changed" :: T.Text--{- |-A key in the \"time\" namespace for getting the microseconds of the time-the file was last accessed. This should be used in conjunction with-'GI.Gio.Constants.FILE_ATTRIBUTE_TIME_ACCESS'. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_TIME_ACCESS_USEC = "time::access-usec" :: T.Text--{- |-A key in the \"time\" namespace for getting the time the file was last-accessed. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint64', and contains the time since the-file was last accessed, in seconds since the UNIX epoch.--}-pattern FILE_ATTRIBUTE_TIME_ACCESS = "time::access" :: T.Text--{- |-A key in the \"thumbnail\" namespace for getting the path to the thumbnail-image. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeByteString'.--}-pattern FILE_ATTRIBUTE_THUMBNAIL_PATH = "thumbnail::path" :: T.Text--{- |-A key in the \"thumbnail\" namespace for checking whether the thumbnail is outdated.-This attribute is 'True' if the thumbnail is up-to-date with the file it represents,-and 'False' if the file has been modified since the thumbnail was generated.--If 'GI.Gio.Constants.FILE_ATTRIBUTE_THUMBNAILING_FAILED' is 'True' and this attribute is 'False',-it indicates that thumbnailing may be attempted again and may succeed.--Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--/Since: 2.40/--}-pattern FILE_ATTRIBUTE_THUMBNAIL_IS_VALID = "thumbnail::is-valid" :: T.Text--{- |-A key in the \"thumbnail\" namespace for checking if thumbnailing failed.-This attribute is 'True' if thumbnailing failed. Corresponding-'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_THUMBNAILING_FAILED = "thumbnail::failed" :: T.Text--{- |-A key in the \"standard\" namespace for storing file types.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint32'.-The value for this key should contain a 'GI.Gio.Enums.FileType'.--}-pattern FILE_ATTRIBUTE_STANDARD_TYPE = "standard::type" :: T.Text--{- |-A key in the \"standard\" namespace for getting the target URI for the file, in-the case of 'GI.Gio.Enums.FileTypeShortcut' or 'GI.Gio.Enums.FileTypeMountable' files.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_STANDARD_TARGET_URI = "standard::target-uri" :: T.Text--{- |-A key in the \"standard\" namespace for getting the symlink target, if the file-is a symlink. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeByteString'.--}-pattern FILE_ATTRIBUTE_STANDARD_SYMLINK_TARGET = "standard::symlink-target" :: T.Text--{- |-A key in the \"standard\" namespace for getting the symbolic icon for the file.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeObject'.-The value for this key should contain a 'GI.Gio.Interfaces.Icon.Icon'.--/Since: 2.34/--}-pattern FILE_ATTRIBUTE_STANDARD_SYMBOLIC_ICON = "standard::symbolic-icon" :: T.Text--{- |-A key in the \"standard\" namespace for setting the sort order of a file.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeInt32'.-An example use would be in file managers, which would use this key-to set the order files are displayed. Files with smaller sort order-should be sorted first, and files without sort order as if sort order-was zero.--}-pattern FILE_ATTRIBUTE_STANDARD_SORT_ORDER = "standard::sort-order" :: T.Text--{- |-A key in the \"standard\" namespace for getting the file\'s size (in bytes).-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint64'.--}-pattern FILE_ATTRIBUTE_STANDARD_SIZE = "standard::size" :: T.Text--{- |-A key in the \"standard\" namespace for getting the name of the file.-The name is the on-disk filename which may not be in any known encoding,-and can thus not be generally displayed as is.-Use 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME' if you need to display the-name in a user interface.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeByteString'.--}-pattern FILE_ATTRIBUTE_STANDARD_NAME = "standard::name" :: T.Text--{- |-A key in the \"standard\" namespace for checking if a file is-volatile. This is meant for opaque, non-POSIX-like backends to-indicate that the URI is not persistent. Applications should look-at 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_SYMLINK_TARGET' for the persistent URI.--Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--/Since: 2.46/--}-pattern FILE_ATTRIBUTE_STANDARD_IS_VOLATILE = "standard::is-volatile" :: T.Text--{- |-A key in the \"standard\" namespace for checking if a file is virtual.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_STANDARD_IS_VIRTUAL = "standard::is-virtual" :: T.Text--{- |-A key in the \"standard\" namespace for checking if the file is a symlink.-Typically the actual type is something else, if we followed the symlink-to get the type.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_STANDARD_IS_SYMLINK = "standard::is-symlink" :: T.Text--{- |-A key in the \"standard\" namespace for checking if a file is hidden.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_STANDARD_IS_HIDDEN = "standard::is-hidden" :: T.Text--{- |-A key in the \"standard\" namespace for checking if a file is a backup file.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_STANDARD_IS_BACKUP = "standard::is-backup" :: T.Text--{- |-A key in the \"standard\" namespace for getting the icon for the file.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeObject'.-The value for this key should contain a 'GI.Gio.Interfaces.Icon.Icon'.--}-pattern FILE_ATTRIBUTE_STANDARD_ICON = "standard::icon" :: T.Text--{- |-A key in the \"standard\" namespace for getting the fast content type.-The fast content type isn\'t as reliable as the regular one, as it-only uses the filename to guess it, but it is faster to calculate than the-regular content type.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_STANDARD_FAST_CONTENT_TYPE = "standard::fast-content-type" :: T.Text--{- |-A key in the \"standard\" namespace for edit name of the file.-An edit name is similar to the display name, but it is meant to be-used when you want to rename the file in the UI. The display name-might contain information you don\'t want in the new filename (such as-\"(invalid unicode)\" if the filename was in an invalid encoding).--Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_STANDARD_EDIT_NAME = "standard::edit-name" :: T.Text--{- |-A key in the \"standard\" namespace for getting the display name of the file.-A display name is guaranteed to be in UTF8 and can thus be displayed in-the UI.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME = "standard::display-name" :: T.Text--{- |-A key in the \"standard\" namespace for getting the description of the file.-The description is a utf8 string that describes the file, generally containing-the filename, but can also contain furter information. Example descriptions-could be \"filename (on hostname)\" for a remote file or \"filename (in trash)\"-for a file in the trash. This is useful for instance as the window title-when displaying a directory or for a bookmarks menu.--Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_STANDARD_DESCRIPTION = "standard::description" :: T.Text--{- |-A key in the \"standard\" namespace for getting the copy name of the file.-The copy name is an optional version of the name. If available it\'s always-in UTF8, and corresponds directly to the original filename (only transcoded to-UTF8). This is useful if you want to copy the file to another filesystem that-might have a different encoding. If the filename is not a valid string in the-encoding selected for the filesystem it is in then the copy name will not be set.--Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_STANDARD_COPY_NAME = "standard::copy-name" :: T.Text--{- |-A key in the \"standard\" namespace for getting the content type of the file.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.-The value for this key should contain a valid content type.--}-pattern FILE_ATTRIBUTE_STANDARD_CONTENT_TYPE = "standard::content-type" :: T.Text--{- |-A key in the \"standard\" namespace for getting the amount of disk space-that is consumed by the file (in bytes).  This will generally be larger-than the file size (due to block size overhead) but can occasionally be-smaller (for example, for sparse files).-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint64'.--/Since: 2.20/--}-pattern FILE_ATTRIBUTE_STANDARD_ALLOCATED_SIZE = "standard::allocated-size" :: T.Text--{- |-A key in the \"selinux\" namespace for getting the file\'s SELinux-context. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeString'. Note that this attribute is only-available if GLib has been built with SELinux support.--}-pattern FILE_ATTRIBUTE_SELINUX_CONTEXT = "selinux::context" :: T.Text--{- |-A key in the \"recent\" namespace for getting time, when the metadata for the-file in @recent:\/\/\/@ was last changed. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeInt64'.--/Since: 2.52/--}-pattern FILE_ATTRIBUTE_RECENT_MODIFIED = "recent::modified" :: T.Text--{- |-A key in the \"preview\" namespace for getting a 'GI.Gio.Interfaces.Icon.Icon' that can be-used to get preview of the file. For example, it may be a low-resolution thumbnail without metadata. Corresponding-'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeObject'.  The value-for this key should contain a 'GI.Gio.Interfaces.Icon.Icon'.--/Since: 2.20/--}-pattern FILE_ATTRIBUTE_PREVIEW_ICON = "preview::icon" :: T.Text--{- |-A key in the \"owner\" namespace for getting the real name of the-user that owns the file. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_OWNER_USER_REAL = "owner::user-real" :: T.Text--{- |-A key in the \"owner\" namespace for getting the user name of the-file\'s owner. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_OWNER_USER = "owner::user" :: T.Text--{- |-A key in the \"owner\" namespace for getting the file owner\'s group.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_OWNER_GROUP = "owner::group" :: T.Text--{- |-A key in the \"mountable\" namespace for getting the unix device file.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--/Since: 2.22/--}-pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE_FILE = "mountable::unix-device-file" :: T.Text--{- |-A key in the \"mountable\" namespace for getting the unix device.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint32'.--}-pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE = "mountable::unix-device" :: T.Text--{- |-A key in the \"mountable\" namespace for getting the 'GI.Gio.Enums.DriveStartStopType'.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeUint32'.--/Since: 2.22/--}-pattern FILE_ATTRIBUTE_MOUNTABLE_START_STOP_TYPE = "mountable::start-stop-type" :: T.Text--{- |-A key in the \"mountable\" namespace for checking if a file (of type G_FILE_TYPE_MOUNTABLE)-is automatically polled for media.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--/Since: 2.22/--}-pattern FILE_ATTRIBUTE_MOUNTABLE_IS_MEDIA_CHECK_AUTOMATIC = "mountable::is-media-check-automatic" :: T.Text--{- |-A key in the \"mountable\" namespace for getting the HAL UDI for the mountable-file. Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_MOUNTABLE_HAL_UDI = "mountable::hal-udi" :: T.Text--{- |-A key in the \"mountable\" namespace for checking if a file (of type G_FILE_TYPE_MOUNTABLE)  is unmountable.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_UNMOUNT = "mountable::can-unmount" :: T.Text--{- |-A key in the \"mountable\" namespace for checking if a file (of type G_FILE_TYPE_MOUNTABLE) can be stopped.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--/Since: 2.22/--}-pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_STOP = "mountable::can-stop" :: T.Text--{- |-A key in the \"mountable\" namespace for checking if a file (of type G_FILE_TYPE_MOUNTABLE) can be started-degraded.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--/Since: 2.22/--}-pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START_DEGRADED = "mountable::can-start-degraded" :: T.Text--{- |-A key in the \"mountable\" namespace for checking if a file (of type G_FILE_TYPE_MOUNTABLE) can be started.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--/Since: 2.22/--}-pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START = "mountable::can-start" :: T.Text--{- |-A key in the \"mountable\" namespace for checking if a file (of type G_FILE_TYPE_MOUNTABLE) can be polled.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--/Since: 2.22/--}-pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_POLL = "mountable::can-poll" :: T.Text--{- |-A key in the \"mountable\" namespace for checking if a file (of type G_FILE_TYPE_MOUNTABLE) is mountable.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_MOUNT = "mountable::can-mount" :: T.Text--{- |-A key in the \"mountable\" namespace for checking if a file (of type G_FILE_TYPE_MOUNTABLE) can be ejected.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_EJECT = "mountable::can-eject" :: T.Text--{- |-A key in the \"id\" namespace for getting the file system identifier.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.-An example use would be during drag and drop to see if the source-and target are on the same filesystem (default to move) or not (default-to copy).--}-pattern FILE_ATTRIBUTE_ID_FILESYSTEM = "id::filesystem" :: T.Text--{- |-A key in the \"id\" namespace for getting a file identifier.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.-An example use would be during listing files, to avoid recursive-directory scanning.--}-pattern FILE_ATTRIBUTE_ID_FILE = "id::file" :: T.Text--{- |-A key in the \"gvfs\" namespace that gets the name of the current-GVFS backend in use. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_GVFS_BACKEND = "gvfs::backend" :: T.Text--{- |-A key in the \"filesystem\" namespace for hinting a file manager-application whether it should preview (e.g. thumbnail) files on the-file system. The value for this key contain a-'GI.Gio.Enums.FilesystemPreviewType'.--}-pattern FILE_ATTRIBUTE_FILESYSTEM_USE_PREVIEW = "filesystem::use-preview" :: T.Text--{- |-A key in the \"filesystem\" namespace for getting the number of bytes of used on the-file system. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint64'.--/Since: 2.32/--}-pattern FILE_ATTRIBUTE_FILESYSTEM_USED = "filesystem::used" :: T.Text--{- |-A key in the \"filesystem\" namespace for getting the file system\'s type.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_FILESYSTEM_TYPE = "filesystem::type" :: T.Text--{- |-A key in the \"filesystem\" namespace for getting the total size (in bytes) of the file system,-used in 'GI.Gio.Interfaces.File.fileQueryFilesystemInfo'. Corresponding 'GI.Gio.Enums.FileAttributeType'-is 'GI.Gio.Enums.FileAttributeTypeUint64'.--}-pattern FILE_ATTRIBUTE_FILESYSTEM_SIZE = "filesystem::size" :: T.Text--{- |-A key in the \"filesystem\" namespace for checking if the file system-is remote. Is set to 'True' if the file system is remote.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_FILESYSTEM_REMOTE = "filesystem::remote" :: T.Text--{- |-A key in the \"filesystem\" namespace for checking if the file system-is read only. Is set to 'True' if the file system is read only.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_FILESYSTEM_READONLY = "filesystem::readonly" :: T.Text--{- |-A key in the \"filesystem\" namespace for getting the number of bytes of free space left on the-file system. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeUint64'.--}-pattern FILE_ATTRIBUTE_FILESYSTEM_FREE = "filesystem::free" :: T.Text--{- |-A key in the \"etag\" namespace for getting the value of the file\'s-entity tag. Corresponding 'GI.Gio.Enums.FileAttributeType' is-'GI.Gio.Enums.FileAttributeTypeString'.--}-pattern FILE_ATTRIBUTE_ETAG_VALUE = "etag::value" :: T.Text--{- |-A key in the \"dos\" namespace for getting the file NTFS reparse tag.-This value is 0 for files that are not reparse points.-See the <https://msdn.microsoft.com/en-us/library/dd541667.aspx Reparse Tags>-page for possible reparse tag values. Corresponding 'GI.Gio.Enums.FileAttributeType'-is 'GI.Gio.Enums.FileAttributeTypeUint32'.--/Since: 2.60/--}-pattern FILE_ATTRIBUTE_DOS_REPARSE_POINT_TAG = "dos::reparse-point-tag" :: T.Text--{- |-A key in the \"dos\" namespace for checking if the file\'s backup flag-is set. This attribute is 'True' if the backup flag is set. This attribute-is only available for DOS file systems. Corresponding 'GI.Gio.Enums.FileAttributeType'-is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_DOS_IS_SYSTEM = "dos::is-system" :: T.Text--{- |-A key in the \"dos\" namespace for checking if the file is a NTFS mount point-(a volume mount or a junction point).-This attribute is 'True' if file is a reparse point of type-<https://msdn.microsoft.com/en-us/library/dd541667.aspx IO_REPARSE_TAG_MOUNT_POINT>.-This attribute is only available for DOS file systems.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--/Since: 2.60/--}-pattern FILE_ATTRIBUTE_DOS_IS_MOUNTPOINT = "dos::is-mountpoint" :: T.Text--{- |-A key in the \"dos\" namespace for checking if the file\'s archive flag-is set. This attribute is 'True' if the archive flag is set. This attribute-is only available for DOS file systems. Corresponding 'GI.Gio.Enums.FileAttributeType'-is 'GI.Gio.Enums.FileAttributeTypeBoolean'.--}-pattern FILE_ATTRIBUTE_DOS_IS_ARCHIVE = "dos::is-archive" :: T.Text--{- |-A key in the \"access\" namespace for getting write privileges.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.-This attribute will be 'True' if the user is able to write to the file.--}-pattern FILE_ATTRIBUTE_ACCESS_CAN_WRITE = "access::can-write" :: T.Text--{- |-A key in the \"access\" namespace for checking trashing privileges.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.-This attribute will be 'True' if the user is able to move the file to-the trash.--}-pattern FILE_ATTRIBUTE_ACCESS_CAN_TRASH = "access::can-trash" :: T.Text--{- |-A key in the \"access\" namespace for checking renaming privileges.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.-This attribute will be 'True' if the user is able to rename the file.--}-pattern FILE_ATTRIBUTE_ACCESS_CAN_RENAME = "access::can-rename" :: T.Text--{- |-A key in the \"access\" namespace for getting read privileges.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.-This attribute will be 'True' if the user is able to read the file.--}-pattern FILE_ATTRIBUTE_ACCESS_CAN_READ = "access::can-read" :: T.Text--{- |-A key in the \"access\" namespace for getting execution privileges.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.-This attribute will be 'True' if the user is able to execute the file.--}-pattern FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE = "access::can-execute" :: T.Text--{- |-A key in the \"access\" namespace for checking deletion privileges.-Corresponding 'GI.Gio.Enums.FileAttributeType' is 'GI.Gio.Enums.FileAttributeTypeBoolean'.-This attribute will be 'True' if the user is able to delete the file.--}-pattern FILE_ATTRIBUTE_ACCESS_CAN_DELETE = "access::can-delete" :: T.Text--{- |-The string used to obtain a Unix device path with 'GI.Gio.Interfaces.Drive.driveGetIdentifier'.--/Since: 2.58/--}-pattern DRIVE_IDENTIFIER_KIND_UNIX_DEVICE = "unix-device" :: T.Text--{- |-Extension point for default handler to URI association. See-[Extending GIO][extending-gio].--}-pattern DESKTOP_APP_INFO_LOOKUP_EXTENSION_POINT_NAME = "gio-desktop-app-info-lookup" :: T.Text--
− GI/Gio/Enums.hs 
@@ -1,3010 +0,0 @@---{- |-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.Gio.Enums-    ( -- -- * Enumerations--- ** BusType #enum:BusType#--    BusType(..)                             ,----- ** ConverterResult #enum:ConverterResult#--    ConverterResult(..)                     ,----- ** CredentialsType #enum:CredentialsType#--    CredentialsType(..)                     ,----- ** DBusError #enum:DBusError#--    DBusError(..)                           ,-    catchDBusError                          ,-    handleDBusError                         ,----- ** DBusMessageByteOrder #enum:DBusMessageByteOrder#--    DBusMessageByteOrder(..)                ,----- ** DBusMessageHeaderField #enum:DBusMessageHeaderField#--    DBusMessageHeaderField(..)              ,----- ** DBusMessageType #enum:DBusMessageType#--    DBusMessageType(..)                     ,----- ** DataStreamByteOrder #enum:DataStreamByteOrder#--    DataStreamByteOrder(..)                 ,----- ** DataStreamNewlineType #enum:DataStreamNewlineType#--    DataStreamNewlineType(..)               ,----- ** DriveStartStopType #enum:DriveStartStopType#--    DriveStartStopType(..)                  ,----- ** EmblemOrigin #enum:EmblemOrigin#--    EmblemOrigin(..)                        ,----- ** FileAttributeStatus #enum:FileAttributeStatus#--    FileAttributeStatus(..)                 ,----- ** FileAttributeType #enum:FileAttributeType#--    FileAttributeType(..)                   ,----- ** FileMonitorEvent #enum:FileMonitorEvent#--    FileMonitorEvent(..)                    ,----- ** FileType #enum:FileType#--    FileType(..)                            ,----- ** FilesystemPreviewType #enum:FilesystemPreviewType#--    FilesystemPreviewType(..)               ,----- ** IOErrorEnum #enum:IOErrorEnum#--    IOErrorEnum(..)                         ,-    catchIOErrorEnum                        ,-    handleIOErrorEnum                       ,----- ** IOModuleScopeFlags #enum:IOModuleScopeFlags#--    IOModuleScopeFlags(..)                  ,----- ** MountOperationResult #enum:MountOperationResult#--    MountOperationResult(..)                ,----- ** NetworkConnectivity #enum:NetworkConnectivity#--    NetworkConnectivity(..)                 ,----- ** NotificationPriority #enum:NotificationPriority#--    NotificationPriority(..)                ,----- ** PasswordSave #enum:PasswordSave#--    PasswordSave(..)                        ,----- ** PollableReturn #enum:PollableReturn#--    PollableReturn(..)                      ,----- ** ResolverError #enum:ResolverError#--    ResolverError(..)                       ,-    catchResolverError                      ,-    handleResolverError                     ,----- ** ResolverRecordType #enum:ResolverRecordType#--    ResolverRecordType(..)                  ,----- ** ResourceError #enum:ResourceError#--    ResourceError(..)                       ,-    catchResourceError                      ,-    handleResourceError                     ,----- ** SocketClientEvent #enum:SocketClientEvent#--    SocketClientEvent(..)                   ,----- ** SocketFamily #enum:SocketFamily#--    SocketFamily(..)                        ,----- ** SocketListenerEvent #enum:SocketListenerEvent#--    SocketListenerEvent(..)                 ,----- ** SocketProtocol #enum:SocketProtocol#--    SocketProtocol(..)                      ,----- ** SocketType #enum:SocketType#--    SocketType(..)                          ,----- ** TlsAuthenticationMode #enum:TlsAuthenticationMode#--    TlsAuthenticationMode(..)               ,----- ** TlsCertificateRequestFlags #enum:TlsCertificateRequestFlags#--    TlsCertificateRequestFlags(..)          ,----- ** TlsDatabaseLookupFlags #enum:TlsDatabaseLookupFlags#--    TlsDatabaseLookupFlags(..)              ,----- ** TlsError #enum:TlsError#--    TlsError(..)                            ,-    catchTlsError                           ,-    handleTlsError                          ,----- ** TlsInteractionResult #enum:TlsInteractionResult#--    TlsInteractionResult(..)                ,----- ** TlsRehandshakeMode #enum:TlsRehandshakeMode#--    TlsRehandshakeMode(..)                  ,----- ** UnixSocketAddressType #enum:UnixSocketAddressType#--    UnixSocketAddressType(..)               ,----- ** ZlibCompressorFormat #enum:ZlibCompressorFormat#--    ZlibCompressorFormat(..)                ,-----    ) 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 ZlibCompressorFormat-{- |-Used to select the type of data format to use for 'GI.Gio.Objects.ZlibDecompressor.ZlibDecompressor'-and 'GI.Gio.Objects.ZlibCompressor.ZlibCompressor'.--/Since: 2.24/--}-data ZlibCompressorFormat = -      ZlibCompressorFormatZlib-    {- ^-    deflate compression with zlib header-    -}-    | ZlibCompressorFormatGzip-    {- ^-    gzip file format-    -}-    | ZlibCompressorFormatRaw-    {- ^-    deflate compression with no header-    -}-    | AnotherZlibCompressorFormat Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ZlibCompressorFormat where-    fromEnum ZlibCompressorFormatZlib = 0-    fromEnum ZlibCompressorFormatGzip = 1-    fromEnum ZlibCompressorFormatRaw = 2-    fromEnum (AnotherZlibCompressorFormat k) = k--    toEnum 0 = ZlibCompressorFormatZlib-    toEnum 1 = ZlibCompressorFormatGzip-    toEnum 2 = ZlibCompressorFormatRaw-    toEnum k = AnotherZlibCompressorFormat k--instance P.Ord ZlibCompressorFormat where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_zlib_compressor_format_get_type" c_g_zlib_compressor_format_get_type :: -    IO GType--instance BoxedEnum ZlibCompressorFormat where-    boxedEnumType _ = c_g_zlib_compressor_format_get_type---- Enum UnixSocketAddressType-{- |-The type of name used by a 'GI.Gio.Objects.UnixSocketAddress.UnixSocketAddress'.-'GI.Gio.Enums.UnixSocketAddressTypePath' indicates a traditional unix domain-socket bound to a filesystem path. 'GI.Gio.Enums.UnixSocketAddressTypeAnonymous'-indicates a socket not bound to any name (eg, a client-side socket,-or a socket created with @/socketpair()/@).--For abstract sockets, there are two incompatible ways of naming-them; the man pages suggest using the entire @struct sockaddr_un@-as the name, padding the unused parts of the @/sun_path/@ field with-zeroes; this corresponds to 'GI.Gio.Enums.UnixSocketAddressTypeAbstractPadded'.-However, many programs instead just use a portion of @/sun_path/@, and-pass an appropriate smaller length to @/bind()/@ or @/connect()/@. This is-'GI.Gio.Enums.UnixSocketAddressTypeAbstract'.--/Since: 2.26/--}-data UnixSocketAddressType = -      UnixSocketAddressTypeInvalid-    {- ^-    invalid-    -}-    | UnixSocketAddressTypeAnonymous-    {- ^-    anonymous-    -}-    | UnixSocketAddressTypePath-    {- ^-    a filesystem path-    -}-    | UnixSocketAddressTypeAbstract-    {- ^-    an abstract name-    -}-    | UnixSocketAddressTypeAbstractPadded-    {- ^-    an abstract name, 0-padded-      to the full length of a unix socket name-    -}-    | AnotherUnixSocketAddressType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum UnixSocketAddressType where-    fromEnum UnixSocketAddressTypeInvalid = 0-    fromEnum UnixSocketAddressTypeAnonymous = 1-    fromEnum UnixSocketAddressTypePath = 2-    fromEnum UnixSocketAddressTypeAbstract = 3-    fromEnum UnixSocketAddressTypeAbstractPadded = 4-    fromEnum (AnotherUnixSocketAddressType k) = k--    toEnum 0 = UnixSocketAddressTypeInvalid-    toEnum 1 = UnixSocketAddressTypeAnonymous-    toEnum 2 = UnixSocketAddressTypePath-    toEnum 3 = UnixSocketAddressTypeAbstract-    toEnum 4 = UnixSocketAddressTypeAbstractPadded-    toEnum k = AnotherUnixSocketAddressType k--instance P.Ord UnixSocketAddressType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_unix_socket_address_type_get_type" c_g_unix_socket_address_type_get_type :: -    IO GType--instance BoxedEnum UnixSocketAddressType where-    boxedEnumType _ = c_g_unix_socket_address_type_get_type---- Enum TlsRehandshakeMode-{-# DEPRECATED TlsRehandshakeMode ["(Since version 2.60.)","Changing the rehandshake mode is no longer","  required for compatibility. Also, rehandshaking has been removed","  from the TLS protocol in TLS 1.3."] #-}-{- |-When to allow rehandshaking. See-'GI.Gio.Objects.TlsConnection.tlsConnectionSetRehandshakeMode'.--/Since: 2.28/--}-data TlsRehandshakeMode = -      TlsRehandshakeModeNever-    {- ^-    Never allow rehandshaking-    -}-    | TlsRehandshakeModeSafely-    {- ^-    Allow safe rehandshaking only-    -}-    | TlsRehandshakeModeUnsafely-    {- ^-    Allow unsafe rehandshaking-    -}-    | AnotherTlsRehandshakeMode Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsRehandshakeMode where-    fromEnum TlsRehandshakeModeNever = 0-    fromEnum TlsRehandshakeModeSafely = 1-    fromEnum TlsRehandshakeModeUnsafely = 2-    fromEnum (AnotherTlsRehandshakeMode k) = k--    toEnum 0 = TlsRehandshakeModeNever-    toEnum 1 = TlsRehandshakeModeSafely-    toEnum 2 = TlsRehandshakeModeUnsafely-    toEnum k = AnotherTlsRehandshakeMode k--instance P.Ord TlsRehandshakeMode where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_tls_rehandshake_mode_get_type" c_g_tls_rehandshake_mode_get_type :: -    IO GType--instance BoxedEnum TlsRehandshakeMode where-    boxedEnumType _ = c_g_tls_rehandshake_mode_get_type---- Enum TlsInteractionResult-{- |-'GI.Gio.Enums.TlsInteractionResult' is returned by various functions in 'GI.Gio.Objects.TlsInteraction.TlsInteraction'-when finishing an interaction request.--/Since: 2.30/--}-data TlsInteractionResult = -      TlsInteractionResultUnhandled-    {- ^-    The interaction was unhandled (i.e. not-        implemented).-    -}-    | TlsInteractionResultHandled-    {- ^-    The interaction completed, and resulting data-        is available.-    -}-    | TlsInteractionResultFailed-    {- ^-    The interaction has failed, or was cancelled.-        and the operation should be aborted.-    -}-    | AnotherTlsInteractionResult Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsInteractionResult where-    fromEnum TlsInteractionResultUnhandled = 0-    fromEnum TlsInteractionResultHandled = 1-    fromEnum TlsInteractionResultFailed = 2-    fromEnum (AnotherTlsInteractionResult k) = k--    toEnum 0 = TlsInteractionResultUnhandled-    toEnum 1 = TlsInteractionResultHandled-    toEnum 2 = TlsInteractionResultFailed-    toEnum k = AnotherTlsInteractionResult k--instance P.Ord TlsInteractionResult where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_tls_interaction_result_get_type" c_g_tls_interaction_result_get_type :: -    IO GType--instance BoxedEnum TlsInteractionResult where-    boxedEnumType _ = c_g_tls_interaction_result_get_type---- Enum TlsError-{- |-An error code used with @/G_TLS_ERROR/@ in a 'GError' returned from a-TLS-related routine.--/Since: 2.28/--}-data TlsError = -      TlsErrorUnavailable-    {- ^-    No TLS provider is available-    -}-    | TlsErrorMisc-    {- ^-    Miscellaneous TLS error-    -}-    | TlsErrorBadCertificate-    {- ^-    The certificate presented could not-      be parsed or failed validation.-    -}-    | TlsErrorNotTls-    {- ^-    The TLS handshake failed because the-      peer does not seem to be a TLS server.-    -}-    | TlsErrorHandshake-    {- ^-    The TLS handshake failed because the-      peer\'s certificate was not acceptable.-    -}-    | TlsErrorCertificateRequired-    {- ^-    The TLS handshake failed because-      the server requested a client-side certificate, but none was-      provided. See 'GI.Gio.Objects.TlsConnection.tlsConnectionSetCertificate'.-    -}-    | TlsErrorEof-    {- ^-    The TLS connection was closed without proper-      notice, which may indicate an attack. See-      'GI.Gio.Objects.TlsConnection.tlsConnectionSetRequireCloseNotify'.-    -}-    | TlsErrorInappropriateFallback-    {- ^-    The TLS handshake failed-      because the client sent the fallback SCSV, indicating a protocol-      downgrade attack. Since: 2.60-    -}-    | AnotherTlsError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsError where-    fromEnum TlsErrorUnavailable = 0-    fromEnum TlsErrorMisc = 1-    fromEnum TlsErrorBadCertificate = 2-    fromEnum TlsErrorNotTls = 3-    fromEnum TlsErrorHandshake = 4-    fromEnum TlsErrorCertificateRequired = 5-    fromEnum TlsErrorEof = 6-    fromEnum TlsErrorInappropriateFallback = 7-    fromEnum (AnotherTlsError k) = k--    toEnum 0 = TlsErrorUnavailable-    toEnum 1 = TlsErrorMisc-    toEnum 2 = TlsErrorBadCertificate-    toEnum 3 = TlsErrorNotTls-    toEnum 4 = TlsErrorHandshake-    toEnum 5 = TlsErrorCertificateRequired-    toEnum 6 = TlsErrorEof-    toEnum 7 = TlsErrorInappropriateFallback-    toEnum k = AnotherTlsError k--instance P.Ord TlsError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass TlsError where-    gerrorClassDomain _ = "g-tls-error-quark"---- | Catch exceptions of type `TlsError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchTlsError ::-    IO a ->-    (TlsError -> GErrorMessage -> IO a) ->-    IO a-catchTlsError = catchGErrorJustDomain---- | Handle exceptions of type `TlsError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-handleTlsError ::-    (TlsError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleTlsError = handleGErrorJustDomain--foreign import ccall "g_tls_error_get_type" c_g_tls_error_get_type :: -    IO GType--instance BoxedEnum TlsError where-    boxedEnumType _ = c_g_tls_error_get_type---- Enum TlsDatabaseLookupFlags-{- |-Flags for 'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificateForHandle',-'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificateIssuer',-and 'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificatesIssuedBy'.--/Since: 2.30/--}-data TlsDatabaseLookupFlags = -      TlsDatabaseLookupFlagsNone-    {- ^-    No lookup flags-    -}-    | TlsDatabaseLookupFlagsKeypair-    {- ^-    Restrict lookup to certificates that have-        a private key.-    -}-    | AnotherTlsDatabaseLookupFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsDatabaseLookupFlags where-    fromEnum TlsDatabaseLookupFlagsNone = 0-    fromEnum TlsDatabaseLookupFlagsKeypair = 1-    fromEnum (AnotherTlsDatabaseLookupFlags k) = k--    toEnum 0 = TlsDatabaseLookupFlagsNone-    toEnum 1 = TlsDatabaseLookupFlagsKeypair-    toEnum k = AnotherTlsDatabaseLookupFlags k--instance P.Ord TlsDatabaseLookupFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_tls_database_lookup_flags_get_type" c_g_tls_database_lookup_flags_get_type :: -    IO GType--instance BoxedEnum TlsDatabaseLookupFlags where-    boxedEnumType _ = c_g_tls_database_lookup_flags_get_type---- Enum TlsCertificateRequestFlags-{- |-Flags for 'GI.Gio.Objects.TlsInteraction.tlsInteractionRequestCertificate',-'GI.Gio.Objects.TlsInteraction.tlsInteractionRequestCertificateAsync', and-'GI.Gio.Objects.TlsInteraction.tlsInteractionInvokeRequestCertificate'.--/Since: 2.40/--}-data TlsCertificateRequestFlags = -      TlsCertificateRequestFlagsNone-    {- ^-    No flags-    -}-    | AnotherTlsCertificateRequestFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsCertificateRequestFlags where-    fromEnum TlsCertificateRequestFlagsNone = 0-    fromEnum (AnotherTlsCertificateRequestFlags k) = k--    toEnum 0 = TlsCertificateRequestFlagsNone-    toEnum k = AnotherTlsCertificateRequestFlags k--instance P.Ord TlsCertificateRequestFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_tls_certificate_request_flags_get_type" c_g_tls_certificate_request_flags_get_type :: -    IO GType--instance BoxedEnum TlsCertificateRequestFlags where-    boxedEnumType _ = c_g_tls_certificate_request_flags_get_type---- Enum TlsAuthenticationMode-{- |-The client authentication mode for a 'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection'.--/Since: 2.28/--}-data TlsAuthenticationMode = -      TlsAuthenticationModeNone-    {- ^-    client authentication not required-    -}-    | TlsAuthenticationModeRequested-    {- ^-    client authentication is requested-    -}-    | TlsAuthenticationModeRequired-    {- ^-    client authentication is required-    -}-    | AnotherTlsAuthenticationMode Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsAuthenticationMode where-    fromEnum TlsAuthenticationModeNone = 0-    fromEnum TlsAuthenticationModeRequested = 1-    fromEnum TlsAuthenticationModeRequired = 2-    fromEnum (AnotherTlsAuthenticationMode k) = k--    toEnum 0 = TlsAuthenticationModeNone-    toEnum 1 = TlsAuthenticationModeRequested-    toEnum 2 = TlsAuthenticationModeRequired-    toEnum k = AnotherTlsAuthenticationMode k--instance P.Ord TlsAuthenticationMode where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_tls_authentication_mode_get_type" c_g_tls_authentication_mode_get_type :: -    IO GType--instance BoxedEnum TlsAuthenticationMode where-    boxedEnumType _ = c_g_tls_authentication_mode_get_type---- Enum SocketType-{- |-Flags used when creating a 'GI.Gio.Objects.Socket.Socket'. Some protocols may not implement-all the socket types.--/Since: 2.22/--}-data SocketType = -      SocketTypeInvalid-    {- ^-    Type unknown or wrong-    -}-    | SocketTypeStream-    {- ^-    Reliable connection-based byte streams (e.g. TCP).-    -}-    | SocketTypeDatagram-    {- ^-    Connectionless, unreliable datagram passing.-        (e.g. UDP)-    -}-    | SocketTypeSeqpacket-    {- ^-    Reliable connection-based passing of datagrams-        of fixed maximum length (e.g. SCTP).-    -}-    | AnotherSocketType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum SocketType where-    fromEnum SocketTypeInvalid = 0-    fromEnum SocketTypeStream = 1-    fromEnum SocketTypeDatagram = 2-    fromEnum SocketTypeSeqpacket = 3-    fromEnum (AnotherSocketType k) = k--    toEnum 0 = SocketTypeInvalid-    toEnum 1 = SocketTypeStream-    toEnum 2 = SocketTypeDatagram-    toEnum 3 = SocketTypeSeqpacket-    toEnum k = AnotherSocketType k--instance P.Ord SocketType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_socket_type_get_type" c_g_socket_type_get_type :: -    IO GType--instance BoxedEnum SocketType where-    boxedEnumType _ = c_g_socket_type_get_type---- Enum SocketProtocol-{- |-A protocol identifier is specified when creating a 'GI.Gio.Objects.Socket.Socket', which is a-family\/type specific identifier, where 0 means the default protocol for-the particular family\/type.--This enum contains a set of commonly available and used protocols. You-can also pass any other identifiers handled by the platform in order to-use protocols not listed here.--/Since: 2.22/--}-data SocketProtocol = -      SocketProtocolUnknown-    {- ^-    The protocol type is unknown-    -}-    | SocketProtocolDefault-    {- ^-    The default protocol for the family\/type-    -}-    | SocketProtocolTcp-    {- ^-    TCP over IP-    -}-    | SocketProtocolUdp-    {- ^-    UDP over IP-    -}-    | SocketProtocolSctp-    {- ^-    SCTP over IP-    -}-    | AnotherSocketProtocol Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum SocketProtocol where-    fromEnum SocketProtocolUnknown = -1-    fromEnum SocketProtocolDefault = 0-    fromEnum SocketProtocolTcp = 6-    fromEnum SocketProtocolUdp = 17-    fromEnum SocketProtocolSctp = 132-    fromEnum (AnotherSocketProtocol k) = k--    toEnum -1 = SocketProtocolUnknown-    toEnum 0 = SocketProtocolDefault-    toEnum 6 = SocketProtocolTcp-    toEnum 17 = SocketProtocolUdp-    toEnum 132 = SocketProtocolSctp-    toEnum k = AnotherSocketProtocol k--instance P.Ord SocketProtocol where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_socket_protocol_get_type" c_g_socket_protocol_get_type :: -    IO GType--instance BoxedEnum SocketProtocol where-    boxedEnumType _ = c_g_socket_protocol_get_type---- Enum SocketListenerEvent-{- |-Describes an event occurring on a 'GI.Gio.Objects.SocketListener.SocketListener'. See the-'GI.Gio.Objects.SocketListener.SocketListener'::@/event/@ signal for more details.--Additional values may be added to this type in the future.--/Since: 2.46/--}-data SocketListenerEvent = -      SocketListenerEventBinding-    {- ^-    The listener is about to bind a socket.-    -}-    | SocketListenerEventBound-    {- ^-    The listener has bound a socket.-    -}-    | SocketListenerEventListening-    {- ^-    The listener is about to start-       listening on this socket.-    -}-    | SocketListenerEventListened-    {- ^-    The listener is now listening on-      this socket.-    -}-    | AnotherSocketListenerEvent Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum SocketListenerEvent where-    fromEnum SocketListenerEventBinding = 0-    fromEnum SocketListenerEventBound = 1-    fromEnum SocketListenerEventListening = 2-    fromEnum SocketListenerEventListened = 3-    fromEnum (AnotherSocketListenerEvent k) = k--    toEnum 0 = SocketListenerEventBinding-    toEnum 1 = SocketListenerEventBound-    toEnum 2 = SocketListenerEventListening-    toEnum 3 = SocketListenerEventListened-    toEnum k = AnotherSocketListenerEvent k--instance P.Ord SocketListenerEvent where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_socket_listener_event_get_type" c_g_socket_listener_event_get_type :: -    IO GType--instance BoxedEnum SocketListenerEvent where-    boxedEnumType _ = c_g_socket_listener_event_get_type---- Enum SocketFamily-{- |-The protocol family of a 'GI.Gio.Objects.SocketAddress.SocketAddress'. (These values are-identical to the system defines @/AF_INET/@, @/AF_INET6/@ and @/AF_UNIX/@,-if available.)--/Since: 2.22/--}-data SocketFamily = -      SocketFamilyInvalid-    {- ^-    no address family-    -}-    | SocketFamilyUnix-    {- ^-    the UNIX domain family-    -}-    | SocketFamilyIpv4-    {- ^-    the IPv4 family-    -}-    | SocketFamilyIpv6-    {- ^-    the IPv6 family-    -}-    | AnotherSocketFamily Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum SocketFamily where-    fromEnum SocketFamilyInvalid = 0-    fromEnum SocketFamilyUnix = 1-    fromEnum SocketFamilyIpv4 = 2-    fromEnum SocketFamilyIpv6 = 10-    fromEnum (AnotherSocketFamily k) = k--    toEnum 0 = SocketFamilyInvalid-    toEnum 1 = SocketFamilyUnix-    toEnum 2 = SocketFamilyIpv4-    toEnum 10 = SocketFamilyIpv6-    toEnum k = AnotherSocketFamily k--instance P.Ord SocketFamily where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_socket_family_get_type" c_g_socket_family_get_type :: -    IO GType--instance BoxedEnum SocketFamily where-    boxedEnumType _ = c_g_socket_family_get_type---- Enum SocketClientEvent-{- |-Describes an event occurring on a 'GI.Gio.Objects.SocketClient.SocketClient'. See the-'GI.Gio.Objects.SocketClient.SocketClient'::@/event/@ signal for more details.--Additional values may be added to this type in the future.--/Since: 2.32/--}-data SocketClientEvent = -      SocketClientEventResolving-    {- ^-    The client is doing a DNS lookup.-    -}-    | SocketClientEventResolved-    {- ^-    The client has completed a DNS lookup.-    -}-    | SocketClientEventConnecting-    {- ^-    The client is connecting to a remote-      host (either a proxy or the destination server).-    -}-    | SocketClientEventConnected-    {- ^-    The client has connected to a remote-      host.-    -}-    | SocketClientEventProxyNegotiating-    {- ^-    The client is negotiating-      with a proxy to connect to the destination server.-    -}-    | SocketClientEventProxyNegotiated-    {- ^-    The client has negotiated-      with the proxy server.-    -}-    | SocketClientEventTlsHandshaking-    {- ^-    The client is performing a-      TLS handshake.-    -}-    | SocketClientEventTlsHandshaked-    {- ^-    The client has performed a-      TLS handshake.-    -}-    | SocketClientEventComplete-    {- ^-    The client is done with a particular-      'GI.Gio.Interfaces.SocketConnectable.SocketConnectable'.-    -}-    | AnotherSocketClientEvent Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum SocketClientEvent where-    fromEnum SocketClientEventResolving = 0-    fromEnum SocketClientEventResolved = 1-    fromEnum SocketClientEventConnecting = 2-    fromEnum SocketClientEventConnected = 3-    fromEnum SocketClientEventProxyNegotiating = 4-    fromEnum SocketClientEventProxyNegotiated = 5-    fromEnum SocketClientEventTlsHandshaking = 6-    fromEnum SocketClientEventTlsHandshaked = 7-    fromEnum SocketClientEventComplete = 8-    fromEnum (AnotherSocketClientEvent k) = k--    toEnum 0 = SocketClientEventResolving-    toEnum 1 = SocketClientEventResolved-    toEnum 2 = SocketClientEventConnecting-    toEnum 3 = SocketClientEventConnected-    toEnum 4 = SocketClientEventProxyNegotiating-    toEnum 5 = SocketClientEventProxyNegotiated-    toEnum 6 = SocketClientEventTlsHandshaking-    toEnum 7 = SocketClientEventTlsHandshaked-    toEnum 8 = SocketClientEventComplete-    toEnum k = AnotherSocketClientEvent k--instance P.Ord SocketClientEvent where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_socket_client_event_get_type" c_g_socket_client_event_get_type :: -    IO GType--instance BoxedEnum SocketClientEvent where-    boxedEnumType _ = c_g_socket_client_event_get_type---- Enum ResourceError-{- |-An error code used with @/G_RESOURCE_ERROR/@ in a 'GError' returned-from a 'GI.Gio.Structs.Resource.Resource' routine.--/Since: 2.32/--}-data ResourceError = -      ResourceErrorNotFound-    {- ^-    no file was found at the requested path-    -}-    | ResourceErrorInternal-    {- ^-    unknown error-    -}-    | AnotherResourceError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ResourceError where-    fromEnum ResourceErrorNotFound = 0-    fromEnum ResourceErrorInternal = 1-    fromEnum (AnotherResourceError k) = k--    toEnum 0 = ResourceErrorNotFound-    toEnum 1 = ResourceErrorInternal-    toEnum k = AnotherResourceError k--instance P.Ord ResourceError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass ResourceError where-    gerrorClassDomain _ = "g-resource-error-quark"---- | Catch exceptions of type `ResourceError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchResourceError ::-    IO a ->-    (ResourceError -> GErrorMessage -> IO a) ->-    IO a-catchResourceError = catchGErrorJustDomain---- | Handle exceptions of type `ResourceError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-handleResourceError ::-    (ResourceError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleResourceError = handleGErrorJustDomain--foreign import ccall "g_resource_error_get_type" c_g_resource_error_get_type :: -    IO GType--instance BoxedEnum ResourceError where-    boxedEnumType _ = c_g_resource_error_get_type---- Enum ResolverRecordType-{- |-The type of record that 'GI.Gio.Objects.Resolver.resolverLookupRecords' or-'GI.Gio.Objects.Resolver.resolverLookupRecordsAsync' should retrieve. The records are returned-as lists of 'GVariant' tuples. Each record type has different values in-the variant tuples returned.--'GI.Gio.Enums.ResolverRecordTypeSrv' records are returned as variants with the signature-\'(qqqs)\', containing a guint16 with the priority, a guint16 with the-weight, a guint16 with the port, and a string of the hostname.--'GI.Gio.Enums.ResolverRecordTypeMx' records are returned as variants with the signature-\'(qs)\', representing a guint16 with the preference, and a string containing-the mail exchanger hostname.--'GI.Gio.Enums.ResolverRecordTypeTxt' records are returned as variants with the signature-\'(as)\', representing an array of the strings in the text record.--'GI.Gio.Enums.ResolverRecordTypeSoa' records are returned as variants with the signature-\'(ssuuuuu)\', representing a string containing the primary name server, a-string containing the administrator, the serial as a guint32, the refresh-interval as guint32, the retry interval as a guint32, the expire timeout-as a guint32, and the ttl as a guint32.--'GI.Gio.Enums.ResolverRecordTypeNs' records are returned as variants with the signature-\'(s)\', representing a string of the hostname of the name server.--/Since: 2.34/--}-data ResolverRecordType = -      ResolverRecordTypeSrv-    {- ^-    lookup DNS SRV records for a domain-    -}-    | ResolverRecordTypeMx-    {- ^-    lookup DNS MX records for a domain-    -}-    | ResolverRecordTypeTxt-    {- ^-    lookup DNS TXT records for a name-    -}-    | ResolverRecordTypeSoa-    {- ^-    lookup DNS SOA records for a zone-    -}-    | ResolverRecordTypeNs-    {- ^-    lookup DNS NS records for a domain-    -}-    | AnotherResolverRecordType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ResolverRecordType where-    fromEnum ResolverRecordTypeSrv = 1-    fromEnum ResolverRecordTypeMx = 2-    fromEnum ResolverRecordTypeTxt = 3-    fromEnum ResolverRecordTypeSoa = 4-    fromEnum ResolverRecordTypeNs = 5-    fromEnum (AnotherResolverRecordType k) = k--    toEnum 1 = ResolverRecordTypeSrv-    toEnum 2 = ResolverRecordTypeMx-    toEnum 3 = ResolverRecordTypeTxt-    toEnum 4 = ResolverRecordTypeSoa-    toEnum 5 = ResolverRecordTypeNs-    toEnum k = AnotherResolverRecordType k--instance P.Ord ResolverRecordType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_resolver_record_type_get_type" c_g_resolver_record_type_get_type :: -    IO GType--instance BoxedEnum ResolverRecordType where-    boxedEnumType _ = c_g_resolver_record_type_get_type---- Enum ResolverError-{- |-An error code used with @/G_RESOLVER_ERROR/@ in a 'GError' returned-from a 'GI.Gio.Objects.Resolver.Resolver' routine.--/Since: 2.22/--}-data ResolverError = -      ResolverErrorNotFound-    {- ^-    the requested name\/address\/service was not-        found-    -}-    | ResolverErrorTemporaryFailure-    {- ^-    the requested information could not-        be looked up due to a network error or similar problem-    -}-    | ResolverErrorInternal-    {- ^-    unknown error-    -}-    | AnotherResolverError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ResolverError where-    fromEnum ResolverErrorNotFound = 0-    fromEnum ResolverErrorTemporaryFailure = 1-    fromEnum ResolverErrorInternal = 2-    fromEnum (AnotherResolverError k) = k--    toEnum 0 = ResolverErrorNotFound-    toEnum 1 = ResolverErrorTemporaryFailure-    toEnum 2 = ResolverErrorInternal-    toEnum k = AnotherResolverError k--instance P.Ord ResolverError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass ResolverError where-    gerrorClassDomain _ = "g-resolver-error-quark"---- | Catch exceptions of type `ResolverError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchResolverError ::-    IO a ->-    (ResolverError -> GErrorMessage -> IO a) ->-    IO a-catchResolverError = catchGErrorJustDomain---- | Handle exceptions of type `ResolverError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-handleResolverError ::-    (ResolverError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleResolverError = handleGErrorJustDomain--foreign import ccall "g_resolver_error_get_type" c_g_resolver_error_get_type :: -    IO GType--instance BoxedEnum ResolverError where-    boxedEnumType _ = c_g_resolver_error_get_type---- Enum PollableReturn-{- |-Return value for various IO operations that signal errors via the-return value and not necessarily via a 'GError'.--This enum exists to be able to return errors to callers without having to-allocate a 'GError'. Allocating @/GErrors/@ can be quite expensive for-regularly happening errors like 'GI.Gio.Enums.IOErrorEnumWouldBlock'.--In case of 'GI.Gio.Enums.PollableReturnFailed' a 'GError' should be set for the-operation to give details about the error that happened.--/Since: 2.60/--}-data PollableReturn = -      PollableReturnFailed-    {- ^-    Generic error condition for when an operation fails.-    -}-    | PollableReturnOk-    {- ^-    The operation was successfully finished.-    -}-    | PollableReturnWouldBlock-    {- ^-    The operation would block.-    -}-    | AnotherPollableReturn Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum PollableReturn where-    fromEnum PollableReturnFailed = 0-    fromEnum PollableReturnOk = 1-    fromEnum PollableReturnWouldBlock = -27-    fromEnum (AnotherPollableReturn k) = k--    toEnum 0 = PollableReturnFailed-    toEnum 1 = PollableReturnOk-    toEnum -27 = PollableReturnWouldBlock-    toEnum k = AnotherPollableReturn k--instance P.Ord PollableReturn where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_pollable_return_get_type" c_g_pollable_return_get_type :: -    IO GType--instance BoxedEnum PollableReturn where-    boxedEnumType _ = c_g_pollable_return_get_type---- Enum PasswordSave-{- |-'GI.Gio.Enums.PasswordSave' is used to indicate the lifespan of a saved password.--@/Gvfs/@ stores passwords in the Gnome keyring when this flag allows it-to, and later retrieves it again from there.--}-data PasswordSave = -      PasswordSaveNever-    {- ^-    never save a password.-    -}-    | PasswordSaveForSession-    {- ^-    save a password for the session.-    -}-    | PasswordSavePermanently-    {- ^-    save a password permanently.-    -}-    | AnotherPasswordSave Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum PasswordSave where-    fromEnum PasswordSaveNever = 0-    fromEnum PasswordSaveForSession = 1-    fromEnum PasswordSavePermanently = 2-    fromEnum (AnotherPasswordSave k) = k--    toEnum 0 = PasswordSaveNever-    toEnum 1 = PasswordSaveForSession-    toEnum 2 = PasswordSavePermanently-    toEnum k = AnotherPasswordSave k--instance P.Ord PasswordSave where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_password_save_get_type" c_g_password_save_get_type :: -    IO GType--instance BoxedEnum PasswordSave where-    boxedEnumType _ = c_g_password_save_get_type---- Enum NotificationPriority-{- |-Priority levels for @/GNotifications/@.--/Since: 2.42/--}-data NotificationPriority = -      NotificationPriorityNormal-    {- ^-    the default priority, to be used for the-      majority of notifications (for example email messages, software updates,-      completed download\/sync operations)-    -}-    | NotificationPriorityLow-    {- ^-    for notifications that do not require-      immediate attention - typically used for contextual background-      information, such as contact birthdays or local weather-    -}-    | NotificationPriorityHigh-    {- ^-    for events that require more attention,-      usually because responses are time-sensitive (for example chat and SMS-      messages or alarms)-    -}-    | NotificationPriorityUrgent-    {- ^-    for urgent notifications, or notifications-      that require a response in a short space of time (for example phone calls-      or emergency warnings)-    -}-    | AnotherNotificationPriority Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum NotificationPriority where-    fromEnum NotificationPriorityNormal = 0-    fromEnum NotificationPriorityLow = 1-    fromEnum NotificationPriorityHigh = 2-    fromEnum NotificationPriorityUrgent = 3-    fromEnum (AnotherNotificationPriority k) = k--    toEnum 0 = NotificationPriorityNormal-    toEnum 1 = NotificationPriorityLow-    toEnum 2 = NotificationPriorityHigh-    toEnum 3 = NotificationPriorityUrgent-    toEnum k = AnotherNotificationPriority k--instance P.Ord NotificationPriority where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_notification_priority_get_type" c_g_notification_priority_get_type :: -    IO GType--instance BoxedEnum NotificationPriority where-    boxedEnumType _ = c_g_notification_priority_get_type---- Enum NetworkConnectivity-{- |-The host\'s network connectivity state, as reported by 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor'.--/Since: 2.44/--}-data NetworkConnectivity = -      NetworkConnectivityLocal-    {- ^-    The host is not configured with a-      route to the Internet; it may or may not be connected to a local-      network.-    -}-    | NetworkConnectivityLimited-    {- ^-    The host is connected to a network, but-      does not appear to be able to reach the full Internet, perhaps-      due to upstream network problems.-    -}-    | NetworkConnectivityPortal-    {- ^-    The host is behind a captive portal and-      cannot reach the full Internet.-    -}-    | NetworkConnectivityFull-    {- ^-    The host is connected to a network, and-      appears to be able to reach the full Internet.-    -}-    | AnotherNetworkConnectivity Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum NetworkConnectivity where-    fromEnum NetworkConnectivityLocal = 1-    fromEnum NetworkConnectivityLimited = 2-    fromEnum NetworkConnectivityPortal = 3-    fromEnum NetworkConnectivityFull = 4-    fromEnum (AnotherNetworkConnectivity k) = k--    toEnum 1 = NetworkConnectivityLocal-    toEnum 2 = NetworkConnectivityLimited-    toEnum 3 = NetworkConnectivityPortal-    toEnum 4 = NetworkConnectivityFull-    toEnum k = AnotherNetworkConnectivity k--instance P.Ord NetworkConnectivity where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_network_connectivity_get_type" c_g_network_connectivity_get_type :: -    IO GType--instance BoxedEnum NetworkConnectivity where-    boxedEnumType _ = c_g_network_connectivity_get_type---- Enum MountOperationResult-{- |-'GI.Gio.Enums.MountOperationResult' is returned as a result when a request for-information is send by the mounting operation.--}-data MountOperationResult = -      MountOperationResultHandled-    {- ^-    The request was fulfilled and the-        user specified data is now available-    -}-    | MountOperationResultAborted-    {- ^-    The user requested the mount operation-        to be aborted-    -}-    | MountOperationResultUnhandled-    {- ^-    The request was unhandled (i.e. not-        implemented)-    -}-    | AnotherMountOperationResult Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum MountOperationResult where-    fromEnum MountOperationResultHandled = 0-    fromEnum MountOperationResultAborted = 1-    fromEnum MountOperationResultUnhandled = 2-    fromEnum (AnotherMountOperationResult k) = k--    toEnum 0 = MountOperationResultHandled-    toEnum 1 = MountOperationResultAborted-    toEnum 2 = MountOperationResultUnhandled-    toEnum k = AnotherMountOperationResult k--instance P.Ord MountOperationResult where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_mount_operation_result_get_type" c_g_mount_operation_result_get_type :: -    IO GType--instance BoxedEnum MountOperationResult where-    boxedEnumType _ = c_g_mount_operation_result_get_type---- Enum IOModuleScopeFlags-{- |-Flags for use with @/g_io_module_scope_new()/@.--/Since: 2.30/--}-data IOModuleScopeFlags = -      IOModuleScopeFlagsNone-    {- ^-    No module scan flags-    -}-    | IOModuleScopeFlagsBlockDuplicates-    {- ^-    When using this scope to load or-        scan modules, automatically block a modules which has the same base-        basename as previously loaded module.-    -}-    | AnotherIOModuleScopeFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum IOModuleScopeFlags where-    fromEnum IOModuleScopeFlagsNone = 0-    fromEnum IOModuleScopeFlagsBlockDuplicates = 1-    fromEnum (AnotherIOModuleScopeFlags k) = k--    toEnum 0 = IOModuleScopeFlagsNone-    toEnum 1 = IOModuleScopeFlagsBlockDuplicates-    toEnum k = AnotherIOModuleScopeFlags k--instance P.Ord IOModuleScopeFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_io_module_scope_flags_get_type" c_g_io_module_scope_flags_get_type :: -    IO GType--instance BoxedEnum IOModuleScopeFlags where-    boxedEnumType _ = c_g_io_module_scope_flags_get_type---- Enum IOErrorEnum-{- |-Error codes returned by GIO functions.--Note that this domain may be extended in future GLib releases. In-general, new error codes either only apply to new APIs, or else-replace 'GI.Gio.Enums.IOErrorEnumFailed' in cases that were not explicitly-distinguished before. You should therefore avoid writing code like--=== /C code/->->if (g_error_matches (error, G_IO_ERROR, G_IO_ERROR_FAILED))->  {->    // Assume that this is EPRINTERONFIRE->    ...->  }--but should instead treat all unrecognized error codes the same as-@/G_IO_ERROR_FAILED/@.--See also 'GI.Gio.Enums.PollableReturn' for a cheaper way of returning-'GI.Gio.Enums.IOErrorEnumWouldBlock' to callers without allocating a 'GError'.--}-data IOErrorEnum = -      IOErrorEnumFailed-    {- ^-    Generic error condition for when an operation fails-        and no more specific 'GI.Gio.Enums.IOErrorEnum' value is defined.-    -}-    | IOErrorEnumNotFound-    {- ^-    File not found.-    -}-    | IOErrorEnumExists-    {- ^-    File already exists.-    -}-    | IOErrorEnumIsDirectory-    {- ^-    File is a directory.-    -}-    | IOErrorEnumNotDirectory-    {- ^-    File is not a directory.-    -}-    | IOErrorEnumNotEmpty-    {- ^-    File is a directory that isn\'t empty.-    -}-    | IOErrorEnumNotRegularFile-    {- ^-    File is not a regular file.-    -}-    | IOErrorEnumNotSymbolicLink-    {- ^-    File is not a symbolic link.-    -}-    | IOErrorEnumNotMountableFile-    {- ^-    File cannot be mounted.-    -}-    | IOErrorEnumFilenameTooLong-    {- ^-    Filename is too many characters.-    -}-    | IOErrorEnumInvalidFilename-    {- ^-    Filename is invalid or contains invalid characters.-    -}-    | IOErrorEnumTooManyLinks-    {- ^-    File contains too many symbolic links.-    -}-    | IOErrorEnumNoSpace-    {- ^-    No space left on drive.-    -}-    | IOErrorEnumInvalidArgument-    {- ^-    Invalid argument.-    -}-    | IOErrorEnumPermissionDenied-    {- ^-    Permission denied.-    -}-    | IOErrorEnumNotSupported-    {- ^-    Operation (or one of its parameters) not supported-    -}-    | IOErrorEnumNotMounted-    {- ^-    File isn\'t mounted.-    -}-    | IOErrorEnumAlreadyMounted-    {- ^-    File is already mounted.-    -}-    | IOErrorEnumClosed-    {- ^-    File was closed.-    -}-    | IOErrorEnumCancelled-    {- ^-    Operation was cancelled. See 'GI.Gio.Objects.Cancellable.Cancellable'.-    -}-    | IOErrorEnumPending-    {- ^-    Operations are still pending.-    -}-    | IOErrorEnumReadOnly-    {- ^-    File is read only.-    -}-    | IOErrorEnumCantCreateBackup-    {- ^-    Backup couldn\'t be created.-    -}-    | IOErrorEnumWrongEtag-    {- ^-    File\'s Entity Tag was incorrect.-    -}-    | IOErrorEnumTimedOut-    {- ^-    Operation timed out.-    -}-    | IOErrorEnumWouldRecurse-    {- ^-    Operation would be recursive.-    -}-    | IOErrorEnumBusy-    {- ^-    File is busy.-    -}-    | IOErrorEnumWouldBlock-    {- ^-    Operation would block.-    -}-    | IOErrorEnumHostNotFound-    {- ^-    Host couldn\'t be found (remote operations).-    -}-    | IOErrorEnumWouldMerge-    {- ^-    Operation would merge files.-    -}-    | IOErrorEnumFailedHandled-    {- ^-    Operation failed and a helper program has-        already interacted with the user. Do not display any error dialog.-    -}-    | IOErrorEnumTooManyOpenFiles-    {- ^-    The current process has too many files-        open and can\'t open any more. Duplicate descriptors do count toward-        this limit. Since 2.20-    -}-    | IOErrorEnumNotInitialized-    {- ^-    The object has not been initialized. Since 2.22-    -}-    | IOErrorEnumAddressInUse-    {- ^-    The requested address is already in use. Since 2.22-    -}-    | IOErrorEnumPartialInput-    {- ^-    Need more input to finish operation. Since 2.24-    -}-    | IOErrorEnumInvalidData-    {- ^-    The input data was invalid. Since 2.24-    -}-    | IOErrorEnumDbusError-    {- ^-    A remote object generated an error that-        doesn\'t correspond to a locally registered 'GError' error-        domain. Use 'GI.Gio.Functions.dbusErrorGetRemoteError' to extract the D-Bus-        error name and 'GI.Gio.Functions.dbusErrorStripRemoteError' to fix up the-        message so it matches what was received on the wire. Since 2.26.-    -}-    | IOErrorEnumHostUnreachable-    {- ^-    Host unreachable. Since 2.26-    -}-    | IOErrorEnumNetworkUnreachable-    {- ^-    Network unreachable. Since 2.26-    -}-    | IOErrorEnumConnectionRefused-    {- ^-    Connection refused. Since 2.26-    -}-    | IOErrorEnumProxyFailed-    {- ^-    Connection to proxy server failed. Since 2.26-    -}-    | IOErrorEnumProxyAuthFailed-    {- ^-    Proxy authentication failed. Since 2.26-    -}-    | IOErrorEnumProxyNeedAuth-    {- ^-    Proxy server needs authentication. Since 2.26-    -}-    | IOErrorEnumProxyNotAllowed-    {- ^-    Proxy connection is not allowed by ruleset.-        Since 2.26-    -}-    | IOErrorEnumBrokenPipe-    {- ^-    Broken pipe. Since 2.36-    -}-    | IOErrorEnumConnectionClosed-    {- ^-    Connection closed by peer. Note that this-        is the same code as 'GI.Gio.Enums.IOErrorEnumBrokenPipe'; before 2.44 some-        \"connection closed\" errors returned 'GI.Gio.Enums.IOErrorEnumBrokenPipe', but others-        returned 'GI.Gio.Enums.IOErrorEnumFailed'. Now they should all return the same-        value, which has this more logical name. Since 2.44.-    -}-    | IOErrorEnumNotConnected-    {- ^-    Transport endpoint is not connected. Since 2.44-    -}-    | IOErrorEnumMessageTooLarge-    {- ^-    Message too large. Since 2.48.-    -}-    | AnotherIOErrorEnum Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum IOErrorEnum where-    fromEnum IOErrorEnumFailed = 0-    fromEnum IOErrorEnumNotFound = 1-    fromEnum IOErrorEnumExists = 2-    fromEnum IOErrorEnumIsDirectory = 3-    fromEnum IOErrorEnumNotDirectory = 4-    fromEnum IOErrorEnumNotEmpty = 5-    fromEnum IOErrorEnumNotRegularFile = 6-    fromEnum IOErrorEnumNotSymbolicLink = 7-    fromEnum IOErrorEnumNotMountableFile = 8-    fromEnum IOErrorEnumFilenameTooLong = 9-    fromEnum IOErrorEnumInvalidFilename = 10-    fromEnum IOErrorEnumTooManyLinks = 11-    fromEnum IOErrorEnumNoSpace = 12-    fromEnum IOErrorEnumInvalidArgument = 13-    fromEnum IOErrorEnumPermissionDenied = 14-    fromEnum IOErrorEnumNotSupported = 15-    fromEnum IOErrorEnumNotMounted = 16-    fromEnum IOErrorEnumAlreadyMounted = 17-    fromEnum IOErrorEnumClosed = 18-    fromEnum IOErrorEnumCancelled = 19-    fromEnum IOErrorEnumPending = 20-    fromEnum IOErrorEnumReadOnly = 21-    fromEnum IOErrorEnumCantCreateBackup = 22-    fromEnum IOErrorEnumWrongEtag = 23-    fromEnum IOErrorEnumTimedOut = 24-    fromEnum IOErrorEnumWouldRecurse = 25-    fromEnum IOErrorEnumBusy = 26-    fromEnum IOErrorEnumWouldBlock = 27-    fromEnum IOErrorEnumHostNotFound = 28-    fromEnum IOErrorEnumWouldMerge = 29-    fromEnum IOErrorEnumFailedHandled = 30-    fromEnum IOErrorEnumTooManyOpenFiles = 31-    fromEnum IOErrorEnumNotInitialized = 32-    fromEnum IOErrorEnumAddressInUse = 33-    fromEnum IOErrorEnumPartialInput = 34-    fromEnum IOErrorEnumInvalidData = 35-    fromEnum IOErrorEnumDbusError = 36-    fromEnum IOErrorEnumHostUnreachable = 37-    fromEnum IOErrorEnumNetworkUnreachable = 38-    fromEnum IOErrorEnumConnectionRefused = 39-    fromEnum IOErrorEnumProxyFailed = 40-    fromEnum IOErrorEnumProxyAuthFailed = 41-    fromEnum IOErrorEnumProxyNeedAuth = 42-    fromEnum IOErrorEnumProxyNotAllowed = 43-    fromEnum IOErrorEnumBrokenPipe = 44-    fromEnum IOErrorEnumConnectionClosed = 44-    fromEnum IOErrorEnumNotConnected = 45-    fromEnum IOErrorEnumMessageTooLarge = 46-    fromEnum (AnotherIOErrorEnum k) = k--    toEnum 0 = IOErrorEnumFailed-    toEnum 1 = IOErrorEnumNotFound-    toEnum 2 = IOErrorEnumExists-    toEnum 3 = IOErrorEnumIsDirectory-    toEnum 4 = IOErrorEnumNotDirectory-    toEnum 5 = IOErrorEnumNotEmpty-    toEnum 6 = IOErrorEnumNotRegularFile-    toEnum 7 = IOErrorEnumNotSymbolicLink-    toEnum 8 = IOErrorEnumNotMountableFile-    toEnum 9 = IOErrorEnumFilenameTooLong-    toEnum 10 = IOErrorEnumInvalidFilename-    toEnum 11 = IOErrorEnumTooManyLinks-    toEnum 12 = IOErrorEnumNoSpace-    toEnum 13 = IOErrorEnumInvalidArgument-    toEnum 14 = IOErrorEnumPermissionDenied-    toEnum 15 = IOErrorEnumNotSupported-    toEnum 16 = IOErrorEnumNotMounted-    toEnum 17 = IOErrorEnumAlreadyMounted-    toEnum 18 = IOErrorEnumClosed-    toEnum 19 = IOErrorEnumCancelled-    toEnum 20 = IOErrorEnumPending-    toEnum 21 = IOErrorEnumReadOnly-    toEnum 22 = IOErrorEnumCantCreateBackup-    toEnum 23 = IOErrorEnumWrongEtag-    toEnum 24 = IOErrorEnumTimedOut-    toEnum 25 = IOErrorEnumWouldRecurse-    toEnum 26 = IOErrorEnumBusy-    toEnum 27 = IOErrorEnumWouldBlock-    toEnum 28 = IOErrorEnumHostNotFound-    toEnum 29 = IOErrorEnumWouldMerge-    toEnum 30 = IOErrorEnumFailedHandled-    toEnum 31 = IOErrorEnumTooManyOpenFiles-    toEnum 32 = IOErrorEnumNotInitialized-    toEnum 33 = IOErrorEnumAddressInUse-    toEnum 34 = IOErrorEnumPartialInput-    toEnum 35 = IOErrorEnumInvalidData-    toEnum 36 = IOErrorEnumDbusError-    toEnum 37 = IOErrorEnumHostUnreachable-    toEnum 38 = IOErrorEnumNetworkUnreachable-    toEnum 39 = IOErrorEnumConnectionRefused-    toEnum 40 = IOErrorEnumProxyFailed-    toEnum 41 = IOErrorEnumProxyAuthFailed-    toEnum 42 = IOErrorEnumProxyNeedAuth-    toEnum 43 = IOErrorEnumProxyNotAllowed-    toEnum 44 = IOErrorEnumBrokenPipe-    toEnum 44 = IOErrorEnumConnectionClosed-    toEnum 45 = IOErrorEnumNotConnected-    toEnum 46 = IOErrorEnumMessageTooLarge-    toEnum k = AnotherIOErrorEnum k--instance P.Ord IOErrorEnum where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass IOErrorEnum where-    gerrorClassDomain _ = "g-io-error-quark"---- | Catch exceptions of type `IOErrorEnum`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchIOErrorEnum ::-    IO a ->-    (IOErrorEnum -> GErrorMessage -> IO a) ->-    IO a-catchIOErrorEnum = catchGErrorJustDomain---- | Handle exceptions of type `IOErrorEnum`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-handleIOErrorEnum ::-    (IOErrorEnum -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleIOErrorEnum = handleGErrorJustDomain--foreign import ccall "g_io_error_enum_get_type" c_g_io_error_enum_get_type :: -    IO GType--instance BoxedEnum IOErrorEnum where-    boxedEnumType _ = c_g_io_error_enum_get_type---- Enum FilesystemPreviewType-{- |-Indicates a hint from the file system whether files should be-previewed in a file manager. Returned as the value of the key-'GI.Gio.Constants.FILE_ATTRIBUTE_FILESYSTEM_USE_PREVIEW'.--}-data FilesystemPreviewType = -      FilesystemPreviewTypeIfAlways-    {- ^-    Only preview files if user has explicitly requested it.-    -}-    | FilesystemPreviewTypeIfLocal-    {- ^-    Preview files if user has requested preview of \"local\" files.-    -}-    | FilesystemPreviewTypeNever-    {- ^-    Never preview files.-    -}-    | AnotherFilesystemPreviewType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FilesystemPreviewType where-    fromEnum FilesystemPreviewTypeIfAlways = 0-    fromEnum FilesystemPreviewTypeIfLocal = 1-    fromEnum FilesystemPreviewTypeNever = 2-    fromEnum (AnotherFilesystemPreviewType k) = k--    toEnum 0 = FilesystemPreviewTypeIfAlways-    toEnum 1 = FilesystemPreviewTypeIfLocal-    toEnum 2 = FilesystemPreviewTypeNever-    toEnum k = AnotherFilesystemPreviewType k--instance P.Ord FilesystemPreviewType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_filesystem_preview_type_get_type" c_g_filesystem_preview_type_get_type :: -    IO GType--instance BoxedEnum FilesystemPreviewType where-    boxedEnumType _ = c_g_filesystem_preview_type_get_type---- Enum FileType-{- |-Indicates the file\'s on-disk type.--}-data FileType = -      FileTypeUnknown-    {- ^-    File\'s type is unknown.-    -}-    | FileTypeRegular-    {- ^-    File handle represents a regular file.-    -}-    | FileTypeDirectory-    {- ^-    File handle represents a directory.-    -}-    | FileTypeSymbolicLink-    {- ^-    File handle represents a symbolic link-       (Unix systems).-    -}-    | FileTypeSpecial-    {- ^-    File is a \"special\" file, such as a socket, fifo,-       block device, or character device.-    -}-    | FileTypeShortcut-    {- ^-    File is a shortcut (Windows systems).-    -}-    | FileTypeMountable-    {- ^-    File is a mountable location.-    -}-    | AnotherFileType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileType where-    fromEnum FileTypeUnknown = 0-    fromEnum FileTypeRegular = 1-    fromEnum FileTypeDirectory = 2-    fromEnum FileTypeSymbolicLink = 3-    fromEnum FileTypeSpecial = 4-    fromEnum FileTypeShortcut = 5-    fromEnum FileTypeMountable = 6-    fromEnum (AnotherFileType k) = k--    toEnum 0 = FileTypeUnknown-    toEnum 1 = FileTypeRegular-    toEnum 2 = FileTypeDirectory-    toEnum 3 = FileTypeSymbolicLink-    toEnum 4 = FileTypeSpecial-    toEnum 5 = FileTypeShortcut-    toEnum 6 = FileTypeMountable-    toEnum k = AnotherFileType k--instance P.Ord FileType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_type_get_type" c_g_file_type_get_type :: -    IO GType--instance BoxedEnum FileType where-    boxedEnumType _ = c_g_file_type_get_type---- Enum FileMonitorEvent-{- |-Specifies what type of event a monitor event is.--}-data FileMonitorEvent = -      FileMonitorEventChanged-    {- ^-    a file changed.-    -}-    | FileMonitorEventChangesDoneHint-    {- ^-    a hint that this was probably the last change in a set of changes.-    -}-    | FileMonitorEventDeleted-    {- ^-    a file was deleted.-    -}-    | FileMonitorEventCreated-    {- ^-    a file was created.-    -}-    | FileMonitorEventAttributeChanged-    {- ^-    a file attribute was changed.-    -}-    | FileMonitorEventPreUnmount-    {- ^-    the file location will soon be unmounted.-    -}-    | FileMonitorEventUnmounted-    {- ^-    the file location was unmounted.-    -}-    | FileMonitorEventMoved-    {- ^-    the file was moved -- only sent if the-      (deprecated) 'GI.Gio.Flags.FileMonitorFlagsSendMoved' flag is set-    -}-    | FileMonitorEventRenamed-    {- ^-    the file was renamed within the-      current directory -- only sent if the 'GI.Gio.Flags.FileMonitorFlagsWatchMoves'-      flag is set.  Since: 2.46.-    -}-    | FileMonitorEventMovedIn-    {- ^-    the file was moved into the-      monitored directory from another location -- only sent if the-      'GI.Gio.Flags.FileMonitorFlagsWatchMoves' flag is set.  Since: 2.46.-    -}-    | FileMonitorEventMovedOut-    {- ^-    the file was moved out of the-      monitored directory to another location -- only sent if the-      'GI.Gio.Flags.FileMonitorFlagsWatchMoves' flag is set.  Since: 2.46-    -}-    | AnotherFileMonitorEvent Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileMonitorEvent where-    fromEnum FileMonitorEventChanged = 0-    fromEnum FileMonitorEventChangesDoneHint = 1-    fromEnum FileMonitorEventDeleted = 2-    fromEnum FileMonitorEventCreated = 3-    fromEnum FileMonitorEventAttributeChanged = 4-    fromEnum FileMonitorEventPreUnmount = 5-    fromEnum FileMonitorEventUnmounted = 6-    fromEnum FileMonitorEventMoved = 7-    fromEnum FileMonitorEventRenamed = 8-    fromEnum FileMonitorEventMovedIn = 9-    fromEnum FileMonitorEventMovedOut = 10-    fromEnum (AnotherFileMonitorEvent k) = k--    toEnum 0 = FileMonitorEventChanged-    toEnum 1 = FileMonitorEventChangesDoneHint-    toEnum 2 = FileMonitorEventDeleted-    toEnum 3 = FileMonitorEventCreated-    toEnum 4 = FileMonitorEventAttributeChanged-    toEnum 5 = FileMonitorEventPreUnmount-    toEnum 6 = FileMonitorEventUnmounted-    toEnum 7 = FileMonitorEventMoved-    toEnum 8 = FileMonitorEventRenamed-    toEnum 9 = FileMonitorEventMovedIn-    toEnum 10 = FileMonitorEventMovedOut-    toEnum k = AnotherFileMonitorEvent k--instance P.Ord FileMonitorEvent where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_monitor_event_get_type" c_g_file_monitor_event_get_type :: -    IO GType--instance BoxedEnum FileMonitorEvent where-    boxedEnumType _ = c_g_file_monitor_event_get_type---- Enum FileAttributeType-{- |-The data types for file attributes.--}-data FileAttributeType = -      FileAttributeTypeInvalid-    {- ^-    indicates an invalid or uninitalized type.-    -}-    | FileAttributeTypeString-    {- ^-    a null terminated UTF8 string.-    -}-    | FileAttributeTypeByteString-    {- ^-    a zero terminated string of non-zero bytes.-    -}-    | FileAttributeTypeBoolean-    {- ^-    a boolean value.-    -}-    | FileAttributeTypeUint32-    {- ^-    an unsigned 4-byte\/32-bit integer.-    -}-    | FileAttributeTypeInt32-    {- ^-    a signed 4-byte\/32-bit integer.-    -}-    | FileAttributeTypeUint64-    {- ^-    an unsigned 8-byte\/64-bit integer.-    -}-    | FileAttributeTypeInt64-    {- ^-    a signed 8-byte\/64-bit integer.-    -}-    | FileAttributeTypeObject-    {- ^-    a 'GI.GObject.Objects.Object.Object'.-    -}-    | FileAttributeTypeStringv-    {- ^-    a 'Nothing' terminated char **. Since 2.22-    -}-    | AnotherFileAttributeType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileAttributeType where-    fromEnum FileAttributeTypeInvalid = 0-    fromEnum FileAttributeTypeString = 1-    fromEnum FileAttributeTypeByteString = 2-    fromEnum FileAttributeTypeBoolean = 3-    fromEnum FileAttributeTypeUint32 = 4-    fromEnum FileAttributeTypeInt32 = 5-    fromEnum FileAttributeTypeUint64 = 6-    fromEnum FileAttributeTypeInt64 = 7-    fromEnum FileAttributeTypeObject = 8-    fromEnum FileAttributeTypeStringv = 9-    fromEnum (AnotherFileAttributeType k) = k--    toEnum 0 = FileAttributeTypeInvalid-    toEnum 1 = FileAttributeTypeString-    toEnum 2 = FileAttributeTypeByteString-    toEnum 3 = FileAttributeTypeBoolean-    toEnum 4 = FileAttributeTypeUint32-    toEnum 5 = FileAttributeTypeInt32-    toEnum 6 = FileAttributeTypeUint64-    toEnum 7 = FileAttributeTypeInt64-    toEnum 8 = FileAttributeTypeObject-    toEnum 9 = FileAttributeTypeStringv-    toEnum k = AnotherFileAttributeType k--instance P.Ord FileAttributeType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_attribute_type_get_type" c_g_file_attribute_type_get_type :: -    IO GType--instance BoxedEnum FileAttributeType where-    boxedEnumType _ = c_g_file_attribute_type_get_type---- Enum FileAttributeStatus-{- |-Used by 'GI.Gio.Interfaces.File.fileSetAttributesFromInfo' when setting file attributes.--}-data FileAttributeStatus = -      FileAttributeStatusUnset-    {- ^-    Attribute value is unset (empty).-    -}-    | FileAttributeStatusSet-    {- ^-    Attribute value is set.-    -}-    | FileAttributeStatusErrorSetting-    {- ^-    Indicates an error in setting the value.-    -}-    | AnotherFileAttributeStatus Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileAttributeStatus where-    fromEnum FileAttributeStatusUnset = 0-    fromEnum FileAttributeStatusSet = 1-    fromEnum FileAttributeStatusErrorSetting = 2-    fromEnum (AnotherFileAttributeStatus k) = k--    toEnum 0 = FileAttributeStatusUnset-    toEnum 1 = FileAttributeStatusSet-    toEnum 2 = FileAttributeStatusErrorSetting-    toEnum k = AnotherFileAttributeStatus k--instance P.Ord FileAttributeStatus where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_attribute_status_get_type" c_g_file_attribute_status_get_type :: -    IO GType--instance BoxedEnum FileAttributeStatus where-    boxedEnumType _ = c_g_file_attribute_status_get_type---- Enum EmblemOrigin-{- |-GEmblemOrigin is used to add information about the origin of the emblem-to 'GI.Gio.Objects.Emblem.Emblem'.--/Since: 2.18/--}-data EmblemOrigin = -      EmblemOriginUnknown-    {- ^-    Emblem of unknown origin-    -}-    | EmblemOriginDevice-    {- ^-    Emblem adds device-specific information-    -}-    | EmblemOriginLivemetadata-    {- ^-    Emblem depicts live metadata, such as \"readonly\"-    -}-    | EmblemOriginTag-    {- ^-    Emblem comes from a user-defined tag, e.g. set by nautilus (in the future)-    -}-    | AnotherEmblemOrigin Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum EmblemOrigin where-    fromEnum EmblemOriginUnknown = 0-    fromEnum EmblemOriginDevice = 1-    fromEnum EmblemOriginLivemetadata = 2-    fromEnum EmblemOriginTag = 3-    fromEnum (AnotherEmblemOrigin k) = k--    toEnum 0 = EmblemOriginUnknown-    toEnum 1 = EmblemOriginDevice-    toEnum 2 = EmblemOriginLivemetadata-    toEnum 3 = EmblemOriginTag-    toEnum k = AnotherEmblemOrigin k--instance P.Ord EmblemOrigin where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_emblem_origin_get_type" c_g_emblem_origin_get_type :: -    IO GType--instance BoxedEnum EmblemOrigin where-    boxedEnumType _ = c_g_emblem_origin_get_type---- Enum DriveStartStopType-{- |-Enumeration describing how a drive can be started\/stopped.--/Since: 2.22/--}-data DriveStartStopType = -      DriveStartStopTypeUnknown-    {- ^-    Unknown or drive doesn\'t support-       start\/stop.-    -}-    | DriveStartStopTypeShutdown-    {- ^-    The stop method will physically-       shut down the drive and e.g. power down the port the drive is-       attached to.-    -}-    | DriveStartStopTypeNetwork-    {- ^-    The start\/stop methods are used-       for connecting\/disconnect to the drive over the network.-    -}-    | DriveStartStopTypeMultidisk-    {- ^-    The start\/stop methods will-       assemble\/disassemble a virtual drive from several physical-       drives.-    -}-    | DriveStartStopTypePassword-    {- ^-    The start\/stop methods will-       unlock\/lock the disk (for example using the ATA \<quote>SECURITY-       UNLOCK DEVICE\<\/quote> command)-    -}-    | AnotherDriveStartStopType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DriveStartStopType where-    fromEnum DriveStartStopTypeUnknown = 0-    fromEnum DriveStartStopTypeShutdown = 1-    fromEnum DriveStartStopTypeNetwork = 2-    fromEnum DriveStartStopTypeMultidisk = 3-    fromEnum DriveStartStopTypePassword = 4-    fromEnum (AnotherDriveStartStopType k) = k--    toEnum 0 = DriveStartStopTypeUnknown-    toEnum 1 = DriveStartStopTypeShutdown-    toEnum 2 = DriveStartStopTypeNetwork-    toEnum 3 = DriveStartStopTypeMultidisk-    toEnum 4 = DriveStartStopTypePassword-    toEnum k = AnotherDriveStartStopType k--instance P.Ord DriveStartStopType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_drive_start_stop_type_get_type" c_g_drive_start_stop_type_get_type :: -    IO GType--instance BoxedEnum DriveStartStopType where-    boxedEnumType _ = c_g_drive_start_stop_type_get_type---- Enum DataStreamNewlineType-{- |-'GI.Gio.Enums.DataStreamNewlineType' is used when checking for or setting the line endings for a given file.--}-data DataStreamNewlineType = -      DataStreamNewlineTypeLf-    {- ^-    Selects \"LF\" line endings, common on most modern UNIX platforms.-    -}-    | DataStreamNewlineTypeCr-    {- ^-    Selects \"CR\" line endings.-    -}-    | DataStreamNewlineTypeCrLf-    {- ^-    Selects \"CR, LF\" line ending, common on Microsoft Windows.-    -}-    | DataStreamNewlineTypeAny-    {- ^-    Automatically try to handle any line ending type.-    -}-    | AnotherDataStreamNewlineType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DataStreamNewlineType where-    fromEnum DataStreamNewlineTypeLf = 0-    fromEnum DataStreamNewlineTypeCr = 1-    fromEnum DataStreamNewlineTypeCrLf = 2-    fromEnum DataStreamNewlineTypeAny = 3-    fromEnum (AnotherDataStreamNewlineType k) = k--    toEnum 0 = DataStreamNewlineTypeLf-    toEnum 1 = DataStreamNewlineTypeCr-    toEnum 2 = DataStreamNewlineTypeCrLf-    toEnum 3 = DataStreamNewlineTypeAny-    toEnum k = AnotherDataStreamNewlineType k--instance P.Ord DataStreamNewlineType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_data_stream_newline_type_get_type" c_g_data_stream_newline_type_get_type :: -    IO GType--instance BoxedEnum DataStreamNewlineType where-    boxedEnumType _ = c_g_data_stream_newline_type_get_type---- Enum DataStreamByteOrder-{- |-'GI.Gio.Enums.DataStreamByteOrder' is used to ensure proper endianness of streaming data sources-across various machine architectures.--}-data DataStreamByteOrder = -      DataStreamByteOrderBigEndian-    {- ^-    Selects Big Endian byte order.-    -}-    | DataStreamByteOrderLittleEndian-    {- ^-    Selects Little Endian byte order.-    -}-    | DataStreamByteOrderHostEndian-    {- ^-    Selects endianness based on host machine\'s architecture.-    -}-    | AnotherDataStreamByteOrder Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DataStreamByteOrder where-    fromEnum DataStreamByteOrderBigEndian = 0-    fromEnum DataStreamByteOrderLittleEndian = 1-    fromEnum DataStreamByteOrderHostEndian = 2-    fromEnum (AnotherDataStreamByteOrder k) = k--    toEnum 0 = DataStreamByteOrderBigEndian-    toEnum 1 = DataStreamByteOrderLittleEndian-    toEnum 2 = DataStreamByteOrderHostEndian-    toEnum k = AnotherDataStreamByteOrder k--instance P.Ord DataStreamByteOrder where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_data_stream_byte_order_get_type" c_g_data_stream_byte_order_get_type :: -    IO GType--instance BoxedEnum DataStreamByteOrder where-    boxedEnumType _ = c_g_data_stream_byte_order_get_type---- Enum DBusMessageType-{- |-Message types used in 'GI.Gio.Objects.DBusMessage.DBusMessage'.--/Since: 2.26/--}-data DBusMessageType = -      DBusMessageTypeInvalid-    {- ^-    Message is of invalid type.-    -}-    | DBusMessageTypeMethodCall-    {- ^-    Method call.-    -}-    | DBusMessageTypeMethodReturn-    {- ^-    Method reply.-    -}-    | DBusMessageTypeError-    {- ^-    Error reply.-    -}-    | DBusMessageTypeSignal-    {- ^-    Signal emission.-    -}-    | AnotherDBusMessageType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusMessageType where-    fromEnum DBusMessageTypeInvalid = 0-    fromEnum DBusMessageTypeMethodCall = 1-    fromEnum DBusMessageTypeMethodReturn = 2-    fromEnum DBusMessageTypeError = 3-    fromEnum DBusMessageTypeSignal = 4-    fromEnum (AnotherDBusMessageType k) = k--    toEnum 0 = DBusMessageTypeInvalid-    toEnum 1 = DBusMessageTypeMethodCall-    toEnum 2 = DBusMessageTypeMethodReturn-    toEnum 3 = DBusMessageTypeError-    toEnum 4 = DBusMessageTypeSignal-    toEnum k = AnotherDBusMessageType k--instance P.Ord DBusMessageType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_message_type_get_type" c_g_dbus_message_type_get_type :: -    IO GType--instance BoxedEnum DBusMessageType where-    boxedEnumType _ = c_g_dbus_message_type_get_type---- Enum DBusMessageHeaderField-{- |-Header fields used in 'GI.Gio.Objects.DBusMessage.DBusMessage'.--/Since: 2.26/--}-data DBusMessageHeaderField = -      DBusMessageHeaderFieldInvalid-    {- ^-    Not a valid header field.-    -}-    | DBusMessageHeaderFieldPath-    {- ^-    The object path.-    -}-    | DBusMessageHeaderFieldInterface-    {- ^-    The interface name.-    -}-    | DBusMessageHeaderFieldMember-    {- ^-    The method or signal name.-    -}-    | DBusMessageHeaderFieldErrorName-    {- ^-    The name of the error that occurred.-    -}-    | DBusMessageHeaderFieldReplySerial-    {- ^-    The serial number the message is a reply to.-    -}-    | DBusMessageHeaderFieldDestination-    {- ^-    The name the message is intended for.-    -}-    | DBusMessageHeaderFieldSender-    {- ^-    Unique name of the sender of the message (filled in by the bus).-    -}-    | DBusMessageHeaderFieldSignature-    {- ^-    The signature of the message body.-    -}-    | DBusMessageHeaderFieldNumUnixFds-    {- ^-    The number of UNIX file descriptors that accompany the message.-    -}-    | AnotherDBusMessageHeaderField Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusMessageHeaderField where-    fromEnum DBusMessageHeaderFieldInvalid = 0-    fromEnum DBusMessageHeaderFieldPath = 1-    fromEnum DBusMessageHeaderFieldInterface = 2-    fromEnum DBusMessageHeaderFieldMember = 3-    fromEnum DBusMessageHeaderFieldErrorName = 4-    fromEnum DBusMessageHeaderFieldReplySerial = 5-    fromEnum DBusMessageHeaderFieldDestination = 6-    fromEnum DBusMessageHeaderFieldSender = 7-    fromEnum DBusMessageHeaderFieldSignature = 8-    fromEnum DBusMessageHeaderFieldNumUnixFds = 9-    fromEnum (AnotherDBusMessageHeaderField k) = k--    toEnum 0 = DBusMessageHeaderFieldInvalid-    toEnum 1 = DBusMessageHeaderFieldPath-    toEnum 2 = DBusMessageHeaderFieldInterface-    toEnum 3 = DBusMessageHeaderFieldMember-    toEnum 4 = DBusMessageHeaderFieldErrorName-    toEnum 5 = DBusMessageHeaderFieldReplySerial-    toEnum 6 = DBusMessageHeaderFieldDestination-    toEnum 7 = DBusMessageHeaderFieldSender-    toEnum 8 = DBusMessageHeaderFieldSignature-    toEnum 9 = DBusMessageHeaderFieldNumUnixFds-    toEnum k = AnotherDBusMessageHeaderField k--instance P.Ord DBusMessageHeaderField where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_message_header_field_get_type" c_g_dbus_message_header_field_get_type :: -    IO GType--instance BoxedEnum DBusMessageHeaderField where-    boxedEnumType _ = c_g_dbus_message_header_field_get_type---- Enum DBusMessageByteOrder-{- |-Enumeration used to describe the byte order of a D-Bus message.--/Since: 2.26/--}-data DBusMessageByteOrder = -      DBusMessageByteOrderBigEndian-    {- ^-    The byte order is big endian.-    -}-    | DBusMessageByteOrderLittleEndian-    {- ^-    The byte order is little endian.-    -}-    | AnotherDBusMessageByteOrder Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusMessageByteOrder where-    fromEnum DBusMessageByteOrderBigEndian = 66-    fromEnum DBusMessageByteOrderLittleEndian = 108-    fromEnum (AnotherDBusMessageByteOrder k) = k--    toEnum 66 = DBusMessageByteOrderBigEndian-    toEnum 108 = DBusMessageByteOrderLittleEndian-    toEnum k = AnotherDBusMessageByteOrder k--instance P.Ord DBusMessageByteOrder where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_message_byte_order_get_type" c_g_dbus_message_byte_order_get_type :: -    IO GType--instance BoxedEnum DBusMessageByteOrder where-    boxedEnumType _ = c_g_dbus_message_byte_order_get_type---- Enum DBusError-{- |-Error codes for the @/G_DBUS_ERROR/@ error domain.--/Since: 2.26/--}-data DBusError = -      DBusErrorFailed-    {- ^-    A generic error; \"something went wrong\" - see the error message for-    more.-    -}-    | DBusErrorNoMemory-    {- ^-    There was not enough memory to complete an operation.-    -}-    | DBusErrorServiceUnknown-    {- ^-    The bus doesn\'t know how to launch a service to supply the bus name-    you wanted.-    -}-    | DBusErrorNameHasNoOwner-    {- ^-    The bus name you referenced doesn\'t exist (i.e. no application owns-    it).-    -}-    | DBusErrorNoReply-    {- ^-    No reply to a message expecting one, usually means a timeout occurred.-    -}-    | DBusErrorIoError-    {- ^-    Something went wrong reading or writing to a socket, for example.-    -}-    | DBusErrorBadAddress-    {- ^-    A D-Bus bus address was malformed.-    -}-    | DBusErrorNotSupported-    {- ^-    Requested operation isn\'t supported (like ENOSYS on UNIX).-    -}-    | DBusErrorLimitsExceeded-    {- ^-    Some limited resource is exhausted.-    -}-    | DBusErrorAccessDenied-    {- ^-    Security restrictions don\'t allow doing what you\'re trying to do.-    -}-    | DBusErrorAuthFailed-    {- ^-    Authentication didn\'t work.-    -}-    | DBusErrorNoServer-    {- ^-    Unable to connect to server (probably caused by ECONNREFUSED on a-    socket).-    -}-    | DBusErrorTimeout-    {- ^-    Certain timeout errors, possibly ETIMEDOUT on a socket.  Note that-    'GI.Gio.Enums.DBusErrorNoReply' is used for message reply timeouts. Warning:-    this is confusingly-named given that 'GI.Gio.Enums.DBusErrorTimedOut' also-    exists. We can\'t fix it for compatibility reasons so just be-    careful.-    -}-    | DBusErrorNoNetwork-    {- ^-    No network access (probably ENETUNREACH on a socket).-    -}-    | DBusErrorAddressInUse-    {- ^-    Can\'t bind a socket since its address is in use (i.e. EADDRINUSE).-    -}-    | DBusErrorDisconnected-    {- ^-    The connection is disconnected and you\'re trying to use it.-    -}-    | DBusErrorInvalidArgs-    {- ^-    Invalid arguments passed to a method call.-    -}-    | DBusErrorFileNotFound-    {- ^-    Missing file.-    -}-    | DBusErrorFileExists-    {- ^-    Existing file and the operation you\'re using does not silently overwrite.-    -}-    | DBusErrorUnknownMethod-    {- ^-    Method name you invoked isn\'t known by the object you invoked it on.-    -}-    | DBusErrorTimedOut-    {- ^-    Certain timeout errors, e.g. while starting a service. Warning: this is-    confusingly-named given that 'GI.Gio.Enums.DBusErrorTimeout' also exists. We-    can\'t fix it for compatibility reasons so just be careful.-    -}-    | DBusErrorMatchRuleNotFound-    {- ^-    Tried to remove or modify a match rule that didn\'t exist.-    -}-    | DBusErrorMatchRuleInvalid-    {- ^-    The match rule isn\'t syntactically valid.-    -}-    | DBusErrorSpawnExecFailed-    {- ^-    While starting a new process, the @/exec()/@ call failed.-    -}-    | DBusErrorSpawnForkFailed-    {- ^-    While starting a new process, the @/fork()/@ call failed.-    -}-    | DBusErrorSpawnChildExited-    {- ^-    While starting a new process, the child exited with a status code.-    -}-    | DBusErrorSpawnChildSignaled-    {- ^-    While starting a new process, the child exited on a signal.-    -}-    | DBusErrorSpawnFailed-    {- ^-    While starting a new process, something went wrong.-    -}-    | DBusErrorSpawnSetupFailed-    {- ^-    We failed to setup the environment correctly.-    -}-    | DBusErrorSpawnConfigInvalid-    {- ^-    We failed to setup the config parser correctly.-    -}-    | DBusErrorSpawnServiceInvalid-    {- ^-    Bus name was not valid.-    -}-    | DBusErrorSpawnServiceNotFound-    {- ^-    Service file not found in system-services directory.-    -}-    | DBusErrorSpawnPermissionsInvalid-    {- ^-    Permissions are incorrect on the setuid helper.-    -}-    | DBusErrorSpawnFileInvalid-    {- ^-    Service file invalid (Name, User or Exec missing).-    -}-    | DBusErrorSpawnNoMemory-    {- ^-    Tried to get a UNIX process ID and it wasn\'t available.-    -}-    | DBusErrorUnixProcessIdUnknown-    {- ^-    Tried to get a UNIX process ID and it wasn\'t available.-    -}-    | DBusErrorInvalidSignature-    {- ^-    A type signature is not valid.-    -}-    | DBusErrorInvalidFileContent-    {- ^-    A file contains invalid syntax or is otherwise broken.-    -}-    | DBusErrorSelinuxSecurityContextUnknown-    {- ^-    Asked for SELinux security context and it wasn\'t available.-    -}-    | DBusErrorAdtAuditDataUnknown-    {- ^-    Asked for ADT audit data and it wasn\'t available.-    -}-    | DBusErrorObjectPathInUse-    {- ^-    There\'s already an object with the requested object path.-    -}-    | DBusErrorUnknownObject-    {- ^-    Object you invoked a method on isn\'t known. Since 2.42-    -}-    | DBusErrorUnknownInterface-    {- ^-    Interface you invoked a method on isn\'t known by the object. Since 2.42-    -}-    | DBusErrorUnknownProperty-    {- ^-    Property you tried to access isn\'t known by the object. Since 2.42-    -}-    | DBusErrorPropertyReadOnly-    {- ^-    Property you tried to set is read-only. Since 2.42-    -}-    | AnotherDBusError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusError where-    fromEnum DBusErrorFailed = 0-    fromEnum DBusErrorNoMemory = 1-    fromEnum DBusErrorServiceUnknown = 2-    fromEnum DBusErrorNameHasNoOwner = 3-    fromEnum DBusErrorNoReply = 4-    fromEnum DBusErrorIoError = 5-    fromEnum DBusErrorBadAddress = 6-    fromEnum DBusErrorNotSupported = 7-    fromEnum DBusErrorLimitsExceeded = 8-    fromEnum DBusErrorAccessDenied = 9-    fromEnum DBusErrorAuthFailed = 10-    fromEnum DBusErrorNoServer = 11-    fromEnum DBusErrorTimeout = 12-    fromEnum DBusErrorNoNetwork = 13-    fromEnum DBusErrorAddressInUse = 14-    fromEnum DBusErrorDisconnected = 15-    fromEnum DBusErrorInvalidArgs = 16-    fromEnum DBusErrorFileNotFound = 17-    fromEnum DBusErrorFileExists = 18-    fromEnum DBusErrorUnknownMethod = 19-    fromEnum DBusErrorTimedOut = 20-    fromEnum DBusErrorMatchRuleNotFound = 21-    fromEnum DBusErrorMatchRuleInvalid = 22-    fromEnum DBusErrorSpawnExecFailed = 23-    fromEnum DBusErrorSpawnForkFailed = 24-    fromEnum DBusErrorSpawnChildExited = 25-    fromEnum DBusErrorSpawnChildSignaled = 26-    fromEnum DBusErrorSpawnFailed = 27-    fromEnum DBusErrorSpawnSetupFailed = 28-    fromEnum DBusErrorSpawnConfigInvalid = 29-    fromEnum DBusErrorSpawnServiceInvalid = 30-    fromEnum DBusErrorSpawnServiceNotFound = 31-    fromEnum DBusErrorSpawnPermissionsInvalid = 32-    fromEnum DBusErrorSpawnFileInvalid = 33-    fromEnum DBusErrorSpawnNoMemory = 34-    fromEnum DBusErrorUnixProcessIdUnknown = 35-    fromEnum DBusErrorInvalidSignature = 36-    fromEnum DBusErrorInvalidFileContent = 37-    fromEnum DBusErrorSelinuxSecurityContextUnknown = 38-    fromEnum DBusErrorAdtAuditDataUnknown = 39-    fromEnum DBusErrorObjectPathInUse = 40-    fromEnum DBusErrorUnknownObject = 41-    fromEnum DBusErrorUnknownInterface = 42-    fromEnum DBusErrorUnknownProperty = 43-    fromEnum DBusErrorPropertyReadOnly = 44-    fromEnum (AnotherDBusError k) = k--    toEnum 0 = DBusErrorFailed-    toEnum 1 = DBusErrorNoMemory-    toEnum 2 = DBusErrorServiceUnknown-    toEnum 3 = DBusErrorNameHasNoOwner-    toEnum 4 = DBusErrorNoReply-    toEnum 5 = DBusErrorIoError-    toEnum 6 = DBusErrorBadAddress-    toEnum 7 = DBusErrorNotSupported-    toEnum 8 = DBusErrorLimitsExceeded-    toEnum 9 = DBusErrorAccessDenied-    toEnum 10 = DBusErrorAuthFailed-    toEnum 11 = DBusErrorNoServer-    toEnum 12 = DBusErrorTimeout-    toEnum 13 = DBusErrorNoNetwork-    toEnum 14 = DBusErrorAddressInUse-    toEnum 15 = DBusErrorDisconnected-    toEnum 16 = DBusErrorInvalidArgs-    toEnum 17 = DBusErrorFileNotFound-    toEnum 18 = DBusErrorFileExists-    toEnum 19 = DBusErrorUnknownMethod-    toEnum 20 = DBusErrorTimedOut-    toEnum 21 = DBusErrorMatchRuleNotFound-    toEnum 22 = DBusErrorMatchRuleInvalid-    toEnum 23 = DBusErrorSpawnExecFailed-    toEnum 24 = DBusErrorSpawnForkFailed-    toEnum 25 = DBusErrorSpawnChildExited-    toEnum 26 = DBusErrorSpawnChildSignaled-    toEnum 27 = DBusErrorSpawnFailed-    toEnum 28 = DBusErrorSpawnSetupFailed-    toEnum 29 = DBusErrorSpawnConfigInvalid-    toEnum 30 = DBusErrorSpawnServiceInvalid-    toEnum 31 = DBusErrorSpawnServiceNotFound-    toEnum 32 = DBusErrorSpawnPermissionsInvalid-    toEnum 33 = DBusErrorSpawnFileInvalid-    toEnum 34 = DBusErrorSpawnNoMemory-    toEnum 35 = DBusErrorUnixProcessIdUnknown-    toEnum 36 = DBusErrorInvalidSignature-    toEnum 37 = DBusErrorInvalidFileContent-    toEnum 38 = DBusErrorSelinuxSecurityContextUnknown-    toEnum 39 = DBusErrorAdtAuditDataUnknown-    toEnum 40 = DBusErrorObjectPathInUse-    toEnum 41 = DBusErrorUnknownObject-    toEnum 42 = DBusErrorUnknownInterface-    toEnum 43 = DBusErrorUnknownProperty-    toEnum 44 = DBusErrorPropertyReadOnly-    toEnum k = AnotherDBusError k--instance P.Ord DBusError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass DBusError where-    gerrorClassDomain _ = "g-dbus-error-quark"---- | Catch exceptions of type `DBusError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchDBusError ::-    IO a ->-    (DBusError -> GErrorMessage -> IO a) ->-    IO a-catchDBusError = catchGErrorJustDomain---- | Handle exceptions of type `DBusError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-handleDBusError ::-    (DBusError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleDBusError = handleGErrorJustDomain--foreign import ccall "g_dbus_error_get_type" c_g_dbus_error_get_type :: -    IO GType--instance BoxedEnum DBusError where-    boxedEnumType _ = c_g_dbus_error_get_type---- Enum CredentialsType-{- |-Enumeration describing different kinds of native credential types.--/Since: 2.26/--}-data CredentialsType = -      CredentialsTypeInvalid-    {- ^-    Indicates an invalid native credential type.-    -}-    | CredentialsTypeLinuxUcred-    {- ^-    The native credentials type is a struct ucred.-    -}-    | CredentialsTypeFreebsdCmsgcred-    {- ^-    The native credentials type is a struct cmsgcred.-    -}-    | CredentialsTypeOpenbsdSockpeercred-    {- ^-    The native credentials type is a struct sockpeercred. Added in 2.30.-    -}-    | CredentialsTypeSolarisUcred-    {- ^-    The native credentials type is a ucred_t. Added in 2.40.-    -}-    | CredentialsTypeNetbsdUnpcbid-    {- ^-    The native credentials type is a struct unpcbid.-    -}-    | AnotherCredentialsType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum CredentialsType where-    fromEnum CredentialsTypeInvalid = 0-    fromEnum CredentialsTypeLinuxUcred = 1-    fromEnum CredentialsTypeFreebsdCmsgcred = 2-    fromEnum CredentialsTypeOpenbsdSockpeercred = 3-    fromEnum CredentialsTypeSolarisUcred = 4-    fromEnum CredentialsTypeNetbsdUnpcbid = 5-    fromEnum (AnotherCredentialsType k) = k--    toEnum 0 = CredentialsTypeInvalid-    toEnum 1 = CredentialsTypeLinuxUcred-    toEnum 2 = CredentialsTypeFreebsdCmsgcred-    toEnum 3 = CredentialsTypeOpenbsdSockpeercred-    toEnum 4 = CredentialsTypeSolarisUcred-    toEnum 5 = CredentialsTypeNetbsdUnpcbid-    toEnum k = AnotherCredentialsType k--instance P.Ord CredentialsType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_credentials_type_get_type" c_g_credentials_type_get_type :: -    IO GType--instance BoxedEnum CredentialsType where-    boxedEnumType _ = c_g_credentials_type_get_type---- Enum ConverterResult-{- |-Results returned from 'GI.Gio.Interfaces.Converter.converterConvert'.--/Since: 2.24/--}-data ConverterResult = -      ConverterResultError-    {- ^-    There was an error during conversion.-    -}-    | ConverterResultConverted-    {- ^-    Some data was consumed or produced-    -}-    | ConverterResultFinished-    {- ^-    The conversion is finished-    -}-    | ConverterResultFlushed-    {- ^-    Flushing is finished-    -}-    | AnotherConverterResult Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ConverterResult where-    fromEnum ConverterResultError = 0-    fromEnum ConverterResultConverted = 1-    fromEnum ConverterResultFinished = 2-    fromEnum ConverterResultFlushed = 3-    fromEnum (AnotherConverterResult k) = k--    toEnum 0 = ConverterResultError-    toEnum 1 = ConverterResultConverted-    toEnum 2 = ConverterResultFinished-    toEnum 3 = ConverterResultFlushed-    toEnum k = AnotherConverterResult k--instance P.Ord ConverterResult where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_converter_result_get_type" c_g_converter_result_get_type :: -    IO GType--instance BoxedEnum ConverterResult where-    boxedEnumType _ = c_g_converter_result_get_type---- Enum BusType-{- |-An enumeration for well-known message buses.--/Since: 2.26/--}-data BusType = -      BusTypeStarter-    {- ^-    An alias for the message bus that activated the process, if any.-    -}-    | BusTypeNone-    {- ^-    Not a message bus.-    -}-    | BusTypeSystem-    {- ^-    The system-wide message bus.-    -}-    | BusTypeSession-    {- ^-    The login session message bus.-    -}-    | AnotherBusType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum BusType where-    fromEnum BusTypeStarter = -1-    fromEnum BusTypeNone = 0-    fromEnum BusTypeSystem = 1-    fromEnum BusTypeSession = 2-    fromEnum (AnotherBusType k) = k--    toEnum -1 = BusTypeStarter-    toEnum 0 = BusTypeNone-    toEnum 1 = BusTypeSystem-    toEnum 2 = BusTypeSession-    toEnum k = AnotherBusType k--instance P.Ord BusType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_bus_type_get_type" c_g_bus_type_get_type :: -    IO GType--instance BoxedEnum BusType where-    boxedEnumType _ = c_g_bus_type_get_type--
− GI/Gio/Enums.hs-boot 
@@ -1,141 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.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 ZlibCompressorFormat-instance P.Enum ZlibCompressorFormat where-instance BoxedEnum ZlibCompressorFormat where-data UnixSocketAddressType-instance P.Enum UnixSocketAddressType where-instance BoxedEnum UnixSocketAddressType where-data TlsRehandshakeMode-instance P.Enum TlsRehandshakeMode where-instance BoxedEnum TlsRehandshakeMode where-data TlsInteractionResult-instance P.Enum TlsInteractionResult where-instance BoxedEnum TlsInteractionResult where-data TlsError-instance P.Enum TlsError where-instance BoxedEnum TlsError where-data TlsDatabaseLookupFlags-instance P.Enum TlsDatabaseLookupFlags where-instance BoxedEnum TlsDatabaseLookupFlags where-data TlsCertificateRequestFlags-instance P.Enum TlsCertificateRequestFlags where-instance BoxedEnum TlsCertificateRequestFlags where-data TlsAuthenticationMode-instance P.Enum TlsAuthenticationMode where-instance BoxedEnum TlsAuthenticationMode where-data SocketType-instance P.Enum SocketType where-instance BoxedEnum SocketType where-data SocketProtocol-instance P.Enum SocketProtocol where-instance BoxedEnum SocketProtocol where-data SocketListenerEvent-instance P.Enum SocketListenerEvent where-instance BoxedEnum SocketListenerEvent where-data SocketFamily-instance P.Enum SocketFamily where-instance BoxedEnum SocketFamily where-data SocketClientEvent-instance P.Enum SocketClientEvent where-instance BoxedEnum SocketClientEvent where-data ResourceError-instance P.Enum ResourceError where-instance BoxedEnum ResourceError where-data ResolverRecordType-instance P.Enum ResolverRecordType where-instance BoxedEnum ResolverRecordType where-data ResolverError-instance P.Enum ResolverError where-instance BoxedEnum ResolverError where-data PollableReturn-instance P.Enum PollableReturn where-instance BoxedEnum PollableReturn where-data PasswordSave-instance P.Enum PasswordSave where-instance BoxedEnum PasswordSave where-data NotificationPriority-instance P.Enum NotificationPriority where-instance BoxedEnum NotificationPriority where-data NetworkConnectivity-instance P.Enum NetworkConnectivity where-instance BoxedEnum NetworkConnectivity where-data MountOperationResult-instance P.Enum MountOperationResult where-instance BoxedEnum MountOperationResult where-data IOModuleScopeFlags-instance P.Enum IOModuleScopeFlags where-instance BoxedEnum IOModuleScopeFlags where-data IOErrorEnum-instance P.Enum IOErrorEnum where-instance BoxedEnum IOErrorEnum where-data FilesystemPreviewType-instance P.Enum FilesystemPreviewType where-instance BoxedEnum FilesystemPreviewType where-data FileType-instance P.Enum FileType where-instance BoxedEnum FileType where-data FileMonitorEvent-instance P.Enum FileMonitorEvent where-instance BoxedEnum FileMonitorEvent where-data FileAttributeType-instance P.Enum FileAttributeType where-instance BoxedEnum FileAttributeType where-data FileAttributeStatus-instance P.Enum FileAttributeStatus where-instance BoxedEnum FileAttributeStatus where-data EmblemOrigin-instance P.Enum EmblemOrigin where-instance BoxedEnum EmblemOrigin where-data DriveStartStopType-instance P.Enum DriveStartStopType where-instance BoxedEnum DriveStartStopType where-data DataStreamNewlineType-instance P.Enum DataStreamNewlineType where-instance BoxedEnum DataStreamNewlineType where-data DataStreamByteOrder-instance P.Enum DataStreamByteOrder where-instance BoxedEnum DataStreamByteOrder where-data DBusMessageType-instance P.Enum DBusMessageType where-instance BoxedEnum DBusMessageType where-data DBusMessageHeaderField-instance P.Enum DBusMessageHeaderField where-instance BoxedEnum DBusMessageHeaderField where-data DBusMessageByteOrder-instance P.Enum DBusMessageByteOrder where-instance BoxedEnum DBusMessageByteOrder where-data DBusError-instance P.Enum DBusError where-instance BoxedEnum DBusError where-data CredentialsType-instance P.Enum CredentialsType where-instance BoxedEnum CredentialsType where-data ConverterResult-instance P.Enum ConverterResult where-instance BoxedEnum ConverterResult where-data BusType-instance P.Enum BusType where-instance BoxedEnum BusType where
− GI/Gio/Flags.hs 
@@ -1,2264 +0,0 @@---{- |-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.Gio.Flags-    ( -- -- * Flags--- ** AppInfoCreateFlags #flag:AppInfoCreateFlags#--    AppInfoCreateFlags(..)                  ,----- ** ApplicationFlags #flag:ApplicationFlags#--    ApplicationFlags(..)                    ,----- ** AskPasswordFlags #flag:AskPasswordFlags#--    AskPasswordFlags(..)                    ,----- ** BusNameOwnerFlags #flag:BusNameOwnerFlags#--    BusNameOwnerFlags(..)                   ,----- ** BusNameWatcherFlags #flag:BusNameWatcherFlags#--    BusNameWatcherFlags(..)                 ,----- ** ConverterFlags #flag:ConverterFlags#--    ConverterFlags(..)                      ,----- ** DBusCallFlags #flag:DBusCallFlags#--    DBusCallFlags(..)                       ,----- ** DBusCapabilityFlags #flag:DBusCapabilityFlags#--    DBusCapabilityFlags(..)                 ,----- ** DBusConnectionFlags #flag:DBusConnectionFlags#--    DBusConnectionFlags(..)                 ,----- ** DBusInterfaceSkeletonFlags #flag:DBusInterfaceSkeletonFlags#--    DBusInterfaceSkeletonFlags(..)          ,----- ** DBusMessageFlags #flag:DBusMessageFlags#--    DBusMessageFlags(..)                    ,----- ** DBusObjectManagerClientFlags #flag:DBusObjectManagerClientFlags#--    DBusObjectManagerClientFlags(..)        ,----- ** DBusPropertyInfoFlags #flag:DBusPropertyInfoFlags#--    DBusPropertyInfoFlags(..)               ,----- ** DBusProxyFlags #flag:DBusProxyFlags#--    DBusProxyFlags(..)                      ,----- ** DBusSendMessageFlags #flag:DBusSendMessageFlags#--    DBusSendMessageFlags(..)                ,----- ** DBusServerFlags #flag:DBusServerFlags#--    DBusServerFlags(..)                     ,----- ** DBusSignalFlags #flag:DBusSignalFlags#--    DBusSignalFlags(..)                     ,----- ** DBusSubtreeFlags #flag:DBusSubtreeFlags#--    DBusSubtreeFlags(..)                    ,----- ** DriveStartFlags #flag:DriveStartFlags#--    DriveStartFlags(..)                     ,----- ** FileAttributeInfoFlags #flag:FileAttributeInfoFlags#--    FileAttributeInfoFlags(..)              ,----- ** FileCopyFlags #flag:FileCopyFlags#--    FileCopyFlags(..)                       ,----- ** FileCreateFlags #flag:FileCreateFlags#--    FileCreateFlags(..)                     ,----- ** FileMeasureFlags #flag:FileMeasureFlags#--    FileMeasureFlags(..)                    ,----- ** FileMonitorFlags #flag:FileMonitorFlags#--    FileMonitorFlags(..)                    ,----- ** FileQueryInfoFlags #flag:FileQueryInfoFlags#--    FileQueryInfoFlags(..)                  ,----- ** IOStreamSpliceFlags #flag:IOStreamSpliceFlags#--    IOStreamSpliceFlags(..)                 ,----- ** MountMountFlags #flag:MountMountFlags#--    MountMountFlags(..)                     ,----- ** MountUnmountFlags #flag:MountUnmountFlags#--    MountUnmountFlags(..)                   ,----- ** OutputStreamSpliceFlags #flag:OutputStreamSpliceFlags#--    OutputStreamSpliceFlags(..)             ,----- ** ResolverNameLookupFlags #flag:ResolverNameLookupFlags#--    ResolverNameLookupFlags(..)             ,----- ** ResourceFlags #flag:ResourceFlags#--    ResourceFlags(..)                       ,----- ** ResourceLookupFlags #flag:ResourceLookupFlags#--    ResourceLookupFlags(..)                 ,----- ** SettingsBindFlags #flag:SettingsBindFlags#--    SettingsBindFlags(..)                   ,----- ** SocketMsgFlags #flag:SocketMsgFlags#--    SocketMsgFlags(..)                      ,----- ** SubprocessFlags #flag:SubprocessFlags#--    SubprocessFlags(..)                     ,----- ** TestDBusFlags #flag:TestDBusFlags#--    TestDBusFlags(..)                       ,----- ** TlsCertificateFlags #flag:TlsCertificateFlags#--    TlsCertificateFlags(..)                 ,----- ** TlsDatabaseVerifyFlags #flag:TlsDatabaseVerifyFlags#--    TlsDatabaseVerifyFlags(..)              ,----- ** TlsPasswordFlags #flag:TlsPasswordFlags#--    TlsPasswordFlags(..)                    ,-----    ) 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 TlsPasswordFlags-{- |-Various flags for the password.--/Since: 2.30/--}-data TlsPasswordFlags = -      TlsPasswordFlagsNone-    {- ^-    No flags-    -}-    | TlsPasswordFlagsRetry-    {- ^-    The password was wrong, and the user should retry.-    -}-    | TlsPasswordFlagsManyTries-    {- ^-    Hint to the user that the password has been-       wrong many times, and the user may not have many chances left.-    -}-    | TlsPasswordFlagsFinalTry-    {- ^-    Hint to the user that this is the last try to get-       this password right.-    -}-    | AnotherTlsPasswordFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsPasswordFlags where-    fromEnum TlsPasswordFlagsNone = 0-    fromEnum TlsPasswordFlagsRetry = 2-    fromEnum TlsPasswordFlagsManyTries = 4-    fromEnum TlsPasswordFlagsFinalTry = 8-    fromEnum (AnotherTlsPasswordFlags k) = k--    toEnum 0 = TlsPasswordFlagsNone-    toEnum 2 = TlsPasswordFlagsRetry-    toEnum 4 = TlsPasswordFlagsManyTries-    toEnum 8 = TlsPasswordFlagsFinalTry-    toEnum k = AnotherTlsPasswordFlags k--instance P.Ord TlsPasswordFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_tls_password_flags_get_type" c_g_tls_password_flags_get_type :: -    IO GType--instance BoxedFlags TlsPasswordFlags where-    boxedFlagsType _ = c_g_tls_password_flags_get_type--instance IsGFlag TlsPasswordFlags---- Flags TlsDatabaseVerifyFlags-{- |-Flags for 'GI.Gio.Objects.TlsDatabase.tlsDatabaseVerifyChain'.--/Since: 2.30/--}-data TlsDatabaseVerifyFlags = -      TlsDatabaseVerifyFlagsNone-    {- ^-    No verification flags-    -}-    | AnotherTlsDatabaseVerifyFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsDatabaseVerifyFlags where-    fromEnum TlsDatabaseVerifyFlagsNone = 0-    fromEnum (AnotherTlsDatabaseVerifyFlags k) = k--    toEnum 0 = TlsDatabaseVerifyFlagsNone-    toEnum k = AnotherTlsDatabaseVerifyFlags k--instance P.Ord TlsDatabaseVerifyFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_tls_database_verify_flags_get_type" c_g_tls_database_verify_flags_get_type :: -    IO GType--instance BoxedFlags TlsDatabaseVerifyFlags where-    boxedFlagsType _ = c_g_tls_database_verify_flags_get_type--instance IsGFlag TlsDatabaseVerifyFlags---- Flags TlsCertificateFlags-{- |-A set of flags describing TLS certification validation. This can be-used to set which validation steps to perform (eg, with-'GI.Gio.Interfaces.TlsClientConnection.tlsClientConnectionSetValidationFlags'), or to describe why-a particular certificate was rejected (eg, in-'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@).--/Since: 2.28/--}-data TlsCertificateFlags = -      TlsCertificateFlagsUnknownCa-    {- ^-    The signing certificate authority is-      not known.-    -}-    | TlsCertificateFlagsBadIdentity-    {- ^-    The certificate does not match the-      expected identity of the site that it was retrieved from.-    -}-    | TlsCertificateFlagsNotActivated-    {- ^-    The certificate\'s activation time-      is still in the future-    -}-    | TlsCertificateFlagsExpired-    {- ^-    The certificate has expired-    -}-    | TlsCertificateFlagsRevoked-    {- ^-    The certificate has been revoked-      according to the 'GI.Gio.Objects.TlsConnection.TlsConnection'\'s certificate revocation list.-    -}-    | TlsCertificateFlagsInsecure-    {- ^-    The certificate\'s algorithm is-      considered insecure.-    -}-    | TlsCertificateFlagsGenericError-    {- ^-    Some other error occurred validating-      the certificate-    -}-    | TlsCertificateFlagsValidateAll-    {- ^-    the combination of all of the above-      flags-    -}-    | AnotherTlsCertificateFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TlsCertificateFlags where-    fromEnum TlsCertificateFlagsUnknownCa = 1-    fromEnum TlsCertificateFlagsBadIdentity = 2-    fromEnum TlsCertificateFlagsNotActivated = 4-    fromEnum TlsCertificateFlagsExpired = 8-    fromEnum TlsCertificateFlagsRevoked = 16-    fromEnum TlsCertificateFlagsInsecure = 32-    fromEnum TlsCertificateFlagsGenericError = 64-    fromEnum TlsCertificateFlagsValidateAll = 127-    fromEnum (AnotherTlsCertificateFlags k) = k--    toEnum 1 = TlsCertificateFlagsUnknownCa-    toEnum 2 = TlsCertificateFlagsBadIdentity-    toEnum 4 = TlsCertificateFlagsNotActivated-    toEnum 8 = TlsCertificateFlagsExpired-    toEnum 16 = TlsCertificateFlagsRevoked-    toEnum 32 = TlsCertificateFlagsInsecure-    toEnum 64 = TlsCertificateFlagsGenericError-    toEnum 127 = TlsCertificateFlagsValidateAll-    toEnum k = AnotherTlsCertificateFlags k--instance P.Ord TlsCertificateFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_tls_certificate_flags_get_type" c_g_tls_certificate_flags_get_type :: -    IO GType--instance BoxedFlags TlsCertificateFlags where-    boxedFlagsType _ = c_g_tls_certificate_flags_get_type--instance IsGFlag TlsCertificateFlags---- Flags TestDBusFlags-{- |-Flags to define future 'GI.Gio.Objects.TestDBus.TestDBus' behaviour.--/Since: 2.34/--}-data TestDBusFlags = -      TestDBusFlagsNone-    {- ^-    No flags.-    -}-    | AnotherTestDBusFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TestDBusFlags where-    fromEnum TestDBusFlagsNone = 0-    fromEnum (AnotherTestDBusFlags k) = k--    toEnum 0 = TestDBusFlagsNone-    toEnum k = AnotherTestDBusFlags k--instance P.Ord TestDBusFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_test_dbus_flags_get_type" c_g_test_dbus_flags_get_type :: -    IO GType--instance BoxedFlags TestDBusFlags where-    boxedFlagsType _ = c_g_test_dbus_flags_get_type--instance IsGFlag TestDBusFlags---- Flags SubprocessFlags-{- |-Flags to define the behaviour of a 'GI.Gio.Objects.Subprocess.Subprocess'.--Note that the default for stdin is to redirect from @\/dev\/null@.  For-stdout and stderr the default are for them to inherit the-corresponding descriptor from the calling process.--Note that it is a programmer error to mix \'incompatible\' flags.  For-example, you may not request both 'GI.Gio.Flags.SubprocessFlagsStdoutPipe' and-'GI.Gio.Flags.SubprocessFlagsStdoutSilence'.--/Since: 2.40/--}-data SubprocessFlags = -      SubprocessFlagsNone-    {- ^-    No flags.-    -}-    | SubprocessFlagsStdinPipe-    {- ^-    create a pipe for the stdin of the-      spawned process that can be accessed with-      'GI.Gio.Objects.Subprocess.subprocessGetStdinPipe'.-    -}-    | SubprocessFlagsStdinInherit-    {- ^-    stdin is inherited from the-      calling process.-    -}-    | SubprocessFlagsStdoutPipe-    {- ^-    create a pipe for the stdout of the-      spawned process that can be accessed with-      'GI.Gio.Objects.Subprocess.subprocessGetStdoutPipe'.-    -}-    | SubprocessFlagsStdoutSilence-    {- ^-    silence the stdout of the spawned-      process (ie: redirect to @\/dev\/null@).-    -}-    | SubprocessFlagsStderrPipe-    {- ^-    create a pipe for the stderr of the-      spawned process that can be accessed with-      'GI.Gio.Objects.Subprocess.subprocessGetStderrPipe'.-    -}-    | SubprocessFlagsStderrSilence-    {- ^-    silence the stderr of the spawned-      process (ie: redirect to @\/dev\/null@).-    -}-    | SubprocessFlagsStderrMerge-    {- ^-    merge the stderr of the spawned-      process with whatever the stdout happens to be.  This is a good way-      of directing both streams to a common log file, for example.-    -}-    | SubprocessFlagsInheritFds-    {- ^-    spawned processes will inherit the-      file descriptors of their parent, unless those descriptors have-      been explicitly marked as close-on-exec.  This flag has no effect-      over the \"standard\" file descriptors (stdin, stdout, stderr).-    -}-    | AnotherSubprocessFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum SubprocessFlags where-    fromEnum SubprocessFlagsNone = 0-    fromEnum SubprocessFlagsStdinPipe = 1-    fromEnum SubprocessFlagsStdinInherit = 2-    fromEnum SubprocessFlagsStdoutPipe = 4-    fromEnum SubprocessFlagsStdoutSilence = 8-    fromEnum SubprocessFlagsStderrPipe = 16-    fromEnum SubprocessFlagsStderrSilence = 32-    fromEnum SubprocessFlagsStderrMerge = 64-    fromEnum SubprocessFlagsInheritFds = 128-    fromEnum (AnotherSubprocessFlags k) = k--    toEnum 0 = SubprocessFlagsNone-    toEnum 1 = SubprocessFlagsStdinPipe-    toEnum 2 = SubprocessFlagsStdinInherit-    toEnum 4 = SubprocessFlagsStdoutPipe-    toEnum 8 = SubprocessFlagsStdoutSilence-    toEnum 16 = SubprocessFlagsStderrPipe-    toEnum 32 = SubprocessFlagsStderrSilence-    toEnum 64 = SubprocessFlagsStderrMerge-    toEnum 128 = SubprocessFlagsInheritFds-    toEnum k = AnotherSubprocessFlags k--instance P.Ord SubprocessFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_subprocess_flags_get_type" c_g_subprocess_flags_get_type :: -    IO GType--instance BoxedFlags SubprocessFlags where-    boxedFlagsType _ = c_g_subprocess_flags_get_type--instance IsGFlag SubprocessFlags---- Flags SocketMsgFlags-{- |-Flags used in 'GI.Gio.Objects.Socket.socketReceiveMessage' and 'GI.Gio.Objects.Socket.socketSendMessage'.-The flags listed in the enum are some commonly available flags, but the-values used for them are the same as on the platform, and any other flags-are passed in\/out as is. So to use a platform specific flag, just include-the right system header and pass in the flag.--/Since: 2.22/--}-data SocketMsgFlags = -      SocketMsgFlagsNone-    {- ^-    No flags.-    -}-    | SocketMsgFlagsOob-    {- ^-    Request to send\/receive out of band data.-    -}-    | SocketMsgFlagsPeek-    {- ^-    Read data from the socket without removing it from-        the queue.-    -}-    | SocketMsgFlagsDontroute-    {- ^-    Don\'t use a gateway to send out the packet,-        only send to hosts on directly connected networks.-    -}-    | AnotherSocketMsgFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum SocketMsgFlags where-    fromEnum SocketMsgFlagsNone = 0-    fromEnum SocketMsgFlagsOob = 1-    fromEnum SocketMsgFlagsPeek = 2-    fromEnum SocketMsgFlagsDontroute = 4-    fromEnum (AnotherSocketMsgFlags k) = k--    toEnum 0 = SocketMsgFlagsNone-    toEnum 1 = SocketMsgFlagsOob-    toEnum 2 = SocketMsgFlagsPeek-    toEnum 4 = SocketMsgFlagsDontroute-    toEnum k = AnotherSocketMsgFlags k--instance P.Ord SocketMsgFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_socket_msg_flags_get_type" c_g_socket_msg_flags_get_type :: -    IO GType--instance BoxedFlags SocketMsgFlags where-    boxedFlagsType _ = c_g_socket_msg_flags_get_type--instance IsGFlag SocketMsgFlags---- Flags SettingsBindFlags-{- |-Flags used when creating a binding. These flags determine in which-direction the binding works. The default is to synchronize in both-directions.--}-data SettingsBindFlags = -      SettingsBindFlagsDefault-    {- ^-    Equivalent to @G_SETTINGS_BIND_GET|G_SETTINGS_BIND_SET@-    -}-    | SettingsBindFlagsGet-    {- ^-    Update the 'GI.GObject.Objects.Object.Object' property when the setting changes.-        It is an error to use this flag if the property is not writable.-    -}-    | SettingsBindFlagsSet-    {- ^-    Update the setting when the 'GI.GObject.Objects.Object.Object' property changes.-        It is an error to use this flag if the property is not readable.-    -}-    | SettingsBindFlagsNoSensitivity-    {- ^-    Do not try to bind a \"sensitivity\" property to the writability of the setting-    -}-    | SettingsBindFlagsGetNoChanges-    {- ^-    When set in addition to @/G_SETTINGS_BIND_GET/@, set the 'GI.GObject.Objects.Object.Object' property-        value initially from the setting, but do not listen for changes of the setting-    -}-    | SettingsBindFlagsInvertBoolean-    {- ^-    When passed to 'GI.Gio.Objects.Settings.settingsBind', uses a pair of mapping functions that invert-        the boolean value when mapping between the setting and the property.  The setting and property must both-        be booleans.  You cannot pass this flag to @/g_settings_bind_with_mapping()/@.-    -}-    | AnotherSettingsBindFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum SettingsBindFlags where-    fromEnum SettingsBindFlagsDefault = 0-    fromEnum SettingsBindFlagsGet = 1-    fromEnum SettingsBindFlagsSet = 2-    fromEnum SettingsBindFlagsNoSensitivity = 4-    fromEnum SettingsBindFlagsGetNoChanges = 8-    fromEnum SettingsBindFlagsInvertBoolean = 16-    fromEnum (AnotherSettingsBindFlags k) = k--    toEnum 0 = SettingsBindFlagsDefault-    toEnum 1 = SettingsBindFlagsGet-    toEnum 2 = SettingsBindFlagsSet-    toEnum 4 = SettingsBindFlagsNoSensitivity-    toEnum 8 = SettingsBindFlagsGetNoChanges-    toEnum 16 = SettingsBindFlagsInvertBoolean-    toEnum k = AnotherSettingsBindFlags k--instance P.Ord SettingsBindFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_settings_bind_flags_get_type" c_g_settings_bind_flags_get_type :: -    IO GType--instance BoxedFlags SettingsBindFlags where-    boxedFlagsType _ = c_g_settings_bind_flags_get_type--instance IsGFlag SettingsBindFlags---- Flags ResourceLookupFlags-{- |-GResourceLookupFlags determine how resource path lookups are handled.--/Since: 2.32/--}-data ResourceLookupFlags = -      ResourceLookupFlagsNone-    {- ^-    No flags set.-    -}-    | AnotherResourceLookupFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ResourceLookupFlags where-    fromEnum ResourceLookupFlagsNone = 0-    fromEnum (AnotherResourceLookupFlags k) = k--    toEnum 0 = ResourceLookupFlagsNone-    toEnum k = AnotherResourceLookupFlags k--instance P.Ord ResourceLookupFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_resource_lookup_flags_get_type" c_g_resource_lookup_flags_get_type :: -    IO GType--instance BoxedFlags ResourceLookupFlags where-    boxedFlagsType _ = c_g_resource_lookup_flags_get_type--instance IsGFlag ResourceLookupFlags---- Flags ResourceFlags-{- |-GResourceFlags give information about a particular file inside a resource-bundle.--/Since: 2.32/--}-data ResourceFlags = -      ResourceFlagsNone-    {- ^-    No flags set.-    -}-    | ResourceFlagsCompressed-    {- ^-    The file is compressed.-    -}-    | AnotherResourceFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ResourceFlags where-    fromEnum ResourceFlagsNone = 0-    fromEnum ResourceFlagsCompressed = 1-    fromEnum (AnotherResourceFlags k) = k--    toEnum 0 = ResourceFlagsNone-    toEnum 1 = ResourceFlagsCompressed-    toEnum k = AnotherResourceFlags k--instance P.Ord ResourceFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_resource_flags_get_type" c_g_resource_flags_get_type :: -    IO GType--instance BoxedFlags ResourceFlags where-    boxedFlagsType _ = c_g_resource_flags_get_type--instance IsGFlag ResourceFlags---- Flags ResolverNameLookupFlags-{- |-Flags to modify lookup behavior.--/Since: 2.60/--}-data ResolverNameLookupFlags = -      ResolverNameLookupFlagsDefault-    {- ^-    default behavior (same as 'GI.Gio.Objects.Resolver.resolverLookupByName')-    -}-    | ResolverNameLookupFlagsIpv4Only-    {- ^-    only resolve ipv4 addresses-    -}-    | ResolverNameLookupFlagsIpv6Only-    {- ^-    only resolve ipv6 addresses-    -}-    | AnotherResolverNameLookupFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ResolverNameLookupFlags where-    fromEnum ResolverNameLookupFlagsDefault = 0-    fromEnum ResolverNameLookupFlagsIpv4Only = 1-    fromEnum ResolverNameLookupFlagsIpv6Only = 2-    fromEnum (AnotherResolverNameLookupFlags k) = k--    toEnum 0 = ResolverNameLookupFlagsDefault-    toEnum 1 = ResolverNameLookupFlagsIpv4Only-    toEnum 2 = ResolverNameLookupFlagsIpv6Only-    toEnum k = AnotherResolverNameLookupFlags k--instance P.Ord ResolverNameLookupFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_resolver_name_lookup_flags_get_type" c_g_resolver_name_lookup_flags_get_type :: -    IO GType--instance BoxedFlags ResolverNameLookupFlags where-    boxedFlagsType _ = c_g_resolver_name_lookup_flags_get_type--instance IsGFlag ResolverNameLookupFlags---- Flags OutputStreamSpliceFlags-{- |-GOutputStreamSpliceFlags determine how streams should be spliced.--}-data OutputStreamSpliceFlags = -      OutputStreamSpliceFlagsNone-    {- ^-    Do not close either stream.-    -}-    | OutputStreamSpliceFlagsCloseSource-    {- ^-    Close the source stream after-        the splice.-    -}-    | OutputStreamSpliceFlagsCloseTarget-    {- ^-    Close the target stream after-        the splice.-    -}-    | AnotherOutputStreamSpliceFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum OutputStreamSpliceFlags where-    fromEnum OutputStreamSpliceFlagsNone = 0-    fromEnum OutputStreamSpliceFlagsCloseSource = 1-    fromEnum OutputStreamSpliceFlagsCloseTarget = 2-    fromEnum (AnotherOutputStreamSpliceFlags k) = k--    toEnum 0 = OutputStreamSpliceFlagsNone-    toEnum 1 = OutputStreamSpliceFlagsCloseSource-    toEnum 2 = OutputStreamSpliceFlagsCloseTarget-    toEnum k = AnotherOutputStreamSpliceFlags k--instance P.Ord OutputStreamSpliceFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_output_stream_splice_flags_get_type" c_g_output_stream_splice_flags_get_type :: -    IO GType--instance BoxedFlags OutputStreamSpliceFlags where-    boxedFlagsType _ = c_g_output_stream_splice_flags_get_type--instance IsGFlag OutputStreamSpliceFlags---- Flags MountUnmountFlags-{- |-Flags used when an unmounting a mount.--}-data MountUnmountFlags = -      MountUnmountFlagsNone-    {- ^-    No flags set.-    -}-    | MountUnmountFlagsForce-    {- ^-    Unmount even if there are outstanding-     file operations on the mount.-    -}-    | AnotherMountUnmountFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum MountUnmountFlags where-    fromEnum MountUnmountFlagsNone = 0-    fromEnum MountUnmountFlagsForce = 1-    fromEnum (AnotherMountUnmountFlags k) = k--    toEnum 0 = MountUnmountFlagsNone-    toEnum 1 = MountUnmountFlagsForce-    toEnum k = AnotherMountUnmountFlags k--instance P.Ord MountUnmountFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_mount_unmount_flags_get_type" c_g_mount_unmount_flags_get_type :: -    IO GType--instance BoxedFlags MountUnmountFlags where-    boxedFlagsType _ = c_g_mount_unmount_flags_get_type--instance IsGFlag MountUnmountFlags---- Flags MountMountFlags-{- |-Flags used when mounting a mount.--}-data MountMountFlags = -      MountMountFlagsNone-    {- ^-    No flags set.-    -}-    | AnotherMountMountFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum MountMountFlags where-    fromEnum MountMountFlagsNone = 0-    fromEnum (AnotherMountMountFlags k) = k--    toEnum 0 = MountMountFlagsNone-    toEnum k = AnotherMountMountFlags k--instance P.Ord MountMountFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_mount_mount_flags_get_type" c_g_mount_mount_flags_get_type :: -    IO GType--instance BoxedFlags MountMountFlags where-    boxedFlagsType _ = c_g_mount_mount_flags_get_type--instance IsGFlag MountMountFlags---- Flags IOStreamSpliceFlags-{- |-GIOStreamSpliceFlags determine how streams should be spliced.--/Since: 2.28/--}-data IOStreamSpliceFlags = -      IOStreamSpliceFlagsNone-    {- ^-    Do not close either stream.-    -}-    | IOStreamSpliceFlagsCloseStream1-    {- ^-    Close the first stream after-        the splice.-    -}-    | IOStreamSpliceFlagsCloseStream2-    {- ^-    Close the second stream after-        the splice.-    -}-    | IOStreamSpliceFlagsWaitForBoth-    {- ^-    Wait for both splice operations to finish-        before calling the callback.-    -}-    | AnotherIOStreamSpliceFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum IOStreamSpliceFlags where-    fromEnum IOStreamSpliceFlagsNone = 0-    fromEnum IOStreamSpliceFlagsCloseStream1 = 1-    fromEnum IOStreamSpliceFlagsCloseStream2 = 2-    fromEnum IOStreamSpliceFlagsWaitForBoth = 4-    fromEnum (AnotherIOStreamSpliceFlags k) = k--    toEnum 0 = IOStreamSpliceFlagsNone-    toEnum 1 = IOStreamSpliceFlagsCloseStream1-    toEnum 2 = IOStreamSpliceFlagsCloseStream2-    toEnum 4 = IOStreamSpliceFlagsWaitForBoth-    toEnum k = AnotherIOStreamSpliceFlags k--instance P.Ord IOStreamSpliceFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_io_stream_splice_flags_get_type" c_g_io_stream_splice_flags_get_type :: -    IO GType--instance BoxedFlags IOStreamSpliceFlags where-    boxedFlagsType _ = c_g_io_stream_splice_flags_get_type--instance IsGFlag IOStreamSpliceFlags---- Flags FileQueryInfoFlags-{- |-Flags used when querying a 'GI.Gio.Objects.FileInfo.FileInfo'.--}-data FileQueryInfoFlags = -      FileQueryInfoFlagsNone-    {- ^-    No flags set.-    -}-    | FileQueryInfoFlagsNofollowSymlinks-    {- ^-    Don\'t follow symlinks.-    -}-    | AnotherFileQueryInfoFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileQueryInfoFlags where-    fromEnum FileQueryInfoFlagsNone = 0-    fromEnum FileQueryInfoFlagsNofollowSymlinks = 1-    fromEnum (AnotherFileQueryInfoFlags k) = k--    toEnum 0 = FileQueryInfoFlagsNone-    toEnum 1 = FileQueryInfoFlagsNofollowSymlinks-    toEnum k = AnotherFileQueryInfoFlags k--instance P.Ord FileQueryInfoFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_query_info_flags_get_type" c_g_file_query_info_flags_get_type :: -    IO GType--instance BoxedFlags FileQueryInfoFlags where-    boxedFlagsType _ = c_g_file_query_info_flags_get_type--instance IsGFlag FileQueryInfoFlags---- Flags FileMonitorFlags-{- |-Flags used to set what a 'GI.Gio.Objects.FileMonitor.FileMonitor' will watch for.--}-data FileMonitorFlags = -      FileMonitorFlagsNone-    {- ^-    No flags set.-    -}-    | FileMonitorFlagsWatchMounts-    {- ^-    Watch for mount events.-    -}-    | FileMonitorFlagsSendMoved-    {- ^-    Pair DELETED and CREATED events caused-      by file renames (moves) and send a single G_FILE_MONITOR_EVENT_MOVED-      event instead (NB: not supported on all backends; the default-      behaviour -without specifying this flag- is to send single DELETED-      and CREATED events).  Deprecated since 2.46: use-      'GI.Gio.Flags.FileMonitorFlagsWatchMoves' instead.-    -}-    | FileMonitorFlagsWatchHardLinks-    {- ^-    Watch for changes to the file made-      via another hard link. Since 2.36.-    -}-    | FileMonitorFlagsWatchMoves-    {- ^-    Watch for rename operations on a-      monitored directory.  This causes 'GI.Gio.Enums.FileMonitorEventRenamed',-      'GI.Gio.Enums.FileMonitorEventMovedIn' and 'GI.Gio.Enums.FileMonitorEventMovedOut'-      events to be emitted when possible.  Since: 2.46.-    -}-    | AnotherFileMonitorFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileMonitorFlags where-    fromEnum FileMonitorFlagsNone = 0-    fromEnum FileMonitorFlagsWatchMounts = 1-    fromEnum FileMonitorFlagsSendMoved = 2-    fromEnum FileMonitorFlagsWatchHardLinks = 4-    fromEnum FileMonitorFlagsWatchMoves = 8-    fromEnum (AnotherFileMonitorFlags k) = k--    toEnum 0 = FileMonitorFlagsNone-    toEnum 1 = FileMonitorFlagsWatchMounts-    toEnum 2 = FileMonitorFlagsSendMoved-    toEnum 4 = FileMonitorFlagsWatchHardLinks-    toEnum 8 = FileMonitorFlagsWatchMoves-    toEnum k = AnotherFileMonitorFlags k--instance P.Ord FileMonitorFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_monitor_flags_get_type" c_g_file_monitor_flags_get_type :: -    IO GType--instance BoxedFlags FileMonitorFlags where-    boxedFlagsType _ = c_g_file_monitor_flags_get_type--instance IsGFlag FileMonitorFlags---- Flags FileMeasureFlags-{- |-Flags that can be used with @/g_file_measure_disk_usage()/@.--/Since: 2.38/--}-data FileMeasureFlags = -      FileMeasureFlagsNone-    {- ^-    No flags set.-    -}-    | FileMeasureFlagsReportAnyError-    {- ^-    Report any error encountered-      while traversing the directory tree.  Normally errors are only-      reported for the toplevel file.-    -}-    | FileMeasureFlagsApparentSize-    {- ^-    Tally usage based on apparent file-      sizes.  Normally, the block-size is used, if available, as this is a-      more accurate representation of disk space used.-      Compare with @du --apparent-size@.-    -}-    | FileMeasureFlagsNoXdev-    {- ^-    Do not cross mount point boundaries.-      Compare with @du -x@.-    -}-    | AnotherFileMeasureFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileMeasureFlags where-    fromEnum FileMeasureFlagsNone = 0-    fromEnum FileMeasureFlagsReportAnyError = 2-    fromEnum FileMeasureFlagsApparentSize = 4-    fromEnum FileMeasureFlagsNoXdev = 8-    fromEnum (AnotherFileMeasureFlags k) = k--    toEnum 0 = FileMeasureFlagsNone-    toEnum 2 = FileMeasureFlagsReportAnyError-    toEnum 4 = FileMeasureFlagsApparentSize-    toEnum 8 = FileMeasureFlagsNoXdev-    toEnum k = AnotherFileMeasureFlags k--instance P.Ord FileMeasureFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_measure_flags_get_type" c_g_file_measure_flags_get_type :: -    IO GType--instance BoxedFlags FileMeasureFlags where-    boxedFlagsType _ = c_g_file_measure_flags_get_type--instance IsGFlag FileMeasureFlags---- Flags FileCreateFlags-{- |-Flags used when an operation may create a file.--}-data FileCreateFlags = -      FileCreateFlagsNone-    {- ^-    No flags set.-    -}-    | FileCreateFlagsPrivate-    {- ^-    Create a file that can only be-       accessed by the current user.-    -}-    | FileCreateFlagsReplaceDestination-    {- ^-    Replace the destination-       as if it didn\'t exist before. Don\'t try to keep any old-       permissions, replace instead of following links. This-       is generally useful if you\'re doing a \"copy over\"-       rather than a \"save new version of\" replace operation.-       You can think of it as \"unlink destination\" before-       writing to it, although the implementation may not-       be exactly like that. Since 2.20-    -}-    | AnotherFileCreateFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileCreateFlags where-    fromEnum FileCreateFlagsNone = 0-    fromEnum FileCreateFlagsPrivate = 1-    fromEnum FileCreateFlagsReplaceDestination = 2-    fromEnum (AnotherFileCreateFlags k) = k--    toEnum 0 = FileCreateFlagsNone-    toEnum 1 = FileCreateFlagsPrivate-    toEnum 2 = FileCreateFlagsReplaceDestination-    toEnum k = AnotherFileCreateFlags k--instance P.Ord FileCreateFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_create_flags_get_type" c_g_file_create_flags_get_type :: -    IO GType--instance BoxedFlags FileCreateFlags where-    boxedFlagsType _ = c_g_file_create_flags_get_type--instance IsGFlag FileCreateFlags---- Flags FileCopyFlags-{- |-Flags used when copying or moving files.--}-data FileCopyFlags = -      FileCopyFlagsNone-    {- ^-    No flags set.-    -}-    | FileCopyFlagsOverwrite-    {- ^-    Overwrite any existing files-    -}-    | FileCopyFlagsBackup-    {- ^-    Make a backup of any existing files.-    -}-    | FileCopyFlagsNofollowSymlinks-    {- ^-    Don\'t follow symlinks.-    -}-    | FileCopyFlagsAllMetadata-    {- ^-    Copy all file metadata instead of just default set used for copy (see 'GI.Gio.Objects.FileInfo.FileInfo').-    -}-    | FileCopyFlagsNoFallbackForMove-    {- ^-    Don\'t use copy and delete fallback if native move not supported.-    -}-    | FileCopyFlagsTargetDefaultPerms-    {- ^-    Leaves target file with default perms, instead of setting the source file perms.-    -}-    | AnotherFileCopyFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileCopyFlags where-    fromEnum FileCopyFlagsNone = 0-    fromEnum FileCopyFlagsOverwrite = 1-    fromEnum FileCopyFlagsBackup = 2-    fromEnum FileCopyFlagsNofollowSymlinks = 4-    fromEnum FileCopyFlagsAllMetadata = 8-    fromEnum FileCopyFlagsNoFallbackForMove = 16-    fromEnum FileCopyFlagsTargetDefaultPerms = 32-    fromEnum (AnotherFileCopyFlags k) = k--    toEnum 0 = FileCopyFlagsNone-    toEnum 1 = FileCopyFlagsOverwrite-    toEnum 2 = FileCopyFlagsBackup-    toEnum 4 = FileCopyFlagsNofollowSymlinks-    toEnum 8 = FileCopyFlagsAllMetadata-    toEnum 16 = FileCopyFlagsNoFallbackForMove-    toEnum 32 = FileCopyFlagsTargetDefaultPerms-    toEnum k = AnotherFileCopyFlags k--instance P.Ord FileCopyFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_copy_flags_get_type" c_g_file_copy_flags_get_type :: -    IO GType--instance BoxedFlags FileCopyFlags where-    boxedFlagsType _ = c_g_file_copy_flags_get_type--instance IsGFlag FileCopyFlags---- Flags FileAttributeInfoFlags-{- |-Flags specifying the behaviour of an attribute.--}-data FileAttributeInfoFlags = -      FileAttributeInfoFlagsNone-    {- ^-    no flags set.-    -}-    | FileAttributeInfoFlagsCopyWithFile-    {- ^-    copy the attribute values when the file is copied.-    -}-    | FileAttributeInfoFlagsCopyWhenMoved-    {- ^-    copy the attribute values when the file is moved.-    -}-    | AnotherFileAttributeInfoFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum FileAttributeInfoFlags where-    fromEnum FileAttributeInfoFlagsNone = 0-    fromEnum FileAttributeInfoFlagsCopyWithFile = 1-    fromEnum FileAttributeInfoFlagsCopyWhenMoved = 2-    fromEnum (AnotherFileAttributeInfoFlags k) = k--    toEnum 0 = FileAttributeInfoFlagsNone-    toEnum 1 = FileAttributeInfoFlagsCopyWithFile-    toEnum 2 = FileAttributeInfoFlagsCopyWhenMoved-    toEnum k = AnotherFileAttributeInfoFlags k--instance P.Ord FileAttributeInfoFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_file_attribute_info_flags_get_type" c_g_file_attribute_info_flags_get_type :: -    IO GType--instance BoxedFlags FileAttributeInfoFlags where-    boxedFlagsType _ = c_g_file_attribute_info_flags_get_type--instance IsGFlag FileAttributeInfoFlags---- Flags DriveStartFlags-{- |-Flags used when starting a drive.--/Since: 2.22/--}-data DriveStartFlags = -      DriveStartFlagsNone-    {- ^-    No flags set.-    -}-    | AnotherDriveStartFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DriveStartFlags where-    fromEnum DriveStartFlagsNone = 0-    fromEnum (AnotherDriveStartFlags k) = k--    toEnum 0 = DriveStartFlagsNone-    toEnum k = AnotherDriveStartFlags k--instance P.Ord DriveStartFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_drive_start_flags_get_type" c_g_drive_start_flags_get_type :: -    IO GType--instance BoxedFlags DriveStartFlags where-    boxedFlagsType _ = c_g_drive_start_flags_get_type--instance IsGFlag DriveStartFlags---- Flags DBusSubtreeFlags-{- |-Flags passed to 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'.--/Since: 2.26/--}-data DBusSubtreeFlags = -      DBusSubtreeFlagsNone-    {- ^-    No flags set.-    -}-    | DBusSubtreeFlagsDispatchToUnenumeratedNodes-    {- ^-    Method calls to objects not in the enumerated range-                                                          will still be dispatched. This is useful if you want-                                                          to dynamically spawn objects in the subtree.-    -}-    | AnotherDBusSubtreeFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusSubtreeFlags where-    fromEnum DBusSubtreeFlagsNone = 0-    fromEnum DBusSubtreeFlagsDispatchToUnenumeratedNodes = 1-    fromEnum (AnotherDBusSubtreeFlags k) = k--    toEnum 0 = DBusSubtreeFlagsNone-    toEnum 1 = DBusSubtreeFlagsDispatchToUnenumeratedNodes-    toEnum k = AnotherDBusSubtreeFlags k--instance P.Ord DBusSubtreeFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_subtree_flags_get_type" c_g_dbus_subtree_flags_get_type :: -    IO GType--instance BoxedFlags DBusSubtreeFlags where-    boxedFlagsType _ = c_g_dbus_subtree_flags_get_type--instance IsGFlag DBusSubtreeFlags---- Flags DBusSignalFlags-{- |-Flags used when subscribing to signals via 'GI.Gio.Objects.DBusConnection.dBusConnectionSignalSubscribe'.--/Since: 2.26/--}-data DBusSignalFlags = -      DBusSignalFlagsNone-    {- ^-    No flags set.-    -}-    | DBusSignalFlagsNoMatchRule-    {- ^-    Don\'t actually send the AddMatch-    D-Bus call for this signal subscription.  This gives you more control-    over which match rules you add (but you must add them manually).-    -}-    | DBusSignalFlagsMatchArg0Namespace-    {- ^-    Match first arguments that-    contain a bus or interface name with the given namespace.-    -}-    | DBusSignalFlagsMatchArg0Path-    {- ^-    Match first arguments that-    contain an object path that is either equivalent to the given path,-    or one of the paths is a subpath of the other.-    -}-    | AnotherDBusSignalFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusSignalFlags where-    fromEnum DBusSignalFlagsNone = 0-    fromEnum DBusSignalFlagsNoMatchRule = 1-    fromEnum DBusSignalFlagsMatchArg0Namespace = 2-    fromEnum DBusSignalFlagsMatchArg0Path = 4-    fromEnum (AnotherDBusSignalFlags k) = k--    toEnum 0 = DBusSignalFlagsNone-    toEnum 1 = DBusSignalFlagsNoMatchRule-    toEnum 2 = DBusSignalFlagsMatchArg0Namespace-    toEnum 4 = DBusSignalFlagsMatchArg0Path-    toEnum k = AnotherDBusSignalFlags k--instance P.Ord DBusSignalFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_signal_flags_get_type" c_g_dbus_signal_flags_get_type :: -    IO GType--instance BoxedFlags DBusSignalFlags where-    boxedFlagsType _ = c_g_dbus_signal_flags_get_type--instance IsGFlag DBusSignalFlags---- Flags DBusServerFlags-{- |-Flags used when creating a 'GI.Gio.Objects.DBusServer.DBusServer'.--/Since: 2.26/--}-data DBusServerFlags = -      DBusServerFlagsNone-    {- ^-    No flags set.-    -}-    | DBusServerFlagsRunInThread-    {- ^-    All 'GI.Gio.Objects.DBusServer.DBusServer'::@/new-connection/@-    signals will run in separated dedicated threads (see signal for-    details).-    -}-    | DBusServerFlagsAuthenticationAllowAnonymous-    {- ^-    Allow the anonymous-    authentication method.-    -}-    | AnotherDBusServerFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusServerFlags where-    fromEnum DBusServerFlagsNone = 0-    fromEnum DBusServerFlagsRunInThread = 1-    fromEnum DBusServerFlagsAuthenticationAllowAnonymous = 2-    fromEnum (AnotherDBusServerFlags k) = k--    toEnum 0 = DBusServerFlagsNone-    toEnum 1 = DBusServerFlagsRunInThread-    toEnum 2 = DBusServerFlagsAuthenticationAllowAnonymous-    toEnum k = AnotherDBusServerFlags k--instance P.Ord DBusServerFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_server_flags_get_type" c_g_dbus_server_flags_get_type :: -    IO GType--instance BoxedFlags DBusServerFlags where-    boxedFlagsType _ = c_g_dbus_server_flags_get_type--instance IsGFlag DBusServerFlags---- Flags DBusSendMessageFlags-{- |-Flags used when sending @/GDBusMessages/@ on a 'GI.Gio.Objects.DBusConnection.DBusConnection'.--/Since: 2.26/--}-data DBusSendMessageFlags = -      DBusSendMessageFlagsNone-    {- ^-    No flags set.-    -}-    | DBusSendMessageFlagsPreserveSerial-    {- ^-    Do not automatically-    assign a serial number from the 'GI.Gio.Objects.DBusConnection.DBusConnection' object when-    sending a message.-    -}-    | AnotherDBusSendMessageFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusSendMessageFlags where-    fromEnum DBusSendMessageFlagsNone = 0-    fromEnum DBusSendMessageFlagsPreserveSerial = 1-    fromEnum (AnotherDBusSendMessageFlags k) = k--    toEnum 0 = DBusSendMessageFlagsNone-    toEnum 1 = DBusSendMessageFlagsPreserveSerial-    toEnum k = AnotherDBusSendMessageFlags k--instance P.Ord DBusSendMessageFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_send_message_flags_get_type" c_g_dbus_send_message_flags_get_type :: -    IO GType--instance BoxedFlags DBusSendMessageFlags where-    boxedFlagsType _ = c_g_dbus_send_message_flags_get_type--instance IsGFlag DBusSendMessageFlags---- Flags DBusProxyFlags-{- |-Flags used when constructing an instance of a 'GI.Gio.Objects.DBusProxy.DBusProxy' derived class.--/Since: 2.26/--}-data DBusProxyFlags = -      DBusProxyFlagsNone-    {- ^-    No flags set.-    -}-    | DBusProxyFlagsDoNotLoadProperties-    {- ^-    Don\'t load properties.-    -}-    | DBusProxyFlagsDoNotConnectSignals-    {- ^-    Don\'t connect to signals on the remote object.-    -}-    | DBusProxyFlagsDoNotAutoStart-    {- ^-    If the proxy is for a well-known name,-    do not ask the bus to launch an owner during proxy initialization or a method call.-    This flag is only meaningful in proxies for well-known names.-    -}-    | DBusProxyFlagsGetInvalidatedProperties-    {- ^-    If set, the property value for any __invalidated property__ will be (asynchronously) retrieved upon receiving the <http://dbus.freedesktop.org/doc/dbus-specification.html#standard-interfaces-properties `PropertiesChanged`> D-Bus signal and the property will not cause emission of the 'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-properties-changed/@ signal. When the value is received the 'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-properties-changed/@ signal is emitted for the property along with the retrieved value. Since 2.32.-    -}-    | DBusProxyFlagsDoNotAutoStartAtConstruction-    {- ^-    If the proxy is for a well-known name,-    do not ask the bus to launch an owner during proxy initialization, but allow it to be-    autostarted by a method call. This flag is only meaningful in proxies for well-known names,-    and only if 'GI.Gio.Flags.DBusProxyFlagsDoNotAutoStart' is not also specified.-    -}-    | AnotherDBusProxyFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusProxyFlags where-    fromEnum DBusProxyFlagsNone = 0-    fromEnum DBusProxyFlagsDoNotLoadProperties = 1-    fromEnum DBusProxyFlagsDoNotConnectSignals = 2-    fromEnum DBusProxyFlagsDoNotAutoStart = 4-    fromEnum DBusProxyFlagsGetInvalidatedProperties = 8-    fromEnum DBusProxyFlagsDoNotAutoStartAtConstruction = 16-    fromEnum (AnotherDBusProxyFlags k) = k--    toEnum 0 = DBusProxyFlagsNone-    toEnum 1 = DBusProxyFlagsDoNotLoadProperties-    toEnum 2 = DBusProxyFlagsDoNotConnectSignals-    toEnum 4 = DBusProxyFlagsDoNotAutoStart-    toEnum 8 = DBusProxyFlagsGetInvalidatedProperties-    toEnum 16 = DBusProxyFlagsDoNotAutoStartAtConstruction-    toEnum k = AnotherDBusProxyFlags k--instance P.Ord DBusProxyFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_proxy_flags_get_type" c_g_dbus_proxy_flags_get_type :: -    IO GType--instance BoxedFlags DBusProxyFlags where-    boxedFlagsType _ = c_g_dbus_proxy_flags_get_type--instance IsGFlag DBusProxyFlags---- Flags DBusPropertyInfoFlags-{- |-Flags describing the access control of a D-Bus property.--/Since: 2.26/--}-data DBusPropertyInfoFlags = -      DBusPropertyInfoFlagsNone-    {- ^-    No flags set.-    -}-    | DBusPropertyInfoFlagsReadable-    {- ^-    Property is readable.-    -}-    | DBusPropertyInfoFlagsWritable-    {- ^-    Property is writable.-    -}-    | AnotherDBusPropertyInfoFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusPropertyInfoFlags where-    fromEnum DBusPropertyInfoFlagsNone = 0-    fromEnum DBusPropertyInfoFlagsReadable = 1-    fromEnum DBusPropertyInfoFlagsWritable = 2-    fromEnum (AnotherDBusPropertyInfoFlags k) = k--    toEnum 0 = DBusPropertyInfoFlagsNone-    toEnum 1 = DBusPropertyInfoFlagsReadable-    toEnum 2 = DBusPropertyInfoFlagsWritable-    toEnum k = AnotherDBusPropertyInfoFlags k--instance P.Ord DBusPropertyInfoFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_property_info_flags_get_type" c_g_dbus_property_info_flags_get_type :: -    IO GType--instance BoxedFlags DBusPropertyInfoFlags where-    boxedFlagsType _ = c_g_dbus_property_info_flags_get_type--instance IsGFlag DBusPropertyInfoFlags---- Flags DBusObjectManagerClientFlags-{- |-Flags used when constructing a 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'.--/Since: 2.30/--}-data DBusObjectManagerClientFlags = -      DBusObjectManagerClientFlagsNone-    {- ^-    No flags set.-    -}-    | DBusObjectManagerClientFlagsDoNotAutoStart-    {- ^-    If not set and the-      manager is for a well-known name, then request the bus to launch-      an owner for the name if no-one owns the name. This flag can only-      be used in managers for well-known names.-    -}-    | AnotherDBusObjectManagerClientFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusObjectManagerClientFlags where-    fromEnum DBusObjectManagerClientFlagsNone = 0-    fromEnum DBusObjectManagerClientFlagsDoNotAutoStart = 1-    fromEnum (AnotherDBusObjectManagerClientFlags k) = k--    toEnum 0 = DBusObjectManagerClientFlagsNone-    toEnum 1 = DBusObjectManagerClientFlagsDoNotAutoStart-    toEnum k = AnotherDBusObjectManagerClientFlags k--instance P.Ord DBusObjectManagerClientFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_object_manager_client_flags_get_type" c_g_dbus_object_manager_client_flags_get_type :: -    IO GType--instance BoxedFlags DBusObjectManagerClientFlags where-    boxedFlagsType _ = c_g_dbus_object_manager_client_flags_get_type--instance IsGFlag DBusObjectManagerClientFlags---- Flags DBusMessageFlags-{- |-Message flags used in 'GI.Gio.Objects.DBusMessage.DBusMessage'.--/Since: 2.26/--}-data DBusMessageFlags = -      DBusMessageFlagsNone-    {- ^-    No flags set.-    -}-    | DBusMessageFlagsNoReplyExpected-    {- ^-    A reply is not expected.-    -}-    | DBusMessageFlagsNoAutoStart-    {- ^-    The bus must not launch an-    owner for the destination name in response to this message.-    -}-    | DBusMessageFlagsAllowInteractiveAuthorization-    {- ^-    If set on a method-    call, this flag means that the caller is prepared to wait for interactive-    authorization. Since 2.46.-    -}-    | AnotherDBusMessageFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusMessageFlags where-    fromEnum DBusMessageFlagsNone = 0-    fromEnum DBusMessageFlagsNoReplyExpected = 1-    fromEnum DBusMessageFlagsNoAutoStart = 2-    fromEnum DBusMessageFlagsAllowInteractiveAuthorization = 4-    fromEnum (AnotherDBusMessageFlags k) = k--    toEnum 0 = DBusMessageFlagsNone-    toEnum 1 = DBusMessageFlagsNoReplyExpected-    toEnum 2 = DBusMessageFlagsNoAutoStart-    toEnum 4 = DBusMessageFlagsAllowInteractiveAuthorization-    toEnum k = AnotherDBusMessageFlags k--instance P.Ord DBusMessageFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_message_flags_get_type" c_g_dbus_message_flags_get_type :: -    IO GType--instance BoxedFlags DBusMessageFlags where-    boxedFlagsType _ = c_g_dbus_message_flags_get_type--instance IsGFlag DBusMessageFlags---- Flags DBusInterfaceSkeletonFlags-{- |-Flags describing the behavior of a 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton' instance.--/Since: 2.30/--}-data DBusInterfaceSkeletonFlags = -      DBusInterfaceSkeletonFlagsNone-    {- ^-    No flags set.-    -}-    | DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread-    {- ^-    Each method invocation is handled in-      a thread dedicated to the invocation. This means that the method implementation can use blocking IO-      without blocking any other part of the process. It also means that the method implementation must-      use locking to access data structures used by other threads.-    -}-    | AnotherDBusInterfaceSkeletonFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusInterfaceSkeletonFlags where-    fromEnum DBusInterfaceSkeletonFlagsNone = 0-    fromEnum DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread = 1-    fromEnum (AnotherDBusInterfaceSkeletonFlags k) = k--    toEnum 0 = DBusInterfaceSkeletonFlagsNone-    toEnum 1 = DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread-    toEnum k = AnotherDBusInterfaceSkeletonFlags k--instance P.Ord DBusInterfaceSkeletonFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_interface_skeleton_flags_get_type" c_g_dbus_interface_skeleton_flags_get_type :: -    IO GType--instance BoxedFlags DBusInterfaceSkeletonFlags where-    boxedFlagsType _ = c_g_dbus_interface_skeleton_flags_get_type--instance IsGFlag DBusInterfaceSkeletonFlags---- Flags DBusConnectionFlags-{- |-Flags used when creating a new 'GI.Gio.Objects.DBusConnection.DBusConnection'.--/Since: 2.26/--}-data DBusConnectionFlags = -      DBusConnectionFlagsNone-    {- ^-    No flags set.-    -}-    | DBusConnectionFlagsAuthenticationClient-    {- ^-    Perform authentication against server.-    -}-    | DBusConnectionFlagsAuthenticationServer-    {- ^-    Perform authentication against client.-    -}-    | DBusConnectionFlagsAuthenticationAllowAnonymous-    {- ^-    When-    authenticating as a server, allow the anonymous authentication-    method.-    -}-    | DBusConnectionFlagsMessageBusConnection-    {- ^-    Pass this flag if connecting to a peer that is a-    message bus. This means that the @/Hello()/@ method will be invoked as part of the connection setup.-    -}-    | DBusConnectionFlagsDelayMessageProcessing-    {- ^-    If set, processing of D-Bus messages is-    delayed until 'GI.Gio.Objects.DBusConnection.dBusConnectionStartMessageProcessing' is called.-    -}-    | AnotherDBusConnectionFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusConnectionFlags where-    fromEnum DBusConnectionFlagsNone = 0-    fromEnum DBusConnectionFlagsAuthenticationClient = 1-    fromEnum DBusConnectionFlagsAuthenticationServer = 2-    fromEnum DBusConnectionFlagsAuthenticationAllowAnonymous = 4-    fromEnum DBusConnectionFlagsMessageBusConnection = 8-    fromEnum DBusConnectionFlagsDelayMessageProcessing = 16-    fromEnum (AnotherDBusConnectionFlags k) = k--    toEnum 0 = DBusConnectionFlagsNone-    toEnum 1 = DBusConnectionFlagsAuthenticationClient-    toEnum 2 = DBusConnectionFlagsAuthenticationServer-    toEnum 4 = DBusConnectionFlagsAuthenticationAllowAnonymous-    toEnum 8 = DBusConnectionFlagsMessageBusConnection-    toEnum 16 = DBusConnectionFlagsDelayMessageProcessing-    toEnum k = AnotherDBusConnectionFlags k--instance P.Ord DBusConnectionFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_connection_flags_get_type" c_g_dbus_connection_flags_get_type :: -    IO GType--instance BoxedFlags DBusConnectionFlags where-    boxedFlagsType _ = c_g_dbus_connection_flags_get_type--instance IsGFlag DBusConnectionFlags---- Flags DBusCapabilityFlags-{- |-Capabilities negotiated with the remote peer.--/Since: 2.26/--}-data DBusCapabilityFlags = -      DBusCapabilityFlagsNone-    {- ^-    No flags set.-    -}-    | DBusCapabilityFlagsUnixFdPassing-    {- ^-    The connection-    supports exchanging UNIX file descriptors with the remote peer.-    -}-    | AnotherDBusCapabilityFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusCapabilityFlags where-    fromEnum DBusCapabilityFlagsNone = 0-    fromEnum DBusCapabilityFlagsUnixFdPassing = 1-    fromEnum (AnotherDBusCapabilityFlags k) = k--    toEnum 0 = DBusCapabilityFlagsNone-    toEnum 1 = DBusCapabilityFlagsUnixFdPassing-    toEnum k = AnotherDBusCapabilityFlags k--instance P.Ord DBusCapabilityFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_capability_flags_get_type" c_g_dbus_capability_flags_get_type :: -    IO GType--instance BoxedFlags DBusCapabilityFlags where-    boxedFlagsType _ = c_g_dbus_capability_flags_get_type--instance IsGFlag DBusCapabilityFlags---- Flags DBusCallFlags-{- |-Flags used in 'GI.Gio.Objects.DBusConnection.dBusConnectionCall' and similar APIs.--/Since: 2.26/--}-data DBusCallFlags = -      DBusCallFlagsNone-    {- ^-    No flags set.-    -}-    | DBusCallFlagsNoAutoStart-    {- ^-    The bus must not launch-    an owner for the destination name in response to this method-    invocation.-    -}-    | DBusCallFlagsAllowInteractiveAuthorization-    {- ^-    the caller is prepared to-    wait for interactive authorization. Since 2.46.-    -}-    | AnotherDBusCallFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum DBusCallFlags where-    fromEnum DBusCallFlagsNone = 0-    fromEnum DBusCallFlagsNoAutoStart = 1-    fromEnum DBusCallFlagsAllowInteractiveAuthorization = 2-    fromEnum (AnotherDBusCallFlags k) = k--    toEnum 0 = DBusCallFlagsNone-    toEnum 1 = DBusCallFlagsNoAutoStart-    toEnum 2 = DBusCallFlagsAllowInteractiveAuthorization-    toEnum k = AnotherDBusCallFlags k--instance P.Ord DBusCallFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_dbus_call_flags_get_type" c_g_dbus_call_flags_get_type :: -    IO GType--instance BoxedFlags DBusCallFlags where-    boxedFlagsType _ = c_g_dbus_call_flags_get_type--instance IsGFlag DBusCallFlags---- Flags ConverterFlags-{- |-Flags used when calling a 'GI.Gio.Interfaces.Converter.converterConvert'.--/Since: 2.24/--}-data ConverterFlags = -      ConverterFlagsNone-    {- ^-    No flags.-    -}-    | ConverterFlagsInputAtEnd-    {- ^-    At end of input data-    -}-    | ConverterFlagsFlush-    {- ^-    Flush data-    -}-    | AnotherConverterFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ConverterFlags where-    fromEnum ConverterFlagsNone = 0-    fromEnum ConverterFlagsInputAtEnd = 1-    fromEnum ConverterFlagsFlush = 2-    fromEnum (AnotherConverterFlags k) = k--    toEnum 0 = ConverterFlagsNone-    toEnum 1 = ConverterFlagsInputAtEnd-    toEnum 2 = ConverterFlagsFlush-    toEnum k = AnotherConverterFlags k--instance P.Ord ConverterFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_converter_flags_get_type" c_g_converter_flags_get_type :: -    IO GType--instance BoxedFlags ConverterFlags where-    boxedFlagsType _ = c_g_converter_flags_get_type--instance IsGFlag ConverterFlags---- Flags BusNameWatcherFlags-{- |-Flags used in @/g_bus_watch_name()/@.--/Since: 2.26/--}-data BusNameWatcherFlags = -      BusNameWatcherFlagsNone-    {- ^-    No flags set.-    -}-    | BusNameWatcherFlagsAutoStart-    {- ^-    If no-one owns the name when-    beginning to watch the name, ask the bus to launch an owner for the-    name.-    -}-    | AnotherBusNameWatcherFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum BusNameWatcherFlags where-    fromEnum BusNameWatcherFlagsNone = 0-    fromEnum BusNameWatcherFlagsAutoStart = 1-    fromEnum (AnotherBusNameWatcherFlags k) = k--    toEnum 0 = BusNameWatcherFlagsNone-    toEnum 1 = BusNameWatcherFlagsAutoStart-    toEnum k = AnotherBusNameWatcherFlags k--instance P.Ord BusNameWatcherFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_bus_name_watcher_flags_get_type" c_g_bus_name_watcher_flags_get_type :: -    IO GType--instance BoxedFlags BusNameWatcherFlags where-    boxedFlagsType _ = c_g_bus_name_watcher_flags_get_type--instance IsGFlag BusNameWatcherFlags---- Flags BusNameOwnerFlags-{- |-Flags used in @/g_bus_own_name()/@.--/Since: 2.26/--}-data BusNameOwnerFlags = -      BusNameOwnerFlagsNone-    {- ^-    No flags set.-    -}-    | BusNameOwnerFlagsAllowReplacement-    {- ^-    Allow another message bus connection to claim the name.-    -}-    | BusNameOwnerFlagsReplace-    {- ^-    If another message bus connection owns the name and have-    specified @/G_BUS_NAME_OWNER_FLAGS_ALLOW_REPLACEMENT/@, then take the name from the other connection.-    -}-    | BusNameOwnerFlagsDoNotQueue-    {- ^-    If another message bus connection owns the name, immediately-    return an error from @/g_bus_own_name()/@ rather than entering the waiting queue for that name. (Since 2.54)-    -}-    | AnotherBusNameOwnerFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum BusNameOwnerFlags where-    fromEnum BusNameOwnerFlagsNone = 0-    fromEnum BusNameOwnerFlagsAllowReplacement = 1-    fromEnum BusNameOwnerFlagsReplace = 2-    fromEnum BusNameOwnerFlagsDoNotQueue = 4-    fromEnum (AnotherBusNameOwnerFlags k) = k--    toEnum 0 = BusNameOwnerFlagsNone-    toEnum 1 = BusNameOwnerFlagsAllowReplacement-    toEnum 2 = BusNameOwnerFlagsReplace-    toEnum 4 = BusNameOwnerFlagsDoNotQueue-    toEnum k = AnotherBusNameOwnerFlags k--instance P.Ord BusNameOwnerFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_bus_name_owner_flags_get_type" c_g_bus_name_owner_flags_get_type :: -    IO GType--instance BoxedFlags BusNameOwnerFlags where-    boxedFlagsType _ = c_g_bus_name_owner_flags_get_type--instance IsGFlag BusNameOwnerFlags---- Flags AskPasswordFlags-{- |-'GI.Gio.Flags.AskPasswordFlags' are used to request specific information from the-user, or to notify the user of their choices in an authentication-situation.--}-data AskPasswordFlags = -      AskPasswordFlagsNeedPassword-    {- ^-    operation requires a password.-    -}-    | AskPasswordFlagsNeedUsername-    {- ^-    operation requires a username.-    -}-    | AskPasswordFlagsNeedDomain-    {- ^-    operation requires a domain.-    -}-    | AskPasswordFlagsSavingSupported-    {- ^-    operation supports saving settings.-    -}-    | AskPasswordFlagsAnonymousSupported-    {- ^-    operation supports anonymous users.-    -}-    | AskPasswordFlagsTcrypt-    {- ^-    operation takes TCRYPT parameters (Since: 2.58)-    -}-    | AnotherAskPasswordFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum AskPasswordFlags where-    fromEnum AskPasswordFlagsNeedPassword = 1-    fromEnum AskPasswordFlagsNeedUsername = 2-    fromEnum AskPasswordFlagsNeedDomain = 4-    fromEnum AskPasswordFlagsSavingSupported = 8-    fromEnum AskPasswordFlagsAnonymousSupported = 16-    fromEnum AskPasswordFlagsTcrypt = 32-    fromEnum (AnotherAskPasswordFlags k) = k--    toEnum 1 = AskPasswordFlagsNeedPassword-    toEnum 2 = AskPasswordFlagsNeedUsername-    toEnum 4 = AskPasswordFlagsNeedDomain-    toEnum 8 = AskPasswordFlagsSavingSupported-    toEnum 16 = AskPasswordFlagsAnonymousSupported-    toEnum 32 = AskPasswordFlagsTcrypt-    toEnum k = AnotherAskPasswordFlags k--instance P.Ord AskPasswordFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_ask_password_flags_get_type" c_g_ask_password_flags_get_type :: -    IO GType--instance BoxedFlags AskPasswordFlags where-    boxedFlagsType _ = c_g_ask_password_flags_get_type--instance IsGFlag AskPasswordFlags---- Flags ApplicationFlags-{- |-Flags used to define the behaviour of a 'GI.Gio.Objects.Application.Application'.--/Since: 2.28/--}-data ApplicationFlags = -      ApplicationFlagsFlagsNone-    {- ^-    Default-    -}-    | ApplicationFlagsIsService-    {- ^-    Run as a service. In this mode, registration-         fails if the service is already running, and the application-         will initially wait up to 10 seconds for an initial activation-         message to arrive.-    -}-    | ApplicationFlagsIsLauncher-    {- ^-    Don\'t try to become the primary instance.-    -}-    | ApplicationFlagsHandlesOpen-    {- ^-    This application handles opening files (in-        the primary instance). Note that this flag only affects the default-        implementation of @/local_command_line()/@, and has no effect if-        'GI.Gio.Flags.ApplicationFlagsHandlesCommandLine' is given.-        See 'GI.Gio.Objects.Application.applicationRun' for details.-    -}-    | ApplicationFlagsHandlesCommandLine-    {- ^-    This application handles command line-        arguments (in the primary instance). Note that this flag only affect-        the default implementation of @/local_command_line()/@.-        See 'GI.Gio.Objects.Application.applicationRun' for details.-    -}-    | ApplicationFlagsSendEnvironment-    {- ^-    Send the environment of the-        launching process to the primary instance. Set this flag if your-        application is expected to behave differently depending on certain-        environment variables. For instance, an editor might be expected-        to use the @GIT_COMMITTER_NAME@ environment variable-        when editing a git commit message. The environment is available-        to the 'GI.Gio.Objects.Application.Application'::@/command-line/@ signal handler, via-        'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetenv'.-    -}-    | ApplicationFlagsNonUnique-    {- ^-    Make no attempts to do any of the typical-        single-instance application negotiation, even if the application-        ID is given.  The application neither attempts to become the-        owner of the application ID nor does it check if an existing-        owner already exists.  Everything occurs in the local process.-        Since: 2.30.-    -}-    | ApplicationFlagsCanOverrideAppId-    {- ^-    Allow users to override the-        application ID from the command line with @--gapplication-app-id@.-        Since: 2.48-    -}-    | ApplicationFlagsAllowReplacement-    {- ^-    Allow another instance to take over-        the bus name. Since: 2.60-    -}-    | ApplicationFlagsReplace-    {- ^-    Take over from another instance. This flag is-        usually set by passing @--gapplication-replace@ on the commandline.-        Since: 2.60-    -}-    | AnotherApplicationFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum ApplicationFlags where-    fromEnum ApplicationFlagsFlagsNone = 0-    fromEnum ApplicationFlagsIsService = 1-    fromEnum ApplicationFlagsIsLauncher = 2-    fromEnum ApplicationFlagsHandlesOpen = 4-    fromEnum ApplicationFlagsHandlesCommandLine = 8-    fromEnum ApplicationFlagsSendEnvironment = 16-    fromEnum ApplicationFlagsNonUnique = 32-    fromEnum ApplicationFlagsCanOverrideAppId = 64-    fromEnum ApplicationFlagsAllowReplacement = 128-    fromEnum ApplicationFlagsReplace = 256-    fromEnum (AnotherApplicationFlags k) = k--    toEnum 0 = ApplicationFlagsFlagsNone-    toEnum 1 = ApplicationFlagsIsService-    toEnum 2 = ApplicationFlagsIsLauncher-    toEnum 4 = ApplicationFlagsHandlesOpen-    toEnum 8 = ApplicationFlagsHandlesCommandLine-    toEnum 16 = ApplicationFlagsSendEnvironment-    toEnum 32 = ApplicationFlagsNonUnique-    toEnum 64 = ApplicationFlagsCanOverrideAppId-    toEnum 128 = ApplicationFlagsAllowReplacement-    toEnum 256 = ApplicationFlagsReplace-    toEnum k = AnotherApplicationFlags k--instance P.Ord ApplicationFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_application_flags_get_type" c_g_application_flags_get_type :: -    IO GType--instance BoxedFlags ApplicationFlags where-    boxedFlagsType _ = c_g_application_flags_get_type--instance IsGFlag ApplicationFlags---- Flags AppInfoCreateFlags-{- |-Flags used when creating a 'GI.Gio.Interfaces.AppInfo.AppInfo'.--}-data AppInfoCreateFlags = -      AppInfoCreateFlagsNone-    {- ^-    No flags.-    -}-    | AppInfoCreateFlagsNeedsTerminal-    {- ^-    Application opens in a terminal window.-    -}-    | AppInfoCreateFlagsSupportsUris-    {- ^-    Application supports URI arguments.-    -}-    | AppInfoCreateFlagsSupportsStartupNotification-    {- ^-    Application supports startup notification. Since 2.26-    -}-    | AnotherAppInfoCreateFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum AppInfoCreateFlags where-    fromEnum AppInfoCreateFlagsNone = 0-    fromEnum AppInfoCreateFlagsNeedsTerminal = 1-    fromEnum AppInfoCreateFlagsSupportsUris = 2-    fromEnum AppInfoCreateFlagsSupportsStartupNotification = 4-    fromEnum (AnotherAppInfoCreateFlags k) = k--    toEnum 0 = AppInfoCreateFlagsNone-    toEnum 1 = AppInfoCreateFlagsNeedsTerminal-    toEnum 2 = AppInfoCreateFlagsSupportsUris-    toEnum 4 = AppInfoCreateFlagsSupportsStartupNotification-    toEnum k = AnotherAppInfoCreateFlags k--instance P.Ord AppInfoCreateFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--foreign import ccall "g_app_info_create_flags_get_type" c_g_app_info_create_flags_get_type :: -    IO GType--instance BoxedFlags AppInfoCreateFlags where-    boxedFlagsType _ = c_g_app_info_create_flags_get_type--instance IsGFlag AppInfoCreateFlags--
− GI/Gio/Flags.hs-boot 
@@ -1,180 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.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 TlsPasswordFlags-instance P.Enum TlsPasswordFlags where-instance BoxedFlags TlsPasswordFlags where-instance IsGFlag TlsPasswordFlags-data TlsDatabaseVerifyFlags-instance P.Enum TlsDatabaseVerifyFlags where-instance BoxedFlags TlsDatabaseVerifyFlags where-instance IsGFlag TlsDatabaseVerifyFlags-data TlsCertificateFlags-instance P.Enum TlsCertificateFlags where-instance BoxedFlags TlsCertificateFlags where-instance IsGFlag TlsCertificateFlags-data TestDBusFlags-instance P.Enum TestDBusFlags where-instance BoxedFlags TestDBusFlags where-instance IsGFlag TestDBusFlags-data SubprocessFlags-instance P.Enum SubprocessFlags where-instance BoxedFlags SubprocessFlags where-instance IsGFlag SubprocessFlags-data SocketMsgFlags-instance P.Enum SocketMsgFlags where-instance BoxedFlags SocketMsgFlags where-instance IsGFlag SocketMsgFlags-data SettingsBindFlags-instance P.Enum SettingsBindFlags where-instance BoxedFlags SettingsBindFlags where-instance IsGFlag SettingsBindFlags-data ResourceLookupFlags-instance P.Enum ResourceLookupFlags where-instance BoxedFlags ResourceLookupFlags where-instance IsGFlag ResourceLookupFlags-data ResourceFlags-instance P.Enum ResourceFlags where-instance BoxedFlags ResourceFlags where-instance IsGFlag ResourceFlags-data ResolverNameLookupFlags-instance P.Enum ResolverNameLookupFlags where-instance BoxedFlags ResolverNameLookupFlags where-instance IsGFlag ResolverNameLookupFlags-data OutputStreamSpliceFlags-instance P.Enum OutputStreamSpliceFlags where-instance BoxedFlags OutputStreamSpliceFlags where-instance IsGFlag OutputStreamSpliceFlags-data MountUnmountFlags-instance P.Enum MountUnmountFlags where-instance BoxedFlags MountUnmountFlags where-instance IsGFlag MountUnmountFlags-data MountMountFlags-instance P.Enum MountMountFlags where-instance BoxedFlags MountMountFlags where-instance IsGFlag MountMountFlags-data IOStreamSpliceFlags-instance P.Enum IOStreamSpliceFlags where-instance BoxedFlags IOStreamSpliceFlags where-instance IsGFlag IOStreamSpliceFlags-data FileQueryInfoFlags-instance P.Enum FileQueryInfoFlags where-instance BoxedFlags FileQueryInfoFlags where-instance IsGFlag FileQueryInfoFlags-data FileMonitorFlags-instance P.Enum FileMonitorFlags where-instance BoxedFlags FileMonitorFlags where-instance IsGFlag FileMonitorFlags-data FileMeasureFlags-instance P.Enum FileMeasureFlags where-instance BoxedFlags FileMeasureFlags where-instance IsGFlag FileMeasureFlags-data FileCreateFlags-instance P.Enum FileCreateFlags where-instance BoxedFlags FileCreateFlags where-instance IsGFlag FileCreateFlags-data FileCopyFlags-instance P.Enum FileCopyFlags where-instance BoxedFlags FileCopyFlags where-instance IsGFlag FileCopyFlags-data FileAttributeInfoFlags-instance P.Enum FileAttributeInfoFlags where-instance BoxedFlags FileAttributeInfoFlags where-instance IsGFlag FileAttributeInfoFlags-data DriveStartFlags-instance P.Enum DriveStartFlags where-instance BoxedFlags DriveStartFlags where-instance IsGFlag DriveStartFlags-data DBusSubtreeFlags-instance P.Enum DBusSubtreeFlags where-instance BoxedFlags DBusSubtreeFlags where-instance IsGFlag DBusSubtreeFlags-data DBusSignalFlags-instance P.Enum DBusSignalFlags where-instance BoxedFlags DBusSignalFlags where-instance IsGFlag DBusSignalFlags-data DBusServerFlags-instance P.Enum DBusServerFlags where-instance BoxedFlags DBusServerFlags where-instance IsGFlag DBusServerFlags-data DBusSendMessageFlags-instance P.Enum DBusSendMessageFlags where-instance BoxedFlags DBusSendMessageFlags where-instance IsGFlag DBusSendMessageFlags-data DBusProxyFlags-instance P.Enum DBusProxyFlags where-instance BoxedFlags DBusProxyFlags where-instance IsGFlag DBusProxyFlags-data DBusPropertyInfoFlags-instance P.Enum DBusPropertyInfoFlags where-instance BoxedFlags DBusPropertyInfoFlags where-instance IsGFlag DBusPropertyInfoFlags-data DBusObjectManagerClientFlags-instance P.Enum DBusObjectManagerClientFlags where-instance BoxedFlags DBusObjectManagerClientFlags where-instance IsGFlag DBusObjectManagerClientFlags-data DBusMessageFlags-instance P.Enum DBusMessageFlags where-instance BoxedFlags DBusMessageFlags where-instance IsGFlag DBusMessageFlags-data DBusInterfaceSkeletonFlags-instance P.Enum DBusInterfaceSkeletonFlags where-instance BoxedFlags DBusInterfaceSkeletonFlags where-instance IsGFlag DBusInterfaceSkeletonFlags-data DBusConnectionFlags-instance P.Enum DBusConnectionFlags where-instance BoxedFlags DBusConnectionFlags where-instance IsGFlag DBusConnectionFlags-data DBusCapabilityFlags-instance P.Enum DBusCapabilityFlags where-instance BoxedFlags DBusCapabilityFlags where-instance IsGFlag DBusCapabilityFlags-data DBusCallFlags-instance P.Enum DBusCallFlags where-instance BoxedFlags DBusCallFlags where-instance IsGFlag DBusCallFlags-data ConverterFlags-instance P.Enum ConverterFlags where-instance BoxedFlags ConverterFlags where-instance IsGFlag ConverterFlags-data BusNameWatcherFlags-instance P.Enum BusNameWatcherFlags where-instance BoxedFlags BusNameWatcherFlags where-instance IsGFlag BusNameWatcherFlags-data BusNameOwnerFlags-instance P.Enum BusNameOwnerFlags where-instance BoxedFlags BusNameOwnerFlags where-instance IsGFlag BusNameOwnerFlags-data AskPasswordFlags-instance P.Enum AskPasswordFlags where-instance BoxedFlags AskPasswordFlags where-instance IsGFlag AskPasswordFlags-data ApplicationFlags-instance P.Enum ApplicationFlags where-instance BoxedFlags ApplicationFlags where-instance IsGFlag ApplicationFlags-data AppInfoCreateFlags-instance P.Enum AppInfoCreateFlags where-instance BoxedFlags AppInfoCreateFlags where-instance IsGFlag AppInfoCreateFlags
− GI/Gio/Functions.hs 
@@ -1,3888 +0,0 @@---{- |-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.Gio.Functions-    ( -- -- * Methods--- ** busGet #method:busGet#--    busGet                                  ,----- ** busGetFinish #method:busGetFinish#--    busGetFinish                            ,----- ** busGetSync #method:busGetSync#--    busGetSync                              ,----- ** busOwnName #method:busOwnName#--    busOwnName                              ,----- ** busOwnNameOnConnection #method:busOwnNameOnConnection#--    busOwnNameOnConnection                  ,----- ** busUnownName #method:busUnownName#--    busUnownName                            ,----- ** busUnwatchName #method:busUnwatchName#--    busUnwatchName                          ,----- ** busWatchName #method:busWatchName#--    busWatchName                            ,----- ** busWatchNameOnConnection #method:busWatchNameOnConnection#--    busWatchNameOnConnection                ,----- ** contentTypeCanBeExecutable #method:contentTypeCanBeExecutable#--    contentTypeCanBeExecutable              ,----- ** contentTypeEquals #method:contentTypeEquals#--    contentTypeEquals                       ,----- ** contentTypeFromMimeType #method:contentTypeFromMimeType#--    contentTypeFromMimeType                 ,----- ** contentTypeGetDescription #method:contentTypeGetDescription#--    contentTypeGetDescription               ,----- ** contentTypeGetGenericIconName #method:contentTypeGetGenericIconName#--    contentTypeGetGenericIconName           ,----- ** contentTypeGetIcon #method:contentTypeGetIcon#--    contentTypeGetIcon                      ,----- ** contentTypeGetMimeDirs #method:contentTypeGetMimeDirs#--    contentTypeGetMimeDirs                  ,----- ** contentTypeGetMimeType #method:contentTypeGetMimeType#--    contentTypeGetMimeType                  ,----- ** contentTypeGetSymbolicIcon #method:contentTypeGetSymbolicIcon#--    contentTypeGetSymbolicIcon              ,----- ** contentTypeGuess #method:contentTypeGuess#--    contentTypeGuess                        ,----- ** contentTypeGuessForTree #method:contentTypeGuessForTree#--    contentTypeGuessForTree                 ,----- ** contentTypeIsA #method:contentTypeIsA#--    contentTypeIsA                          ,----- ** contentTypeIsMimeType #method:contentTypeIsMimeType#--    contentTypeIsMimeType                   ,----- ** contentTypeIsUnknown #method:contentTypeIsUnknown#--    contentTypeIsUnknown                    ,----- ** contentTypeSetMimeDirs #method:contentTypeSetMimeDirs#--    contentTypeSetMimeDirs                  ,----- ** contentTypesGetRegistered #method:contentTypesGetRegistered#--    contentTypesGetRegistered               ,----- ** dbusAddressEscapeValue #method:dbusAddressEscapeValue#--    dbusAddressEscapeValue                  ,----- ** dbusAddressGetForBusSync #method:dbusAddressGetForBusSync#--    dbusAddressGetForBusSync                ,----- ** dbusAddressGetStream #method:dbusAddressGetStream#--    dbusAddressGetStream                    ,----- ** dbusAddressGetStreamFinish #method:dbusAddressGetStreamFinish#--    dbusAddressGetStreamFinish              ,----- ** dbusAddressGetStreamSync #method:dbusAddressGetStreamSync#--    dbusAddressGetStreamSync                ,----- ** dbusGenerateGuid #method:dbusGenerateGuid#--    dbusGenerateGuid                        ,----- ** dbusGvalueToGvariant #method:dbusGvalueToGvariant#--    dbusGvalueToGvariant                    ,----- ** dbusGvariantToGvalue #method:dbusGvariantToGvalue#--    dbusGvariantToGvalue                    ,----- ** dbusIsAddress #method:dbusIsAddress#--    dbusIsAddress                           ,----- ** dbusIsGuid #method:dbusIsGuid#--    dbusIsGuid                              ,----- ** dbusIsInterfaceName #method:dbusIsInterfaceName#--    dbusIsInterfaceName                     ,----- ** dbusIsMemberName #method:dbusIsMemberName#--    dbusIsMemberName                        ,----- ** dbusIsName #method:dbusIsName#--    dbusIsName                              ,----- ** dbusIsSupportedAddress #method:dbusIsSupportedAddress#--    dbusIsSupportedAddress                  ,----- ** dbusIsUniqueName #method:dbusIsUniqueName#--    dbusIsUniqueName                        ,----- ** ioErrorFromErrno #method:ioErrorFromErrno#--    ioErrorFromErrno                        ,----- ** ioErrorQuark #method:ioErrorQuark#--    ioErrorQuark                            ,----- ** ioModulesScanAllInDirectory #method:ioModulesScanAllInDirectory#--    ioModulesScanAllInDirectory             ,----- ** ioModulesScanAllInDirectoryWithScope #method:ioModulesScanAllInDirectoryWithScope#--    ioModulesScanAllInDirectoryWithScope    ,----- ** ioSchedulerCancelAllJobs #method:ioSchedulerCancelAllJobs#--    ioSchedulerCancelAllJobs                ,----- ** ioSchedulerPushJob #method:ioSchedulerPushJob#--    ioSchedulerPushJob                      ,----- ** keyfileSettingsBackendNew #method:keyfileSettingsBackendNew#--    keyfileSettingsBackendNew               ,----- ** memorySettingsBackendNew #method:memorySettingsBackendNew#--    memorySettingsBackendNew                ,----- ** networkingInit #method:networkingInit#--    networkingInit                          ,----- ** nullSettingsBackendNew #method:nullSettingsBackendNew#--    nullSettingsBackendNew                  ,----- ** pollableSourceNew #method:pollableSourceNew#--    pollableSourceNew                       ,----- ** pollableSourceNewFull #method:pollableSourceNewFull#--    pollableSourceNewFull                   ,----- ** pollableStreamRead #method:pollableStreamRead#--    pollableStreamRead                      ,----- ** pollableStreamWrite #method:pollableStreamWrite#--    pollableStreamWrite                     ,----- ** pollableStreamWriteAll #method:pollableStreamWriteAll#--    pollableStreamWriteAll                  ,----- ** resourcesEnumerateChildren #method:resourcesEnumerateChildren#--    resourcesEnumerateChildren              ,----- ** resourcesGetInfo #method:resourcesGetInfo#--    resourcesGetInfo                        ,----- ** resourcesLookupData #method:resourcesLookupData#--    resourcesLookupData                     ,----- ** resourcesOpenStream #method:resourcesOpenStream#--    resourcesOpenStream                     ,----- ** resourcesRegister #method:resourcesRegister#--    resourcesRegister                       ,----- ** resourcesUnregister #method:resourcesUnregister#--    resourcesUnregister                     ,----- ** simpleAsyncReportGerrorInIdle #method:simpleAsyncReportGerrorInIdle#--    simpleAsyncReportGerrorInIdle           ,----- ** unixIsMountPathSystemInternal #method:unixIsMountPathSystemInternal#--    unixIsMountPathSystemInternal           ,----- ** unixIsSystemDevicePath #method:unixIsSystemDevicePath#--    unixIsSystemDevicePath                  ,----- ** unixIsSystemFsType #method:unixIsSystemFsType#--    unixIsSystemFsType                      ,----- ** unixMountAt #method:unixMountAt#--    unixMountAt                             ,----- ** unixMountCompare #method:unixMountCompare#--    unixMountCompare                        ,----- ** unixMountCopy #method:unixMountCopy#--    unixMountCopy                           ,----- ** unixMountFor #method:unixMountFor#--    unixMountFor                            ,----- ** unixMountFree #method:unixMountFree#--    unixMountFree                           ,----- ** unixMountGetDevicePath #method:unixMountGetDevicePath#--    unixMountGetDevicePath                  ,----- ** unixMountGetFsType #method:unixMountGetFsType#--    unixMountGetFsType                      ,----- ** unixMountGetMountPath #method:unixMountGetMountPath#--    unixMountGetMountPath                   ,----- ** unixMountGetOptions #method:unixMountGetOptions#--    unixMountGetOptions                     ,----- ** unixMountGetRootPath #method:unixMountGetRootPath#--    unixMountGetRootPath                    ,----- ** unixMountGuessCanEject #method:unixMountGuessCanEject#--    unixMountGuessCanEject                  ,----- ** unixMountGuessIcon #method:unixMountGuessIcon#--    unixMountGuessIcon                      ,----- ** unixMountGuessName #method:unixMountGuessName#--    unixMountGuessName                      ,----- ** unixMountGuessShouldDisplay #method:unixMountGuessShouldDisplay#--    unixMountGuessShouldDisplay             ,----- ** unixMountGuessSymbolicIcon #method:unixMountGuessSymbolicIcon#--    unixMountGuessSymbolicIcon              ,----- ** unixMountIsReadonly #method:unixMountIsReadonly#--    unixMountIsReadonly                     ,----- ** unixMountIsSystemInternal #method:unixMountIsSystemInternal#--    unixMountIsSystemInternal               ,----- ** unixMountPointsChangedSince #method:unixMountPointsChangedSince#--    unixMountPointsChangedSince             ,----- ** unixMountPointsGet #method:unixMountPointsGet#--    unixMountPointsGet                      ,----- ** unixMountsChangedSince #method:unixMountsChangedSince#--    unixMountsChangedSince                  ,----- ** unixMountsGet #method:unixMountsGet#--    unixMountsGet                           ,-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GLib.Structs.Bytes as GLib.Bytes-import qualified GI.GLib.Structs.Source as GLib.Source-import qualified GI.GLib.Structs.VariantType as GLib.VariantType-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.SettingsBackend as Gio.SettingsBackend-import {-# SOURCE #-} qualified GI.Gio.Structs.IOModuleScope as Gio.IOModuleScope-import {-# SOURCE #-} qualified GI.Gio.Structs.Resource as Gio.Resource-import {-# SOURCE #-} qualified GI.Gio.Structs.UnixMountEntry as Gio.UnixMountEntry-import {-# SOURCE #-} qualified GI.Gio.Structs.UnixMountPoint as Gio.UnixMountPoint---- function g_unix_mounts_get--- Args : [Arg {argCName = "time_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "guint64 to contain a timestamp, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mounts_get" g_unix_mounts_get :: -    Ptr Word64 ->                           -- time_read : TBasicType TUInt64-    IO (Ptr (GList (Ptr Gio.UnixMountEntry.UnixMountEntry)))--{- |-Gets a 'GI.GLib.Structs.List.List' of 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' containing the unix mounts.-If /@timeRead@/ is set, it will be filled with the mount-timestamp, allowing for checking if the mounts have changed-with 'GI.Gio.Functions.unixMountsChangedSince'.--}-unixMountsGet ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m (([Gio.UnixMountEntry.UnixMountEntry], Word64))-    {- ^ __Returns:__ -    a 'GI.GLib.Structs.List.List' of the UNIX mounts. -}-unixMountsGet  = liftIO $ do-    timeRead <- allocMem :: IO (Ptr Word64)-    result <- g_unix_mounts_get timeRead-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed Gio.UnixMountEntry.UnixMountEntry) result'-    g_list_free result-    timeRead' <- peek timeRead-    freeMem timeRead-    return (result'', timeRead')----- function g_unix_mounts_changed_since--- Args : [Arg {argCName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "guint64 to contain a timestamp.", 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 "g_unix_mounts_changed_since" g_unix_mounts_changed_since :: -    Word64 ->                               -- time : TBasicType TUInt64-    IO CInt--{- |-Checks if the unix mounts have changed since a given unix time.--}-unixMountsChangedSince ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word64-    {- ^ /@time@/: guint64 to contain a timestamp. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the mounts have changed since /@time@/. -}-unixMountsChangedSince time = liftIO $ do-    result <- g_unix_mounts_changed_since time-    let result' = (/= 0) result-    return result'----- function g_unix_mount_points_get--- Args : [Arg {argCName = "time_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "guint64 to contain a timestamp.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_points_get" g_unix_mount_points_get :: -    Ptr Word64 ->                           -- time_read : TBasicType TUInt64-    IO (Ptr (GList (Ptr Gio.UnixMountPoint.UnixMountPoint)))--{- |-Gets a 'GI.GLib.Structs.List.List' of 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint' containing the unix mount points.-If /@timeRead@/ is set, it will be filled with the mount timestamp,-allowing for checking if the mounts have changed with-'GI.Gio.Functions.unixMountPointsChangedSince'.--}-unixMountPointsGet ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m (([Gio.UnixMountPoint.UnixMountPoint], Word64))-    {- ^ __Returns:__ -    a 'GI.GLib.Structs.List.List' of the UNIX mountpoints. -}-unixMountPointsGet  = liftIO $ do-    timeRead <- allocMem :: IO (Ptr Word64)-    result <- g_unix_mount_points_get timeRead-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed Gio.UnixMountPoint.UnixMountPoint) result'-    g_list_free result-    timeRead' <- peek timeRead-    freeMem timeRead-    return (result'', timeRead')----- function g_unix_mount_points_changed_since--- Args : [Arg {argCName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "guint64 to contain a timestamp.", 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 "g_unix_mount_points_changed_since" g_unix_mount_points_changed_since :: -    Word64 ->                               -- time : TBasicType TUInt64-    IO CInt--{- |-Checks if the unix mount points have changed since a given unix time.--}-unixMountPointsChangedSince ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word64-    {- ^ /@time@/: guint64 to contain a timestamp. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the mount points have changed since /@time@/. -}-unixMountPointsChangedSince time = liftIO $ do-    result <- g_unix_mount_points_changed_since time-    let result' = (/= 0) result-    return result'----- function g_unix_mount_is_system_internal--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMount.", 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 "g_unix_mount_is_system_internal" g_unix_mount_is_system_internal :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CInt--{- |-Checks if a Unix mount is a system mount. This is the Boolean OR of-'GI.Gio.Functions.unixIsSystemFsType', 'GI.Gio.Functions.unixIsSystemDevicePath' and-'GI.Gio.Functions.unixIsMountPathSystemInternal' on /@mountEntry@/’s properties.--The definition of what a ‘system’ mount entry is may change over time as new-file system types and device paths are ignored.--}-unixMountIsSystemInternal ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a @/GUnixMount/@. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the unix mount is for a system path. -}-unixMountIsSystemInternal mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_is_system_internal mountEntry'-    let result' = (/= 0) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_is_readonly--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMount.", 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 "g_unix_mount_is_readonly" g_unix_mount_is_readonly :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CInt--{- |-Checks if a unix mount is mounted read only.--}-unixMountIsReadonly ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a @/GUnixMount/@. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@mountEntry@/ is read only. -}-unixMountIsReadonly mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_is_readonly mountEntry'-    let result' = (/= 0) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_guess_symbolic_icon--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_guess_symbolic_icon" g_unix_mount_guess_symbolic_icon :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO (Ptr Gio.Icon.Icon)--{- |-Guesses the symbolic icon of a Unix mount.--/Since: 2.34/--}-unixMountGuessSymbolicIcon ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon' -}-unixMountGuessSymbolicIcon mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_symbolic_icon mountEntry'-    checkUnexpectedReturnNULL "unixMountGuessSymbolicIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_guess_should_display--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry", 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 "g_unix_mount_guess_should_display" g_unix_mount_guess_should_display :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CInt--{- |-Guesses whether a Unix mount should be displayed in the UI.--}-unixMountGuessShouldDisplay ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@mountEntry@/ is deemed to be displayable. -}-unixMountGuessShouldDisplay mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_should_display mountEntry'-    let result' = (/= 0) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_guess_name--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry", 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 "g_unix_mount_guess_name" g_unix_mount_guess_name :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CString--{- |-Guesses the name of a Unix mount.-The result is a translated string.--}-unixMountGuessName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' -}-    -> m T.Text-    {- ^ __Returns:__ A newly allocated string that must-    be freed with 'GI.GLib.Functions.free' -}-unixMountGuessName mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_name mountEntry'-    checkUnexpectedReturnNULL "unixMountGuessName" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_guess_icon--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_guess_icon" g_unix_mount_guess_icon :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO (Ptr Gio.Icon.Icon)--{- |-Guesses the icon of a Unix mount.--}-unixMountGuessIcon ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon' -}-unixMountGuessIcon mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_icon mountEntry'-    checkUnexpectedReturnNULL "unixMountGuessIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_guess_can_eject--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry", 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 "g_unix_mount_guess_can_eject" g_unix_mount_guess_can_eject :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CInt--{- |-Guesses whether a Unix mount can be ejected.--}-unixMountGuessCanEject ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@mountEntry@/ is deemed to be ejectable. -}-unixMountGuessCanEject mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_guess_can_eject mountEntry'-    let result' = (/= 0) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_get_root_path--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry.", 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 "g_unix_mount_get_root_path" g_unix_mount_get_root_path :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CString--{- |-Gets the root of the mount within the filesystem. This is useful e.g. for-mounts created by bind operation, or btrfs subvolumes.--For example, the root path is equal to \"\/\" for mount created by-\"mount \/dev\/sda1 \/mnt\/foo\" and \"\/bar\" for-\"mount --bind \/mnt\/foo\/bar \/mnt\/bar\".--/Since: 2.60/--}-unixMountGetRootPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry'. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ a string containing the root, or 'Nothing' if not supported. -}-unixMountGetRootPath mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_get_root_path mountEntry'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr mountEntry-    return maybeResult----- function g_unix_mount_get_options--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry.", 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 "g_unix_mount_get_options" g_unix_mount_get_options :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CString--{- |-Gets a comma-separated list of mount options for the unix mount. For example,-@rw,relatime,seclabel,data=ordered@.--This is similar to 'GI.Gio.Structs.UnixMountPoint.unixMountPointGetOptions', but it takes-a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' as an argument.--/Since: 2.58/--}-unixMountGetOptions ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry'. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ a string containing the options, or 'Nothing' if not-available. -}-unixMountGetOptions mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_get_options mountEntry'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr mountEntry-    return maybeResult----- function g_unix_mount_get_mount_path--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GUnixMountEntry to get the mount path for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_get_mount_path" g_unix_mount_get_mount_path :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CString--{- |-Gets the mount path for a unix mount.--}-unixMountGetMountPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: input 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' to get the mount path for. -}-    -> m [Char]-    {- ^ __Returns:__ the mount path for /@mountEntry@/. -}-unixMountGetMountPath mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_get_mount_path mountEntry'-    checkUnexpectedReturnNULL "unixMountGetMountPath" result-    result' <- cstringToString result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_get_fs_type--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMount.", 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 "g_unix_mount_get_fs_type" g_unix_mount_get_fs_type :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CString--{- |-Gets the filesystem type for the unix mount.--}-unixMountGetFsType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a @/GUnixMount/@. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the file system type. -}-unixMountGetFsType mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_get_fs_type mountEntry'-    checkUnexpectedReturnNULL "unixMountGetFsType" result-    result' <- cstringToText result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_get_device_path--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_get_device_path" g_unix_mount_get_device_path :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO CString--{- |-Gets the device path for a unix mount.--}-unixMountGetDevicePath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a @/GUnixMount/@. -}-    -> m [Char]-    {- ^ __Returns:__ a string containing the device path. -}-unixMountGetDevicePath mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_get_device_path mountEntry'-    checkUnexpectedReturnNULL "unixMountGetDevicePath" result-    result' <- cstringToString result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_free--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_free" g_unix_mount_free :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO ()--{- |-Frees a unix mount.--}-unixMountFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry'. -}-    -> m ()-unixMountFree mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    g_unix_mount_free mountEntry'-    touchManagedPtr mountEntry-    return ()----- function g_unix_mount_for--- Args : [Arg {argCName = "file_path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "file path on some unix mount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "guint64 to contain a timestamp.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_for" g_unix_mount_for :: -    CString ->                              -- file_path : TBasicType TFileName-    Ptr Word64 ->                           -- time_read : TBasicType TUInt64-    IO (Ptr Gio.UnixMountEntry.UnixMountEntry)--{- |-Gets a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' for a given file path. If /@timeRead@/-is set, it will be filled with a unix timestamp for checking-if the mounts have changed since with 'GI.Gio.Functions.unixMountsChangedSince'.--/Since: 2.52/--}-unixMountFor ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@filePath@/: file path on some unix mount. -}-    -> m ((Gio.UnixMountEntry.UnixMountEntry, Word64))-    {- ^ __Returns:__ a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry'. -}-unixMountFor filePath = liftIO $ do-    filePath' <- stringToCString filePath-    timeRead <- allocMem :: IO (Ptr Word64)-    result <- g_unix_mount_for filePath' timeRead-    checkUnexpectedReturnNULL "unixMountFor" result-    result' <- (wrapBoxed Gio.UnixMountEntry.UnixMountEntry) result-    timeRead' <- peek timeRead-    freeMem filePath'-    freeMem timeRead-    return (result', timeRead')----- function g_unix_mount_copy--- Args : [Arg {argCName = "mount_entry", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountEntry.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_copy" g_unix_mount_copy :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount_entry : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO (Ptr Gio.UnixMountEntry.UnixMountEntry)--{- |-Makes a copy of /@mountEntry@/.--/Since: 2.54/--}-unixMountCopy ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mountEntry@/: a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry'. -}-    -> m Gio.UnixMountEntry.UnixMountEntry-    {- ^ __Returns:__ a new 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' -}-unixMountCopy mountEntry = liftIO $ do-    mountEntry' <- unsafeManagedPtrGetPtr mountEntry-    result <- g_unix_mount_copy mountEntry'-    checkUnexpectedReturnNULL "unixMountCopy" result-    result' <- (wrapBoxed Gio.UnixMountEntry.UnixMountEntry) result-    touchManagedPtr mountEntry-    return result'----- function g_unix_mount_compare--- Args : [Arg {argCName = "mount1", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "first #GUnixMountEntry to compare.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount2", argType = TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "second #GUnixMountEntry to compare.", 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 "g_unix_mount_compare" g_unix_mount_compare :: -    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount1 : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    Ptr Gio.UnixMountEntry.UnixMountEntry -> -- mount2 : TInterface (Name {namespace = "Gio", name = "UnixMountEntry"})-    IO Int32--{- |-Compares two unix mounts.--}-unixMountCompare ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mount1@/: first 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' to compare. -}-    -> Gio.UnixMountEntry.UnixMountEntry-    {- ^ /@mount2@/: second 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' to compare. -}-    -> m Int32-    {- ^ __Returns:__ 1, 0 or -1 if /@mount1@/ is greater than, equal to,-or less than /@mount2@/, respectively. -}-unixMountCompare mount1 mount2 = liftIO $ do-    mount1' <- unsafeManagedPtrGetPtr mount1-    mount2' <- unsafeManagedPtrGetPtr mount2-    result <- g_unix_mount_compare mount1' mount2'-    touchManagedPtr mount1-    touchManagedPtr mount2-    return result----- function g_unix_mount_at--- Args : [Arg {argCName = "mount_path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path for a possible unix mount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "guint64 to contain a timestamp.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixMountEntry"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_at" g_unix_mount_at :: -    CString ->                              -- mount_path : TBasicType TFileName-    Ptr Word64 ->                           -- time_read : TBasicType TUInt64-    IO (Ptr Gio.UnixMountEntry.UnixMountEntry)--{- |-Gets a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry' for a given mount path. If /@timeRead@/-is set, it will be filled with a unix timestamp for checking-if the mounts have changed since with 'GI.Gio.Functions.unixMountsChangedSince'.--}-unixMountAt ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@mountPath@/: path for a possible unix mount. -}-    -> m ((Gio.UnixMountEntry.UnixMountEntry, Word64))-    {- ^ __Returns:__ a 'GI.Gio.Structs.UnixMountEntry.UnixMountEntry'. -}-unixMountAt mountPath = liftIO $ do-    mountPath' <- stringToCString mountPath-    timeRead <- allocMem :: IO (Ptr Word64)-    result <- g_unix_mount_at mountPath' timeRead-    checkUnexpectedReturnNULL "unixMountAt" result-    result' <- (wrapBoxed Gio.UnixMountEntry.UnixMountEntry) result-    timeRead' <- peek timeRead-    freeMem mountPath'-    freeMem timeRead-    return (result', timeRead')----- function g_unix_is_system_fs_type--- Args : [Arg {argCName = "fs_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file system type, e.g. `procfs` or `tmpfs`", 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 "g_unix_is_system_fs_type" g_unix_is_system_fs_type :: -    CString ->                              -- fs_type : TBasicType TUTF8-    IO CInt--{- |-Determines if /@fsType@/ is considered a type of file system which is only-used in implementation of the OS. This is primarily used for hiding-mounted volumes that are intended as APIs for programs to read, and system-administrators at a shell; rather than something that should, for example,-appear in a GUI. For example, the Linux @\/proc@ filesystem.--The list of file system types considered ‘system’ ones may change over time.--/Since: 2.56/--}-unixIsSystemFsType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@fsType@/: a file system type, e.g. @procfs@ or @tmpfs@ -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@fsType@/ is considered an implementation detail of the OS. -}-unixIsSystemFsType fsType = liftIO $ do-    fsType' <- textToCString fsType-    result <- g_unix_is_system_fs_type fsType'-    let result' = (/= 0) result-    freeMem fsType'-    return result'----- function g_unix_is_system_device_path--- Args : [Arg {argCName = "device_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a device path, e.g. `/dev/loop0` or `nfsd`", 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 "g_unix_is_system_device_path" g_unix_is_system_device_path :: -    CString ->                              -- device_path : TBasicType TUTF8-    IO CInt--{- |-Determines if /@devicePath@/ is considered a block device path which is only-used in implementation of the OS. This is primarily used for hiding-mounted volumes that are intended as APIs for programs to read, and system-administrators at a shell; rather than something that should, for example,-appear in a GUI. For example, the Linux @\/proc@ filesystem.--The list of device paths considered ‘system’ ones may change over time.--/Since: 2.56/--}-unixIsSystemDevicePath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@devicePath@/: a device path, e.g. @\/dev\/loop0@ or @nfsd@ -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@devicePath@/ is considered an implementation detail of-   the OS. -}-unixIsSystemDevicePath devicePath = liftIO $ do-    devicePath' <- textToCString devicePath-    result <- g_unix_is_system_device_path devicePath'-    let result' = (/= 0) result-    freeMem devicePath'-    return result'----- function g_unix_is_mount_path_system_internal--- Args : [Arg {argCName = "mount_path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a mount path, e.g. `/media/disk` or `/usr`", 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 "g_unix_is_mount_path_system_internal" g_unix_is_mount_path_system_internal :: -    CString ->                              -- mount_path : TBasicType TFileName-    IO CInt--{- |-Determines if /@mountPath@/ is considered an implementation of the-OS. This is primarily used for hiding mountable and mounted volumes-that only are used in the OS and has little to no relevance to the-casual user.--}-unixIsMountPathSystemInternal ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@mountPath@/: a mount path, e.g. @\/media\/disk@ or @\/usr@ -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@mountPath@/ is considered an implementation detail-    of the OS. -}-unixIsMountPathSystemInternal mountPath = liftIO $ do-    mountPath' <- stringToCString mountPath-    result <- g_unix_is_mount_path_system_internal mountPath'-    let result' = (/= 0) result-    freeMem mountPath'-    return result'----- function g_simple_async_report_gerror_in_idle--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GObject, 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 "a #GAsyncReadyCallback.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to @callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GError to report", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_report_gerror_in_idle" g_simple_async_report_gerror_in_idle :: -    Ptr GObject.Object.Object ->            -- object : TInterface (Name {namespace = "GObject", name = "Object"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    Ptr GError ->                           -- error : TError-    IO ()--{-# DEPRECATED simpleAsyncReportGerrorInIdle ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.taskReportError'."] #-}-{- |-Reports an error in an idle function. Similar to-@/g_simple_async_report_error_in_idle()/@, but takes a 'GError' rather-than building a new one.--}-simpleAsyncReportGerrorInIdle ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>-    Maybe (a)-    {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback'. -}-    -> GError-    {- ^ /@error@/: the 'GError' to report -}-    -> m ()-simpleAsyncReportGerrorInIdle object callback error_ = liftIO $ do-    maybeObject <- case object of-        Nothing -> return nullPtr-        Just jObject -> do-            jObject' <- unsafeManagedPtrCastPtr jObject-            return jObject'-    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'-    error_' <- unsafeManagedPtrGetPtr error_-    let userData = nullPtr-    g_simple_async_report_gerror_in_idle maybeObject maybeCallback userData error_'-    whenJust object touchManagedPtr-    touchManagedPtr error_-    return ()----- function g_resources_unregister--- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "Gio", name = "Resource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_resources_unregister" g_resources_unregister :: -    Ptr Gio.Resource.Resource ->            -- resource : TInterface (Name {namespace = "Gio", name = "Resource"})-    IO ()--{- |-Unregisters the resource from the process-global set of resources.--/Since: 2.32/--}-resourcesUnregister ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Resource.Resource-    {- ^ /@resource@/: A 'GI.Gio.Structs.Resource.Resource' -}-    -> m ()-resourcesUnregister resource = liftIO $ do-    resource' <- unsafeManagedPtrGetPtr resource-    g_resources_unregister resource'-    touchManagedPtr resource-    return ()----- function g_resources_register--- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "Gio", name = "Resource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_resources_register" g_resources_register :: -    Ptr Gio.Resource.Resource ->            -- resource : TInterface (Name {namespace = "Gio", name = "Resource"})-    IO ()--{- |-Registers the resource with the process-global set of resources.-Once a resource is registered the files in it can be accessed-with the global resource lookup functions like 'GI.Gio.Functions.resourcesLookupData'.--/Since: 2.32/--}-resourcesRegister ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Resource.Resource-    {- ^ /@resource@/: A 'GI.Gio.Structs.Resource.Resource' -}-    -> m ()-resourcesRegister resource = liftIO $ do-    resource' <- unsafeManagedPtrGetPtr resource-    g_resources_register resource'-    touchManagedPtr resource-    return ()----- function g_resources_open_stream--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A pathname inside the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResourceLookupFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_resources_open_stream" g_resources_open_stream :: -    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Looks for a file at the specified /@path@/ in the set of-globally registered resources and returns a 'GI.Gio.Objects.InputStream.InputStream'-that lets you read the data.--/@lookupFlags@/ controls the behaviour of the lookup.--/Since: 2.32/--}-resourcesOpenStream ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@path@/: A pathname inside the resource -}-    -> [Gio.Flags.ResourceLookupFlags]-    {- ^ /@lookupFlags@/: A 'GI.Gio.Flags.ResourceLookupFlags' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ 'GI.Gio.Objects.InputStream.InputStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref' /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourcesOpenStream path lookupFlags = liftIO $ do-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resources_open_stream path' lookupFlags'-        checkUnexpectedReturnNULL "resourcesOpenStream" result-        result' <- (wrapObject Gio.InputStream.InputStream) result-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )----- function g_resources_lookup_data--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A pathname inside the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResourceLookupFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : True--- Skip return : False--foreign import ccall "g_resources_lookup_data" g_resources_lookup_data :: -    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes.Bytes)--{- |-Looks for a file at the specified /@path@/ in the set of-globally registered resources and returns a 'GI.GLib.Structs.Bytes.Bytes' that-lets you directly access the data in memory.--The data is always followed by a zero byte, so you-can safely use the data as a C string. However, that byte-is not included in the size of the GBytes.--For uncompressed resource files this is a pointer directly into-the resource bundle, which is typically in some readonly data section-in the program binary. For compressed files we allocate memory on-the heap and automatically uncompress the data.--/@lookupFlags@/ controls the behaviour of the lookup.--/Since: 2.32/--}-resourcesLookupData ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@path@/: A pathname inside the resource -}-    -> [Gio.Flags.ResourceLookupFlags]-    {- ^ /@lookupFlags@/: A 'GI.Gio.Flags.ResourceLookupFlags' -}-    -> m GLib.Bytes.Bytes-    {- ^ __Returns:__ 'GI.GLib.Structs.Bytes.Bytes' or 'Nothing' on error.-    Free the returned object with 'GI.GLib.Structs.Bytes.bytesUnref' /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourcesLookupData path lookupFlags = liftIO $ do-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resources_lookup_data path' lookupFlags'-        checkUnexpectedReturnNULL "resourcesLookupData" result-        result' <- (wrapBoxed GLib.Bytes.Bytes) result-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )----- function g_resources_get_info--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A pathname inside the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResourceLookupFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the length of the contents of the file,\n   or %NULL if the length is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the #GResourceFlags about the file,\n   or %NULL if the flags are not needed", 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 "g_resources_get_info" g_resources_get_info :: -    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"})-    Ptr Word64 ->                           -- size : TBasicType TUInt64-    Ptr Word32 ->                           -- flags : TBasicType TUInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Looks for a file at the specified /@path@/ in the set of-globally registered resources and if found returns information about it.--/@lookupFlags@/ controls the behaviour of the lookup.--/Since: 2.32/--}-resourcesGetInfo ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@path@/: A pathname inside the resource -}-    -> [Gio.Flags.ResourceLookupFlags]-    {- ^ /@lookupFlags@/: A 'GI.Gio.Flags.ResourceLookupFlags' -}-    -> m ((Word64, Word32))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourcesGetInfo path lookupFlags = liftIO $ do-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    size <- allocMem :: IO (Ptr Word64)-    flags <- allocMem :: IO (Ptr Word32)-    onException (do-        _ <- propagateGError $ g_resources_get_info path' lookupFlags' size flags-        size' <- peek size-        flags' <- peek flags-        freeMem path'-        freeMem size-        freeMem flags-        return (size', flags')-     ) (do-        freeMem path'-        freeMem size-        freeMem flags-     )----- function g_resources_enumerate_children--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A pathname inside the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResourceLookupFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : True--- Skip return : False--foreign import ccall "g_resources_enumerate_children" g_resources_enumerate_children :: -    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)--{- |-Returns all the names of children at the specified /@path@/ in the set of-globally registered resources.-The return result is a 'Nothing' terminated list of strings which should-be released with 'GI.GLib.Functions.strfreev'.--/@lookupFlags@/ controls the behaviour of the lookup.--/Since: 2.32/--}-resourcesEnumerateChildren ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@path@/: A pathname inside the resource -}-    -> [Gio.Flags.ResourceLookupFlags]-    {- ^ /@lookupFlags@/: A 'GI.Gio.Flags.ResourceLookupFlags' -}-    -> m [T.Text]-    {- ^ __Returns:__ an array of constant strings /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourcesEnumerateChildren path lookupFlags = liftIO $ do-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resources_enumerate_children path' lookupFlags'-        checkUnexpectedReturnNULL "resourcesEnumerateChildren" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )----- function g_pollable_stream_write_all--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer\n  containing the data to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to do blocking I/O", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that was\n  written to the 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_pollable_stream_write_all" g_pollable_stream_write_all :: -    Ptr Gio.OutputStream.OutputStream ->    -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Tries to write /@count@/ bytes to /@stream@/, as with-'GI.Gio.Objects.OutputStream.outputStreamWriteAll', but using 'GI.Gio.Functions.pollableStreamWrite'-rather than 'GI.Gio.Objects.OutputStream.outputStreamWrite'.--On a successful write of /@count@/ bytes, 'True' is returned, and-/@bytesWritten@/ is set to /@count@/.--If there is an error during the operation (including-'GI.Gio.Enums.IOErrorEnumWouldBlock' in the non-blocking case), 'False' is-returned and /@error@/ is set to indicate the error status,-/@bytesWritten@/ is updated to contain the number of bytes written-into the stream before the error occurred.--As with 'GI.Gio.Functions.pollableStreamWrite', if /@blocking@/ is 'False', then-/@stream@/ must be a 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' for which-'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamCanPoll' returns 'True' or else the-behavior is undefined. If /@blocking@/ is 'True', then /@stream@/ does not-need to be a 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream'.--/Since: 2.34/--}-pollableStreamWriteAll ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.OutputStream.IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> ByteString-    {- ^ /@buffer@/: the buffer-  containing the data to write. -}-    -> Bool-    {- ^ /@blocking@/: whether to do blocking I\/O -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-pollableStreamWriteAll stream buffer blocking cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    bytesWritten <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_pollable_stream_write_all stream' buffer' count blocking' bytesWritten maybeCancellable-        bytesWritten' <- peek bytesWritten-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem buffer'-        freeMem bytesWritten-     )----- function g_pollable_stream_write--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer\n  containing the data to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to do blocking I/O", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_pollable_stream_write" g_pollable_stream_write :: -    Ptr Gio.OutputStream.OutputStream ->    -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Tries to write to /@stream@/, as with 'GI.Gio.Objects.OutputStream.outputStreamWrite' (if-/@blocking@/ is 'True') or 'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamWriteNonblocking'-(if /@blocking@/ is 'False'). This can be used to more easily share-code between blocking and non-blocking implementations of a method.--If /@blocking@/ is 'False', then /@stream@/ must be a-'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' for which-'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamCanPoll' returns 'True' or else the-behavior is undefined. If /@blocking@/ is 'True', then /@stream@/ does not-need to be a 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream'.--/Since: 2.34/--}-pollableStreamWrite ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.OutputStream.IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> ByteString-    {- ^ /@buffer@/: the buffer-  containing the data to write. -}-    -> Bool-    {- ^ /@blocking@/: whether to do blocking I\/O -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Int64-    {- ^ __Returns:__ the number of bytes written, or -1 on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-pollableStreamWrite stream buffer blocking cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_pollable_stream_write stream' buffer' count blocking' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )----- function g_pollable_stream_read--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a buffer to\n  read data into", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to read", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to do blocking I/O", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to read", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_pollable_stream_read" g_pollable_stream_read :: -    Ptr Gio.InputStream.InputStream ->      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Tries to read from /@stream@/, as with 'GI.Gio.Objects.InputStream.inputStreamRead' (if-/@blocking@/ is 'True') or 'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamReadNonblocking'-(if /@blocking@/ is 'False'). This can be used to more easily share-code between blocking and non-blocking implementations of a method.--If /@blocking@/ is 'False', then /@stream@/ must be a-'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' for which 'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamCanPoll'-returns 'True', or else the behavior is undefined. If /@blocking@/ is-'True', then /@stream@/ does not need to be a 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream'.--/Since: 2.34/--}-pollableStreamRead ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream' -}-    -> ByteString-    {- ^ /@buffer@/: a buffer to-  read data into -}-    -> Bool-    {- ^ /@blocking@/: whether to do blocking I\/O -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Int64-    {- ^ __Returns:__ the number of bytes read, or -1 on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-pollableStreamRead stream buffer blocking cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_pollable_stream_read stream' buffer' count blocking' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )----- function g_pollable_source_new_full--- Args : [Arg {argCName = "pollable_stream", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the stream associated with the\n  new source", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_source", argType = TInterface (Name {namespace = "GLib", name = "Source"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "optional child source to attach", 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 "optional #GCancellable to attach", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Source"}))--- throws : False--- Skip return : False--foreign import ccall "g_pollable_source_new_full" g_pollable_source_new_full :: -    Ptr GObject.Object.Object ->            -- pollable_stream : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr GLib.Source.Source ->               -- child_source : TInterface (Name {namespace = "GLib", name = "Source"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO (Ptr GLib.Source.Source)--{- |-Utility method for 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' and 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream'-implementations. Creates a new 'GI.GLib.Structs.Source.Source', as with-'GI.Gio.Functions.pollableSourceNew', but also attaching /@childSource@/ (with a-dummy callback), and /@cancellable@/, if they are non-'Nothing'.--/Since: 2.34/--}-pollableSourceNewFull ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@pollableStream@/: the stream associated with the-  new source -}-    -> Maybe (GLib.Source.Source)-    {- ^ /@childSource@/: optional child source to attach -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' to attach -}-    -> m GLib.Source.Source-    {- ^ __Returns:__ the new 'GI.GLib.Structs.Source.Source'. -}-pollableSourceNewFull pollableStream childSource cancellable = liftIO $ do-    pollableStream' <- unsafeManagedPtrCastPtr pollableStream-    maybeChildSource <- case childSource of-        Nothing -> return nullPtr-        Just jChildSource -> do-            jChildSource' <- unsafeManagedPtrGetPtr jChildSource-            return jChildSource'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_pollable_source_new_full pollableStream' maybeChildSource maybeCancellable-    checkUnexpectedReturnNULL "pollableSourceNewFull" result-    result' <- (wrapBoxed GLib.Source.Source) result-    touchManagedPtr pollableStream-    whenJust childSource touchManagedPtr-    whenJust cancellable touchManagedPtr-    return result'----- function g_pollable_source_new--- Args : [Arg {argCName = "pollable_stream", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the stream associated with the new source", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Source"}))--- throws : False--- Skip return : False--foreign import ccall "g_pollable_source_new" g_pollable_source_new :: -    Ptr GObject.Object.Object ->            -- pollable_stream : TInterface (Name {namespace = "GObject", name = "Object"})-    IO (Ptr GLib.Source.Source)--{- |-Utility method for 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' and 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream'-implementations. Creates a new 'GI.GLib.Structs.Source.Source' that expects a callback of-type 'GI.Gio.Callbacks.PollableSourceFunc'. The new source does not actually do-anything on its own; use 'GI.GLib.Structs.Source.sourceAddChildSource' to add other-sources to it to cause it to trigger.--/Since: 2.28/--}-pollableSourceNew ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>-    a-    {- ^ /@pollableStream@/: the stream associated with the new source -}-    -> m GLib.Source.Source-    {- ^ __Returns:__ the new 'GI.GLib.Structs.Source.Source'. -}-pollableSourceNew pollableStream = liftIO $ do-    pollableStream' <- unsafeManagedPtrCastPtr pollableStream-    result <- g_pollable_source_new pollableStream'-    checkUnexpectedReturnNULL "pollableSourceNew" result-    result' <- (wrapBoxed GLib.Source.Source) result-    touchManagedPtr pollableStream-    return result'----- function g_null_settings_backend_new--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsBackend"}))--- throws : False--- Skip return : False--foreign import ccall "g_null_settings_backend_new" g_null_settings_backend_new :: -    IO (Ptr Gio.SettingsBackend.SettingsBackend)--{- |-Creates a readonly 'GI.Gio.Objects.SettingsBackend.SettingsBackend'.--This backend does not allow changes to settings, so all settings-will always have their default values.--/Since: 2.28/--}-nullSettingsBackendNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Gio.SettingsBackend.SettingsBackend-    {- ^ __Returns:__ a newly created 'GI.Gio.Objects.SettingsBackend.SettingsBackend' -}-nullSettingsBackendNew  = liftIO $ do-    result <- g_null_settings_backend_new-    checkUnexpectedReturnNULL "nullSettingsBackendNew" result-    result' <- (wrapObject Gio.SettingsBackend.SettingsBackend) result-    return result'----- function g_networking_init--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_networking_init" g_networking_init :: -    IO ()--{- |-Initializes the platform networking libraries (eg, on Windows, this-calls @/WSAStartup()/@). GLib will call this itself if it is needed, so-you only need to call it if you directly call system networking-functions (without calling any GLib networking functions first).--/Since: 2.36/--}-networkingInit ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m ()-networkingInit  = liftIO $ do-    g_networking_init-    return ()----- function g_memory_settings_backend_new--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsBackend"}))--- throws : False--- Skip return : False--foreign import ccall "g_memory_settings_backend_new" g_memory_settings_backend_new :: -    IO (Ptr Gio.SettingsBackend.SettingsBackend)--{- |-Creates a memory-backed 'GI.Gio.Objects.SettingsBackend.SettingsBackend'.--This backend allows changes to settings, but does not write them-to any backing storage, so the next time you run your application,-the memory backend will start out with the default values again.--/Since: 2.28/--}-memorySettingsBackendNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Gio.SettingsBackend.SettingsBackend-    {- ^ __Returns:__ a newly created 'GI.Gio.Objects.SettingsBackend.SettingsBackend' -}-memorySettingsBackendNew  = liftIO $ do-    result <- g_memory_settings_backend_new-    checkUnexpectedReturnNULL "memorySettingsBackendNew" result-    result' <- (wrapObject Gio.SettingsBackend.SettingsBackend) result-    return result'----- function g_keyfile_settings_backend_new--- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename of the keyfile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path under which all settings keys appear", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the group name corresponding to\n             @root_path, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsBackend"}))--- throws : False--- Skip return : False--foreign import ccall "g_keyfile_settings_backend_new" g_keyfile_settings_backend_new :: -    CString ->                              -- filename : TBasicType TUTF8-    CString ->                              -- root_path : TBasicType TUTF8-    CString ->                              -- root_group : TBasicType TUTF8-    IO (Ptr Gio.SettingsBackend.SettingsBackend)--{- |-Creates a keyfile-backed 'GI.Gio.Objects.SettingsBackend.SettingsBackend'.--The filename of the keyfile to use is given by /@filename@/.--All settings read to or written from the backend must fall under the-path given in /@rootPath@/ (which must start and end with a slash and-not contain two consecutive slashes).  /@rootPath@/ may be \"\/\".--If /@rootGroup@/ is non-'Nothing' then it specifies the name of the keyfile-group used for keys that are written directly below /@rootPath@/.  For-example, if /@rootPath@/ is \"\/apps\/example\/\" and /@rootGroup@/ is-\"toplevel\", then settings the key \"\/apps\/example\/enabled\" to a value-of 'True' will cause the following to appear in the keyfile:-->->  [toplevel]->  enabled=true---If /@rootGroup@/ is 'Nothing' then it is not permitted to store keys-directly below the /@rootPath@/.--For keys not stored directly below /@rootPath@/ (ie: in a sub-path),-the name of the subpath (with the final slash stripped) is used as-the name of the keyfile group.  To continue the example, if-\"\/apps\/example\/profiles\/default\/font-size\" were set to-12 then the following would appear in the keyfile:-->->  [profiles/default]->  font-size=12---The backend will refuse writes (and return writability as being-'False') for keys outside of /@rootPath@/ and, in the event that-/@rootGroup@/ is 'Nothing', also for keys directly under /@rootPath@/.-Writes will also be refused if the backend detects that it has the-inability to rewrite the keyfile (ie: the containing directory is not-writable).--There is no checking done for your key namespace clashing with the-syntax of the key file format.  For example, if you have \'[\' or \']\'-characters in your path names or \'=\' in your key names you may be in-trouble.--The backend reads default values from a keyfile called @defaults@ in-the directory specified by the @/GKeyfileSettingsBackend:defaults-dir/@ property,-and a list of locked keys from a text file with the name @locks@ in-the same location.--}-keyfileSettingsBackendNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@filename@/: the filename of the keyfile -}-    -> T.Text-    {- ^ /@rootPath@/: the path under which all settings keys appear -}-    -> Maybe (T.Text)-    {- ^ /@rootGroup@/: the group name corresponding to-             /@rootPath@/, or 'Nothing' -}-    -> m Gio.SettingsBackend.SettingsBackend-    {- ^ __Returns:__ a keyfile-backed 'GI.Gio.Objects.SettingsBackend.SettingsBackend' -}-keyfileSettingsBackendNew filename rootPath rootGroup = liftIO $ do-    filename' <- textToCString filename-    rootPath' <- textToCString rootPath-    maybeRootGroup <- case rootGroup of-        Nothing -> return nullPtr-        Just jRootGroup -> do-            jRootGroup' <- textToCString jRootGroup-            return jRootGroup'-    result <- g_keyfile_settings_backend_new filename' rootPath' maybeRootGroup-    checkUnexpectedReturnNULL "keyfileSettingsBackendNew" result-    result' <- (wrapObject Gio.SettingsBackend.SettingsBackend) result-    freeMem filename'-    freeMem rootPath'-    freeMem maybeRootGroup-    return result'----- function g_io_scheduler_push_job--- Args : [Arg {argCName = "job_func", argType = TInterface (Name {namespace = "Gio", name = "IOSchedulerJobFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOSchedulerJobFunc.", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @job_func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify for @user_data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the [I/O priority][io-priority]\nof the request.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_scheduler_push_job" g_io_scheduler_push_job :: -    FunPtr Gio.Callbacks.C_IOSchedulerJobFunc -> -- job_func : TInterface (Name {namespace = "Gio", name = "IOSchedulerJobFunc"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO ()--{-# DEPRECATED ioSchedulerPushJob ["use 'GI.GLib.Structs.ThreadPool.ThreadPool' or @/g_task_run_in_thread()/@"] #-}-{- |-Schedules the I\/O job to run in another thread.--/@notify@/ will be called on /@userData@/ after /@jobFunc@/ has returned,-regardless whether the job was cancelled or has run to completion.--If /@cancellable@/ is not 'Nothing', it can be used to cancel the I\/O job-by calling 'GI.Gio.Objects.Cancellable.cancellableCancel' or by calling-'GI.Gio.Functions.ioSchedulerCancelAllJobs'.--}-ioSchedulerPushJob ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    Gio.Callbacks.IOSchedulerJobFunc-    {- ^ /@jobFunc@/: a 'GI.Gio.Callbacks.IOSchedulerJobFunc'. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority]-of the request. -}-    -> Maybe (a)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-ioSchedulerPushJob jobFunc ioPriority cancellable = liftIO $ do-    jobFunc' <- Gio.Callbacks.mk_IOSchedulerJobFunc (Gio.Callbacks.wrap_IOSchedulerJobFunc Nothing (Gio.Callbacks.drop_closures_IOSchedulerJobFunc jobFunc))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    let userData = castFunPtrToPtr jobFunc'-    let notify = safeFreeFunPtrPtr-    g_io_scheduler_push_job jobFunc' userData notify ioPriority maybeCancellable-    whenJust cancellable touchManagedPtr-    return ()----- function g_io_scheduler_cancel_all_jobs--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_scheduler_cancel_all_jobs" g_io_scheduler_cancel_all_jobs :: -    IO ()--{-# DEPRECATED ioSchedulerCancelAllJobs ["You should never call this function, since you don\\'t","know how other libraries in your program might be making use of","gioscheduler."] #-}-{- |-Cancels all cancellable I\/O jobs.--A job is cancellable if a 'GI.Gio.Objects.Cancellable.Cancellable' was passed into-'GI.Gio.Functions.ioSchedulerPushJob'.--}-ioSchedulerCancelAllJobs ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m ()-ioSchedulerCancelAllJobs  = liftIO $ do-    g_io_scheduler_cancel_all_jobs-    return ()----- function g_io_modules_scan_all_in_directory_with_scope--- Args : [Arg {argCName = "dirname", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pathname for a directory containing modules\n    to scan.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scope", argType = TInterface (Name {namespace = "Gio", name = "IOModuleScope"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a scope to use when scanning the modules", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_modules_scan_all_in_directory_with_scope" g_io_modules_scan_all_in_directory_with_scope :: -    CString ->                              -- dirname : TBasicType TFileName-    Ptr Gio.IOModuleScope.IOModuleScope ->  -- scope : TInterface (Name {namespace = "Gio", name = "IOModuleScope"})-    IO ()--{- |-Scans all the modules in the specified directory, ensuring that-any extension point implemented by a module is registered.--This may not actually load and initialize all the types in each-module, some modules may be lazily loaded and initialized when-an extension point it implementes is used with e.g.-'GI.Gio.Structs.IOExtensionPoint.iOExtensionPointGetExtensions' or-'GI.Gio.Structs.IOExtensionPoint.iOExtensionPointGetExtensionByName'.--If you need to guarantee that all types are loaded in all the modules,-use @/g_io_modules_load_all_in_directory()/@.--/Since: 2.30/--}-ioModulesScanAllInDirectoryWithScope ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@dirname@/: pathname for a directory containing modules-    to scan. -}-    -> Gio.IOModuleScope.IOModuleScope-    {- ^ /@scope@/: a scope to use when scanning the modules -}-    -> m ()-ioModulesScanAllInDirectoryWithScope dirname scope = liftIO $ do-    dirname' <- stringToCString dirname-    scope' <- unsafeManagedPtrGetPtr scope-    g_io_modules_scan_all_in_directory_with_scope dirname' scope'-    touchManagedPtr scope-    freeMem dirname'-    return ()----- function g_io_modules_scan_all_in_directory--- Args : [Arg {argCName = "dirname", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pathname for a directory containing modules\n    to scan.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_modules_scan_all_in_directory" g_io_modules_scan_all_in_directory :: -    CString ->                              -- dirname : TBasicType TFileName-    IO ()--{- |-Scans all the modules in the specified directory, ensuring that-any extension point implemented by a module is registered.--This may not actually load and initialize all the types in each-module, some modules may be lazily loaded and initialized when-an extension point it implementes is used with e.g.-'GI.Gio.Structs.IOExtensionPoint.iOExtensionPointGetExtensions' or-'GI.Gio.Structs.IOExtensionPoint.iOExtensionPointGetExtensionByName'.--If you need to guarantee that all types are loaded in all the modules,-use @/g_io_modules_load_all_in_directory()/@.--/Since: 2.24/--}-ioModulesScanAllInDirectory ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@dirname@/: pathname for a directory containing modules-    to scan. -}-    -> m ()-ioModulesScanAllInDirectory dirname = liftIO $ do-    dirname' <- stringToCString dirname-    g_io_modules_scan_all_in_directory dirname'-    freeMem dirname'-    return ()----- function g_io_error_quark--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "g_io_error_quark" g_io_error_quark :: -    IO Word32--{- |-Gets the GIO Error Quark.--}-ioErrorQuark ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Word32-    {- ^ __Returns:__ a @/GQuark/@. -}-ioErrorQuark  = liftIO $ do-    result <- g_io_error_quark-    return result----- function g_io_error_from_errno--- Args : [Arg {argCName = "err_no", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Error number as defined in errno.h.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOErrorEnum"}))--- throws : False--- Skip return : False--foreign import ccall "g_io_error_from_errno" g_io_error_from_errno :: -    Int32 ->                                -- err_no : TBasicType TInt-    IO CUInt--{- |-Converts errno.h error codes into GIO error codes. The fallback-value 'GI.Gio.Enums.IOErrorEnumFailed' is returned for error codes not currently-handled (but note that future GLib releases may return a more-specific value instead).--As @/errno/@ is global and may be modified by intermediate function-calls, you should save its value as soon as the call which sets it--}-ioErrorFromErrno ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Int32-    {- ^ /@errNo@/: Error number as defined in errno.h. -}-    -> m Gio.Enums.IOErrorEnum-    {- ^ __Returns:__ 'GI.Gio.Enums.IOErrorEnum' value for the given errno.h error number. -}-ioErrorFromErrno errNo = liftIO $ do-    result <- g_io_error_from_errno errNo-    let result' = (toEnum . fromIntegral) result-    return result'----- function g_dbus_is_unique_name--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The string to check.", 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 "g_dbus_is_unique_name" g_dbus_is_unique_name :: -    CString ->                              -- string : TBasicType TUTF8-    IO CInt--{- |-Checks if /@string@/ is a valid D-Bus unique bus name.--/Since: 2.26/--}-dbusIsUniqueName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: The string to check. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if valid, 'False' otherwise. -}-dbusIsUniqueName string = liftIO $ do-    string' <- textToCString string-    result <- g_dbus_is_unique_name string'-    let result' = (/= 0) result-    freeMem string'-    return result'----- function g_dbus_is_supported_address--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A 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 "g_dbus_is_supported_address" g_dbus_is_supported_address :: -    CString ->                              -- string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Like 'GI.Gio.Functions.dbusIsAddress' but also checks if the library supports the-transports in /@string@/ and that key\/value pairs for each transport-are valid. See the specification of the-<https://dbus.freedesktop.org/doc/dbus-specification.html#addresses D-Bus address format>.--/Since: 2.26/--}-dbusIsSupportedAddress ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: A string. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dbusIsSupportedAddress string = liftIO $ do-    string' <- textToCString string-    onException (do-        _ <- propagateGError $ g_dbus_is_supported_address string'-        freeMem string'-        return ()-     ) (do-        freeMem string'-     )----- function g_dbus_is_name--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The string to check.", 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 "g_dbus_is_name" g_dbus_is_name :: -    CString ->                              -- string : TBasicType TUTF8-    IO CInt--{- |-Checks if /@string@/ is a valid D-Bus bus name (either unique or well-known).--/Since: 2.26/--}-dbusIsName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: The string to check. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if valid, 'False' otherwise. -}-dbusIsName string = liftIO $ do-    string' <- textToCString string-    result <- g_dbus_is_name string'-    let result' = (/= 0) result-    freeMem string'-    return result'----- function g_dbus_is_member_name--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The string to check.", 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 "g_dbus_is_member_name" g_dbus_is_member_name :: -    CString ->                              -- string : TBasicType TUTF8-    IO CInt--{- |-Checks if /@string@/ is a valid D-Bus member (e.g. signal or method) name.--/Since: 2.26/--}-dbusIsMemberName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: The string to check. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if valid, 'False' otherwise. -}-dbusIsMemberName string = liftIO $ do-    string' <- textToCString string-    result <- g_dbus_is_member_name string'-    let result' = (/= 0) result-    freeMem string'-    return result'----- function g_dbus_is_interface_name--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The string to check.", 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 "g_dbus_is_interface_name" g_dbus_is_interface_name :: -    CString ->                              -- string : TBasicType TUTF8-    IO CInt--{- |-Checks if /@string@/ is a valid D-Bus interface name.--/Since: 2.26/--}-dbusIsInterfaceName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: The string to check. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if valid, 'False' otherwise. -}-dbusIsInterfaceName string = liftIO $ do-    string' <- textToCString string-    result <- g_dbus_is_interface_name string'-    let result' = (/= 0) result-    freeMem string'-    return result'----- function g_dbus_is_guid--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The string to check.", 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 "g_dbus_is_guid" g_dbus_is_guid :: -    CString ->                              -- string : TBasicType TUTF8-    IO CInt--{- |-Checks if /@string@/ is a D-Bus GUID.--See the D-Bus specification regarding what strings are valid D-Bus-GUID (for example, D-Bus GUIDs are not RFC-4122 compliant).--/Since: 2.26/--}-dbusIsGuid ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: The string to check. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@string@/ is a guid, 'False' otherwise. -}-dbusIsGuid string = liftIO $ do-    string' <- textToCString string-    result <- g_dbus_is_guid string'-    let result' = (/= 0) result-    freeMem string'-    return result'----- function g_dbus_is_address--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A string.", 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 "g_dbus_is_address" g_dbus_is_address :: -    CString ->                              -- string : TBasicType TUTF8-    IO CInt--{- |-Checks if /@string@/ is a-<https://dbus.freedesktop.org/doc/dbus-specification.html#addresses D-Bus address>.--This doesn\'t check if /@string@/ is actually supported by 'GI.Gio.Objects.DBusServer.DBusServer'-or 'GI.Gio.Objects.DBusConnection.DBusConnection' - use 'GI.Gio.Functions.dbusIsSupportedAddress' to do more-checks.--/Since: 2.26/--}-dbusIsAddress ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: A string. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@string@/ is a valid D-Bus address, 'False' otherwise. -}-dbusIsAddress string = liftIO $ do-    string' <- textToCString string-    result <- g_dbus_is_address string'-    let result' = (/= 0) result-    freeMem string'-    return result'----- function g_dbus_gvariant_to_gvalue--- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GVariant.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_gvalue", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location pointing to a zero-filled (uninitialized) #GValue.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_gvariant_to_gvalue" g_dbus_gvariant_to_gvalue :: -    Ptr GVariant ->                         -- value : TVariant-    Ptr GValue ->                           -- out_gvalue : TInterface (Name {namespace = "GObject", name = "Value"})-    IO ()--{- |-Converts a 'GVariant' to a 'GI.GObject.Structs.Value.Value'. If /@value@/ is floating, it is consumed.--The rules specified in the 'GI.Gio.Functions.dbusGvalueToGvariant' function are-used - this function is essentially its reverse form. So, a 'GVariant'-containing any basic or string array type will be converted to a 'GI.GObject.Structs.Value.Value'-containing a basic value or string array. Any other 'GVariant' (handle,-variant, tuple, dict entry) will be converted to a 'GI.GObject.Structs.Value.Value' containing that-'GVariant'.--The conversion never fails - a valid 'GI.GObject.Structs.Value.Value' is always returned in-/@outGvalue@/.--/Since: 2.30/--}-dbusGvariantToGvalue ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GVariant-    {- ^ /@value@/: A 'GVariant'. -}-    -> m (GValue)-dbusGvariantToGvalue value = liftIO $ do-    value' <- unsafeManagedPtrGetPtr value-    outGvalue <- callocBoxedBytes 24 :: IO (Ptr GValue)-    g_dbus_gvariant_to_gvalue value' outGvalue-    outGvalue' <- (wrapBoxed GValue) outGvalue-    touchManagedPtr value-    return outGvalue'----- function g_dbus_gvalue_to_gvariant--- Args : [Arg {argCName = "gvalue", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GValue to convert to a #GVariant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GVariantType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_dbus_gvalue_to_gvariant" g_dbus_gvalue_to_gvariant :: -    Ptr GValue ->                           -- gvalue : TInterface (Name {namespace = "GObject", name = "Value"})-    Ptr GLib.VariantType.VariantType ->     -- type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    IO (Ptr GVariant)--{- |-Converts a 'GI.GObject.Structs.Value.Value' to a 'GVariant' of the type indicated by the /@type@/-parameter.--The conversion is using the following rules:--* @/G_TYPE_STRING/@: \'s\', \'o\', \'g\' or \'ay\'-* @/G_TYPE_STRV/@: \'as\', \'ao\' or \'aay\'-* @/G_TYPE_BOOLEAN/@: \'b\'-* @/G_TYPE_UCHAR/@: \'y\'-* @/G_TYPE_INT/@: \'i\', \'n\'-* @/G_TYPE_UINT/@: \'u\', \'q\'-* @/G_TYPE_INT64/@ \'x\'-* @/G_TYPE_UINT64/@: \'t\'-* @/G_TYPE_DOUBLE/@: \'d\'-* @/G_TYPE_VARIANT/@: Any 'GI.GLib.Structs.VariantType.VariantType'---This can fail if e.g. /@gvalue@/ is of type @/G_TYPE_STRING/@ and /@type@/-is [\'i\'][G-VARIANT-TYPE-INT32:CAPS]. It will also fail for any 'GType'-(including e.g. @/G_TYPE_OBJECT/@ and @/G_TYPE_BOXED/@ derived-types) not-in the table above.--Note that if /@gvalue@/ is of type @/G_TYPE_VARIANT/@ and its value is-'Nothing', the empty 'GVariant' instance (never 'Nothing') for /@type@/ is-returned (e.g. 0 for scalar types, the empty string for string types,-\'\/\' for object path types, the empty array for any array type and so on).--See the 'GI.Gio.Functions.dbusGvariantToGvalue' function for how to convert a-'GVariant' to a 'GI.GObject.Structs.Value.Value'.--/Since: 2.30/--}-dbusGvalueToGvariant ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GValue-    {- ^ /@gvalue@/: A 'GI.GObject.Structs.Value.Value' to convert to a 'GVariant' -}-    -> GLib.VariantType.VariantType-    {- ^ /@type@/: A 'GI.GLib.Structs.VariantType.VariantType' -}-    -> m GVariant-    {- ^ __Returns:__ A 'GVariant' (never floating) of 'GI.GLib.Structs.VariantType.VariantType' /@type@/ holding-    the data from /@gvalue@/ or 'Nothing' in case of failure. Free with-    'GI.GLib.Structs.Variant.variantUnref'. -}-dbusGvalueToGvariant gvalue type_ = liftIO $ do-    gvalue' <- unsafeManagedPtrGetPtr gvalue-    type_' <- unsafeManagedPtrGetPtr type_-    result <- g_dbus_gvalue_to_gvariant gvalue' type_'-    checkUnexpectedReturnNULL "dbusGvalueToGvariant" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr gvalue-    touchManagedPtr type_-    return result'----- function g_dbus_generate_guid--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_dbus_generate_guid" g_dbus_generate_guid :: -    IO CString--{- |-Generate a D-Bus GUID that can be used with-e.g. 'GI.Gio.Objects.DBusConnection.dBusConnectionNew'.--See the D-Bus specification regarding what strings are valid D-Bus-GUID (for example, D-Bus GUIDs are not RFC-4122 compliant).--/Since: 2.26/--}-dbusGenerateGuid ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m T.Text-    {- ^ __Returns:__ A valid D-Bus GUID. Free with 'GI.GLib.Functions.free'. -}-dbusGenerateGuid  = liftIO $ do-    result <- g_dbus_generate_guid-    checkUnexpectedReturnNULL "dbusGenerateGuid" result-    result' <- cstringToText result-    freeMem result-    return result'----- function g_dbus_address_get_stream_sync--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid D-Bus address.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_guid", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%NULL or return location to store the GUID extracted from @address, if any.", 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 "A #GCancellable or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_address_get_stream_sync" g_dbus_address_get_stream_sync :: -    CString ->                              -- address : TBasicType TUTF8-    Ptr CString ->                          -- out_guid : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.IOStream.IOStream)--{- |-Synchronously connects to an endpoint specified by /@address@/ and-sets up the connection so it is in a state to run the client-side-of the D-Bus authentication conversation. /@address@/ must be in the-<https://dbus.freedesktop.org/doc/dbus-specification.html#addresses D-Bus address format>.--This is a synchronous failable function. See-'GI.Gio.Functions.dbusAddressGetStream' for the asynchronous version.--/Since: 2.26/--}-dbusAddressGetStreamSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    T.Text-    {- ^ /@address@/: A valid D-Bus address. -}-    -> Maybe (a)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> m ((Gio.IOStream.IOStream, T.Text))-    {- ^ __Returns:__ A 'GI.Gio.Objects.IOStream.IOStream' or 'Nothing' if /@error@/ is set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dbusAddressGetStreamSync address cancellable = liftIO $ do-    address' <- textToCString address-    outGuid <- allocMem :: IO (Ptr CString)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_address_get_stream_sync address' outGuid maybeCancellable-        checkUnexpectedReturnNULL "dbusAddressGetStreamSync" result-        result' <- (wrapObject Gio.IOStream.IOStream) result-        outGuid' <- peek outGuid-        outGuid'' <- cstringToText outGuid'-        freeMem outGuid'-        whenJust cancellable touchManagedPtr-        freeMem address'-        freeMem outGuid-        return (result', outGuid'')-     ) (do-        freeMem address'-        freeMem outGuid-     )----- function g_dbus_address_get_stream_finish--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult obtained from the GAsyncReadyCallback passed to g_dbus_address_get_stream().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_guid", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%NULL or return location to store the GUID extracted from @address, if any.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_address_get_stream_finish" g_dbus_address_get_stream_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr CString ->                          -- out_guid : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.IOStream.IOStream)--{- |-Finishes an operation started with 'GI.Gio.Functions.dbusAddressGetStream'.--/Since: 2.26/--}-dbusAddressGetStreamFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@res@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the GAsyncReadyCallback passed to 'GI.Gio.Functions.dbusAddressGetStream'. -}-    -> m ((Gio.IOStream.IOStream, T.Text))-    {- ^ __Returns:__ A 'GI.Gio.Objects.IOStream.IOStream' or 'Nothing' if /@error@/ is set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dbusAddressGetStreamFinish res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    outGuid <- allocMem :: IO (Ptr CString)-    onException (do-        result <- propagateGError $ g_dbus_address_get_stream_finish res' outGuid-        checkUnexpectedReturnNULL "dbusAddressGetStreamFinish" result-        result' <- (wrapObject Gio.IOStream.IOStream) result-        outGuid' <- peek outGuid-        outGuid'' <- cstringToText outGuid'-        freeMem outGuid'-        touchManagedPtr res-        freeMem outGuid-        return (result', outGuid'')-     ) (do-        freeMem outGuid-     )----- function g_dbus_address_get_stream--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid D-Bus address.", 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 "A #GAsyncReadyCallback to call when the request is satisfied.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, 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 "g_dbus_address_get_stream" g_dbus_address_get_stream :: -    CString ->                              -- address : TBasicType TUTF8-    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 connects to an endpoint specified by /@address@/ and-sets up the connection so it is in a state to run the client-side-of the D-Bus authentication conversation. /@address@/ must be in the-<https://dbus.freedesktop.org/doc/dbus-specification.html#addresses D-Bus address format>.--When the operation is finished, /@callback@/ will be invoked. You can-then call 'GI.Gio.Functions.dbusAddressGetStreamFinish' to get the result of-the operation.--This is an asynchronous failable function. See-'GI.Gio.Functions.dbusAddressGetStreamSync' for the synchronous version.--/Since: 2.26/--}-dbusAddressGetStream ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    T.Text-    {- ^ /@address@/: A valid D-Bus address. -}-    -> Maybe (a)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: A 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied. -}-    -> m ()-dbusAddressGetStream address cancellable callback = liftIO $ do-    address' <- textToCString address-    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-    g_dbus_address_get_stream address' maybeCancellable maybeCallback userData-    whenJust cancellable touchManagedPtr-    freeMem address'-    return ()----- function g_dbus_address_get_for_bus_sync--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBusType", 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}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_dbus_address_get_for_bus_sync" g_dbus_address_get_for_bus_sync :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CString--{- |-Synchronously looks up the D-Bus address for the well-known message-bus instance specified by /@busType@/. This may involve using various-platform specific mechanisms.--The returned address will be in the-<https://dbus.freedesktop.org/doc/dbus-specification.html#addresses D-Bus address format>.--/Since: 2.26/--}-dbusAddressGetForBusSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: a 'GI.Gio.Enums.BusType' -}-    -> Maybe (a)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m T.Text-    {- ^ __Returns:__ a valid D-Bus address string for /@busType@/ or 'Nothing' if-    /@error@/ is set /(Can throw 'Data.GI.Base.GError.GError')/ -}-dbusAddressGetForBusSync busType cancellable = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_address_get_for_bus_sync busType' maybeCancellable-        checkUnexpectedReturnNULL "dbusAddressGetForBusSync" result-        result' <- cstringToText result-        freeMem result-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )----- function g_dbus_address_escape_value--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an unescaped string to be included in a D-Bus address\n    as the value in a key-value pair", 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 "g_dbus_address_escape_value" g_dbus_address_escape_value :: -    CString ->                              -- string : TBasicType TUTF8-    IO CString--{- |-Escape /@string@/ so it can appear in a D-Bus address as the value-part of a key-value pair.--For instance, if /@string@/ is @\/run\/bus-for-:0@,-this function would return @\/run\/bus-for-%3A0@,-which could be used in a D-Bus address like-@unix:nonce-tcp:host=127.0.0.1,port=42,noncefile=\/run\/bus-for-%3A0@.--/Since: 2.36/--}-dbusAddressEscapeValue ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: an unescaped string to be included in a D-Bus address-    as the value in a key-value pair -}-    -> m T.Text-    {- ^ __Returns:__ a copy of /@string@/ with all-    non-optionally-escaped bytes escaped -}-dbusAddressEscapeValue string = liftIO $ do-    string' <- textToCString string-    result <- g_dbus_address_escape_value string'-    checkUnexpectedReturnNULL "dbusAddressEscapeValue" result-    result' <- cstringToText result-    freeMem result-    freeMem string'-    return result'----- function g_content_types_get_registered--- Args : []--- Lengths : []--- returnType : Just (TGList (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_content_types_get_registered" g_content_types_get_registered :: -    IO (Ptr (GList CString))--{- |-Gets a list of strings containing all the registered content types-known to the system. The list and its data should be freed using-@g_list_free_full (list, g_free)@.--}-contentTypesGetRegistered ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m [T.Text]-    {- ^ __Returns:__ list of the registered-    content types -}-contentTypesGetRegistered  = liftIO $ do-    result <- g_content_types_get_registered-    result' <- unpackGList result-    result'' <- mapM cstringToText result'-    mapGList freeMem result-    g_list_free result-    return result''----- function g_content_type_set_mime_dirs--- Args : [Arg {argCName = "dirs", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "%NULL-terminated list of\n   directories to load MIME data from, including any `mime/` subdirectory,\n   and with the first directory to try listed first", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_content_type_set_mime_dirs" g_content_type_set_mime_dirs :: -    Ptr CString ->                          -- dirs : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()--{- |-Set the list of directories used by GIO to load the MIME database.-If /@dirs@/ is 'Nothing', the directories used are the default:-- - the @mime@ subdirectory of the directory in @$XDG_DATA_HOME@- - the @mime@ subdirectory of every directory in @$XDG_DATA_DIRS@--This function is intended to be used when writing tests that depend on-information stored in the MIME database, in order to control the data.--Typically, in case your tests use 'GI.GLib.Constants.TEST_OPTION_ISOLATE_DIRS', but they-depend on the system’s MIME database, you should call this function-with /@dirs@/ set to 'Nothing' before calling @/g_test_init()/@, for instance:---=== /C code/->->  // Load MIME data from the system->  g_content_type_set_mime_dirs (NULL);->  // Isolate the environment->  g_test_init (&argc, &argv, G_TEST_OPTION_ISOLATE_DIRS, NULL);->->  …->->  return g_test_run ();---/Since: 2.60/--}-contentTypeSetMimeDirs ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe ([T.Text])-    {- ^ /@dirs@/: 'Nothing'-terminated list of-   directories to load MIME data from, including any @mime\/@ subdirectory,-   and with the first directory to try listed first -}-    -> m ()-contentTypeSetMimeDirs dirs = liftIO $ do-    maybeDirs <- case dirs of-        Nothing -> return nullPtr-        Just jDirs -> do-            jDirs' <- packZeroTerminatedUTF8CArray jDirs-            return jDirs'-    g_content_type_set_mime_dirs maybeDirs-    mapZeroTerminatedCArray freeMem maybeDirs-    freeMem maybeDirs-    return ()----- function g_content_type_is_unknown--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", 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 "g_content_type_is_unknown" g_content_type_is_unknown :: -    CString ->                              -- type : TBasicType TUTF8-    IO CInt--{- |-Checks if the content type is the generic \"unknown\" type.-On UNIX this is the \"application\/octet-stream\" mimetype,-while on win32 it is \"*\" and on OSX it is a dynamic type-or octet-stream.--}-contentTypeIsUnknown ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the type is the unknown type. -}-contentTypeIsUnknown type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_is_unknown type_'-    let result' = (/= 0) result-    freeMem type_'-    return result'----- function g_content_type_is_mime_type--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a mime type string", 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 "g_content_type_is_mime_type" g_content_type_is_mime_type :: -    CString ->                              -- type : TBasicType TUTF8-    CString ->                              -- mime_type : TBasicType TUTF8-    IO CInt--{- |-Determines if /@type@/ is a subset of /@mimeType@/.-Convenience wrapper around 'GI.Gio.Functions.contentTypeIsA'.--/Since: 2.52/--}-contentTypeIsMimeType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> T.Text-    {- ^ /@mimeType@/: a mime type string -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@type@/ is a kind of /@mimeType@/,-    'False' otherwise. -}-contentTypeIsMimeType type_ mimeType = liftIO $ do-    type_' <- textToCString type_-    mimeType' <- textToCString mimeType-    result <- g_content_type_is_mime_type type_' mimeType'-    let result' = (/= 0) result-    freeMem type_'-    freeMem mimeType'-    return result'----- function g_content_type_is_a--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "supertype", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", 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 "g_content_type_is_a" g_content_type_is_a :: -    CString ->                              -- type : TBasicType TUTF8-    CString ->                              -- supertype : TBasicType TUTF8-    IO CInt--{- |-Determines if /@type@/ is a subset of /@supertype@/.--}-contentTypeIsA ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> T.Text-    {- ^ /@supertype@/: a content type string -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@type@/ is a kind of /@supertype@/,-    'False' otherwise. -}-contentTypeIsA type_ supertype = liftIO $ do-    type_' <- textToCString type_-    supertype' <- textToCString supertype-    result <- g_content_type_is_a type_' supertype'-    let result' = (/= 0) result-    freeMem type_'-    freeMem supertype'-    return result'----- function g_content_type_guess_for_tree--- Args : [Arg {argCName = "root", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the root of the tree to guess a type for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_content_type_guess_for_tree" g_content_type_guess_for_tree :: -    Ptr Gio.File.File ->                    -- root : TInterface (Name {namespace = "Gio", name = "File"})-    IO (Ptr CString)--{- |-Tries to guess the type of the tree with root /@root@/, by-looking at the files it contains. The result is an array-of content types, with the best guess coming first.--The types returned all have the form x-content\/foo, e.g.-x-content\/audio-cdda (for audio CDs) or x-content\/image-dcf-(for a camera memory card). See the-<http://www.freedesktop.org/wiki/Specifications/shared-mime-info-spec shared-mime-info>-specification for more on x-content types.--This function is useful in the implementation of-'GI.Gio.Interfaces.Mount.mountGuessContentType'.--/Since: 2.18/--}-contentTypeGuessForTree ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a) =>-    a-    {- ^ /@root@/: the root of the tree to guess a type for -}-    -> m [T.Text]-    {- ^ __Returns:__ an 'Nothing'-terminated-    array of zero or more content types. Free with 'GI.GLib.Functions.strfreev' -}-contentTypeGuessForTree root = liftIO $ do-    root' <- unsafeManagedPtrCastPtr root-    result <- g_content_type_guess_for_tree root'-    checkUnexpectedReturnNULL "contentTypeGuessForTree" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr root-    return result'----- function g_content_type_guess--- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a string, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a stream of data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result_uncertain", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the certainty\n    of the result, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "g_content_type_guess" g_content_type_guess :: -    CString ->                              -- filename : TBasicType TUTF8-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- data_size : TBasicType TUInt64-    Ptr CInt ->                             -- result_uncertain : TBasicType TBoolean-    IO CString--{- |-Guesses the content type based on example data. If the function is-uncertain, /@resultUncertain@/ will be set to 'True'. Either /@filename@/-or /@data@/ may be 'Nothing', in which case the guess will be based solely-on the other argument.--}-contentTypeGuess ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@filename@/: a string, or 'Nothing' -}-    -> Maybe (ByteString)-    {- ^ /@data@/: a stream of data, or 'Nothing' -}-    -> m ((T.Text, Bool))-    {- ^ __Returns:__ a string indicating a guessed content type for the-    given data. Free with 'GI.GLib.Functions.free' -}-contentTypeGuess filename data_ = liftIO $ do-    let dataSize = case data_ of-            Nothing -> 0-            Just jData_ -> fromIntegral $ B.length jData_-    maybeFilename <- case filename of-        Nothing -> return nullPtr-        Just jFilename -> do-            jFilename' <- textToCString jFilename-            return jFilename'-    maybeData_ <- case data_ of-        Nothing -> return nullPtr-        Just jData_ -> do-            jData_' <- packByteString jData_-            return jData_'-    resultUncertain <- allocMem :: IO (Ptr CInt)-    result <- g_content_type_guess maybeFilename maybeData_ dataSize resultUncertain-    checkUnexpectedReturnNULL "contentTypeGuess" result-    result' <- cstringToText result-    freeMem result-    resultUncertain' <- peek resultUncertain-    let resultUncertain'' = (/= 0) resultUncertain'-    freeMem maybeFilename-    freeMem maybeData_-    freeMem resultUncertain-    return (result', resultUncertain'')----- function g_content_type_get_symbolic_icon--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_content_type_get_symbolic_icon" g_content_type_get_symbolic_icon :: -    CString ->                              -- type : TBasicType TUTF8-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the symbolic icon for a content type.--/Since: 2.34/--}-contentTypeGetSymbolicIcon ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ symbolic 'GI.Gio.Interfaces.Icon.Icon' corresponding to the content type.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref' -}-contentTypeGetSymbolicIcon type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_symbolic_icon type_'-    checkUnexpectedReturnNULL "contentTypeGetSymbolicIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    freeMem type_'-    return result'----- function g_content_type_get_mime_type--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", 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 "g_content_type_get_mime_type" g_content_type_get_mime_type :: -    CString ->                              -- type : TBasicType TUTF8-    IO CString--{- |-Gets the mime type for the content type, if one is registered.--}-contentTypeGetMimeType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the registered mime type for the-    given /@type@/, or 'Nothing' if unknown; free with 'GI.GLib.Functions.free'. -}-contentTypeGetMimeType type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_mime_type type_'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    freeMem type_'-    return maybeResult----- function g_content_type_get_mime_dirs--- Args : []--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_content_type_get_mime_dirs" g_content_type_get_mime_dirs :: -    IO (Ptr CString)--{- |-Get the list of directories which MIME data is loaded from. See-'GI.Gio.Functions.contentTypeSetMimeDirs' for details.--/Since: 2.60/--}-contentTypeGetMimeDirs ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m [T.Text]-    {- ^ __Returns:__ 'Nothing'-terminated list of-   directories to load MIME data from, including any @mime\/@ subdirectory,-   and with the first directory to try listed first -}-contentTypeGetMimeDirs  = liftIO $ do-    result <- g_content_type_get_mime_dirs-    checkUnexpectedReturnNULL "contentTypeGetMimeDirs" result-    result' <- unpackZeroTerminatedUTF8CArray result-    return result'----- function g_content_type_get_icon--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_content_type_get_icon" g_content_type_get_icon :: -    CString ->                              -- type : TBasicType TUTF8-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the icon for a content type.--}-contentTypeGetIcon ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ 'GI.Gio.Interfaces.Icon.Icon' corresponding to the content type. Free the returned-    object with 'GI.GObject.Objects.Object.objectUnref' -}-contentTypeGetIcon type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_icon type_'-    checkUnexpectedReturnNULL "contentTypeGetIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    freeMem type_'-    return result'----- function g_content_type_get_generic_icon_name--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", 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 "g_content_type_get_generic_icon_name" g_content_type_get_generic_icon_name :: -    CString ->                              -- type : TBasicType TUTF8-    IO CString--{- |-Gets the generic icon name for a content type.--See the-<http://www.freedesktop.org/wiki/Specifications/shared-mime-info-spec shared-mime-info>-specification for more on the generic icon name.--/Since: 2.34/--}-contentTypeGetGenericIconName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the registered generic icon name for the given /@type@/,-    or 'Nothing' if unknown. Free with 'GI.GLib.Functions.free' -}-contentTypeGetGenericIconName type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_generic_icon_name type_'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    freeMem type_'-    return maybeResult----- function g_content_type_get_description--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", 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 "g_content_type_get_description" g_content_type_get_description :: -    CString ->                              -- type : TBasicType TUTF8-    IO CString--{- |-Gets the human readable description of the content type.--}-contentTypeGetDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> m T.Text-    {- ^ __Returns:__ a short description of the content type /@type@/. Free the-    returned string with 'GI.GLib.Functions.free' -}-contentTypeGetDescription type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_get_description type_'-    checkUnexpectedReturnNULL "contentTypeGetDescription" result-    result' <- cstringToText result-    freeMem result-    freeMem type_'-    return result'----- function g_content_type_from_mime_type--- Args : [Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a mime type string", 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 "g_content_type_from_mime_type" g_content_type_from_mime_type :: -    CString ->                              -- mime_type : TBasicType TUTF8-    IO CString--{- |-Tries to find a content type based on the mime type name.--/Since: 2.18/--}-contentTypeFromMimeType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@mimeType@/: a mime type string -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ Newly allocated string with content type or-    'Nothing'. Free with 'GI.GLib.Functions.free' -}-contentTypeFromMimeType mimeType = liftIO $ do-    mimeType' <- textToCString mimeType-    result <- g_content_type_from_mime_type mimeType'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    freeMem mimeType'-    return maybeResult----- function g_content_type_equals--- Args : [Arg {argCName = "type1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", 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 "g_content_type_equals" g_content_type_equals :: -    CString ->                              -- type1 : TBasicType TUTF8-    CString ->                              -- type2 : TBasicType TUTF8-    IO CInt--{- |-Compares two content types for equality.--}-contentTypeEquals ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type1@/: a content type string -}-    -> T.Text-    {- ^ /@type2@/: a content type string -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the two strings are identical or equivalent,-    'False' otherwise. -}-contentTypeEquals type1 type2 = liftIO $ do-    type1' <- textToCString type1-    type2' <- textToCString type2-    result <- g_content_type_equals type1' type2'-    let result' = (/= 0) result-    freeMem type1'-    freeMem type2'-    return result'----- function g_content_type_can_be_executable--- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type string", 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 "g_content_type_can_be_executable" g_content_type_can_be_executable :: -    CString ->                              -- type : TBasicType TUTF8-    IO CInt--{- |-Checks if a content type can be executable. Note that for instance-things like text files can be executables (i.e. scripts and batch files).--}-contentTypeCanBeExecutable ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@type@/: a content type string -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the file type corresponds to a type that-    can be executable, 'False' otherwise. -}-contentTypeCanBeExecutable type_ = liftIO $ do-    type_' <- textToCString type_-    result <- g_content_type_can_be_executable type_'-    let result' = (/= 0) result-    freeMem type_'-    return result'----- function g_bus_watch_name_on_connection_with_closures--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name (well-known or unique) to watch.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "BusNameWatcherFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags from the #GBusNameWatcherFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_appeared_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when @name is known\nto exist or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_vanished_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when @name is known\nto not exist or %NULL.", 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 "g_bus_watch_name_on_connection_with_closures" g_bus_watch_name_on_connection_with_closures :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "BusNameWatcherFlags"})-    Ptr (GClosure ()) ->                    -- name_appeared_closure : TGClosure Nothing-    Ptr (GClosure ()) ->                    -- name_vanished_closure : TGClosure Nothing-    IO Word32--{- |-Version of @/g_bus_watch_name_on_connection()/@ using closures instead of callbacks for-easier binding in other languages.--/Since: 2.26/--}-busWatchNameOnConnection ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@name@/: The name (well-known or unique) to watch. -}-    -> [Gio.Flags.BusNameWatcherFlags]-    {- ^ /@flags@/: Flags from the 'GI.Gio.Flags.BusNameWatcherFlags' enumeration. -}-    -> Maybe (GClosure b)-    {- ^ /@nameAppearedClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when /@name@/ is known-to exist or 'Nothing'. -}-    -> Maybe (GClosure c)-    {- ^ /@nameVanishedClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when /@name@/ is known-to not exist or 'Nothing'. -}-    -> m Word32-    {- ^ __Returns:__ An identifier (never 0) that an be used with-'GI.Gio.Functions.busUnwatchName' to stop watching the name. -}-busWatchNameOnConnection connection name flags nameAppearedClosure nameVanishedClosure = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    let flags' = gflagsToWord flags-    maybeNameAppearedClosure <- case nameAppearedClosure of-        Nothing -> return nullPtr-        Just jNameAppearedClosure -> do-            jNameAppearedClosure' <- unsafeManagedPtrCastPtr jNameAppearedClosure-            return jNameAppearedClosure'-    maybeNameVanishedClosure <- case nameVanishedClosure of-        Nothing -> return nullPtr-        Just jNameVanishedClosure -> do-            jNameVanishedClosure' <- unsafeManagedPtrCastPtr jNameVanishedClosure-            return jNameVanishedClosure'-    result <- g_bus_watch_name_on_connection_with_closures connection' name' flags' maybeNameAppearedClosure maybeNameVanishedClosure-    touchManagedPtr connection-    whenJust nameAppearedClosure touchManagedPtr-    whenJust nameVanishedClosure touchManagedPtr-    freeMem name'-    return result----- function g_bus_watch_name_with_closures--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The type of bus to watch a name on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name (well-known or unique) to watch.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "BusNameWatcherFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags from the #GBusNameWatcherFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_appeared_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when @name is known\nto exist or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_vanished_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when @name is known\nto not exist or %NULL.", 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 "g_bus_watch_name_with_closures" g_bus_watch_name_with_closures :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "BusNameWatcherFlags"})-    Ptr (GClosure ()) ->                    -- name_appeared_closure : TGClosure Nothing-    Ptr (GClosure ()) ->                    -- name_vanished_closure : TGClosure Nothing-    IO Word32--{- |-Version of @/g_bus_watch_name()/@ using closures instead of callbacks for-easier binding in other languages.--/Since: 2.26/--}-busWatchName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: The type of bus to watch a name on. -}-    -> T.Text-    {- ^ /@name@/: The name (well-known or unique) to watch. -}-    -> [Gio.Flags.BusNameWatcherFlags]-    {- ^ /@flags@/: Flags from the 'GI.Gio.Flags.BusNameWatcherFlags' enumeration. -}-    -> Maybe (GClosure a)-    {- ^ /@nameAppearedClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when /@name@/ is known-to exist or 'Nothing'. -}-    -> Maybe (GClosure b)-    {- ^ /@nameVanishedClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when /@name@/ is known-to not exist or 'Nothing'. -}-    -> m Word32-    {- ^ __Returns:__ An identifier (never 0) that an be used with-'GI.Gio.Functions.busUnwatchName' to stop watching the name. -}-busWatchName busType name flags nameAppearedClosure nameVanishedClosure = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    name' <- textToCString name-    let flags' = gflagsToWord flags-    maybeNameAppearedClosure <- case nameAppearedClosure of-        Nothing -> return nullPtr-        Just jNameAppearedClosure -> do-            jNameAppearedClosure' <- unsafeManagedPtrCastPtr jNameAppearedClosure-            return jNameAppearedClosure'-    maybeNameVanishedClosure <- case nameVanishedClosure of-        Nothing -> return nullPtr-        Just jNameVanishedClosure -> do-            jNameVanishedClosure' <- unsafeManagedPtrCastPtr jNameVanishedClosure-            return jNameVanishedClosure'-    result <- g_bus_watch_name_with_closures busType' name' flags' maybeNameAppearedClosure maybeNameVanishedClosure-    whenJust nameAppearedClosure touchManagedPtr-    whenJust nameVanishedClosure touchManagedPtr-    freeMem name'-    return result----- function g_bus_unwatch_name--- Args : [Arg {argCName = "watcher_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An identifier obtained from g_bus_watch_name()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_bus_unwatch_name" g_bus_unwatch_name :: -    Word32 ->                               -- watcher_id : TBasicType TUInt-    IO ()--{- |-Stops watching a name.--/Since: 2.26/--}-busUnwatchName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word32-    {- ^ /@watcherId@/: An identifier obtained from @/g_bus_watch_name()/@ -}-    -> m ()-busUnwatchName watcherId = liftIO $ do-    g_bus_unwatch_name watcherId-    return ()----- function g_bus_unown_name--- Args : [Arg {argCName = "owner_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an identifier obtained from g_bus_own_name()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_bus_unown_name" g_bus_unown_name :: -    Word32 ->                               -- owner_id : TBasicType TUInt-    IO ()--{- |-Stops owning a name.--/Since: 2.26/--}-busUnownName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word32-    {- ^ /@ownerId@/: an identifier obtained from @/g_bus_own_name()/@ -}-    -> m ()-busUnownName ownerId = liftIO $ do-    g_bus_unown_name ownerId-    return ()----- function g_bus_own_name_on_connection_with_closures--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the well-known name to own", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "BusNameOwnerFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of flags from the #GBusNameOwnerFlags enumeration", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_acquired_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when @name is\n    acquired or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_lost_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when @name is lost\n    or %NULL", 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 "g_bus_own_name_on_connection_with_closures" g_bus_own_name_on_connection_with_closures :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "BusNameOwnerFlags"})-    Ptr (GClosure ()) ->                    -- name_acquired_closure : TGClosure Nothing-    Ptr (GClosure ()) ->                    -- name_lost_closure : TGClosure Nothing-    IO Word32--{- |-Version of @/g_bus_own_name_on_connection()/@ using closures instead of-callbacks for easier binding in other languages.--/Since: 2.26/--}-busOwnNameOnConnection ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> T.Text-    {- ^ /@name@/: the well-known name to own -}-    -> [Gio.Flags.BusNameOwnerFlags]-    {- ^ /@flags@/: a set of flags from the 'GI.Gio.Flags.BusNameOwnerFlags' enumeration -}-    -> Maybe (GClosure b)-    {- ^ /@nameAcquiredClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when /@name@/ is-    acquired or 'Nothing' -}-    -> Maybe (GClosure c)-    {- ^ /@nameLostClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when /@name@/ is lost-    or 'Nothing' -}-    -> m Word32-    {- ^ __Returns:__ an identifier (never 0) that an be used with-    'GI.Gio.Functions.busUnownName' to stop owning the name. -}-busOwnNameOnConnection connection name flags nameAcquiredClosure nameLostClosure = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    name' <- textToCString name-    let flags' = gflagsToWord flags-    maybeNameAcquiredClosure <- case nameAcquiredClosure of-        Nothing -> return nullPtr-        Just jNameAcquiredClosure -> do-            jNameAcquiredClosure' <- unsafeManagedPtrCastPtr jNameAcquiredClosure-            return jNameAcquiredClosure'-    maybeNameLostClosure <- case nameLostClosure of-        Nothing -> return nullPtr-        Just jNameLostClosure -> do-            jNameLostClosure' <- unsafeManagedPtrCastPtr jNameLostClosure-            return jNameLostClosure'-    result <- g_bus_own_name_on_connection_with_closures connection' name' flags' maybeNameAcquiredClosure maybeNameLostClosure-    touchManagedPtr connection-    whenJust nameAcquiredClosure touchManagedPtr-    whenJust nameLostClosure touchManagedPtr-    freeMem name'-    return result----- function g_bus_own_name_with_closures--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of bus to own a name on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the well-known name to own", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "BusNameOwnerFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of flags from the #GBusNameOwnerFlags enumeration", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_acquired_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when connected to\n    the bus of type @bus_type or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_acquired_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when @name is\n    acquired or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_lost_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure to invoke when @name is lost or\n    %NULL", 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 "g_bus_own_name_with_closures" g_bus_own_name_with_closures :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "BusNameOwnerFlags"})-    Ptr (GClosure ()) ->                    -- bus_acquired_closure : TGClosure Nothing-    Ptr (GClosure ()) ->                    -- name_acquired_closure : TGClosure Nothing-    Ptr (GClosure ()) ->                    -- name_lost_closure : TGClosure Nothing-    IO Word32--{- |-Version of @/g_bus_own_name()/@ using closures instead of callbacks for-easier binding in other languages.--/Since: 2.26/--}-busOwnName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: the type of bus to own a name on -}-    -> T.Text-    {- ^ /@name@/: the well-known name to own -}-    -> [Gio.Flags.BusNameOwnerFlags]-    {- ^ /@flags@/: a set of flags from the 'GI.Gio.Flags.BusNameOwnerFlags' enumeration -}-    -> Maybe (GClosure a)-    {- ^ /@busAcquiredClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when connected to-    the bus of type /@busType@/ or 'Nothing' -}-    -> Maybe (GClosure b)-    {- ^ /@nameAcquiredClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when /@name@/ is-    acquired or 'Nothing' -}-    -> Maybe (GClosure c)-    {- ^ /@nameLostClosure@/: 'GI.GObject.Structs.Closure.Closure' to invoke when /@name@/ is lost or-    'Nothing' -}-    -> m Word32-    {- ^ __Returns:__ an identifier (never 0) that an be used with-    'GI.Gio.Functions.busUnownName' to stop owning the name. -}-busOwnName busType name flags busAcquiredClosure nameAcquiredClosure nameLostClosure = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    name' <- textToCString name-    let flags' = gflagsToWord flags-    maybeBusAcquiredClosure <- case busAcquiredClosure of-        Nothing -> return nullPtr-        Just jBusAcquiredClosure -> do-            jBusAcquiredClosure' <- unsafeManagedPtrCastPtr jBusAcquiredClosure-            return jBusAcquiredClosure'-    maybeNameAcquiredClosure <- case nameAcquiredClosure of-        Nothing -> return nullPtr-        Just jNameAcquiredClosure -> do-            jNameAcquiredClosure' <- unsafeManagedPtrCastPtr jNameAcquiredClosure-            return jNameAcquiredClosure'-    maybeNameLostClosure <- case nameLostClosure of-        Nothing -> return nullPtr-        Just jNameLostClosure -> do-            jNameLostClosure' <- unsafeManagedPtrCastPtr jNameLostClosure-            return jNameLostClosure'-    result <- g_bus_own_name_with_closures busType' name' flags' maybeBusAcquiredClosure maybeNameAcquiredClosure maybeNameLostClosure-    whenJust busAcquiredClosure touchManagedPtr-    whenJust nameAcquiredClosure touchManagedPtr-    whenJust nameLostClosure touchManagedPtr-    freeMem name'-    return result----- function g_bus_get_sync--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBusType", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_bus_get_sync" g_bus_get_sync :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Synchronously connects to the message bus specified by /@busType@/.-Note that the returned object may shared with other callers,-e.g. if two separate parts of a process calls this function with-the same /@busType@/, they will share the same object.--This is a synchronous failable function. See 'GI.Gio.Functions.busGet' and-'GI.Gio.Functions.busGetFinish' for the asynchronous version.--The returned object is a singleton, that is, shared with other-callers of 'GI.Gio.Functions.busGet' and 'GI.Gio.Functions.busGetSync' for /@busType@/. In the-event that you need a private message bus connection, use-'GI.Gio.Functions.dbusAddressGetForBusSync' and-'GI.Gio.Objects.DBusConnection.dBusConnectionNewForAddress'.--Note that the returned 'GI.Gio.Objects.DBusConnection.DBusConnection' object will (usually) have-the 'GI.Gio.Objects.DBusConnection.DBusConnection':@/exit-on-close/@ property set to 'True'.--/Since: 2.26/--}-busGetSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: a 'GI.Gio.Enums.BusType' -}-    -> Maybe (a)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusConnection.DBusConnection' or 'Nothing' if /@error@/ is set.-    Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-busGetSync busType cancellable = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_bus_get_sync busType' maybeCancellable-        checkUnexpectedReturnNULL "busGetSync" result-        result' <- (wrapObject Gio.DBusConnection.DBusConnection) result-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )----- function g_bus_get_finish--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult obtained from the #GAsyncReadyCallback passed\n    to g_bus_get()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_bus_get_finish" g_bus_get_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Finishes an operation started with 'GI.Gio.Functions.busGet'.--The returned object is a singleton, that is, shared with other-callers of 'GI.Gio.Functions.busGet' and 'GI.Gio.Functions.busGetSync' for /@busType@/. In the-event that you need a private message bus connection, use-'GI.Gio.Functions.dbusAddressGetForBusSync' and-'GI.Gio.Objects.DBusConnection.dBusConnectionNewForAddress'.--Note that the returned 'GI.Gio.Objects.DBusConnection.DBusConnection' object will (usually) have-the 'GI.Gio.Objects.DBusConnection.DBusConnection':@/exit-on-close/@ property set to 'True'.--/Since: 2.26/--}-busGetFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed-    to 'GI.Gio.Functions.busGet' -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusConnection.DBusConnection' or 'Nothing' if /@error@/ is set.-    Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-busGetFinish res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_bus_get_finish res'-        checkUnexpectedReturnNULL "busGetFinish" result-        result' <- (wrapObject Gio.DBusConnection.DBusConnection) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )----- function g_bus_get--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBusType", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the 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 "g_bus_get" g_bus_get :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    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 connects to the message bus specified by /@busType@/.--When the operation is finished, /@callback@/ will be invoked. You can-then call 'GI.Gio.Functions.busGetFinish' to get the result of the operation.--This is a asynchronous failable function. See 'GI.Gio.Functions.busGetSync' for-the synchronous version.--/Since: 2.26/--}-busGet ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: a 'GI.Gio.Enums.BusType' -}-    -> Maybe (a)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-busGet busType cancellable callback = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    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-    g_bus_get busType' maybeCancellable maybeCallback userData-    whenJust cancellable touchManagedPtr-    return ()---
− GI/Gio/Interfaces.hs 
@@ -1,111 +0,0 @@---{- |-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.Gio.Interfaces-    (     module GI.Gio.Interfaces.Action         ,-    module GI.Gio.Interfaces.ActionGroup    ,-    module GI.Gio.Interfaces.ActionMap      ,-    module GI.Gio.Interfaces.AppInfo        ,-    module GI.Gio.Interfaces.AsyncInitable  ,-    module GI.Gio.Interfaces.AsyncResult    ,-    module GI.Gio.Interfaces.Converter      ,-    module GI.Gio.Interfaces.DBusInterface  ,-    module GI.Gio.Interfaces.DBusObject     ,-    module GI.Gio.Interfaces.DBusObjectManager,-    module GI.Gio.Interfaces.DatagramBased  ,-    module GI.Gio.Interfaces.DesktopAppInfoLookup,-    module GI.Gio.Interfaces.Drive          ,-    module GI.Gio.Interfaces.DtlsClientConnection,-    module GI.Gio.Interfaces.DtlsConnection ,-    module GI.Gio.Interfaces.DtlsServerConnection,-    module GI.Gio.Interfaces.File           ,-    module GI.Gio.Interfaces.FileDescriptorBased,-    module GI.Gio.Interfaces.Icon           ,-    module GI.Gio.Interfaces.Initable       ,-    module GI.Gio.Interfaces.ListModel      ,-    module GI.Gio.Interfaces.LoadableIcon   ,-    module GI.Gio.Interfaces.Mount          ,-    module GI.Gio.Interfaces.NetworkMonitor ,-    module GI.Gio.Interfaces.PollableInputStream,-    module GI.Gio.Interfaces.PollableOutputStream,-    module GI.Gio.Interfaces.Proxy          ,-    module GI.Gio.Interfaces.ProxyResolver  ,-    module GI.Gio.Interfaces.RemoteActionGroup,-    module GI.Gio.Interfaces.Seekable       ,-    module GI.Gio.Interfaces.SocketConnectable,-    module GI.Gio.Interfaces.TlsBackend     ,-    module GI.Gio.Interfaces.TlsClientConnection,-    module GI.Gio.Interfaces.TlsFileDatabase,-    module GI.Gio.Interfaces.TlsServerConnection,-    module GI.Gio.Interfaces.Volume         ,---    ) where--import GI.Gio.Interfaces.Action-import GI.Gio.Interfaces.ActionGroup-import GI.Gio.Interfaces.ActionMap-import GI.Gio.Interfaces.AppInfo-import GI.Gio.Interfaces.AsyncInitable-import GI.Gio.Interfaces.AsyncResult-import GI.Gio.Interfaces.Converter-import GI.Gio.Interfaces.DBusInterface-import GI.Gio.Interfaces.DBusObject-import GI.Gio.Interfaces.DBusObjectManager-import GI.Gio.Interfaces.DatagramBased-import GI.Gio.Interfaces.DesktopAppInfoLookup-import GI.Gio.Interfaces.Drive-import GI.Gio.Interfaces.DtlsClientConnection-import GI.Gio.Interfaces.DtlsConnection-import GI.Gio.Interfaces.DtlsServerConnection-import GI.Gio.Interfaces.File-import GI.Gio.Interfaces.FileDescriptorBased-import GI.Gio.Interfaces.Icon-import GI.Gio.Interfaces.Initable-import GI.Gio.Interfaces.ListModel-import GI.Gio.Interfaces.LoadableIcon-import GI.Gio.Interfaces.Mount-import GI.Gio.Interfaces.NetworkMonitor-import GI.Gio.Interfaces.PollableInputStream-import GI.Gio.Interfaces.PollableOutputStream-import GI.Gio.Interfaces.Proxy-import GI.Gio.Interfaces.ProxyResolver-import GI.Gio.Interfaces.RemoteActionGroup-import GI.Gio.Interfaces.Seekable-import GI.Gio.Interfaces.SocketConnectable-import GI.Gio.Interfaces.TlsBackend-import GI.Gio.Interfaces.TlsClientConnection-import GI.Gio.Interfaces.TlsFileDatabase-import GI.Gio.Interfaces.TlsServerConnection-import GI.Gio.Interfaces.Volume--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---
− GI/Gio/Interfaces/Action.hs 
@@ -1,1030 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.Action.Action' represents a single named action.--The main interface to an action is that it can be activated with-'GI.Gio.Interfaces.Action.actionActivate'.  This results in the \'activate\' signal being-emitted.  An activation has a 'GVariant' parameter (which may be-'Nothing').  The correct type for the parameter is determined by a static-parameter type (which is given at construction time).--An action may optionally have a state, in which case the state may be-set with 'GI.Gio.Interfaces.Action.actionChangeState'.  This call takes a 'GVariant'.  The-correct type for the state is determined by a static state type-(which is given at construction time).--The state may have a hint associated with it, specifying its valid-range.--'GI.Gio.Interfaces.Action.Action' is merely the interface to the concept of an action, as-described above.  Various implementations of actions exist, including-'GI.Gio.Objects.SimpleAction.SimpleAction'.--In all cases, the implementing class is responsible for storing the-name of the action, the parameter type, the enabled state, the-optional state type and the state and emitting the appropriate-signals when these change.  The implementor is responsible for filtering-calls to 'GI.Gio.Interfaces.Action.actionActivate' and 'GI.Gio.Interfaces.Action.actionChangeState' for type-safety and for the state being enabled.--Probably the only useful thing to do with a 'GI.Gio.Interfaces.Action.Action' is to put it-inside of a 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Action-    ( ---- * Exported types-    Action(..)                              ,-    noAction                                ,-    IsAction                                ,-    toAction                                ,--- -- * Methods--- ** activate #method:activate#--#if ENABLE_OVERLOADING-    ActionActivateMethodInfo                ,-#endif-    actionActivate                          ,----- ** changeState #method:changeState#--#if ENABLE_OVERLOADING-    ActionChangeStateMethodInfo             ,-#endif-    actionChangeState                       ,----- ** getEnabled #method:getEnabled#--#if ENABLE_OVERLOADING-    ActionGetEnabledMethodInfo              ,-#endif-    actionGetEnabled                        ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    ActionGetNameMethodInfo                 ,-#endif-    actionGetName                           ,----- ** getParameterType #method:getParameterType#--#if ENABLE_OVERLOADING-    ActionGetParameterTypeMethodInfo        ,-#endif-    actionGetParameterType                  ,----- ** getState #method:getState#--#if ENABLE_OVERLOADING-    ActionGetStateMethodInfo                ,-#endif-    actionGetState                          ,----- ** getStateHint #method:getStateHint#--#if ENABLE_OVERLOADING-    ActionGetStateHintMethodInfo            ,-#endif-    actionGetStateHint                      ,----- ** getStateType #method:getStateType#--#if ENABLE_OVERLOADING-    ActionGetStateTypeMethodInfo            ,-#endif-    actionGetStateType                      ,----- ** nameIsValid #method:nameIsValid#--    actionNameIsValid                       ,----- ** parseDetailedName #method:parseDetailedName#--    actionParseDetailedName                 ,----- ** printDetailedName #method:printDetailedName#--    actionPrintDetailedName                 ,----- -- * Properties--- ** enabled #attr:enabled#-{- | If /@action@/ is currently enabled.--If the action is disabled then calls to 'GI.Gio.Interfaces.Action.actionActivate' and-'GI.Gio.Interfaces.Action.actionChangeState' have no effect.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    ActionEnabledPropertyInfo               ,-#endif-#if ENABLE_OVERLOADING-    actionEnabled                           ,-#endif-    getActionEnabled                        ,----- ** name #attr:name#-{- | The name of the action.  This is mostly meaningful for identifying-the action once it has been added to a 'GI.Gio.Interfaces.ActionGroup.ActionGroup'. It is immutable.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    ActionNamePropertyInfo                  ,-#endif-#if ENABLE_OVERLOADING-    actionName                              ,-#endif-    getActionName                           ,----- ** parameterType #attr:parameterType#-{- | The type of the parameter that must be given when activating the-action. This is immutable, and may be 'Nothing' if no parameter is needed when-activating the action.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    ActionParameterTypePropertyInfo         ,-#endif-#if ENABLE_OVERLOADING-    actionParameterType                     ,-#endif-    getActionParameterType                  ,----- ** state #attr:state#-{- | The state of the action, or 'Nothing' if the action is stateless.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    ActionStatePropertyInfo                 ,-#endif-#if ENABLE_OVERLOADING-    actionState                             ,-#endif-    getActionState                          ,----- ** stateType #attr:stateType#-{- | The 'GI.GLib.Structs.VariantType.VariantType' of the state that the action has, or 'Nothing' if the-action is stateless. This is immutable.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    ActionStateTypePropertyInfo             ,-#endif-#if ENABLE_OVERLOADING-    actionStateType                         ,-#endif-    getActionStateType                      ,-----    ) 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.GObject.Objects.Object as GObject.Object---- interface Action --- | Memory-managed wrapper type.-newtype Action = Action (ManagedPtr Action)--- | A convenience alias for `Nothing` :: `Maybe` `Action`.-noAction :: Maybe Action-noAction = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList Action = ActionSignalList-type ActionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_action_get_type"-    c_g_action_get_type :: IO GType--instance GObject Action where-    gobjectType = c_g_action_get_type-    ---- | Type class for types which can be safely cast to `Action`, for instance with `toAction`.-class (GObject o, O.IsDescendantOf Action o) => IsAction o-instance (GObject o, O.IsDescendantOf Action o) => IsAction o--instance O.HasParentTypes Action-type instance O.ParentTypes Action = '[GObject.Object.Object]---- | Cast to `Action`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAction :: (MonadIO m, IsAction o) => o -> m Action-toAction = liftIO . unsafeCastTo Action---- VVV Prop "enabled"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@enabled@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' action #enabled-@--}-getActionEnabled :: (MonadIO m, IsAction o) => o -> m Bool-getActionEnabled obj = liftIO $ B.Properties.getObjectPropertyBool obj "enabled"--#if ENABLE_OVERLOADING-data ActionEnabledPropertyInfo-instance AttrInfo ActionEnabledPropertyInfo where-    type AttrAllowedOps ActionEnabledPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ActionEnabledPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionEnabledPropertyInfo = IsAction-    type AttrGetType ActionEnabledPropertyInfo = Bool-    type AttrLabel ActionEnabledPropertyInfo = "enabled"-    type AttrOrigin ActionEnabledPropertyInfo = Action-    attrGet _ = getActionEnabled-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' action #name-@--}-getActionName :: (MonadIO m, IsAction o) => o -> m T.Text-getActionName obj = liftIO $ checkUnexpectedNothing "getActionName" $ B.Properties.getObjectPropertyString obj "name"--#if ENABLE_OVERLOADING-data ActionNamePropertyInfo-instance AttrInfo ActionNamePropertyInfo where-    type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionNamePropertyInfo = IsAction-    type AttrGetType ActionNamePropertyInfo = T.Text-    type AttrLabel ActionNamePropertyInfo = "name"-    type AttrOrigin ActionNamePropertyInfo = Action-    attrGet _ = getActionName-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "parameter-type"-   -- Type: TInterface (Name {namespace = "GLib", name = "VariantType"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@parameter-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' action #parameterType-@--}-getActionParameterType :: (MonadIO m, IsAction o) => o -> m (Maybe GLib.VariantType.VariantType)-getActionParameterType obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "parameter-type" GLib.VariantType.VariantType--#if ENABLE_OVERLOADING-data ActionParameterTypePropertyInfo-instance AttrInfo ActionParameterTypePropertyInfo where-    type AttrAllowedOps ActionParameterTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionParameterTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionParameterTypePropertyInfo = IsAction-    type AttrGetType ActionParameterTypePropertyInfo = (Maybe GLib.VariantType.VariantType)-    type AttrLabel ActionParameterTypePropertyInfo = "parameter-type"-    type AttrOrigin ActionParameterTypePropertyInfo = Action-    attrGet _ = getActionParameterType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "state"-   -- Type: TVariant-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@state@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' action #state-@--}-getActionState :: (MonadIO m, IsAction o) => o -> m (Maybe GVariant)-getActionState obj = liftIO $ B.Properties.getObjectPropertyVariant obj "state"--#if ENABLE_OVERLOADING-data ActionStatePropertyInfo-instance AttrInfo ActionStatePropertyInfo where-    type AttrAllowedOps ActionStatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionStatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionStatePropertyInfo = IsAction-    type AttrGetType ActionStatePropertyInfo = (Maybe GVariant)-    type AttrLabel ActionStatePropertyInfo = "state"-    type AttrOrigin ActionStatePropertyInfo = Action-    attrGet _ = getActionState-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "state-type"-   -- Type: TInterface (Name {namespace = "GLib", name = "VariantType"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@state-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' action #stateType-@--}-getActionStateType :: (MonadIO m, IsAction o) => o -> m (Maybe GLib.VariantType.VariantType)-getActionStateType obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "state-type" GLib.VariantType.VariantType--#if ENABLE_OVERLOADING-data ActionStateTypePropertyInfo-instance AttrInfo ActionStateTypePropertyInfo where-    type AttrAllowedOps ActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionStateTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ActionStateTypePropertyInfo = IsAction-    type AttrGetType ActionStateTypePropertyInfo = (Maybe GLib.VariantType.VariantType)-    type AttrLabel ActionStateTypePropertyInfo = "state-type"-    type AttrOrigin ActionStateTypePropertyInfo = Action-    attrGet _ = getActionStateType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Action-type instance O.AttributeList Action = ActionAttributeList-type ActionAttributeList = ('[ '("enabled", ActionEnabledPropertyInfo), '("name", ActionNamePropertyInfo), '("parameterType", ActionParameterTypePropertyInfo), '("state", ActionStatePropertyInfo), '("stateType", ActionStateTypePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-actionEnabled :: AttrLabelProxy "enabled"-actionEnabled = AttrLabelProxy--actionName :: AttrLabelProxy "name"-actionName = AttrLabelProxy--actionParameterType :: AttrLabelProxy "parameterType"-actionParameterType = AttrLabelProxy--actionState :: AttrLabelProxy "state"-actionState = AttrLabelProxy--actionStateType :: AttrLabelProxy "stateType"-actionStateType = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionMethod "activate" o = ActionActivateMethodInfo-    ResolveActionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveActionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveActionMethod "changeState" o = ActionChangeStateMethodInfo-    ResolveActionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveActionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveActionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveActionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveActionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveActionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveActionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveActionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveActionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveActionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveActionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveActionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveActionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveActionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveActionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveActionMethod "getEnabled" o = ActionGetEnabledMethodInfo-    ResolveActionMethod "getName" o = ActionGetNameMethodInfo-    ResolveActionMethod "getParameterType" o = ActionGetParameterTypeMethodInfo-    ResolveActionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveActionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveActionMethod "getState" o = ActionGetStateMethodInfo-    ResolveActionMethod "getStateHint" o = ActionGetStateHintMethodInfo-    ResolveActionMethod "getStateType" o = ActionGetStateTypeMethodInfo-    ResolveActionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveActionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveActionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveActionMethod t Action, O.MethodInfo info Action p) => OL.IsLabel t (Action -> 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 Action::activate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the parameter to the activation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_activate" g_action_activate :: -    Ptr Action ->                           -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    Ptr GVariant ->                         -- parameter : TVariant-    IO ()--{- |-Activates the action.--/@parameter@/ must be the correct type of parameter for the action (ie:-the parameter type given at construction time).  If the parameter-type was 'Nothing' then /@parameter@/ must also be 'Nothing'.--If the /@parameter@/ GVariant is floating, it is consumed.--/Since: 2.28/--}-actionActivate ::-    (B.CallStack.HasCallStack, MonadIO m, IsAction a) =>-    a-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> Maybe (GVariant)-    {- ^ /@parameter@/: the parameter to the activation -}-    -> m ()-actionActivate action parameter = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    maybeParameter <- case parameter of-        Nothing -> return nullPtr-        Just jParameter -> do-            jParameter' <- unsafeManagedPtrGetPtr jParameter-            return jParameter'-    g_action_activate action' maybeParameter-    touchManagedPtr action-    whenJust parameter touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data ActionActivateMethodInfo-instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionActivateMethodInfo a signature where-    overloadedMethod _ = actionActivate--#endif---- method Action::change_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", 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 new state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_change_state" g_action_change_state :: -    Ptr Action ->                           -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    Ptr GVariant ->                         -- value : TVariant-    IO ()--{- |-Request for the state of /@action@/ to be changed to /@value@/.--The action must be stateful and /@value@/ must be of the correct type.-See 'GI.Gio.Interfaces.Action.actionGetStateType'.--This call merely requests a change.  The action may refuse to change-its state or may change its state to something other than /@value@/.-See 'GI.Gio.Interfaces.Action.actionGetStateHint'.--If the /@value@/ GVariant is floating, it is consumed.--/Since: 2.30/--}-actionChangeState ::-    (B.CallStack.HasCallStack, MonadIO m, IsAction a) =>-    a-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> GVariant-    {- ^ /@value@/: the new state -}-    -> m ()-actionChangeState action value = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    value' <- unsafeManagedPtrGetPtr value-    g_action_change_state action' value'-    touchManagedPtr action-    touchManagedPtr value-    return ()--#if ENABLE_OVERLOADING-data ActionChangeStateMethodInfo-instance (signature ~ (GVariant -> m ()), MonadIO m, IsAction a) => O.MethodInfo ActionChangeStateMethodInfo a signature where-    overloadedMethod _ = actionChangeState--#endif---- method Action::get_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", 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 "g_action_get_enabled" g_action_get_enabled :: -    Ptr Action ->                           -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    IO CInt--{- |-Checks if /@action@/ is currently enabled.--An action must be enabled in order to be activated or in order to-have its state changed from outside callers.--/Since: 2.28/--}-actionGetEnabled ::-    (B.CallStack.HasCallStack, MonadIO m, IsAction a) =>-    a-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> m Bool-    {- ^ __Returns:__ whether the action is enabled -}-actionGetEnabled action = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    result <- g_action_get_enabled action'-    let result' = (/= 0) result-    touchManagedPtr action-    return result'--#if ENABLE_OVERLOADING-data ActionGetEnabledMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAction a) => O.MethodInfo ActionGetEnabledMethodInfo a signature where-    overloadedMethod _ = actionGetEnabled--#endif---- method Action::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", 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 "g_action_get_name" g_action_get_name :: -    Ptr Action ->                           -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    IO CString--{- |-Queries the name of /@action@/.--/Since: 2.28/--}-actionGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsAction a) =>-    a-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> m T.Text-    {- ^ __Returns:__ the name of the action -}-actionGetName action = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    result <- g_action_get_name action'-    checkUnexpectedReturnNULL "actionGetName" result-    result' <- cstringToText result-    touchManagedPtr action-    return result'--#if ENABLE_OVERLOADING-data ActionGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAction a) => O.MethodInfo ActionGetNameMethodInfo a signature where-    overloadedMethod _ = actionGetName--#endif---- method Action::get_parameter_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", 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 "g_action_get_parameter_type" g_action_get_parameter_type :: -    Ptr Action ->                           -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    IO (Ptr GLib.VariantType.VariantType)--{- |-Queries the type of the parameter that must be given when activating-/@action@/.--When activating the action using 'GI.Gio.Interfaces.Action.actionActivate', the 'GVariant'-given to that function must be of the type returned by this function.--In the case that this function returns 'Nothing', you must not give any-'GVariant', but 'Nothing' instead.--/Since: 2.28/--}-actionGetParameterType ::-    (B.CallStack.HasCallStack, MonadIO m, IsAction a) =>-    a-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> m (Maybe GLib.VariantType.VariantType)-    {- ^ __Returns:__ the parameter type -}-actionGetParameterType action = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    result <- g_action_get_parameter_type action'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.VariantType.VariantType) result'-        return result''-    touchManagedPtr action-    return maybeResult--#if ENABLE_OVERLOADING-data ActionGetParameterTypeMethodInfo-instance (signature ~ (m (Maybe GLib.VariantType.VariantType)), MonadIO m, IsAction a) => O.MethodInfo ActionGetParameterTypeMethodInfo a signature where-    overloadedMethod _ = actionGetParameterType--#endif---- method Action::get_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_action_get_state" g_action_get_state :: -    Ptr Action ->                           -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    IO (Ptr GVariant)--{- |-Queries the current state of /@action@/.--If the action is not stateful then 'Nothing' will be returned.  If the-action is stateful then the type of the return value is the type-given by 'GI.Gio.Interfaces.Action.actionGetStateType'.--The return value (if non-'Nothing') should be freed with-'GI.GLib.Structs.Variant.variantUnref' when it is no longer required.--/Since: 2.28/--}-actionGetState ::-    (B.CallStack.HasCallStack, MonadIO m, IsAction a) =>-    a-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> m GVariant-    {- ^ __Returns:__ the current state of the action -}-actionGetState action = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    result <- g_action_get_state action'-    checkUnexpectedReturnNULL "actionGetState" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr action-    return result'--#if ENABLE_OVERLOADING-data ActionGetStateMethodInfo-instance (signature ~ (m GVariant), MonadIO m, IsAction a) => O.MethodInfo ActionGetStateMethodInfo a signature where-    overloadedMethod _ = actionGetState--#endif---- method Action::get_state_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_action_get_state_hint" g_action_get_state_hint :: -    Ptr Action ->                           -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    IO (Ptr GVariant)--{- |-Requests a hint about the valid range of values for the state of-/@action@/.--If 'Nothing' is returned it either means that the action is not stateful-or that there is no hint about the valid range of values for the-state of the action.--If a 'GVariant' array is returned then each item in the array is a-possible value for the state.  If a 'GVariant' pair (ie: two-tuple) is-returned then the tuple specifies the inclusive lower and upper bound-of valid values for the state.--In any case, the information is merely a hint.  It may be possible to-have a state value outside of the hinted range and setting a value-within the range may fail.--The return value (if non-'Nothing') should be freed with-'GI.GLib.Structs.Variant.variantUnref' when it is no longer required.--/Since: 2.28/--}-actionGetStateHint ::-    (B.CallStack.HasCallStack, MonadIO m, IsAction a) =>-    a-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> m (Maybe GVariant)-    {- ^ __Returns:__ the state range hint -}-actionGetStateHint action = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    result <- g_action_get_state_hint action'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- B.GVariant.wrapGVariantPtr result'-        return result''-    touchManagedPtr action-    return maybeResult--#if ENABLE_OVERLOADING-data ActionGetStateHintMethodInfo-instance (signature ~ (m (Maybe GVariant)), MonadIO m, IsAction a) => O.MethodInfo ActionGetStateHintMethodInfo a signature where-    overloadedMethod _ = actionGetStateHint--#endif---- method Action::get_state_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", 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 "g_action_get_state_type" g_action_get_state_type :: -    Ptr Action ->                           -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    IO (Ptr GLib.VariantType.VariantType)--{- |-Queries the type of the state of /@action@/.--If the action is stateful (e.g. created with-'GI.Gio.Objects.SimpleAction.simpleActionNewStateful') then this function returns the-'GI.GLib.Structs.VariantType.VariantType' of the state.  This is the type of the initial value-given as the state. All calls to 'GI.Gio.Interfaces.Action.actionChangeState' must give a-'GVariant' of this type and 'GI.Gio.Interfaces.Action.actionGetState' will return a-'GVariant' of the same type.--If the action is not stateful (e.g. created with 'GI.Gio.Objects.SimpleAction.simpleActionNew')-then this function will return 'Nothing'. In that case, 'GI.Gio.Interfaces.Action.actionGetState'-will return 'Nothing' and you must not call 'GI.Gio.Interfaces.Action.actionChangeState'.--/Since: 2.28/--}-actionGetStateType ::-    (B.CallStack.HasCallStack, MonadIO m, IsAction a) =>-    a-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> m (Maybe GLib.VariantType.VariantType)-    {- ^ __Returns:__ the state type, if the action is stateful -}-actionGetStateType action = liftIO $ do-    action' <- unsafeManagedPtrCastPtr action-    result <- g_action_get_state_type action'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.VariantType.VariantType) result'-        return result''-    touchManagedPtr action-    return maybeResult--#if ENABLE_OVERLOADING-data ActionGetStateTypeMethodInfo-instance (signature ~ (m (Maybe GLib.VariantType.VariantType)), MonadIO m, IsAction a) => O.MethodInfo ActionGetStateTypeMethodInfo a signature where-    overloadedMethod _ = actionGetStateType--#endif---- method Action::name_is_valid--- method type : MemberFunction--- Args : [Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an potential action name", 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 "g_action_name_is_valid" g_action_name_is_valid :: -    CString ->                              -- action_name : TBasicType TUTF8-    IO CInt--{- |-Checks if /@actionName@/ is valid.--/@actionName@/ is valid if it consists only of alphanumeric characters,-plus \'-\' and \'.\'.  The empty string is not a valid action name.--It is an error to call this function with a non-utf8 /@actionName@/.-/@actionName@/ must not be 'Nothing'.--/Since: 2.38/--}-actionNameIsValid ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@actionName@/: an potential action name -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@actionName@/ is valid -}-actionNameIsValid actionName = liftIO $ do-    actionName' <- textToCString actionName-    result <- g_action_name_is_valid actionName'-    let result' = (/= 0) result-    freeMem actionName'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Action::parse_detailed_name--- method type : MemberFunction--- Args : [Arg {argCName = "detailed_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a detailed action name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the action name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "target_value", argType = TVariant, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the target value, or %NULL for no target", 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 "g_action_parse_detailed_name" g_action_parse_detailed_name :: -    CString ->                              -- detailed_name : TBasicType TUTF8-    Ptr CString ->                          -- action_name : TBasicType TUTF8-    Ptr (Ptr GVariant) ->                   -- target_value : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Parses a detailed action name into its separate name and target-components.--Detailed action names can have three formats.--The first format is used to represent an action name with no target-value and consists of just an action name containing no whitespace-nor the characters \':\', \'(\' or \')\'.  For example: \"app.action\".--The second format is used to represent an action with a target value-that is a non-empty string consisting only of alphanumerics, plus \'-\'-and \'.\'.  In that case, the action name and target value are-separated by a double colon (\"::\").  For example:-\"app.action::target\".--The third format is used to represent an action with any type of-target value, including strings.  The target value follows the action-name, surrounded in parens.  For example: \"app.action(42)\".  The-target value is parsed using 'GI.GLib.Functions.variantParse'.  If a tuple-typed-value is desired, it must be specified in the same way, resulting in-two sets of parens, for example: \"app.action((1,2,3))\".  A string-target can be specified this way as well: \"app.action(\'target\')\".-For strings, this third format must be used if * target value is-empty or contains characters other than alphanumerics, \'-\' and \'.\'.--/Since: 2.38/--}-actionParseDetailedName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@detailedName@/: a detailed action name -}-    -> m ((T.Text, GVariant))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-actionParseDetailedName detailedName = liftIO $ do-    detailedName' <- textToCString detailedName-    actionName <- allocMem :: IO (Ptr CString)-    targetValue <- allocMem :: IO (Ptr (Ptr GVariant))-    onException (do-        _ <- propagateGError $ g_action_parse_detailed_name detailedName' actionName targetValue-        actionName' <- peek actionName-        actionName'' <- cstringToText actionName'-        freeMem actionName'-        targetValue' <- peek targetValue-        targetValue'' <- B.GVariant.wrapGVariantPtr targetValue'-        freeMem detailedName'-        freeMem actionName-        freeMem targetValue-        return (actionName'', targetValue'')-     ) (do-        freeMem detailedName'-        freeMem actionName-        freeMem targetValue-     )--#if ENABLE_OVERLOADING-#endif---- method Action::print_detailed_name--- method type : MemberFunction--- Args : [Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid action name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant target value, or %NULL", 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 "g_action_print_detailed_name" g_action_print_detailed_name :: -    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- target_value : TVariant-    IO CString--{- |-Formats a detailed action name from /@actionName@/ and /@targetValue@/.--It is an error to call this function with an invalid action name.--This function is the opposite of 'GI.Gio.Functions.actionParseDetailedName'.-It will produce a string that can be parsed back to the /@actionName@/-and /@targetValue@/ by that function.--See that function for the types of strings that will be printed by-this function.--/Since: 2.38/--}-actionPrintDetailedName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@actionName@/: a valid action name -}-    -> Maybe (GVariant)-    {- ^ /@targetValue@/: a 'GVariant' target value, or 'Nothing' -}-    -> m T.Text-    {- ^ __Returns:__ a detailed format string -}-actionPrintDetailedName actionName targetValue = liftIO $ do-    actionName' <- textToCString actionName-    maybeTargetValue <- case targetValue of-        Nothing -> return nullPtr-        Just jTargetValue -> do-            jTargetValue' <- unsafeManagedPtrGetPtr jTargetValue-            return jTargetValue'-    result <- g_action_print_detailed_name actionName' maybeTargetValue-    checkUnexpectedReturnNULL "actionPrintDetailedName" result-    result' <- cstringToText result-    freeMem result-    whenJust targetValue touchManagedPtr-    freeMem actionName'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/Action.hs-boot 
@@ -1,68 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Action 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 Action = Action (ManagedPtr Action)-instance GObject Action where-class (GObject o, O.IsDescendantOf Action o) => IsAction o-instance (GObject o, O.IsDescendantOf Action o) => IsAction o-instance O.HasParentTypes Action-#if ENABLE_OVERLOADING-data ActionEnabledPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ActionNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ActionParameterTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ActionStatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ActionStateTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ActionActivateMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionChangeStateMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGetEnabledMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGetParameterTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGetStateMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGetStateHintMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGetStateTypeMethodInfo-#endif
− GI/Gio/Interfaces/ActionGroup.hs 
@@ -1,1424 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.ActionGroup.ActionGroup' represents a group of actions. Actions can be used to-expose functionality in a structured way, either from one part of a-program to another, or to the outside world. Action groups are often-used together with a 'GI.Gio.Objects.MenuModel.MenuModel' that provides additional-representation data for displaying the actions to the user, e.g. in-a menu.--The main way to interact with the actions in a GActionGroup is to-activate them with 'GI.Gio.Interfaces.ActionGroup.actionGroupActivateAction'. Activating an-action may require a 'GVariant' parameter. The required type of the-parameter can be inquired with 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionParameterType'.-Actions may be disabled, see 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionEnabled'.-Activating a disabled action has no effect.--Actions may optionally have a state in the form of a 'GVariant'. The-current state of an action can be inquired with-'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionState'. Activating a stateful action may-change its state, but it is also possible to set the state by calling-'GI.Gio.Interfaces.ActionGroup.actionGroupChangeActionState'.--As typical example, consider a text editing application which has an-option to change the current font to \'bold\'. A good way to represent-this would be a stateful action, with a boolean state. Activating the-action would toggle the state.--Each action in the group has a unique name (which is a string).  All-method calls, except 'GI.Gio.Interfaces.ActionGroup.actionGroupListActions' take the name of-an action as an argument.--The 'GI.Gio.Interfaces.ActionGroup.ActionGroup' API is meant to be the \'public\' API to the action-group.  The calls here are exactly the interaction that \'external-forces\' (eg: UI, incoming D-Bus messages, etc.) are supposed to have-with actions.  \'Internal\' APIs (ie: ones meant only to be accessed by-the action group implementation) are found on subclasses.  This is-why you will find - for example - 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionEnabled'-but not an equivalent @/set()/@ call.--Signals are emitted on the action group in response to state changes-on individual actions.--Implementations of 'GI.Gio.Interfaces.ActionGroup.ActionGroup' should provide implementations for-the virtual functions 'GI.Gio.Interfaces.ActionGroup.actionGroupListActions' and-'GI.Gio.Interfaces.ActionGroup.actionGroupQueryAction'.  The other virtual functions should-not be implemented - their \"wrappers\" are actually implemented with-calls to 'GI.Gio.Interfaces.ActionGroup.actionGroupQueryAction'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.ActionGroup-    ( ---- * Exported types-    ActionGroup(..)                         ,-    noActionGroup                           ,-    IsActionGroup                           ,-    toActionGroup                           ,--- -- * Methods--- ** actionAdded #method:actionAdded#--#if ENABLE_OVERLOADING-    ActionGroupActionAddedMethodInfo        ,-#endif-    actionGroupActionAdded                  ,----- ** actionEnabledChanged #method:actionEnabledChanged#--#if ENABLE_OVERLOADING-    ActionGroupActionEnabledChangedMethodInfo,-#endif-    actionGroupActionEnabledChanged         ,----- ** actionRemoved #method:actionRemoved#--#if ENABLE_OVERLOADING-    ActionGroupActionRemovedMethodInfo      ,-#endif-    actionGroupActionRemoved                ,----- ** actionStateChanged #method:actionStateChanged#--#if ENABLE_OVERLOADING-    ActionGroupActionStateChangedMethodInfo ,-#endif-    actionGroupActionStateChanged           ,----- ** activateAction #method:activateAction#--#if ENABLE_OVERLOADING-    ActionGroupActivateActionMethodInfo     ,-#endif-    actionGroupActivateAction               ,----- ** changeActionState #method:changeActionState#--#if ENABLE_OVERLOADING-    ActionGroupChangeActionStateMethodInfo  ,-#endif-    actionGroupChangeActionState            ,----- ** getActionEnabled #method:getActionEnabled#--#if ENABLE_OVERLOADING-    ActionGroupGetActionEnabledMethodInfo   ,-#endif-    actionGroupGetActionEnabled             ,----- ** getActionParameterType #method:getActionParameterType#--#if ENABLE_OVERLOADING-    ActionGroupGetActionParameterTypeMethodInfo,-#endif-    actionGroupGetActionParameterType       ,----- ** getActionState #method:getActionState#--#if ENABLE_OVERLOADING-    ActionGroupGetActionStateMethodInfo     ,-#endif-    actionGroupGetActionState               ,----- ** getActionStateHint #method:getActionStateHint#--#if ENABLE_OVERLOADING-    ActionGroupGetActionStateHintMethodInfo ,-#endif-    actionGroupGetActionStateHint           ,----- ** getActionStateType #method:getActionStateType#--#if ENABLE_OVERLOADING-    ActionGroupGetActionStateTypeMethodInfo ,-#endif-    actionGroupGetActionStateType           ,----- ** hasAction #method:hasAction#--#if ENABLE_OVERLOADING-    ActionGroupHasActionMethodInfo          ,-#endif-    actionGroupHasAction                    ,----- ** listActions #method:listActions#--#if ENABLE_OVERLOADING-    ActionGroupListActionsMethodInfo        ,-#endif-    actionGroupListActions                  ,----- ** queryAction #method:queryAction#--#if ENABLE_OVERLOADING-    ActionGroupQueryActionMethodInfo        ,-#endif-    actionGroupQueryAction                  ,----- -- * Signals--- ** actionAdded #signal:actionAdded#--    ActionGroupActionAddedCallback          ,-#if ENABLE_OVERLOADING-    ActionGroupActionAddedSignalInfo        ,-#endif-    C_ActionGroupActionAddedCallback        ,-    afterActionGroupActionAdded             ,-    genClosure_ActionGroupActionAdded       ,-    mk_ActionGroupActionAddedCallback       ,-    noActionGroupActionAddedCallback        ,-    onActionGroupActionAdded                ,-    wrap_ActionGroupActionAddedCallback     ,----- ** actionEnabledChanged #signal:actionEnabledChanged#--    ActionGroupActionEnabledChangedCallback ,-#if ENABLE_OVERLOADING-    ActionGroupActionEnabledChangedSignalInfo,-#endif-    C_ActionGroupActionEnabledChangedCallback,-    afterActionGroupActionEnabledChanged    ,-    genClosure_ActionGroupActionEnabledChanged,-    mk_ActionGroupActionEnabledChangedCallback,-    noActionGroupActionEnabledChangedCallback,-    onActionGroupActionEnabledChanged       ,-    wrap_ActionGroupActionEnabledChangedCallback,----- ** actionRemoved #signal:actionRemoved#--    ActionGroupActionRemovedCallback        ,-#if ENABLE_OVERLOADING-    ActionGroupActionRemovedSignalInfo      ,-#endif-    C_ActionGroupActionRemovedCallback      ,-    afterActionGroupActionRemoved           ,-    genClosure_ActionGroupActionRemoved     ,-    mk_ActionGroupActionRemovedCallback     ,-    noActionGroupActionRemovedCallback      ,-    onActionGroupActionRemoved              ,-    wrap_ActionGroupActionRemovedCallback   ,----- ** actionStateChanged #signal:actionStateChanged#--    ActionGroupActionStateChangedCallback   ,-#if ENABLE_OVERLOADING-    ActionGroupActionStateChangedSignalInfo ,-#endif-    C_ActionGroupActionStateChangedCallback ,-    afterActionGroupActionStateChanged      ,-    genClosure_ActionGroupActionStateChanged,-    mk_ActionGroupActionStateChangedCallback,-    noActionGroupActionStateChangedCallback ,-    onActionGroupActionStateChanged         ,-    wrap_ActionGroupActionStateChangedCallback,-----    ) 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.GObject.Objects.Object as GObject.Object---- interface ActionGroup --- | Memory-managed wrapper type.-newtype ActionGroup = ActionGroup (ManagedPtr ActionGroup)--- | A convenience alias for `Nothing` :: `Maybe` `ActionGroup`.-noActionGroup :: Maybe ActionGroup-noActionGroup = Nothing---- signal ActionGroup::action-added-{- |-Signals that a new action was just added to the group.-This signal is emitted after the action has been added-and is now visible.--/Since: 2.28/--}-type ActionGroupActionAddedCallback =-    T.Text-    {- ^ /@actionName@/: the name of the action in /@actionGroup@/ -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ActionGroupActionAddedCallback`@.-noActionGroupActionAddedCallback :: Maybe ActionGroupActionAddedCallback-noActionGroupActionAddedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ActionGroupActionAddedCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ActionGroupActionAddedCallback`.-foreign import ccall "wrapper"-    mk_ActionGroupActionAddedCallback :: C_ActionGroupActionAddedCallback -> IO (FunPtr C_ActionGroupActionAddedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ActionGroupActionAdded :: MonadIO m => ActionGroupActionAddedCallback -> m (GClosure C_ActionGroupActionAddedCallback)-genClosure_ActionGroupActionAdded cb = liftIO $ do-    let cb' = wrap_ActionGroupActionAddedCallback cb-    mk_ActionGroupActionAddedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ActionGroupActionAddedCallback` into a `C_ActionGroupActionAddedCallback`.-wrap_ActionGroupActionAddedCallback ::-    ActionGroupActionAddedCallback ->-    C_ActionGroupActionAddedCallback-wrap_ActionGroupActionAddedCallback _cb _ actionName _ = do-    actionName' <- cstringToText actionName-    _cb  actionName'---{- |-Connect a signal handler for the “@action-added@” 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' actionGroup #actionAdded callback-@--}-onActionGroupActionAdded :: (IsActionGroup a, MonadIO m) => a -> ActionGroupActionAddedCallback -> m SignalHandlerId-onActionGroupActionAdded obj cb = liftIO $ do-    let cb' = wrap_ActionGroupActionAddedCallback cb-    cb'' <- mk_ActionGroupActionAddedCallback cb'-    connectSignalFunPtr obj "action-added" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@action-added@” 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' actionGroup #actionAdded callback-@--}-afterActionGroupActionAdded :: (IsActionGroup a, MonadIO m) => a -> ActionGroupActionAddedCallback -> m SignalHandlerId-afterActionGroupActionAdded obj cb = liftIO $ do-    let cb' = wrap_ActionGroupActionAddedCallback cb-    cb'' <- mk_ActionGroupActionAddedCallback cb'-    connectSignalFunPtr obj "action-added" cb'' SignalConnectAfter----- signal ActionGroup::action-enabled-changed-{- |-Signals that the enabled status of the named action has changed.--/Since: 2.28/--}-type ActionGroupActionEnabledChangedCallback =-    T.Text-    {- ^ /@actionName@/: the name of the action in /@actionGroup@/ -}-    -> Bool-    {- ^ /@enabled@/: whether the action is enabled or not -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ActionGroupActionEnabledChangedCallback`@.-noActionGroupActionEnabledChangedCallback :: Maybe ActionGroupActionEnabledChangedCallback-noActionGroupActionEnabledChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ActionGroupActionEnabledChangedCallback =-    Ptr () ->                               -- object-    CString ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ActionGroupActionEnabledChangedCallback`.-foreign import ccall "wrapper"-    mk_ActionGroupActionEnabledChangedCallback :: C_ActionGroupActionEnabledChangedCallback -> IO (FunPtr C_ActionGroupActionEnabledChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ActionGroupActionEnabledChanged :: MonadIO m => ActionGroupActionEnabledChangedCallback -> m (GClosure C_ActionGroupActionEnabledChangedCallback)-genClosure_ActionGroupActionEnabledChanged cb = liftIO $ do-    let cb' = wrap_ActionGroupActionEnabledChangedCallback cb-    mk_ActionGroupActionEnabledChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ActionGroupActionEnabledChangedCallback` into a `C_ActionGroupActionEnabledChangedCallback`.-wrap_ActionGroupActionEnabledChangedCallback ::-    ActionGroupActionEnabledChangedCallback ->-    C_ActionGroupActionEnabledChangedCallback-wrap_ActionGroupActionEnabledChangedCallback _cb _ actionName enabled _ = do-    actionName' <- cstringToText actionName-    let enabled' = (/= 0) enabled-    _cb  actionName' enabled'---{- |-Connect a signal handler for the “@action-enabled-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' actionGroup #actionEnabledChanged callback-@--}-onActionGroupActionEnabledChanged :: (IsActionGroup a, MonadIO m) => a -> ActionGroupActionEnabledChangedCallback -> m SignalHandlerId-onActionGroupActionEnabledChanged obj cb = liftIO $ do-    let cb' = wrap_ActionGroupActionEnabledChangedCallback cb-    cb'' <- mk_ActionGroupActionEnabledChangedCallback cb'-    connectSignalFunPtr obj "action-enabled-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@action-enabled-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' actionGroup #actionEnabledChanged callback-@--}-afterActionGroupActionEnabledChanged :: (IsActionGroup a, MonadIO m) => a -> ActionGroupActionEnabledChangedCallback -> m SignalHandlerId-afterActionGroupActionEnabledChanged obj cb = liftIO $ do-    let cb' = wrap_ActionGroupActionEnabledChangedCallback cb-    cb'' <- mk_ActionGroupActionEnabledChangedCallback cb'-    connectSignalFunPtr obj "action-enabled-changed" cb'' SignalConnectAfter----- signal ActionGroup::action-removed-{- |-Signals that an action is just about to be removed from the group.-This signal is emitted before the action is removed, so the action-is still visible and can be queried from the signal handler.--/Since: 2.28/--}-type ActionGroupActionRemovedCallback =-    T.Text-    {- ^ /@actionName@/: the name of the action in /@actionGroup@/ -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ActionGroupActionRemovedCallback`@.-noActionGroupActionRemovedCallback :: Maybe ActionGroupActionRemovedCallback-noActionGroupActionRemovedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ActionGroupActionRemovedCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ActionGroupActionRemovedCallback`.-foreign import ccall "wrapper"-    mk_ActionGroupActionRemovedCallback :: C_ActionGroupActionRemovedCallback -> IO (FunPtr C_ActionGroupActionRemovedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ActionGroupActionRemoved :: MonadIO m => ActionGroupActionRemovedCallback -> m (GClosure C_ActionGroupActionRemovedCallback)-genClosure_ActionGroupActionRemoved cb = liftIO $ do-    let cb' = wrap_ActionGroupActionRemovedCallback cb-    mk_ActionGroupActionRemovedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ActionGroupActionRemovedCallback` into a `C_ActionGroupActionRemovedCallback`.-wrap_ActionGroupActionRemovedCallback ::-    ActionGroupActionRemovedCallback ->-    C_ActionGroupActionRemovedCallback-wrap_ActionGroupActionRemovedCallback _cb _ actionName _ = do-    actionName' <- cstringToText actionName-    _cb  actionName'---{- |-Connect a signal handler for the “@action-removed@” 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' actionGroup #actionRemoved callback-@--}-onActionGroupActionRemoved :: (IsActionGroup a, MonadIO m) => a -> ActionGroupActionRemovedCallback -> m SignalHandlerId-onActionGroupActionRemoved obj cb = liftIO $ do-    let cb' = wrap_ActionGroupActionRemovedCallback cb-    cb'' <- mk_ActionGroupActionRemovedCallback cb'-    connectSignalFunPtr obj "action-removed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@action-removed@” 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' actionGroup #actionRemoved callback-@--}-afterActionGroupActionRemoved :: (IsActionGroup a, MonadIO m) => a -> ActionGroupActionRemovedCallback -> m SignalHandlerId-afterActionGroupActionRemoved obj cb = liftIO $ do-    let cb' = wrap_ActionGroupActionRemovedCallback cb-    cb'' <- mk_ActionGroupActionRemovedCallback cb'-    connectSignalFunPtr obj "action-removed" cb'' SignalConnectAfter----- signal ActionGroup::action-state-changed-{- |-Signals that the state of the named action has changed.--/Since: 2.28/--}-type ActionGroupActionStateChangedCallback =-    T.Text-    {- ^ /@actionName@/: the name of the action in /@actionGroup@/ -}-    -> GVariant-    {- ^ /@value@/: the new value of the state -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ActionGroupActionStateChangedCallback`@.-noActionGroupActionStateChangedCallback :: Maybe ActionGroupActionStateChangedCallback-noActionGroupActionStateChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ActionGroupActionStateChangedCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ActionGroupActionStateChangedCallback`.-foreign import ccall "wrapper"-    mk_ActionGroupActionStateChangedCallback :: C_ActionGroupActionStateChangedCallback -> IO (FunPtr C_ActionGroupActionStateChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ActionGroupActionStateChanged :: MonadIO m => ActionGroupActionStateChangedCallback -> m (GClosure C_ActionGroupActionStateChangedCallback)-genClosure_ActionGroupActionStateChanged cb = liftIO $ do-    let cb' = wrap_ActionGroupActionStateChangedCallback cb-    mk_ActionGroupActionStateChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ActionGroupActionStateChangedCallback` into a `C_ActionGroupActionStateChangedCallback`.-wrap_ActionGroupActionStateChangedCallback ::-    ActionGroupActionStateChangedCallback ->-    C_ActionGroupActionStateChangedCallback-wrap_ActionGroupActionStateChangedCallback _cb _ actionName value _ = do-    actionName' <- cstringToText actionName-    value' <- B.GVariant.newGVariantFromPtr value-    _cb  actionName' value'---{- |-Connect a signal handler for the “@action-state-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' actionGroup #actionStateChanged callback-@--}-onActionGroupActionStateChanged :: (IsActionGroup a, MonadIO m) => a -> ActionGroupActionStateChangedCallback -> m SignalHandlerId-onActionGroupActionStateChanged obj cb = liftIO $ do-    let cb' = wrap_ActionGroupActionStateChangedCallback cb-    cb'' <- mk_ActionGroupActionStateChangedCallback cb'-    connectSignalFunPtr obj "action-state-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@action-state-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' actionGroup #actionStateChanged callback-@--}-afterActionGroupActionStateChanged :: (IsActionGroup a, MonadIO m) => a -> ActionGroupActionStateChangedCallback -> m SignalHandlerId-afterActionGroupActionStateChanged obj cb = liftIO $ do-    let cb' = wrap_ActionGroupActionStateChangedCallback cb-    cb'' <- mk_ActionGroupActionStateChangedCallback cb'-    connectSignalFunPtr obj "action-state-changed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data ActionGroupActionAddedSignalInfo-instance SignalInfo ActionGroupActionAddedSignalInfo where-    type HaskellCallbackType ActionGroupActionAddedSignalInfo = ActionGroupActionAddedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ActionGroupActionAddedCallback cb-        cb'' <- mk_ActionGroupActionAddedCallback cb'-        connectSignalFunPtr obj "action-added" cb'' connectMode--data ActionGroupActionEnabledChangedSignalInfo-instance SignalInfo ActionGroupActionEnabledChangedSignalInfo where-    type HaskellCallbackType ActionGroupActionEnabledChangedSignalInfo = ActionGroupActionEnabledChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ActionGroupActionEnabledChangedCallback cb-        cb'' <- mk_ActionGroupActionEnabledChangedCallback cb'-        connectSignalFunPtr obj "action-enabled-changed" cb'' connectMode--data ActionGroupActionRemovedSignalInfo-instance SignalInfo ActionGroupActionRemovedSignalInfo where-    type HaskellCallbackType ActionGroupActionRemovedSignalInfo = ActionGroupActionRemovedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ActionGroupActionRemovedCallback cb-        cb'' <- mk_ActionGroupActionRemovedCallback cb'-        connectSignalFunPtr obj "action-removed" cb'' connectMode--data ActionGroupActionStateChangedSignalInfo-instance SignalInfo ActionGroupActionStateChangedSignalInfo where-    type HaskellCallbackType ActionGroupActionStateChangedSignalInfo = ActionGroupActionStateChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ActionGroupActionStateChangedCallback cb-        cb'' <- mk_ActionGroupActionStateChangedCallback cb'-        connectSignalFunPtr obj "action-state-changed" cb'' connectMode--type instance O.SignalList ActionGroup = ActionGroupSignalList-type ActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_action_group_get_type"-    c_g_action_group_get_type :: IO GType--instance GObject ActionGroup where-    gobjectType = c_g_action_group_get_type-    ---- | Type class for types which can be safely cast to `ActionGroup`, for instance with `toActionGroup`.-class (GObject o, O.IsDescendantOf ActionGroup o) => IsActionGroup o-instance (GObject o, O.IsDescendantOf ActionGroup o) => IsActionGroup o--instance O.HasParentTypes ActionGroup-type instance O.ParentTypes ActionGroup = '[GObject.Object.Object]---- | Cast to `ActionGroup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toActionGroup :: (MonadIO m, IsActionGroup o) => o -> m ActionGroup-toActionGroup = liftIO . unsafeCastTo ActionGroup--#if ENABLE_OVERLOADING-instance O.HasAttributeList ActionGroup-type instance O.AttributeList ActionGroup = ActionGroupAttributeList-type ActionGroupAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveActionGroupMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionGroupMethod "actionAdded" o = ActionGroupActionAddedMethodInfo-    ResolveActionGroupMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo-    ResolveActionGroupMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo-    ResolveActionGroupMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo-    ResolveActionGroupMethod "activateAction" o = ActionGroupActivateActionMethodInfo-    ResolveActionGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveActionGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo-    ResolveActionGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveActionGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveActionGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo-    ResolveActionGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo-    ResolveActionGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveActionGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo-    ResolveActionGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveActionGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveActionGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveActionGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveActionGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveActionGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveActionGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveActionGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveActionGroupMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo-    ResolveActionGroupMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo-    ResolveActionGroupMethod "getActionState" o = ActionGroupGetActionStateMethodInfo-    ResolveActionGroupMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo-    ResolveActionGroupMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo-    ResolveActionGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveActionGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveActionGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveActionGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveActionGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveActionGroupMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveActionGroupMethod t ActionGroup, O.MethodInfo info ActionGroup p) => OL.IsLabel t (ActionGroup -> 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 ActionGroup::action_added--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of an action in the group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_group_action_added" g_action_group_action_added :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO ()--{- |-Emits the 'GI.Gio.Interfaces.ActionGroup.ActionGroup'::@/action-added/@ signal on /@actionGroup@/.--This function should only be called by 'GI.Gio.Interfaces.ActionGroup.ActionGroup' implementations.--/Since: 2.28/--}-actionGroupActionAdded ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of an action in the group -}-    -> m ()-actionGroupActionAdded actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    g_action_group_action_added actionGroup' actionName'-    touchManagedPtr actionGroup-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data ActionGroupActionAddedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupActionAddedMethodInfo a signature where-    overloadedMethod _ = actionGroupActionAdded--#endif---- method ActionGroup::action_enabled_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of an action in the group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether or not the action is now enabled", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_group_action_enabled_changed" g_action_group_action_enabled_changed :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()--{- |-Emits the 'GI.Gio.Interfaces.ActionGroup.ActionGroup'::@/action-enabled-changed/@ signal on /@actionGroup@/.--This function should only be called by 'GI.Gio.Interfaces.ActionGroup.ActionGroup' implementations.--/Since: 2.28/--}-actionGroupActionEnabledChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of an action in the group -}-    -> Bool-    {- ^ /@enabled@/: whether or not the action is now enabled -}-    -> m ()-actionGroupActionEnabledChanged actionGroup actionName enabled = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    let enabled' = (fromIntegral . fromEnum) enabled-    g_action_group_action_enabled_changed actionGroup' actionName' enabled'-    touchManagedPtr actionGroup-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data ActionGroupActionEnabledChangedMethodInfo-instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupActionEnabledChangedMethodInfo a signature where-    overloadedMethod _ = actionGroupActionEnabledChanged--#endif---- method ActionGroup::action_removed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of an action in the group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_group_action_removed" g_action_group_action_removed :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO ()--{- |-Emits the 'GI.Gio.Interfaces.ActionGroup.ActionGroup'::@/action-removed/@ signal on /@actionGroup@/.--This function should only be called by 'GI.Gio.Interfaces.ActionGroup.ActionGroup' implementations.--/Since: 2.28/--}-actionGroupActionRemoved ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of an action in the group -}-    -> m ()-actionGroupActionRemoved actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    g_action_group_action_removed actionGroup' actionName'-    touchManagedPtr actionGroup-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data ActionGroupActionRemovedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupActionRemovedMethodInfo a signature where-    overloadedMethod _ = actionGroupActionRemoved--#endif---- method ActionGroup::action_state_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of an action in the group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new state of the named action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_group_action_state_changed" g_action_group_action_state_changed :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- state : TVariant-    IO ()--{- |-Emits the 'GI.Gio.Interfaces.ActionGroup.ActionGroup'::@/action-state-changed/@ signal on /@actionGroup@/.--This function should only be called by 'GI.Gio.Interfaces.ActionGroup.ActionGroup' implementations.--/Since: 2.28/--}-actionGroupActionStateChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of an action in the group -}-    -> GVariant-    {- ^ /@state@/: the new state of the named action -}-    -> m ()-actionGroupActionStateChanged actionGroup actionName state = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    state' <- unsafeManagedPtrGetPtr state-    g_action_group_action_state_changed actionGroup' actionName' state'-    touchManagedPtr actionGroup-    touchManagedPtr state-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data ActionGroupActionStateChangedMethodInfo-instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupActionStateChangedMethodInfo a signature where-    overloadedMethod _ = actionGroupActionStateChanged--#endif---- method ActionGroup::activate_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to activate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "parameters to the activation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_group_activate_action" g_action_group_activate_action :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameter : TVariant-    IO ()--{- |-Activate the named action within /@actionGroup@/.--If the action is expecting a parameter, then the correct type of-parameter must be given as /@parameter@/.  If the action is expecting no-parameters then /@parameter@/ must be 'Nothing'.  See-'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionParameterType'.--/Since: 2.28/--}-actionGroupActivateAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to activate -}-    -> Maybe (GVariant)-    {- ^ /@parameter@/: parameters to the activation -}-    -> m ()-actionGroupActivateAction actionGroup actionName parameter = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    maybeParameter <- case parameter of-        Nothing -> return nullPtr-        Just jParameter -> do-            jParameter' <- unsafeManagedPtrGetPtr jParameter-            return jParameter'-    g_action_group_activate_action actionGroup' actionName' maybeParameter-    touchManagedPtr actionGroup-    whenJust parameter touchManagedPtr-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data ActionGroupActivateActionMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupActivateActionMethodInfo a signature where-    overloadedMethod _ = actionGroupActivateAction--#endif---- method ActionGroup::change_action_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to request the change on", 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 new state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_group_change_action_state" g_action_group_change_action_state :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO ()--{- |-Request for the state of the named action within /@actionGroup@/ to be-changed to /@value@/.--The action must be stateful and /@value@/ must be of the correct type.-See 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionStateType'.--This call merely requests a change.  The action may refuse to change-its state or may change its state to something other than /@value@/.-See 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionStateHint'.--If the /@value@/ GVariant is floating, it is consumed.--/Since: 2.28/--}-actionGroupChangeActionState ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to request the change on -}-    -> GVariant-    {- ^ /@value@/: the new state -}-    -> m ()-actionGroupChangeActionState actionGroup actionName value = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    value' <- unsafeManagedPtrGetPtr value-    g_action_group_change_action_state actionGroup' actionName' value'-    touchManagedPtr actionGroup-    touchManagedPtr value-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data ActionGroupChangeActionStateMethodInfo-instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupChangeActionStateMethodInfo a signature where-    overloadedMethod _ = actionGroupChangeActionState--#endif---- method ActionGroup::get_action_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to query", 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 "g_action_group_get_action_enabled" g_action_group_get_action_enabled :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO CInt--{- |-Checks if the named action within /@actionGroup@/ is currently enabled.--An action must be enabled in order to be activated or in order to-have its state changed from outside callers.--/Since: 2.28/--}-actionGroupGetActionEnabled ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to query -}-    -> m Bool-    {- ^ __Returns:__ whether or not the action is currently enabled -}-actionGroupGetActionEnabled actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_enabled actionGroup' actionName'-    let result' = (/= 0) result-    touchManagedPtr actionGroup-    freeMem actionName'-    return result'--#if ENABLE_OVERLOADING-data ActionGroupGetActionEnabledMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetActionEnabledMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionEnabled--#endif---- method ActionGroup::get_action_parameter_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to query", 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 "g_action_group_get_action_parameter_type" g_action_group_get_action_parameter_type :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr GLib.VariantType.VariantType)--{- |-Queries the type of the parameter that must be given when activating-the named action within /@actionGroup@/.--When activating the action using 'GI.Gio.Interfaces.ActionGroup.actionGroupActivateAction',-the 'GVariant' given to that function must be of the type returned-by this function.--In the case that this function returns 'Nothing', you must not give any-'GVariant', but 'Nothing' instead.--The parameter type of a particular action will never change but it is-possible for an action to be removed and for a new action to be added-with the same name but a different parameter type.--/Since: 2.28/--}-actionGroupGetActionParameterType ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to query -}-    -> m (Maybe GLib.VariantType.VariantType)-    {- ^ __Returns:__ the parameter type -}-actionGroupGetActionParameterType actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_parameter_type actionGroup' actionName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.VariantType.VariantType) result'-        return result''-    touchManagedPtr actionGroup-    freeMem actionName'-    return maybeResult--#if ENABLE_OVERLOADING-data ActionGroupGetActionParameterTypeMethodInfo-instance (signature ~ (T.Text -> m (Maybe GLib.VariantType.VariantType)), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetActionParameterTypeMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionParameterType--#endif---- method ActionGroup::get_action_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_action_group_get_action_state" g_action_group_get_action_state :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr GVariant)--{- |-Queries the current state of the named action within /@actionGroup@/.--If the action is not stateful then 'Nothing' will be returned.  If the-action is stateful then the type of the return value is the type-given by 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionStateType'.--The return value (if non-'Nothing') should be freed with-'GI.GLib.Structs.Variant.variantUnref' when it is no longer required.--/Since: 2.28/--}-actionGroupGetActionState ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to query -}-    -> m (Maybe GVariant)-    {- ^ __Returns:__ the current state of the action -}-actionGroupGetActionState actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_state actionGroup' actionName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- B.GVariant.wrapGVariantPtr result'-        return result''-    touchManagedPtr actionGroup-    freeMem actionName'-    return maybeResult--#if ENABLE_OVERLOADING-data ActionGroupGetActionStateMethodInfo-instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetActionStateMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionState--#endif---- method ActionGroup::get_action_state_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_action_group_get_action_state_hint" g_action_group_get_action_state_hint :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr GVariant)--{- |-Requests a hint about the valid range of values for the state of the-named action within /@actionGroup@/.--If 'Nothing' is returned it either means that the action is not stateful-or that there is no hint about the valid range of values for the-state of the action.--If a 'GVariant' array is returned then each item in the array is a-possible value for the state.  If a 'GVariant' pair (ie: two-tuple) is-returned then the tuple specifies the inclusive lower and upper bound-of valid values for the state.--In any case, the information is merely a hint.  It may be possible to-have a state value outside of the hinted range and setting a value-within the range may fail.--The return value (if non-'Nothing') should be freed with-'GI.GLib.Structs.Variant.variantUnref' when it is no longer required.--/Since: 2.28/--}-actionGroupGetActionStateHint ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to query -}-    -> m (Maybe GVariant)-    {- ^ __Returns:__ the state range hint -}-actionGroupGetActionStateHint actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_state_hint actionGroup' actionName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- B.GVariant.wrapGVariantPtr result'-        return result''-    touchManagedPtr actionGroup-    freeMem actionName'-    return maybeResult--#if ENABLE_OVERLOADING-data ActionGroupGetActionStateHintMethodInfo-instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetActionStateHintMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionStateHint--#endif---- method ActionGroup::get_action_state_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to query", 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 "g_action_group_get_action_state_type" g_action_group_get_action_state_type :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr GLib.VariantType.VariantType)--{- |-Queries the type of the state of the named action within-/@actionGroup@/.--If the action is stateful then this function returns the-'GI.GLib.Structs.VariantType.VariantType' of the state.  All calls to-'GI.Gio.Interfaces.ActionGroup.actionGroupChangeActionState' must give a 'GVariant' of this-type and 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionState' will return a 'GVariant'-of the same type.--If the action is not stateful then this function will return 'Nothing'.-In that case, 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionState' will return 'Nothing'-and you must not call 'GI.Gio.Interfaces.ActionGroup.actionGroupChangeActionState'.--The state type of a particular action will never change but it is-possible for an action to be removed and for a new action to be added-with the same name but a different state type.--/Since: 2.28/--}-actionGroupGetActionStateType ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to query -}-    -> m (Maybe GLib.VariantType.VariantType)-    {- ^ __Returns:__ the state type, if the action is stateful -}-actionGroupGetActionStateType actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    result <- g_action_group_get_action_state_type actionGroup' actionName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.VariantType.VariantType) result'-        return result''-    touchManagedPtr actionGroup-    freeMem actionName'-    return maybeResult--#if ENABLE_OVERLOADING-data ActionGroupGetActionStateTypeMethodInfo-instance (signature ~ (T.Text -> m (Maybe GLib.VariantType.VariantType)), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupGetActionStateTypeMethodInfo a signature where-    overloadedMethod _ = actionGroupGetActionStateType--#endif---- method ActionGroup::has_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to check for", 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 "g_action_group_has_action" g_action_group_has_action :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO CInt--{- |-Checks if the named action exists within /@actionGroup@/.--/Since: 2.28/--}-actionGroupHasAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to check for -}-    -> m Bool-    {- ^ __Returns:__ whether the named action exists -}-actionGroupHasAction actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    result <- g_action_group_has_action actionGroup' actionName'-    let result' = (/= 0) result-    touchManagedPtr actionGroup-    freeMem actionName'-    return result'--#if ENABLE_OVERLOADING-data ActionGroupHasActionMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupHasActionMethodInfo a signature where-    overloadedMethod _ = actionGroupHasAction--#endif---- method ActionGroup::list_actions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_action_group_list_actions" g_action_group_list_actions :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    IO (Ptr CString)--{- |-Lists the actions contained within /@actionGroup@/.--The caller is responsible for freeing the list with 'GI.GLib.Functions.strfreev' when-it is no longer required.--/Since: 2.28/--}-actionGroupListActions ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> m [T.Text]-    {- ^ __Returns:__ a 'Nothing'-terminated array of the names of the-actions in the group -}-actionGroupListActions actionGroup = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    result <- g_action_group_list_actions actionGroup'-    checkUnexpectedReturnNULL "actionGroupListActions" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr actionGroup-    return result'--#if ENABLE_OVERLOADING-data ActionGroupListActionsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupListActionsMethodInfo a signature where-    overloadedMethod _ = actionGroupListActions--#endif---- method ActionGroup::query_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of an action in the group", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if the action is presently enabled", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the parameter type, or %NULL if none needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the state type, or %NULL if stateless", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state_hint", argType = TVariant, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the state hint, or %NULL if none", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state", argType = TVariant, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current state, or %NULL if stateless", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "g_action_group_query_action" g_action_group_query_action :: -    Ptr ActionGroup ->                      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr CInt ->                             -- enabled : TBasicType TBoolean-    Ptr (Ptr GLib.VariantType.VariantType) -> -- parameter_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    Ptr (Ptr GLib.VariantType.VariantType) -> -- state_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    Ptr (Ptr GVariant) ->                   -- state_hint : TVariant-    Ptr (Ptr GVariant) ->                   -- state : TVariant-    IO CInt--{- |-Queries all aspects of the named action within an /@actionGroup@/.--This function acquires the information available from-'GI.Gio.Interfaces.ActionGroup.actionGroupHasAction', 'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionEnabled',-'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionParameterType',-'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionStateType',-'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionStateHint' and-'GI.Gio.Interfaces.ActionGroup.actionGroupGetActionState' with a single function call.--This provides two main benefits.--The first is the improvement in efficiency that comes with not having-to perform repeated lookups of the action in order to discover-different things about it.  The second is that implementing-'GI.Gio.Interfaces.ActionGroup.ActionGroup' can now be done by only overriding this one virtual-function.--The interface provides a default implementation of this function that-calls the individual functions, as required, to fetch the-information.  The interface also provides default implementations of-those functions that call this function.  All implementations,-therefore, must override either this function or all of the others.--If the action exists, 'True' is returned and any of the requested-fields (as indicated by having a non-'Nothing' reference passed in) are-filled.  If the action doesn\'t exist, 'False' is returned and the-fields may or may not have been modified.--/Since: 2.32/--}-actionGroupQueryAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionGroup a) =>-    a-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of an action in the group -}-    -> m ((Bool, Bool, GLib.VariantType.VariantType, GLib.VariantType.VariantType, GVariant, GVariant))-    {- ^ __Returns:__ 'True' if the action exists, else 'False' -}-actionGroupQueryAction actionGroup actionName = liftIO $ do-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    actionName' <- textToCString actionName-    enabled <- allocMem :: IO (Ptr CInt)-    parameterType <- allocMem :: IO (Ptr (Ptr GLib.VariantType.VariantType))-    stateType <- allocMem :: IO (Ptr (Ptr GLib.VariantType.VariantType))-    stateHint <- allocMem :: IO (Ptr (Ptr GVariant))-    state <- allocMem :: IO (Ptr (Ptr GVariant))-    result <- g_action_group_query_action actionGroup' actionName' enabled parameterType stateType stateHint state-    let result' = (/= 0) result-    enabled' <- peek enabled-    let enabled'' = (/= 0) enabled'-    parameterType' <- peek parameterType-    parameterType'' <- (wrapBoxed GLib.VariantType.VariantType) parameterType'-    stateType' <- peek stateType-    stateType'' <- (wrapBoxed GLib.VariantType.VariantType) stateType'-    stateHint' <- peek stateHint-    stateHint'' <- B.GVariant.wrapGVariantPtr stateHint'-    state' <- peek state-    state'' <- B.GVariant.wrapGVariantPtr state'-    touchManagedPtr actionGroup-    freeMem actionName'-    freeMem enabled-    freeMem parameterType-    freeMem stateType-    freeMem stateHint-    freeMem state-    return (result', enabled'', parameterType'', stateType'', stateHint'', state'')--#if ENABLE_OVERLOADING-data ActionGroupQueryActionMethodInfo-instance (signature ~ (T.Text -> m ((Bool, Bool, GLib.VariantType.VariantType, GLib.VariantType.VariantType, GVariant, GVariant))), MonadIO m, IsActionGroup a) => O.MethodInfo ActionGroupQueryActionMethodInfo a signature where-    overloadedMethod _ = actionGroupQueryAction--#endif--
− GI/Gio/Interfaces/ActionGroup.hs-boot 
@@ -1,83 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.ActionGroup 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 ActionGroup = ActionGroup (ManagedPtr ActionGroup)-#if ENABLE_OVERLOADING-data ActionGroupActionAddedSignalInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupActionEnabledChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupActionRemovedSignalInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupActionStateChangedSignalInfo-#endif-instance GObject ActionGroup where-class (GObject o, O.IsDescendantOf ActionGroup o) => IsActionGroup o-instance (GObject o, O.IsDescendantOf ActionGroup o) => IsActionGroup o-instance O.HasParentTypes ActionGroup-#if ENABLE_OVERLOADING-data ActionGroupActionAddedMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupActionEnabledChangedMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupActionRemovedMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupActionStateChangedMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupActivateActionMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupChangeActionStateMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupGetActionEnabledMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupGetActionParameterTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupGetActionStateMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupGetActionStateHintMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupGetActionStateTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupHasActionMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupListActionsMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionGroupQueryActionMethodInfo-#endif
− GI/Gio/Interfaces/ActionMap.hs 
@@ -1,391 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The GActionMap interface is implemented by 'GI.Gio.Interfaces.ActionGroup.ActionGroup'-implementations that operate by containing a number of-named 'GI.Gio.Interfaces.Action.Action' instances, such as 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup'.--One useful application of this interface is to map the-names of actions from various action groups to unique,-prefixed names (e.g. by prepending \"app.\" or \"win.\").-This is the motivation for the \'Map\' part of the interface-name.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.ActionMap-    ( ---- * Exported types-    ActionMap(..)                           ,-    noActionMap                             ,-    IsActionMap                             ,-    toActionMap                             ,--- -- * Methods--- ** addAction #method:addAction#--#if ENABLE_OVERLOADING-    ActionMapAddActionMethodInfo            ,-#endif-    actionMapAddAction                      ,----- ** addActionEntries #method:addActionEntries#--#if ENABLE_OVERLOADING-    ActionMapAddActionEntriesMethodInfo     ,-#endif-    actionMapAddActionEntries               ,----- ** lookupAction #method:lookupAction#--#if ENABLE_OVERLOADING-    ActionMapLookupActionMethodInfo         ,-#endif-    actionMapLookupAction                   ,----- ** removeAction #method:removeAction#--#if ENABLE_OVERLOADING-    ActionMapRemoveActionMethodInfo         ,-#endif-    actionMapRemoveAction                   ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Action as Gio.Action-import {-# SOURCE #-} qualified GI.Gio.Structs.ActionEntry as Gio.ActionEntry---- interface ActionMap --- | Memory-managed wrapper type.-newtype ActionMap = ActionMap (ManagedPtr ActionMap)--- | A convenience alias for `Nothing` :: `Maybe` `ActionMap`.-noActionMap :: Maybe ActionMap-noActionMap = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList ActionMap = ActionMapSignalList-type ActionMapSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_action_map_get_type"-    c_g_action_map_get_type :: IO GType--instance GObject ActionMap where-    gobjectType = c_g_action_map_get_type-    ---- | Type class for types which can be safely cast to `ActionMap`, for instance with `toActionMap`.-class (GObject o, O.IsDescendantOf ActionMap o) => IsActionMap o-instance (GObject o, O.IsDescendantOf ActionMap o) => IsActionMap o--instance O.HasParentTypes ActionMap-type instance O.ParentTypes ActionMap = '[GObject.Object.Object]---- | Cast to `ActionMap`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toActionMap :: (MonadIO m, IsActionMap o) => o -> m ActionMap-toActionMap = liftIO . unsafeCastTo ActionMap--#if ENABLE_OVERLOADING-instance O.HasAttributeList ActionMap-type instance O.AttributeList ActionMap = ActionMapAttributeList-type ActionMapAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveActionMapMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionMapMethod "addAction" o = ActionMapAddActionMethodInfo-    ResolveActionMapMethod "addActionEntries" o = ActionMapAddActionEntriesMethodInfo-    ResolveActionMapMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveActionMapMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveActionMapMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveActionMapMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveActionMapMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveActionMapMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveActionMapMethod "lookupAction" o = ActionMapLookupActionMethodInfo-    ResolveActionMapMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveActionMapMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveActionMapMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveActionMapMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveActionMapMethod "removeAction" o = ActionMapRemoveActionMethodInfo-    ResolveActionMapMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveActionMapMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveActionMapMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveActionMapMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveActionMapMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveActionMapMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveActionMapMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveActionMapMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveActionMapMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveActionMapMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveActionMapMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveActionMapMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveActionMapMethod t ActionMap, O.MethodInfo info ActionMap p) => OL.IsLabel t (ActionMap -> 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 ActionMap::add_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_map", argType = TInterface (Name {namespace = "Gio", name = "ActionMap"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionMap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_map_add_action" g_action_map_add_action :: -    Ptr ActionMap ->                        -- action_map : TInterface (Name {namespace = "Gio", name = "ActionMap"})-    Ptr Gio.Action.Action ->                -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    IO ()--{- |-Adds an action to the /@actionMap@/.--If the action map already contains an action with the same name-as /@action@/ then the old action is dropped from the action map.--The action map takes its own reference on /@action@/.--/Since: 2.32/--}-actionMapAddAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionMap a, Gio.Action.IsAction b) =>-    a-    {- ^ /@actionMap@/: a 'GI.Gio.Interfaces.ActionMap.ActionMap' -}-    -> b-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> m ()-actionMapAddAction actionMap action = liftIO $ do-    actionMap' <- unsafeManagedPtrCastPtr actionMap-    action' <- unsafeManagedPtrCastPtr action-    g_action_map_add_action actionMap' action'-    touchManagedPtr actionMap-    touchManagedPtr action-    return ()--#if ENABLE_OVERLOADING-data ActionMapAddActionMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsActionMap a, Gio.Action.IsAction b) => O.MethodInfo ActionMapAddActionMethodInfo a signature where-    overloadedMethod _ = actionMapAddAction--#endif---- method ActionMap::add_action_entries--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_map", argType = TInterface (Name {namespace = "Gio", name = "ActionMap"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionMap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "ActionEntry"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to\n          the first item in an array of #GActionEntry structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @entries, or -1 if @entries is %NULL-terminated", 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 "the user data for signal connections", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @entries, or -1 if @entries is %NULL-terminated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_map_add_action_entries" g_action_map_add_action_entries :: -    Ptr ActionMap ->                        -- action_map : TInterface (Name {namespace = "Gio", name = "ActionMap"})-    Ptr Gio.ActionEntry.ActionEntry ->      -- entries : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "ActionEntry"}))-    Int32 ->                                -- n_entries : TBasicType TInt-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-A convenience function for creating multiple 'GI.Gio.Objects.SimpleAction.SimpleAction' instances-and adding them to a 'GI.Gio.Interfaces.ActionMap.ActionMap'.--Each action is constructed as per one 'GI.Gio.Structs.ActionEntry.ActionEntry'.---=== /C code/->->static void->activate_quit (GSimpleAction *simple,->               GVariant      *parameter,->               gpointer       user_data)->{->  exit (0);->}->->static void->activate_print_string (GSimpleAction *simple,->                       GVariant      *parameter,->                       gpointer       user_data)->{->  g_print ("%s\n", g_variant_get_string (parameter, NULL));->}->->static GActionGroup *->create_action_group (void)->{->  const GActionEntry entries[] = {->    { "quit",         activate_quit              },->    { "print-string", activate_print_string, "s" }->  };->  GSimpleActionGroup *group;->->  group = g_simple_action_group_new ();->  g_action_map_add_action_entries (G_ACTION_MAP (group), entries, G_N_ELEMENTS (entries), NULL);->->  return G_ACTION_GROUP (group);->}---/Since: 2.32/--}-actionMapAddActionEntries ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionMap a) =>-    a-    {- ^ /@actionMap@/: a 'GI.Gio.Interfaces.ActionMap.ActionMap' -}-    -> [Gio.ActionEntry.ActionEntry]-    {- ^ /@entries@/: a pointer to-          the first item in an array of 'GI.Gio.Structs.ActionEntry.ActionEntry' structs -}-    -> Ptr ()-    {- ^ /@userData@/: the user data for signal connections -}-    -> m ()-actionMapAddActionEntries actionMap entries userData = liftIO $ do-    let nEntries = fromIntegral $ length entries-    actionMap' <- unsafeManagedPtrCastPtr actionMap-    entries' <- mapM unsafeManagedPtrGetPtr entries-    entries'' <- packBlockArray 64 entries'-    g_action_map_add_action_entries actionMap' entries'' nEntries userData-    touchManagedPtr actionMap-    mapM_ touchManagedPtr entries-    freeMem entries''-    return ()--#if ENABLE_OVERLOADING-data ActionMapAddActionEntriesMethodInfo-instance (signature ~ ([Gio.ActionEntry.ActionEntry] -> Ptr () -> m ()), MonadIO m, IsActionMap a) => O.MethodInfo ActionMapAddActionEntriesMethodInfo a signature where-    overloadedMethod _ = actionMapAddActionEntries--#endif---- method ActionMap::lookup_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_map", argType = TInterface (Name {namespace = "Gio", name = "ActionMap"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionMap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of an action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Action"}))--- throws : False--- Skip return : False--foreign import ccall "g_action_map_lookup_action" g_action_map_lookup_action :: -    Ptr ActionMap ->                        -- action_map : TInterface (Name {namespace = "Gio", name = "ActionMap"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr Gio.Action.Action)--{- |-Looks up the action with the name /@actionName@/ in /@actionMap@/.--If no such action exists, returns 'Nothing'.--/Since: 2.32/--}-actionMapLookupAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionMap a) =>-    a-    {- ^ /@actionMap@/: a 'GI.Gio.Interfaces.ActionMap.ActionMap' -}-    -> T.Text-    {- ^ /@actionName@/: the name of an action -}-    -> m Gio.Action.Action-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Action.Action', or 'Nothing' -}-actionMapLookupAction actionMap actionName = liftIO $ do-    actionMap' <- unsafeManagedPtrCastPtr actionMap-    actionName' <- textToCString actionName-    result <- g_action_map_lookup_action actionMap' actionName'-    checkUnexpectedReturnNULL "actionMapLookupAction" result-    result' <- (newObject Gio.Action.Action) result-    touchManagedPtr actionMap-    freeMem actionName'-    return result'--#if ENABLE_OVERLOADING-data ActionMapLookupActionMethodInfo-instance (signature ~ (T.Text -> m Gio.Action.Action), MonadIO m, IsActionMap a) => O.MethodInfo ActionMapLookupActionMethodInfo a signature where-    overloadedMethod _ = actionMapLookupAction--#endif---- method ActionMap::remove_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "action_map", argType = TInterface (Name {namespace = "Gio", name = "ActionMap"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionMap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_action_map_remove_action" g_action_map_remove_action :: -    Ptr ActionMap ->                        -- action_map : TInterface (Name {namespace = "Gio", name = "ActionMap"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO ()--{- |-Removes the named action from the action map.--If no action of this name is in the map then nothing happens.--/Since: 2.32/--}-actionMapRemoveAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsActionMap a) =>-    a-    {- ^ /@actionMap@/: a 'GI.Gio.Interfaces.ActionMap.ActionMap' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action -}-    -> m ()-actionMapRemoveAction actionMap actionName = liftIO $ do-    actionMap' <- unsafeManagedPtrCastPtr actionMap-    actionName' <- textToCString actionName-    g_action_map_remove_action actionMap' actionName'-    touchManagedPtr actionMap-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data ActionMapRemoveActionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsActionMap a) => O.MethodInfo ActionMapRemoveActionMethodInfo a signature where-    overloadedMethod _ = actionMapRemoveAction--#endif--
− GI/Gio/Interfaces/ActionMap.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.ActionMap 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 ActionMap = ActionMap (ManagedPtr ActionMap)-instance GObject ActionMap where-class (GObject o, O.IsDescendantOf ActionMap o) => IsActionMap o-instance (GObject o, O.IsDescendantOf ActionMap o) => IsActionMap o-instance O.HasParentTypes ActionMap-#if ENABLE_OVERLOADING-data ActionMapAddActionMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionMapAddActionEntriesMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionMapLookupActionMethodInfo-#endif-#if ENABLE_OVERLOADING-data ActionMapRemoveActionMethodInfo-#endif
− GI/Gio/Interfaces/AppInfo.hs 
@@ -1,2041 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.AppInfo.AppInfo' and 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' are used for describing and launching-applications installed on the system.--As of GLib 2.20, URIs will always be converted to POSIX paths-(using 'GI.Gio.Interfaces.File.fileGetPath') when using 'GI.Gio.Interfaces.AppInfo.appInfoLaunch' even if-the application requested an URI and not a POSIX path. For example-for an desktop-file based application with Exec key @totem-%U@ and a single URI, @sftp:\/\/foo\/file.avi@, then-@\/home\/user\/.gvfs\/sftp on foo\/file.avi@ will be passed. This will-only work if a set of suitable GIO extensions (such as gvfs 2.26-compiled with FUSE support), is available and operational; if this-is not the case, the URI will be passed unmodified to the application.-Some URIs, such as @mailto:@, of course cannot be mapped to a POSIX-path (in gvfs there\'s no FUSE mount for it); such URIs will be-passed unmodified to the application.--Specifically for gvfs 2.26 and later, the POSIX URI will be mapped-back to the GIO URI in the 'GI.Gio.Interfaces.File.File' constructors (since gvfs-implements the 'GI.Gio.Objects.Vfs.Vfs' extension point). As such, if the application-needs to examine the URI, it needs to use 'GI.Gio.Interfaces.File.fileGetUri' or-similar on 'GI.Gio.Interfaces.File.File'. In other words, an application cannot assume-that the URI passed to e.g. 'GI.Gio.Functions.fileNewForCommandlineArg' is-equal to the result of 'GI.Gio.Interfaces.File.fileGetUri'. The following snippet-illustrates this:-->->GFile *f;->char *uri;->->file = g_file_new_for_commandline_arg (uri_from_commandline);->->uri = g_file_get_uri (file);->strcmp (uri, uri_from_commandline) == 0;->g_free (uri);->->if (g_file_has_uri_scheme (file, "cdda"))->  {->    // do something special with uri->  }->g_object_unref (file);---This code will work when both @cdda:\/\/sr0\/Track 1.wav@ and-@\/home\/user\/.gvfs\/cdda on sr0\/Track 1.wav@ is passed to the-application. It should be noted that it\'s generally not safe-for applications to rely on the format of a particular URIs.-Different launcher applications (e.g. file managers) may have-different ideas of what a given URI means.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.AppInfo-    ( ---- * Exported types-    AppInfo(..)                             ,-    noAppInfo                               ,-    IsAppInfo                               ,-    toAppInfo                               ,--- -- * Methods--- ** addSupportsType #method:addSupportsType#--#if ENABLE_OVERLOADING-    AppInfoAddSupportsTypeMethodInfo        ,-#endif-    appInfoAddSupportsType                  ,----- ** canDelete #method:canDelete#--#if ENABLE_OVERLOADING-    AppInfoCanDeleteMethodInfo              ,-#endif-    appInfoCanDelete                        ,----- ** canRemoveSupportsType #method:canRemoveSupportsType#--#if ENABLE_OVERLOADING-    AppInfoCanRemoveSupportsTypeMethodInfo  ,-#endif-    appInfoCanRemoveSupportsType            ,----- ** createFromCommandline #method:createFromCommandline#--    appInfoCreateFromCommandline            ,----- ** delete #method:delete#--#if ENABLE_OVERLOADING-    AppInfoDeleteMethodInfo                 ,-#endif-    appInfoDelete                           ,----- ** dup #method:dup#--#if ENABLE_OVERLOADING-    AppInfoDupMethodInfo                    ,-#endif-    appInfoDup                              ,----- ** equal #method:equal#--#if ENABLE_OVERLOADING-    AppInfoEqualMethodInfo                  ,-#endif-    appInfoEqual                            ,----- ** getAll #method:getAll#--    appInfoGetAll                           ,----- ** getAllForType #method:getAllForType#--    appInfoGetAllForType                    ,----- ** getCommandline #method:getCommandline#--#if ENABLE_OVERLOADING-    AppInfoGetCommandlineMethodInfo         ,-#endif-    appInfoGetCommandline                   ,----- ** getDefaultForType #method:getDefaultForType#--    appInfoGetDefaultForType                ,----- ** getDefaultForUriScheme #method:getDefaultForUriScheme#--    appInfoGetDefaultForUriScheme           ,----- ** getDescription #method:getDescription#--#if ENABLE_OVERLOADING-    AppInfoGetDescriptionMethodInfo         ,-#endif-    appInfoGetDescription                   ,----- ** getDisplayName #method:getDisplayName#--#if ENABLE_OVERLOADING-    AppInfoGetDisplayNameMethodInfo         ,-#endif-    appInfoGetDisplayName                   ,----- ** getExecutable #method:getExecutable#--#if ENABLE_OVERLOADING-    AppInfoGetExecutableMethodInfo          ,-#endif-    appInfoGetExecutable                    ,----- ** getFallbackForType #method:getFallbackForType#--    appInfoGetFallbackForType               ,----- ** getIcon #method:getIcon#--#if ENABLE_OVERLOADING-    AppInfoGetIconMethodInfo                ,-#endif-    appInfoGetIcon                          ,----- ** getId #method:getId#--#if ENABLE_OVERLOADING-    AppInfoGetIdMethodInfo                  ,-#endif-    appInfoGetId                            ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    AppInfoGetNameMethodInfo                ,-#endif-    appInfoGetName                          ,----- ** getRecommendedForType #method:getRecommendedForType#--    appInfoGetRecommendedForType            ,----- ** getSupportedTypes #method:getSupportedTypes#--#if ENABLE_OVERLOADING-    AppInfoGetSupportedTypesMethodInfo      ,-#endif-    appInfoGetSupportedTypes                ,----- ** launch #method:launch#--#if ENABLE_OVERLOADING-    AppInfoLaunchMethodInfo                 ,-#endif-    appInfoLaunch                           ,----- ** launchDefaultForUri #method:launchDefaultForUri#--    appInfoLaunchDefaultForUri              ,----- ** launchDefaultForUriAsync #method:launchDefaultForUriAsync#--    appInfoLaunchDefaultForUriAsync         ,----- ** launchDefaultForUriFinish #method:launchDefaultForUriFinish#--    appInfoLaunchDefaultForUriFinish        ,----- ** launchUris #method:launchUris#--#if ENABLE_OVERLOADING-    AppInfoLaunchUrisMethodInfo             ,-#endif-    appInfoLaunchUris                       ,----- ** launchUrisAsync #method:launchUrisAsync#--#if ENABLE_OVERLOADING-    AppInfoLaunchUrisAsyncMethodInfo        ,-#endif-    appInfoLaunchUrisAsync                  ,----- ** launchUrisFinish #method:launchUrisFinish#--#if ENABLE_OVERLOADING-    AppInfoLaunchUrisFinishMethodInfo       ,-#endif-    appInfoLaunchUrisFinish                 ,----- ** removeSupportsType #method:removeSupportsType#--#if ENABLE_OVERLOADING-    AppInfoRemoveSupportsTypeMethodInfo     ,-#endif-    appInfoRemoveSupportsType               ,----- ** resetTypeAssociations #method:resetTypeAssociations#--    appInfoResetTypeAssociations            ,----- ** setAsDefaultForExtension #method:setAsDefaultForExtension#--#if ENABLE_OVERLOADING-    AppInfoSetAsDefaultForExtensionMethodInfo,-#endif-    appInfoSetAsDefaultForExtension         ,----- ** setAsDefaultForType #method:setAsDefaultForType#--#if ENABLE_OVERLOADING-    AppInfoSetAsDefaultForTypeMethodInfo    ,-#endif-    appInfoSetAsDefaultForType              ,----- ** setAsLastUsedForType #method:setAsLastUsedForType#--#if ENABLE_OVERLOADING-    AppInfoSetAsLastUsedForTypeMethodInfo   ,-#endif-    appInfoSetAsLastUsedForType             ,----- ** shouldShow #method:shouldShow#--#if ENABLE_OVERLOADING-    AppInfoShouldShowMethodInfo             ,-#endif-    appInfoShouldShow                       ,----- ** supportsFiles #method:supportsFiles#--#if ENABLE_OVERLOADING-    AppInfoSupportsFilesMethodInfo          ,-#endif-    appInfoSupportsFiles                    ,----- ** supportsUris #method:supportsUris#--#if ENABLE_OVERLOADING-    AppInfoSupportsUrisMethodInfo           ,-#endif-    appInfoSupportsUris                     ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Objects.AppLaunchContext as Gio.AppLaunchContext-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- interface AppInfo --- | Memory-managed wrapper type.-newtype AppInfo = AppInfo (ManagedPtr AppInfo)--- | A convenience alias for `Nothing` :: `Maybe` `AppInfo`.-noAppInfo :: Maybe AppInfo-noAppInfo = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList AppInfo = AppInfoSignalList-type AppInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_app_info_get_type"-    c_g_app_info_get_type :: IO GType--instance GObject AppInfo where-    gobjectType = c_g_app_info_get_type-    ---- | Type class for types which can be safely cast to `AppInfo`, for instance with `toAppInfo`.-class (GObject o, O.IsDescendantOf AppInfo o) => IsAppInfo o-instance (GObject o, O.IsDescendantOf AppInfo o) => IsAppInfo o--instance O.HasParentTypes AppInfo-type instance O.ParentTypes AppInfo = '[GObject.Object.Object]---- | Cast to `AppInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAppInfo :: (MonadIO m, IsAppInfo o) => o -> m AppInfo-toAppInfo = liftIO . unsafeCastTo AppInfo--#if ENABLE_OVERLOADING-instance O.HasAttributeList AppInfo-type instance O.AttributeList AppInfo = AppInfoAttributeList-type AppInfoAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveAppInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveAppInfoMethod "addSupportsType" o = AppInfoAddSupportsTypeMethodInfo-    ResolveAppInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAppInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAppInfoMethod "canDelete" o = AppInfoCanDeleteMethodInfo-    ResolveAppInfoMethod "canRemoveSupportsType" o = AppInfoCanRemoveSupportsTypeMethodInfo-    ResolveAppInfoMethod "delete" o = AppInfoDeleteMethodInfo-    ResolveAppInfoMethod "dup" o = AppInfoDupMethodInfo-    ResolveAppInfoMethod "equal" o = AppInfoEqualMethodInfo-    ResolveAppInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAppInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAppInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAppInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAppInfoMethod "launch" o = AppInfoLaunchMethodInfo-    ResolveAppInfoMethod "launchUris" o = AppInfoLaunchUrisMethodInfo-    ResolveAppInfoMethod "launchUrisAsync" o = AppInfoLaunchUrisAsyncMethodInfo-    ResolveAppInfoMethod "launchUrisFinish" o = AppInfoLaunchUrisFinishMethodInfo-    ResolveAppInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAppInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAppInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAppInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAppInfoMethod "removeSupportsType" o = AppInfoRemoveSupportsTypeMethodInfo-    ResolveAppInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAppInfoMethod "shouldShow" o = AppInfoShouldShowMethodInfo-    ResolveAppInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAppInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAppInfoMethod "supportsFiles" o = AppInfoSupportsFilesMethodInfo-    ResolveAppInfoMethod "supportsUris" o = AppInfoSupportsUrisMethodInfo-    ResolveAppInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAppInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAppInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAppInfoMethod "getCommandline" o = AppInfoGetCommandlineMethodInfo-    ResolveAppInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAppInfoMethod "getDescription" o = AppInfoGetDescriptionMethodInfo-    ResolveAppInfoMethod "getDisplayName" o = AppInfoGetDisplayNameMethodInfo-    ResolveAppInfoMethod "getExecutable" o = AppInfoGetExecutableMethodInfo-    ResolveAppInfoMethod "getIcon" o = AppInfoGetIconMethodInfo-    ResolveAppInfoMethod "getId" o = AppInfoGetIdMethodInfo-    ResolveAppInfoMethod "getName" o = AppInfoGetNameMethodInfo-    ResolveAppInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAppInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAppInfoMethod "getSupportedTypes" o = AppInfoGetSupportedTypesMethodInfo-    ResolveAppInfoMethod "setAsDefaultForExtension" o = AppInfoSetAsDefaultForExtensionMethodInfo-    ResolveAppInfoMethod "setAsDefaultForType" o = AppInfoSetAsDefaultForTypeMethodInfo-    ResolveAppInfoMethod "setAsLastUsedForType" o = AppInfoSetAsLastUsedForTypeMethodInfo-    ResolveAppInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAppInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAppInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAppInfoMethod t AppInfo, O.MethodInfo info AppInfo p) => OL.IsLabel t (AppInfo -> 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 AppInfo::add_supports_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a 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 "g_app_info_add_supports_type" g_app_info_add_supports_type :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Adds a content type to the application information to indicate the-application is capable of opening files with the given content type.--}-appInfoAddSupportsType ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> T.Text-    {- ^ /@contentType@/: a string. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoAddSupportsType appinfo contentType = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    contentType' <- textToCString contentType-    onException (do-        _ <- propagateGError $ g_app_info_add_supports_type appinfo' contentType'-        touchManagedPtr appinfo-        freeMem contentType'-        return ()-     ) (do-        freeMem contentType'-     )--#if ENABLE_OVERLOADING-data AppInfoAddSupportsTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoAddSupportsTypeMethodInfo a signature where-    overloadedMethod _ = appInfoAddSupportsType--#endif---- method AppInfo::can_delete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", 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 "g_app_info_can_delete" g_app_info_can_delete :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CInt--{- |-Obtains the information whether the 'GI.Gio.Interfaces.AppInfo.AppInfo' can be deleted.-See 'GI.Gio.Interfaces.AppInfo.appInfoDelete'.--/Since: 2.20/--}-appInfoCanDelete ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@appinfo@/ can be deleted -}-appInfoCanDelete appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_can_delete appinfo'-    let result' = (/= 0) result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoCanDeleteMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoCanDeleteMethodInfo a signature where-    overloadedMethod _ = appInfoCanDelete--#endif---- method AppInfo::can_remove_supports_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", 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 "g_app_info_can_remove_supports_type" g_app_info_can_remove_supports_type :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CInt--{- |-Checks if a supported content type can be removed from an application.--}-appInfoCanRemoveSupportsType ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if it is possible to remove supported-    content types from a given /@appinfo@/, 'False' if not. -}-appInfoCanRemoveSupportsType appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_can_remove_supports_type appinfo'-    let result' = (/= 0) result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoCanRemoveSupportsTypeMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoCanRemoveSupportsTypeMethodInfo a signature where-    overloadedMethod _ = appInfoCanRemoveSupportsType--#endif---- method AppInfo::delete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", 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 "g_app_info_delete" g_app_info_delete :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CInt--{- |-Tries to delete a 'GI.Gio.Interfaces.AppInfo.AppInfo'.--On some platforms, there may be a difference between user-defined-@/GAppInfos/@ which can be deleted, and system-wide ones which cannot.-See 'GI.Gio.Interfaces.AppInfo.appInfoCanDelete'.--/Since: 2.20/--}-appInfoDelete ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@appinfo@/ has been deleted -}-appInfoDelete appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_delete appinfo'-    let result' = (/= 0) result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoDeleteMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoDeleteMethodInfo a signature where-    overloadedMethod _ = appInfoDelete--#endif---- method AppInfo::dup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_dup" g_app_info_dup :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO (Ptr AppInfo)--{- |-Creates a duplicate of a 'GI.Gio.Interfaces.AppInfo.AppInfo'.--}-appInfoDup ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m AppInfo-    {- ^ __Returns:__ a duplicate of /@appinfo@/. -}-appInfoDup appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_dup appinfo'-    checkUnexpectedReturnNULL "appInfoDup" result-    result' <- (wrapObject AppInfo) result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoDupMethodInfo-instance (signature ~ (m AppInfo), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoDupMethodInfo a signature where-    overloadedMethod _ = appInfoDup--#endif---- method AppInfo::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo1", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the first #GAppInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "appinfo2", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the second #GAppInfo.", 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 "g_app_info_equal" g_app_info_equal :: -    Ptr AppInfo ->                          -- appinfo1 : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    Ptr AppInfo ->                          -- appinfo2 : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CInt--{- |-Checks if two @/GAppInfos/@ are equal.--Note that the check \<emphasis>may not\<\/emphasis> compare each individual-field, and only does an identity check. In case detecting changes in the-contents is needed, program code must additionally compare relevant fields.--}-appInfoEqual ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a, IsAppInfo b) =>-    a-    {- ^ /@appinfo1@/: the first 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> b-    {- ^ /@appinfo2@/: the second 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@appinfo1@/ is equal to /@appinfo2@/. 'False' otherwise. -}-appInfoEqual appinfo1 appinfo2 = liftIO $ do-    appinfo1' <- unsafeManagedPtrCastPtr appinfo1-    appinfo2' <- unsafeManagedPtrCastPtr appinfo2-    result <- g_app_info_equal appinfo1' appinfo2'-    let result' = (/= 0) result-    touchManagedPtr appinfo1-    touchManagedPtr appinfo2-    return result'--#if ENABLE_OVERLOADING-data AppInfoEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsAppInfo a, IsAppInfo b) => O.MethodInfo AppInfoEqualMethodInfo a signature where-    overloadedMethod _ = appInfoEqual--#endif---- method AppInfo::get_commandline--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_commandline" g_app_info_get_commandline :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CString--{- |-Gets the commandline with which the application will be-started.--/Since: 2.20/--}-appInfoGetCommandline ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> m [Char]-    {- ^ __Returns:__ a string containing the /@appinfo@/\'s commandline,-    or 'Nothing' if this information is not available -}-appInfoGetCommandline appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_get_commandline appinfo'-    checkUnexpectedReturnNULL "appInfoGetCommandline" result-    result' <- cstringToString result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoGetCommandlineMethodInfo-instance (signature ~ (m [Char]), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoGetCommandlineMethodInfo a signature where-    overloadedMethod _ = appInfoGetCommandline--#endif---- method AppInfo::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", 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 "g_app_info_get_description" g_app_info_get_description :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CString--{- |-Gets a human-readable description of an installed application.--}-appInfoGetDescription ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing a description of the-application /@appinfo@/, or 'Nothing' if none. -}-appInfoGetDescription appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_get_description appinfo'-    checkUnexpectedReturnNULL "appInfoGetDescription" result-    result' <- cstringToText result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoGetDescriptionMethodInfo a signature where-    overloadedMethod _ = appInfoGetDescription--#endif---- method AppInfo::get_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", 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 "g_app_info_get_display_name" g_app_info_get_display_name :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CString--{- |-Gets the display name of the application. The display name is often more-descriptive to the user than the name itself.--/Since: 2.24/--}-appInfoGetDisplayName ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ the display name of the application for /@appinfo@/, or the name if-no display name is available. -}-appInfoGetDisplayName appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_get_display_name appinfo'-    checkUnexpectedReturnNULL "appInfoGetDisplayName" result-    result' <- cstringToText result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoGetDisplayNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoGetDisplayNameMethodInfo a signature where-    overloadedMethod _ = appInfoGetDisplayName--#endif---- method AppInfo::get_executable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_executable" g_app_info_get_executable :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CString--{- |-Gets the executable\'s name for the installed application.--}-appInfoGetExecutable ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> m [Char]-    {- ^ __Returns:__ a string containing the /@appinfo@/\'s application-binaries name -}-appInfoGetExecutable appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_get_executable appinfo'-    checkUnexpectedReturnNULL "appInfoGetExecutable" result-    result' <- cstringToString result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoGetExecutableMethodInfo-instance (signature ~ (m [Char]), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoGetExecutableMethodInfo a signature where-    overloadedMethod _ = appInfoGetExecutable--#endif---- method AppInfo::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_icon" g_app_info_get_icon :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the icon for the application.--}-appInfoGetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ the default 'GI.Gio.Interfaces.Icon.Icon' for /@appinfo@/ or 'Nothing'-if there is no default icon. -}-appInfoGetIcon appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_get_icon appinfo'-    checkUnexpectedReturnNULL "appInfoGetIcon" result-    result' <- (newObject Gio.Icon.Icon) result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoGetIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoGetIconMethodInfo a signature where-    overloadedMethod _ = appInfoGetIcon--#endif---- method AppInfo::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", 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 "g_app_info_get_id" g_app_info_get_id :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CString--{- |-Gets the ID of an application. An id is a string that-identifies the application. The exact format of the id is-platform dependent. For instance, on Unix this is the-desktop file id from the xdg menu specification.--Note that the returned ID may be 'Nothing', depending on how-the /@appinfo@/ has been constructed.--}-appInfoGetId ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the application\'s ID. -}-appInfoGetId appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_get_id appinfo'-    checkUnexpectedReturnNULL "appInfoGetId" result-    result' <- cstringToText result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoGetIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoGetIdMethodInfo a signature where-    overloadedMethod _ = appInfoGetId--#endif---- method AppInfo::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", 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 "g_app_info_get_name" g_app_info_get_name :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CString--{- |-Gets the installed name of the application.--}-appInfoGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ the name of the application for /@appinfo@/. -}-appInfoGetName appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_get_name appinfo'-    checkUnexpectedReturnNULL "appInfoGetName" result-    result' <- cstringToText result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoGetNameMethodInfo a signature where-    overloadedMethod _ = appInfoGetName--#endif---- method AppInfo::get_supported_types--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo that can handle files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_supported_types" g_app_info_get_supported_types :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO (Ptr CString)--{- |-Retrieves the list of content types that /@appInfo@/ claims to support.-If this information is not provided by the environment, this function-will return 'Nothing'.-This function does not take in consideration associations added with-'GI.Gio.Interfaces.AppInfo.appInfoAddSupportsType', but only those exported directly by-the application.--/Since: 2.34/--}-appInfoGetSupportedTypes ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' that can handle files -}-    -> m [T.Text]-    {- ^ __Returns:__ -   a list of content types. -}-appInfoGetSupportedTypes appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_get_supported_types appinfo'-    checkUnexpectedReturnNULL "appInfoGetSupportedTypes" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoGetSupportedTypesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoGetSupportedTypesMethodInfo a signature where-    overloadedMethod _ = appInfoGetSupportedTypes--#endif---- method AppInfo::launch--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GList of #GFile objects", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext or %NULL", 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 "g_app_info_launch" g_app_info_launch :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    Ptr (GList (Ptr Gio.File.File)) ->      -- files : TGList (TInterface (Name {namespace = "Gio", name = "File"}))-    Ptr Gio.AppLaunchContext.AppLaunchContext -> -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Launches the application. Passes /@files@/ to the launched application-as arguments, using the optional /@context@/ to get information-about the details of the launcher (like what screen it is on).-On error, /@error@/ will be set accordingly.--To launch the application without arguments pass a 'Nothing' /@files@/ list.--Note that even if the launch is successful the application launched-can fail to start if it runs into problems during startup. There is-no way to detect this.--Some URIs can be changed when passed through a GFile (for instance-unsupported URIs with strange formats like mailto:), so if you have-a textual URI you want to pass in as argument, consider using-'GI.Gio.Interfaces.AppInfo.appInfoLaunchUris' instead.--The launched application inherits the environment of the launching-process, but it can be modified with 'GI.Gio.Objects.AppLaunchContext.appLaunchContextSetenv'-and 'GI.Gio.Objects.AppLaunchContext.appLaunchContextUnsetenv'.--On UNIX, this function sets the @GIO_LAUNCHED_DESKTOP_FILE@-environment variable with the path of the launched desktop file and-@GIO_LAUNCHED_DESKTOP_FILE_PID@ to the process id of the launched-process. This can be used to ignore @GIO_LAUNCHED_DESKTOP_FILE@,-should it be inherited by further processes. The @DISPLAY@ and-@DESKTOP_STARTUP_ID@ environment variables are also set, based-on information provided in /@context@/.--}-appInfoLaunch ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a, Gio.File.IsFile b, Gio.AppLaunchContext.IsAppLaunchContext c) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> [b]-    {- ^ /@files@/: a 'GI.GLib.Structs.List.List' of 'GI.Gio.Interfaces.File.File' objects -}-    -> Maybe (c)-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoLaunch appinfo files context = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    files' <- mapM unsafeManagedPtrCastPtr files-    files'' <- packGList files'-    maybeContext <- case context of-        Nothing -> return nullPtr-        Just jContext -> do-            jContext' <- unsafeManagedPtrCastPtr jContext-            return jContext'-    onException (do-        _ <- propagateGError $ g_app_info_launch appinfo' files'' maybeContext-        touchManagedPtr appinfo-        mapM_ touchManagedPtr files-        whenJust context touchManagedPtr-        g_list_free files''-        return ()-     ) (do-        g_list_free files''-     )--#if ENABLE_OVERLOADING-data AppInfoLaunchMethodInfo-instance (signature ~ ([b] -> Maybe (c) -> m ()), MonadIO m, IsAppInfo a, Gio.File.IsFile b, Gio.AppLaunchContext.IsAppLaunchContext c) => O.MethodInfo AppInfoLaunchMethodInfo a signature where-    overloadedMethod _ = appInfoLaunch--#endif---- method AppInfo::launch_uris--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TGList (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GList containing URIs to launch.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext or %NULL", 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 "g_app_info_launch_uris" g_app_info_launch_uris :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    Ptr (GList CString) ->                  -- uris : TGList (TBasicType TUTF8)-    Ptr Gio.AppLaunchContext.AppLaunchContext -> -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Launches the application. This passes the /@uris@/ to the launched application-as arguments, using the optional /@context@/ to get information-about the details of the launcher (like what screen it is on).-On error, /@error@/ will be set accordingly.--To launch the application without arguments pass a 'Nothing' /@uris@/ list.--Note that even if the launch is successful the application launched-can fail to start if it runs into problems during startup. There is-no way to detect this.--}-appInfoLaunchUris ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a, Gio.AppLaunchContext.IsAppLaunchContext b) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> [T.Text]-    {- ^ /@uris@/: a 'GI.GLib.Structs.List.List' containing URIs to launch. -}-    -> Maybe (b)-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoLaunchUris appinfo uris context = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    uris' <- mapM textToCString uris-    uris'' <- packGList uris'-    maybeContext <- case context of-        Nothing -> return nullPtr-        Just jContext -> do-            jContext' <- unsafeManagedPtrCastPtr jContext-            return jContext'-    onException (do-        _ <- propagateGError $ g_app_info_launch_uris appinfo' uris'' maybeContext-        touchManagedPtr appinfo-        whenJust context touchManagedPtr-        mapGList freeMem uris''-        g_list_free uris''-        return ()-     ) (do-        mapGList freeMem uris''-        g_list_free uris''-     )--#if ENABLE_OVERLOADING-data AppInfoLaunchUrisMethodInfo-instance (signature ~ ([T.Text] -> Maybe (b) -> m ()), MonadIO m, IsAppInfo a, Gio.AppLaunchContext.IsAppLaunchContext b) => O.MethodInfo AppInfoLaunchUrisMethodInfo a signature where-    overloadedMethod _ = appInfoLaunchUris--#endif---- method AppInfo::launch_uris_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TGList (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GList containing URIs to launch.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext or %NULL", 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", 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 "a #GAsyncReadyCallback to call when the request is done", 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 "g_app_info_launch_uris_async" g_app_info_launch_uris_async :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    Ptr (GList CString) ->                  -- uris : TGList (TBasicType TUTF8)-    Ptr Gio.AppLaunchContext.AppLaunchContext -> -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    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 ()--{- |-Async version of 'GI.Gio.Interfaces.AppInfo.appInfoLaunchUris'.--The /@callback@/ is invoked immediately after the application launch, but it-waits for activation in case of D-Bus–activated applications and also provides-extended error information for sandboxed applications, see notes for-'GI.Gio.Functions.appInfoLaunchDefaultForUriAsync'.--/Since: 2.60/--}-appInfoLaunchUrisAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a, Gio.AppLaunchContext.IsAppLaunchContext b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> [T.Text]-    {- ^ /@uris@/: a 'GI.GLib.Structs.List.List' containing URIs to launch. -}-    -> Maybe (b)-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' or 'Nothing' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is done -}-    -> m ()-appInfoLaunchUrisAsync appinfo uris context cancellable callback = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    uris' <- mapM textToCString uris-    uris'' <- packGList uris'-    maybeContext <- case context of-        Nothing -> return nullPtr-        Just jContext -> do-            jContext' <- unsafeManagedPtrCastPtr jContext-            return jContext'-    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-    g_app_info_launch_uris_async appinfo' uris'' maybeContext maybeCancellable maybeCallback userData-    touchManagedPtr appinfo-    whenJust context touchManagedPtr-    whenJust cancellable touchManagedPtr-    mapGList freeMem uris''-    g_list_free uris''-    return ()--#if ENABLE_OVERLOADING-data AppInfoLaunchUrisAsyncMethodInfo-instance (signature ~ ([T.Text] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsAppInfo a, Gio.AppLaunchContext.IsAppLaunchContext b, Gio.Cancellable.IsCancellable c) => O.MethodInfo AppInfoLaunchUrisAsyncMethodInfo a signature where-    overloadedMethod _ = appInfoLaunchUrisAsync--#endif---- method AppInfo::launch_uris_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", 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 "a #GAsyncResult", 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 "g_app_info_launch_uris_finish" g_app_info_launch_uris_finish :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes a 'GI.Gio.Interfaces.AppInfo.appInfoLaunchUrisAsync' operation.--/Since: 2.60/--}-appInfoLaunchUrisFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoLaunchUrisFinish appinfo result_ = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_app_info_launch_uris_finish appinfo' result_'-        touchManagedPtr appinfo-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data AppInfoLaunchUrisFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsAppInfo a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo AppInfoLaunchUrisFinishMethodInfo a signature where-    overloadedMethod _ = appInfoLaunchUrisFinish--#endif---- method AppInfo::remove_supports_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a 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 "g_app_info_remove_supports_type" g_app_info_remove_supports_type :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Removes a supported type from an application, if possible.--}-appInfoRemoveSupportsType ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> T.Text-    {- ^ /@contentType@/: a string. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoRemoveSupportsType appinfo contentType = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    contentType' <- textToCString contentType-    onException (do-        _ <- propagateGError $ g_app_info_remove_supports_type appinfo' contentType'-        touchManagedPtr appinfo-        freeMem contentType'-        return ()-     ) (do-        freeMem contentType'-     )--#if ENABLE_OVERLOADING-data AppInfoRemoveSupportsTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoRemoveSupportsTypeMethodInfo a signature where-    overloadedMethod _ = appInfoRemoveSupportsType--#endif---- method AppInfo::set_as_default_for_extension--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extension", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the file extension\n    (without the dot).", 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 "g_app_info_set_as_default_for_extension" g_app_info_set_as_default_for_extension :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    CString ->                              -- extension : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets the application as the default handler for the given file extension.--}-appInfoSetAsDefaultForExtension ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> [Char]-    {- ^ /@extension@/: a string containing the file extension-    (without the dot). -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoSetAsDefaultForExtension appinfo extension = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    extension' <- stringToCString extension-    onException (do-        _ <- propagateGError $ g_app_info_set_as_default_for_extension appinfo' extension'-        touchManagedPtr appinfo-        freeMem extension'-        return ()-     ) (do-        freeMem extension'-     )--#if ENABLE_OVERLOADING-data AppInfoSetAsDefaultForExtensionMethodInfo-instance (signature ~ ([Char] -> m ()), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoSetAsDefaultForExtensionMethodInfo a signature where-    overloadedMethod _ = appInfoSetAsDefaultForExtension--#endif---- method AppInfo::set_as_default_for_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content type.", 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 "g_app_info_set_as_default_for_type" g_app_info_set_as_default_for_type :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets the application as the default handler for a given type.--}-appInfoSetAsDefaultForType ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> T.Text-    {- ^ /@contentType@/: the content type. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoSetAsDefaultForType appinfo contentType = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    contentType' <- textToCString contentType-    onException (do-        _ <- propagateGError $ g_app_info_set_as_default_for_type appinfo' contentType'-        touchManagedPtr appinfo-        freeMem contentType'-        return ()-     ) (do-        freeMem contentType'-     )--#if ENABLE_OVERLOADING-data AppInfoSetAsDefaultForTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoSetAsDefaultForTypeMethodInfo a signature where-    overloadedMethod _ = appInfoSetAsDefaultForType--#endif---- method AppInfo::set_as_last_used_for_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content type.", 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 "g_app_info_set_as_last_used_for_type" g_app_info_set_as_last_used_for_type :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets the application as the last used application for a given type.-This will make the application appear as first in the list returned-by 'GI.Gio.Functions.appInfoGetRecommendedForType', regardless of the default-application for that content type.--}-appInfoSetAsLastUsedForType ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> T.Text-    {- ^ /@contentType@/: the content type. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoSetAsLastUsedForType appinfo contentType = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    contentType' <- textToCString contentType-    onException (do-        _ <- propagateGError $ g_app_info_set_as_last_used_for_type appinfo' contentType'-        touchManagedPtr appinfo-        freeMem contentType'-        return ()-     ) (do-        freeMem contentType'-     )--#if ENABLE_OVERLOADING-data AppInfoSetAsLastUsedForTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoSetAsLastUsedForTypeMethodInfo a signature where-    overloadedMethod _ = appInfoSetAsLastUsedForType--#endif---- method AppInfo::should_show--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", 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 "g_app_info_should_show" g_app_info_should_show :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CInt--{- |-Checks if the application info should be shown in menus that-list available applications.--}-appInfoShouldShow ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@appinfo@/ should be shown, 'False' otherwise. -}-appInfoShouldShow appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_should_show appinfo'-    let result' = (/= 0) result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoShouldShowMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoShouldShowMethodInfo a signature where-    overloadedMethod _ = appInfoShouldShow--#endif---- method AppInfo::supports_files--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", 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 "g_app_info_supports_files" g_app_info_supports_files :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CInt--{- |-Checks if the application accepts files as arguments.--}-appInfoSupportsFiles ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@appinfo@/ supports files. -}-appInfoSupportsFiles appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_supports_files appinfo'-    let result' = (/= 0) result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoSupportsFilesMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoSupportsFilesMethodInfo a signature where-    overloadedMethod _ = appInfoSupportsFiles--#endif---- method AppInfo::supports_uris--- method type : OrdinaryMethod--- Args : [Arg {argCName = "appinfo", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo.", 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 "g_app_info_supports_uris" g_app_info_supports_uris :: -    Ptr AppInfo ->                          -- appinfo : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    IO CInt--{- |-Checks if the application supports reading files and directories from URIs.--}-appInfoSupportsUris ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppInfo a) =>-    a-    {- ^ /@appinfo@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@appinfo@/ supports URIs. -}-appInfoSupportsUris appinfo = liftIO $ do-    appinfo' <- unsafeManagedPtrCastPtr appinfo-    result <- g_app_info_supports_uris appinfo'-    let result' = (/= 0) result-    touchManagedPtr appinfo-    return result'--#if ENABLE_OVERLOADING-data AppInfoSupportsUrisMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAppInfo a) => O.MethodInfo AppInfoSupportsUrisMethodInfo a signature where-    overloadedMethod _ = appInfoSupportsUris--#endif---- method AppInfo::create_from_commandline--- method type : MemberFunction--- Args : [Arg {argCName = "commandline", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the commandline to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the application name, or %NULL to use @commandline", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "AppInfoCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags that can specify details of the created #GAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_app_info_create_from_commandline" g_app_info_create_from_commandline :: -    CString ->                              -- commandline : TBasicType TFileName-    CString ->                              -- application_name : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "AppInfoCreateFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr AppInfo)--{- |-Creates a new 'GI.Gio.Interfaces.AppInfo.AppInfo' from the given information.--Note that for /@commandline@/, the quoting rules of the Exec key of the-<http://freedesktop.org/Standards/desktop-entry-spec freedesktop.org Desktop Entry Specification>-are applied. For example, if the /@commandline@/ contains-percent-encoded URIs, the percent-character must be doubled in order to prevent it from-being swallowed by Exec key unquoting. See the specification for exact quoting rules.--}-appInfoCreateFromCommandline ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@commandline@/: the commandline to use -}-    -> Maybe (T.Text)-    {- ^ /@applicationName@/: the application name, or 'Nothing' to use /@commandline@/ -}-    -> [Gio.Flags.AppInfoCreateFlags]-    {- ^ /@flags@/: flags that can specify details of the created 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> m AppInfo-    {- ^ __Returns:__ new 'GI.Gio.Interfaces.AppInfo.AppInfo' for given command. /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoCreateFromCommandline commandline applicationName flags = liftIO $ do-    commandline' <- stringToCString commandline-    maybeApplicationName <- case applicationName of-        Nothing -> return nullPtr-        Just jApplicationName -> do-            jApplicationName' <- textToCString jApplicationName-            return jApplicationName'-    let flags' = gflagsToWord flags-    onException (do-        result <- propagateGError $ g_app_info_create_from_commandline commandline' maybeApplicationName flags'-        checkUnexpectedReturnNULL "appInfoCreateFromCommandline" result-        result' <- (wrapObject AppInfo) result-        freeMem commandline'-        freeMem maybeApplicationName-        return result'-     ) (do-        freeMem commandline'-        freeMem maybeApplicationName-     )--#if ENABLE_OVERLOADING-#endif---- method AppInfo::get_all--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "AppInfo"})))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_all" g_app_info_get_all :: -    IO (Ptr (GList (Ptr AppInfo)))--{- |-Gets a list of all of the applications currently registered-on this system.--For desktop files, this includes applications that have-@NoDisplay=true@ set or are excluded from display by means-of @OnlyShowIn@ or @NotShowIn@. See 'GI.Gio.Interfaces.AppInfo.appInfoShouldShow'.-The returned list does not include applications which have-the @Hidden@ key set.--}-appInfoGetAll ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m [AppInfo]-    {- ^ __Returns:__ a newly allocated 'GI.GLib.Structs.List.List' of references to @/GAppInfos/@. -}-appInfoGetAll  = liftIO $ do-    result <- g_app_info_get_all-    result' <- unpackGList result-    result'' <- mapM (wrapObject AppInfo) result'-    g_list_free result-    return result''--#if ENABLE_OVERLOADING-#endif---- method AppInfo::get_all_for_type--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content type to find a #GAppInfo for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "AppInfo"})))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_all_for_type" g_app_info_get_all_for_type :: -    CString ->                              -- content_type : TBasicType TUTF8-    IO (Ptr (GList (Ptr AppInfo)))--{- |-Gets a list of all @/GAppInfos/@ for a given content type,-including the recommended and fallback @/GAppInfos/@. See-'GI.Gio.Functions.appInfoGetRecommendedForType' and-'GI.Gio.Functions.appInfoGetFallbackForType'.--}-appInfoGetAllForType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@contentType@/: the content type to find a 'GI.Gio.Interfaces.AppInfo.AppInfo' for -}-    -> m [AppInfo]-    {- ^ __Returns:__ 'GI.GLib.Structs.List.List' of @/GAppInfos/@-    for given /@contentType@/ or 'Nothing' on error. -}-appInfoGetAllForType contentType = liftIO $ do-    contentType' <- textToCString contentType-    result <- g_app_info_get_all_for_type contentType'-    result' <- unpackGList result-    result'' <- mapM (wrapObject AppInfo) result'-    g_list_free result-    freeMem contentType'-    return result''--#if ENABLE_OVERLOADING-#endif---- method AppInfo::get_default_for_type--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content type to find a #GAppInfo for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "must_support_uris", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if %TRUE, the #GAppInfo is expected to\n    support URIs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_default_for_type" g_app_info_get_default_for_type :: -    CString ->                              -- content_type : TBasicType TUTF8-    CInt ->                                 -- must_support_uris : TBasicType TBoolean-    IO (Ptr AppInfo)--{- |-Gets the default 'GI.Gio.Interfaces.AppInfo.AppInfo' for a given content type.--}-appInfoGetDefaultForType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@contentType@/: the content type to find a 'GI.Gio.Interfaces.AppInfo.AppInfo' for -}-    -> Bool-    {- ^ /@mustSupportUris@/: if 'True', the 'GI.Gio.Interfaces.AppInfo.AppInfo' is expected to-    support URIs -}-    -> m AppInfo-    {- ^ __Returns:__ 'GI.Gio.Interfaces.AppInfo.AppInfo' for given /@contentType@/ or-    'Nothing' on error. -}-appInfoGetDefaultForType contentType mustSupportUris = liftIO $ do-    contentType' <- textToCString contentType-    let mustSupportUris' = (fromIntegral . fromEnum) mustSupportUris-    result <- g_app_info_get_default_for_type contentType' mustSupportUris'-    checkUnexpectedReturnNULL "appInfoGetDefaultForType" result-    result' <- (wrapObject AppInfo) result-    freeMem contentType'-    return result'--#if ENABLE_OVERLOADING-#endif---- method AppInfo::get_default_for_uri_scheme--- method type : MemberFunction--- Args : [Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing a URI scheme.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_default_for_uri_scheme" g_app_info_get_default_for_uri_scheme :: -    CString ->                              -- uri_scheme : TBasicType TUTF8-    IO (Ptr AppInfo)--{- |-Gets the default application for handling URIs with-the given URI scheme. A URI scheme is the initial part-of the URI, up to but not including the \':\', e.g. \"http\",-\"ftp\" or \"sip\".--}-appInfoGetDefaultForUriScheme ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@uriScheme@/: a string containing a URI scheme. -}-    -> m AppInfo-    {- ^ __Returns:__ 'GI.Gio.Interfaces.AppInfo.AppInfo' for given /@uriScheme@/ or 'Nothing' on error. -}-appInfoGetDefaultForUriScheme uriScheme = liftIO $ do-    uriScheme' <- textToCString uriScheme-    result <- g_app_info_get_default_for_uri_scheme uriScheme'-    checkUnexpectedReturnNULL "appInfoGetDefaultForUriScheme" result-    result' <- (wrapObject AppInfo) result-    freeMem uriScheme'-    return result'--#if ENABLE_OVERLOADING-#endif---- method AppInfo::get_fallback_for_type--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content type to find a #GAppInfo for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "AppInfo"})))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_fallback_for_type" g_app_info_get_fallback_for_type :: -    CString ->                              -- content_type : TBasicType TUTF8-    IO (Ptr (GList (Ptr AppInfo)))--{- |-Gets a list of fallback @/GAppInfos/@ for a given content type, i.e.-those applications which claim to support the given content type-by MIME type subclassing and not directly.--/Since: 2.28/--}-appInfoGetFallbackForType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@contentType@/: the content type to find a 'GI.Gio.Interfaces.AppInfo.AppInfo' for -}-    -> m [AppInfo]-    {- ^ __Returns:__ 'GI.GLib.Structs.List.List' of @/GAppInfos/@-    for given /@contentType@/ or 'Nothing' on error. -}-appInfoGetFallbackForType contentType = liftIO $ do-    contentType' <- textToCString contentType-    result <- g_app_info_get_fallback_for_type contentType'-    result' <- unpackGList result-    result'' <- mapM (wrapObject AppInfo) result'-    g_list_free result-    freeMem contentType'-    return result''--#if ENABLE_OVERLOADING-#endif---- method AppInfo::get_recommended_for_type--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content type to find a #GAppInfo for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "AppInfo"})))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_get_recommended_for_type" g_app_info_get_recommended_for_type :: -    CString ->                              -- content_type : TBasicType TUTF8-    IO (Ptr (GList (Ptr AppInfo)))--{- |-Gets a list of recommended @/GAppInfos/@ for a given content type, i.e.-those applications which claim to support the given content type exactly,-and not by MIME type subclassing.-Note that the first application of the list is the last used one, i.e.-the last one for which 'GI.Gio.Interfaces.AppInfo.appInfoSetAsLastUsedForType' has been-called.--/Since: 2.28/--}-appInfoGetRecommendedForType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@contentType@/: the content type to find a 'GI.Gio.Interfaces.AppInfo.AppInfo' for -}-    -> m [AppInfo]-    {- ^ __Returns:__ 'GI.GLib.Structs.List.List' of @/GAppInfos/@-    for given /@contentType@/ or 'Nothing' on error. -}-appInfoGetRecommendedForType contentType = liftIO $ do-    contentType' <- textToCString contentType-    result <- g_app_info_get_recommended_for_type contentType'-    result' <- unpackGList result-    result'' <- mapM (wrapObject AppInfo) result'-    g_list_free result-    freeMem contentType'-    return result''--#if ENABLE_OVERLOADING-#endif---- method AppInfo::launch_default_for_uri--- method type : MemberFunction--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the uri to show", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an optional #GAppLaunchContext", 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 "g_app_info_launch_default_for_uri" g_app_info_launch_default_for_uri :: -    CString ->                              -- uri : TBasicType TUTF8-    Ptr Gio.AppLaunchContext.AppLaunchContext -> -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Utility function that launches the default application-registered to handle the specified uri. Synchronous I\/O-is done on the uri to detect the type of the file if-required.--The D-Bus–activated applications don\'t have to be started if your application-terminates too soon after this function. To prevent this, use-'GI.Gio.Functions.appInfoLaunchDefaultForUri' instead.--}-appInfoLaunchDefaultForUri ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AppLaunchContext.IsAppLaunchContext a) =>-    T.Text-    {- ^ /@uri@/: the uri to show -}-    -> Maybe (a)-    {- ^ /@context@/: an optional 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoLaunchDefaultForUri uri context = liftIO $ do-    uri' <- textToCString uri-    maybeContext <- case context of-        Nothing -> return nullPtr-        Just jContext -> do-            jContext' <- unsafeManagedPtrCastPtr jContext-            return jContext'-    onException (do-        _ <- propagateGError $ g_app_info_launch_default_for_uri uri' maybeContext-        whenJust context touchManagedPtr-        freeMem uri'-        return ()-     ) (do-        freeMem uri'-     )--#if ENABLE_OVERLOADING-#endif---- method AppInfo::launch_default_for_uri_async--- method type : MemberFunction--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the uri to show", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an optional #GAppLaunchContext", 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", 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 "a #GAsyncReadyCallback to call when the request is done", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, 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 "g_app_info_launch_default_for_uri_async" g_app_info_launch_default_for_uri_async :: -    CString ->                              -- uri : TBasicType TUTF8-    Ptr Gio.AppLaunchContext.AppLaunchContext -> -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    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 ()--{- |-Async version of 'GI.Gio.Functions.appInfoLaunchDefaultForUri'.--This version is useful if you are interested in receiving-error information in the case where the application is-sandboxed and the portal may present an application chooser-dialog to the user.--This is also useful if you want to be sure that the D-Bus–activated-applications are really started before termination and if you are interested-in receiving error information from their activation.--/Since: 2.50/--}-appInfoLaunchDefaultForUriAsync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AppLaunchContext.IsAppLaunchContext a, Gio.Cancellable.IsCancellable b) =>-    T.Text-    {- ^ /@uri@/: the uri to show -}-    -> Maybe (a)-    {- ^ /@context@/: an optional 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is done -}-    -> m ()-appInfoLaunchDefaultForUriAsync uri context cancellable callback = liftIO $ do-    uri' <- textToCString uri-    maybeContext <- case context of-        Nothing -> return nullPtr-        Just jContext -> do-            jContext' <- unsafeManagedPtrCastPtr jContext-            return jContext'-    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-    g_app_info_launch_default_for_uri_async uri' maybeContext maybeCancellable maybeCallback userData-    whenJust context touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem uri'-    return ()--#if ENABLE_OVERLOADING-#endif---- method AppInfo::launch_default_for_uri_finish--- method type : MemberFunction--- Args : [Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", 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 "g_app_info_launch_default_for_uri_finish" g_app_info_launch_default_for_uri_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous launch-default-for-uri operation.--/Since: 2.50/--}-appInfoLaunchDefaultForUriFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-appInfoLaunchDefaultForUriFinish result_ = liftIO $ do-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_app_info_launch_default_for_uri_finish result_'-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method AppInfo::reset_type_associations--- method type : MemberFunction--- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_app_info_reset_type_associations" g_app_info_reset_type_associations :: -    CString ->                              -- content_type : TBasicType TUTF8-    IO ()--{- |-Removes all changes to the type associations done by-'GI.Gio.Interfaces.AppInfo.appInfoSetAsDefaultForType',-'GI.Gio.Interfaces.AppInfo.appInfoSetAsDefaultForExtension',-'GI.Gio.Interfaces.AppInfo.appInfoAddSupportsType' or-'GI.Gio.Interfaces.AppInfo.appInfoRemoveSupportsType'.--/Since: 2.20/--}-appInfoResetTypeAssociations ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@contentType@/: a content type -}-    -> m ()-appInfoResetTypeAssociations contentType = liftIO $ do-    contentType' <- textToCString contentType-    g_app_info_reset_type_associations contentType'-    freeMem contentType'-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/AppInfo.hs-boot 
@@ -1,104 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.AppInfo 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 AppInfo = AppInfo (ManagedPtr AppInfo)-instance GObject AppInfo where-class (GObject o, O.IsDescendantOf AppInfo o) => IsAppInfo o-instance (GObject o, O.IsDescendantOf AppInfo o) => IsAppInfo o-instance O.HasParentTypes AppInfo-#if ENABLE_OVERLOADING-data AppInfoAddSupportsTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoCanDeleteMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoCanRemoveSupportsTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoDeleteMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoDupMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoGetCommandlineMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoGetDescriptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoGetDisplayNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoGetExecutableMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoGetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoGetIdMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoGetSupportedTypesMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoLaunchMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoLaunchUrisMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoLaunchUrisAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoLaunchUrisFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoRemoveSupportsTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoSetAsDefaultForExtensionMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoSetAsDefaultForTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoSetAsLastUsedForTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoShouldShowMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoSupportsFilesMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppInfoSupportsUrisMethodInfo-#endif
− GI/Gio/Interfaces/AsyncInitable.hs 
@@ -1,522 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--This is the asynchronous version of 'GI.Gio.Interfaces.Initable.Initable'; it behaves the same-in all ways except that initialization is asynchronous. For more details-see the descriptions on 'GI.Gio.Interfaces.Initable.Initable'.--A class may implement both the 'GI.Gio.Interfaces.Initable.Initable' and 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable' interfaces.--Users of objects implementing this are not intended to use the interface-method directly; instead it will be used automatically in various ways.-For C applications you generally just call @/g_async_initable_new_async()/@-directly, or indirectly via a @/foo_thing_new_async()/@ wrapper. This will call-'GI.Gio.Interfaces.AsyncInitable.asyncInitableInitAsync' under the cover, calling back with 'Nothing' and-a set @/GError/@ on failure.--A typical implementation might look something like this:---=== /C code/->->enum {->   NOT_INITIALIZED,->   INITIALIZING,->   INITIALIZED->};->->static void->_foo_ready_cb (Foo *self)->{->  GList *l;->->  self->priv->state = INITIALIZED;->->  for (l = self->priv->init_results; l != NULL; l = l->next)->    {->      GTask *task = l->data;->->      if (self->priv->success)->        g_task_return_boolean (task, TRUE);->      else->        g_task_return_new_error (task, ...);->      g_object_unref (task);->    }->->  g_list_free (self->priv->init_results);->  self->priv->init_results = NULL;->}->->static void->foo_init_async (GAsyncInitable       *initable,->                int                   io_priority,->                GCancellable         *cancellable,->                GAsyncReadyCallback   callback,->                gpointer              user_data)->{->  Foo *self = FOO (initable);->  GTask *task;->->  task = g_task_new (initable, cancellable, callback, user_data);->->  switch (self->priv->state)->    {->      case NOT_INITIALIZED:->        _foo_get_ready (self);->        self->priv->init_results = g_list_append (self->priv->init_results,->                                                  task);->        self->priv->state = INITIALIZING;->        break;->      case INITIALIZING:->        self->priv->init_results = g_list_append (self->priv->init_results,->                                                  task);->        break;->      case INITIALIZED:->        if (!self->priv->success)->          g_task_return_new_error (task, ...);->        else->          g_task_return_boolean (task, TRUE);->        g_object_unref (task);->        break;->    }->}->->static gboolean->foo_init_finish (GAsyncInitable       *initable,->                 GAsyncResult         *result,->                 GError              **error)->{->  g_return_val_if_fail (g_task_is_valid (result, initable), FALSE);->->  return g_task_propagate_boolean (G_TASK (result), error);->}->->static void->foo_async_initable_iface_init (gpointer g_iface,->                               gpointer data)->{->  GAsyncInitableIface *iface = g_iface;->->  iface->init_async = foo_init_async;->  iface->init_finish = foo_init_finish;->}---/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.AsyncInitable-    ( ---- * Exported types-    AsyncInitable(..)                       ,-    noAsyncInitable                         ,-    IsAsyncInitable                         ,-    toAsyncInitable                         ,--- -- * Methods--- ** initAsync #method:initAsync#--#if ENABLE_OVERLOADING-    AsyncInitableInitAsyncMethodInfo        ,-#endif-    asyncInitableInitAsync                  ,----- ** initFinish #method:initFinish#--#if ENABLE_OVERLOADING-    AsyncInitableInitFinishMethodInfo       ,-#endif-    asyncInitableInitFinish                 ,----- ** newFinish #method:newFinish#--#if ENABLE_OVERLOADING-    AsyncInitableNewFinishMethodInfo        ,-#endif-    asyncInitableNewFinish                  ,----- ** newvAsync #method:newvAsync#--    asyncInitableNewvAsync                  ,-----    ) 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.GObject.Structs.Parameter as GObject.Parameter-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- interface AsyncInitable --- | Memory-managed wrapper type.-newtype AsyncInitable = AsyncInitable (ManagedPtr AsyncInitable)--- | A convenience alias for `Nothing` :: `Maybe` `AsyncInitable`.-noAsyncInitable :: Maybe AsyncInitable-noAsyncInitable = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList AsyncInitable = AsyncInitableSignalList-type AsyncInitableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_async_initable_get_type"-    c_g_async_initable_get_type :: IO GType--instance GObject AsyncInitable where-    gobjectType = c_g_async_initable_get_type-    ---- | Type class for types which can be safely cast to `AsyncInitable`, for instance with `toAsyncInitable`.-class (GObject o, O.IsDescendantOf AsyncInitable o) => IsAsyncInitable o-instance (GObject o, O.IsDescendantOf AsyncInitable o) => IsAsyncInitable o--instance O.HasParentTypes AsyncInitable-type instance O.ParentTypes AsyncInitable = '[GObject.Object.Object]---- | Cast to `AsyncInitable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAsyncInitable :: (MonadIO m, IsAsyncInitable o) => o -> m AsyncInitable-toAsyncInitable = liftIO . unsafeCastTo AsyncInitable--#if ENABLE_OVERLOADING-instance O.HasAttributeList AsyncInitable-type instance O.AttributeList AsyncInitable = AsyncInitableAttributeList-type AsyncInitableAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveAsyncInitableMethod (t :: Symbol) (o :: *) :: * where-    ResolveAsyncInitableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAsyncInitableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAsyncInitableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAsyncInitableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAsyncInitableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAsyncInitableMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo-    ResolveAsyncInitableMethod "initFinish" o = AsyncInitableInitFinishMethodInfo-    ResolveAsyncInitableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAsyncInitableMethod "newFinish" o = AsyncInitableNewFinishMethodInfo-    ResolveAsyncInitableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAsyncInitableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAsyncInitableMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAsyncInitableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAsyncInitableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAsyncInitableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAsyncInitableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAsyncInitableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAsyncInitableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAsyncInitableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAsyncInitableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAsyncInitableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAsyncInitableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAsyncInitableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAsyncInitableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAsyncInitableMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAsyncInitableMethod t AsyncInitable, O.MethodInfo info AsyncInitable p) => OL.IsLabel t (AsyncInitable -> 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 AsyncInitable::init_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "initable", argType = TInterface (Name {namespace = "Gio", name = "AsyncInitable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncInitable.", 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 "the [I/O priority][io-priority] of the operation", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_async_initable_init_async" g_async_initable_init_async :: -    Ptr AsyncInitable ->                    -- initable : TInterface (Name {namespace = "Gio", name = "AsyncInitable"})-    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 ()--{- |-Starts asynchronous initialization of the object implementing the-interface. This must be done before any real use of the object after-initial construction. If the object also implements 'GI.Gio.Interfaces.Initable.Initable' you can-optionally call 'GI.Gio.Interfaces.Initable.initableInit' instead.--This method is intended for language bindings. If writing in C,-@/g_async_initable_new_async()/@ should typically be used instead.--When the initialization is finished, /@callback@/ will be called. You can-then call 'GI.Gio.Interfaces.AsyncInitable.asyncInitableInitFinish' to get the result of the-initialization.--Implementations may also support cancellation. If /@cancellable@/ is not-'Nothing', then initialization can be cancelled by triggering the cancellable-object from another thread. If the operation was cancelled, the error-'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If /@cancellable@/ is not 'Nothing', and-the object doesn\'t support cancellable initialization, the error-'GI.Gio.Enums.IOErrorEnumNotSupported' will be returned.--As with 'GI.Gio.Interfaces.Initable.Initable', if the object is not initialized, or initialization-returns with an error, then all operations on the object except-'GI.GObject.Objects.Object.objectRef' and 'GI.GObject.Objects.Object.objectUnref' are considered to be invalid, and-have undefined behaviour. They will often fail with @/g_critical()/@ or-@/g_warning()/@, but this must not be relied on.--Callers should not assume that a class which implements 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable' can-be initialized multiple times; for more information, see 'GI.Gio.Interfaces.Initable.initableInit'.-If a class explicitly supports being initialized multiple times,-implementation requires yielding all subsequent calls to @/init_async()/@ on the-results of the first call.--For classes that also support the 'GI.Gio.Interfaces.Initable.Initable' interface, the default-implementation of this method will run the 'GI.Gio.Interfaces.Initable.initableInit' function-in a thread, so if you want to support asynchronous initialization via-threads, just implement the 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable' interface without overriding-any interface methods.--/Since: 2.22/--}-asyncInitableInitAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsAsyncInitable a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@initable@/: a 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable'. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the operation -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-asyncInitableInitAsync initable ioPriority cancellable callback = liftIO $ do-    initable' <- unsafeManagedPtrCastPtr initable-    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-    g_async_initable_init_async initable' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr initable-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data AsyncInitableInitAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsAsyncInitable a, Gio.Cancellable.IsCancellable b) => O.MethodInfo AsyncInitableInitAsyncMethodInfo a signature where-    overloadedMethod _ = asyncInitableInitAsync--#endif---- method AsyncInitable::init_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "initable", argType = TInterface (Name {namespace = "Gio", name = "AsyncInitable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncInitable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult.", 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 "g_async_initable_init_finish" g_async_initable_init_finish :: -    Ptr AsyncInitable ->                    -- initable : TInterface (Name {namespace = "Gio", name = "AsyncInitable"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes asynchronous initialization and returns the result.-See 'GI.Gio.Interfaces.AsyncInitable.asyncInitableInitAsync'.--/Since: 2.22/--}-asyncInitableInitFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsAsyncInitable a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@initable@/: a 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable'. -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-asyncInitableInitFinish initable res = liftIO $ do-    initable' <- unsafeManagedPtrCastPtr initable-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_async_initable_init_finish initable' res'-        touchManagedPtr initable-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data AsyncInitableInitFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsAsyncInitable a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo AsyncInitableInitFinishMethodInfo a signature where-    overloadedMethod _ = asyncInitableInitFinish--#endif---- method AsyncInitable::new_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "initable", argType = TInterface (Name {namespace = "Gio", name = "AsyncInitable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GAsyncInitable from the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GAsyncResult from the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GObject", name = "Object"}))--- throws : True--- Skip return : False--foreign import ccall "g_async_initable_new_finish" g_async_initable_new_finish :: -    Ptr AsyncInitable ->                    -- initable : TInterface (Name {namespace = "Gio", name = "AsyncInitable"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GObject.Object.Object)--{- |-Finishes the async construction for the various g_async_initable_new-calls, returning the created object or 'Nothing' on error.--/Since: 2.22/--}-asyncInitableNewFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsAsyncInitable a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@initable@/: the 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable' from the callback -}-    -> b-    {- ^ /@res@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' from the callback -}-    -> m GObject.Object.Object-    {- ^ __Returns:__ a newly created 'GI.GObject.Objects.Object.Object',-     or 'Nothing' on error. Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-asyncInitableNewFinish initable res = liftIO $ do-    initable' <- unsafeManagedPtrCastPtr initable-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_async_initable_new_finish initable' res'-        checkUnexpectedReturnNULL "asyncInitableNewFinish" result-        result' <- (wrapObject GObject.Object.Object) result-        touchManagedPtr initable-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data AsyncInitableNewFinishMethodInfo-instance (signature ~ (b -> m GObject.Object.Object), MonadIO m, IsAsyncInitable a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo AsyncInitableNewFinishMethodInfo a signature where-    overloadedMethod _ = asyncInitableNewFinish--#endif---- method AsyncInitable::newv_async--- method type : MemberFunction--- Args : [Arg {argCName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GType supporting #GAsyncInitable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of parameters in @parameters", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TInterface (Name {namespace = "GObject", name = "Parameter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the parameters to use to construct the object", 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 "the [I/O priority][io-priority] of the operation", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the initialization is\n    finished", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_async_initable_newv_async" g_async_initable_newv_async :: -    CGType ->                               -- object_type : TBasicType TGType-    Word32 ->                               -- n_parameters : TBasicType TUInt-    Ptr GObject.Parameter.Parameter ->      -- parameters : TInterface (Name {namespace = "GObject", name = "Parameter"})-    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 ()--{-# DEPRECATED asyncInitableNewvAsync ["(Since version 2.54)","Use @/g_object_new_with_properties()/@ and","'GI.Gio.Interfaces.AsyncInitable.asyncInitableInitAsync' instead. See 'GI.GObject.Structs.Parameter.Parameter' for more information."] #-}-{- |-Helper function for constructing 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable' object. This is-similar to 'GI.GObject.Objects.Object.objectNewv' but also initializes the object asynchronously.--When the initialization is finished, /@callback@/ will be called. You can-then call 'GI.Gio.Interfaces.AsyncInitable.asyncInitableNewFinish' to get the new object and check-for any errors.--/Since: 2.22/--}-asyncInitableNewvAsync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    GType-    {- ^ /@objectType@/: a 'GType' supporting 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable'. -}-    -> Word32-    {- ^ /@nParameters@/: the number of parameters in /@parameters@/ -}-    -> GObject.Parameter.Parameter-    {- ^ /@parameters@/: the parameters to use to construct the object -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the operation -}-    -> Maybe (a)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the initialization is-    finished -}-    -> m ()-asyncInitableNewvAsync objectType nParameters parameters ioPriority cancellable callback = liftIO $ do-    let objectType' = gtypeToCGType objectType-    parameters' <- unsafeManagedPtrGetPtr parameters-    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-    g_async_initable_newv_async objectType' nParameters parameters' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr parameters-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/AsyncInitable.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.AsyncInitable 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 AsyncInitable = AsyncInitable (ManagedPtr AsyncInitable)-instance GObject AsyncInitable where-class (GObject o, O.IsDescendantOf AsyncInitable o) => IsAsyncInitable o-instance (GObject o, O.IsDescendantOf AsyncInitable o) => IsAsyncInitable o-instance O.HasParentTypes AsyncInitable-#if ENABLE_OVERLOADING-data AsyncInitableInitAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data AsyncInitableInitFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data AsyncInitableNewFinishMethodInfo-#endif
− GI/Gio/Interfaces/AsyncResult.hs 
@@ -1,410 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Provides a base class for implementing asynchronous function results.--Asynchronous operations are broken up into two separate operations-which are chained together by a 'GI.Gio.Callbacks.AsyncReadyCallback'. To begin-an asynchronous operation, provide a 'GI.Gio.Callbacks.AsyncReadyCallback' to the-asynchronous function. This callback will be triggered when the-operation has completed, and must be run in a later iteration of-the [thread-default main context][g-main-context-push-thread-default]-from where the operation was initiated. It will be passed a-'GI.Gio.Interfaces.AsyncResult.AsyncResult' instance filled with the details of the operation\'s-success or failure, the object the asynchronous function was-started for and any error codes returned. The asynchronous callback-function is then expected to call the corresponding \"@/_finish()/@\"-function, passing the object the function was called for, the-'GI.Gio.Interfaces.AsyncResult.AsyncResult' instance, and (optionally) an /@error@/ to grab any-error conditions that may have occurred.--The \"@/_finish()/@\" function for an operation takes the generic result-(of type 'GI.Gio.Interfaces.AsyncResult.AsyncResult') and returns the specific result that the-operation in question yields (e.g. a 'GI.Gio.Objects.FileEnumerator.FileEnumerator' for a-\"enumerate children\" operation). If the result or error status of the-operation is not needed, there is no need to call the \"@/_finish()/@\"-function; GIO will take care of cleaning up the result and error-information after the 'GI.Gio.Callbacks.AsyncReadyCallback' returns. You can pass-'Nothing' for the 'GI.Gio.Callbacks.AsyncReadyCallback' if you don\'t need to take any-action at all after the operation completes. Applications may also-take a reference to the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' and call \"@/_finish()/@\" later;-however, the \"@/_finish()/@\" function may be called at most once.--Example of a typical asynchronous operation flow:--=== /C code/->->void _theoretical_frobnitz_async (Theoretical         *t,->                                  GCancellable        *c,->                                  GAsyncReadyCallback  cb,->                                  gpointer             u);->->gboolean _theoretical_frobnitz_finish (Theoretical   *t,->                                       GAsyncResult  *res,->                                       GError       **e);->->static void->frobnitz_result_func (GObject      *source_object,->		 GAsyncResult *res,->		 gpointer      user_data)->{->  gboolean success = FALSE;->->  success = _theoretical_frobnitz_finish (source_object, res, NULL);->->  if (success)->    g_printf ("Hurray!\n");->  else->    g_printf ("Uh oh!\n");->->  ...->->}->->int main (int argc, void *argv[])->{->   ...->->   _theoretical_frobnitz_async (theoretical_data,->                                NULL,->                                frobnitz_result_func,->                                NULL);->->   ...->}---The callback for an asynchronous operation is called only once, and is-always called, even in the case of a cancelled operation. On cancellation-the result is a 'GI.Gio.Enums.IOErrorEnumCancelled' error.--## I\/O Priority # {@/io/@-priority}--Many I\/O-related asynchronous operations have a priority parameter,-which is used in certain cases to determine the order in which-operations are executed. They are not used to determine system-wide-I\/O scheduling. Priorities are integers, with lower numbers indicating-higher priority. It is recommended to choose priorities between-'GI.GLib.Constants.PRIORITY_LOW' and 'GI.GLib.Constants.PRIORITY_HIGH', with 'GI.GLib.Constants.PRIORITY_DEFAULT'-as a default.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.AsyncResult-    ( ---- * Exported types-    AsyncResult(..)                         ,-    noAsyncResult                           ,-    IsAsyncResult                           ,-    toAsyncResult                           ,--- -- * Methods--- ** getSourceObject #method:getSourceObject#--#if ENABLE_OVERLOADING-    AsyncResultGetSourceObjectMethodInfo    ,-#endif-    asyncResultGetSourceObject              ,----- ** getUserData #method:getUserData#--#if ENABLE_OVERLOADING-    AsyncResultGetUserDataMethodInfo        ,-#endif-    asyncResultGetUserData                  ,----- ** isTagged #method:isTagged#--#if ENABLE_OVERLOADING-    AsyncResultIsTaggedMethodInfo           ,-#endif-    asyncResultIsTagged                     ,----- ** legacyPropagateError #method:legacyPropagateError#--#if ENABLE_OVERLOADING-    AsyncResultLegacyPropagateErrorMethodInfo,-#endif-    asyncResultLegacyPropagateError         ,-----    ) 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---- interface AsyncResult --- | Memory-managed wrapper type.-newtype AsyncResult = AsyncResult (ManagedPtr AsyncResult)--- | A convenience alias for `Nothing` :: `Maybe` `AsyncResult`.-noAsyncResult :: Maybe AsyncResult-noAsyncResult = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList AsyncResult = AsyncResultSignalList-type AsyncResultSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_async_result_get_type"-    c_g_async_result_get_type :: IO GType--instance GObject AsyncResult where-    gobjectType = c_g_async_result_get_type-    ---- | Type class for types which can be safely cast to `AsyncResult`, for instance with `toAsyncResult`.-class (GObject o, O.IsDescendantOf AsyncResult o) => IsAsyncResult o-instance (GObject o, O.IsDescendantOf AsyncResult o) => IsAsyncResult o--instance O.HasParentTypes AsyncResult-type instance O.ParentTypes AsyncResult = '[GObject.Object.Object]---- | Cast to `AsyncResult`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAsyncResult :: (MonadIO m, IsAsyncResult o) => o -> m AsyncResult-toAsyncResult = liftIO . unsafeCastTo AsyncResult--#if ENABLE_OVERLOADING-instance O.HasAttributeList AsyncResult-type instance O.AttributeList AsyncResult = AsyncResultAttributeList-type AsyncResultAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveAsyncResultMethod (t :: Symbol) (o :: *) :: * where-    ResolveAsyncResultMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAsyncResultMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAsyncResultMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAsyncResultMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAsyncResultMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAsyncResultMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAsyncResultMethod "isTagged" o = AsyncResultIsTaggedMethodInfo-    ResolveAsyncResultMethod "legacyPropagateError" o = AsyncResultLegacyPropagateErrorMethodInfo-    ResolveAsyncResultMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAsyncResultMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAsyncResultMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAsyncResultMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAsyncResultMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAsyncResultMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAsyncResultMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAsyncResultMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAsyncResultMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAsyncResultMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAsyncResultMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAsyncResultMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAsyncResultMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAsyncResultMethod "getSourceObject" o = AsyncResultGetSourceObjectMethodInfo-    ResolveAsyncResultMethod "getUserData" o = AsyncResultGetUserDataMethodInfo-    ResolveAsyncResultMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAsyncResultMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAsyncResultMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAsyncResultMethod t AsyncResult, O.MethodInfo info AsyncResult p) => OL.IsLabel t (AsyncResult -> 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 AsyncResult::get_source_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GObject", name = "Object"}))--- throws : False--- Skip return : False--foreign import ccall "g_async_result_get_source_object" g_async_result_get_source_object :: -    Ptr AsyncResult ->                      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    IO (Ptr GObject.Object.Object)--{- |-Gets the source object from a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'.--}-asyncResultGetSourceObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsAsyncResult a) =>-    a-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m (Maybe GObject.Object.Object)-    {- ^ __Returns:__ a new reference to the source-   object for the /@res@/, or 'Nothing' if there is none. -}-asyncResultGetSourceObject res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    result <- g_async_result_get_source_object res'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject GObject.Object.Object) result'-        return result''-    touchManagedPtr res-    return maybeResult--#if ENABLE_OVERLOADING-data AsyncResultGetSourceObjectMethodInfo-instance (signature ~ (m (Maybe GObject.Object.Object)), MonadIO m, IsAsyncResult a) => O.MethodInfo AsyncResultGetSourceObjectMethodInfo a signature where-    overloadedMethod _ = asyncResultGetSourceObject--#endif---- method AsyncResult::get_user_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "g_async_result_get_user_data" g_async_result_get_user_data :: -    Ptr AsyncResult ->                      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    IO (Ptr ())--{- |-Gets the user data from a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'.--}-asyncResultGetUserData ::-    (B.CallStack.HasCallStack, MonadIO m, IsAsyncResult a) =>-    a-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m (Ptr ())-    {- ^ __Returns:__ the user data for /@res@/. -}-asyncResultGetUserData res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    result <- g_async_result_get_user_data res'-    touchManagedPtr res-    return result--#if ENABLE_OVERLOADING-data AsyncResultGetUserDataMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, IsAsyncResult a) => O.MethodInfo AsyncResultGetUserDataMethodInfo a signature where-    overloadedMethod _ = asyncResultGetUserData--#endif---- method AsyncResult::is_tagged--- method type : OrdinaryMethod--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an application-defined tag", 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 "g_async_result_is_tagged" g_async_result_is_tagged :: -    Ptr AsyncResult ->                      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr () ->                               -- source_tag : TBasicType TPtr-    IO CInt--{- |-Checks if /@res@/ has the given /@sourceTag@/ (generally a function-pointer indicating the function /@res@/ was created by).--/Since: 2.34/--}-asyncResultIsTagged ::-    (B.CallStack.HasCallStack, MonadIO m, IsAsyncResult a) =>-    a-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> Ptr ()-    {- ^ /@sourceTag@/: an application-defined tag -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@res@/ has the indicated /@sourceTag@/, 'False' if-  not. -}-asyncResultIsTagged res sourceTag = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    result <- g_async_result_is_tagged res' sourceTag-    let result' = (/= 0) result-    touchManagedPtr res-    return result'--#if ENABLE_OVERLOADING-data AsyncResultIsTaggedMethodInfo-instance (signature ~ (Ptr () -> m Bool), MonadIO m, IsAsyncResult a) => O.MethodInfo AsyncResultIsTaggedMethodInfo a signature where-    overloadedMethod _ = asyncResultIsTagged--#endif---- method AsyncResult::legacy_propagate_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", 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 "g_async_result_legacy_propagate_error" g_async_result_legacy_propagate_error :: -    Ptr AsyncResult ->                      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-If /@res@/ is a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult', this is equivalent to-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultPropagateError'. Otherwise it returns-'False'.--This can be used for legacy error handling in async *@/_finish()/@-wrapper functions that traditionally handled 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'-error returns themselves rather than calling into the virtual method.-This should not be used in new code; 'GI.Gio.Interfaces.AsyncResult.AsyncResult' errors that are-set by virtual methods should also be extracted by virtual methods,-to enable subclasses to chain up correctly.--/Since: 2.34/--}-asyncResultLegacyPropagateError ::-    (B.CallStack.HasCallStack, MonadIO m, IsAsyncResult a) =>-    a-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-asyncResultLegacyPropagateError res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_async_result_legacy_propagate_error res'-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data AsyncResultLegacyPropagateErrorMethodInfo-instance (signature ~ (m ()), MonadIO m, IsAsyncResult a) => O.MethodInfo AsyncResultLegacyPropagateErrorMethodInfo a signature where-    overloadedMethod _ = asyncResultLegacyPropagateError--#endif--
− GI/Gio/Interfaces/AsyncResult.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.AsyncResult 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 AsyncResult = AsyncResult (ManagedPtr AsyncResult)-instance GObject AsyncResult where-class (GObject o, O.IsDescendantOf AsyncResult o) => IsAsyncResult o-instance (GObject o, O.IsDescendantOf AsyncResult o) => IsAsyncResult o-instance O.HasParentTypes AsyncResult-#if ENABLE_OVERLOADING-data AsyncResultGetSourceObjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data AsyncResultGetUserDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data AsyncResultIsTaggedMethodInfo-#endif-#if ENABLE_OVERLOADING-data AsyncResultLegacyPropagateErrorMethodInfo-#endif
− GI/Gio/Interfaces/Converter.hs 
@@ -1,356 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.Converter.Converter' is implemented by objects that convert-binary data in various ways. The conversion can be-stateful and may fail at any place.--Some example conversions are: character set conversion,-compression, decompression and regular expression-replace.--/Since: 2.24/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Converter-    ( ---- * Exported types-    Converter(..)                           ,-    noConverter                             ,-    IsConverter                             ,-    toConverter                             ,--- -- * Methods--- ** convert #method:convert#--#if ENABLE_OVERLOADING-    ConverterConvertMethodInfo              ,-#endif-    converterConvert                        ,----- ** reset #method:reset#--#if ENABLE_OVERLOADING-    ConverterResetMethodInfo                ,-#endif-    converterReset                          ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags---- interface Converter --- | Memory-managed wrapper type.-newtype Converter = Converter (ManagedPtr Converter)--- | A convenience alias for `Nothing` :: `Maybe` `Converter`.-noConverter :: Maybe Converter-noConverter = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList Converter = ConverterSignalList-type ConverterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_converter_get_type"-    c_g_converter_get_type :: IO GType--instance GObject Converter where-    gobjectType = c_g_converter_get_type-    ---- | Type class for types which can be safely cast to `Converter`, for instance with `toConverter`.-class (GObject o, O.IsDescendantOf Converter o) => IsConverter o-instance (GObject o, O.IsDescendantOf Converter o) => IsConverter o--instance O.HasParentTypes Converter-type instance O.ParentTypes Converter = '[GObject.Object.Object]---- | Cast to `Converter`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toConverter :: (MonadIO m, IsConverter o) => o -> m Converter-toConverter = liftIO . unsafeCastTo Converter--#if ENABLE_OVERLOADING-instance O.HasAttributeList Converter-type instance O.AttributeList Converter = ConverterAttributeList-type ConverterAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveConverterMethod (t :: Symbol) (o :: *) :: * where-    ResolveConverterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveConverterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveConverterMethod "convert" o = ConverterConvertMethodInfo-    ResolveConverterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveConverterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveConverterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveConverterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveConverterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveConverterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveConverterMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveConverterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveConverterMethod "reset" o = ConverterResetMethodInfo-    ResolveConverterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveConverterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveConverterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveConverterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveConverterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveConverterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveConverterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveConverterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveConverterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveConverterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveConverterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveConverterMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveConverterMethod t Converter, O.MethodInfo info Converter p) => OL.IsLabel t (Converter -> 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 Converter::convert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "converter", argType = TInterface (Name {namespace = "Gio", name = "Converter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GConverter.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbuf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the buffer\n        containing the data to convert.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes in @inbuf", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a buffer to write\n   converted data in.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes in @outbuf, must be at least one", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "ConverterFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GConverterFlags controlling the conversion details", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "will be set to the number of bytes read from @inbuf on success", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "will be set to the number of bytes written to @outbuf on success", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "outbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes in @outbuf, must be at least one", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes in @inbuf", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ConverterResult"}))--- throws : True--- Skip return : False--foreign import ccall "g_converter_convert" g_converter_convert :: -    Ptr Converter ->                        -- converter : TInterface (Name {namespace = "Gio", name = "Converter"})-    Ptr Word8 ->                            -- inbuf : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- inbuf_size : TBasicType TUInt64-    Ptr Word8 ->                            -- outbuf : TCArray False (-1) 4 (TBasicType TUInt8)-    Word64 ->                               -- outbuf_size : TBasicType TUInt64-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "ConverterFlags"})-    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-This is the main operation used when converting data. It is to be called-multiple times in a loop, and each time it will do some work, i.e.-producing some output (in /@outbuf@/) or consuming some input (from /@inbuf@/) or-both. If its not possible to do any work an error is returned.--Note that a single call may not consume all input (or any input at all).-Also a call may produce output even if given no input, due to state stored-in the converter producing output.--If any data was either produced or consumed, and then an error happens, then-only the successful conversion is reported and the error is returned on the-next call.--A full conversion loop involves calling this method repeatedly, each time-giving it new input and space output space. When there is no more input-data after the data in /@inbuf@/, the flag 'GI.Gio.Flags.ConverterFlagsInputAtEnd' must be set.-The loop will be (unless some error happens) returning 'GI.Gio.Enums.ConverterResultConverted'-each time until all data is consumed and all output is produced, then-'GI.Gio.Enums.ConverterResultFinished' is returned instead. Note, that 'GI.Gio.Enums.ConverterResultFinished'-may be returned even if 'GI.Gio.Flags.ConverterFlagsInputAtEnd' is not set, for instance-in a decompression converter where the end of data is detectable from the-data (and there might even be other data after the end of the compressed data).--When some data has successfully been converted /@bytesRead@/ and is set to-the number of bytes read from /@inbuf@/, and /@bytesWritten@/ is set to indicate-how many bytes was written to /@outbuf@/. If there are more data to output-or consume (i.e. unless the 'GI.Gio.Flags.ConverterFlagsInputAtEnd' is specified) then-'GI.Gio.Enums.ConverterResultConverted' is returned, and if no more data is to be output-then 'GI.Gio.Enums.ConverterResultFinished' is returned.--On error 'GI.Gio.Enums.ConverterResultError' is returned and /@error@/ is set accordingly.-Some errors need special handling:--'GI.Gio.Enums.IOErrorEnumNoSpace' is returned if there is not enough space-to write the resulting converted data, the application should-call the function again with a larger /@outbuf@/ to continue.--'GI.Gio.Enums.IOErrorEnumPartialInput' is returned if there is not enough-input to fully determine what the conversion should produce,-and the 'GI.Gio.Flags.ConverterFlagsInputAtEnd' flag is not set. This happens for-example with an incomplete multibyte sequence when converting text,-or when a regexp matches up to the end of the input (and may match-further input). It may also happen when /@inbufSize@/ is zero and-there is no more data to produce.--When this happens the application should read more input and then-call the function again. If further input shows that there is no-more data call the function again with the same data but with-the 'GI.Gio.Flags.ConverterFlagsInputAtEnd' flag set. This may cause the conversion-to finish as e.g. in the regexp match case (or, to fail again with-'GI.Gio.Enums.IOErrorEnumPartialInput' in e.g. a charset conversion where the-input is actually partial).--After 'GI.Gio.Interfaces.Converter.converterConvert' has returned 'GI.Gio.Enums.ConverterResultFinished' the-converter object is in an invalid state where its not allowed-to call 'GI.Gio.Interfaces.Converter.converterConvert' anymore. At this time you can only-free the object or call 'GI.Gio.Interfaces.Converter.converterReset' to reset it to the-initial state.--If the flag 'GI.Gio.Flags.ConverterFlagsFlush' is set then conversion is modified-to try to write out all internal state to the output. The application-has to call the function multiple times with the flag set, and when-the available input has been consumed and all internal state has-been produced then 'GI.Gio.Enums.ConverterResultFlushed' (or 'GI.Gio.Enums.ConverterResultFinished' if-really at the end) is returned instead of 'GI.Gio.Enums.ConverterResultConverted'.-This is somewhat similar to what happens at the end of the input stream,-but done in the middle of the data.--This has different meanings for different conversions. For instance-in a compression converter it would mean that we flush all the-compression state into output such that if you uncompress the-compressed data you get back all the input data. Doing this may-make the final file larger due to padding though. Another example-is a regexp conversion, where if you at the end of the flushed data-have a match, but there is also a potential longer match. In the-non-flushed case we would ask for more input, but when flushing we-treat this as the end of input and do the match.--Flushing is not always possible (like if a charset converter flushes-at a partial multibyte sequence). Converters are supposed to try-to produce as much output as possible and then return an error-(typically 'GI.Gio.Enums.IOErrorEnumPartialInput').--/Since: 2.24/--}-converterConvert ::-    (B.CallStack.HasCallStack, MonadIO m, IsConverter a) =>-    a-    {- ^ /@converter@/: a 'GI.Gio.Interfaces.Converter.Converter'. -}-    -> Maybe (ByteString)-    {- ^ /@inbuf@/: the buffer-        containing the data to convert. -}-    -> Maybe (ByteString)-    {- ^ /@outbuf@/: a buffer to write-   converted data in. -}-    -> [Gio.Flags.ConverterFlags]-    {- ^ /@flags@/: a 'GI.Gio.Flags.ConverterFlags' controlling the conversion details -}-    -> m ((Gio.Enums.ConverterResult, Word64, Word64))-    {- ^ __Returns:__ a 'GI.Gio.Enums.ConverterResult', 'GI.Gio.Enums.ConverterResultError' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-converterConvert converter inbuf outbuf flags = liftIO $ do-    let outbufSize = case outbuf of-            Nothing -> 0-            Just jOutbuf -> fromIntegral $ B.length jOutbuf-    let inbufSize = case inbuf of-            Nothing -> 0-            Just jInbuf -> fromIntegral $ B.length jInbuf-    converter' <- unsafeManagedPtrCastPtr converter-    maybeInbuf <- case inbuf of-        Nothing -> return nullPtr-        Just jInbuf -> do-            jInbuf' <- packByteString jInbuf-            return jInbuf'-    maybeOutbuf <- case outbuf of-        Nothing -> return nullPtr-        Just jOutbuf -> do-            jOutbuf' <- packByteString jOutbuf-            return jOutbuf'-    let flags' = gflagsToWord flags-    bytesRead <- allocMem :: IO (Ptr Word64)-    bytesWritten <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_converter_convert converter' maybeInbuf inbufSize maybeOutbuf outbufSize flags' bytesRead bytesWritten-        let result' = (toEnum . fromIntegral) result-        bytesRead' <- peek bytesRead-        bytesWritten' <- peek bytesWritten-        touchManagedPtr converter-        freeMem maybeInbuf-        freeMem maybeOutbuf-        freeMem bytesRead-        freeMem bytesWritten-        return (result', bytesRead', bytesWritten')-     ) (do-        freeMem maybeInbuf-        freeMem maybeOutbuf-        freeMem bytesRead-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data ConverterConvertMethodInfo-instance (signature ~ (Maybe (ByteString) -> Maybe (ByteString) -> [Gio.Flags.ConverterFlags] -> m ((Gio.Enums.ConverterResult, Word64, Word64))), MonadIO m, IsConverter a) => O.MethodInfo ConverterConvertMethodInfo a signature where-    overloadedMethod _ = converterConvert--#endif---- method Converter::reset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "converter", argType = TInterface (Name {namespace = "Gio", name = "Converter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GConverter.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_converter_reset" g_converter_reset :: -    Ptr Converter ->                        -- converter : TInterface (Name {namespace = "Gio", name = "Converter"})-    IO ()--{- |-Resets all internal state in the converter, making it behave-as if it was just created. If the converter has any internal-state that would produce output then that output is lost.--/Since: 2.24/--}-converterReset ::-    (B.CallStack.HasCallStack, MonadIO m, IsConverter a) =>-    a-    {- ^ /@converter@/: a 'GI.Gio.Interfaces.Converter.Converter'. -}-    -> m ()-converterReset converter = liftIO $ do-    converter' <- unsafeManagedPtrCastPtr converter-    g_converter_reset converter'-    touchManagedPtr converter-    return ()--#if ENABLE_OVERLOADING-data ConverterResetMethodInfo-instance (signature ~ (m ()), MonadIO m, IsConverter a) => O.MethodInfo ConverterResetMethodInfo a signature where-    overloadedMethod _ = converterReset--#endif--
− GI/Gio/Interfaces/Converter.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Converter 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 Converter = Converter (ManagedPtr Converter)-instance GObject Converter where-class (GObject o, O.IsDescendantOf Converter o) => IsConverter o-instance (GObject o, O.IsDescendantOf Converter o) => IsConverter o-instance O.HasParentTypes Converter-#if ENABLE_OVERLOADING-data ConverterConvertMethodInfo-#endif-#if ENABLE_OVERLOADING-data ConverterResetMethodInfo-#endif
− GI/Gio/Interfaces/DBusInterface.hs 
@@ -1,282 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Interfaces.DBusInterface.DBusInterface' type is the base type for D-Bus interfaces both-on the service side (see 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton') and client side-(see 'GI.Gio.Objects.DBusProxy.DBusProxy').--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.DBusInterface-    ( ---- * Exported types-    DBusInterface(..)                       ,-    noDBusInterface                         ,-    IsDBusInterface                         ,-    toDBusInterface                         ,--- -- * Methods--- ** getInfo #method:getInfo#--#if ENABLE_OVERLOADING-    DBusInterfaceGetInfoMethodInfo          ,-#endif-    dBusInterfaceGetInfo                    ,----- ** getObject #method:getObject#--#if ENABLE_OVERLOADING-    DBusInterfaceGetObjectMethodInfo        ,-#endif-    dBusInterfaceGetObject                  ,----- ** setObject #method:setObject#--#if ENABLE_OVERLOADING-    DBusInterfaceSetObjectMethodInfo        ,-#endif-    dBusInterfaceSetObject                  ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObject as Gio.DBusObject-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo---- interface DBusInterface --- | Memory-managed wrapper type.-newtype DBusInterface = DBusInterface (ManagedPtr DBusInterface)--- | A convenience alias for `Nothing` :: `Maybe` `DBusInterface`.-noDBusInterface :: Maybe DBusInterface-noDBusInterface = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList DBusInterface = DBusInterfaceSignalList-type DBusInterfaceSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_dbus_interface_get_type"-    c_g_dbus_interface_get_type :: IO GType--instance GObject DBusInterface where-    gobjectType = c_g_dbus_interface_get_type-    ---- | Type class for types which can be safely cast to `DBusInterface`, for instance with `toDBusInterface`.-class (GObject o, O.IsDescendantOf DBusInterface o) => IsDBusInterface o-instance (GObject o, O.IsDescendantOf DBusInterface o) => IsDBusInterface o--instance O.HasParentTypes DBusInterface-type instance O.ParentTypes DBusInterface = '[GObject.Object.Object]---- | Cast to `DBusInterface`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusInterface :: (MonadIO m, IsDBusInterface o) => o -> m DBusInterface-toDBusInterface = liftIO . unsafeCastTo DBusInterface--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusInterface-type instance O.AttributeList DBusInterface = DBusInterfaceAttributeList-type DBusInterfaceAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveDBusInterfaceMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusInterfaceMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusInterfaceMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusInterfaceMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusInterfaceMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusInterfaceMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusInterfaceMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusInterfaceMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusInterfaceMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusInterfaceMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusInterfaceMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusInterfaceMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusInterfaceMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusInterfaceMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusInterfaceMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusInterfaceMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusInterfaceMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusInterfaceMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusInterfaceMethod "getInfo" o = DBusInterfaceGetInfoMethodInfo-    ResolveDBusInterfaceMethod "getObject" o = DBusInterfaceGetObjectMethodInfo-    ResolveDBusInterfaceMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusInterfaceMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusInterfaceMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusInterfaceMethod "setObject" o = DBusInterfaceSetObjectMethodInfo-    ResolveDBusInterfaceMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusInterfaceMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusInterfaceMethod t DBusInterface, O.MethodInfo info DBusInterface p) => OL.IsLabel t (DBusInterface -> 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 DBusInterface::get_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterface"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An exported D-Bus interface.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObject"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_dup_object" g_dbus_interface_dup_object :: -    Ptr DBusInterface ->                    -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterface"})-    IO (Ptr Gio.DBusObject.DBusObject)--{- |-Gets the 'GI.Gio.Interfaces.DBusObject.DBusObject' that /@interface_@/ belongs to, if any.--/Since: 2.32/--}-dBusInterfaceGetObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterface a) =>-    a-    {- ^ /@interface_@/: An exported D-Bus interface. -}-    -> m Gio.DBusObject.DBusObject-    {- ^ __Returns:__ A 'GI.Gio.Interfaces.DBusObject.DBusObject' or 'Nothing'. The returned-reference should be freed with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusInterfaceGetObject interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    result <- g_dbus_interface_dup_object interface_'-    checkUnexpectedReturnNULL "dBusInterfaceGetObject" result-    result' <- (wrapObject Gio.DBusObject.DBusObject) result-    touchManagedPtr interface_-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceGetObjectMethodInfo-instance (signature ~ (m Gio.DBusObject.DBusObject), MonadIO m, IsDBusInterface a) => O.MethodInfo DBusInterfaceGetObjectMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceGetObject--#endif---- method DBusInterface::get_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterface"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An exported D-Bus interface.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_get_info" g_dbus_interface_get_info :: -    Ptr DBusInterface ->                    -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterface"})-    IO (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo)--{- |-Gets D-Bus introspection information for the D-Bus interface-implemented by /@interface_@/.--/Since: 2.30/--}-dBusInterfaceGetInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterface a) =>-    a-    {- ^ /@interface_@/: An exported D-Bus interface. -}-    -> m Gio.DBusInterfaceInfo.DBusInterfaceInfo-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo'. Do not free. -}-dBusInterfaceGetInfo interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    result <- g_dbus_interface_get_info interface_'-    checkUnexpectedReturnNULL "dBusInterfaceGetInfo" result-    result' <- (newBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) result-    touchManagedPtr interface_-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceGetInfoMethodInfo-instance (signature ~ (m Gio.DBusInterfaceInfo.DBusInterfaceInfo), MonadIO m, IsDBusInterface a) => O.MethodInfo DBusInterfaceGetInfoMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceGetInfo--#endif---- method DBusInterface::set_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterface"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An exported D-Bus interface.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObject"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusObject or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_set_object" g_dbus_interface_set_object :: -    Ptr DBusInterface ->                    -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterface"})-    Ptr Gio.DBusObject.DBusObject ->        -- object : TInterface (Name {namespace = "Gio", name = "DBusObject"})-    IO ()--{- |-Sets the 'GI.Gio.Interfaces.DBusObject.DBusObject' for /@interface_@/ to /@object@/.--Note that /@interface_@/ will hold a weak reference to /@object@/.--/Since: 2.30/--}-dBusInterfaceSetObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterface a, Gio.DBusObject.IsDBusObject b) =>-    a-    {- ^ /@interface_@/: An exported D-Bus interface. -}-    -> Maybe (b)-    {- ^ /@object@/: A 'GI.Gio.Interfaces.DBusObject.DBusObject' or 'Nothing'. -}-    -> m ()-dBusInterfaceSetObject interface_ object = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    maybeObject <- case object of-        Nothing -> return nullPtr-        Just jObject -> do-            jObject' <- unsafeManagedPtrCastPtr jObject-            return jObject'-    g_dbus_interface_set_object interface_' maybeObject-    touchManagedPtr interface_-    whenJust object touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceSetObjectMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDBusInterface a, Gio.DBusObject.IsDBusObject b) => O.MethodInfo DBusInterfaceSetObjectMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSetObject--#endif--
− GI/Gio/Interfaces/DBusInterface.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.DBusInterface 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 DBusInterface = DBusInterface (ManagedPtr DBusInterface)-instance GObject DBusInterface where-class (GObject o, O.IsDescendantOf DBusInterface o) => IsDBusInterface o-instance (GObject o, O.IsDescendantOf DBusInterface o) => IsDBusInterface o-instance O.HasParentTypes DBusInterface-#if ENABLE_OVERLOADING-data DBusInterfaceGetObjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceGetInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSetObjectMethodInfo-#endif
− GI/Gio/Interfaces/DBusObject.hs 
@@ -1,471 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Interfaces.DBusObject.DBusObject' type is the base type for D-Bus objects on both-the service side (see 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton') and the client side-(see 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy'). It is essentially just a container of-interfaces.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.DBusObject-    ( ---- * Exported types-    DBusObject(..)                          ,-    noDBusObject                            ,-    IsDBusObject                            ,-    toDBusObject                            ,--- -- * Methods--- ** getInterface #method:getInterface#--#if ENABLE_OVERLOADING-    DBusObjectGetInterfaceMethodInfo        ,-#endif-    dBusObjectGetInterface                  ,----- ** getInterfaces #method:getInterfaces#--#if ENABLE_OVERLOADING-    DBusObjectGetInterfacesMethodInfo       ,-#endif-    dBusObjectGetInterfaces                 ,----- ** getObjectPath #method:getObjectPath#--#if ENABLE_OVERLOADING-    DBusObjectGetObjectPathMethodInfo       ,-#endif-    dBusObjectGetObjectPath                 ,----- -- * Signals--- ** interfaceAdded #signal:interfaceAdded#--    C_DBusObjectInterfaceAddedCallback      ,-    DBusObjectInterfaceAddedCallback        ,-#if ENABLE_OVERLOADING-    DBusObjectInterfaceAddedSignalInfo      ,-#endif-    afterDBusObjectInterfaceAdded           ,-    genClosure_DBusObjectInterfaceAdded     ,-    mk_DBusObjectInterfaceAddedCallback     ,-    noDBusObjectInterfaceAddedCallback      ,-    onDBusObjectInterfaceAdded              ,-    wrap_DBusObjectInterfaceAddedCallback   ,----- ** interfaceRemoved #signal:interfaceRemoved#--    C_DBusObjectInterfaceRemovedCallback    ,-    DBusObjectInterfaceRemovedCallback      ,-#if ENABLE_OVERLOADING-    DBusObjectInterfaceRemovedSignalInfo    ,-#endif-    afterDBusObjectInterfaceRemoved         ,-    genClosure_DBusObjectInterfaceRemoved   ,-    mk_DBusObjectInterfaceRemovedCallback   ,-    noDBusObjectInterfaceRemovedCallback    ,-    onDBusObjectInterfaceRemoved            ,-    wrap_DBusObjectInterfaceRemovedCallback ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface---- interface DBusObject --- | Memory-managed wrapper type.-newtype DBusObject = DBusObject (ManagedPtr DBusObject)--- | A convenience alias for `Nothing` :: `Maybe` `DBusObject`.-noDBusObject :: Maybe DBusObject-noDBusObject = Nothing---- signal DBusObject::interface-added-{- |-Emitted when /@interface@/ is added to /@object@/.--/Since: 2.30/--}-type DBusObjectInterfaceAddedCallback =-    Gio.DBusInterface.DBusInterface-    {- ^ /@interface@/: The 'GI.Gio.Interfaces.DBusInterface.DBusInterface' that was added. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectInterfaceAddedCallback`@.-noDBusObjectInterfaceAddedCallback :: Maybe DBusObjectInterfaceAddedCallback-noDBusObjectInterfaceAddedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectInterfaceAddedCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusInterface.DBusInterface ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusObjectInterfaceAddedCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectInterfaceAddedCallback :: C_DBusObjectInterfaceAddedCallback -> IO (FunPtr C_DBusObjectInterfaceAddedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectInterfaceAdded :: MonadIO m => DBusObjectInterfaceAddedCallback -> m (GClosure C_DBusObjectInterfaceAddedCallback)-genClosure_DBusObjectInterfaceAdded cb = liftIO $ do-    let cb' = wrap_DBusObjectInterfaceAddedCallback cb-    mk_DBusObjectInterfaceAddedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectInterfaceAddedCallback` into a `C_DBusObjectInterfaceAddedCallback`.-wrap_DBusObjectInterfaceAddedCallback ::-    DBusObjectInterfaceAddedCallback ->-    C_DBusObjectInterfaceAddedCallback-wrap_DBusObjectInterfaceAddedCallback _cb _ interface _ = do-    interface' <- (newObject Gio.DBusInterface.DBusInterface) interface-    _cb  interface'---{- |-Connect a signal handler for the “@interface-added@” 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' dBusObject #interfaceAdded callback-@--}-onDBusObjectInterfaceAdded :: (IsDBusObject a, MonadIO m) => a -> DBusObjectInterfaceAddedCallback -> m SignalHandlerId-onDBusObjectInterfaceAdded obj cb = liftIO $ do-    let cb' = wrap_DBusObjectInterfaceAddedCallback cb-    cb'' <- mk_DBusObjectInterfaceAddedCallback cb'-    connectSignalFunPtr obj "interface-added" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@interface-added@” 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' dBusObject #interfaceAdded callback-@--}-afterDBusObjectInterfaceAdded :: (IsDBusObject a, MonadIO m) => a -> DBusObjectInterfaceAddedCallback -> m SignalHandlerId-afterDBusObjectInterfaceAdded obj cb = liftIO $ do-    let cb' = wrap_DBusObjectInterfaceAddedCallback cb-    cb'' <- mk_DBusObjectInterfaceAddedCallback cb'-    connectSignalFunPtr obj "interface-added" cb'' SignalConnectAfter----- signal DBusObject::interface-removed-{- |-Emitted when /@interface@/ is removed from /@object@/.--/Since: 2.30/--}-type DBusObjectInterfaceRemovedCallback =-    Gio.DBusInterface.DBusInterface-    {- ^ /@interface@/: The 'GI.Gio.Interfaces.DBusInterface.DBusInterface' that was removed. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectInterfaceRemovedCallback`@.-noDBusObjectInterfaceRemovedCallback :: Maybe DBusObjectInterfaceRemovedCallback-noDBusObjectInterfaceRemovedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectInterfaceRemovedCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusInterface.DBusInterface ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusObjectInterfaceRemovedCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectInterfaceRemovedCallback :: C_DBusObjectInterfaceRemovedCallback -> IO (FunPtr C_DBusObjectInterfaceRemovedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectInterfaceRemoved :: MonadIO m => DBusObjectInterfaceRemovedCallback -> m (GClosure C_DBusObjectInterfaceRemovedCallback)-genClosure_DBusObjectInterfaceRemoved cb = liftIO $ do-    let cb' = wrap_DBusObjectInterfaceRemovedCallback cb-    mk_DBusObjectInterfaceRemovedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectInterfaceRemovedCallback` into a `C_DBusObjectInterfaceRemovedCallback`.-wrap_DBusObjectInterfaceRemovedCallback ::-    DBusObjectInterfaceRemovedCallback ->-    C_DBusObjectInterfaceRemovedCallback-wrap_DBusObjectInterfaceRemovedCallback _cb _ interface _ = do-    interface' <- (newObject Gio.DBusInterface.DBusInterface) interface-    _cb  interface'---{- |-Connect a signal handler for the “@interface-removed@” 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' dBusObject #interfaceRemoved callback-@--}-onDBusObjectInterfaceRemoved :: (IsDBusObject a, MonadIO m) => a -> DBusObjectInterfaceRemovedCallback -> m SignalHandlerId-onDBusObjectInterfaceRemoved obj cb = liftIO $ do-    let cb' = wrap_DBusObjectInterfaceRemovedCallback cb-    cb'' <- mk_DBusObjectInterfaceRemovedCallback cb'-    connectSignalFunPtr obj "interface-removed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@interface-removed@” 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' dBusObject #interfaceRemoved callback-@--}-afterDBusObjectInterfaceRemoved :: (IsDBusObject a, MonadIO m) => a -> DBusObjectInterfaceRemovedCallback -> m SignalHandlerId-afterDBusObjectInterfaceRemoved obj cb = liftIO $ do-    let cb' = wrap_DBusObjectInterfaceRemovedCallback cb-    cb'' <- mk_DBusObjectInterfaceRemovedCallback cb'-    connectSignalFunPtr obj "interface-removed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data DBusObjectInterfaceAddedSignalInfo-instance SignalInfo DBusObjectInterfaceAddedSignalInfo where-    type HaskellCallbackType DBusObjectInterfaceAddedSignalInfo = DBusObjectInterfaceAddedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectInterfaceAddedCallback cb-        cb'' <- mk_DBusObjectInterfaceAddedCallback cb'-        connectSignalFunPtr obj "interface-added" cb'' connectMode--data DBusObjectInterfaceRemovedSignalInfo-instance SignalInfo DBusObjectInterfaceRemovedSignalInfo where-    type HaskellCallbackType DBusObjectInterfaceRemovedSignalInfo = DBusObjectInterfaceRemovedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectInterfaceRemovedCallback cb-        cb'' <- mk_DBusObjectInterfaceRemovedCallback cb'-        connectSignalFunPtr obj "interface-removed" cb'' connectMode--type instance O.SignalList DBusObject = DBusObjectSignalList-type DBusObjectSignalList = ('[ '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_dbus_object_get_type"-    c_g_dbus_object_get_type :: IO GType--instance GObject DBusObject where-    gobjectType = c_g_dbus_object_get_type-    ---- | Type class for types which can be safely cast to `DBusObject`, for instance with `toDBusObject`.-class (GObject o, O.IsDescendantOf DBusObject o) => IsDBusObject o-instance (GObject o, O.IsDescendantOf DBusObject o) => IsDBusObject o--instance O.HasParentTypes DBusObject-type instance O.ParentTypes DBusObject = '[GObject.Object.Object]---- | Cast to `DBusObject`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusObject :: (MonadIO m, IsDBusObject o) => o -> m DBusObject-toDBusObject = liftIO . unsafeCastTo DBusObject--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusObject-type instance O.AttributeList DBusObject = DBusObjectAttributeList-type DBusObjectAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveDBusObjectMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusObjectMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusObjectMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusObjectMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusObjectMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusObjectMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusObjectMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusObjectMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusObjectMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusObjectMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusObjectMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusObjectMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusObjectMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusObjectMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusObjectMethod "getInterface" o = DBusObjectGetInterfaceMethodInfo-    ResolveDBusObjectMethod "getInterfaces" o = DBusObjectGetInterfacesMethodInfo-    ResolveDBusObjectMethod "getObjectPath" o = DBusObjectGetObjectPathMethodInfo-    ResolveDBusObjectMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusObjectMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusObjectMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusObjectMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusObjectMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectMethod t DBusObject, O.MethodInfo info DBusObject p) => OL.IsLabel t (DBusObject -> 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 DBusObject::get_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObject"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObject.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus interface name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterface"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_get_interface" g_dbus_object_get_interface :: -    Ptr DBusObject ->                       -- object : TInterface (Name {namespace = "Gio", name = "DBusObject"})-    CString ->                              -- interface_name : TBasicType TUTF8-    IO (Ptr Gio.DBusInterface.DBusInterface)--{- |-Gets the D-Bus interface with name /@interfaceName@/ associated with-/@object@/, if any.--/Since: 2.30/--}-dBusObjectGetInterface ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObject a) =>-    a-    {- ^ /@object@/: A 'GI.Gio.Interfaces.DBusObject.DBusObject'. -}-    -> T.Text-    {- ^ /@interfaceName@/: A D-Bus interface name. -}-    -> m Gio.DBusInterface.DBusInterface-    {- ^ __Returns:__ 'Nothing' if not found, otherwise a-  'GI.Gio.Interfaces.DBusInterface.DBusInterface' that must be freed with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusObjectGetInterface object interfaceName = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    interfaceName' <- textToCString interfaceName-    result <- g_dbus_object_get_interface object' interfaceName'-    checkUnexpectedReturnNULL "dBusObjectGetInterface" result-    result' <- (wrapObject Gio.DBusInterface.DBusInterface) result-    touchManagedPtr object-    freeMem interfaceName'-    return result'--#if ENABLE_OVERLOADING-data DBusObjectGetInterfaceMethodInfo-instance (signature ~ (T.Text -> m Gio.DBusInterface.DBusInterface), MonadIO m, IsDBusObject a) => O.MethodInfo DBusObjectGetInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusObjectGetInterface--#endif---- method DBusObject::get_interfaces--- method type : OrdinaryMethod--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObject"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObject.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "DBusInterface"})))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_get_interfaces" g_dbus_object_get_interfaces :: -    Ptr DBusObject ->                       -- object : TInterface (Name {namespace = "Gio", name = "DBusObject"})-    IO (Ptr (GList (Ptr Gio.DBusInterface.DBusInterface)))--{- |-Gets the D-Bus interfaces associated with /@object@/.--/Since: 2.30/--}-dBusObjectGetInterfaces ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObject a) =>-    a-    {- ^ /@object@/: A 'GI.Gio.Interfaces.DBusObject.DBusObject'. -}-    -> m [Gio.DBusInterface.DBusInterface]-    {- ^ __Returns:__ A list of 'GI.Gio.Interfaces.DBusInterface.DBusInterface' instances.-  The returned list must be freed by @/g_list_free()/@ after each element has been freed-  with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusObjectGetInterfaces object = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    result <- g_dbus_object_get_interfaces object'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Gio.DBusInterface.DBusInterface) result'-    g_list_free result-    touchManagedPtr object-    return result''--#if ENABLE_OVERLOADING-data DBusObjectGetInterfacesMethodInfo-instance (signature ~ (m [Gio.DBusInterface.DBusInterface]), MonadIO m, IsDBusObject a) => O.MethodInfo DBusObjectGetInterfacesMethodInfo a signature where-    overloadedMethod _ = dBusObjectGetInterfaces--#endif---- method DBusObject::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObject"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObject.", 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 "g_dbus_object_get_object_path" g_dbus_object_get_object_path :: -    Ptr DBusObject ->                       -- object : TInterface (Name {namespace = "Gio", name = "DBusObject"})-    IO CString--{- |-Gets the object path for /@object@/.--/Since: 2.30/--}-dBusObjectGetObjectPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObject a) =>-    a-    {- ^ /@object@/: A 'GI.Gio.Interfaces.DBusObject.DBusObject'. -}-    -> m T.Text-    {- ^ __Returns:__ A string owned by /@object@/. Do not free. -}-dBusObjectGetObjectPath object = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    result <- g_dbus_object_get_object_path object'-    checkUnexpectedReturnNULL "dBusObjectGetObjectPath" result-    result' <- cstringToText result-    touchManagedPtr object-    return result'--#if ENABLE_OVERLOADING-data DBusObjectGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusObject a) => O.MethodInfo DBusObjectGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusObjectGetObjectPath--#endif--
− GI/Gio/Interfaces/DBusObject.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.DBusObject 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 DBusObject = DBusObject (ManagedPtr DBusObject)-#if ENABLE_OVERLOADING-data DBusObjectInterfaceAddedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectInterfaceRemovedSignalInfo-#endif-instance GObject DBusObject where-class (GObject o, O.IsDescendantOf DBusObject o) => IsDBusObject o-instance (GObject o, O.IsDescendantOf DBusObject o) => IsDBusObject o-instance O.HasParentTypes DBusObject-#if ENABLE_OVERLOADING-data DBusObjectGetInterfaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectGetInterfacesMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectGetObjectPathMethodInfo-#endif
− GI/Gio/Interfaces/DBusObjectManager.hs 
@@ -1,736 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager' type is the base type for service- and-client-side implementations of the standardized-<http://dbus.freedesktop.org/doc/dbus-specification.html#standard-interfaces-objectmanager org.freedesktop.DBus.ObjectManager>-interface.--See 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' for the client-side implementation-and 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer' for the service-side implementation.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.DBusObjectManager-    ( ---- * Exported types-    DBusObjectManager(..)                   ,-    noDBusObjectManager                     ,-    IsDBusObjectManager                     ,-    toDBusObjectManager                     ,--- -- * Methods--- ** getInterface #method:getInterface#--#if ENABLE_OVERLOADING-    DBusObjectManagerGetInterfaceMethodInfo ,-#endif-    dBusObjectManagerGetInterface           ,----- ** getObject #method:getObject#--#if ENABLE_OVERLOADING-    DBusObjectManagerGetObjectMethodInfo    ,-#endif-    dBusObjectManagerGetObject              ,----- ** getObjectPath #method:getObjectPath#--#if ENABLE_OVERLOADING-    DBusObjectManagerGetObjectPathMethodInfo,-#endif-    dBusObjectManagerGetObjectPath          ,----- ** getObjects #method:getObjects#--#if ENABLE_OVERLOADING-    DBusObjectManagerGetObjectsMethodInfo   ,-#endif-    dBusObjectManagerGetObjects             ,----- -- * Signals--- ** interfaceAdded #signal:interfaceAdded#--    C_DBusObjectManagerInterfaceAddedCallback,-    DBusObjectManagerInterfaceAddedCallback ,-#if ENABLE_OVERLOADING-    DBusObjectManagerInterfaceAddedSignalInfo,-#endif-    afterDBusObjectManagerInterfaceAdded    ,-    genClosure_DBusObjectManagerInterfaceAdded,-    mk_DBusObjectManagerInterfaceAddedCallback,-    noDBusObjectManagerInterfaceAddedCallback,-    onDBusObjectManagerInterfaceAdded       ,-    wrap_DBusObjectManagerInterfaceAddedCallback,----- ** interfaceRemoved #signal:interfaceRemoved#--    C_DBusObjectManagerInterfaceRemovedCallback,-    DBusObjectManagerInterfaceRemovedCallback,-#if ENABLE_OVERLOADING-    DBusObjectManagerInterfaceRemovedSignalInfo,-#endif-    afterDBusObjectManagerInterfaceRemoved  ,-    genClosure_DBusObjectManagerInterfaceRemoved,-    mk_DBusObjectManagerInterfaceRemovedCallback,-    noDBusObjectManagerInterfaceRemovedCallback,-    onDBusObjectManagerInterfaceRemoved     ,-    wrap_DBusObjectManagerInterfaceRemovedCallback,----- ** objectAdded #signal:objectAdded#--    C_DBusObjectManagerObjectAddedCallback  ,-    DBusObjectManagerObjectAddedCallback    ,-#if ENABLE_OVERLOADING-    DBusObjectManagerObjectAddedSignalInfo  ,-#endif-    afterDBusObjectManagerObjectAdded       ,-    genClosure_DBusObjectManagerObjectAdded ,-    mk_DBusObjectManagerObjectAddedCallback ,-    noDBusObjectManagerObjectAddedCallback  ,-    onDBusObjectManagerObjectAdded          ,-    wrap_DBusObjectManagerObjectAddedCallback,----- ** objectRemoved #signal:objectRemoved#--    C_DBusObjectManagerObjectRemovedCallback,-    DBusObjectManagerObjectRemovedCallback  ,-#if ENABLE_OVERLOADING-    DBusObjectManagerObjectRemovedSignalInfo,-#endif-    afterDBusObjectManagerObjectRemoved     ,-    genClosure_DBusObjectManagerObjectRemoved,-    mk_DBusObjectManagerObjectRemovedCallback,-    noDBusObjectManagerObjectRemovedCallback,-    onDBusObjectManagerObjectRemoved        ,-    wrap_DBusObjectManagerObjectRemovedCallback,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObject as Gio.DBusObject---- interface DBusObjectManager --- | Memory-managed wrapper type.-newtype DBusObjectManager = DBusObjectManager (ManagedPtr DBusObjectManager)--- | A convenience alias for `Nothing` :: `Maybe` `DBusObjectManager`.-noDBusObjectManager :: Maybe DBusObjectManager-noDBusObjectManager = Nothing---- signal DBusObjectManager::interface-added-{- |-Emitted when /@interface@/ is added to /@object@/.--This signal exists purely as a convenience to avoid having to-connect signals to all objects managed by /@manager@/.--/Since: 2.30/--}-type DBusObjectManagerInterfaceAddedCallback =-    Gio.DBusObject.DBusObject-    {- ^ /@object@/: The 'GI.Gio.Interfaces.DBusObject.DBusObject' on which an interface was added. -}-    -> Gio.DBusInterface.DBusInterface-    {- ^ /@interface@/: The 'GI.Gio.Interfaces.DBusInterface.DBusInterface' that was added. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectManagerInterfaceAddedCallback`@.-noDBusObjectManagerInterfaceAddedCallback :: Maybe DBusObjectManagerInterfaceAddedCallback-noDBusObjectManagerInterfaceAddedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectManagerInterfaceAddedCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusObject.DBusObject ->-    Ptr Gio.DBusInterface.DBusInterface ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusObjectManagerInterfaceAddedCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectManagerInterfaceAddedCallback :: C_DBusObjectManagerInterfaceAddedCallback -> IO (FunPtr C_DBusObjectManagerInterfaceAddedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectManagerInterfaceAdded :: MonadIO m => DBusObjectManagerInterfaceAddedCallback -> m (GClosure C_DBusObjectManagerInterfaceAddedCallback)-genClosure_DBusObjectManagerInterfaceAdded cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerInterfaceAddedCallback cb-    mk_DBusObjectManagerInterfaceAddedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectManagerInterfaceAddedCallback` into a `C_DBusObjectManagerInterfaceAddedCallback`.-wrap_DBusObjectManagerInterfaceAddedCallback ::-    DBusObjectManagerInterfaceAddedCallback ->-    C_DBusObjectManagerInterfaceAddedCallback-wrap_DBusObjectManagerInterfaceAddedCallback _cb _ object interface _ = do-    object' <- (newObject Gio.DBusObject.DBusObject) object-    interface' <- (newObject Gio.DBusInterface.DBusInterface) interface-    _cb  object' interface'---{- |-Connect a signal handler for the “@interface-added@” 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' dBusObjectManager #interfaceAdded callback-@--}-onDBusObjectManagerInterfaceAdded :: (IsDBusObjectManager a, MonadIO m) => a -> DBusObjectManagerInterfaceAddedCallback -> m SignalHandlerId-onDBusObjectManagerInterfaceAdded obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerInterfaceAddedCallback cb-    cb'' <- mk_DBusObjectManagerInterfaceAddedCallback cb'-    connectSignalFunPtr obj "interface-added" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@interface-added@” 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' dBusObjectManager #interfaceAdded callback-@--}-afterDBusObjectManagerInterfaceAdded :: (IsDBusObjectManager a, MonadIO m) => a -> DBusObjectManagerInterfaceAddedCallback -> m SignalHandlerId-afterDBusObjectManagerInterfaceAdded obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerInterfaceAddedCallback cb-    cb'' <- mk_DBusObjectManagerInterfaceAddedCallback cb'-    connectSignalFunPtr obj "interface-added" cb'' SignalConnectAfter----- signal DBusObjectManager::interface-removed-{- |-Emitted when /@interface@/ has been removed from /@object@/.--This signal exists purely as a convenience to avoid having to-connect signals to all objects managed by /@manager@/.--/Since: 2.30/--}-type DBusObjectManagerInterfaceRemovedCallback =-    Gio.DBusObject.DBusObject-    {- ^ /@object@/: The 'GI.Gio.Interfaces.DBusObject.DBusObject' on which an interface was removed. -}-    -> Gio.DBusInterface.DBusInterface-    {- ^ /@interface@/: The 'GI.Gio.Interfaces.DBusInterface.DBusInterface' that was removed. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectManagerInterfaceRemovedCallback`@.-noDBusObjectManagerInterfaceRemovedCallback :: Maybe DBusObjectManagerInterfaceRemovedCallback-noDBusObjectManagerInterfaceRemovedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectManagerInterfaceRemovedCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusObject.DBusObject ->-    Ptr Gio.DBusInterface.DBusInterface ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusObjectManagerInterfaceRemovedCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectManagerInterfaceRemovedCallback :: C_DBusObjectManagerInterfaceRemovedCallback -> IO (FunPtr C_DBusObjectManagerInterfaceRemovedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectManagerInterfaceRemoved :: MonadIO m => DBusObjectManagerInterfaceRemovedCallback -> m (GClosure C_DBusObjectManagerInterfaceRemovedCallback)-genClosure_DBusObjectManagerInterfaceRemoved cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerInterfaceRemovedCallback cb-    mk_DBusObjectManagerInterfaceRemovedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectManagerInterfaceRemovedCallback` into a `C_DBusObjectManagerInterfaceRemovedCallback`.-wrap_DBusObjectManagerInterfaceRemovedCallback ::-    DBusObjectManagerInterfaceRemovedCallback ->-    C_DBusObjectManagerInterfaceRemovedCallback-wrap_DBusObjectManagerInterfaceRemovedCallback _cb _ object interface _ = do-    object' <- (newObject Gio.DBusObject.DBusObject) object-    interface' <- (newObject Gio.DBusInterface.DBusInterface) interface-    _cb  object' interface'---{- |-Connect a signal handler for the “@interface-removed@” 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' dBusObjectManager #interfaceRemoved callback-@--}-onDBusObjectManagerInterfaceRemoved :: (IsDBusObjectManager a, MonadIO m) => a -> DBusObjectManagerInterfaceRemovedCallback -> m SignalHandlerId-onDBusObjectManagerInterfaceRemoved obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerInterfaceRemovedCallback cb-    cb'' <- mk_DBusObjectManagerInterfaceRemovedCallback cb'-    connectSignalFunPtr obj "interface-removed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@interface-removed@” 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' dBusObjectManager #interfaceRemoved callback-@--}-afterDBusObjectManagerInterfaceRemoved :: (IsDBusObjectManager a, MonadIO m) => a -> DBusObjectManagerInterfaceRemovedCallback -> m SignalHandlerId-afterDBusObjectManagerInterfaceRemoved obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerInterfaceRemovedCallback cb-    cb'' <- mk_DBusObjectManagerInterfaceRemovedCallback cb'-    connectSignalFunPtr obj "interface-removed" cb'' SignalConnectAfter----- signal DBusObjectManager::object-added-{- |-Emitted when /@object@/ is added to /@manager@/.--/Since: 2.30/--}-type DBusObjectManagerObjectAddedCallback =-    Gio.DBusObject.DBusObject-    {- ^ /@object@/: The 'GI.Gio.Interfaces.DBusObject.DBusObject' that was added. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectManagerObjectAddedCallback`@.-noDBusObjectManagerObjectAddedCallback :: Maybe DBusObjectManagerObjectAddedCallback-noDBusObjectManagerObjectAddedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectManagerObjectAddedCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusObject.DBusObject ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusObjectManagerObjectAddedCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectManagerObjectAddedCallback :: C_DBusObjectManagerObjectAddedCallback -> IO (FunPtr C_DBusObjectManagerObjectAddedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectManagerObjectAdded :: MonadIO m => DBusObjectManagerObjectAddedCallback -> m (GClosure C_DBusObjectManagerObjectAddedCallback)-genClosure_DBusObjectManagerObjectAdded cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerObjectAddedCallback cb-    mk_DBusObjectManagerObjectAddedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectManagerObjectAddedCallback` into a `C_DBusObjectManagerObjectAddedCallback`.-wrap_DBusObjectManagerObjectAddedCallback ::-    DBusObjectManagerObjectAddedCallback ->-    C_DBusObjectManagerObjectAddedCallback-wrap_DBusObjectManagerObjectAddedCallback _cb _ object _ = do-    object' <- (newObject Gio.DBusObject.DBusObject) object-    _cb  object'---{- |-Connect a signal handler for the “@object-added@” 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' dBusObjectManager #objectAdded callback-@--}-onDBusObjectManagerObjectAdded :: (IsDBusObjectManager a, MonadIO m) => a -> DBusObjectManagerObjectAddedCallback -> m SignalHandlerId-onDBusObjectManagerObjectAdded obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerObjectAddedCallback cb-    cb'' <- mk_DBusObjectManagerObjectAddedCallback cb'-    connectSignalFunPtr obj "object-added" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@object-added@” 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' dBusObjectManager #objectAdded callback-@--}-afterDBusObjectManagerObjectAdded :: (IsDBusObjectManager a, MonadIO m) => a -> DBusObjectManagerObjectAddedCallback -> m SignalHandlerId-afterDBusObjectManagerObjectAdded obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerObjectAddedCallback cb-    cb'' <- mk_DBusObjectManagerObjectAddedCallback cb'-    connectSignalFunPtr obj "object-added" cb'' SignalConnectAfter----- signal DBusObjectManager::object-removed-{- |-Emitted when /@object@/ is removed from /@manager@/.--/Since: 2.30/--}-type DBusObjectManagerObjectRemovedCallback =-    Gio.DBusObject.DBusObject-    {- ^ /@object@/: The 'GI.Gio.Interfaces.DBusObject.DBusObject' that was removed. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectManagerObjectRemovedCallback`@.-noDBusObjectManagerObjectRemovedCallback :: Maybe DBusObjectManagerObjectRemovedCallback-noDBusObjectManagerObjectRemovedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectManagerObjectRemovedCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusObject.DBusObject ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusObjectManagerObjectRemovedCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectManagerObjectRemovedCallback :: C_DBusObjectManagerObjectRemovedCallback -> IO (FunPtr C_DBusObjectManagerObjectRemovedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectManagerObjectRemoved :: MonadIO m => DBusObjectManagerObjectRemovedCallback -> m (GClosure C_DBusObjectManagerObjectRemovedCallback)-genClosure_DBusObjectManagerObjectRemoved cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerObjectRemovedCallback cb-    mk_DBusObjectManagerObjectRemovedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectManagerObjectRemovedCallback` into a `C_DBusObjectManagerObjectRemovedCallback`.-wrap_DBusObjectManagerObjectRemovedCallback ::-    DBusObjectManagerObjectRemovedCallback ->-    C_DBusObjectManagerObjectRemovedCallback-wrap_DBusObjectManagerObjectRemovedCallback _cb _ object _ = do-    object' <- (newObject Gio.DBusObject.DBusObject) object-    _cb  object'---{- |-Connect a signal handler for the “@object-removed@” 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' dBusObjectManager #objectRemoved callback-@--}-onDBusObjectManagerObjectRemoved :: (IsDBusObjectManager a, MonadIO m) => a -> DBusObjectManagerObjectRemovedCallback -> m SignalHandlerId-onDBusObjectManagerObjectRemoved obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerObjectRemovedCallback cb-    cb'' <- mk_DBusObjectManagerObjectRemovedCallback cb'-    connectSignalFunPtr obj "object-removed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@object-removed@” 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' dBusObjectManager #objectRemoved callback-@--}-afterDBusObjectManagerObjectRemoved :: (IsDBusObjectManager a, MonadIO m) => a -> DBusObjectManagerObjectRemovedCallback -> m SignalHandlerId-afterDBusObjectManagerObjectRemoved obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerObjectRemovedCallback cb-    cb'' <- mk_DBusObjectManagerObjectRemovedCallback cb'-    connectSignalFunPtr obj "object-removed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data DBusObjectManagerInterfaceAddedSignalInfo-instance SignalInfo DBusObjectManagerInterfaceAddedSignalInfo where-    type HaskellCallbackType DBusObjectManagerInterfaceAddedSignalInfo = DBusObjectManagerInterfaceAddedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectManagerInterfaceAddedCallback cb-        cb'' <- mk_DBusObjectManagerInterfaceAddedCallback cb'-        connectSignalFunPtr obj "interface-added" cb'' connectMode--data DBusObjectManagerInterfaceRemovedSignalInfo-instance SignalInfo DBusObjectManagerInterfaceRemovedSignalInfo where-    type HaskellCallbackType DBusObjectManagerInterfaceRemovedSignalInfo = DBusObjectManagerInterfaceRemovedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectManagerInterfaceRemovedCallback cb-        cb'' <- mk_DBusObjectManagerInterfaceRemovedCallback cb'-        connectSignalFunPtr obj "interface-removed" cb'' connectMode--data DBusObjectManagerObjectAddedSignalInfo-instance SignalInfo DBusObjectManagerObjectAddedSignalInfo where-    type HaskellCallbackType DBusObjectManagerObjectAddedSignalInfo = DBusObjectManagerObjectAddedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectManagerObjectAddedCallback cb-        cb'' <- mk_DBusObjectManagerObjectAddedCallback cb'-        connectSignalFunPtr obj "object-added" cb'' connectMode--data DBusObjectManagerObjectRemovedSignalInfo-instance SignalInfo DBusObjectManagerObjectRemovedSignalInfo where-    type HaskellCallbackType DBusObjectManagerObjectRemovedSignalInfo = DBusObjectManagerObjectRemovedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectManagerObjectRemovedCallback cb-        cb'' <- mk_DBusObjectManagerObjectRemovedCallback cb'-        connectSignalFunPtr obj "object-removed" cb'' connectMode--type instance O.SignalList DBusObjectManager = DBusObjectManagerSignalList-type DBusObjectManagerSignalList = ('[ '("interfaceAdded", DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("objectAdded", DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_dbus_object_manager_get_type"-    c_g_dbus_object_manager_get_type :: IO GType--instance GObject DBusObjectManager where-    gobjectType = c_g_dbus_object_manager_get_type-    ---- | Type class for types which can be safely cast to `DBusObjectManager`, for instance with `toDBusObjectManager`.-class (GObject o, O.IsDescendantOf DBusObjectManager o) => IsDBusObjectManager o-instance (GObject o, O.IsDescendantOf DBusObjectManager o) => IsDBusObjectManager o--instance O.HasParentTypes DBusObjectManager-type instance O.ParentTypes DBusObjectManager = '[GObject.Object.Object]---- | Cast to `DBusObjectManager`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusObjectManager :: (MonadIO m, IsDBusObjectManager o) => o -> m DBusObjectManager-toDBusObjectManager = liftIO . unsafeCastTo DBusObjectManager--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusObjectManager-type instance O.AttributeList DBusObjectManager = DBusObjectManagerAttributeList-type DBusObjectManagerAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveDBusObjectManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusObjectManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusObjectManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusObjectManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusObjectManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusObjectManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusObjectManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusObjectManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusObjectManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusObjectManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusObjectManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusObjectManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusObjectManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusObjectManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusObjectManagerMethod "getInterface" o = DBusObjectManagerGetInterfaceMethodInfo-    ResolveDBusObjectManagerMethod "getObject" o = DBusObjectManagerGetObjectMethodInfo-    ResolveDBusObjectManagerMethod "getObjectPath" o = DBusObjectManagerGetObjectPathMethodInfo-    ResolveDBusObjectManagerMethod "getObjects" o = DBusObjectManagerGetObjectsMethodInfo-    ResolveDBusObjectManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusObjectManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusObjectManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusObjectManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusObjectManagerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectManagerMethod t DBusObjectManager, O.MethodInfo info DBusObjectManager p) => OL.IsLabel t (DBusObjectManager -> 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 DBusObjectManager::get_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManager.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Object path to lookup.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "D-Bus interface name to lookup.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterface"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_get_interface" g_dbus_object_manager_get_interface :: -    Ptr DBusObjectManager ->                -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManager"})-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    IO (Ptr Gio.DBusInterface.DBusInterface)--{- |-Gets the interface proxy for /@interfaceName@/ at /@objectPath@/, if-any.--/Since: 2.30/--}-dBusObjectManagerGetInterface ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManager a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'. -}-    -> T.Text-    {- ^ /@objectPath@/: Object path to lookup. -}-    -> T.Text-    {- ^ /@interfaceName@/: D-Bus interface name to lookup. -}-    -> m Gio.DBusInterface.DBusInterface-    {- ^ __Returns:__ A 'GI.Gio.Interfaces.DBusInterface.DBusInterface' instance or 'Nothing'. Free-  with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusObjectManagerGetInterface manager objectPath interfaceName = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    result <- g_dbus_object_manager_get_interface manager' objectPath' interfaceName'-    checkUnexpectedReturnNULL "dBusObjectManagerGetInterface" result-    result' <- (wrapObject Gio.DBusInterface.DBusInterface) result-    touchManagedPtr manager-    freeMem objectPath'-    freeMem interfaceName'-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerGetInterfaceMethodInfo-instance (signature ~ (T.Text -> T.Text -> m Gio.DBusInterface.DBusInterface), MonadIO m, IsDBusObjectManager a) => O.MethodInfo DBusObjectManagerGetInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerGetInterface--#endif---- method DBusObjectManager::get_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManager.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Object path to lookup.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObject"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_get_object" g_dbus_object_manager_get_object :: -    Ptr DBusObjectManager ->                -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManager"})-    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr Gio.DBusObject.DBusObject)--{- |-Gets the 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' at /@objectPath@/, if any.--/Since: 2.30/--}-dBusObjectManagerGetObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManager a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'. -}-    -> T.Text-    {- ^ /@objectPath@/: Object path to lookup. -}-    -> m Gio.DBusObject.DBusObject-    {- ^ __Returns:__ A 'GI.Gio.Interfaces.DBusObject.DBusObject' or 'Nothing'. Free with-  'GI.GObject.Objects.Object.objectUnref'. -}-dBusObjectManagerGetObject manager objectPath = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_manager_get_object manager' objectPath'-    checkUnexpectedReturnNULL "dBusObjectManagerGetObject" result-    result' <- (wrapObject Gio.DBusObject.DBusObject) result-    touchManagedPtr manager-    freeMem objectPath'-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerGetObjectMethodInfo-instance (signature ~ (T.Text -> m Gio.DBusObject.DBusObject), MonadIO m, IsDBusObjectManager a) => O.MethodInfo DBusObjectManagerGetObjectMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerGetObject--#endif---- method DBusObjectManager::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManager.", 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 "g_dbus_object_manager_get_object_path" g_dbus_object_manager_get_object_path :: -    Ptr DBusObjectManager ->                -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManager"})-    IO CString--{- |-Gets the object path that /@manager@/ is for.--/Since: 2.30/--}-dBusObjectManagerGetObjectPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManager a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'. -}-    -> m T.Text-    {- ^ __Returns:__ A string owned by /@manager@/. Do not free. -}-dBusObjectManagerGetObjectPath manager = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    result <- g_dbus_object_manager_get_object_path manager'-    checkUnexpectedReturnNULL "dBusObjectManagerGetObjectPath" result-    result' <- cstringToText result-    touchManagedPtr manager-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusObjectManager a) => O.MethodInfo DBusObjectManagerGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerGetObjectPath--#endif---- method DBusObjectManager::get_objects--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManager.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "DBusObject"})))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_get_objects" g_dbus_object_manager_get_objects :: -    Ptr DBusObjectManager ->                -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManager"})-    IO (Ptr (GList (Ptr Gio.DBusObject.DBusObject)))--{- |-Gets all 'GI.Gio.Interfaces.DBusObject.DBusObject' objects known to /@manager@/.--/Since: 2.30/--}-dBusObjectManagerGetObjects ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManager a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'. -}-    -> m [Gio.DBusObject.DBusObject]-    {- ^ __Returns:__ A list of-  'GI.Gio.Interfaces.DBusObject.DBusObject' objects. The returned list should be freed with-  @/g_list_free()/@ after each element has been freed with-  'GI.GObject.Objects.Object.objectUnref'. -}-dBusObjectManagerGetObjects manager = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    result <- g_dbus_object_manager_get_objects manager'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Gio.DBusObject.DBusObject) result'-    g_list_free result-    touchManagedPtr manager-    return result''--#if ENABLE_OVERLOADING-data DBusObjectManagerGetObjectsMethodInfo-instance (signature ~ (m [Gio.DBusObject.DBusObject]), MonadIO m, IsDBusObjectManager a) => O.MethodInfo DBusObjectManagerGetObjectsMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerGetObjects--#endif--
− GI/Gio/Interfaces/DBusObjectManager.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.DBusObjectManager 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 DBusObjectManager = DBusObjectManager (ManagedPtr DBusObjectManager)-#if ENABLE_OVERLOADING-data DBusObjectManagerInterfaceAddedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerInterfaceRemovedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerObjectAddedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerObjectRemovedSignalInfo-#endif-instance GObject DBusObjectManager where-class (GObject o, O.IsDescendantOf DBusObjectManager o) => IsDBusObjectManager o-instance (GObject o, O.IsDescendantOf DBusObjectManager o) => IsDBusObjectManager o-instance O.HasParentTypes DBusObjectManager-#if ENABLE_OVERLOADING-data DBusObjectManagerGetInterfaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerGetObjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerGetObjectPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerGetObjectsMethodInfo-#endif
− GI/Gio/Interfaces/DatagramBased.hs 
@@ -1,654 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Interfaces.DatagramBased.DatagramBased' is a networking interface for representing datagram-based-communications. It is a more or less direct mapping of the core parts of the-BSD socket API in a portable GObject interface. It is implemented by-'GI.Gio.Objects.Socket.Socket', which wraps the UNIX socket API on UNIX and winsock2 on Windows.--'GI.Gio.Interfaces.DatagramBased.DatagramBased' is entirely platform independent, and is intended to be used-alongside higher-level networking APIs such as 'GI.Gio.Objects.IOStream.IOStream'.--It uses vectored scatter\/gather I\/O by default, allowing for many messages-to be sent or received in a single call. Where possible, implementations of-the interface should take advantage of vectored I\/O to minimise processing-or system calls. For example, 'GI.Gio.Objects.Socket.Socket' uses @/recvmmsg()/@ and @/sendmmsg()/@ where-possible. Callers should take advantage of scatter\/gather I\/O (the use of-multiple buffers per message) to avoid unnecessary copying of data to-assemble or disassemble a message.--Each 'GI.Gio.Interfaces.DatagramBased.DatagramBased' operation has a timeout parameter which may be negative-for blocking behaviour, zero for non-blocking behaviour, or positive for-timeout behaviour. A blocking operation blocks until finished or there is an-error. A non-blocking operation will return immediately with a-'GI.Gio.Enums.IOErrorEnumWouldBlock' error if it cannot make progress. A timeout operation-will block until the operation is complete or the timeout expires; if the-timeout expires it will return what progress it made, or-'GI.Gio.Enums.IOErrorEnumTimedOut' if no progress was made. To know when a call would-successfully run you can call 'GI.Gio.Interfaces.DatagramBased.datagramBasedConditionCheck' or-'GI.Gio.Interfaces.DatagramBased.datagramBasedConditionWait'. You can also use-'GI.Gio.Interfaces.DatagramBased.datagramBasedCreateSource' and attach it to a 'GI.GLib.Structs.MainContext.MainContext' to get-callbacks when I\/O is possible.--When running a non-blocking operation applications should always be able to-handle getting a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error even when some other function-said that I\/O was possible. This can easily happen in case of a race-condition in the application, but it can also happen for other reasons. For-instance, on Windows a socket is always seen as writable until a write-returns 'GI.Gio.Enums.IOErrorEnumWouldBlock'.--As with 'GI.Gio.Objects.Socket.Socket', @/GDatagramBaseds/@ can be either connection oriented (for-example, SCTP) or connectionless (for example, UDP). @/GDatagramBaseds/@ must be-datagram-based, not stream-based. The interface does not cover connection-establishment — use methods on the underlying type to establish a connection-before sending and receiving data through the 'GI.Gio.Interfaces.DatagramBased.DatagramBased' API. For-connectionless socket types the target\/source address is specified or-received in each I\/O operation.--Like most other APIs in GLib, 'GI.Gio.Interfaces.DatagramBased.DatagramBased' is not inherently thread safe.-To use a 'GI.Gio.Interfaces.DatagramBased.DatagramBased' concurrently from multiple threads, you must-implement your own locking.--/Since: 2.48/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.DatagramBased-    ( ---- * Exported types-    DatagramBased(..)                       ,-    noDatagramBased                         ,-    IsDatagramBased                         ,-    toDatagramBased                         ,--- -- * Methods--- ** conditionCheck #method:conditionCheck#--#if ENABLE_OVERLOADING-    DatagramBasedConditionCheckMethodInfo   ,-#endif-    datagramBasedConditionCheck             ,----- ** conditionWait #method:conditionWait#--#if ENABLE_OVERLOADING-    DatagramBasedConditionWaitMethodInfo    ,-#endif-    datagramBasedConditionWait              ,----- ** createSource #method:createSource#--#if ENABLE_OVERLOADING-    DatagramBasedCreateSourceMethodInfo     ,-#endif-    datagramBasedCreateSource               ,----- ** receiveMessages #method:receiveMessages#--#if ENABLE_OVERLOADING-    DatagramBasedReceiveMessagesMethodInfo  ,-#endif-    datagramBasedReceiveMessages            ,----- ** sendMessages #method:sendMessages#--#if ENABLE_OVERLOADING-    DatagramBasedSendMessagesMethodInfo     ,-#endif-    datagramBasedSendMessages               ,-----    ) 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.Flags as GLib.Flags-import qualified GI.GLib.Structs.Source as GLib.Source-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Structs.InputMessage as Gio.InputMessage-import {-# SOURCE #-} qualified GI.Gio.Structs.OutputMessage as Gio.OutputMessage---- interface DatagramBased --- | Memory-managed wrapper type.-newtype DatagramBased = DatagramBased (ManagedPtr DatagramBased)--- | A convenience alias for `Nothing` :: `Maybe` `DatagramBased`.-noDatagramBased :: Maybe DatagramBased-noDatagramBased = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList DatagramBased = DatagramBasedSignalList-type DatagramBasedSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_datagram_based_get_type"-    c_g_datagram_based_get_type :: IO GType--instance GObject DatagramBased where-    gobjectType = c_g_datagram_based_get_type-    ---- | Type class for types which can be safely cast to `DatagramBased`, for instance with `toDatagramBased`.-class (GObject o, O.IsDescendantOf DatagramBased o) => IsDatagramBased o-instance (GObject o, O.IsDescendantOf DatagramBased o) => IsDatagramBased o--instance O.HasParentTypes DatagramBased-type instance O.ParentTypes DatagramBased = '[GObject.Object.Object]---- | Cast to `DatagramBased`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDatagramBased :: (MonadIO m, IsDatagramBased o) => o -> m DatagramBased-toDatagramBased = liftIO . unsafeCastTo DatagramBased--#if ENABLE_OVERLOADING-instance O.HasAttributeList DatagramBased-type instance O.AttributeList DatagramBased = DatagramBasedAttributeList-type DatagramBasedAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveDatagramBasedMethod (t :: Symbol) (o :: *) :: * where-    ResolveDatagramBasedMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDatagramBasedMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDatagramBasedMethod "conditionCheck" o = DatagramBasedConditionCheckMethodInfo-    ResolveDatagramBasedMethod "conditionWait" o = DatagramBasedConditionWaitMethodInfo-    ResolveDatagramBasedMethod "createSource" o = DatagramBasedCreateSourceMethodInfo-    ResolveDatagramBasedMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDatagramBasedMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDatagramBasedMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDatagramBasedMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDatagramBasedMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDatagramBasedMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDatagramBasedMethod "receiveMessages" o = DatagramBasedReceiveMessagesMethodInfo-    ResolveDatagramBasedMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDatagramBasedMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDatagramBasedMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDatagramBasedMethod "sendMessages" o = DatagramBasedSendMessagesMethodInfo-    ResolveDatagramBasedMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDatagramBasedMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDatagramBasedMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDatagramBasedMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDatagramBasedMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDatagramBasedMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDatagramBasedMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDatagramBasedMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDatagramBasedMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDatagramBasedMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDatagramBasedMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDatagramBasedMethod t DatagramBased, O.MethodInfo info DatagramBased p) => OL.IsLabel t (DatagramBased -> 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 DatagramBased::condition_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "datagram_based", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDatagramBased", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOCondition mask to check", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "IOCondition"}))--- throws : False--- Skip return : False--foreign import ccall "g_datagram_based_condition_check" g_datagram_based_condition_check :: -    Ptr DatagramBased ->                    -- datagram_based : TInterface (Name {namespace = "Gio", name = "DatagramBased"})-    CUInt ->                                -- condition : TInterface (Name {namespace = "GLib", name = "IOCondition"})-    IO CUInt--{- |-Checks on the readiness of /@datagramBased@/ to perform operations. The-operations specified in /@condition@/ are checked for and masked against the-currently-satisfied conditions on /@datagramBased@/. The result is returned.--'GI.GLib.Flags.IOConditionIn' will be set in the return value if data is available to read with-'GI.Gio.Interfaces.DatagramBased.datagramBasedReceiveMessages', or if the connection is closed remotely-(EOS); and if the datagram_based has not been closed locally using some-implementation-specific method (such as 'GI.Gio.Objects.Socket.socketClose' or-'GI.Gio.Objects.Socket.socketShutdown' with /@shutdownRead@/ set, if it’s a 'GI.Gio.Objects.Socket.Socket').--If the connection is shut down or closed (by calling 'GI.Gio.Objects.Socket.socketClose' or-'GI.Gio.Objects.Socket.socketShutdown' with /@shutdownRead@/ set, if it’s a 'GI.Gio.Objects.Socket.Socket', for-example), all calls to this function will return 'GI.Gio.Enums.IOErrorEnumClosed'.--'GI.GLib.Flags.IOConditionOut' will be set if it is expected that at least one byte can be sent-using 'GI.Gio.Interfaces.DatagramBased.datagramBasedSendMessages' without blocking. It will not be set-if the datagram_based has been closed locally.--'GI.GLib.Flags.IOConditionHup' will be set if the connection has been closed locally.--'GI.GLib.Flags.IOConditionErr' will be set if there was an asynchronous error in transmitting data-previously enqueued using 'GI.Gio.Interfaces.DatagramBased.datagramBasedSendMessages'.--Note that on Windows, it is possible for an operation to return-'GI.Gio.Enums.IOErrorEnumWouldBlock' even immediately after-'GI.Gio.Interfaces.DatagramBased.datagramBasedConditionCheck' has claimed that the 'GI.Gio.Interfaces.DatagramBased.DatagramBased' is-ready for writing. Rather than calling 'GI.Gio.Interfaces.DatagramBased.datagramBasedConditionCheck' and-then writing to the 'GI.Gio.Interfaces.DatagramBased.DatagramBased' if it succeeds, it is generally better to-simply try writing right away, and try again later if the initial attempt-returns 'GI.Gio.Enums.IOErrorEnumWouldBlock'.--It is meaningless to specify 'GI.GLib.Flags.IOConditionErr' or 'GI.GLib.Flags.IOConditionHup' in /@condition@/; these-conditions will always be set in the output if they are true. Apart from-these flags, the output is guaranteed to be masked by /@condition@/.--This call never blocks.--/Since: 2.48/--}-datagramBasedConditionCheck ::-    (B.CallStack.HasCallStack, MonadIO m, IsDatagramBased a) =>-    a-    {- ^ /@datagramBased@/: a 'GI.Gio.Interfaces.DatagramBased.DatagramBased' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: a 'GI.GLib.Flags.IOCondition' mask to check -}-    -> m [GLib.Flags.IOCondition]-    {- ^ __Returns:__ the 'GI.GLib.Flags.IOCondition' mask of the current state -}-datagramBasedConditionCheck datagramBased condition = liftIO $ do-    datagramBased' <- unsafeManagedPtrCastPtr datagramBased-    let condition' = gflagsToWord condition-    result <- g_datagram_based_condition_check datagramBased' condition'-    let result' = wordToGFlags result-    touchManagedPtr datagramBased-    return result'--#if ENABLE_OVERLOADING-data DatagramBasedConditionCheckMethodInfo-instance (signature ~ ([GLib.Flags.IOCondition] -> m [GLib.Flags.IOCondition]), MonadIO m, IsDatagramBased a) => O.MethodInfo DatagramBasedConditionCheckMethodInfo a signature where-    overloadedMethod _ = datagramBasedConditionCheck--#endif---- method DatagramBased::condition_wait--- method type : OrdinaryMethod--- Args : [Arg {argCName = "datagram_based", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDatagramBased", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOCondition mask to wait for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum time (in microseconds) to wait, 0 to not block, or -1\n  to block indefinitely", 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", 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 "g_datagram_based_condition_wait" g_datagram_based_condition_wait :: -    Ptr DatagramBased ->                    -- datagram_based : TInterface (Name {namespace = "Gio", name = "DatagramBased"})-    CUInt ->                                -- condition : TInterface (Name {namespace = "GLib", name = "IOCondition"})-    Int64 ->                                -- timeout : TBasicType TInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Waits for up to /@timeout@/ microseconds for condition to become true on-/@datagramBased@/. If the condition is met, 'True' is returned.--If /@cancellable@/ is cancelled before the condition is met, or if /@timeout@/ is-reached before the condition is met, then 'False' is returned and /@error@/ is-set appropriately ('GI.Gio.Enums.IOErrorEnumCancelled' or 'GI.Gio.Enums.IOErrorEnumTimedOut').--/Since: 2.48/--}-datagramBasedConditionWait ::-    (B.CallStack.HasCallStack, MonadIO m, IsDatagramBased a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@datagramBased@/: a 'GI.Gio.Interfaces.DatagramBased.DatagramBased' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: a 'GI.GLib.Flags.IOCondition' mask to wait for -}-    -> Int64-    {- ^ /@timeout@/: the maximum time (in microseconds) to wait, 0 to not block, or -1-  to block indefinitely -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-datagramBasedConditionWait datagramBased condition timeout cancellable = liftIO $ do-    datagramBased' <- unsafeManagedPtrCastPtr datagramBased-    let condition' = gflagsToWord condition-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_datagram_based_condition_wait datagramBased' condition' timeout maybeCancellable-        touchManagedPtr datagramBased-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DatagramBasedConditionWaitMethodInfo-instance (signature ~ ([GLib.Flags.IOCondition] -> Int64 -> Maybe (b) -> m ()), MonadIO m, IsDatagramBased a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DatagramBasedConditionWaitMethodInfo a signature where-    overloadedMethod _ = datagramBasedConditionWait--#endif---- method DatagramBased::create_source--- method type : OrdinaryMethod--- Args : [Arg {argCName = "datagram_based", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDatagramBased", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOCondition mask to monitor", 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", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Source"}))--- throws : False--- Skip return : False--foreign import ccall "g_datagram_based_create_source" g_datagram_based_create_source :: -    Ptr DatagramBased ->                    -- datagram_based : TInterface (Name {namespace = "Gio", name = "DatagramBased"})-    CUInt ->                                -- condition : TInterface (Name {namespace = "GLib", name = "IOCondition"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO (Ptr GLib.Source.Source)--{- |-Creates a 'GI.GLib.Structs.Source.Source' that can be attached to a 'GI.GLib.Structs.MainContext.MainContext' to monitor for-the availability of the specified /@condition@/ on the 'GI.Gio.Interfaces.DatagramBased.DatagramBased'. The-'GI.GLib.Structs.Source.Source' keeps a reference to the /@datagramBased@/.--The callback on the source is of the 'GI.Gio.Callbacks.DatagramBasedSourceFunc' type.--It is meaningless to specify 'GI.GLib.Flags.IOConditionErr' or 'GI.GLib.Flags.IOConditionHup' in /@condition@/; these-conditions will always be reported in the callback if they are true.--If non-'Nothing', /@cancellable@/ can be used to cancel the source, which will-cause the source to trigger, reporting the current condition (which is-likely 0 unless cancellation happened at the same time as a condition-change). You can check for this in the callback using-'GI.Gio.Objects.Cancellable.cancellableIsCancelled'.--/Since: 2.48/--}-datagramBasedCreateSource ::-    (B.CallStack.HasCallStack, MonadIO m, IsDatagramBased a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@datagramBased@/: a 'GI.Gio.Interfaces.DatagramBased.DatagramBased' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: a 'GI.GLib.Flags.IOCondition' mask to monitor -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m GLib.Source.Source-    {- ^ __Returns:__ a newly allocated 'GI.GLib.Structs.Source.Source' -}-datagramBasedCreateSource datagramBased condition cancellable = liftIO $ do-    datagramBased' <- unsafeManagedPtrCastPtr datagramBased-    let condition' = gflagsToWord condition-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_datagram_based_create_source datagramBased' condition' maybeCancellable-    checkUnexpectedReturnNULL "datagramBasedCreateSource" result-    result' <- (wrapBoxed GLib.Source.Source) result-    touchManagedPtr datagramBased-    whenJust cancellable touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data DatagramBasedCreateSourceMethodInfo-instance (signature ~ ([GLib.Flags.IOCondition] -> Maybe (b) -> m GLib.Source.Source), MonadIO m, IsDatagramBased a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DatagramBasedCreateSourceMethodInfo a signature where-    overloadedMethod _ = datagramBasedCreateSource--#endif---- method DatagramBased::receive_messages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "datagram_based", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDatagramBased", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "InputMessage"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GInputMessage structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @messages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an int containing #GSocketMsgFlags flags for the overall operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum time (in microseconds) to wait, 0 to not block, or -1\n  to block indefinitely", 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", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @messages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_datagram_based_receive_messages" g_datagram_based_receive_messages :: -    Ptr DatagramBased ->                    -- datagram_based : TInterface (Name {namespace = "Gio", name = "DatagramBased"})-    Ptr Gio.InputMessage.InputMessage ->    -- messages : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "InputMessage"}))-    Word32 ->                               -- num_messages : TBasicType TUInt-    Int32 ->                                -- flags : TBasicType TInt-    Int64 ->                                -- timeout : TBasicType TInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Receive one or more data messages from /@datagramBased@/ in one go.--/@messages@/ must point to an array of 'GI.Gio.Structs.InputMessage.InputMessage' structs and-/@numMessages@/ must be the length of this array. Each 'GI.Gio.Structs.InputMessage.InputMessage'-contains a pointer to an array of 'GI.Gio.Structs.InputVector.InputVector' structs describing the-buffers that the data received in each message will be written to.--/@flags@/ modify how all messages are received. The commonly available-arguments for this are available in the 'GI.Gio.Flags.SocketMsgFlags' enum, but the-values there are the same as the system values, and the flags-are passed in as-is, so you can pass in system-specific flags too. These-flags affect the overall receive operation. Flags affecting individual-messages are returned in 'GI.Gio.Structs.InputMessage.InputMessage'.@/flags/@.--The other members of 'GI.Gio.Structs.InputMessage.InputMessage' are treated as described in its-documentation.--If /@timeout@/ is negative the call will block until /@numMessages@/ have been-received, the connection is closed remotely (EOS), /@cancellable@/ is cancelled,-or an error occurs.--If /@timeout@/ is 0 the call will return up to /@numMessages@/ without blocking,-or 'GI.Gio.Enums.IOErrorEnumWouldBlock' if no messages are queued in the operating system-to be received.--If /@timeout@/ is positive the call will block on the same conditions as if-/@timeout@/ were negative. If the timeout is reached-before any messages are received, 'GI.Gio.Enums.IOErrorEnumTimedOut' is returned,-otherwise it will return the number of messages received before timing out.-(Note: This is effectively the behaviour of @MSG_WAITFORONE@ with-@/recvmmsg()/@.)--To be notified when messages are available, wait for the 'GI.GLib.Flags.IOConditionIn' condition.-Note though that you may still receive 'GI.Gio.Enums.IOErrorEnumWouldBlock' from-'GI.Gio.Interfaces.DatagramBased.datagramBasedReceiveMessages' even if you were previously notified of a-'GI.GLib.Flags.IOConditionIn' condition.--If the remote peer closes the connection, any messages queued in the-underlying receive buffer will be returned, and subsequent calls to-'GI.Gio.Interfaces.DatagramBased.datagramBasedReceiveMessages' will return 0 (with no error set).--If the connection is shut down or closed (by calling 'GI.Gio.Objects.Socket.socketClose' or-'GI.Gio.Objects.Socket.socketShutdown' with /@shutdownRead@/ set, if it’s a 'GI.Gio.Objects.Socket.Socket', for-example), all calls to this function will return 'GI.Gio.Enums.IOErrorEnumClosed'.--On error -1 is returned and /@error@/ is set accordingly. An error will only-be returned if zero messages could be received; otherwise the number of-messages successfully received before the error will be returned. If-/@cancellable@/ is cancelled, 'GI.Gio.Enums.IOErrorEnumCancelled' is returned as with any-other error.--/Since: 2.48/--}-datagramBasedReceiveMessages ::-    (B.CallStack.HasCallStack, MonadIO m, IsDatagramBased a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@datagramBased@/: a 'GI.Gio.Interfaces.DatagramBased.DatagramBased' -}-    -> [Gio.InputMessage.InputMessage]-    {- ^ /@messages@/: an array of 'GI.Gio.Structs.InputMessage.InputMessage' structs -}-    -> Int32-    {- ^ /@flags@/: an int containing 'GI.Gio.Flags.SocketMsgFlags' flags for the overall operation -}-    -> Int64-    {- ^ /@timeout@/: the maximum time (in microseconds) to wait, 0 to not block, or -1-  to block indefinitely -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ -}-    -> m Int32-    {- ^ __Returns:__ number of messages received, or -1 on error. Note that the number-    of messages received may be smaller than /@numMessages@/ if /@timeout@/ is-    zero or positive, if the peer closed the connection, or if /@numMessages@/-    was larger than @UIO_MAXIOV@ (1024), in which case the caller may re-try-    to receive the remaining messages. /(Can throw 'Data.GI.Base.GError.GError')/ -}-datagramBasedReceiveMessages datagramBased messages flags timeout cancellable = liftIO $ do-    let numMessages = fromIntegral $ length messages-    datagramBased' <- unsafeManagedPtrCastPtr datagramBased-    messages' <- mapM unsafeManagedPtrGetPtr messages-    messages'' <- packBlockArray 56 messages'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_datagram_based_receive_messages datagramBased' messages'' numMessages flags timeout maybeCancellable-        touchManagedPtr datagramBased-        mapM_ touchManagedPtr messages-        whenJust cancellable touchManagedPtr-        freeMem messages''-        return result-     ) (do-        freeMem messages''-     )--#if ENABLE_OVERLOADING-data DatagramBasedReceiveMessagesMethodInfo-instance (signature ~ ([Gio.InputMessage.InputMessage] -> Int32 -> Int64 -> Maybe (b) -> m Int32), MonadIO m, IsDatagramBased a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DatagramBasedReceiveMessagesMethodInfo a signature where-    overloadedMethod _ = datagramBasedReceiveMessages--#endif---- method DatagramBased::send_messages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "datagram_based", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDatagramBased", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputMessage"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GOutputMessage structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @messages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an int containing #GSocketMsgFlags flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum time (in microseconds) to wait, 0 to not block, or -1\n  to block indefinitely", 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", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @messages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_datagram_based_send_messages" g_datagram_based_send_messages :: -    Ptr DatagramBased ->                    -- datagram_based : TInterface (Name {namespace = "Gio", name = "DatagramBased"})-    Ptr Gio.OutputMessage.OutputMessage ->  -- messages : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputMessage"}))-    Word32 ->                               -- num_messages : TBasicType TUInt-    Int32 ->                                -- flags : TBasicType TInt-    Int64 ->                                -- timeout : TBasicType TInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Send one or more data messages from /@datagramBased@/ in one go.--/@messages@/ must point to an array of 'GI.Gio.Structs.OutputMessage.OutputMessage' structs and-/@numMessages@/ must be the length of this array. Each 'GI.Gio.Structs.OutputMessage.OutputMessage'-contains an address to send the data to, and a pointer to an array of-'GI.Gio.Structs.OutputVector.OutputVector' structs to describe the buffers that the data to be sent-for each message will be gathered from.--/@flags@/ modify how the message is sent. The commonly available arguments-for this are available in the 'GI.Gio.Flags.SocketMsgFlags' enum, but the-values there are the same as the system values, and the flags-are passed in as-is, so you can pass in system-specific flags too.--The other members of 'GI.Gio.Structs.OutputMessage.OutputMessage' are treated as described in its-documentation.--If /@timeout@/ is negative the call will block until /@numMessages@/ have been-sent, /@cancellable@/ is cancelled, or an error occurs.--If /@timeout@/ is 0 the call will send up to /@numMessages@/ without blocking,-or will return 'GI.Gio.Enums.IOErrorEnumWouldBlock' if there is no space to send messages.--If /@timeout@/ is positive the call will block on the same conditions as if-/@timeout@/ were negative. If the timeout is reached before any messages are-sent, 'GI.Gio.Enums.IOErrorEnumTimedOut' is returned, otherwise it will return the number-of messages sent before timing out.--To be notified when messages can be sent, wait for the 'GI.GLib.Flags.IOConditionOut' condition.-Note though that you may still receive 'GI.Gio.Enums.IOErrorEnumWouldBlock' from-'GI.Gio.Interfaces.DatagramBased.datagramBasedSendMessages' even if you were previously notified of a-'GI.GLib.Flags.IOConditionOut' condition. (On Windows in particular, this is very common due to-the way the underlying APIs work.)--If the connection is shut down or closed (by calling 'GI.Gio.Objects.Socket.socketClose' or-'GI.Gio.Objects.Socket.socketShutdown' with /@shutdownWrite@/ set, if it’s a 'GI.Gio.Objects.Socket.Socket', for-example), all calls to this function will return 'GI.Gio.Enums.IOErrorEnumClosed'.--On error -1 is returned and /@error@/ is set accordingly. An error will only-be returned if zero messages could be sent; otherwise the number of messages-successfully sent before the error will be returned. If /@cancellable@/ is-cancelled, 'GI.Gio.Enums.IOErrorEnumCancelled' is returned as with any other error.--/Since: 2.48/--}-datagramBasedSendMessages ::-    (B.CallStack.HasCallStack, MonadIO m, IsDatagramBased a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@datagramBased@/: a 'GI.Gio.Interfaces.DatagramBased.DatagramBased' -}-    -> [Gio.OutputMessage.OutputMessage]-    {- ^ /@messages@/: an array of 'GI.Gio.Structs.OutputMessage.OutputMessage' structs -}-    -> Int32-    {- ^ /@flags@/: an int containing 'GI.Gio.Flags.SocketMsgFlags' flags -}-    -> Int64-    {- ^ /@timeout@/: the maximum time (in microseconds) to wait, 0 to not block, or -1-  to block indefinitely -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ -}-    -> m Int32-    {- ^ __Returns:__ number of messages sent, or -1 on error. Note that the number of-    messages sent may be smaller than /@numMessages@/ if /@timeout@/ is zero-    or positive, or if /@numMessages@/ was larger than @UIO_MAXIOV@ (1024), in-    which case the caller may re-try to send the remaining messages. /(Can throw 'Data.GI.Base.GError.GError')/ -}-datagramBasedSendMessages datagramBased messages flags timeout cancellable = liftIO $ do-    let numMessages = fromIntegral $ length messages-    datagramBased' <- unsafeManagedPtrCastPtr datagramBased-    messages' <- mapM unsafeManagedPtrGetPtr messages-    messages'' <- packBlockArray 40 messages'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_datagram_based_send_messages datagramBased' messages'' numMessages flags timeout maybeCancellable-        touchManagedPtr datagramBased-        mapM_ touchManagedPtr messages-        whenJust cancellable touchManagedPtr-        freeMem messages''-        return result-     ) (do-        freeMem messages''-     )--#if ENABLE_OVERLOADING-data DatagramBasedSendMessagesMethodInfo-instance (signature ~ ([Gio.OutputMessage.OutputMessage] -> Int32 -> Int64 -> Maybe (b) -> m Int32), MonadIO m, IsDatagramBased a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DatagramBasedSendMessagesMethodInfo a signature where-    overloadedMethod _ = datagramBasedSendMessages--#endif--
− GI/Gio/Interfaces/DatagramBased.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.DatagramBased 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 DatagramBased = DatagramBased (ManagedPtr DatagramBased)-instance GObject DatagramBased where-class (GObject o, O.IsDescendantOf DatagramBased o) => IsDatagramBased o-instance (GObject o, O.IsDescendantOf DatagramBased o) => IsDatagramBased o-instance O.HasParentTypes DatagramBased-#if ENABLE_OVERLOADING-data DatagramBasedConditionCheckMethodInfo-#endif-#if ENABLE_OVERLOADING-data DatagramBasedConditionWaitMethodInfo-#endif-#if ENABLE_OVERLOADING-data DatagramBasedCreateSourceMethodInfo-#endif-#if ENABLE_OVERLOADING-data DatagramBasedReceiveMessagesMethodInfo-#endif-#if ENABLE_OVERLOADING-data DatagramBasedSendMessagesMethodInfo-#endif
− GI/Gio/Interfaces/DesktopAppInfoLookup.hs 
@@ -1,185 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.DesktopAppInfoLookup.DesktopAppInfoLookup' is an opaque data structure and can only be accessed-using the following functions.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.DesktopAppInfoLookup-    ( ---- * Exported types-    DesktopAppInfoLookup(..)                ,-    noDesktopAppInfoLookup                  ,-    IsDesktopAppInfoLookup                  ,-    toDesktopAppInfoLookup                  ,--- -- * Methods--- ** getDefaultForUriScheme #method:getDefaultForUriScheme#--#if ENABLE_OVERLOADING-    DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo,-#endif-    desktopAppInfoLookupGetDefaultForUriScheme,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo---- interface DesktopAppInfoLookup --- | Memory-managed wrapper type.-newtype DesktopAppInfoLookup = DesktopAppInfoLookup (ManagedPtr DesktopAppInfoLookup)--- | A convenience alias for `Nothing` :: `Maybe` `DesktopAppInfoLookup`.-noDesktopAppInfoLookup :: Maybe DesktopAppInfoLookup-noDesktopAppInfoLookup = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList DesktopAppInfoLookup = DesktopAppInfoLookupSignalList-type DesktopAppInfoLookupSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_desktop_app_info_lookup_get_type"-    c_g_desktop_app_info_lookup_get_type :: IO GType--instance GObject DesktopAppInfoLookup where-    gobjectType = c_g_desktop_app_info_lookup_get_type-    ---- | Type class for types which can be safely cast to `DesktopAppInfoLookup`, for instance with `toDesktopAppInfoLookup`.-class (GObject o, O.IsDescendantOf DesktopAppInfoLookup o) => IsDesktopAppInfoLookup o-instance (GObject o, O.IsDescendantOf DesktopAppInfoLookup o) => IsDesktopAppInfoLookup o--instance O.HasParentTypes DesktopAppInfoLookup-type instance O.ParentTypes DesktopAppInfoLookup = '[GObject.Object.Object]---- | Cast to `DesktopAppInfoLookup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDesktopAppInfoLookup :: (MonadIO m, IsDesktopAppInfoLookup o) => o -> m DesktopAppInfoLookup-toDesktopAppInfoLookup = liftIO . unsafeCastTo DesktopAppInfoLookup--#if ENABLE_OVERLOADING-instance O.HasAttributeList DesktopAppInfoLookup-type instance O.AttributeList DesktopAppInfoLookup = DesktopAppInfoLookupAttributeList-type DesktopAppInfoLookupAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveDesktopAppInfoLookupMethod (t :: Symbol) (o :: *) :: * where-    ResolveDesktopAppInfoLookupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDesktopAppInfoLookupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDesktopAppInfoLookupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDesktopAppInfoLookupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDesktopAppInfoLookupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDesktopAppInfoLookupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDesktopAppInfoLookupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDesktopAppInfoLookupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDesktopAppInfoLookupMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDesktopAppInfoLookupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDesktopAppInfoLookupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDesktopAppInfoLookupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDesktopAppInfoLookupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDesktopAppInfoLookupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDesktopAppInfoLookupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDesktopAppInfoLookupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDesktopAppInfoLookupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDesktopAppInfoLookupMethod "getDefaultForUriScheme" o = DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo-    ResolveDesktopAppInfoLookupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDesktopAppInfoLookupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDesktopAppInfoLookupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDesktopAppInfoLookupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDesktopAppInfoLookupMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDesktopAppInfoLookupMethod t DesktopAppInfoLookup, O.MethodInfo info DesktopAppInfoLookup p) => OL.IsLabel t (DesktopAppInfoLookup -> 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 DesktopAppInfoLookup::get_default_for_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "lookup", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfoLookup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfoLookup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing a URI scheme.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_lookup_get_default_for_uri_scheme" g_desktop_app_info_lookup_get_default_for_uri_scheme :: -    Ptr DesktopAppInfoLookup ->             -- lookup : TInterface (Name {namespace = "Gio", name = "DesktopAppInfoLookup"})-    CString ->                              -- uri_scheme : TBasicType TUTF8-    IO (Ptr Gio.AppInfo.AppInfo)--{-# DEPRECATED desktopAppInfoLookupGetDefaultForUriScheme ["The 'GI.Gio.Interfaces.DesktopAppInfoLookup.DesktopAppInfoLookup' interface is deprecated and unused by gio."] #-}-{- |-Gets the default application for launching applications-using this URI scheme for a particular GDesktopAppInfoLookup-implementation.--The GDesktopAppInfoLookup interface and this function is used-to implement 'GI.Gio.Functions.appInfoGetDefaultForUriScheme' backends-in a GIO module. There is no reason for applications to use it-directly. Applications should use 'GI.Gio.Functions.appInfoGetDefaultForUriScheme'.--}-desktopAppInfoLookupGetDefaultForUriScheme ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfoLookup a) =>-    a-    {- ^ /@lookup@/: a 'GI.Gio.Interfaces.DesktopAppInfoLookup.DesktopAppInfoLookup' -}-    -> T.Text-    {- ^ /@uriScheme@/: a string containing a URI scheme. -}-    -> m Gio.AppInfo.AppInfo-    {- ^ __Returns:__ 'GI.Gio.Interfaces.AppInfo.AppInfo' for given /@uriScheme@/ or 'Nothing' on error. -}-desktopAppInfoLookupGetDefaultForUriScheme lookup uriScheme = liftIO $ do-    lookup' <- unsafeManagedPtrCastPtr lookup-    uriScheme' <- textToCString uriScheme-    result <- g_desktop_app_info_lookup_get_default_for_uri_scheme lookup' uriScheme'-    checkUnexpectedReturnNULL "desktopAppInfoLookupGetDefaultForUriScheme" result-    result' <- (wrapObject Gio.AppInfo.AppInfo) result-    touchManagedPtr lookup-    freeMem uriScheme'-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo-instance (signature ~ (T.Text -> m Gio.AppInfo.AppInfo), MonadIO m, IsDesktopAppInfoLookup a) => O.MethodInfo DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoLookupGetDefaultForUriScheme--#endif--
− GI/Gio/Interfaces/DesktopAppInfoLookup.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.DesktopAppInfoLookup 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 DesktopAppInfoLookup = DesktopAppInfoLookup (ManagedPtr DesktopAppInfoLookup)-instance GObject DesktopAppInfoLookup where-class (GObject o, O.IsDescendantOf DesktopAppInfoLookup o) => IsDesktopAppInfoLookup o-instance (GObject o, O.IsDescendantOf DesktopAppInfoLookup o) => IsDesktopAppInfoLookup o-instance O.HasParentTypes DesktopAppInfoLookup-#if ENABLE_OVERLOADING-data DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo-#endif
− GI/Gio/Interfaces/Drive.hs 
@@ -1,2023 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.Drive.Drive' - this represent a piece of hardware connected to the machine.-It\'s generally only created for removable hardware or hardware with-removable media.--'GI.Gio.Interfaces.Drive.Drive' is a container class for 'GI.Gio.Interfaces.Volume.Volume' objects that stem from-the same piece of media. As such, 'GI.Gio.Interfaces.Drive.Drive' abstracts a drive with-(or without) removable media and provides operations for querying-whether media is available, determining whether media change is-automatically detected and ejecting the media.--If the 'GI.Gio.Interfaces.Drive.Drive' reports that media isn\'t automatically detected, one-can poll for media; typically one should not do this periodically-as a poll for media operation is potententially expensive and may-spin up the drive creating noise.--'GI.Gio.Interfaces.Drive.Drive' supports starting and stopping drives with authentication-support for the former. This can be used to support a diverse set-of use cases including connecting\/disconnecting iSCSI devices,-powering down external disk enclosures and starting\/stopping-multi-disk devices such as RAID devices. Note that the actual-semantics and side-effects of starting\/stopping a 'GI.Gio.Interfaces.Drive.Drive' may vary-according to implementation. To choose the correct verbs in e.g. a-file manager, use 'GI.Gio.Interfaces.Drive.driveGetStartStopType'.--For porting from GnomeVFS note that there is no equivalent of-'GI.Gio.Interfaces.Drive.Drive' in that API.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Drive-    ( ---- * Exported types-    Drive(..)                               ,-    noDrive                                 ,-    IsDrive                                 ,-    toDrive                                 ,--- -- * Methods--- ** canEject #method:canEject#--#if ENABLE_OVERLOADING-    DriveCanEjectMethodInfo                 ,-#endif-    driveCanEject                           ,----- ** canPollForMedia #method:canPollForMedia#--#if ENABLE_OVERLOADING-    DriveCanPollForMediaMethodInfo          ,-#endif-    driveCanPollForMedia                    ,----- ** canStart #method:canStart#--#if ENABLE_OVERLOADING-    DriveCanStartMethodInfo                 ,-#endif-    driveCanStart                           ,----- ** canStartDegraded #method:canStartDegraded#--#if ENABLE_OVERLOADING-    DriveCanStartDegradedMethodInfo         ,-#endif-    driveCanStartDegraded                   ,----- ** canStop #method:canStop#--#if ENABLE_OVERLOADING-    DriveCanStopMethodInfo                  ,-#endif-    driveCanStop                            ,----- ** eject #method:eject#--#if ENABLE_OVERLOADING-    DriveEjectMethodInfo                    ,-#endif-    driveEject                              ,----- ** ejectFinish #method:ejectFinish#--#if ENABLE_OVERLOADING-    DriveEjectFinishMethodInfo              ,-#endif-    driveEjectFinish                        ,----- ** ejectWithOperation #method:ejectWithOperation#--#if ENABLE_OVERLOADING-    DriveEjectWithOperationMethodInfo       ,-#endif-    driveEjectWithOperation                 ,----- ** ejectWithOperationFinish #method:ejectWithOperationFinish#--#if ENABLE_OVERLOADING-    DriveEjectWithOperationFinishMethodInfo ,-#endif-    driveEjectWithOperationFinish           ,----- ** enumerateIdentifiers #method:enumerateIdentifiers#--#if ENABLE_OVERLOADING-    DriveEnumerateIdentifiersMethodInfo     ,-#endif-    driveEnumerateIdentifiers               ,----- ** getIcon #method:getIcon#--#if ENABLE_OVERLOADING-    DriveGetIconMethodInfo                  ,-#endif-    driveGetIcon                            ,----- ** getIdentifier #method:getIdentifier#--#if ENABLE_OVERLOADING-    DriveGetIdentifierMethodInfo            ,-#endif-    driveGetIdentifier                      ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    DriveGetNameMethodInfo                  ,-#endif-    driveGetName                            ,----- ** getSortKey #method:getSortKey#--#if ENABLE_OVERLOADING-    DriveGetSortKeyMethodInfo               ,-#endif-    driveGetSortKey                         ,----- ** getStartStopType #method:getStartStopType#--#if ENABLE_OVERLOADING-    DriveGetStartStopTypeMethodInfo         ,-#endif-    driveGetStartStopType                   ,----- ** getSymbolicIcon #method:getSymbolicIcon#--#if ENABLE_OVERLOADING-    DriveGetSymbolicIconMethodInfo          ,-#endif-    driveGetSymbolicIcon                    ,----- ** getVolumes #method:getVolumes#--#if ENABLE_OVERLOADING-    DriveGetVolumesMethodInfo               ,-#endif-    driveGetVolumes                         ,----- ** hasMedia #method:hasMedia#--#if ENABLE_OVERLOADING-    DriveHasMediaMethodInfo                 ,-#endif-    driveHasMedia                           ,----- ** hasVolumes #method:hasVolumes#--#if ENABLE_OVERLOADING-    DriveHasVolumesMethodInfo               ,-#endif-    driveHasVolumes                         ,----- ** isMediaCheckAutomatic #method:isMediaCheckAutomatic#--#if ENABLE_OVERLOADING-    DriveIsMediaCheckAutomaticMethodInfo    ,-#endif-    driveIsMediaCheckAutomatic              ,----- ** isMediaRemovable #method:isMediaRemovable#--#if ENABLE_OVERLOADING-    DriveIsMediaRemovableMethodInfo         ,-#endif-    driveIsMediaRemovable                   ,----- ** isRemovable #method:isRemovable#--#if ENABLE_OVERLOADING-    DriveIsRemovableMethodInfo              ,-#endif-    driveIsRemovable                        ,----- ** pollForMedia #method:pollForMedia#--#if ENABLE_OVERLOADING-    DrivePollForMediaMethodInfo             ,-#endif-    drivePollForMedia                       ,----- ** pollForMediaFinish #method:pollForMediaFinish#--#if ENABLE_OVERLOADING-    DrivePollForMediaFinishMethodInfo       ,-#endif-    drivePollForMediaFinish                 ,----- ** start #method:start#--#if ENABLE_OVERLOADING-    DriveStartMethodInfo                    ,-#endif-    driveStart                              ,----- ** startFinish #method:startFinish#--#if ENABLE_OVERLOADING-    DriveStartFinishMethodInfo              ,-#endif-    driveStartFinish                        ,----- ** stop #method:stop#--#if ENABLE_OVERLOADING-    DriveStopMethodInfo                     ,-#endif-    driveStop                               ,----- ** stopFinish #method:stopFinish#--#if ENABLE_OVERLOADING-    DriveStopFinishMethodInfo               ,-#endif-    driveStopFinish                         ,----- -- * Signals--- ** changed #signal:changed#--    C_DriveChangedCallback                  ,-    DriveChangedCallback                    ,-#if ENABLE_OVERLOADING-    DriveChangedSignalInfo                  ,-#endif-    afterDriveChanged                       ,-    genClosure_DriveChanged                 ,-    mk_DriveChangedCallback                 ,-    noDriveChangedCallback                  ,-    onDriveChanged                          ,-    wrap_DriveChangedCallback               ,----- ** disconnected #signal:disconnected#--    C_DriveDisconnectedCallback             ,-    DriveDisconnectedCallback               ,-#if ENABLE_OVERLOADING-    DriveDisconnectedSignalInfo             ,-#endif-    afterDriveDisconnected                  ,-    genClosure_DriveDisconnected            ,-    mk_DriveDisconnectedCallback            ,-    noDriveDisconnectedCallback             ,-    onDriveDisconnected                     ,-    wrap_DriveDisconnectedCallback          ,----- ** ejectButton #signal:ejectButton#--    C_DriveEjectButtonCallback              ,-    DriveEjectButtonCallback                ,-#if ENABLE_OVERLOADING-    DriveEjectButtonSignalInfo              ,-#endif-    afterDriveEjectButton                   ,-    genClosure_DriveEjectButton             ,-    mk_DriveEjectButtonCallback             ,-    noDriveEjectButtonCallback              ,-    onDriveEjectButton                      ,-    wrap_DriveEjectButtonCallback           ,----- ** stopButton #signal:stopButton#--    C_DriveStopButtonCallback               ,-    DriveStopButtonCallback                 ,-#if ENABLE_OVERLOADING-    DriveStopButtonSignalInfo               ,-#endif-    afterDriveStopButton                    ,-    genClosure_DriveStopButton              ,-    mk_DriveStopButtonCallback              ,-    noDriveStopButtonCallback               ,-    onDriveStopButton                       ,-    wrap_DriveStopButtonCallback            ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Volume as Gio.Volume-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.MountOperation as Gio.MountOperation---- interface Drive --- | Memory-managed wrapper type.-newtype Drive = Drive (ManagedPtr Drive)--- | A convenience alias for `Nothing` :: `Maybe` `Drive`.-noDrive :: Maybe Drive-noDrive = Nothing---- signal Drive::changed-{- |-Emitted when the drive\'s state has changed.--}-type DriveChangedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DriveChangedCallback`@.-noDriveChangedCallback :: Maybe DriveChangedCallback-noDriveChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DriveChangedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DriveChangedCallback`.-foreign import ccall "wrapper"-    mk_DriveChangedCallback :: C_DriveChangedCallback -> IO (FunPtr C_DriveChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DriveChanged :: MonadIO m => DriveChangedCallback -> m (GClosure C_DriveChangedCallback)-genClosure_DriveChanged cb = liftIO $ do-    let cb' = wrap_DriveChangedCallback cb-    mk_DriveChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DriveChangedCallback` into a `C_DriveChangedCallback`.-wrap_DriveChangedCallback ::-    DriveChangedCallback ->-    C_DriveChangedCallback-wrap_DriveChangedCallback _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' drive #changed callback-@--}-onDriveChanged :: (IsDrive a, MonadIO m) => a -> DriveChangedCallback -> m SignalHandlerId-onDriveChanged obj cb = liftIO $ do-    let cb' = wrap_DriveChangedCallback cb-    cb'' <- mk_DriveChangedCallback 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' drive #changed callback-@--}-afterDriveChanged :: (IsDrive a, MonadIO m) => a -> DriveChangedCallback -> m SignalHandlerId-afterDriveChanged obj cb = liftIO $ do-    let cb' = wrap_DriveChangedCallback cb-    cb'' <- mk_DriveChangedCallback cb'-    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter----- signal Drive::disconnected-{- |-This signal is emitted when the 'GI.Gio.Interfaces.Drive.Drive' have been-disconnected. If the recipient is holding references to the-object they should release them so the object can be-finalized.--}-type DriveDisconnectedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DriveDisconnectedCallback`@.-noDriveDisconnectedCallback :: Maybe DriveDisconnectedCallback-noDriveDisconnectedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DriveDisconnectedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DriveDisconnectedCallback`.-foreign import ccall "wrapper"-    mk_DriveDisconnectedCallback :: C_DriveDisconnectedCallback -> IO (FunPtr C_DriveDisconnectedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DriveDisconnected :: MonadIO m => DriveDisconnectedCallback -> m (GClosure C_DriveDisconnectedCallback)-genClosure_DriveDisconnected cb = liftIO $ do-    let cb' = wrap_DriveDisconnectedCallback cb-    mk_DriveDisconnectedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DriveDisconnectedCallback` into a `C_DriveDisconnectedCallback`.-wrap_DriveDisconnectedCallback ::-    DriveDisconnectedCallback ->-    C_DriveDisconnectedCallback-wrap_DriveDisconnectedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@disconnected@” 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' drive #disconnected callback-@--}-onDriveDisconnected :: (IsDrive a, MonadIO m) => a -> DriveDisconnectedCallback -> m SignalHandlerId-onDriveDisconnected obj cb = liftIO $ do-    let cb' = wrap_DriveDisconnectedCallback cb-    cb'' <- mk_DriveDisconnectedCallback cb'-    connectSignalFunPtr obj "disconnected" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@disconnected@” 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' drive #disconnected callback-@--}-afterDriveDisconnected :: (IsDrive a, MonadIO m) => a -> DriveDisconnectedCallback -> m SignalHandlerId-afterDriveDisconnected obj cb = liftIO $ do-    let cb' = wrap_DriveDisconnectedCallback cb-    cb'' <- mk_DriveDisconnectedCallback cb'-    connectSignalFunPtr obj "disconnected" cb'' SignalConnectAfter----- signal Drive::eject-button-{- |-Emitted when the physical eject button (if any) of a drive has-been pressed.--}-type DriveEjectButtonCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DriveEjectButtonCallback`@.-noDriveEjectButtonCallback :: Maybe DriveEjectButtonCallback-noDriveEjectButtonCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DriveEjectButtonCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DriveEjectButtonCallback`.-foreign import ccall "wrapper"-    mk_DriveEjectButtonCallback :: C_DriveEjectButtonCallback -> IO (FunPtr C_DriveEjectButtonCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DriveEjectButton :: MonadIO m => DriveEjectButtonCallback -> m (GClosure C_DriveEjectButtonCallback)-genClosure_DriveEjectButton cb = liftIO $ do-    let cb' = wrap_DriveEjectButtonCallback cb-    mk_DriveEjectButtonCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DriveEjectButtonCallback` into a `C_DriveEjectButtonCallback`.-wrap_DriveEjectButtonCallback ::-    DriveEjectButtonCallback ->-    C_DriveEjectButtonCallback-wrap_DriveEjectButtonCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@eject-button@” 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' drive #ejectButton callback-@--}-onDriveEjectButton :: (IsDrive a, MonadIO m) => a -> DriveEjectButtonCallback -> m SignalHandlerId-onDriveEjectButton obj cb = liftIO $ do-    let cb' = wrap_DriveEjectButtonCallback cb-    cb'' <- mk_DriveEjectButtonCallback cb'-    connectSignalFunPtr obj "eject-button" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@eject-button@” 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' drive #ejectButton callback-@--}-afterDriveEjectButton :: (IsDrive a, MonadIO m) => a -> DriveEjectButtonCallback -> m SignalHandlerId-afterDriveEjectButton obj cb = liftIO $ do-    let cb' = wrap_DriveEjectButtonCallback cb-    cb'' <- mk_DriveEjectButtonCallback cb'-    connectSignalFunPtr obj "eject-button" cb'' SignalConnectAfter----- signal Drive::stop-button-{- |-Emitted when the physical stop button (if any) of a drive has-been pressed.--/Since: 2.22/--}-type DriveStopButtonCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DriveStopButtonCallback`@.-noDriveStopButtonCallback :: Maybe DriveStopButtonCallback-noDriveStopButtonCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DriveStopButtonCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DriveStopButtonCallback`.-foreign import ccall "wrapper"-    mk_DriveStopButtonCallback :: C_DriveStopButtonCallback -> IO (FunPtr C_DriveStopButtonCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DriveStopButton :: MonadIO m => DriveStopButtonCallback -> m (GClosure C_DriveStopButtonCallback)-genClosure_DriveStopButton cb = liftIO $ do-    let cb' = wrap_DriveStopButtonCallback cb-    mk_DriveStopButtonCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DriveStopButtonCallback` into a `C_DriveStopButtonCallback`.-wrap_DriveStopButtonCallback ::-    DriveStopButtonCallback ->-    C_DriveStopButtonCallback-wrap_DriveStopButtonCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@stop-button@” 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' drive #stopButton callback-@--}-onDriveStopButton :: (IsDrive a, MonadIO m) => a -> DriveStopButtonCallback -> m SignalHandlerId-onDriveStopButton obj cb = liftIO $ do-    let cb' = wrap_DriveStopButtonCallback cb-    cb'' <- mk_DriveStopButtonCallback cb'-    connectSignalFunPtr obj "stop-button" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@stop-button@” 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' drive #stopButton callback-@--}-afterDriveStopButton :: (IsDrive a, MonadIO m) => a -> DriveStopButtonCallback -> m SignalHandlerId-afterDriveStopButton obj cb = liftIO $ do-    let cb' = wrap_DriveStopButtonCallback cb-    cb'' <- mk_DriveStopButtonCallback cb'-    connectSignalFunPtr obj "stop-button" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data DriveChangedSignalInfo-instance SignalInfo DriveChangedSignalInfo where-    type HaskellCallbackType DriveChangedSignalInfo = DriveChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DriveChangedCallback cb-        cb'' <- mk_DriveChangedCallback cb'-        connectSignalFunPtr obj "changed" cb'' connectMode--data DriveDisconnectedSignalInfo-instance SignalInfo DriveDisconnectedSignalInfo where-    type HaskellCallbackType DriveDisconnectedSignalInfo = DriveDisconnectedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DriveDisconnectedCallback cb-        cb'' <- mk_DriveDisconnectedCallback cb'-        connectSignalFunPtr obj "disconnected" cb'' connectMode--data DriveEjectButtonSignalInfo-instance SignalInfo DriveEjectButtonSignalInfo where-    type HaskellCallbackType DriveEjectButtonSignalInfo = DriveEjectButtonCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DriveEjectButtonCallback cb-        cb'' <- mk_DriveEjectButtonCallback cb'-        connectSignalFunPtr obj "eject-button" cb'' connectMode--data DriveStopButtonSignalInfo-instance SignalInfo DriveStopButtonSignalInfo where-    type HaskellCallbackType DriveStopButtonSignalInfo = DriveStopButtonCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DriveStopButtonCallback cb-        cb'' <- mk_DriveStopButtonCallback cb'-        connectSignalFunPtr obj "stop-button" cb'' connectMode--type instance O.SignalList Drive = DriveSignalList-type DriveSignalList = ('[ '("changed", DriveChangedSignalInfo), '("disconnected", DriveDisconnectedSignalInfo), '("ejectButton", DriveEjectButtonSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("stopButton", DriveStopButtonSignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_drive_get_type"-    c_g_drive_get_type :: IO GType--instance GObject Drive where-    gobjectType = c_g_drive_get_type-    ---- | Type class for types which can be safely cast to `Drive`, for instance with `toDrive`.-class (GObject o, O.IsDescendantOf Drive o) => IsDrive o-instance (GObject o, O.IsDescendantOf Drive o) => IsDrive o--instance O.HasParentTypes Drive-type instance O.ParentTypes Drive = '[GObject.Object.Object]---- | Cast to `Drive`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDrive :: (MonadIO m, IsDrive o) => o -> m Drive-toDrive = liftIO . unsafeCastTo Drive--#if ENABLE_OVERLOADING-instance O.HasAttributeList Drive-type instance O.AttributeList Drive = DriveAttributeList-type DriveAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveDriveMethod (t :: Symbol) (o :: *) :: * where-    ResolveDriveMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDriveMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDriveMethod "canEject" o = DriveCanEjectMethodInfo-    ResolveDriveMethod "canPollForMedia" o = DriveCanPollForMediaMethodInfo-    ResolveDriveMethod "canStart" o = DriveCanStartMethodInfo-    ResolveDriveMethod "canStartDegraded" o = DriveCanStartDegradedMethodInfo-    ResolveDriveMethod "canStop" o = DriveCanStopMethodInfo-    ResolveDriveMethod "eject" o = DriveEjectMethodInfo-    ResolveDriveMethod "ejectFinish" o = DriveEjectFinishMethodInfo-    ResolveDriveMethod "ejectWithOperation" o = DriveEjectWithOperationMethodInfo-    ResolveDriveMethod "ejectWithOperationFinish" o = DriveEjectWithOperationFinishMethodInfo-    ResolveDriveMethod "enumerateIdentifiers" o = DriveEnumerateIdentifiersMethodInfo-    ResolveDriveMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDriveMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDriveMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDriveMethod "hasMedia" o = DriveHasMediaMethodInfo-    ResolveDriveMethod "hasVolumes" o = DriveHasVolumesMethodInfo-    ResolveDriveMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDriveMethod "isMediaCheckAutomatic" o = DriveIsMediaCheckAutomaticMethodInfo-    ResolveDriveMethod "isMediaRemovable" o = DriveIsMediaRemovableMethodInfo-    ResolveDriveMethod "isRemovable" o = DriveIsRemovableMethodInfo-    ResolveDriveMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDriveMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDriveMethod "pollForMedia" o = DrivePollForMediaMethodInfo-    ResolveDriveMethod "pollForMediaFinish" o = DrivePollForMediaFinishMethodInfo-    ResolveDriveMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDriveMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDriveMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDriveMethod "start" o = DriveStartMethodInfo-    ResolveDriveMethod "startFinish" o = DriveStartFinishMethodInfo-    ResolveDriveMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDriveMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDriveMethod "stop" o = DriveStopMethodInfo-    ResolveDriveMethod "stopFinish" o = DriveStopFinishMethodInfo-    ResolveDriveMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDriveMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDriveMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDriveMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDriveMethod "getIcon" o = DriveGetIconMethodInfo-    ResolveDriveMethod "getIdentifier" o = DriveGetIdentifierMethodInfo-    ResolveDriveMethod "getName" o = DriveGetNameMethodInfo-    ResolveDriveMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDriveMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDriveMethod "getSortKey" o = DriveGetSortKeyMethodInfo-    ResolveDriveMethod "getStartStopType" o = DriveGetStartStopTypeMethodInfo-    ResolveDriveMethod "getSymbolicIcon" o = DriveGetSymbolicIconMethodInfo-    ResolveDriveMethod "getVolumes" o = DriveGetVolumesMethodInfo-    ResolveDriveMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDriveMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDriveMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDriveMethod t Drive, O.MethodInfo info Drive p) => OL.IsLabel t (Drive -> 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 Drive::can_eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_can_eject" g_drive_can_eject :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if a drive can be ejected.--}-driveCanEject ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@drive@/ can be ejected, 'False' otherwise. -}-driveCanEject drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_can_eject drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveCanEjectMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveCanEjectMethodInfo a signature where-    overloadedMethod _ = driveCanEject--#endif---- method Drive::can_poll_for_media--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_can_poll_for_media" g_drive_can_poll_for_media :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if a drive can be polled for media changes.--}-driveCanPollForMedia ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@drive@/ can be polled for media changes,-    'False' otherwise. -}-driveCanPollForMedia drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_can_poll_for_media drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveCanPollForMediaMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveCanPollForMediaMethodInfo a signature where-    overloadedMethod _ = driveCanPollForMedia--#endif---- method Drive::can_start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_can_start" g_drive_can_start :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if a drive can be started.--/Since: 2.22/--}-driveCanStart ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@drive@/ can be started, 'False' otherwise. -}-driveCanStart drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_can_start drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveCanStartMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveCanStartMethodInfo a signature where-    overloadedMethod _ = driveCanStart--#endif---- method Drive::can_start_degraded--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_can_start_degraded" g_drive_can_start_degraded :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if a drive can be started degraded.--/Since: 2.22/--}-driveCanStartDegraded ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@drive@/ can be started degraded, 'False' otherwise. -}-driveCanStartDegraded drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_can_start_degraded drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveCanStartDegradedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveCanStartDegradedMethodInfo a signature where-    overloadedMethod _ = driveCanStartDegraded--#endif---- method Drive::can_stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_can_stop" g_drive_can_stop :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if a drive can be stopped.--/Since: 2.22/--}-driveCanStop ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@drive@/ can be stopped, 'False' otherwise. -}-driveCanStop drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_can_stop drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveCanStopMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveCanStopMethodInfo a signature where-    overloadedMethod _ = driveCanStop--#endif---- method Drive::eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the unmount if required for eject", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user 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 "g_drive_eject" g_drive_eject :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    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 ()--{-# DEPRECATED driveEject ["(Since version 2.22)","Use 'GI.Gio.Interfaces.Drive.driveEjectWithOperation' instead."] #-}-{- |-Asynchronously ejects a drive.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.Drive.driveEjectFinish' to obtain the-result of the operation.--}-driveEject ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the unmount if required for eject -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-driveEject drive flags cancellable callback = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    let flags' = gflagsToWord flags-    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-    g_drive_eject drive' flags' maybeCancellable maybeCallback userData-    touchManagedPtr drive-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DriveEjectMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDrive a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DriveEjectMethodInfo a signature where-    overloadedMethod _ = driveEject--#endif---- method Drive::eject_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "a #GAsyncResult.", 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 "g_drive_eject_finish" g_drive_eject_finish :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED driveEjectFinish ["(Since version 2.22)","Use 'GI.Gio.Interfaces.Drive.driveEjectWithOperationFinish' instead."] #-}-{- |-Finishes ejecting a drive.--}-driveEjectFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-driveEjectFinish drive result_ = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_eject_finish drive' result_'-        touchManagedPtr drive-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DriveEjectFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DriveEjectFinishMethodInfo a signature where-    overloadedMethod _ = driveEjectFinish--#endif---- method Drive::eject_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the unmount if required for eject", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation or %NULL to avoid\n    user interaction.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", 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 "user data passed 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 "g_drive_eject_with_operation" g_drive_eject_with_operation :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Ejects a drive. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Drive.driveEjectWithOperationFinish' with the /@drive@/-and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' data returned in the /@callback@/.--/Since: 2.22/--}-driveEjectWithOperation ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the unmount if required for eject -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation' or 'Nothing' to avoid-    user interaction. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-driveEjectWithOperation drive flags mountOperation cancellable callback = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_drive_eject_with_operation drive' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr drive-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DriveEjectWithOperationMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDrive a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DriveEjectWithOperationMethodInfo a signature where-    overloadedMethod _ = driveEjectWithOperation--#endif---- method Drive::eject_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "a #GAsyncResult.", 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 "g_drive_eject_with_operation_finish" g_drive_eject_with_operation_finish :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes ejecting a drive. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--/Since: 2.22/--}-driveEjectWithOperationFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-driveEjectWithOperationFinish drive result_ = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_eject_with_operation_finish drive' result_'-        touchManagedPtr drive-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DriveEjectWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DriveEjectWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = driveEjectWithOperationFinish--#endif---- method Drive::enumerate_identifiers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_drive_enumerate_identifiers" g_drive_enumerate_identifiers :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO (Ptr CString)--{- |-Gets the kinds of identifiers that /@drive@/ has.-Use 'GI.Gio.Interfaces.Drive.driveGetIdentifier' to obtain the identifiers-themselves.--}-driveEnumerateIdentifiers ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive' -}-    -> m [T.Text]-    {- ^ __Returns:__ a 'Nothing'-terminated-    array of strings containing kinds of identifiers. Use 'GI.GLib.Functions.strfreev'-    to free. -}-driveEnumerateIdentifiers drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_enumerate_identifiers drive'-    checkUnexpectedReturnNULL "driveEnumerateIdentifiers" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveEnumerateIdentifiersMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsDrive a) => O.MethodInfo DriveEnumerateIdentifiersMethodInfo a signature where-    overloadedMethod _ = driveEnumerateIdentifiers--#endif---- method Drive::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_drive_get_icon" g_drive_get_icon :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the icon for /@drive@/.--}-driveGetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ 'GI.Gio.Interfaces.Icon.Icon' for the /@drive@/.-   Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-driveGetIcon drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_get_icon drive'-    checkUnexpectedReturnNULL "driveGetIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveGetIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsDrive a) => O.MethodInfo DriveGetIconMethodInfo a signature where-    overloadedMethod _ = driveGetIcon--#endif---- method Drive::get_identifier--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the kind of identifier to return", 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 "g_drive_get_identifier" g_drive_get_identifier :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    CString ->                              -- kind : TBasicType TUTF8-    IO CString--{- |-Gets the identifier of the given kind for /@drive@/. The only-identifier currently available is-'GI.Gio.Constants.DRIVE_IDENTIFIER_KIND_UNIX_DEVICE'.--}-driveGetIdentifier ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive' -}-    -> T.Text-    {- ^ /@kind@/: the kind of identifier to return -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ a newly allocated string containing the-    requested identifier, or 'Nothing' if the 'GI.Gio.Interfaces.Drive.Drive'-    doesn\'t have this kind of identifier. -}-driveGetIdentifier drive kind = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    kind' <- textToCString kind-    result <- g_drive_get_identifier drive' kind'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr drive-    freeMem kind'-    return maybeResult--#if ENABLE_OVERLOADING-data DriveGetIdentifierMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsDrive a) => O.MethodInfo DriveGetIdentifierMethodInfo a signature where-    overloadedMethod _ = driveGetIdentifier--#endif---- method Drive::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_get_name" g_drive_get_name :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CString--{- |-Gets the name of /@drive@/.--}-driveGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing /@drive@/\'s name. The returned-    string should be freed when no longer needed. -}-driveGetName drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_get_name drive'-    checkUnexpectedReturnNULL "driveGetName" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDrive a) => O.MethodInfo DriveGetNameMethodInfo a signature where-    overloadedMethod _ = driveGetName--#endif---- method Drive::get_sort_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDrive.", 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 "g_drive_get_sort_key" g_drive_get_sort_key :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CString--{- |-Gets the sort key for /@drive@/, if any.--/Since: 2.32/--}-driveGetSortKey ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: A 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ Sorting key for /@drive@/ or 'Nothing' if no such key is available. -}-driveGetSortKey drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_get_sort_key drive'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr drive-    return maybeResult--#if ENABLE_OVERLOADING-data DriveGetSortKeyMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDrive a) => O.MethodInfo DriveGetSortKeyMethodInfo a signature where-    overloadedMethod _ = driveGetSortKey--#endif---- method Drive::get_start_stop_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DriveStartStopType"}))--- throws : False--- Skip return : False--foreign import ccall "g_drive_get_start_stop_type" g_drive_get_start_stop_type :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CUInt--{- |-Gets a hint about how a drive can be started\/stopped.--/Since: 2.22/--}-driveGetStartStopType ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Gio.Enums.DriveStartStopType-    {- ^ __Returns:__ A value from the 'GI.Gio.Enums.DriveStartStopType' enumeration. -}-driveGetStartStopType drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_get_start_stop_type drive'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveGetStartStopTypeMethodInfo-instance (signature ~ (m Gio.Enums.DriveStartStopType), MonadIO m, IsDrive a) => O.MethodInfo DriveGetStartStopTypeMethodInfo a signature where-    overloadedMethod _ = driveGetStartStopType--#endif---- method Drive::get_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_drive_get_symbolic_icon" g_drive_get_symbolic_icon :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the icon for /@drive@/.--/Since: 2.34/--}-driveGetSymbolicIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ symbolic 'GI.Gio.Interfaces.Icon.Icon' for the /@drive@/.-   Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-driveGetSymbolicIcon drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_get_symbolic_icon drive'-    checkUnexpectedReturnNULL "driveGetSymbolicIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveGetSymbolicIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsDrive a) => O.MethodInfo DriveGetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = driveGetSymbolicIcon--#endif---- method Drive::get_volumes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "Volume"})))--- throws : False--- Skip return : False--foreign import ccall "g_drive_get_volumes" g_drive_get_volumes :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO (Ptr (GList (Ptr Gio.Volume.Volume)))--{- |-Get a list of mountable volumes for /@drive@/.--The returned list should be freed with @/g_list_free()/@, after-its elements have been unreffed with 'GI.GObject.Objects.Object.objectUnref'.--}-driveGetVolumes ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m [Gio.Volume.Volume]-    {- ^ __Returns:__ 'GI.GLib.Structs.List.List' containing any 'GI.Gio.Interfaces.Volume.Volume' objects on the given /@drive@/. -}-driveGetVolumes drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_get_volumes drive'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Gio.Volume.Volume) result'-    g_list_free result-    touchManagedPtr drive-    return result''--#if ENABLE_OVERLOADING-data DriveGetVolumesMethodInfo-instance (signature ~ (m [Gio.Volume.Volume]), MonadIO m, IsDrive a) => O.MethodInfo DriveGetVolumesMethodInfo a signature where-    overloadedMethod _ = driveGetVolumes--#endif---- method Drive::has_media--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_has_media" g_drive_has_media :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if the /@drive@/ has media. Note that the OS may not be polling-the drive for media changes; see 'GI.Gio.Interfaces.Drive.driveIsMediaCheckAutomatic'-for more details.--}-driveHasMedia ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@drive@/ has media, 'False' otherwise. -}-driveHasMedia drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_has_media drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveHasMediaMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveHasMediaMethodInfo a signature where-    overloadedMethod _ = driveHasMedia--#endif---- method Drive::has_volumes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_has_volumes" g_drive_has_volumes :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Check if /@drive@/ has any mountable volumes.--}-driveHasVolumes ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@drive@/ contains volumes, 'False' otherwise. -}-driveHasVolumes drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_has_volumes drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveHasVolumesMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveHasVolumesMethodInfo a signature where-    overloadedMethod _ = driveHasVolumes--#endif---- method Drive::is_media_check_automatic--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_is_media_check_automatic" g_drive_is_media_check_automatic :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if /@drive@/ is capabable of automatically detecting media changes.--}-driveIsMediaCheckAutomatic ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@drive@/ is capabable of automatically detecting-    media changes, 'False' otherwise. -}-driveIsMediaCheckAutomatic drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_is_media_check_automatic drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveIsMediaCheckAutomaticMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveIsMediaCheckAutomaticMethodInfo a signature where-    overloadedMethod _ = driveIsMediaCheckAutomatic--#endif---- method Drive::is_media_removable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_is_media_removable" g_drive_is_media_removable :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if the /@drive@/ supports removable media.--}-driveIsMediaRemovable ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@drive@/ supports removable media, 'False' otherwise. -}-driveIsMediaRemovable drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_is_media_removable drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveIsMediaRemovableMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveIsMediaRemovableMethodInfo a signature where-    overloadedMethod _ = driveIsMediaRemovable--#endif---- method Drive::is_removable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "g_drive_is_removable" g_drive_is_removable :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    IO CInt--{- |-Checks if the 'GI.Gio.Interfaces.Drive.Drive' and\/or its media is considered removable by the user.-See 'GI.Gio.Interfaces.Drive.driveIsMediaRemovable'.--/Since: 2.50/--}-driveIsRemovable ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@drive@/ and\/or its media is considered removable, 'False' otherwise. -}-driveIsRemovable drive = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result <- g_drive_is_removable drive'-    let result' = (/= 0) result-    touchManagedPtr drive-    return result'--#if ENABLE_OVERLOADING-data DriveIsRemovableMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDrive a) => O.MethodInfo DriveIsRemovableMethodInfo a signature where-    overloadedMethod _ = driveIsRemovable--#endif---- method Drive::poll_for_media--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user 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 "g_drive_poll_for_media" g_drive_poll_for_media :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    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 polls /@drive@/ to see if media has been inserted or removed.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.Drive.drivePollForMediaFinish' to obtain the-result of the operation.--}-drivePollForMedia ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-drivePollForMedia drive cancellable callback = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    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-    g_drive_poll_for_media drive' maybeCancellable maybeCallback userData-    touchManagedPtr drive-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DrivePollForMediaMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDrive a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DrivePollForMediaMethodInfo a signature where-    overloadedMethod _ = drivePollForMedia--#endif---- method Drive::poll_for_media_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "a #GAsyncResult.", 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 "g_drive_poll_for_media_finish" g_drive_poll_for_media_finish :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an operation started with 'GI.Gio.Interfaces.Drive.drivePollForMedia' on a drive.--}-drivePollForMediaFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-drivePollForMediaFinish drive result_ = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_poll_for_media_finish drive' result_'-        touchManagedPtr drive-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DrivePollForMediaFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DrivePollForMediaFinishMethodInfo a signature where-    overloadedMethod _ = drivePollForMediaFinish--#endif---- method Drive::start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DriveStartFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the start operation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation or %NULL to avoid\n    user interaction.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", 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 "user 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 "g_drive_start" g_drive_start :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DriveStartFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 starts a drive.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.Drive.driveStartFinish' to obtain the-result of the operation.--/Since: 2.22/--}-driveStart ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> [Gio.Flags.DriveStartFlags]-    {- ^ /@flags@/: flags affecting the start operation. -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation' or 'Nothing' to avoid-    user interaction. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-driveStart drive flags mountOperation cancellable callback = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_drive_start drive' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr drive-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DriveStartMethodInfo-instance (signature ~ ([Gio.Flags.DriveStartFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDrive a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DriveStartMethodInfo a signature where-    overloadedMethod _ = driveStart--#endif---- method Drive::start_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "a #GAsyncResult.", 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 "g_drive_start_finish" g_drive_start_finish :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes starting a drive.--/Since: 2.22/--}-driveStartFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-driveStartFinish drive result_ = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_start_finish drive' result_'-        touchManagedPtr drive-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DriveStartFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DriveStartFinishMethodInfo a signature where-    overloadedMethod _ = driveStartFinish--#endif---- method Drive::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the unmount if required for stopping.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation or %NULL to avoid\n    user interaction.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", 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 "user 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 "g_drive_stop" g_drive_stop :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 stops a drive.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.Drive.driveStopFinish' to obtain the-result of the operation.--/Since: 2.22/--}-driveStop ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the unmount if required for stopping. -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation' or 'Nothing' to avoid-    user interaction. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-driveStop drive flags mountOperation cancellable callback = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_drive_stop drive' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr drive-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DriveStopMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDrive a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DriveStopMethodInfo a signature where-    overloadedMethod _ = driveStop--#endif---- method Drive::stop_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "drive", argType = TInterface (Name {namespace = "Gio", name = "Drive"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDrive.", 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 "a #GAsyncResult.", 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 "g_drive_stop_finish" g_drive_stop_finish :: -    Ptr Drive ->                            -- drive : TInterface (Name {namespace = "Gio", name = "Drive"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes stopping a drive.--/Since: 2.22/--}-driveStopFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-driveStopFinish drive result_ = liftIO $ do-    drive' <- unsafeManagedPtrCastPtr drive-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_drive_stop_finish drive' result_'-        touchManagedPtr drive-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DriveStopFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDrive a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DriveStopFinishMethodInfo a signature where-    overloadedMethod _ = driveStopFinish--#endif--
− GI/Gio/Interfaces/Drive.hs-boot 
@@ -1,125 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Drive 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 Drive = Drive (ManagedPtr Drive)-#if ENABLE_OVERLOADING-data DriveChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DriveDisconnectedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DriveEjectButtonSignalInfo-#endif-#if ENABLE_OVERLOADING-data DriveStopButtonSignalInfo-#endif-instance GObject Drive where-class (GObject o, O.IsDescendantOf Drive o) => IsDrive o-instance (GObject o, O.IsDescendantOf Drive o) => IsDrive o-instance O.HasParentTypes Drive-#if ENABLE_OVERLOADING-data DriveCanEjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveCanPollForMediaMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveCanStartMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveCanStartDegradedMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveCanStopMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveEjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveEjectFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveEjectWithOperationMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveEjectWithOperationFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveEnumerateIdentifiersMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveGetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveGetIdentifierMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveGetSortKeyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveGetStartStopTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveGetSymbolicIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveGetVolumesMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveHasMediaMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveHasVolumesMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveIsMediaCheckAutomaticMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveIsMediaRemovableMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveIsRemovableMethodInfo-#endif-#if ENABLE_OVERLOADING-data DrivePollForMediaMethodInfo-#endif-#if ENABLE_OVERLOADING-data DrivePollForMediaFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveStartMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveStartFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveStopMethodInfo-#endif-#if ENABLE_OVERLOADING-data DriveStopFinishMethodInfo-#endif
− GI/Gio/Interfaces/DtlsClientConnection.hs 
@@ -1,677 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' is the client-side subclass of-'GI.Gio.Interfaces.DtlsConnection.DtlsConnection', representing a client-side DTLS connection.--/Since: 2.48/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.DtlsClientConnection-    ( ---- * Exported types-    DtlsClientConnection(..)                ,-    noDtlsClientConnection                  ,-    IsDtlsClientConnection                  ,-    toDtlsClientConnection                  ,--- -- * Methods--- ** getAcceptedCas #method:getAcceptedCas#--#if ENABLE_OVERLOADING-    DtlsClientConnectionGetAcceptedCasMethodInfo,-#endif-    dtlsClientConnectionGetAcceptedCas      ,----- ** getServerIdentity #method:getServerIdentity#--#if ENABLE_OVERLOADING-    DtlsClientConnectionGetServerIdentityMethodInfo,-#endif-    dtlsClientConnectionGetServerIdentity   ,----- ** getValidationFlags #method:getValidationFlags#--#if ENABLE_OVERLOADING-    DtlsClientConnectionGetValidationFlagsMethodInfo,-#endif-    dtlsClientConnectionGetValidationFlags  ,----- ** new #method:new#--    dtlsClientConnectionNew                 ,----- ** setServerIdentity #method:setServerIdentity#--#if ENABLE_OVERLOADING-    DtlsClientConnectionSetServerIdentityMethodInfo,-#endif-    dtlsClientConnectionSetServerIdentity   ,----- ** setValidationFlags #method:setValidationFlags#--#if ENABLE_OVERLOADING-    DtlsClientConnectionSetValidationFlagsMethodInfo,-#endif-    dtlsClientConnectionSetValidationFlags  ,----- -- * Properties--- ** acceptedCas #attr:acceptedCas#-{- | A list of the distinguished names of the Certificate Authorities-that the server will accept client certificates signed by. If the-server requests a client certificate during the handshake, then-this property will be set after the handshake completes.--Each item in the list is a 'GI.GLib.Structs.ByteArray.ByteArray' which contains the complete-subject DN of the certificate authority.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsClientConnectionAcceptedCasPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    dtlsClientConnectionAcceptedCas         ,-#endif-    getDtlsClientConnectionAcceptedCas      ,----- ** serverIdentity #attr:serverIdentity#-{- | A 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' describing the identity of the server that-is expected on the other end of the connection.--If the 'GI.Gio.Flags.TlsCertificateFlagsBadIdentity' flag is set in-'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection':@/validation-flags/@, this object will be used-to determine the expected identify of the remote end of the-connection; if 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection':@/server-identity/@ is not set,-or does not match the identity presented by the server, then the-'GI.Gio.Flags.TlsCertificateFlagsBadIdentity' validation will fail.--In addition to its use in verifying the server certificate,-this is also used to give a hint to the server about what-certificate we expect, which is useful for servers that serve-virtual hosts.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsClientConnectionServerIdentityPropertyInfo,-#endif-    constructDtlsClientConnectionServerIdentity,-#if ENABLE_OVERLOADING-    dtlsClientConnectionServerIdentity      ,-#endif-    getDtlsClientConnectionServerIdentity   ,-    setDtlsClientConnectionServerIdentity   ,----- ** validationFlags #attr:validationFlags#-{- | What steps to perform when validating a certificate received from-a server. Server certificates that fail to validate in all of the-ways indicated here will be rejected unless the application-overrides the default via 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'::@/accept-certificate/@.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsClientConnectionValidationFlagsPropertyInfo,-#endif-    constructDtlsClientConnectionValidationFlags,-#if ENABLE_OVERLOADING-    dtlsClientConnectionValidationFlags     ,-#endif-    getDtlsClientConnectionValidationFlags  ,-    setDtlsClientConnectionValidationFlags  ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DatagramBased as Gio.DatagramBased-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DtlsConnection as Gio.DtlsConnection-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable---- interface DtlsClientConnection --- | Memory-managed wrapper type.-newtype DtlsClientConnection = DtlsClientConnection (ManagedPtr DtlsClientConnection)--- | A convenience alias for `Nothing` :: `Maybe` `DtlsClientConnection`.-noDtlsClientConnection :: Maybe DtlsClientConnection-noDtlsClientConnection = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList DtlsClientConnection = DtlsClientConnectionSignalList-type DtlsClientConnectionSignalList = ('[ '("acceptCertificate", Gio.DtlsConnection.DtlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_dtls_client_connection_get_type"-    c_g_dtls_client_connection_get_type :: IO GType--instance GObject DtlsClientConnection where-    gobjectType = c_g_dtls_client_connection_get_type-    ---- | Type class for types which can be safely cast to `DtlsClientConnection`, for instance with `toDtlsClientConnection`.-class (GObject o, O.IsDescendantOf DtlsClientConnection o) => IsDtlsClientConnection o-instance (GObject o, O.IsDescendantOf DtlsClientConnection o) => IsDtlsClientConnection o--instance O.HasParentTypes DtlsClientConnection-type instance O.ParentTypes DtlsClientConnection = '[Gio.DatagramBased.DatagramBased, Gio.DtlsConnection.DtlsConnection, GObject.Object.Object]---- | Cast to `DtlsClientConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDtlsClientConnection :: (MonadIO m, IsDtlsClientConnection o) => o -> m DtlsClientConnection-toDtlsClientConnection = liftIO . unsafeCastTo DtlsClientConnection---- VVV Prop "accepted-cas"-   -- Type: TGList (TBasicType TPtr)-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@accepted-cas@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsClientConnection #acceptedCas-@--}-getDtlsClientConnectionAcceptedCas :: (MonadIO m, IsDtlsClientConnection o) => o -> m ([Ptr ()])-getDtlsClientConnectionAcceptedCas obj = liftIO $ B.Properties.getObjectPropertyPtrGList obj "accepted-cas"--#if ENABLE_OVERLOADING-data DtlsClientConnectionAcceptedCasPropertyInfo-instance AttrInfo DtlsClientConnectionAcceptedCasPropertyInfo where-    type AttrAllowedOps DtlsClientConnectionAcceptedCasPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DtlsClientConnectionAcceptedCasPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DtlsClientConnectionAcceptedCasPropertyInfo = IsDtlsClientConnection-    type AttrGetType DtlsClientConnectionAcceptedCasPropertyInfo = ([Ptr ()])-    type AttrLabel DtlsClientConnectionAcceptedCasPropertyInfo = "accepted-cas"-    type AttrOrigin DtlsClientConnectionAcceptedCasPropertyInfo = DtlsClientConnection-    attrGet _ = getDtlsClientConnectionAcceptedCas-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "server-identity"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@server-identity@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsClientConnection #serverIdentity-@--}-getDtlsClientConnectionServerIdentity :: (MonadIO m, IsDtlsClientConnection o) => o -> m Gio.SocketConnectable.SocketConnectable-getDtlsClientConnectionServerIdentity obj = liftIO $ checkUnexpectedNothing "getDtlsClientConnectionServerIdentity" $ B.Properties.getObjectPropertyObject obj "server-identity" Gio.SocketConnectable.SocketConnectable--{- |-Set the value of the “@server-identity@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsClientConnection [ #serverIdentity 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsClientConnectionServerIdentity :: (MonadIO m, IsDtlsClientConnection o, Gio.SocketConnectable.IsSocketConnectable a) => o -> a -> m ()-setDtlsClientConnectionServerIdentity obj val = liftIO $ B.Properties.setObjectPropertyObject obj "server-identity" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@server-identity@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsClientConnectionServerIdentity :: (IsDtlsClientConnection o, Gio.SocketConnectable.IsSocketConnectable a) => a -> IO (GValueConstruct o)-constructDtlsClientConnectionServerIdentity val = B.Properties.constructObjectPropertyObject "server-identity" (Just val)--#if ENABLE_OVERLOADING-data DtlsClientConnectionServerIdentityPropertyInfo-instance AttrInfo DtlsClientConnectionServerIdentityPropertyInfo where-    type AttrAllowedOps DtlsClientConnectionServerIdentityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DtlsClientConnectionServerIdentityPropertyInfo = Gio.SocketConnectable.IsSocketConnectable-    type AttrBaseTypeConstraint DtlsClientConnectionServerIdentityPropertyInfo = IsDtlsClientConnection-    type AttrGetType DtlsClientConnectionServerIdentityPropertyInfo = Gio.SocketConnectable.SocketConnectable-    type AttrLabel DtlsClientConnectionServerIdentityPropertyInfo = "server-identity"-    type AttrOrigin DtlsClientConnectionServerIdentityPropertyInfo = DtlsClientConnection-    attrGet _ = getDtlsClientConnectionServerIdentity-    attrSet _ = setDtlsClientConnectionServerIdentity-    attrConstruct _ = constructDtlsClientConnectionServerIdentity-    attrClear _ = undefined-#endif---- VVV Prop "validation-flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@validation-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsClientConnection #validationFlags-@--}-getDtlsClientConnectionValidationFlags :: (MonadIO m, IsDtlsClientConnection o) => o -> m [Gio.Flags.TlsCertificateFlags]-getDtlsClientConnectionValidationFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "validation-flags"--{- |-Set the value of the “@validation-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsClientConnection [ #validationFlags 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsClientConnectionValidationFlags :: (MonadIO m, IsDtlsClientConnection o) => o -> [Gio.Flags.TlsCertificateFlags] -> m ()-setDtlsClientConnectionValidationFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "validation-flags" val--{- |-Construct a `GValueConstruct` with valid value for the “@validation-flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsClientConnectionValidationFlags :: (IsDtlsClientConnection o) => [Gio.Flags.TlsCertificateFlags] -> IO (GValueConstruct o)-constructDtlsClientConnectionValidationFlags val = B.Properties.constructObjectPropertyFlags "validation-flags" val--#if ENABLE_OVERLOADING-data DtlsClientConnectionValidationFlagsPropertyInfo-instance AttrInfo DtlsClientConnectionValidationFlagsPropertyInfo where-    type AttrAllowedOps DtlsClientConnectionValidationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DtlsClientConnectionValidationFlagsPropertyInfo = (~) [Gio.Flags.TlsCertificateFlags]-    type AttrBaseTypeConstraint DtlsClientConnectionValidationFlagsPropertyInfo = IsDtlsClientConnection-    type AttrGetType DtlsClientConnectionValidationFlagsPropertyInfo = [Gio.Flags.TlsCertificateFlags]-    type AttrLabel DtlsClientConnectionValidationFlagsPropertyInfo = "validation-flags"-    type AttrOrigin DtlsClientConnectionValidationFlagsPropertyInfo = DtlsClientConnection-    attrGet _ = getDtlsClientConnectionValidationFlags-    attrSet _ = setDtlsClientConnectionValidationFlags-    attrConstruct _ = constructDtlsClientConnectionValidationFlags-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DtlsClientConnection-type instance O.AttributeList DtlsClientConnection = DtlsClientConnectionAttributeList-type DtlsClientConnectionAttributeList = ('[ '("acceptedCas", DtlsClientConnectionAcceptedCasPropertyInfo), '("advertisedProtocols", Gio.DtlsConnection.DtlsConnectionAdvertisedProtocolsPropertyInfo), '("baseSocket", Gio.DtlsConnection.DtlsConnectionBaseSocketPropertyInfo), '("certificate", Gio.DtlsConnection.DtlsConnectionCertificatePropertyInfo), '("database", Gio.DtlsConnection.DtlsConnectionDatabasePropertyInfo), '("interaction", Gio.DtlsConnection.DtlsConnectionInteractionPropertyInfo), '("negotiatedProtocol", Gio.DtlsConnection.DtlsConnectionNegotiatedProtocolPropertyInfo), '("peerCertificate", Gio.DtlsConnection.DtlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", Gio.DtlsConnection.DtlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", Gio.DtlsConnection.DtlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", Gio.DtlsConnection.DtlsConnectionRequireCloseNotifyPropertyInfo), '("serverIdentity", DtlsClientConnectionServerIdentityPropertyInfo), '("validationFlags", DtlsClientConnectionValidationFlagsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dtlsClientConnectionAcceptedCas :: AttrLabelProxy "acceptedCas"-dtlsClientConnectionAcceptedCas = AttrLabelProxy--dtlsClientConnectionServerIdentity :: AttrLabelProxy "serverIdentity"-dtlsClientConnectionServerIdentity = AttrLabelProxy--dtlsClientConnectionValidationFlags :: AttrLabelProxy "validationFlags"-dtlsClientConnectionValidationFlags = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type family ResolveDtlsClientConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveDtlsClientConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDtlsClientConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDtlsClientConnectionMethod "close" o = Gio.DtlsConnection.DtlsConnectionCloseMethodInfo-    ResolveDtlsClientConnectionMethod "closeAsync" o = Gio.DtlsConnection.DtlsConnectionCloseAsyncMethodInfo-    ResolveDtlsClientConnectionMethod "closeFinish" o = Gio.DtlsConnection.DtlsConnectionCloseFinishMethodInfo-    ResolveDtlsClientConnectionMethod "conditionCheck" o = Gio.DatagramBased.DatagramBasedConditionCheckMethodInfo-    ResolveDtlsClientConnectionMethod "conditionWait" o = Gio.DatagramBased.DatagramBasedConditionWaitMethodInfo-    ResolveDtlsClientConnectionMethod "createSource" o = Gio.DatagramBased.DatagramBasedCreateSourceMethodInfo-    ResolveDtlsClientConnectionMethod "emitAcceptCertificate" o = Gio.DtlsConnection.DtlsConnectionEmitAcceptCertificateMethodInfo-    ResolveDtlsClientConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDtlsClientConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDtlsClientConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDtlsClientConnectionMethod "handshake" o = Gio.DtlsConnection.DtlsConnectionHandshakeMethodInfo-    ResolveDtlsClientConnectionMethod "handshakeAsync" o = Gio.DtlsConnection.DtlsConnectionHandshakeAsyncMethodInfo-    ResolveDtlsClientConnectionMethod "handshakeFinish" o = Gio.DtlsConnection.DtlsConnectionHandshakeFinishMethodInfo-    ResolveDtlsClientConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDtlsClientConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDtlsClientConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDtlsClientConnectionMethod "receiveMessages" o = Gio.DatagramBased.DatagramBasedReceiveMessagesMethodInfo-    ResolveDtlsClientConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDtlsClientConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDtlsClientConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDtlsClientConnectionMethod "sendMessages" o = Gio.DatagramBased.DatagramBasedSendMessagesMethodInfo-    ResolveDtlsClientConnectionMethod "shutdown" o = Gio.DtlsConnection.DtlsConnectionShutdownMethodInfo-    ResolveDtlsClientConnectionMethod "shutdownAsync" o = Gio.DtlsConnection.DtlsConnectionShutdownAsyncMethodInfo-    ResolveDtlsClientConnectionMethod "shutdownFinish" o = Gio.DtlsConnection.DtlsConnectionShutdownFinishMethodInfo-    ResolveDtlsClientConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDtlsClientConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDtlsClientConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDtlsClientConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDtlsClientConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDtlsClientConnectionMethod "getAcceptedCas" o = DtlsClientConnectionGetAcceptedCasMethodInfo-    ResolveDtlsClientConnectionMethod "getCertificate" o = Gio.DtlsConnection.DtlsConnectionGetCertificateMethodInfo-    ResolveDtlsClientConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDtlsClientConnectionMethod "getDatabase" o = Gio.DtlsConnection.DtlsConnectionGetDatabaseMethodInfo-    ResolveDtlsClientConnectionMethod "getInteraction" o = Gio.DtlsConnection.DtlsConnectionGetInteractionMethodInfo-    ResolveDtlsClientConnectionMethod "getNegotiatedProtocol" o = Gio.DtlsConnection.DtlsConnectionGetNegotiatedProtocolMethodInfo-    ResolveDtlsClientConnectionMethod "getPeerCertificate" o = Gio.DtlsConnection.DtlsConnectionGetPeerCertificateMethodInfo-    ResolveDtlsClientConnectionMethod "getPeerCertificateErrors" o = Gio.DtlsConnection.DtlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveDtlsClientConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDtlsClientConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDtlsClientConnectionMethod "getRehandshakeMode" o = Gio.DtlsConnection.DtlsConnectionGetRehandshakeModeMethodInfo-    ResolveDtlsClientConnectionMethod "getRequireCloseNotify" o = Gio.DtlsConnection.DtlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveDtlsClientConnectionMethod "getServerIdentity" o = DtlsClientConnectionGetServerIdentityMethodInfo-    ResolveDtlsClientConnectionMethod "getValidationFlags" o = DtlsClientConnectionGetValidationFlagsMethodInfo-    ResolveDtlsClientConnectionMethod "setAdvertisedProtocols" o = Gio.DtlsConnection.DtlsConnectionSetAdvertisedProtocolsMethodInfo-    ResolveDtlsClientConnectionMethod "setCertificate" o = Gio.DtlsConnection.DtlsConnectionSetCertificateMethodInfo-    ResolveDtlsClientConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDtlsClientConnectionMethod "setDatabase" o = Gio.DtlsConnection.DtlsConnectionSetDatabaseMethodInfo-    ResolveDtlsClientConnectionMethod "setInteraction" o = Gio.DtlsConnection.DtlsConnectionSetInteractionMethodInfo-    ResolveDtlsClientConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDtlsClientConnectionMethod "setRehandshakeMode" o = Gio.DtlsConnection.DtlsConnectionSetRehandshakeModeMethodInfo-    ResolveDtlsClientConnectionMethod "setRequireCloseNotify" o = Gio.DtlsConnection.DtlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveDtlsClientConnectionMethod "setServerIdentity" o = DtlsClientConnectionSetServerIdentityMethodInfo-    ResolveDtlsClientConnectionMethod "setValidationFlags" o = DtlsClientConnectionSetValidationFlagsMethodInfo-    ResolveDtlsClientConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDtlsClientConnectionMethod t DtlsClientConnection, O.MethodInfo info DtlsClientConnection p) => OL.IsLabel t (DtlsClientConnection -> 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 DtlsClientConnection::get_accepted_cas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDtlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList TByteArray)--- throws : False--- Skip return : False--foreign import ccall "g_dtls_client_connection_get_accepted_cas" g_dtls_client_connection_get_accepted_cas :: -    Ptr DtlsClientConnection ->             -- conn : TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"})-    IO (Ptr (GList (Ptr GByteArray)))--{- |-Gets the list of distinguished names of the Certificate Authorities-that the server will accept certificates from. This will be set-during the TLS handshake if the server requests a certificate.-Otherwise, it will be 'Nothing'.--Each item in the list is a 'GI.GLib.Structs.ByteArray.ByteArray' which contains the complete-subject DN of the certificate authority.--/Since: 2.48/--}-dtlsClientConnectionGetAcceptedCas ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' -}-    -> m [ByteString]-    {- ^ __Returns:__ the list of-CA DNs. You should unref each element with 'GI.GLib.Functions.byteArrayUnref' and then-the free the list with @/g_list_free()/@. -}-dtlsClientConnectionGetAcceptedCas conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_client_connection_get_accepted_cas conn'-    result' <- unpackGList result-    result'' <- mapM unpackGByteArray result'-    mapGList unrefGByteArray result-    g_list_free result-    touchManagedPtr conn-    return result''--#if ENABLE_OVERLOADING-data DtlsClientConnectionGetAcceptedCasMethodInfo-instance (signature ~ (m [ByteString]), MonadIO m, IsDtlsClientConnection a) => O.MethodInfo DtlsClientConnectionGetAcceptedCasMethodInfo a signature where-    overloadedMethod _ = dtlsClientConnectionGetAcceptedCas--#endif---- method DtlsClientConnection::get_server_identity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDtlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnectable"}))--- throws : False--- Skip return : False--foreign import ccall "g_dtls_client_connection_get_server_identity" g_dtls_client_connection_get_server_identity :: -    Ptr DtlsClientConnection ->             -- conn : TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"})-    IO (Ptr Gio.SocketConnectable.SocketConnectable)--{- |-Gets /@conn@/\'s expected server identity--/Since: 2.48/--}-dtlsClientConnectionGetServerIdentity ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' -}-    -> m Gio.SocketConnectable.SocketConnectable-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' describing the-expected server identity, or 'Nothing' if the expected identity is not-known. -}-dtlsClientConnectionGetServerIdentity conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_client_connection_get_server_identity conn'-    checkUnexpectedReturnNULL "dtlsClientConnectionGetServerIdentity" result-    result' <- (newObject Gio.SocketConnectable.SocketConnectable) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsClientConnectionGetServerIdentityMethodInfo-instance (signature ~ (m Gio.SocketConnectable.SocketConnectable), MonadIO m, IsDtlsClientConnection a) => O.MethodInfo DtlsClientConnectionGetServerIdentityMethodInfo a signature where-    overloadedMethod _ = dtlsClientConnectionGetServerIdentity--#endif---- method DtlsClientConnection::get_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDtlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dtls_client_connection_get_validation_flags" g_dtls_client_connection_get_validation_flags :: -    Ptr DtlsClientConnection ->             -- conn : TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"})-    IO CUInt--{- |-Gets /@conn@/\'s validation flags--/Since: 2.48/--}-dtlsClientConnectionGetValidationFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' -}-    -> m [Gio.Flags.TlsCertificateFlags]-    {- ^ __Returns:__ the validation flags -}-dtlsClientConnectionGetValidationFlags conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_client_connection_get_validation_flags conn'-    let result' = wordToGFlags result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsClientConnectionGetValidationFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsDtlsClientConnection a) => O.MethodInfo DtlsClientConnectionGetValidationFlagsMethodInfo a signature where-    overloadedMethod _ = dtlsClientConnectionGetValidationFlags--#endif---- method DtlsClientConnection::set_server_identity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDtlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable describing the expected server identity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_client_connection_set_server_identity" g_dtls_client_connection_set_server_identity :: -    Ptr DtlsClientConnection ->             -- conn : TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- identity : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    IO ()--{- |-Sets /@conn@/\'s expected server identity, which is used both to tell-servers on virtual hosts which certificate to present, and also-to let /@conn@/ know what name to look for in the certificate when-performing 'GI.Gio.Flags.TlsCertificateFlagsBadIdentity' validation, if enabled.--/Since: 2.48/--}-dtlsClientConnectionSetServerIdentity ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsClientConnection a, Gio.SocketConnectable.IsSocketConnectable b) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' -}-    -> b-    {- ^ /@identity@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' describing the expected server identity -}-    -> m ()-dtlsClientConnectionSetServerIdentity conn identity = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    identity' <- unsafeManagedPtrCastPtr identity-    g_dtls_client_connection_set_server_identity conn' identity'-    touchManagedPtr conn-    touchManagedPtr identity-    return ()--#if ENABLE_OVERLOADING-data DtlsClientConnectionSetServerIdentityMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDtlsClientConnection a, Gio.SocketConnectable.IsSocketConnectable b) => O.MethodInfo DtlsClientConnectionSetServerIdentityMethodInfo a signature where-    overloadedMethod _ = dtlsClientConnectionSetServerIdentity--#endif---- method DtlsClientConnection::set_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDtlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsCertificateFlags to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_client_connection_set_validation_flags" g_dtls_client_connection_set_validation_flags :: -    Ptr DtlsClientConnection ->             -- conn : TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-    IO ()--{- |-Sets /@conn@/\'s validation flags, to override the default set of-checks performed when validating a server certificate. By default,-'GI.Gio.Flags.TlsCertificateFlagsValidateAll' is used.--/Since: 2.48/--}-dtlsClientConnectionSetValidationFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' -}-    -> [Gio.Flags.TlsCertificateFlags]-    {- ^ /@flags@/: the 'GI.Gio.Flags.TlsCertificateFlags' to use -}-    -> m ()-dtlsClientConnectionSetValidationFlags conn flags = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let flags' = gflagsToWord flags-    g_dtls_client_connection_set_validation_flags conn' flags'-    touchManagedPtr conn-    return ()--#if ENABLE_OVERLOADING-data DtlsClientConnectionSetValidationFlagsMethodInfo-instance (signature ~ ([Gio.Flags.TlsCertificateFlags] -> m ()), MonadIO m, IsDtlsClientConnection a) => O.MethodInfo DtlsClientConnectionSetValidationFlagsMethodInfo a signature where-    overloadedMethod _ = dtlsClientConnectionSetValidationFlags--#endif---- method DtlsClientConnection::new--- method type : MemberFunction--- Args : [Arg {argCName = "base_socket", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDatagramBased to wrap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "server_identity", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected identity of the server", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DtlsClientConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_dtls_client_connection_new" g_dtls_client_connection_new :: -    Ptr Gio.DatagramBased.DatagramBased ->  -- base_socket : TInterface (Name {namespace = "Gio", name = "DatagramBased"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- server_identity : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DtlsClientConnection)--{- |-Creates a new 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' wrapping /@baseSocket@/ which is-assumed to communicate with the server identified by /@serverIdentity@/.--/Since: 2.48/--}-dtlsClientConnectionNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DatagramBased.IsDatagramBased a, Gio.SocketConnectable.IsSocketConnectable b) =>-    a-    {- ^ /@baseSocket@/: the 'GI.Gio.Interfaces.DatagramBased.DatagramBased' to wrap -}-    -> Maybe (b)-    {- ^ /@serverIdentity@/: the expected identity of the server -}-    -> m DtlsClientConnection-    {- ^ __Returns:__ the new-  'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-dtlsClientConnectionNew baseSocket serverIdentity = liftIO $ do-    baseSocket' <- unsafeManagedPtrCastPtr baseSocket-    maybeServerIdentity <- case serverIdentity of-        Nothing -> return nullPtr-        Just jServerIdentity -> do-            jServerIdentity' <- unsafeManagedPtrCastPtr jServerIdentity-            return jServerIdentity'-    onException (do-        result <- propagateGError $ g_dtls_client_connection_new baseSocket' maybeServerIdentity-        checkUnexpectedReturnNULL "dtlsClientConnectionNew" result-        result' <- (wrapObject DtlsClientConnection) result-        touchManagedPtr baseSocket-        whenJust serverIdentity touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/DtlsClientConnection.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.DtlsClientConnection 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 DtlsClientConnection = DtlsClientConnection (ManagedPtr DtlsClientConnection)-instance GObject DtlsClientConnection where-class (GObject o, O.IsDescendantOf DtlsClientConnection o) => IsDtlsClientConnection o-instance (GObject o, O.IsDescendantOf DtlsClientConnection o) => IsDtlsClientConnection o-instance O.HasParentTypes DtlsClientConnection-#if ENABLE_OVERLOADING-data DtlsClientConnectionAcceptedCasPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsClientConnectionServerIdentityPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsClientConnectionValidationFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsClientConnectionGetAcceptedCasMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsClientConnectionGetServerIdentityMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsClientConnectionGetValidationFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsClientConnectionSetServerIdentityMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsClientConnectionSetValidationFlagsMethodInfo-#endif
− GI/Gio/Interfaces/DtlsConnection.hs 
@@ -1,2409 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' is the base DTLS connection class type, which wraps-a 'GI.Gio.Interfaces.DatagramBased.DatagramBased' and provides DTLS encryption on top of it. Its-subclasses, 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' and 'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection',-implement client-side and server-side DTLS, respectively.--For TLS support, see 'GI.Gio.Objects.TlsConnection.TlsConnection'.--As DTLS is datagram based, 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' implements 'GI.Gio.Interfaces.DatagramBased.DatagramBased',-presenting a datagram-socket-like API for the encrypted connection. This-operates over a base datagram connection, which is also a 'GI.Gio.Interfaces.DatagramBased.DatagramBased'-('GI.Gio.Interfaces.DtlsConnection.DtlsConnection':@/base-socket/@).--To close a DTLS connection, use 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionClose'.--Neither 'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection' or 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' set the peer address-on their base 'GI.Gio.Interfaces.DatagramBased.DatagramBased' if it is a 'GI.Gio.Objects.Socket.Socket' — it is up to the caller to-do that if they wish. If they do not, and 'GI.Gio.Objects.Socket.socketClose' is called on the-base socket, the 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' will not raise a 'GI.Gio.Enums.IOErrorEnumNotConnected'-error on further I\/O.--/Since: 2.48/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.DtlsConnection-    ( ---- * Exported types-    DtlsConnection(..)                      ,-    noDtlsConnection                        ,-    IsDtlsConnection                        ,-    toDtlsConnection                        ,--- -- * Methods--- ** close #method:close#--#if ENABLE_OVERLOADING-    DtlsConnectionCloseMethodInfo           ,-#endif-    dtlsConnectionClose                     ,----- ** closeAsync #method:closeAsync#--#if ENABLE_OVERLOADING-    DtlsConnectionCloseAsyncMethodInfo      ,-#endif-    dtlsConnectionCloseAsync                ,----- ** closeFinish #method:closeFinish#--#if ENABLE_OVERLOADING-    DtlsConnectionCloseFinishMethodInfo     ,-#endif-    dtlsConnectionCloseFinish               ,----- ** emitAcceptCertificate #method:emitAcceptCertificate#--#if ENABLE_OVERLOADING-    DtlsConnectionEmitAcceptCertificateMethodInfo,-#endif-    dtlsConnectionEmitAcceptCertificate     ,----- ** getCertificate #method:getCertificate#--#if ENABLE_OVERLOADING-    DtlsConnectionGetCertificateMethodInfo  ,-#endif-    dtlsConnectionGetCertificate            ,----- ** getDatabase #method:getDatabase#--#if ENABLE_OVERLOADING-    DtlsConnectionGetDatabaseMethodInfo     ,-#endif-    dtlsConnectionGetDatabase               ,----- ** getInteraction #method:getInteraction#--#if ENABLE_OVERLOADING-    DtlsConnectionGetInteractionMethodInfo  ,-#endif-    dtlsConnectionGetInteraction            ,----- ** getNegotiatedProtocol #method:getNegotiatedProtocol#--#if ENABLE_OVERLOADING-    DtlsConnectionGetNegotiatedProtocolMethodInfo,-#endif-    dtlsConnectionGetNegotiatedProtocol     ,----- ** getPeerCertificate #method:getPeerCertificate#--#if ENABLE_OVERLOADING-    DtlsConnectionGetPeerCertificateMethodInfo,-#endif-    dtlsConnectionGetPeerCertificate        ,----- ** getPeerCertificateErrors #method:getPeerCertificateErrors#--#if ENABLE_OVERLOADING-    DtlsConnectionGetPeerCertificateErrorsMethodInfo,-#endif-    dtlsConnectionGetPeerCertificateErrors  ,----- ** getRehandshakeMode #method:getRehandshakeMode#--#if ENABLE_OVERLOADING-    DtlsConnectionGetRehandshakeModeMethodInfo,-#endif-    dtlsConnectionGetRehandshakeMode        ,----- ** getRequireCloseNotify #method:getRequireCloseNotify#--#if ENABLE_OVERLOADING-    DtlsConnectionGetRequireCloseNotifyMethodInfo,-#endif-    dtlsConnectionGetRequireCloseNotify     ,----- ** handshake #method:handshake#--#if ENABLE_OVERLOADING-    DtlsConnectionHandshakeMethodInfo       ,-#endif-    dtlsConnectionHandshake                 ,----- ** handshakeAsync #method:handshakeAsync#--#if ENABLE_OVERLOADING-    DtlsConnectionHandshakeAsyncMethodInfo  ,-#endif-    dtlsConnectionHandshakeAsync            ,----- ** handshakeFinish #method:handshakeFinish#--#if ENABLE_OVERLOADING-    DtlsConnectionHandshakeFinishMethodInfo ,-#endif-    dtlsConnectionHandshakeFinish           ,----- ** setAdvertisedProtocols #method:setAdvertisedProtocols#--#if ENABLE_OVERLOADING-    DtlsConnectionSetAdvertisedProtocolsMethodInfo,-#endif-    dtlsConnectionSetAdvertisedProtocols    ,----- ** setCertificate #method:setCertificate#--#if ENABLE_OVERLOADING-    DtlsConnectionSetCertificateMethodInfo  ,-#endif-    dtlsConnectionSetCertificate            ,----- ** setDatabase #method:setDatabase#--#if ENABLE_OVERLOADING-    DtlsConnectionSetDatabaseMethodInfo     ,-#endif-    dtlsConnectionSetDatabase               ,----- ** setInteraction #method:setInteraction#--#if ENABLE_OVERLOADING-    DtlsConnectionSetInteractionMethodInfo  ,-#endif-    dtlsConnectionSetInteraction            ,----- ** setRehandshakeMode #method:setRehandshakeMode#--#if ENABLE_OVERLOADING-    DtlsConnectionSetRehandshakeModeMethodInfo,-#endif-    dtlsConnectionSetRehandshakeMode        ,----- ** setRequireCloseNotify #method:setRequireCloseNotify#--#if ENABLE_OVERLOADING-    DtlsConnectionSetRequireCloseNotifyMethodInfo,-#endif-    dtlsConnectionSetRequireCloseNotify     ,----- ** shutdown #method:shutdown#--#if ENABLE_OVERLOADING-    DtlsConnectionShutdownMethodInfo        ,-#endif-    dtlsConnectionShutdown                  ,----- ** shutdownAsync #method:shutdownAsync#--#if ENABLE_OVERLOADING-    DtlsConnectionShutdownAsyncMethodInfo   ,-#endif-    dtlsConnectionShutdownAsync             ,----- ** shutdownFinish #method:shutdownFinish#--#if ENABLE_OVERLOADING-    DtlsConnectionShutdownFinishMethodInfo  ,-#endif-    dtlsConnectionShutdownFinish            ,----- -- * Properties--- ** advertisedProtocols #attr:advertisedProtocols#-{- | The list of application-layer protocols that the connection-advertises that it is willing to speak. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetAdvertisedProtocols'.--/Since: 2.60/--}-#if ENABLE_OVERLOADING-    DtlsConnectionAdvertisedProtocolsPropertyInfo,-#endif-    clearDtlsConnectionAdvertisedProtocols  ,-    constructDtlsConnectionAdvertisedProtocols,-#if ENABLE_OVERLOADING-    dtlsConnectionAdvertisedProtocols       ,-#endif-    getDtlsConnectionAdvertisedProtocols    ,-    setDtlsConnectionAdvertisedProtocols    ,----- ** baseSocket #attr:baseSocket#-{- | The 'GI.Gio.Interfaces.DatagramBased.DatagramBased' that the connection wraps. Note that this may be any-implementation of 'GI.Gio.Interfaces.DatagramBased.DatagramBased', not just a 'GI.Gio.Objects.Socket.Socket'.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsConnectionBaseSocketPropertyInfo    ,-#endif-    constructDtlsConnectionBaseSocket       ,-#if ENABLE_OVERLOADING-    dtlsConnectionBaseSocket                ,-#endif-    getDtlsConnectionBaseSocket             ,----- ** certificate #attr:certificate#-{- | The connection\'s certificate; see-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetCertificate'.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsConnectionCertificatePropertyInfo   ,-#endif-    constructDtlsConnectionCertificate      ,-#if ENABLE_OVERLOADING-    dtlsConnectionCertificate               ,-#endif-    getDtlsConnectionCertificate            ,-    setDtlsConnectionCertificate            ,----- ** database #attr:database#-{- | The certificate database to use when verifying this TLS connection.-If no certificate database is set, then the default database will be-used. See 'GI.Gio.Interfaces.TlsBackend.tlsBackendGetDefaultDatabase'.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsConnectionDatabasePropertyInfo      ,-#endif-    constructDtlsConnectionDatabase         ,-#if ENABLE_OVERLOADING-    dtlsConnectionDatabase                  ,-#endif-    getDtlsConnectionDatabase               ,-    setDtlsConnectionDatabase               ,----- ** interaction #attr:interaction#-{- | A 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object to be used when the connection or certificate-database need to interact with the user. This will be used to prompt the-user for passwords where necessary.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsConnectionInteractionPropertyInfo   ,-#endif-    clearDtlsConnectionInteraction          ,-    constructDtlsConnectionInteraction      ,-#if ENABLE_OVERLOADING-    dtlsConnectionInteraction               ,-#endif-    getDtlsConnectionInteraction            ,-    setDtlsConnectionInteraction            ,----- ** negotiatedProtocol #attr:negotiatedProtocol#-{- | The application-layer protocol negotiated during the TLS-handshake. See 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionGetNegotiatedProtocol'.--/Since: 2.60/--}-#if ENABLE_OVERLOADING-    DtlsConnectionNegotiatedProtocolPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    dtlsConnectionNegotiatedProtocol        ,-#endif-    getDtlsConnectionNegotiatedProtocol     ,----- ** peerCertificate #attr:peerCertificate#-{- | The connection\'s peer\'s certificate, after the TLS handshake has-completed and the certificate has been accepted. Note in-particular that this is not yet set during the emission of-'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'::@/accept-certificate/@.--(You can watch for a 'GI.GObject.Objects.Object.Object'::@/notify/@ signal on this property to-detect when a handshake has occurred.)--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsConnectionPeerCertificatePropertyInfo,-#endif-#if ENABLE_OVERLOADING-    dtlsConnectionPeerCertificate           ,-#endif-    getDtlsConnectionPeerCertificate        ,----- ** peerCertificateErrors #attr:peerCertificateErrors#-{- | The errors noticed-and-ignored while verifying-'GI.Gio.Interfaces.DtlsConnection.DtlsConnection':@/peer-certificate/@. Normally this should be 0, but-it may not be if 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection':@/validation-flags/@ is not-'GI.Gio.Flags.TlsCertificateFlagsValidateAll', or if-'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'::@/accept-certificate/@ overrode the default-behavior.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsConnectionPeerCertificateErrorsPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    dtlsConnectionPeerCertificateErrors     ,-#endif-    getDtlsConnectionPeerCertificateErrors  ,----- ** rehandshakeMode #attr:rehandshakeMode#-{- | The rehandshaking mode. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetRehandshakeMode'.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsConnectionRehandshakeModePropertyInfo,-#endif-    constructDtlsConnectionRehandshakeMode  ,-#if ENABLE_OVERLOADING-    dtlsConnectionRehandshakeMode           ,-#endif-    getDtlsConnectionRehandshakeMode        ,-    setDtlsConnectionRehandshakeMode        ,----- ** requireCloseNotify #attr:requireCloseNotify#-{- | Whether or not proper TLS close notification is required.-See 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetRequireCloseNotify'.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsConnectionRequireCloseNotifyPropertyInfo,-#endif-    constructDtlsConnectionRequireCloseNotify,-#if ENABLE_OVERLOADING-    dtlsConnectionRequireCloseNotify        ,-#endif-    getDtlsConnectionRequireCloseNotify     ,-    setDtlsConnectionRequireCloseNotify     ,----- -- * Signals--- ** acceptCertificate #signal:acceptCertificate#--    C_DtlsConnectionAcceptCertificateCallback,-    DtlsConnectionAcceptCertificateCallback ,-#if ENABLE_OVERLOADING-    DtlsConnectionAcceptCertificateSignalInfo,-#endif-    afterDtlsConnectionAcceptCertificate    ,-    genClosure_DtlsConnectionAcceptCertificate,-    mk_DtlsConnectionAcceptCertificateCallback,-    noDtlsConnectionAcceptCertificateCallback,-    onDtlsConnectionAcceptCertificate       ,-    wrap_DtlsConnectionAcceptCertificateCallback,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DatagramBased as Gio.DatagramBased-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsInteraction as Gio.TlsInteraction---- interface DtlsConnection --- | Memory-managed wrapper type.-newtype DtlsConnection = DtlsConnection (ManagedPtr DtlsConnection)--- | A convenience alias for `Nothing` :: `Maybe` `DtlsConnection`.-noDtlsConnection :: Maybe DtlsConnection-noDtlsConnection = Nothing---- signal DtlsConnection::accept-certificate-{- |-Emitted during the TLS handshake after the peer certificate has-been received. You can examine /@peerCert@/\'s certification path by-calling 'GI.Gio.Objects.TlsCertificate.tlsCertificateGetIssuer' on it.--For a client-side connection, /@peerCert@/ is the server\'s-certificate, and the signal will only be emitted if the-certificate was not acceptable according to /@conn@/\'s-'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection':@/validation_flags/@. If you would like the-certificate to be accepted despite /@errors@/, return 'True' from the-signal handler. Otherwise, if no handler accepts the certificate,-the handshake will fail with 'GI.Gio.Enums.TlsErrorBadCertificate'.--For a server-side connection, /@peerCert@/ is the certificate-presented by the client, if this was requested via the server\'s-'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection':@/authentication_mode/@. On the server side,-the signal is always emitted when the client presents a-certificate, and the certificate will only be accepted if a-handler returns 'True'.--Note that if this signal is emitted as part of asynchronous I\/O-in the main thread, then you should not attempt to interact with-the user before returning from the signal handler. If you want to-let the user decide whether or not to accept the certificate, you-would have to return 'False' from the signal handler on the first-attempt, and then after the connection attempt returns a-'GI.Gio.Enums.TlsErrorBadCertificate', you can interact with the user, and-if the user decides to accept the certificate, remember that fact,-create a new connection, and return 'True' from the signal handler-the next time.--If you are doing I\/O in another thread, you do not-need to worry about this, and can simply block in the signal-handler until the UI thread returns an answer.--/Since: 2.48/--}-type DtlsConnectionAcceptCertificateCallback =-    Gio.TlsCertificate.TlsCertificate-    {- ^ /@peerCert@/: the peer\'s 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}-    -> [Gio.Flags.TlsCertificateFlags]-    {- ^ /@errors@/: the problems with /@peerCert@/. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' to accept /@peerCert@/ (which will also-immediately end the signal emission). 'False' to allow the signal-emission to continue, which will cause the handshake to fail if-no one else overrides it. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DtlsConnectionAcceptCertificateCallback`@.-noDtlsConnectionAcceptCertificateCallback :: Maybe DtlsConnectionAcceptCertificateCallback-noDtlsConnectionAcceptCertificateCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DtlsConnectionAcceptCertificateCallback =-    Ptr () ->                               -- object-    Ptr Gio.TlsCertificate.TlsCertificate ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_DtlsConnectionAcceptCertificateCallback`.-foreign import ccall "wrapper"-    mk_DtlsConnectionAcceptCertificateCallback :: C_DtlsConnectionAcceptCertificateCallback -> IO (FunPtr C_DtlsConnectionAcceptCertificateCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DtlsConnectionAcceptCertificate :: MonadIO m => DtlsConnectionAcceptCertificateCallback -> m (GClosure C_DtlsConnectionAcceptCertificateCallback)-genClosure_DtlsConnectionAcceptCertificate cb = liftIO $ do-    let cb' = wrap_DtlsConnectionAcceptCertificateCallback cb-    mk_DtlsConnectionAcceptCertificateCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DtlsConnectionAcceptCertificateCallback` into a `C_DtlsConnectionAcceptCertificateCallback`.-wrap_DtlsConnectionAcceptCertificateCallback ::-    DtlsConnectionAcceptCertificateCallback ->-    C_DtlsConnectionAcceptCertificateCallback-wrap_DtlsConnectionAcceptCertificateCallback _cb _ peerCert errors _ = do-    peerCert' <- (newObject Gio.TlsCertificate.TlsCertificate) peerCert-    let errors' = wordToGFlags errors-    result <- _cb  peerCert' errors'-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@accept-certificate@” 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' dtlsConnection #acceptCertificate callback-@--}-onDtlsConnectionAcceptCertificate :: (IsDtlsConnection a, MonadIO m) => a -> DtlsConnectionAcceptCertificateCallback -> m SignalHandlerId-onDtlsConnectionAcceptCertificate obj cb = liftIO $ do-    let cb' = wrap_DtlsConnectionAcceptCertificateCallback cb-    cb'' <- mk_DtlsConnectionAcceptCertificateCallback cb'-    connectSignalFunPtr obj "accept-certificate" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@accept-certificate@” 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' dtlsConnection #acceptCertificate callback-@--}-afterDtlsConnectionAcceptCertificate :: (IsDtlsConnection a, MonadIO m) => a -> DtlsConnectionAcceptCertificateCallback -> m SignalHandlerId-afterDtlsConnectionAcceptCertificate obj cb = liftIO $ do-    let cb' = wrap_DtlsConnectionAcceptCertificateCallback cb-    cb'' <- mk_DtlsConnectionAcceptCertificateCallback cb'-    connectSignalFunPtr obj "accept-certificate" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data DtlsConnectionAcceptCertificateSignalInfo-instance SignalInfo DtlsConnectionAcceptCertificateSignalInfo where-    type HaskellCallbackType DtlsConnectionAcceptCertificateSignalInfo = DtlsConnectionAcceptCertificateCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DtlsConnectionAcceptCertificateCallback cb-        cb'' <- mk_DtlsConnectionAcceptCertificateCallback cb'-        connectSignalFunPtr obj "accept-certificate" cb'' connectMode--type instance O.SignalList DtlsConnection = DtlsConnectionSignalList-type DtlsConnectionSignalList = ('[ '("acceptCertificate", DtlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_dtls_connection_get_type"-    c_g_dtls_connection_get_type :: IO GType--instance GObject DtlsConnection where-    gobjectType = c_g_dtls_connection_get_type-    ---- | Type class for types which can be safely cast to `DtlsConnection`, for instance with `toDtlsConnection`.-class (GObject o, O.IsDescendantOf DtlsConnection o) => IsDtlsConnection o-instance (GObject o, O.IsDescendantOf DtlsConnection o) => IsDtlsConnection o--instance O.HasParentTypes DtlsConnection-type instance O.ParentTypes DtlsConnection = '[Gio.DatagramBased.DatagramBased, GObject.Object.Object]---- | Cast to `DtlsConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDtlsConnection :: (MonadIO m, IsDtlsConnection o) => o -> m DtlsConnection-toDtlsConnection = liftIO . unsafeCastTo DtlsConnection---- VVV Prop "advertised-protocols"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just True)--{- |-Get the value of the “@advertised-protocols@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #advertisedProtocols-@--}-getDtlsConnectionAdvertisedProtocols :: (MonadIO m, IsDtlsConnection o) => o -> m (Maybe [T.Text])-getDtlsConnectionAdvertisedProtocols obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "advertised-protocols"--{- |-Set the value of the “@advertised-protocols@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsConnection [ #advertisedProtocols 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsConnectionAdvertisedProtocols :: (MonadIO m, IsDtlsConnection o) => o -> [T.Text] -> m ()-setDtlsConnectionAdvertisedProtocols obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "advertised-protocols" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@advertised-protocols@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsConnectionAdvertisedProtocols :: (IsDtlsConnection o) => [T.Text] -> IO (GValueConstruct o)-constructDtlsConnectionAdvertisedProtocols val = B.Properties.constructObjectPropertyStringArray "advertised-protocols" (Just val)--{- |-Set the value of the “@advertised-protocols@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #advertisedProtocols-@--}-clearDtlsConnectionAdvertisedProtocols :: (MonadIO m, IsDtlsConnection o) => o -> m ()-clearDtlsConnectionAdvertisedProtocols obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "advertised-protocols" (Nothing :: Maybe [T.Text])--#if ENABLE_OVERLOADING-data DtlsConnectionAdvertisedProtocolsPropertyInfo-instance AttrInfo DtlsConnectionAdvertisedProtocolsPropertyInfo where-    type AttrAllowedOps DtlsConnectionAdvertisedProtocolsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DtlsConnectionAdvertisedProtocolsPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint DtlsConnectionAdvertisedProtocolsPropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionAdvertisedProtocolsPropertyInfo = (Maybe [T.Text])-    type AttrLabel DtlsConnectionAdvertisedProtocolsPropertyInfo = "advertised-protocols"-    type AttrOrigin DtlsConnectionAdvertisedProtocolsPropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionAdvertisedProtocols-    attrSet _ = setDtlsConnectionAdvertisedProtocols-    attrConstruct _ = constructDtlsConnectionAdvertisedProtocols-    attrClear _ = clearDtlsConnectionAdvertisedProtocols-#endif---- VVV Prop "base-socket"-   -- Type: TInterface (Name {namespace = "Gio", name = "DatagramBased"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@base-socket@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #baseSocket-@--}-getDtlsConnectionBaseSocket :: (MonadIO m, IsDtlsConnection o) => o -> m (Maybe Gio.DatagramBased.DatagramBased)-getDtlsConnectionBaseSocket obj = liftIO $ B.Properties.getObjectPropertyObject obj "base-socket" Gio.DatagramBased.DatagramBased--{- |-Construct a `GValueConstruct` with valid value for the “@base-socket@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsConnectionBaseSocket :: (IsDtlsConnection o, Gio.DatagramBased.IsDatagramBased a) => a -> IO (GValueConstruct o)-constructDtlsConnectionBaseSocket val = B.Properties.constructObjectPropertyObject "base-socket" (Just val)--#if ENABLE_OVERLOADING-data DtlsConnectionBaseSocketPropertyInfo-instance AttrInfo DtlsConnectionBaseSocketPropertyInfo where-    type AttrAllowedOps DtlsConnectionBaseSocketPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DtlsConnectionBaseSocketPropertyInfo = Gio.DatagramBased.IsDatagramBased-    type AttrBaseTypeConstraint DtlsConnectionBaseSocketPropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionBaseSocketPropertyInfo = (Maybe Gio.DatagramBased.DatagramBased)-    type AttrLabel DtlsConnectionBaseSocketPropertyInfo = "base-socket"-    type AttrOrigin DtlsConnectionBaseSocketPropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionBaseSocket-    attrSet _ = undefined-    attrConstruct _ = constructDtlsConnectionBaseSocket-    attrClear _ = undefined-#endif---- VVV Prop "certificate"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #certificate-@--}-getDtlsConnectionCertificate :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.TlsCertificate.TlsCertificate-getDtlsConnectionCertificate obj = liftIO $ checkUnexpectedNothing "getDtlsConnectionCertificate" $ B.Properties.getObjectPropertyObject obj "certificate" Gio.TlsCertificate.TlsCertificate--{- |-Set the value of the “@certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsConnection [ #certificate 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsConnectionCertificate :: (MonadIO m, IsDtlsConnection o, Gio.TlsCertificate.IsTlsCertificate a) => o -> a -> m ()-setDtlsConnectionCertificate obj val = liftIO $ B.Properties.setObjectPropertyObject obj "certificate" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@certificate@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsConnectionCertificate :: (IsDtlsConnection o, Gio.TlsCertificate.IsTlsCertificate a) => a -> IO (GValueConstruct o)-constructDtlsConnectionCertificate val = B.Properties.constructObjectPropertyObject "certificate" (Just val)--#if ENABLE_OVERLOADING-data DtlsConnectionCertificatePropertyInfo-instance AttrInfo DtlsConnectionCertificatePropertyInfo where-    type AttrAllowedOps DtlsConnectionCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DtlsConnectionCertificatePropertyInfo = Gio.TlsCertificate.IsTlsCertificate-    type AttrBaseTypeConstraint DtlsConnectionCertificatePropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionCertificatePropertyInfo = Gio.TlsCertificate.TlsCertificate-    type AttrLabel DtlsConnectionCertificatePropertyInfo = "certificate"-    type AttrOrigin DtlsConnectionCertificatePropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionCertificate-    attrSet _ = setDtlsConnectionCertificate-    attrConstruct _ = constructDtlsConnectionCertificate-    attrClear _ = undefined-#endif---- VVV Prop "database"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@database@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #database-@--}-getDtlsConnectionDatabase :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.TlsDatabase.TlsDatabase-getDtlsConnectionDatabase obj = liftIO $ checkUnexpectedNothing "getDtlsConnectionDatabase" $ B.Properties.getObjectPropertyObject obj "database" Gio.TlsDatabase.TlsDatabase--{- |-Set the value of the “@database@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsConnection [ #database 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsConnectionDatabase :: (MonadIO m, IsDtlsConnection o, Gio.TlsDatabase.IsTlsDatabase a) => o -> a -> m ()-setDtlsConnectionDatabase obj val = liftIO $ B.Properties.setObjectPropertyObject obj "database" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@database@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsConnectionDatabase :: (IsDtlsConnection o, Gio.TlsDatabase.IsTlsDatabase a) => a -> IO (GValueConstruct o)-constructDtlsConnectionDatabase val = B.Properties.constructObjectPropertyObject "database" (Just val)--#if ENABLE_OVERLOADING-data DtlsConnectionDatabasePropertyInfo-instance AttrInfo DtlsConnectionDatabasePropertyInfo where-    type AttrAllowedOps DtlsConnectionDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DtlsConnectionDatabasePropertyInfo = Gio.TlsDatabase.IsTlsDatabase-    type AttrBaseTypeConstraint DtlsConnectionDatabasePropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionDatabasePropertyInfo = Gio.TlsDatabase.TlsDatabase-    type AttrLabel DtlsConnectionDatabasePropertyInfo = "database"-    type AttrOrigin DtlsConnectionDatabasePropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionDatabase-    attrSet _ = setDtlsConnectionDatabase-    attrConstruct _ = constructDtlsConnectionDatabase-    attrClear _ = undefined-#endif---- VVV Prop "interaction"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just True)--{- |-Get the value of the “@interaction@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #interaction-@--}-getDtlsConnectionInteraction :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.TlsInteraction.TlsInteraction-getDtlsConnectionInteraction obj = liftIO $ checkUnexpectedNothing "getDtlsConnectionInteraction" $ B.Properties.getObjectPropertyObject obj "interaction" Gio.TlsInteraction.TlsInteraction--{- |-Set the value of the “@interaction@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsConnection [ #interaction 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsConnectionInteraction :: (MonadIO m, IsDtlsConnection o, Gio.TlsInteraction.IsTlsInteraction a) => o -> a -> m ()-setDtlsConnectionInteraction obj val = liftIO $ B.Properties.setObjectPropertyObject obj "interaction" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@interaction@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsConnectionInteraction :: (IsDtlsConnection o, Gio.TlsInteraction.IsTlsInteraction a) => a -> IO (GValueConstruct o)-constructDtlsConnectionInteraction val = B.Properties.constructObjectPropertyObject "interaction" (Just val)--{- |-Set the value of the “@interaction@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #interaction-@--}-clearDtlsConnectionInteraction :: (MonadIO m, IsDtlsConnection o) => o -> m ()-clearDtlsConnectionInteraction obj = liftIO $ B.Properties.setObjectPropertyObject obj "interaction" (Nothing :: Maybe Gio.TlsInteraction.TlsInteraction)--#if ENABLE_OVERLOADING-data DtlsConnectionInteractionPropertyInfo-instance AttrInfo DtlsConnectionInteractionPropertyInfo where-    type AttrAllowedOps DtlsConnectionInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DtlsConnectionInteractionPropertyInfo = Gio.TlsInteraction.IsTlsInteraction-    type AttrBaseTypeConstraint DtlsConnectionInteractionPropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionInteractionPropertyInfo = Gio.TlsInteraction.TlsInteraction-    type AttrLabel DtlsConnectionInteractionPropertyInfo = "interaction"-    type AttrOrigin DtlsConnectionInteractionPropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionInteraction-    attrSet _ = setDtlsConnectionInteraction-    attrConstruct _ = constructDtlsConnectionInteraction-    attrClear _ = clearDtlsConnectionInteraction-#endif---- VVV Prop "negotiated-protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@negotiated-protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #negotiatedProtocol-@--}-getDtlsConnectionNegotiatedProtocol :: (MonadIO m, IsDtlsConnection o) => o -> m (Maybe T.Text)-getDtlsConnectionNegotiatedProtocol obj = liftIO $ B.Properties.getObjectPropertyString obj "negotiated-protocol"--#if ENABLE_OVERLOADING-data DtlsConnectionNegotiatedProtocolPropertyInfo-instance AttrInfo DtlsConnectionNegotiatedProtocolPropertyInfo where-    type AttrAllowedOps DtlsConnectionNegotiatedProtocolPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DtlsConnectionNegotiatedProtocolPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DtlsConnectionNegotiatedProtocolPropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionNegotiatedProtocolPropertyInfo = (Maybe T.Text)-    type AttrLabel DtlsConnectionNegotiatedProtocolPropertyInfo = "negotiated-protocol"-    type AttrOrigin DtlsConnectionNegotiatedProtocolPropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionNegotiatedProtocol-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "peer-certificate"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@peer-certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #peerCertificate-@--}-getDtlsConnectionPeerCertificate :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.TlsCertificate.TlsCertificate-getDtlsConnectionPeerCertificate obj = liftIO $ checkUnexpectedNothing "getDtlsConnectionPeerCertificate" $ B.Properties.getObjectPropertyObject obj "peer-certificate" Gio.TlsCertificate.TlsCertificate--#if ENABLE_OVERLOADING-data DtlsConnectionPeerCertificatePropertyInfo-instance AttrInfo DtlsConnectionPeerCertificatePropertyInfo where-    type AttrAllowedOps DtlsConnectionPeerCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DtlsConnectionPeerCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DtlsConnectionPeerCertificatePropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionPeerCertificatePropertyInfo = Gio.TlsCertificate.TlsCertificate-    type AttrLabel DtlsConnectionPeerCertificatePropertyInfo = "peer-certificate"-    type AttrOrigin DtlsConnectionPeerCertificatePropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionPeerCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "peer-certificate-errors"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@peer-certificate-errors@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #peerCertificateErrors-@--}-getDtlsConnectionPeerCertificateErrors :: (MonadIO m, IsDtlsConnection o) => o -> m [Gio.Flags.TlsCertificateFlags]-getDtlsConnectionPeerCertificateErrors obj = liftIO $ B.Properties.getObjectPropertyFlags obj "peer-certificate-errors"--#if ENABLE_OVERLOADING-data DtlsConnectionPeerCertificateErrorsPropertyInfo-instance AttrInfo DtlsConnectionPeerCertificateErrorsPropertyInfo where-    type AttrAllowedOps DtlsConnectionPeerCertificateErrorsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DtlsConnectionPeerCertificateErrorsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DtlsConnectionPeerCertificateErrorsPropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionPeerCertificateErrorsPropertyInfo = [Gio.Flags.TlsCertificateFlags]-    type AttrLabel DtlsConnectionPeerCertificateErrorsPropertyInfo = "peer-certificate-errors"-    type AttrOrigin DtlsConnectionPeerCertificateErrorsPropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionPeerCertificateErrors-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "rehandshake-mode"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsRehandshakeMode"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@rehandshake-mode@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #rehandshakeMode-@--}-getDtlsConnectionRehandshakeMode :: (MonadIO m, IsDtlsConnection o) => o -> m Gio.Enums.TlsRehandshakeMode-getDtlsConnectionRehandshakeMode obj = liftIO $ B.Properties.getObjectPropertyEnum obj "rehandshake-mode"--{- |-Set the value of the “@rehandshake-mode@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsConnection [ #rehandshakeMode 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsConnectionRehandshakeMode :: (MonadIO m, IsDtlsConnection o) => o -> Gio.Enums.TlsRehandshakeMode -> m ()-setDtlsConnectionRehandshakeMode obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "rehandshake-mode" val--{- |-Construct a `GValueConstruct` with valid value for the “@rehandshake-mode@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsConnectionRehandshakeMode :: (IsDtlsConnection o) => Gio.Enums.TlsRehandshakeMode -> IO (GValueConstruct o)-constructDtlsConnectionRehandshakeMode val = B.Properties.constructObjectPropertyEnum "rehandshake-mode" val--#if ENABLE_OVERLOADING-data DtlsConnectionRehandshakeModePropertyInfo-instance AttrInfo DtlsConnectionRehandshakeModePropertyInfo where-    type AttrAllowedOps DtlsConnectionRehandshakeModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DtlsConnectionRehandshakeModePropertyInfo = (~) Gio.Enums.TlsRehandshakeMode-    type AttrBaseTypeConstraint DtlsConnectionRehandshakeModePropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionRehandshakeModePropertyInfo = Gio.Enums.TlsRehandshakeMode-    type AttrLabel DtlsConnectionRehandshakeModePropertyInfo = "rehandshake-mode"-    type AttrOrigin DtlsConnectionRehandshakeModePropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionRehandshakeMode-    attrSet _ = setDtlsConnectionRehandshakeMode-    attrConstruct _ = constructDtlsConnectionRehandshakeMode-    attrClear _ = undefined-#endif---- VVV Prop "require-close-notify"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@require-close-notify@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsConnection #requireCloseNotify-@--}-getDtlsConnectionRequireCloseNotify :: (MonadIO m, IsDtlsConnection o) => o -> m Bool-getDtlsConnectionRequireCloseNotify obj = liftIO $ B.Properties.getObjectPropertyBool obj "require-close-notify"--{- |-Set the value of the “@require-close-notify@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsConnection [ #requireCloseNotify 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsConnectionRequireCloseNotify :: (MonadIO m, IsDtlsConnection o) => o -> Bool -> m ()-setDtlsConnectionRequireCloseNotify obj val = liftIO $ B.Properties.setObjectPropertyBool obj "require-close-notify" val--{- |-Construct a `GValueConstruct` with valid value for the “@require-close-notify@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsConnectionRequireCloseNotify :: (IsDtlsConnection o) => Bool -> IO (GValueConstruct o)-constructDtlsConnectionRequireCloseNotify val = B.Properties.constructObjectPropertyBool "require-close-notify" val--#if ENABLE_OVERLOADING-data DtlsConnectionRequireCloseNotifyPropertyInfo-instance AttrInfo DtlsConnectionRequireCloseNotifyPropertyInfo where-    type AttrAllowedOps DtlsConnectionRequireCloseNotifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DtlsConnectionRequireCloseNotifyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint DtlsConnectionRequireCloseNotifyPropertyInfo = IsDtlsConnection-    type AttrGetType DtlsConnectionRequireCloseNotifyPropertyInfo = Bool-    type AttrLabel DtlsConnectionRequireCloseNotifyPropertyInfo = "require-close-notify"-    type AttrOrigin DtlsConnectionRequireCloseNotifyPropertyInfo = DtlsConnection-    attrGet _ = getDtlsConnectionRequireCloseNotify-    attrSet _ = setDtlsConnectionRequireCloseNotify-    attrConstruct _ = constructDtlsConnectionRequireCloseNotify-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DtlsConnection-type instance O.AttributeList DtlsConnection = DtlsConnectionAttributeList-type DtlsConnectionAttributeList = ('[ '("advertisedProtocols", DtlsConnectionAdvertisedProtocolsPropertyInfo), '("baseSocket", DtlsConnectionBaseSocketPropertyInfo), '("certificate", DtlsConnectionCertificatePropertyInfo), '("database", DtlsConnectionDatabasePropertyInfo), '("interaction", DtlsConnectionInteractionPropertyInfo), '("negotiatedProtocol", DtlsConnectionNegotiatedProtocolPropertyInfo), '("peerCertificate", DtlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", DtlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", DtlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", DtlsConnectionRequireCloseNotifyPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dtlsConnectionAdvertisedProtocols :: AttrLabelProxy "advertisedProtocols"-dtlsConnectionAdvertisedProtocols = AttrLabelProxy--dtlsConnectionBaseSocket :: AttrLabelProxy "baseSocket"-dtlsConnectionBaseSocket = AttrLabelProxy--dtlsConnectionCertificate :: AttrLabelProxy "certificate"-dtlsConnectionCertificate = AttrLabelProxy--dtlsConnectionDatabase :: AttrLabelProxy "database"-dtlsConnectionDatabase = AttrLabelProxy--dtlsConnectionInteraction :: AttrLabelProxy "interaction"-dtlsConnectionInteraction = AttrLabelProxy--dtlsConnectionNegotiatedProtocol :: AttrLabelProxy "negotiatedProtocol"-dtlsConnectionNegotiatedProtocol = AttrLabelProxy--dtlsConnectionPeerCertificate :: AttrLabelProxy "peerCertificate"-dtlsConnectionPeerCertificate = AttrLabelProxy--dtlsConnectionPeerCertificateErrors :: AttrLabelProxy "peerCertificateErrors"-dtlsConnectionPeerCertificateErrors = AttrLabelProxy--dtlsConnectionRehandshakeMode :: AttrLabelProxy "rehandshakeMode"-dtlsConnectionRehandshakeMode = AttrLabelProxy--dtlsConnectionRequireCloseNotify :: AttrLabelProxy "requireCloseNotify"-dtlsConnectionRequireCloseNotify = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type family ResolveDtlsConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveDtlsConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDtlsConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDtlsConnectionMethod "close" o = DtlsConnectionCloseMethodInfo-    ResolveDtlsConnectionMethod "closeAsync" o = DtlsConnectionCloseAsyncMethodInfo-    ResolveDtlsConnectionMethod "closeFinish" o = DtlsConnectionCloseFinishMethodInfo-    ResolveDtlsConnectionMethod "conditionCheck" o = Gio.DatagramBased.DatagramBasedConditionCheckMethodInfo-    ResolveDtlsConnectionMethod "conditionWait" o = Gio.DatagramBased.DatagramBasedConditionWaitMethodInfo-    ResolveDtlsConnectionMethod "createSource" o = Gio.DatagramBased.DatagramBasedCreateSourceMethodInfo-    ResolveDtlsConnectionMethod "emitAcceptCertificate" o = DtlsConnectionEmitAcceptCertificateMethodInfo-    ResolveDtlsConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDtlsConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDtlsConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDtlsConnectionMethod "handshake" o = DtlsConnectionHandshakeMethodInfo-    ResolveDtlsConnectionMethod "handshakeAsync" o = DtlsConnectionHandshakeAsyncMethodInfo-    ResolveDtlsConnectionMethod "handshakeFinish" o = DtlsConnectionHandshakeFinishMethodInfo-    ResolveDtlsConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDtlsConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDtlsConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDtlsConnectionMethod "receiveMessages" o = Gio.DatagramBased.DatagramBasedReceiveMessagesMethodInfo-    ResolveDtlsConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDtlsConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDtlsConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDtlsConnectionMethod "sendMessages" o = Gio.DatagramBased.DatagramBasedSendMessagesMethodInfo-    ResolveDtlsConnectionMethod "shutdown" o = DtlsConnectionShutdownMethodInfo-    ResolveDtlsConnectionMethod "shutdownAsync" o = DtlsConnectionShutdownAsyncMethodInfo-    ResolveDtlsConnectionMethod "shutdownFinish" o = DtlsConnectionShutdownFinishMethodInfo-    ResolveDtlsConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDtlsConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDtlsConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDtlsConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDtlsConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDtlsConnectionMethod "getCertificate" o = DtlsConnectionGetCertificateMethodInfo-    ResolveDtlsConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDtlsConnectionMethod "getDatabase" o = DtlsConnectionGetDatabaseMethodInfo-    ResolveDtlsConnectionMethod "getInteraction" o = DtlsConnectionGetInteractionMethodInfo-    ResolveDtlsConnectionMethod "getNegotiatedProtocol" o = DtlsConnectionGetNegotiatedProtocolMethodInfo-    ResolveDtlsConnectionMethod "getPeerCertificate" o = DtlsConnectionGetPeerCertificateMethodInfo-    ResolveDtlsConnectionMethod "getPeerCertificateErrors" o = DtlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveDtlsConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDtlsConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDtlsConnectionMethod "getRehandshakeMode" o = DtlsConnectionGetRehandshakeModeMethodInfo-    ResolveDtlsConnectionMethod "getRequireCloseNotify" o = DtlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveDtlsConnectionMethod "setAdvertisedProtocols" o = DtlsConnectionSetAdvertisedProtocolsMethodInfo-    ResolveDtlsConnectionMethod "setCertificate" o = DtlsConnectionSetCertificateMethodInfo-    ResolveDtlsConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDtlsConnectionMethod "setDatabase" o = DtlsConnectionSetDatabaseMethodInfo-    ResolveDtlsConnectionMethod "setInteraction" o = DtlsConnectionSetInteractionMethodInfo-    ResolveDtlsConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDtlsConnectionMethod "setRehandshakeMode" o = DtlsConnectionSetRehandshakeModeMethodInfo-    ResolveDtlsConnectionMethod "setRequireCloseNotify" o = DtlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveDtlsConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDtlsConnectionMethod t DtlsConnection, O.MethodInfo info DtlsConnection p) => OL.IsLabel t (DtlsConnection -> 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 DtlsConnection::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_dtls_connection_close" g_dtls_connection_close :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Close the DTLS connection. This is equivalent to calling-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionShutdown' to shut down both sides of the connection.--Closing a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' waits for all buffered but untransmitted data to-be sent before it completes. It then sends a @close_notify@ DTLS alert to the-peer and may wait for a @close_notify@ to be received from the peer. It does-not close the underlying 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection':@/base-socket/@; that must be closed-separately.--Once /@conn@/ is closed, all other operations will return 'GI.Gio.Enums.IOErrorEnumClosed'.-Closing a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' multiple times will not return an error.--@/GDtlsConnections/@ will be automatically closed when the last reference is-dropped, but you might want to call this function to make sure resources are-released as early as possible.--If /@cancellable@/ is cancelled, the 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' may be left-partially-closed and any pending untransmitted data may be lost. Call-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionClose' again to complete closing the 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'.--/Since: 2.48/--}-dtlsConnectionClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dtlsConnectionClose conn cancellable = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_dtls_connection_close conn' maybeCancellable-        touchManagedPtr conn-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DtlsConnectionCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionCloseMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionClose--#endif---- method DtlsConnection::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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 "the [I/O priority][io-priority] of the request", 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 "callback to call when the close operation is complete", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_close_async" g_dtls_connection_close_async :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    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 close the DTLS connection. See 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionClose' for-more information.--/Since: 2.48/--}-dtlsConnectionCloseAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the close operation is complete -}-    -> m ()-dtlsConnectionCloseAsync conn ioPriority cancellable callback = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    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-    g_dtls_connection_close_async conn' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr conn-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionCloseAsyncMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionCloseAsync--#endif---- method DtlsConnection::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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 "a #GAsyncResult", 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 "g_dtls_connection_close_finish" g_dtls_connection_close_finish :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finish an asynchronous TLS close operation. See 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionClose'-for more information.--/Since: 2.48/--}-dtlsConnectionCloseFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dtlsConnectionCloseFinish conn result_ = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_dtls_connection_close_finish conn' result_'-        touchManagedPtr conn-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DtlsConnectionCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DtlsConnectionCloseFinishMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionCloseFinish--#endif---- method DtlsConnection::emit_accept_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "peer_cert", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the peer's #GTlsCertificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the problems with @peer_cert", 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 "g_dtls_connection_emit_accept_certificate" g_dtls_connection_emit_accept_certificate :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- peer_cert : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    CUInt ->                                -- errors : TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-    IO CInt--{- |-Used by 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' implementations to emit the-'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'::@/accept-certificate/@ signal.--/Since: 2.48/--}-dtlsConnectionEmitAcceptCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> b-    {- ^ /@peerCert@/: the peer\'s 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}-    -> [Gio.Flags.TlsCertificateFlags]-    {- ^ /@errors@/: the problems with /@peerCert@/ -}-    -> m Bool-    {- ^ __Returns:__ 'True' if one of the signal handlers has returned-    'True' to accept /@peerCert@/ -}-dtlsConnectionEmitAcceptCertificate conn peerCert errors = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    peerCert' <- unsafeManagedPtrCastPtr peerCert-    let errors' = gflagsToWord errors-    result <- g_dtls_connection_emit_accept_certificate conn' peerCert' errors'-    let result' = (/= 0) result-    touchManagedPtr conn-    touchManagedPtr peerCert-    return result'--#if ENABLE_OVERLOADING-data DtlsConnectionEmitAcceptCertificateMethodInfo-instance (signature ~ (b -> [Gio.Flags.TlsCertificateFlags] -> m Bool), MonadIO m, IsDtlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) => O.MethodInfo DtlsConnectionEmitAcceptCertificateMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionEmitAcceptCertificate--#endif---- method DtlsConnection::get_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_get_certificate" g_dtls_connection_get_certificate :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    IO (Ptr Gio.TlsCertificate.TlsCertificate)--{- |-Gets /@conn@/\'s certificate, as set by-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetCertificate'.--/Since: 2.48/--}-dtlsConnectionGetCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> m Gio.TlsCertificate.TlsCertificate-    {- ^ __Returns:__ /@conn@/\'s certificate, or 'Nothing' -}-dtlsConnectionGetCertificate conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_connection_get_certificate conn'-    checkUnexpectedReturnNULL "dtlsConnectionGetCertificate" result-    result' <- (newObject Gio.TlsCertificate.TlsCertificate) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsConnectionGetCertificateMethodInfo-instance (signature ~ (m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetCertificateMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionGetCertificate--#endif---- method DtlsConnection::get_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsDatabase"}))--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_get_database" g_dtls_connection_get_database :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    IO (Ptr Gio.TlsDatabase.TlsDatabase)--{- |-Gets the certificate database that /@conn@/ uses to verify-peer certificates. See 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetDatabase'.--/Since: 2.48/--}-dtlsConnectionGetDatabase ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> m Gio.TlsDatabase.TlsDatabase-    {- ^ __Returns:__ the certificate database that /@conn@/ uses or 'Nothing' -}-dtlsConnectionGetDatabase conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_connection_get_database conn'-    checkUnexpectedReturnNULL "dtlsConnectionGetDatabase" result-    result' <- (newObject Gio.TlsDatabase.TlsDatabase) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsConnectionGetDatabaseMethodInfo-instance (signature ~ (m Gio.TlsDatabase.TlsDatabase), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetDatabaseMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionGetDatabase--#endif---- method DtlsConnection::get_interaction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsInteraction"}))--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_get_interaction" g_dtls_connection_get_interaction :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    IO (Ptr Gio.TlsInteraction.TlsInteraction)--{- |-Get the object that will be used to interact with the user. It will be used-for things like prompting the user for passwords. If 'Nothing' is returned, then-no user interaction will occur for this connection.--/Since: 2.48/--}-dtlsConnectionGetInteraction ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a connection -}-    -> m Gio.TlsInteraction.TlsInteraction-    {- ^ __Returns:__ The interaction object. -}-dtlsConnectionGetInteraction conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_connection_get_interaction conn'-    checkUnexpectedReturnNULL "dtlsConnectionGetInteraction" result-    result' <- (newObject Gio.TlsInteraction.TlsInteraction) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsConnectionGetInteractionMethodInfo-instance (signature ~ (m Gio.TlsInteraction.TlsInteraction), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetInteractionMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionGetInteraction--#endif---- method DtlsConnection::get_negotiated_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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 "g_dtls_connection_get_negotiated_protocol" g_dtls_connection_get_negotiated_protocol :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    IO CString--{- |-Gets the name of the application-layer protocol negotiated during-the handshake.--If the peer did not use the ALPN extension, or did not advertise a-protocol that matched one of /@conn@/\'s protocols, or the TLS backend-does not support ALPN, then this will be 'Nothing'. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetAdvertisedProtocols'.--/Since: 2.60/--}-dtlsConnectionGetNegotiatedProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the negotiated protocol, or 'Nothing' -}-dtlsConnectionGetNegotiatedProtocol conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_connection_get_negotiated_protocol conn'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr conn-    return maybeResult--#if ENABLE_OVERLOADING-data DtlsConnectionGetNegotiatedProtocolMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetNegotiatedProtocolMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionGetNegotiatedProtocol--#endif---- method DtlsConnection::get_peer_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_get_peer_certificate" g_dtls_connection_get_peer_certificate :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    IO (Ptr Gio.TlsCertificate.TlsCertificate)--{- |-Gets /@conn@/\'s peer\'s certificate after the handshake has completed.-(It is not set during the emission of-'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'::@/accept-certificate/@.)--/Since: 2.48/--}-dtlsConnectionGetPeerCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> m Gio.TlsCertificate.TlsCertificate-    {- ^ __Returns:__ /@conn@/\'s peer\'s certificate, or 'Nothing' -}-dtlsConnectionGetPeerCertificate conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_connection_get_peer_certificate conn'-    checkUnexpectedReturnNULL "dtlsConnectionGetPeerCertificate" result-    result' <- (newObject Gio.TlsCertificate.TlsCertificate) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsConnectionGetPeerCertificateMethodInfo-instance (signature ~ (m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetPeerCertificateMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionGetPeerCertificate--#endif---- method DtlsConnection::get_peer_certificate_errors--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_get_peer_certificate_errors" g_dtls_connection_get_peer_certificate_errors :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    IO CUInt--{- |-Gets the errors associated with validating /@conn@/\'s peer\'s-certificate, after the handshake has completed. (It is not set-during the emission of 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'::@/accept-certificate/@.)--/Since: 2.48/--}-dtlsConnectionGetPeerCertificateErrors ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> m [Gio.Flags.TlsCertificateFlags]-    {- ^ __Returns:__ /@conn@/\'s peer\'s certificate errors -}-dtlsConnectionGetPeerCertificateErrors conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_connection_get_peer_certificate_errors conn'-    let result' = wordToGFlags result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsConnectionGetPeerCertificateErrorsMethodInfo-instance (signature ~ (m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetPeerCertificateErrorsMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionGetPeerCertificateErrors--#endif---- method DtlsConnection::get_rehandshake_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsRehandshakeMode"}))--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_get_rehandshake_mode" g_dtls_connection_get_rehandshake_mode :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    IO CUInt--{- |-Gets /@conn@/ rehandshaking mode. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetRehandshakeMode' for details.--/Since: 2.48/--}-dtlsConnectionGetRehandshakeMode ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> m Gio.Enums.TlsRehandshakeMode-    {- ^ __Returns:__ /@conn@/\'s rehandshaking mode -}-dtlsConnectionGetRehandshakeMode conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_connection_get_rehandshake_mode conn'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsConnectionGetRehandshakeModeMethodInfo-instance (signature ~ (m Gio.Enums.TlsRehandshakeMode), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetRehandshakeModeMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionGetRehandshakeMode--#endif---- method DtlsConnection::get_require_close_notify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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 "g_dtls_connection_get_require_close_notify" g_dtls_connection_get_require_close_notify :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    IO CInt--{- |-Tests whether or not /@conn@/ expects a proper TLS close notification-when the connection is closed. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetRequireCloseNotify' for details.--/Since: 2.48/--}-dtlsConnectionGetRequireCloseNotify ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@conn@/ requires a proper TLS close notification. -}-dtlsConnectionGetRequireCloseNotify conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_dtls_connection_get_require_close_notify conn'-    let result' = (/= 0) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data DtlsConnectionGetRequireCloseNotifyMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionGetRequireCloseNotifyMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionGetRequireCloseNotify--#endif---- method DtlsConnection::handshake--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_dtls_connection_handshake" g_dtls_connection_handshake :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Attempts a TLS handshake on /@conn@/.--On the client side, it is never necessary to call this method;-although the connection needs to perform a handshake after-connecting (or after sending a \"STARTTLS\"-type command) and may-need to rehandshake later if the server requests it,-'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' will handle this for you automatically when you try-to send or receive data on the connection. However, you can call-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionHandshake' manually if you want to know for sure-whether the initial handshake succeeded or failed (as opposed to-just immediately trying to write to /@conn@/, in which-case if it fails, it may not be possible to tell if it failed-before or after completing the handshake).--Likewise, on the server side, although a handshake is necessary at-the beginning of the communication, you do not need to call this-function explicitly unless you want clearer error reporting.--If TLS 1.2 or older is in use, you may call-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionHandshake' after the initial handshake to-rehandshake; however, this usage is deprecated because rehandshaking-is no longer part of the TLS protocol in TLS 1.3. Accordingly, the-behavior of calling this function after the initial handshake is now-undefined, except it is guaranteed to be reasonable and-nondestructive so as to preserve compatibility with code written for-older versions of GLib.--'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'::@/accept_certificate/@ may be emitted during the-handshake.--/Since: 2.48/--}-dtlsConnectionHandshake ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dtlsConnectionHandshake conn cancellable = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_dtls_connection_handshake conn' maybeCancellable-        touchManagedPtr conn-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DtlsConnectionHandshakeMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionHandshakeMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionHandshake--#endif---- method DtlsConnection::handshake_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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 "the [I/O priority][io-priority] of the request", 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 "callback to call when the handshake is complete", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_handshake_async" g_dtls_connection_handshake_async :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    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 performs a TLS handshake on /@conn@/. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionHandshake' for more information.--/Since: 2.48/--}-dtlsConnectionHandshakeAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the handshake is complete -}-    -> m ()-dtlsConnectionHandshakeAsync conn ioPriority cancellable callback = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    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-    g_dtls_connection_handshake_async conn' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr conn-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionHandshakeAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionHandshakeAsyncMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionHandshakeAsync--#endif---- method DtlsConnection::handshake_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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 "a #GAsyncResult.", 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 "g_dtls_connection_handshake_finish" g_dtls_connection_handshake_finish :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finish an asynchronous TLS handshake operation. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionHandshake' for more information.--/Since: 2.48/--}-dtlsConnectionHandshakeFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dtlsConnectionHandshakeFinish conn result_ = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_dtls_connection_handshake_finish conn' result_'-        touchManagedPtr conn-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DtlsConnectionHandshakeFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DtlsConnectionHandshakeFinishMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionHandshakeFinish--#endif---- method DtlsConnection::set_advertised_protocols--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a %NULL-terminated\n  array of ALPN protocol names (eg, \"http/1.1\", \"h2\"), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_set_advertised_protocols" g_dtls_connection_set_advertised_protocols :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()--{- |-Sets the list of application-layer protocols to advertise that the-caller is willing to speak on this connection. The-Application-Layer Protocol Negotiation (ALPN) extension will be-used to negotiate a compatible protocol with the peer; use-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionGetNegotiatedProtocol' to find the negotiated-protocol after the handshake.  Specifying 'Nothing' for the the value-of /@protocols@/ will disable ALPN negotiation.--See <https://www.iana.org/assignments/tls-extensiontype-values/tls-extensiontype-values.xhtml#alpn-protocol-ids IANA TLS ALPN Protocol IDs>-for a list of registered protocol IDs.--/Since: 2.60/--}-dtlsConnectionSetAdvertisedProtocols ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Maybe ([T.Text])-    {- ^ /@protocols@/: a 'Nothing'-terminated-  array of ALPN protocol names (eg, \"http\/1.1\", \"h2\"), or 'Nothing' -}-    -> m ()-dtlsConnectionSetAdvertisedProtocols conn protocols = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    g_dtls_connection_set_advertised_protocols conn' maybeProtocols-    touchManagedPtr conn-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionSetAdvertisedProtocolsMethodInfo-instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionSetAdvertisedProtocolsMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionSetAdvertisedProtocols--#endif---- method DtlsConnection::set_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the certificate to use for @conn", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_set_certificate" g_dtls_connection_set_certificate :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    IO ()--{- |-This sets the certificate that /@conn@/ will present to its peer-during the TLS handshake. For a 'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection', it is-mandatory to set this, and that will normally be done at construct-time.--For a 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection', this is optional. If a handshake fails-with 'GI.Gio.Enums.TlsErrorCertificateRequired', that means that the server-requires a certificate, and if you try connecting again, you should-call this method first. You can call-'GI.Gio.Interfaces.DtlsClientConnection.dtlsClientConnectionGetAcceptedCas' on the failed connection-to get a list of Certificate Authorities that the server will-accept certificates from.--(It is also possible that a server will allow the connection with-or without a certificate; in that case, if you don\'t provide a-certificate, you can tell that the server requested one by the fact-that 'GI.Gio.Interfaces.DtlsClientConnection.dtlsClientConnectionGetAcceptedCas' will return-non-'Nothing'.)--/Since: 2.48/--}-dtlsConnectionSetCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> b-    {- ^ /@certificate@/: the certificate to use for /@conn@/ -}-    -> m ()-dtlsConnectionSetCertificate conn certificate = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    certificate' <- unsafeManagedPtrCastPtr certificate-    g_dtls_connection_set_certificate conn' certificate'-    touchManagedPtr conn-    touchManagedPtr certificate-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionSetCertificateMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) => O.MethodInfo DtlsConnectionSetCertificateMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionSetCertificate--#endif---- method DtlsConnection::set_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "database", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_set_database" g_dtls_connection_set_database :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.TlsDatabase.TlsDatabase ->      -- database : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    IO ()--{- |-Sets the certificate database that is used to verify peer certificates.-This is set to the default database by default. See-'GI.Gio.Interfaces.TlsBackend.tlsBackendGetDefaultDatabase'. If set to 'Nothing', then-peer certificate validation will always set the-'GI.Gio.Flags.TlsCertificateFlagsUnknownCa' error (meaning-'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'::@/accept-certificate/@ will always be emitted on-client-side connections, unless that bit is not set in-'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection':@/validation-flags/@).--/Since: 2.48/--}-dtlsConnectionSetDatabase ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.TlsDatabase.IsTlsDatabase b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> b-    {- ^ /@database@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> m ()-dtlsConnectionSetDatabase conn database = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    database' <- unsafeManagedPtrCastPtr database-    g_dtls_connection_set_database conn' database'-    touchManagedPtr conn-    touchManagedPtr database-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionSetDatabaseMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.TlsDatabase.IsTlsDatabase b) => O.MethodInfo DtlsConnectionSetDatabaseMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionSetDatabase--#endif---- method DtlsConnection::set_interaction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an interaction object, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_set_interaction" g_dtls_connection_set_interaction :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    IO ()--{- |-Set the object that will be used to interact with the user. It will be used-for things like prompting the user for passwords.--The /@interaction@/ argument will normally be a derived subclass of-'GI.Gio.Objects.TlsInteraction.TlsInteraction'. 'Nothing' can also be provided if no user interaction-should occur for this connection.--/Since: 2.48/--}-dtlsConnectionSetInteraction ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.TlsInteraction.IsTlsInteraction b) =>-    a-    {- ^ /@conn@/: a connection -}-    -> Maybe (b)-    {- ^ /@interaction@/: an interaction object, or 'Nothing' -}-    -> m ()-dtlsConnectionSetInteraction conn interaction = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    g_dtls_connection_set_interaction conn' maybeInteraction-    touchManagedPtr conn-    whenJust interaction touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionSetInteractionMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDtlsConnection a, Gio.TlsInteraction.IsTlsInteraction b) => O.MethodInfo DtlsConnectionSetInteractionMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionSetInteraction--#endif---- method DtlsConnection::set_rehandshake_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface (Name {namespace = "Gio", name = "TlsRehandshakeMode"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the rehandshaking mode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_set_rehandshake_mode" g_dtls_connection_set_rehandshake_mode :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    CUInt ->                                -- mode : TInterface (Name {namespace = "Gio", name = "TlsRehandshakeMode"})-    IO ()--{-# DEPRECATED dtlsConnectionSetRehandshakeMode ["(Since version 2.60.)","Changing the rehandshake mode is no longer","  required for compatibility. Also, rehandshaking has been removed","  from the TLS protocol in TLS 1.3."] #-}-{- |-Sets how /@conn@/ behaves with respect to rehandshaking requests.--'GI.Gio.Enums.TlsRehandshakeModeNever' means that it will never agree to-rehandshake after the initial handshake is complete. (For a client,-this means it will refuse rehandshake requests from the server, and-for a server, this means it will close the connection with an error-if the client attempts to rehandshake.)--'GI.Gio.Enums.TlsRehandshakeModeSafely' means that the connection will allow a-rehandshake only if the other end of the connection supports the-TLS @renegotiation_info@ extension. This is the default behavior,-but means that rehandshaking will not work against older-implementations that do not support that extension.--'GI.Gio.Enums.TlsRehandshakeModeUnsafely' means that the connection will allow-rehandshaking even without the @renegotiation_info@ extension. On-the server side in particular, this is not recommended, since it-leaves the server open to certain attacks. However, this mode is-necessary if you need to allow renegotiation with older client-software.--/Since: 2.48/--}-dtlsConnectionSetRehandshakeMode ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Gio.Enums.TlsRehandshakeMode-    {- ^ /@mode@/: the rehandshaking mode -}-    -> m ()-dtlsConnectionSetRehandshakeMode conn mode = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let mode' = (fromIntegral . fromEnum) mode-    g_dtls_connection_set_rehandshake_mode conn' mode'-    touchManagedPtr conn-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionSetRehandshakeModeMethodInfo-instance (signature ~ (Gio.Enums.TlsRehandshakeMode -> m ()), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionSetRehandshakeModeMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionSetRehandshakeMode--#endif---- method DtlsConnection::set_require_close_notify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "require_close_notify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether or not to require close notification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_set_require_close_notify" g_dtls_connection_set_require_close_notify :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    CInt ->                                 -- require_close_notify : TBasicType TBoolean-    IO ()--{- |-Sets whether or not /@conn@/ expects a proper TLS close notification-before the connection is closed. If this is 'True' (the default),-then /@conn@/ will expect to receive a TLS close notification from its-peer before the connection is closed, and will return a-'GI.Gio.Enums.TlsErrorEof' error if the connection is closed without proper-notification (since this may indicate a network error, or-man-in-the-middle attack).--In some protocols, the application will know whether or not the-connection was closed cleanly based on application-level data-(because the application-level data includes a length field, or is-somehow self-delimiting); in this case, the close notify is-redundant and may be omitted. You-can use 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionSetRequireCloseNotify' to tell /@conn@/-to allow an \"unannounced\" connection close, in which case the close-will show up as a 0-length read, as in a non-TLS-'GI.Gio.Interfaces.DatagramBased.DatagramBased', and it is up to the application to check that-the data has been fully received.--Note that this only affects the behavior when the peer closes the-connection; when the application calls 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionCloseAsync' on-/@conn@/ itself, this will send a close notification regardless of the-setting of this property. If you explicitly want to do an unclean-close, you can close /@conn@/\'s 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection':@/base-socket/@ rather-than closing /@conn@/ itself.--/Since: 2.48/--}-dtlsConnectionSetRequireCloseNotify ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Bool-    {- ^ /@requireCloseNotify@/: whether or not to require close notification -}-    -> m ()-dtlsConnectionSetRequireCloseNotify conn requireCloseNotify = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let requireCloseNotify' = (fromIntegral . fromEnum) requireCloseNotify-    g_dtls_connection_set_require_close_notify conn' requireCloseNotify'-    touchManagedPtr conn-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionSetRequireCloseNotifyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsDtlsConnection a) => O.MethodInfo DtlsConnectionSetRequireCloseNotifyMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionSetRequireCloseNotify--#endif---- method DtlsConnection::shutdown--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_read", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to stop reception of incoming datagrams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_write", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to stop sending outgoing datagrams", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_dtls_connection_shutdown" g_dtls_connection_shutdown :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    CInt ->                                 -- shutdown_read : TBasicType TBoolean-    CInt ->                                 -- shutdown_write : TBasicType TBoolean-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Shut down part or all of a DTLS connection.--If /@shutdownRead@/ is 'True' then the receiving side of the connection is shut-down, and further reading is disallowed. Subsequent calls to-'GI.Gio.Interfaces.DatagramBased.datagramBasedReceiveMessages' will return 'GI.Gio.Enums.IOErrorEnumClosed'.--If /@shutdownWrite@/ is 'True' then the sending side of the connection is shut-down, and further writing is disallowed. Subsequent calls to-'GI.Gio.Interfaces.DatagramBased.datagramBasedSendMessages' will return 'GI.Gio.Enums.IOErrorEnumClosed'.--It is allowed for both /@shutdownRead@/ and /@shutdownWrite@/ to be TRUE — this-is equivalent to calling 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionClose'.--If /@cancellable@/ is cancelled, the 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' may be left-partially-closed and any pending untransmitted data may be lost. Call-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionShutdown' again to complete closing the 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'.--/Since: 2.48/--}-dtlsConnectionShutdown ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Bool-    {- ^ /@shutdownRead@/: 'True' to stop reception of incoming datagrams -}-    -> Bool-    {- ^ /@shutdownWrite@/: 'True' to stop sending outgoing datagrams -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dtlsConnectionShutdown conn shutdownRead shutdownWrite cancellable = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let shutdownRead' = (fromIntegral . fromEnum) shutdownRead-    let shutdownWrite' = (fromIntegral . fromEnum) shutdownWrite-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_dtls_connection_shutdown conn' shutdownRead' shutdownWrite' maybeCancellable-        touchManagedPtr conn-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DtlsConnectionShutdownMethodInfo-instance (signature ~ (Bool -> Bool -> Maybe (b) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionShutdownMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionShutdown--#endif---- method DtlsConnection::shutdown_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_read", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to stop reception of incoming datagrams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_write", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to stop sending outgoing datagrams", 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 "the [I/O priority][io-priority] of the request", 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 "callback to call when the shutdown operation is complete", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dtls_connection_shutdown_async" g_dtls_connection_shutdown_async :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    CInt ->                                 -- shutdown_read : TBasicType TBoolean-    CInt ->                                 -- shutdown_write : TBasicType TBoolean-    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 shut down part or all of the DTLS connection. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionShutdown' for more information.--/Since: 2.48/--}-dtlsConnectionShutdownAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> Bool-    {- ^ /@shutdownRead@/: 'True' to stop reception of incoming datagrams -}-    -> Bool-    {- ^ /@shutdownWrite@/: 'True' to stop sending outgoing datagrams -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the shutdown operation is complete -}-    -> m ()-dtlsConnectionShutdownAsync conn shutdownRead shutdownWrite ioPriority cancellable callback = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let shutdownRead' = (fromIntegral . fromEnum) shutdownRead-    let shutdownWrite' = (fromIntegral . fromEnum) shutdownWrite-    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-    g_dtls_connection_shutdown_async conn' shutdownRead' shutdownWrite' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr conn-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DtlsConnectionShutdownAsyncMethodInfo-instance (signature ~ (Bool -> Bool -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDtlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DtlsConnectionShutdownAsyncMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionShutdownAsync--#endif---- method DtlsConnection::shutdown_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "DtlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDtlsConnection", 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 "a #GAsyncResult", 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 "g_dtls_connection_shutdown_finish" g_dtls_connection_shutdown_finish :: -    Ptr DtlsConnection ->                   -- conn : TInterface (Name {namespace = "Gio", name = "DtlsConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finish an asynchronous TLS shutdown operation. See-'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionShutdown' for more information.--/Since: 2.48/--}-dtlsConnectionShutdownFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dtlsConnectionShutdownFinish conn result_ = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_dtls_connection_shutdown_finish conn' result_'-        touchManagedPtr conn-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DtlsConnectionShutdownFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDtlsConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DtlsConnectionShutdownFinishMethodInfo a signature where-    overloadedMethod _ = dtlsConnectionShutdownFinish--#endif--
− GI/Gio/Interfaces/DtlsConnection.hs-boot 
@@ -1,134 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.DtlsConnection 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 DtlsConnection = DtlsConnection (ManagedPtr DtlsConnection)-#if ENABLE_OVERLOADING-data DtlsConnectionAcceptCertificateSignalInfo-#endif-instance GObject DtlsConnection where-class (GObject o, O.IsDescendantOf DtlsConnection o) => IsDtlsConnection o-instance (GObject o, O.IsDescendantOf DtlsConnection o) => IsDtlsConnection o-instance O.HasParentTypes DtlsConnection-#if ENABLE_OVERLOADING-data DtlsConnectionAdvertisedProtocolsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionBaseSocketPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionDatabasePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionInteractionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionNegotiatedProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionPeerCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionPeerCertificateErrorsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionRehandshakeModePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionRequireCloseNotifyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionCloseAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionCloseFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionEmitAcceptCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionGetCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionGetDatabaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionGetInteractionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionGetNegotiatedProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionGetPeerCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionGetPeerCertificateErrorsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionGetRehandshakeModeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionGetRequireCloseNotifyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionHandshakeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionHandshakeAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionHandshakeFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionSetAdvertisedProtocolsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionSetCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionSetDatabaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionSetInteractionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionSetRehandshakeModeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionSetRequireCloseNotifyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionShutdownMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionShutdownAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DtlsConnectionShutdownFinishMethodInfo-#endif
− GI/Gio/Interfaces/DtlsServerConnection.hs 
@@ -1,287 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection' is the server-side subclass of 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection',-representing a server-side DTLS connection.--/Since: 2.48/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.DtlsServerConnection-    ( ---- * Exported types-    DtlsServerConnection(..)                ,-    noDtlsServerConnection                  ,-    IsDtlsServerConnection                  ,-    toDtlsServerConnection                  ,--- -- * Methods--- ** new #method:new#--    dtlsServerConnectionNew                 ,----- -- * Properties--- ** authenticationMode #attr:authenticationMode#-{- | The 'GI.Gio.Enums.TlsAuthenticationMode' for the server. This can be changed-before calling 'GI.Gio.Interfaces.DtlsConnection.dtlsConnectionHandshake' if you want to-rehandshake with a different mode from the initial handshake.--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    DtlsServerConnectionAuthenticationModePropertyInfo,-#endif-    constructDtlsServerConnectionAuthenticationMode,-#if ENABLE_OVERLOADING-    dtlsServerConnectionAuthenticationMode  ,-#endif-    getDtlsServerConnectionAuthenticationMode,-    setDtlsServerConnectionAuthenticationMode,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DatagramBased as Gio.DatagramBased-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DtlsConnection as Gio.DtlsConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate---- interface DtlsServerConnection --- | Memory-managed wrapper type.-newtype DtlsServerConnection = DtlsServerConnection (ManagedPtr DtlsServerConnection)--- | A convenience alias for `Nothing` :: `Maybe` `DtlsServerConnection`.-noDtlsServerConnection :: Maybe DtlsServerConnection-noDtlsServerConnection = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList DtlsServerConnection = DtlsServerConnectionSignalList-type DtlsServerConnectionSignalList = ('[ '("acceptCertificate", Gio.DtlsConnection.DtlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_dtls_server_connection_get_type"-    c_g_dtls_server_connection_get_type :: IO GType--instance GObject DtlsServerConnection where-    gobjectType = c_g_dtls_server_connection_get_type-    ---- | Type class for types which can be safely cast to `DtlsServerConnection`, for instance with `toDtlsServerConnection`.-class (GObject o, O.IsDescendantOf DtlsServerConnection o) => IsDtlsServerConnection o-instance (GObject o, O.IsDescendantOf DtlsServerConnection o) => IsDtlsServerConnection o--instance O.HasParentTypes DtlsServerConnection-type instance O.ParentTypes DtlsServerConnection = '[Gio.DatagramBased.DatagramBased, Gio.DtlsConnection.DtlsConnection, GObject.Object.Object]---- | Cast to `DtlsServerConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDtlsServerConnection :: (MonadIO m, IsDtlsServerConnection o) => o -> m DtlsServerConnection-toDtlsServerConnection = liftIO . unsafeCastTo DtlsServerConnection---- VVV Prop "authentication-mode"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsAuthenticationMode"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@authentication-mode@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dtlsServerConnection #authenticationMode-@--}-getDtlsServerConnectionAuthenticationMode :: (MonadIO m, IsDtlsServerConnection o) => o -> m Gio.Enums.TlsAuthenticationMode-getDtlsServerConnectionAuthenticationMode obj = liftIO $ B.Properties.getObjectPropertyEnum obj "authentication-mode"--{- |-Set the value of the “@authentication-mode@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dtlsServerConnection [ #authenticationMode 'Data.GI.Base.Attributes.:=' value ]-@--}-setDtlsServerConnectionAuthenticationMode :: (MonadIO m, IsDtlsServerConnection o) => o -> Gio.Enums.TlsAuthenticationMode -> m ()-setDtlsServerConnectionAuthenticationMode obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "authentication-mode" val--{- |-Construct a `GValueConstruct` with valid value for the “@authentication-mode@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDtlsServerConnectionAuthenticationMode :: (IsDtlsServerConnection o) => Gio.Enums.TlsAuthenticationMode -> IO (GValueConstruct o)-constructDtlsServerConnectionAuthenticationMode val = B.Properties.constructObjectPropertyEnum "authentication-mode" val--#if ENABLE_OVERLOADING-data DtlsServerConnectionAuthenticationModePropertyInfo-instance AttrInfo DtlsServerConnectionAuthenticationModePropertyInfo where-    type AttrAllowedOps DtlsServerConnectionAuthenticationModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DtlsServerConnectionAuthenticationModePropertyInfo = (~) Gio.Enums.TlsAuthenticationMode-    type AttrBaseTypeConstraint DtlsServerConnectionAuthenticationModePropertyInfo = IsDtlsServerConnection-    type AttrGetType DtlsServerConnectionAuthenticationModePropertyInfo = Gio.Enums.TlsAuthenticationMode-    type AttrLabel DtlsServerConnectionAuthenticationModePropertyInfo = "authentication-mode"-    type AttrOrigin DtlsServerConnectionAuthenticationModePropertyInfo = DtlsServerConnection-    attrGet _ = getDtlsServerConnectionAuthenticationMode-    attrSet _ = setDtlsServerConnectionAuthenticationMode-    attrConstruct _ = constructDtlsServerConnectionAuthenticationMode-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DtlsServerConnection-type instance O.AttributeList DtlsServerConnection = DtlsServerConnectionAttributeList-type DtlsServerConnectionAttributeList = ('[ '("advertisedProtocols", Gio.DtlsConnection.DtlsConnectionAdvertisedProtocolsPropertyInfo), '("authenticationMode", DtlsServerConnectionAuthenticationModePropertyInfo), '("baseSocket", Gio.DtlsConnection.DtlsConnectionBaseSocketPropertyInfo), '("certificate", Gio.DtlsConnection.DtlsConnectionCertificatePropertyInfo), '("database", Gio.DtlsConnection.DtlsConnectionDatabasePropertyInfo), '("interaction", Gio.DtlsConnection.DtlsConnectionInteractionPropertyInfo), '("negotiatedProtocol", Gio.DtlsConnection.DtlsConnectionNegotiatedProtocolPropertyInfo), '("peerCertificate", Gio.DtlsConnection.DtlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", Gio.DtlsConnection.DtlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", Gio.DtlsConnection.DtlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", Gio.DtlsConnection.DtlsConnectionRequireCloseNotifyPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dtlsServerConnectionAuthenticationMode :: AttrLabelProxy "authenticationMode"-dtlsServerConnectionAuthenticationMode = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type family ResolveDtlsServerConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveDtlsServerConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDtlsServerConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDtlsServerConnectionMethod "close" o = Gio.DtlsConnection.DtlsConnectionCloseMethodInfo-    ResolveDtlsServerConnectionMethod "closeAsync" o = Gio.DtlsConnection.DtlsConnectionCloseAsyncMethodInfo-    ResolveDtlsServerConnectionMethod "closeFinish" o = Gio.DtlsConnection.DtlsConnectionCloseFinishMethodInfo-    ResolveDtlsServerConnectionMethod "conditionCheck" o = Gio.DatagramBased.DatagramBasedConditionCheckMethodInfo-    ResolveDtlsServerConnectionMethod "conditionWait" o = Gio.DatagramBased.DatagramBasedConditionWaitMethodInfo-    ResolveDtlsServerConnectionMethod "createSource" o = Gio.DatagramBased.DatagramBasedCreateSourceMethodInfo-    ResolveDtlsServerConnectionMethod "emitAcceptCertificate" o = Gio.DtlsConnection.DtlsConnectionEmitAcceptCertificateMethodInfo-    ResolveDtlsServerConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDtlsServerConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDtlsServerConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDtlsServerConnectionMethod "handshake" o = Gio.DtlsConnection.DtlsConnectionHandshakeMethodInfo-    ResolveDtlsServerConnectionMethod "handshakeAsync" o = Gio.DtlsConnection.DtlsConnectionHandshakeAsyncMethodInfo-    ResolveDtlsServerConnectionMethod "handshakeFinish" o = Gio.DtlsConnection.DtlsConnectionHandshakeFinishMethodInfo-    ResolveDtlsServerConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDtlsServerConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDtlsServerConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDtlsServerConnectionMethod "receiveMessages" o = Gio.DatagramBased.DatagramBasedReceiveMessagesMethodInfo-    ResolveDtlsServerConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDtlsServerConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDtlsServerConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDtlsServerConnectionMethod "sendMessages" o = Gio.DatagramBased.DatagramBasedSendMessagesMethodInfo-    ResolveDtlsServerConnectionMethod "shutdown" o = Gio.DtlsConnection.DtlsConnectionShutdownMethodInfo-    ResolveDtlsServerConnectionMethod "shutdownAsync" o = Gio.DtlsConnection.DtlsConnectionShutdownAsyncMethodInfo-    ResolveDtlsServerConnectionMethod "shutdownFinish" o = Gio.DtlsConnection.DtlsConnectionShutdownFinishMethodInfo-    ResolveDtlsServerConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDtlsServerConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDtlsServerConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDtlsServerConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDtlsServerConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDtlsServerConnectionMethod "getCertificate" o = Gio.DtlsConnection.DtlsConnectionGetCertificateMethodInfo-    ResolveDtlsServerConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDtlsServerConnectionMethod "getDatabase" o = Gio.DtlsConnection.DtlsConnectionGetDatabaseMethodInfo-    ResolveDtlsServerConnectionMethod "getInteraction" o = Gio.DtlsConnection.DtlsConnectionGetInteractionMethodInfo-    ResolveDtlsServerConnectionMethod "getNegotiatedProtocol" o = Gio.DtlsConnection.DtlsConnectionGetNegotiatedProtocolMethodInfo-    ResolveDtlsServerConnectionMethod "getPeerCertificate" o = Gio.DtlsConnection.DtlsConnectionGetPeerCertificateMethodInfo-    ResolveDtlsServerConnectionMethod "getPeerCertificateErrors" o = Gio.DtlsConnection.DtlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveDtlsServerConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDtlsServerConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDtlsServerConnectionMethod "getRehandshakeMode" o = Gio.DtlsConnection.DtlsConnectionGetRehandshakeModeMethodInfo-    ResolveDtlsServerConnectionMethod "getRequireCloseNotify" o = Gio.DtlsConnection.DtlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveDtlsServerConnectionMethod "setAdvertisedProtocols" o = Gio.DtlsConnection.DtlsConnectionSetAdvertisedProtocolsMethodInfo-    ResolveDtlsServerConnectionMethod "setCertificate" o = Gio.DtlsConnection.DtlsConnectionSetCertificateMethodInfo-    ResolveDtlsServerConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDtlsServerConnectionMethod "setDatabase" o = Gio.DtlsConnection.DtlsConnectionSetDatabaseMethodInfo-    ResolveDtlsServerConnectionMethod "setInteraction" o = Gio.DtlsConnection.DtlsConnectionSetInteractionMethodInfo-    ResolveDtlsServerConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDtlsServerConnectionMethod "setRehandshakeMode" o = Gio.DtlsConnection.DtlsConnectionSetRehandshakeModeMethodInfo-    ResolveDtlsServerConnectionMethod "setRequireCloseNotify" o = Gio.DtlsConnection.DtlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveDtlsServerConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDtlsServerConnectionMethod t DtlsServerConnection, O.MethodInfo info DtlsServerConnection p) => OL.IsLabel t (DtlsServerConnection -> 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 DtlsServerConnection::new--- method type : MemberFunction--- Args : [Arg {argCName = "base_socket", argType = TInterface (Name {namespace = "Gio", name = "DatagramBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GDatagramBased to wrap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the default server certificate, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DtlsServerConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_dtls_server_connection_new" g_dtls_server_connection_new :: -    Ptr Gio.DatagramBased.DatagramBased ->  -- base_socket : TInterface (Name {namespace = "Gio", name = "DatagramBased"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DtlsServerConnection)--{- |-Creates a new 'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection' wrapping /@baseSocket@/.--/Since: 2.48/--}-dtlsServerConnectionNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DatagramBased.IsDatagramBased a, Gio.TlsCertificate.IsTlsCertificate b) =>-    a-    {- ^ /@baseSocket@/: the 'GI.Gio.Interfaces.DatagramBased.DatagramBased' to wrap -}-    -> Maybe (b)-    {- ^ /@certificate@/: the default server certificate, or 'Nothing' -}-    -> m DtlsServerConnection-    {- ^ __Returns:__ the new-  'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-dtlsServerConnectionNew baseSocket certificate = liftIO $ do-    baseSocket' <- unsafeManagedPtrCastPtr baseSocket-    maybeCertificate <- case certificate of-        Nothing -> return nullPtr-        Just jCertificate -> do-            jCertificate' <- unsafeManagedPtrCastPtr jCertificate-            return jCertificate'-    onException (do-        result <- propagateGError $ g_dtls_server_connection_new baseSocket' maybeCertificate-        checkUnexpectedReturnNULL "dtlsServerConnectionNew" result-        result' <- (wrapObject DtlsServerConnection) result-        touchManagedPtr baseSocket-        whenJust certificate touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/DtlsServerConnection.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.DtlsServerConnection 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 DtlsServerConnection = DtlsServerConnection (ManagedPtr DtlsServerConnection)-instance GObject DtlsServerConnection where-class (GObject o, O.IsDescendantOf DtlsServerConnection o) => IsDtlsServerConnection o-instance (GObject o, O.IsDescendantOf DtlsServerConnection o) => IsDtlsServerConnection o-instance O.HasParentTypes DtlsServerConnection-#if ENABLE_OVERLOADING-data DtlsServerConnectionAuthenticationModePropertyInfo-#endif
− GI/Gio/Interfaces/File.hs 
@@ -1,9099 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.File.File' is a high level abstraction for manipulating files on a-virtual file system. @/GFiles/@ are lightweight, immutable objects-that do no I\/O upon creation. It is necessary to understand that-'GI.Gio.Interfaces.File.File' objects do not represent files, merely an identifier for a-file. All file content I\/O is implemented as streaming operations-(see 'GI.Gio.Objects.InputStream.InputStream' and 'GI.Gio.Objects.OutputStream.OutputStream').--To construct a 'GI.Gio.Interfaces.File.File', you can use:--* 'GI.Gio.Functions.fileNewForPath' if you have a path.-* 'GI.Gio.Functions.fileNewForUri' if you have a URI.-* 'GI.Gio.Functions.fileNewForCommandlineArg' for a command line argument.-* 'GI.Gio.Functions.fileNewTmp' to create a temporary file from a template.-* 'GI.Gio.Functions.fileParseName' from a UTF-8 string gotten from 'GI.Gio.Interfaces.File.fileGetParseName'.-* @/g_file_new_build_filename()/@ to create a file from path elements.---One way to think of a 'GI.Gio.Interfaces.File.File' is as an abstraction of a pathname. For-normal files the system pathname is what is stored internally, but as-@/GFiles/@ are extensible it could also be something else that corresponds-to a pathname in a userspace implementation of a filesystem.--@/GFiles/@ make up hierarchies of directories and files that correspond to-the files on a filesystem. You can move through the file system with-'GI.Gio.Interfaces.File.File' using 'GI.Gio.Interfaces.File.fileGetParent' to get an identifier for the parent-directory, 'GI.Gio.Interfaces.File.fileGetChild' to get a child within a directory,-'GI.Gio.Interfaces.File.fileResolveRelativePath' to resolve a relative path between two-@/GFiles/@. There can be multiple hierarchies, so you may not end up at-the same root if you repeatedly call 'GI.Gio.Interfaces.File.fileGetParent' on two different-files.--All @/GFiles/@ have a basename (get with 'GI.Gio.Interfaces.File.fileGetBasename'). These names-are byte strings that are used to identify the file on the filesystem-(relative to its parent directory) and there is no guarantees that they-have any particular charset encoding or even make any sense at all. If-you want to use filenames in a user interface you should use the display-name that you can get by requesting the-'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME' attribute with 'GI.Gio.Interfaces.File.fileQueryInfo'.-This is guaranteed to be in UTF-8 and can be used in a user interface.-But always store the real basename or the 'GI.Gio.Interfaces.File.File' to use to actually-access the file, because there is no way to go from a display name to-the actual name.--Using 'GI.Gio.Interfaces.File.File' as an identifier has the same weaknesses as using a path-in that there may be multiple aliases for the same file. For instance,-hard or soft links may cause two different @/GFiles/@ to refer to the same-file. Other possible causes for aliases are: case insensitive filesystems,-short and long names on FAT\/NTFS, or bind mounts in Linux. If you want to-check if two @/GFiles/@ point to the same file you can query for the-'GI.Gio.Constants.FILE_ATTRIBUTE_ID_FILE' attribute. Note that 'GI.Gio.Interfaces.File.File' does some trivial-canonicalization of pathnames passed in, so that trivial differences in-the path string used at creation (duplicated slashes, slash at end of-path, \".\" or \"..\" path segments, etc) does not create different @/GFiles/@.--Many 'GI.Gio.Interfaces.File.File' operations have both synchronous and asynchronous versions-to suit your application. Asynchronous versions of synchronous functions-simply have @/_async()/@ appended to their function names. The asynchronous-I\/O functions call a 'GI.Gio.Callbacks.AsyncReadyCallback' which is then used to finalize-the operation, producing a GAsyncResult which is then passed to the-function\'s matching @/_finish()/@ operation.--It is highly recommended to use asynchronous calls when running within a-shared main loop, such as in the main thread of an application. This avoids-I\/O operations blocking other sources on the main loop from being dispatched.-Synchronous I\/O operations should be performed from worker threads. See the-[introduction to asynchronous programming section][async-programming] for-more.--Some 'GI.Gio.Interfaces.File.File' operations almost always take a noticeable amount of time, and-so do not have synchronous analogs. Notable cases include:--* 'GI.Gio.Interfaces.File.fileMountMountable' to mount a mountable file.-* 'GI.Gio.Interfaces.File.fileUnmountMountableWithOperation' to unmount a mountable file.-* 'GI.Gio.Interfaces.File.fileEjectMountableWithOperation' to eject a mountable file.---## Entity Tags # {@/gfile/@-etag}--One notable feature of @/GFiles/@ are entity tags, or \"etags\" for-short. Entity tags are somewhat like a more abstract version of the-traditional mtime, and can be used to quickly determine if the file-has been modified from the version on the file system. See the-HTTP 1.1-<http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html specification>-for HTTP Etag headers, which are a very similar concept.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.File-    ( -#if ENABLE_OVERLOADING-    FileCopyAsyncMethodInfo                 ,-#endif---- * Exported types-    File(..)                                ,-    noFile                                  ,-    IsFile                                  ,-    toFile                                  ,--- -- * Methods--- ** appendTo #method:appendTo#--#if ENABLE_OVERLOADING-    FileAppendToMethodInfo                  ,-#endif-    fileAppendTo                            ,----- ** appendToAsync #method:appendToAsync#--#if ENABLE_OVERLOADING-    FileAppendToAsyncMethodInfo             ,-#endif-    fileAppendToAsync                       ,----- ** appendToFinish #method:appendToFinish#--#if ENABLE_OVERLOADING-    FileAppendToFinishMethodInfo            ,-#endif-    fileAppendToFinish                      ,----- ** copy #method:copy#--#if ENABLE_OVERLOADING-    FileCopyMethodInfo                      ,-#endif-    fileCopy                                ,----- ** copyAttributes #method:copyAttributes#--#if ENABLE_OVERLOADING-    FileCopyAttributesMethodInfo            ,-#endif-    fileCopyAttributes                      ,----- ** copyFinish #method:copyFinish#--#if ENABLE_OVERLOADING-    FileCopyFinishMethodInfo                ,-#endif-    fileCopyFinish                          ,----- ** create #method:create#--#if ENABLE_OVERLOADING-    FileCreateMethodInfo                    ,-#endif-    fileCreate                              ,----- ** createAsync #method:createAsync#--#if ENABLE_OVERLOADING-    FileCreateAsyncMethodInfo               ,-#endif-    fileCreateAsync                         ,----- ** createFinish #method:createFinish#--#if ENABLE_OVERLOADING-    FileCreateFinishMethodInfo              ,-#endif-    fileCreateFinish                        ,----- ** createReadwrite #method:createReadwrite#--#if ENABLE_OVERLOADING-    FileCreateReadwriteMethodInfo           ,-#endif-    fileCreateReadwrite                     ,----- ** createReadwriteAsync #method:createReadwriteAsync#--#if ENABLE_OVERLOADING-    FileCreateReadwriteAsyncMethodInfo      ,-#endif-    fileCreateReadwriteAsync                ,----- ** createReadwriteFinish #method:createReadwriteFinish#--#if ENABLE_OVERLOADING-    FileCreateReadwriteFinishMethodInfo     ,-#endif-    fileCreateReadwriteFinish               ,----- ** delete #method:delete#--#if ENABLE_OVERLOADING-    FileDeleteMethodInfo                    ,-#endif-    fileDelete                              ,----- ** deleteAsync #method:deleteAsync#--#if ENABLE_OVERLOADING-    FileDeleteAsyncMethodInfo               ,-#endif-    fileDeleteAsync                         ,----- ** deleteFinish #method:deleteFinish#--#if ENABLE_OVERLOADING-    FileDeleteFinishMethodInfo              ,-#endif-    fileDeleteFinish                        ,----- ** dup #method:dup#--#if ENABLE_OVERLOADING-    FileDupMethodInfo                       ,-#endif-    fileDup                                 ,----- ** ejectMountable #method:ejectMountable#--#if ENABLE_OVERLOADING-    FileEjectMountableMethodInfo            ,-#endif-    fileEjectMountable                      ,----- ** ejectMountableFinish #method:ejectMountableFinish#--#if ENABLE_OVERLOADING-    FileEjectMountableFinishMethodInfo      ,-#endif-    fileEjectMountableFinish                ,----- ** ejectMountableWithOperation #method:ejectMountableWithOperation#--#if ENABLE_OVERLOADING-    FileEjectMountableWithOperationMethodInfo,-#endif-    fileEjectMountableWithOperation         ,----- ** ejectMountableWithOperationFinish #method:ejectMountableWithOperationFinish#--#if ENABLE_OVERLOADING-    FileEjectMountableWithOperationFinishMethodInfo,-#endif-    fileEjectMountableWithOperationFinish   ,----- ** enumerateChildren #method:enumerateChildren#--#if ENABLE_OVERLOADING-    FileEnumerateChildrenMethodInfo         ,-#endif-    fileEnumerateChildren                   ,----- ** enumerateChildrenAsync #method:enumerateChildrenAsync#--#if ENABLE_OVERLOADING-    FileEnumerateChildrenAsyncMethodInfo    ,-#endif-    fileEnumerateChildrenAsync              ,----- ** enumerateChildrenFinish #method:enumerateChildrenFinish#--#if ENABLE_OVERLOADING-    FileEnumerateChildrenFinishMethodInfo   ,-#endif-    fileEnumerateChildrenFinish             ,----- ** equal #method:equal#--#if ENABLE_OVERLOADING-    FileEqualMethodInfo                     ,-#endif-    fileEqual                               ,----- ** findEnclosingMount #method:findEnclosingMount#--#if ENABLE_OVERLOADING-    FileFindEnclosingMountMethodInfo        ,-#endif-    fileFindEnclosingMount                  ,----- ** findEnclosingMountAsync #method:findEnclosingMountAsync#--#if ENABLE_OVERLOADING-    FileFindEnclosingMountAsyncMethodInfo   ,-#endif-    fileFindEnclosingMountAsync             ,----- ** findEnclosingMountFinish #method:findEnclosingMountFinish#--#if ENABLE_OVERLOADING-    FileFindEnclosingMountFinishMethodInfo  ,-#endif-    fileFindEnclosingMountFinish            ,----- ** getBasename #method:getBasename#--#if ENABLE_OVERLOADING-    FileGetBasenameMethodInfo               ,-#endif-    fileGetBasename                         ,----- ** getChild #method:getChild#--#if ENABLE_OVERLOADING-    FileGetChildMethodInfo                  ,-#endif-    fileGetChild                            ,----- ** getChildForDisplayName #method:getChildForDisplayName#--#if ENABLE_OVERLOADING-    FileGetChildForDisplayNameMethodInfo    ,-#endif-    fileGetChildForDisplayName              ,----- ** getParent #method:getParent#--#if ENABLE_OVERLOADING-    FileGetParentMethodInfo                 ,-#endif-    fileGetParent                           ,----- ** getParseName #method:getParseName#--#if ENABLE_OVERLOADING-    FileGetParseNameMethodInfo              ,-#endif-    fileGetParseName                        ,----- ** getPath #method:getPath#--#if ENABLE_OVERLOADING-    FileGetPathMethodInfo                   ,-#endif-    fileGetPath                             ,----- ** getRelativePath #method:getRelativePath#--#if ENABLE_OVERLOADING-    FileGetRelativePathMethodInfo           ,-#endif-    fileGetRelativePath                     ,----- ** getUri #method:getUri#--#if ENABLE_OVERLOADING-    FileGetUriMethodInfo                    ,-#endif-    fileGetUri                              ,----- ** getUriScheme #method:getUriScheme#--#if ENABLE_OVERLOADING-    FileGetUriSchemeMethodInfo              ,-#endif-    fileGetUriScheme                        ,----- ** hasParent #method:hasParent#--#if ENABLE_OVERLOADING-    FileHasParentMethodInfo                 ,-#endif-    fileHasParent                           ,----- ** hasPrefix #method:hasPrefix#--#if ENABLE_OVERLOADING-    FileHasPrefixMethodInfo                 ,-#endif-    fileHasPrefix                           ,----- ** hasUriScheme #method:hasUriScheme#--#if ENABLE_OVERLOADING-    FileHasUriSchemeMethodInfo              ,-#endif-    fileHasUriScheme                        ,----- ** hash #method:hash#--#if ENABLE_OVERLOADING-    FileHashMethodInfo                      ,-#endif-    fileHash                                ,----- ** isNative #method:isNative#--#if ENABLE_OVERLOADING-    FileIsNativeMethodInfo                  ,-#endif-    fileIsNative                            ,----- ** loadBytes #method:loadBytes#--#if ENABLE_OVERLOADING-    FileLoadBytesMethodInfo                 ,-#endif-    fileLoadBytes                           ,----- ** loadBytesAsync #method:loadBytesAsync#--#if ENABLE_OVERLOADING-    FileLoadBytesAsyncMethodInfo            ,-#endif-    fileLoadBytesAsync                      ,----- ** loadBytesFinish #method:loadBytesFinish#--#if ENABLE_OVERLOADING-    FileLoadBytesFinishMethodInfo           ,-#endif-    fileLoadBytesFinish                     ,----- ** loadContents #method:loadContents#--#if ENABLE_OVERLOADING-    FileLoadContentsMethodInfo              ,-#endif-    fileLoadContents                        ,----- ** loadContentsAsync #method:loadContentsAsync#--#if ENABLE_OVERLOADING-    FileLoadContentsAsyncMethodInfo         ,-#endif-    fileLoadContentsAsync                   ,----- ** loadContentsFinish #method:loadContentsFinish#--#if ENABLE_OVERLOADING-    FileLoadContentsFinishMethodInfo        ,-#endif-    fileLoadContentsFinish                  ,----- ** loadPartialContentsFinish #method:loadPartialContentsFinish#--#if ENABLE_OVERLOADING-    FileLoadPartialContentsFinishMethodInfo ,-#endif-    fileLoadPartialContentsFinish           ,----- ** makeDirectory #method:makeDirectory#--#if ENABLE_OVERLOADING-    FileMakeDirectoryMethodInfo             ,-#endif-    fileMakeDirectory                       ,----- ** makeDirectoryAsync #method:makeDirectoryAsync#--#if ENABLE_OVERLOADING-    FileMakeDirectoryAsyncMethodInfo        ,-#endif-    fileMakeDirectoryAsync                  ,----- ** makeDirectoryFinish #method:makeDirectoryFinish#--#if ENABLE_OVERLOADING-    FileMakeDirectoryFinishMethodInfo       ,-#endif-    fileMakeDirectoryFinish                 ,----- ** makeDirectoryWithParents #method:makeDirectoryWithParents#--#if ENABLE_OVERLOADING-    FileMakeDirectoryWithParentsMethodInfo  ,-#endif-    fileMakeDirectoryWithParents            ,----- ** makeSymbolicLink #method:makeSymbolicLink#--#if ENABLE_OVERLOADING-    FileMakeSymbolicLinkMethodInfo          ,-#endif-    fileMakeSymbolicLink                    ,----- ** measureDiskUsageFinish #method:measureDiskUsageFinish#--#if ENABLE_OVERLOADING-    FileMeasureDiskUsageFinishMethodInfo    ,-#endif-    fileMeasureDiskUsageFinish              ,----- ** monitor #method:monitor#--#if ENABLE_OVERLOADING-    FileMonitorMethodInfo                   ,-#endif-    fileMonitor                             ,----- ** monitorDirectory #method:monitorDirectory#--#if ENABLE_OVERLOADING-    FileMonitorDirectoryMethodInfo          ,-#endif-    fileMonitorDirectory                    ,----- ** monitorFile #method:monitorFile#--#if ENABLE_OVERLOADING-    FileMonitorFileMethodInfo               ,-#endif-    fileMonitorFile                         ,----- ** mountEnclosingVolume #method:mountEnclosingVolume#--#if ENABLE_OVERLOADING-    FileMountEnclosingVolumeMethodInfo      ,-#endif-    fileMountEnclosingVolume                ,----- ** mountEnclosingVolumeFinish #method:mountEnclosingVolumeFinish#--#if ENABLE_OVERLOADING-    FileMountEnclosingVolumeFinishMethodInfo,-#endif-    fileMountEnclosingVolumeFinish          ,----- ** mountMountable #method:mountMountable#--#if ENABLE_OVERLOADING-    FileMountMountableMethodInfo            ,-#endif-    fileMountMountable                      ,----- ** mountMountableFinish #method:mountMountableFinish#--#if ENABLE_OVERLOADING-    FileMountMountableFinishMethodInfo      ,-#endif-    fileMountMountableFinish                ,----- ** move #method:move#--#if ENABLE_OVERLOADING-    FileMoveMethodInfo                      ,-#endif-    fileMove                                ,----- ** newForCommandlineArg #method:newForCommandlineArg#--    fileNewForCommandlineArg                ,----- ** newForCommandlineArgAndCwd #method:newForCommandlineArgAndCwd#--    fileNewForCommandlineArgAndCwd          ,----- ** newForPath #method:newForPath#--    fileNewForPath                          ,----- ** newForUri #method:newForUri#--    fileNewForUri                           ,----- ** newTmp #method:newTmp#--    fileNewTmp                              ,----- ** openReadwrite #method:openReadwrite#--#if ENABLE_OVERLOADING-    FileOpenReadwriteMethodInfo             ,-#endif-    fileOpenReadwrite                       ,----- ** openReadwriteAsync #method:openReadwriteAsync#--#if ENABLE_OVERLOADING-    FileOpenReadwriteAsyncMethodInfo        ,-#endif-    fileOpenReadwriteAsync                  ,----- ** openReadwriteFinish #method:openReadwriteFinish#--#if ENABLE_OVERLOADING-    FileOpenReadwriteFinishMethodInfo       ,-#endif-    fileOpenReadwriteFinish                 ,----- ** parseName #method:parseName#--    fileParseName                           ,----- ** peekPath #method:peekPath#--#if ENABLE_OVERLOADING-    FilePeekPathMethodInfo                  ,-#endif-    filePeekPath                            ,----- ** pollMountable #method:pollMountable#--#if ENABLE_OVERLOADING-    FilePollMountableMethodInfo             ,-#endif-    filePollMountable                       ,----- ** pollMountableFinish #method:pollMountableFinish#--#if ENABLE_OVERLOADING-    FilePollMountableFinishMethodInfo       ,-#endif-    filePollMountableFinish                 ,----- ** queryDefaultHandler #method:queryDefaultHandler#--#if ENABLE_OVERLOADING-    FileQueryDefaultHandlerMethodInfo       ,-#endif-    fileQueryDefaultHandler                 ,----- ** queryDefaultHandlerAsync #method:queryDefaultHandlerAsync#--#if ENABLE_OVERLOADING-    FileQueryDefaultHandlerAsyncMethodInfo  ,-#endif-    fileQueryDefaultHandlerAsync            ,----- ** queryDefaultHandlerFinish #method:queryDefaultHandlerFinish#--#if ENABLE_OVERLOADING-    FileQueryDefaultHandlerFinishMethodInfo ,-#endif-    fileQueryDefaultHandlerFinish           ,----- ** queryExists #method:queryExists#--#if ENABLE_OVERLOADING-    FileQueryExistsMethodInfo               ,-#endif-    fileQueryExists                         ,----- ** queryFileType #method:queryFileType#--#if ENABLE_OVERLOADING-    FileQueryFileTypeMethodInfo             ,-#endif-    fileQueryFileType                       ,----- ** queryFilesystemInfo #method:queryFilesystemInfo#--#if ENABLE_OVERLOADING-    FileQueryFilesystemInfoMethodInfo       ,-#endif-    fileQueryFilesystemInfo                 ,----- ** queryFilesystemInfoAsync #method:queryFilesystemInfoAsync#--#if ENABLE_OVERLOADING-    FileQueryFilesystemInfoAsyncMethodInfo  ,-#endif-    fileQueryFilesystemInfoAsync            ,----- ** queryFilesystemInfoFinish #method:queryFilesystemInfoFinish#--#if ENABLE_OVERLOADING-    FileQueryFilesystemInfoFinishMethodInfo ,-#endif-    fileQueryFilesystemInfoFinish           ,----- ** queryInfo #method:queryInfo#--#if ENABLE_OVERLOADING-    FileQueryInfoMethodInfo                 ,-#endif-    fileQueryInfo                           ,----- ** queryInfoAsync #method:queryInfoAsync#--#if ENABLE_OVERLOADING-    FileQueryInfoAsyncMethodInfo            ,-#endif-    fileQueryInfoAsync                      ,----- ** queryInfoFinish #method:queryInfoFinish#--#if ENABLE_OVERLOADING-    FileQueryInfoFinishMethodInfo           ,-#endif-    fileQueryInfoFinish                     ,----- ** querySettableAttributes #method:querySettableAttributes#--#if ENABLE_OVERLOADING-    FileQuerySettableAttributesMethodInfo   ,-#endif-    fileQuerySettableAttributes             ,----- ** queryWritableNamespaces #method:queryWritableNamespaces#--#if ENABLE_OVERLOADING-    FileQueryWritableNamespacesMethodInfo   ,-#endif-    fileQueryWritableNamespaces             ,----- ** read #method:read#--#if ENABLE_OVERLOADING-    FileReadMethodInfo                      ,-#endif-    fileRead                                ,----- ** readAsync #method:readAsync#--#if ENABLE_OVERLOADING-    FileReadAsyncMethodInfo                 ,-#endif-    fileReadAsync                           ,----- ** readFinish #method:readFinish#--#if ENABLE_OVERLOADING-    FileReadFinishMethodInfo                ,-#endif-    fileReadFinish                          ,----- ** replace #method:replace#--#if ENABLE_OVERLOADING-    FileReplaceMethodInfo                   ,-#endif-    fileReplace                             ,----- ** replaceAsync #method:replaceAsync#--#if ENABLE_OVERLOADING-    FileReplaceAsyncMethodInfo              ,-#endif-    fileReplaceAsync                        ,----- ** replaceContents #method:replaceContents#--#if ENABLE_OVERLOADING-    FileReplaceContentsMethodInfo           ,-#endif-    fileReplaceContents                     ,----- ** replaceContentsAsync #method:replaceContentsAsync#--#if ENABLE_OVERLOADING-    FileReplaceContentsAsyncMethodInfo      ,-#endif-    fileReplaceContentsAsync                ,----- ** replaceContentsBytesAsync #method:replaceContentsBytesAsync#--#if ENABLE_OVERLOADING-    FileReplaceContentsBytesAsyncMethodInfo ,-#endif-    fileReplaceContentsBytesAsync           ,----- ** replaceContentsFinish #method:replaceContentsFinish#--#if ENABLE_OVERLOADING-    FileReplaceContentsFinishMethodInfo     ,-#endif-    fileReplaceContentsFinish               ,----- ** replaceFinish #method:replaceFinish#--#if ENABLE_OVERLOADING-    FileReplaceFinishMethodInfo             ,-#endif-    fileReplaceFinish                       ,----- ** replaceReadwrite #method:replaceReadwrite#--#if ENABLE_OVERLOADING-    FileReplaceReadwriteMethodInfo          ,-#endif-    fileReplaceReadwrite                    ,----- ** replaceReadwriteAsync #method:replaceReadwriteAsync#--#if ENABLE_OVERLOADING-    FileReplaceReadwriteAsyncMethodInfo     ,-#endif-    fileReplaceReadwriteAsync               ,----- ** replaceReadwriteFinish #method:replaceReadwriteFinish#--#if ENABLE_OVERLOADING-    FileReplaceReadwriteFinishMethodInfo    ,-#endif-    fileReplaceReadwriteFinish              ,----- ** resolveRelativePath #method:resolveRelativePath#--#if ENABLE_OVERLOADING-    FileResolveRelativePathMethodInfo       ,-#endif-    fileResolveRelativePath                 ,----- ** setAttribute #method:setAttribute#--#if ENABLE_OVERLOADING-    FileSetAttributeMethodInfo              ,-#endif-    fileSetAttribute                        ,----- ** setAttributeByteString #method:setAttributeByteString#--#if ENABLE_OVERLOADING-    FileSetAttributeByteStringMethodInfo    ,-#endif-    fileSetAttributeByteString              ,----- ** setAttributeInt32 #method:setAttributeInt32#--#if ENABLE_OVERLOADING-    FileSetAttributeInt32MethodInfo         ,-#endif-    fileSetAttributeInt32                   ,----- ** setAttributeInt64 #method:setAttributeInt64#--#if ENABLE_OVERLOADING-    FileSetAttributeInt64MethodInfo         ,-#endif-    fileSetAttributeInt64                   ,----- ** setAttributeString #method:setAttributeString#--#if ENABLE_OVERLOADING-    FileSetAttributeStringMethodInfo        ,-#endif-    fileSetAttributeString                  ,----- ** setAttributeUint32 #method:setAttributeUint32#--#if ENABLE_OVERLOADING-    FileSetAttributeUint32MethodInfo        ,-#endif-    fileSetAttributeUint32                  ,----- ** setAttributeUint64 #method:setAttributeUint64#--#if ENABLE_OVERLOADING-    FileSetAttributeUint64MethodInfo        ,-#endif-    fileSetAttributeUint64                  ,----- ** setAttributesAsync #method:setAttributesAsync#--#if ENABLE_OVERLOADING-    FileSetAttributesAsyncMethodInfo        ,-#endif-    fileSetAttributesAsync                  ,----- ** setAttributesFinish #method:setAttributesFinish#--#if ENABLE_OVERLOADING-    FileSetAttributesFinishMethodInfo       ,-#endif-    fileSetAttributesFinish                 ,----- ** setAttributesFromInfo #method:setAttributesFromInfo#--#if ENABLE_OVERLOADING-    FileSetAttributesFromInfoMethodInfo     ,-#endif-    fileSetAttributesFromInfo               ,----- ** setDisplayName #method:setDisplayName#--#if ENABLE_OVERLOADING-    FileSetDisplayNameMethodInfo            ,-#endif-    fileSetDisplayName                      ,----- ** setDisplayNameAsync #method:setDisplayNameAsync#--#if ENABLE_OVERLOADING-    FileSetDisplayNameAsyncMethodInfo       ,-#endif-    fileSetDisplayNameAsync                 ,----- ** setDisplayNameFinish #method:setDisplayNameFinish#--#if ENABLE_OVERLOADING-    FileSetDisplayNameFinishMethodInfo      ,-#endif-    fileSetDisplayNameFinish                ,----- ** startMountable #method:startMountable#--#if ENABLE_OVERLOADING-    FileStartMountableMethodInfo            ,-#endif-    fileStartMountable                      ,----- ** startMountableFinish #method:startMountableFinish#--#if ENABLE_OVERLOADING-    FileStartMountableFinishMethodInfo      ,-#endif-    fileStartMountableFinish                ,----- ** stopMountable #method:stopMountable#--#if ENABLE_OVERLOADING-    FileStopMountableMethodInfo             ,-#endif-    fileStopMountable                       ,----- ** stopMountableFinish #method:stopMountableFinish#--#if ENABLE_OVERLOADING-    FileStopMountableFinishMethodInfo       ,-#endif-    fileStopMountableFinish                 ,----- ** supportsThreadContexts #method:supportsThreadContexts#--#if ENABLE_OVERLOADING-    FileSupportsThreadContextsMethodInfo    ,-#endif-    fileSupportsThreadContexts              ,----- ** trash #method:trash#--#if ENABLE_OVERLOADING-    FileTrashMethodInfo                     ,-#endif-    fileTrash                               ,----- ** trashAsync #method:trashAsync#--#if ENABLE_OVERLOADING-    FileTrashAsyncMethodInfo                ,-#endif-    fileTrashAsync                          ,----- ** trashFinish #method:trashFinish#--#if ENABLE_OVERLOADING-    FileTrashFinishMethodInfo               ,-#endif-    fileTrashFinish                         ,----- ** unmountMountable #method:unmountMountable#--#if ENABLE_OVERLOADING-    FileUnmountMountableMethodInfo          ,-#endif-    fileUnmountMountable                    ,----- ** unmountMountableFinish #method:unmountMountableFinish#--#if ENABLE_OVERLOADING-    FileUnmountMountableFinishMethodInfo    ,-#endif-    fileUnmountMountableFinish              ,----- ** unmountMountableWithOperation #method:unmountMountableWithOperation#--#if ENABLE_OVERLOADING-    FileUnmountMountableWithOperationMethodInfo,-#endif-    fileUnmountMountableWithOperation       ,----- ** unmountMountableWithOperationFinish #method:unmountMountableWithOperationFinish#--#if ENABLE_OVERLOADING-    FileUnmountMountableWithOperationFinishMethodInfo,-#endif-    fileUnmountMountableWithOperationFinish ,-----    ) 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.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Mount as Gio.Mount-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.FileEnumerator as Gio.FileEnumerator-import {-# SOURCE #-} qualified GI.Gio.Objects.FileIOStream as Gio.FileIOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo-import {-# SOURCE #-} qualified GI.Gio.Objects.FileInputStream as Gio.FileInputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.FileMonitor as Gio.FileMonitor-import {-# SOURCE #-} qualified GI.Gio.Objects.FileOutputStream as Gio.FileOutputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.MountOperation as Gio.MountOperation-import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeInfoList as Gio.FileAttributeInfoList---- interface File --- | Memory-managed wrapper type.-newtype File = File (ManagedPtr File)--- | A convenience alias for `Nothing` :: `Maybe` `File`.-noFile :: Maybe File-noFile = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList File = FileSignalList-type FileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_file_get_type"-    c_g_file_get_type :: IO GType--instance GObject File where-    gobjectType = c_g_file_get_type-    ---- | Type class for types which can be safely cast to `File`, for instance with `toFile`.-class (GObject o, O.IsDescendantOf File o) => IsFile o-instance (GObject o, O.IsDescendantOf File o) => IsFile o--instance O.HasParentTypes File-type instance O.ParentTypes File = '[GObject.Object.Object]---- | Cast to `File`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFile :: (MonadIO m, IsFile o) => o -> m File-toFile = liftIO . unsafeCastTo File--#if ENABLE_OVERLOADING-instance O.HasAttributeList File-type instance O.AttributeList File = FileAttributeList-type FileAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveFileMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileMethod "appendTo" o = FileAppendToMethodInfo-    ResolveFileMethod "appendToAsync" o = FileAppendToAsyncMethodInfo-    ResolveFileMethod "appendToFinish" o = FileAppendToFinishMethodInfo-    ResolveFileMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileMethod "copy" o = FileCopyMethodInfo-    ResolveFileMethod "copyAsync" o = FileCopyAsyncMethodInfo-    ResolveFileMethod "copyAttributes" o = FileCopyAttributesMethodInfo-    ResolveFileMethod "copyFinish" o = FileCopyFinishMethodInfo-    ResolveFileMethod "create" o = FileCreateMethodInfo-    ResolveFileMethod "createAsync" o = FileCreateAsyncMethodInfo-    ResolveFileMethod "createFinish" o = FileCreateFinishMethodInfo-    ResolveFileMethod "createReadwrite" o = FileCreateReadwriteMethodInfo-    ResolveFileMethod "createReadwriteAsync" o = FileCreateReadwriteAsyncMethodInfo-    ResolveFileMethod "createReadwriteFinish" o = FileCreateReadwriteFinishMethodInfo-    ResolveFileMethod "delete" o = FileDeleteMethodInfo-    ResolveFileMethod "deleteAsync" o = FileDeleteAsyncMethodInfo-    ResolveFileMethod "deleteFinish" o = FileDeleteFinishMethodInfo-    ResolveFileMethod "dup" o = FileDupMethodInfo-    ResolveFileMethod "ejectMountable" o = FileEjectMountableMethodInfo-    ResolveFileMethod "ejectMountableFinish" o = FileEjectMountableFinishMethodInfo-    ResolveFileMethod "ejectMountableWithOperation" o = FileEjectMountableWithOperationMethodInfo-    ResolveFileMethod "ejectMountableWithOperationFinish" o = FileEjectMountableWithOperationFinishMethodInfo-    ResolveFileMethod "enumerateChildren" o = FileEnumerateChildrenMethodInfo-    ResolveFileMethod "enumerateChildrenAsync" o = FileEnumerateChildrenAsyncMethodInfo-    ResolveFileMethod "enumerateChildrenFinish" o = FileEnumerateChildrenFinishMethodInfo-    ResolveFileMethod "equal" o = FileEqualMethodInfo-    ResolveFileMethod "findEnclosingMount" o = FileFindEnclosingMountMethodInfo-    ResolveFileMethod "findEnclosingMountAsync" o = FileFindEnclosingMountAsyncMethodInfo-    ResolveFileMethod "findEnclosingMountFinish" o = FileFindEnclosingMountFinishMethodInfo-    ResolveFileMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileMethod "hasParent" o = FileHasParentMethodInfo-    ResolveFileMethod "hasPrefix" o = FileHasPrefixMethodInfo-    ResolveFileMethod "hasUriScheme" o = FileHasUriSchemeMethodInfo-    ResolveFileMethod "hash" o = FileHashMethodInfo-    ResolveFileMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileMethod "isNative" o = FileIsNativeMethodInfo-    ResolveFileMethod "loadBytes" o = FileLoadBytesMethodInfo-    ResolveFileMethod "loadBytesAsync" o = FileLoadBytesAsyncMethodInfo-    ResolveFileMethod "loadBytesFinish" o = FileLoadBytesFinishMethodInfo-    ResolveFileMethod "loadContents" o = FileLoadContentsMethodInfo-    ResolveFileMethod "loadContentsAsync" o = FileLoadContentsAsyncMethodInfo-    ResolveFileMethod "loadContentsFinish" o = FileLoadContentsFinishMethodInfo-    ResolveFileMethod "loadPartialContentsFinish" o = FileLoadPartialContentsFinishMethodInfo-    ResolveFileMethod "makeDirectory" o = FileMakeDirectoryMethodInfo-    ResolveFileMethod "makeDirectoryAsync" o = FileMakeDirectoryAsyncMethodInfo-    ResolveFileMethod "makeDirectoryFinish" o = FileMakeDirectoryFinishMethodInfo-    ResolveFileMethod "makeDirectoryWithParents" o = FileMakeDirectoryWithParentsMethodInfo-    ResolveFileMethod "makeSymbolicLink" o = FileMakeSymbolicLinkMethodInfo-    ResolveFileMethod "measureDiskUsageFinish" o = FileMeasureDiskUsageFinishMethodInfo-    ResolveFileMethod "monitor" o = FileMonitorMethodInfo-    ResolveFileMethod "monitorDirectory" o = FileMonitorDirectoryMethodInfo-    ResolveFileMethod "monitorFile" o = FileMonitorFileMethodInfo-    ResolveFileMethod "mountEnclosingVolume" o = FileMountEnclosingVolumeMethodInfo-    ResolveFileMethod "mountEnclosingVolumeFinish" o = FileMountEnclosingVolumeFinishMethodInfo-    ResolveFileMethod "mountMountable" o = FileMountMountableMethodInfo-    ResolveFileMethod "mountMountableFinish" o = FileMountMountableFinishMethodInfo-    ResolveFileMethod "move" o = FileMoveMethodInfo-    ResolveFileMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileMethod "openReadwrite" o = FileOpenReadwriteMethodInfo-    ResolveFileMethod "openReadwriteAsync" o = FileOpenReadwriteAsyncMethodInfo-    ResolveFileMethod "openReadwriteFinish" o = FileOpenReadwriteFinishMethodInfo-    ResolveFileMethod "peekPath" o = FilePeekPathMethodInfo-    ResolveFileMethod "pollMountable" o = FilePollMountableMethodInfo-    ResolveFileMethod "pollMountableFinish" o = FilePollMountableFinishMethodInfo-    ResolveFileMethod "queryDefaultHandler" o = FileQueryDefaultHandlerMethodInfo-    ResolveFileMethod "queryDefaultHandlerAsync" o = FileQueryDefaultHandlerAsyncMethodInfo-    ResolveFileMethod "queryDefaultHandlerFinish" o = FileQueryDefaultHandlerFinishMethodInfo-    ResolveFileMethod "queryExists" o = FileQueryExistsMethodInfo-    ResolveFileMethod "queryFileType" o = FileQueryFileTypeMethodInfo-    ResolveFileMethod "queryFilesystemInfo" o = FileQueryFilesystemInfoMethodInfo-    ResolveFileMethod "queryFilesystemInfoAsync" o = FileQueryFilesystemInfoAsyncMethodInfo-    ResolveFileMethod "queryFilesystemInfoFinish" o = FileQueryFilesystemInfoFinishMethodInfo-    ResolveFileMethod "queryInfo" o = FileQueryInfoMethodInfo-    ResolveFileMethod "queryInfoAsync" o = FileQueryInfoAsyncMethodInfo-    ResolveFileMethod "queryInfoFinish" o = FileQueryInfoFinishMethodInfo-    ResolveFileMethod "querySettableAttributes" o = FileQuerySettableAttributesMethodInfo-    ResolveFileMethod "queryWritableNamespaces" o = FileQueryWritableNamespacesMethodInfo-    ResolveFileMethod "read" o = FileReadMethodInfo-    ResolveFileMethod "readAsync" o = FileReadAsyncMethodInfo-    ResolveFileMethod "readFinish" o = FileReadFinishMethodInfo-    ResolveFileMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileMethod "replace" o = FileReplaceMethodInfo-    ResolveFileMethod "replaceAsync" o = FileReplaceAsyncMethodInfo-    ResolveFileMethod "replaceContents" o = FileReplaceContentsMethodInfo-    ResolveFileMethod "replaceContentsAsync" o = FileReplaceContentsAsyncMethodInfo-    ResolveFileMethod "replaceContentsBytesAsync" o = FileReplaceContentsBytesAsyncMethodInfo-    ResolveFileMethod "replaceContentsFinish" o = FileReplaceContentsFinishMethodInfo-    ResolveFileMethod "replaceFinish" o = FileReplaceFinishMethodInfo-    ResolveFileMethod "replaceReadwrite" o = FileReplaceReadwriteMethodInfo-    ResolveFileMethod "replaceReadwriteAsync" o = FileReplaceReadwriteAsyncMethodInfo-    ResolveFileMethod "replaceReadwriteFinish" o = FileReplaceReadwriteFinishMethodInfo-    ResolveFileMethod "resolveRelativePath" o = FileResolveRelativePathMethodInfo-    ResolveFileMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileMethod "startMountable" o = FileStartMountableMethodInfo-    ResolveFileMethod "startMountableFinish" o = FileStartMountableFinishMethodInfo-    ResolveFileMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileMethod "stopMountable" o = FileStopMountableMethodInfo-    ResolveFileMethod "stopMountableFinish" o = FileStopMountableFinishMethodInfo-    ResolveFileMethod "supportsThreadContexts" o = FileSupportsThreadContextsMethodInfo-    ResolveFileMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileMethod "trash" o = FileTrashMethodInfo-    ResolveFileMethod "trashAsync" o = FileTrashAsyncMethodInfo-    ResolveFileMethod "trashFinish" o = FileTrashFinishMethodInfo-    ResolveFileMethod "unmountMountable" o = FileUnmountMountableMethodInfo-    ResolveFileMethod "unmountMountableFinish" o = FileUnmountMountableFinishMethodInfo-    ResolveFileMethod "unmountMountableWithOperation" o = FileUnmountMountableWithOperationMethodInfo-    ResolveFileMethod "unmountMountableWithOperationFinish" o = FileUnmountMountableWithOperationFinishMethodInfo-    ResolveFileMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileMethod "getBasename" o = FileGetBasenameMethodInfo-    ResolveFileMethod "getChild" o = FileGetChildMethodInfo-    ResolveFileMethod "getChildForDisplayName" o = FileGetChildForDisplayNameMethodInfo-    ResolveFileMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileMethod "getParent" o = FileGetParentMethodInfo-    ResolveFileMethod "getParseName" o = FileGetParseNameMethodInfo-    ResolveFileMethod "getPath" o = FileGetPathMethodInfo-    ResolveFileMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileMethod "getRelativePath" o = FileGetRelativePathMethodInfo-    ResolveFileMethod "getUri" o = FileGetUriMethodInfo-    ResolveFileMethod "getUriScheme" o = FileGetUriSchemeMethodInfo-    ResolveFileMethod "setAttribute" o = FileSetAttributeMethodInfo-    ResolveFileMethod "setAttributeByteString" o = FileSetAttributeByteStringMethodInfo-    ResolveFileMethod "setAttributeInt32" o = FileSetAttributeInt32MethodInfo-    ResolveFileMethod "setAttributeInt64" o = FileSetAttributeInt64MethodInfo-    ResolveFileMethod "setAttributeString" o = FileSetAttributeStringMethodInfo-    ResolveFileMethod "setAttributeUint32" o = FileSetAttributeUint32MethodInfo-    ResolveFileMethod "setAttributeUint64" o = FileSetAttributeUint64MethodInfo-    ResolveFileMethod "setAttributesAsync" o = FileSetAttributesAsyncMethodInfo-    ResolveFileMethod "setAttributesFinish" o = FileSetAttributesFinishMethodInfo-    ResolveFileMethod "setAttributesFromInfo" o = FileSetAttributesFromInfoMethodInfo-    ResolveFileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileMethod "setDisplayName" o = FileSetDisplayNameMethodInfo-    ResolveFileMethod "setDisplayNameAsync" o = FileSetDisplayNameAsyncMethodInfo-    ResolveFileMethod "setDisplayNameFinish" o = FileSetDisplayNameFinishMethodInfo-    ResolveFileMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileMethod t File, O.MethodInfo info File p) => OL.IsLabel t (File -> 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 File::append_to--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileOutputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_append_to" g_file_append_to :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileOutputStream.FileOutputStream)--{- |-Gets an output stream for appending data to the file.-If the file doesn\'t already exist it is created.--By default files created are generally readable by everyone,-but if you pass @/G_FILE_CREATE_PRIVATE/@ in /@flags@/ the file-will be made readable only to the current user, to the level that-is supported on the target filesystem.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled-by triggering the cancellable object from another thread. If the-operation was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be-returned.--Some file systems don\'t allow all file names, and may return an-'GI.Gio.Enums.IOErrorEnumInvalidFilename' error. If the file is a directory the-'GI.Gio.Enums.IOErrorEnumIsDirectory' error will be returned. Other errors are-possible too, and depend on what kind of filesystem the file is on.--}-fileAppendTo ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileOutputStream.FileOutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileOutputStream.FileOutputStream', or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileAppendTo file flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_append_to file' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileAppendTo" result-        result' <- (wrapObject Gio.FileOutputStream.FileOutputStream) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileAppendToMethodInfo-instance (signature ~ ([Gio.Flags.FileCreateFlags] -> Maybe (b) -> m Gio.FileOutputStream.FileOutputStream), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileAppendToMethodInfo a signature where-    overloadedMethod _ = fileAppendTo--#endif---- method File::append_to_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_append_to_async" g_file_append_to_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    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 opens /@file@/ for appending.--For more details, see 'GI.Gio.Interfaces.File.fileAppendTo' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileAppendToFinish' to get the result-of the operation.--}-fileAppendToAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileAppendToAsync file flags ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    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-    g_file_append_to_async file' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileAppendToAsyncMethodInfo-instance (signature ~ ([Gio.Flags.FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileAppendToAsyncMethodInfo a signature where-    overloadedMethod _ = fileAppendToAsync--#endif---- method File::append_to_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileOutputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_append_to_finish" g_file_append_to_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileOutputStream.FileOutputStream)--{- |-Finishes an asynchronous file append operation started with-'GI.Gio.Interfaces.File.fileAppendToAsync'.--}-fileAppendToFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileOutputStream.FileOutputStream-    {- ^ __Returns:__ a valid 'GI.Gio.Objects.FileOutputStream.FileOutputStream'-    or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileAppendToFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_append_to_finish file' res'-        checkUnexpectedReturnNULL "fileAppendToFinish" result-        result' <- (wrapObject Gio.FileOutputStream.FileOutputStream) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileAppendToFinishMethodInfo-instance (signature ~ (b -> m Gio.FileOutputStream.FileOutputStream), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileAppendToFinishMethodInfo a signature where-    overloadedMethod _ = fileAppendToFinish--#endif---- method File::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destination #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCopyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "set of #GFileCopyFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback", argType = TInterface (Name {namespace = "Gio", name = "FileProgressCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "function to callback with\n    progress information, or %NULL if progress information is not needed", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data to pass to @progress_callback", 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 "g_file_copy" g_file_copy :: -    Ptr File ->                             -- source : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr File ->                             -- destination : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCopyFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Gio.Callbacks.C_FileProgressCallback -> -- progress_callback : TInterface (Name {namespace = "Gio", name = "FileProgressCallback"})-    Ptr () ->                               -- progress_callback_data : TBasicType TPtr-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Copies the file /@source@/ to the location specified by /@destination@/.-Can not handle recursive copies of directories.--If the flag @/G_FILE_COPY_OVERWRITE/@ is specified an already-existing /@destination@/ file is overwritten.--If the flag @/G_FILE_COPY_NOFOLLOW_SYMLINKS/@ is specified then symlinks-will be copied as symlinks, otherwise the target of the-/@source@/ symlink will be copied.--If the flag @/G_FILE_COPY_ALL_METADATA/@ is specified then all the metadata-that is possible to copy is copied, not just the default subset (which,-for instance, does not include the owner, see 'GI.Gio.Objects.FileInfo.FileInfo').--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--If /@progressCallback@/ is not 'Nothing', then the operation can be monitored-by setting this to a 'GI.Gio.Callbacks.FileProgressCallback' function.-/@progressCallbackData@/ will be passed to this function. It is guaranteed-that this callback will be called after all data has been transferred with-the total number of bytes copied during the operation.--If the /@source@/ file does not exist, then the 'GI.Gio.Enums.IOErrorEnumNotFound' error-is returned, independent on the status of the /@destination@/.--If @/G_FILE_COPY_OVERWRITE/@ is not specified and the target exists, then-the error 'GI.Gio.Enums.IOErrorEnumExists' is returned.--If trying to overwrite a file over a directory, the 'GI.Gio.Enums.IOErrorEnumIsDirectory'-error is returned. If trying to overwrite a directory with a directory the-'GI.Gio.Enums.IOErrorEnumWouldMerge' error is returned.--If the source is a directory and the target does not exist, or-@/G_FILE_COPY_OVERWRITE/@ is specified and the target is a file, then the-'GI.Gio.Enums.IOErrorEnumWouldRecurse' error is returned.--If you are interested in copying the 'GI.Gio.Interfaces.File.File' object itself (not the on-disk-file), see 'GI.Gio.Interfaces.File.fileDup'.--}-fileCopy ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, IsFile b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@source@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@destination@/: destination 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileCopyFlags]-    {- ^ /@flags@/: set of 'GI.Gio.Flags.FileCopyFlags' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.FileProgressCallback)-    {- ^ /@progressCallback@/: function to callback with-    progress information, or 'Nothing' if progress information is not needed -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileCopy source destination flags cancellable progressCallback = liftIO $ do-    source' <- unsafeManagedPtrCastPtr source-    destination' <- unsafeManagedPtrCastPtr destination-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeProgressCallback <- case progressCallback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jProgressCallback -> do-            jProgressCallback' <- Gio.Callbacks.mk_FileProgressCallback (Gio.Callbacks.wrap_FileProgressCallback Nothing (Gio.Callbacks.drop_closures_FileProgressCallback jProgressCallback))-            return jProgressCallback'-    let progressCallbackData = nullPtr-    onException (do-        _ <- propagateGError $ g_file_copy source' destination' flags' maybeCancellable maybeProgressCallback progressCallbackData-        safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback-        touchManagedPtr source-        touchManagedPtr destination-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback-        return ()-     )--#if ENABLE_OVERLOADING-data FileCopyMethodInfo-instance (signature ~ (b -> [Gio.Flags.FileCopyFlags] -> Maybe (c) -> Maybe (Gio.Callbacks.FileProgressCallback) -> m ()), MonadIO m, IsFile a, IsFile b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileCopyMethodInfo a signature where-    overloadedMethod _ = fileCopy--#endif---- XXX Could not generate method File::copy_async--- Error was : Bad introspection data: "ScopeTypeNotified without destructor! Callable\n  { returnType = Nothing\n  , returnMayBeNull = False\n  , returnTransfer = TransferNothing\n  , returnDocumentation =\n      Documentation { rawDocText = Nothing , sinceVersion = Nothing }\n  , args =\n      [ Arg\n          { argCName = \"source\"\n          , argType = TInterface Name { namespace = \"Gio\" , name = \"File\" }\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"input #GFile\" , sinceVersion = Nothing }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"destination\"\n          , argType = TInterface Name { namespace = \"Gio\" , name = \"File\" }\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"destination #GFile\" , sinceVersion = Nothing }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"flags\"\n          , argType =\n              TInterface Name { namespace = \"Gio\" , name = \"FileCopyFlags\" }\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"set of #GFileCopyFlags\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"io_priority\"\n          , argType = TBasicType TInt\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just \"the [I/O priority][io-priority] of the request\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"cancellable\"\n          , argType =\n              TInterface Name { namespace = \"Gio\" , name = \"Cancellable\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just \"optional #GCancellable object,\\n    %NULL to ignore\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"progress_callback\"\n          , argType =\n              TInterface\n                Name { namespace = \"Gio\" , name = \"FileProgressCallback\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just\n                      \"function to callback with progress\\n    information, or %NULL if progress information is not needed\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeNotified\n          , argClosure = 6\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"progress_callback_data\"\n          , argType = TBasicType TPtr\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"user data to pass to @progress_callback\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = 5\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"callback\"\n          , argType =\n              TInterface Name { namespace = \"Gio\" , name = \"AsyncReadyCallback\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just \"a #GAsyncReadyCallback to call when the request is satisfied\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeAsync\n          , argClosure = 8\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"user_data\"\n          , argType = TBasicType TPtr\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"the data to pass to callback function\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = 7\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      ]\n  , skipReturn = False\n  , callableThrows = False\n  , callableDeprecated = Nothing\n  , callableDocumentation =\n      Documentation\n        { rawDocText =\n            Just\n              \"Copies the file @source to the location specified by @destination\\nasynchronously. For details of the behaviour, see g_file_copy().\\n\\nIf @progress_callback is not %NULL, then that function that will be called\\njust like in g_file_copy(). The callback will run in the default main context\\nof the thread calling g_file_copy_async() \\8212 the same context as @callback is\\nrun in.\\n\\nWhen the operation is finished, @callback will be called. You can then call\\ng_file_copy_finish() to get the result of the operation.\"\n        , sinceVersion = Nothing\n        }\n  }"-#if ENABLE_OVERLOADING--- XXX: Dummy instance, since code generation failed.--- Please file a bug at http://github.com/haskell-gi/haskell-gi.-data FileCopyAsyncMethodInfo-instance (p ~ (), o ~ O.MethodResolutionFailed "copyAsync" File) => O.MethodInfo FileCopyAsyncMethodInfo o p where-    overloadedMethod _ = undefined-#endif---- method File::copy_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile with attributes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile to copy attributes to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCopyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCopyFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_copy_attributes" g_file_copy_attributes :: -    Ptr File ->                             -- source : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr File ->                             -- destination : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCopyFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Copies the file attributes from /@source@/ to /@destination@/.--Normally only a subset of the file attributes are copied,-those that are copies in a normal file copy operation-(which for instance does not include e.g. owner). However-if @/G_FILE_COPY_ALL_METADATA/@ is specified in /@flags@/, then-all the metadata that is possible to copy is copied. This-is useful when implementing move by copy + delete source.--}-fileCopyAttributes ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, IsFile b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@source@/: a 'GI.Gio.Interfaces.File.File' with attributes -}-    -> b-    {- ^ /@destination@/: a 'GI.Gio.Interfaces.File.File' to copy attributes to -}-    -> [Gio.Flags.FileCopyFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCopyFlags' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileCopyAttributes source destination flags cancellable = liftIO $ do-    source' <- unsafeManagedPtrCastPtr source-    destination' <- unsafeManagedPtrCastPtr destination-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_copy_attributes source' destination' flags' maybeCancellable-        touchManagedPtr source-        touchManagedPtr destination-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileCopyAttributesMethodInfo-instance (signature ~ (b -> [Gio.Flags.FileCopyFlags] -> Maybe (c) -> m ()), MonadIO m, IsFile a, IsFile b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileCopyAttributesMethodInfo a signature where-    overloadedMethod _ = fileCopyAttributes--#endif---- method File::copy_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", 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 "g_file_copy_finish" g_file_copy_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes copying the file started with 'GI.Gio.Interfaces.File.fileCopyAsync'.--}-fileCopyFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileCopyFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_file_copy_finish file' res'-        touchManagedPtr file-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileCopyFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileCopyFinishMethodInfo a signature where-    overloadedMethod _ = fileCopyFinish--#endif---- method File::create--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileOutputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_create" g_file_create :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileOutputStream.FileOutputStream)--{- |-Creates a new file and returns an output stream for writing to it.-The file must not already exist.--By default files created are generally readable by everyone,-but if you pass @/G_FILE_CREATE_PRIVATE/@ in /@flags@/ the file-will be made readable only to the current user, to the level-that is supported on the target filesystem.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled-by triggering the cancellable object from another thread. If the-operation was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be-returned.--If a file or directory with this name already exists the-'GI.Gio.Enums.IOErrorEnumExists' error will be returned. Some file systems don\'t-allow all file names, and may return an 'GI.Gio.Enums.IOErrorEnumInvalidFilename'-error, and if the name is to long 'GI.Gio.Enums.IOErrorEnumFilenameTooLong' will-be returned. Other errors are possible too, and depend on what kind-of filesystem the file is on.--}-fileCreate ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileOutputStream.FileOutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileOutputStream.FileOutputStream' for the newly created-    file, or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileCreate file flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_create file' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileCreate" result-        result' <- (wrapObject Gio.FileOutputStream.FileOutputStream) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileCreateMethodInfo-instance (signature ~ ([Gio.Flags.FileCreateFlags] -> Maybe (b) -> m Gio.FileOutputStream.FileOutputStream), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileCreateMethodInfo a signature where-    overloadedMethod _ = fileCreate--#endif---- method File::create_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_create_async" g_file_create_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    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 creates a new file and returns an output stream-for writing to it. The file must not already exist.--For more details, see 'GI.Gio.Interfaces.File.fileCreate' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileCreateFinish' to get the result-of the operation.--}-fileCreateAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileCreateAsync file flags ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    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-    g_file_create_async file' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileCreateAsyncMethodInfo-instance (signature ~ ([Gio.Flags.FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileCreateAsyncMethodInfo a signature where-    overloadedMethod _ = fileCreateAsync--#endif---- method File::create_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileOutputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_create_finish" g_file_create_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileOutputStream.FileOutputStream)--{- |-Finishes an asynchronous file create operation started with-'GI.Gio.Interfaces.File.fileCreateAsync'.--}-fileCreateFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileOutputStream.FileOutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileOutputStream.FileOutputStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileCreateFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_create_finish file' res'-        checkUnexpectedReturnNULL "fileCreateFinish" result-        result' <- (wrapObject Gio.FileOutputStream.FileOutputStream) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileCreateFinishMethodInfo-instance (signature ~ (b -> m Gio.FileOutputStream.FileOutputStream), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileCreateFinishMethodInfo a signature where-    overloadedMethod _ = fileCreateFinish--#endif---- method File::create_readwrite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileIOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_create_readwrite" g_file_create_readwrite :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileIOStream.FileIOStream)--{- |-Creates a new file and returns a stream for reading and-writing to it. The file must not already exist.--By default files created are generally readable by everyone,-but if you pass @/G_FILE_CREATE_PRIVATE/@ in /@flags@/ the file-will be made readable only to the current user, to the level-that is supported on the target filesystem.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled-by triggering the cancellable object from another thread. If the-operation was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be-returned.--If a file or directory with this name already exists, the-'GI.Gio.Enums.IOErrorEnumExists' error will be returned. Some file systems don\'t-allow all file names, and may return an 'GI.Gio.Enums.IOErrorEnumInvalidFilename'-error, and if the name is too long, 'GI.Gio.Enums.IOErrorEnumFilenameTooLong'-will be returned. Other errors are possible too, and depend on what-kind of filesystem the file is on.--Note that in many non-local file cases read and write streams are-not supported, so make sure you really need to do read and write-streaming, rather than just opening for reading or writing.--/Since: 2.22/--}-fileCreateReadwrite ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileIOStream.FileIOStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileIOStream.FileIOStream' for the newly created-    file, or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileCreateReadwrite file flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_create_readwrite file' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileCreateReadwrite" result-        result' <- (wrapObject Gio.FileIOStream.FileIOStream) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileCreateReadwriteMethodInfo-instance (signature ~ ([Gio.Flags.FileCreateFlags] -> Maybe (b) -> m Gio.FileIOStream.FileIOStream), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileCreateReadwriteMethodInfo a signature where-    overloadedMethod _ = fileCreateReadwrite--#endif---- method File::create_readwrite_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_create_readwrite_async" g_file_create_readwrite_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    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 creates a new file and returns a stream-for reading and writing to it. The file must not already exist.--For more details, see 'GI.Gio.Interfaces.File.fileCreateReadwrite' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileCreateReadwriteFinish' to get-the result of the operation.--/Since: 2.22/--}-fileCreateReadwriteAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileCreateReadwriteAsync file flags ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    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-    g_file_create_readwrite_async file' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileCreateReadwriteAsyncMethodInfo-instance (signature ~ ([Gio.Flags.FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileCreateReadwriteAsyncMethodInfo a signature where-    overloadedMethod _ = fileCreateReadwriteAsync--#endif---- method File::create_readwrite_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileIOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_create_readwrite_finish" g_file_create_readwrite_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileIOStream.FileIOStream)--{- |-Finishes an asynchronous file create operation started with-'GI.Gio.Interfaces.File.fileCreateReadwriteAsync'.--/Since: 2.22/--}-fileCreateReadwriteFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileIOStream.FileIOStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileIOStream.FileIOStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileCreateReadwriteFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_create_readwrite_finish file' res'-        checkUnexpectedReturnNULL "fileCreateReadwriteFinish" result-        result' <- (wrapObject Gio.FileIOStream.FileIOStream) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileCreateReadwriteFinishMethodInfo-instance (signature ~ (b -> m Gio.FileIOStream.FileIOStream), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileCreateReadwriteFinishMethodInfo a signature where-    overloadedMethod _ = fileCreateReadwriteFinish--#endif---- method File::delete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_delete" g_file_delete :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Deletes a file. If the /@file@/ is a directory, it will only be-deleted if it is empty. This has the same semantics as 'GI.GLib.Functions.unlink'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileDelete ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileDelete file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_delete file' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileDeleteMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileDeleteMethodInfo a signature where-    overloadedMethod _ = fileDelete--#endif---- method File::delete_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_delete_async" g_file_delete_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 delete a file. If the /@file@/ is a directory, it will-only be deleted if it is empty.  This has the same semantics as-'GI.GLib.Functions.unlink'.--/Since: 2.34/--}-fileDeleteAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileDeleteAsync file ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_delete_async file' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileDeleteAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileDeleteAsyncMethodInfo a signature where-    overloadedMethod _ = fileDeleteAsync--#endif---- method File::delete_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_delete_finish" g_file_delete_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes deleting a file started with 'GI.Gio.Interfaces.File.fileDeleteAsync'.--/Since: 2.34/--}-fileDeleteFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileDeleteFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_delete_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileDeleteFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileDeleteFinishMethodInfo a signature where-    overloadedMethod _ = fileDeleteFinish--#endif---- method File::dup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_dup" g_file_dup :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO (Ptr File)--{- |-Duplicates a 'GI.Gio.Interfaces.File.File' handle. This operation does not duplicate-the actual file or directory represented by the 'GI.Gio.Interfaces.File.File'; see-'GI.Gio.Interfaces.File.fileCopy' if attempting to copy a file.--'GI.Gio.Interfaces.File.fileDup' is useful when a second handle is needed to the same underlying-file, for use in a separate thread ('GI.Gio.Interfaces.File.File' is not thread-safe). For use-within the same thread, use 'GI.GObject.Objects.Object.objectRef' to increment the existing object’s-reference count.--This call does no blocking I\/O.--}-fileDup ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m File-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.File.File' that is a duplicate-    of the given 'GI.Gio.Interfaces.File.File'. -}-fileDup file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_dup file'-    checkUnexpectedReturnNULL "fileDup" result-    result' <- (wrapObject File) result-    touchManagedPtr file-    return result'--#if ENABLE_OVERLOADING-data FileDupMethodInfo-instance (signature ~ (m File), MonadIO m, IsFile a) => O.MethodInfo FileDupMethodInfo a signature where-    overloadedMethod _ = fileDup--#endif---- method File::eject_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_eject_mountable" g_file_eject_mountable :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    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 ()--{-# DEPRECATED fileEjectMountable ["(Since version 2.22)","Use 'GI.Gio.Interfaces.File.fileEjectMountableWithOperation' instead."] #-}-{- |-Starts an asynchronous eject on a mountable.-When this operation has completed, /@callback@/ will be called with-/@userUser@/ data, and the operation can be finalized with-'GI.Gio.Interfaces.File.fileEjectMountableFinish'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileEjectMountable ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied, or 'Nothing' -}-    -> m ()-fileEjectMountable file flags cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    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-    g_file_eject_mountable file' flags' maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileEjectMountableMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileEjectMountableMethodInfo a signature where-    overloadedMethod _ = fileEjectMountable--#endif---- method File::eject_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_eject_mountable_finish" g_file_eject_mountable_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED fileEjectMountableFinish ["(Since version 2.22)","Use 'GI.Gio.Interfaces.File.fileEjectMountableWithOperationFinish'","    instead."] #-}-{- |-Finishes an asynchronous eject operation started by-'GI.Gio.Interfaces.File.fileEjectMountable'.--}-fileEjectMountableFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEjectMountableFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_eject_mountable_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileEjectMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileEjectMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileEjectMountableFinish--#endif---- method File::eject_mountable_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation,\n    or %NULL to avoid user interaction", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied, or %NULL", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_eject_mountable_with_operation" g_file_eject_mountable_with_operation :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Starts an asynchronous eject on a mountable.-When this operation has completed, /@callback@/ will be called with-/@userUser@/ data, and the operation can be finalized with-'GI.Gio.Interfaces.File.fileEjectMountableWithOperationFinish'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--/Since: 2.22/--}-fileEjectMountableWithOperation ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation',-    or 'Nothing' to avoid user interaction -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied, or 'Nothing' -}-    -> m ()-fileEjectMountableWithOperation file flags mountOperation cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_file_eject_mountable_with_operation file' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileEjectMountableWithOperationMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileEjectMountableWithOperationMethodInfo a signature where-    overloadedMethod _ = fileEjectMountableWithOperation--#endif---- method File::eject_mountable_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_eject_mountable_with_operation_finish" g_file_eject_mountable_with_operation_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous eject operation started by-'GI.Gio.Interfaces.File.fileEjectMountableWithOperation'.--/Since: 2.22/--}-fileEjectMountableWithOperationFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEjectMountableWithOperationFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_eject_mountable_with_operation_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileEjectMountableWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileEjectMountableWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = fileEjectMountableWithOperationFinish--#endif---- method File::enumerate_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an attribute query string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileEnumerator"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_enumerate_children" g_file_enumerate_children :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attributes : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileEnumerator.FileEnumerator)--{- |-Gets the requested information about the files in a directory.-The result is a 'GI.Gio.Objects.FileEnumerator.FileEnumerator' object that will give out-'GI.Gio.Objects.FileInfo.FileInfo' objects for all the files in the directory.--The /@attributes@/ value is a string that specifies the file-attributes that should be gathered. It is not an error if-it\'s not possible to read a particular requested attribute-from a file - it just won\'t be set. /@attributes@/ should-be a comma-separated list of attributes or attribute wildcards.-The wildcard \"*\" means all attributes, and a wildcard like-\"standard::*\" means all attributes in the standard namespace.-An example attribute query be \"standard::*,owner::user\".-The standard attributes are available as defines, like-'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_NAME'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled-by triggering the cancellable object from another thread. If the-operation was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be-returned.--If the file does not exist, the 'GI.Gio.Enums.IOErrorEnumNotFound' error will-be returned. If the file is not a directory, the 'GI.Gio.Enums.IOErrorEnumNotDirectory'-error will be returned. Other errors are possible too.--}-fileEnumerateChildren ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attributes@/: an attribute query string -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileEnumerator.FileEnumerator-    {- ^ __Returns:__ A 'GI.Gio.Objects.FileEnumerator.FileEnumerator' if successful,-    'Nothing' on error. Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEnumerateChildren file attributes flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attributes' <- textToCString attributes-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_enumerate_children file' attributes' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileEnumerateChildren" result-        result' <- (wrapObject Gio.FileEnumerator.FileEnumerator) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--#if ENABLE_OVERLOADING-data FileEnumerateChildrenMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m Gio.FileEnumerator.FileEnumerator), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileEnumerateChildrenMethodInfo a signature where-    overloadedMethod _ = fileEnumerateChildren--#endif---- method File::enumerate_children_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an attribute query string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileQueryInfoFlags", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call when the\n    request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_enumerate_children_async" g_file_enumerate_children_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attributes : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    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 gets the requested information about the files-in a directory. The result is a 'GI.Gio.Objects.FileEnumerator.FileEnumerator' object that will-give out 'GI.Gio.Objects.FileInfo.FileInfo' objects for all the files in the directory.--For more details, see 'GI.Gio.Interfaces.File.fileEnumerateChildren' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called. You can-then call 'GI.Gio.Interfaces.File.fileEnumerateChildrenFinish' to get the result of-the operation.--}-fileEnumerateChildrenAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attributes@/: an attribute query string -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the-    request is satisfied -}-    -> m ()-fileEnumerateChildrenAsync file attributes flags ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attributes' <- textToCString attributes-    let flags' = gflagsToWord flags-    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-    g_file_enumerate_children_async file' attributes' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--#if ENABLE_OVERLOADING-data FileEnumerateChildrenAsyncMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.FileQueryInfoFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileEnumerateChildrenAsyncMethodInfo a signature where-    overloadedMethod _ = fileEnumerateChildrenAsync--#endif---- method File::enumerate_children_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileEnumerator"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_enumerate_children_finish" g_file_enumerate_children_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileEnumerator.FileEnumerator)--{- |-Finishes an async enumerate children operation.-See 'GI.Gio.Interfaces.File.fileEnumerateChildrenAsync'.--}-fileEnumerateChildrenFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileEnumerator.FileEnumerator-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileEnumerator.FileEnumerator' or 'Nothing'-    if an error occurred.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEnumerateChildrenFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_enumerate_children_finish file' res'-        checkUnexpectedReturnNULL "fileEnumerateChildrenFinish" result-        result' <- (wrapObject Gio.FileEnumerator.FileEnumerator) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileEnumerateChildrenFinishMethodInfo-instance (signature ~ (b -> m Gio.FileEnumerator.FileEnumerator), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileEnumerateChildrenFinishMethodInfo a signature where-    overloadedMethod _ = fileEnumerateChildrenFinish--#endif---- method File::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file1", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the first #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file2", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the second #GFile", 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 "g_file_equal" g_file_equal :: -    Ptr File ->                             -- file1 : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr File ->                             -- file2 : TInterface (Name {namespace = "Gio", name = "File"})-    IO CInt--{- |-Checks if the two given @/GFiles/@ refer to the same file.--Note that two @/GFiles/@ that differ can still refer to the same-file on the filesystem due to various forms of filename-aliasing.--This call does no blocking I\/O.--}-fileEqual ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, IsFile b) =>-    a-    {- ^ /@file1@/: the first 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@file2@/: the second 'GI.Gio.Interfaces.File.File' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@file1@/ and /@file2@/ are equal. -}-fileEqual file1 file2 = liftIO $ do-    file1' <- unsafeManagedPtrCastPtr file1-    file2' <- unsafeManagedPtrCastPtr file2-    result <- g_file_equal file1' file2'-    let result' = (/= 0) result-    touchManagedPtr file1-    touchManagedPtr file2-    return result'--#if ENABLE_OVERLOADING-data FileEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsFile a, IsFile b) => O.MethodInfo FileEqualMethodInfo a signature where-    overloadedMethod _ = fileEqual--#endif---- method File::find_enclosing_mount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Mount"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_find_enclosing_mount" g_file_find_enclosing_mount :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.Mount.Mount)--{- |-Gets a 'GI.Gio.Interfaces.Mount.Mount' for the 'GI.Gio.Interfaces.File.File'.--If the 'GI.Gio.Structs.FileIface.FileIface' for /@file@/ does not have a mount (e.g.-possibly a remote share), /@error@/ will be set to 'GI.Gio.Enums.IOErrorEnumNotFound'-and 'Nothing' will be returned.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileFindEnclosingMount ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.Mount.Mount-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Mount.Mount' where the /@file@/ is located-    or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileFindEnclosingMount file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_find_enclosing_mount file' maybeCancellable-        checkUnexpectedReturnNULL "fileFindEnclosingMount" result-        result' <- (wrapObject Gio.Mount.Mount) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileFindEnclosingMountMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.Mount.Mount), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileFindEnclosingMountMethodInfo a signature where-    overloadedMethod _ = fileFindEnclosingMount--#endif---- method File::find_enclosing_mount_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_find_enclosing_mount_async" g_file_find_enclosing_mount_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 gets the mount for the file.--For more details, see 'GI.Gio.Interfaces.File.fileFindEnclosingMount' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileFindEnclosingMountFinish' to-get the result of the operation.--}-fileFindEnclosingMountAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileFindEnclosingMountAsync file ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_find_enclosing_mount_async file' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileFindEnclosingMountAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileFindEnclosingMountAsyncMethodInfo a signature where-    overloadedMethod _ = fileFindEnclosingMountAsync--#endif---- method File::find_enclosing_mount_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Mount"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_find_enclosing_mount_finish" g_file_find_enclosing_mount_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.Mount.Mount)--{- |-Finishes an asynchronous find mount request.-See 'GI.Gio.Interfaces.File.fileFindEnclosingMountAsync'.--}-fileFindEnclosingMountFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.Mount.Mount-    {- ^ __Returns:__ 'GI.Gio.Interfaces.Mount.Mount' for given /@file@/ or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileFindEnclosingMountFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_find_enclosing_mount_finish file' res'-        checkUnexpectedReturnNULL "fileFindEnclosingMountFinish" result-        result' <- (wrapObject Gio.Mount.Mount) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileFindEnclosingMountFinishMethodInfo-instance (signature ~ (b -> m Gio.Mount.Mount), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileFindEnclosingMountFinishMethodInfo a signature where-    overloadedMethod _ = fileFindEnclosingMountFinish--#endif---- method File::get_basename--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_file_get_basename" g_file_get_basename :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO CString--{- |-Gets the base name (the last component of the path) for a given 'GI.Gio.Interfaces.File.File'.--If called for the top level of a system (such as the filesystem root-or a uri like sftp:\/\/host\/) it will return a single directory separator-(and on Windows, possibly a drive letter).--The base name is a byte string (not UTF-8). It has no defined encoding-or rules other than it may not contain zero bytes.  If you want to use-filenames in a user interface you should use the display name that you-can get by requesting the 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME'-attribute with 'GI.Gio.Interfaces.File.fileQueryInfo'.--This call does no blocking I\/O.--}-fileGetBasename ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m (Maybe [Char])-    {- ^ __Returns:__ string containing the 'GI.Gio.Interfaces.File.File'\'s-    base name, or 'Nothing' if given 'GI.Gio.Interfaces.File.File' is invalid. The returned string-    should be freed with 'GI.GLib.Functions.free' when no longer needed. -}-fileGetBasename file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_get_basename file'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToString result'-        freeMem result'-        return result''-    touchManagedPtr file-    return maybeResult--#if ENABLE_OVERLOADING-data FileGetBasenameMethodInfo-instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFile a) => O.MethodInfo FileGetBasenameMethodInfo a signature where-    overloadedMethod _ = fileGetBasename--#endif---- method File::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "string containing the child's basename", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_get_child" g_file_get_child :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- name : TBasicType TFileName-    IO (Ptr File)--{- |-Gets a child of /@file@/ with basename equal to /@name@/.--Note that the file with that specific name might not exist, but-you can still have a 'GI.Gio.Interfaces.File.File' that points to it. You can use this-for instance to create that file.--This call does no blocking I\/O.--}-fileGetChild ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Char]-    {- ^ /@name@/: string containing the child\'s basename -}-    -> m File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' to a child specified by /@name@/.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-fileGetChild file name = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    name' <- stringToCString name-    result <- g_file_get_child file' name'-    checkUnexpectedReturnNULL "fileGetChild" result-    result' <- (wrapObject File) result-    touchManagedPtr file-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data FileGetChildMethodInfo-instance (signature ~ ([Char] -> m File), MonadIO m, IsFile a) => O.MethodInfo FileGetChildMethodInfo a signature where-    overloadedMethod _ = fileGetChild--#endif---- method File::get_child_for_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "string to a possible child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_get_child_for_display_name" g_file_get_child_for_display_name :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- display_name : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)--{- |-Gets the child of /@file@/ for a given /@displayName@/ (i.e. a UTF-8-version of the name). If this function fails, it returns 'Nothing'-and /@error@/ will be set. This is very useful when constructing a-'GI.Gio.Interfaces.File.File' for a new file and the user entered the filename in the-user interface, for instance when you select a directory and-type a filename in the file selector.--This call does no blocking I\/O.--}-fileGetChildForDisplayName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@displayName@/: string to a possible child -}-    -> m File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' to the specified child, or-    'Nothing' if the display name couldn\'t be converted.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileGetChildForDisplayName file displayName = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    displayName' <- textToCString displayName-    onException (do-        result <- propagateGError $ g_file_get_child_for_display_name file' displayName'-        checkUnexpectedReturnNULL "fileGetChildForDisplayName" result-        result' <- (wrapObject File) result-        touchManagedPtr file-        freeMem displayName'-        return result'-     ) (do-        freeMem displayName'-     )--#if ENABLE_OVERLOADING-data FileGetChildForDisplayNameMethodInfo-instance (signature ~ (T.Text -> m File), MonadIO m, IsFile a) => O.MethodInfo FileGetChildForDisplayNameMethodInfo a signature where-    overloadedMethod _ = fileGetChildForDisplayName--#endif---- method File::get_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_get_parent" g_file_get_parent :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO (Ptr File)--{- |-Gets the parent directory for the /@file@/.-If the /@file@/ represents the root directory of the-file system, then 'Nothing' will be returned.--This call does no blocking I\/O.--}-fileGetParent ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m (Maybe File)-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' structure to the-    parent of the given 'GI.Gio.Interfaces.File.File' or 'Nothing' if there is no parent. Free-    the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-fileGetParent file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_get_parent file'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject File) result'-        return result''-    touchManagedPtr file-    return maybeResult--#if ENABLE_OVERLOADING-data FileGetParentMethodInfo-instance (signature ~ (m (Maybe File)), MonadIO m, IsFile a) => O.MethodInfo FileGetParentMethodInfo a signature where-    overloadedMethod _ = fileGetParent--#endif---- method File::get_parse_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "g_file_get_parse_name" g_file_get_parse_name :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO CString--{- |-Gets the parse name of the /@file@/.-A parse name is a UTF-8 string that describes the-file such that one can get the 'GI.Gio.Interfaces.File.File' back using-'GI.Gio.Functions.fileParseName'.--This is generally used to show the 'GI.Gio.Interfaces.File.File' as a nice-full-pathname kind of string in a user interface,-like in a location entry.--For local files with names that can safely be converted-to UTF-8 the pathname is used, otherwise the IRI is used-(a form of URI that allows UTF-8 characters unescaped).--This call does no blocking I\/O.--}-fileGetParseName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the 'GI.Gio.Interfaces.File.File'\'s parse name.-    The returned string should be freed with 'GI.GLib.Functions.free'-    when no longer needed. -}-fileGetParseName file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_get_parse_name file'-    checkUnexpectedReturnNULL "fileGetParseName" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr file-    return result'--#if ENABLE_OVERLOADING-data FileGetParseNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFile a) => O.MethodInfo FileGetParseNameMethodInfo a signature where-    overloadedMethod _ = fileGetParseName--#endif---- method File::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_file_get_path" g_file_get_path :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO CString--{- |-Gets the local pathname for 'GI.Gio.Interfaces.File.File', if one exists. If non-'Nothing', this is-guaranteed to be an absolute, canonical path. It might contain symlinks.--This call does no blocking I\/O.--}-fileGetPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m (Maybe [Char])-    {- ^ __Returns:__ string containing the 'GI.Gio.Interfaces.File.File'\'s path,-    or 'Nothing' if no such path exists. The returned string should be freed-    with 'GI.GLib.Functions.free' when no longer needed. -}-fileGetPath file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_get_path file'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToString result'-        freeMem result'-        return result''-    touchManagedPtr file-    return maybeResult--#if ENABLE_OVERLOADING-data FileGetPathMethodInfo-instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFile a) => O.MethodInfo FileGetPathMethodInfo a signature where-    overloadedMethod _ = fileGetPath--#endif---- method File::get_relative_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_file_get_relative_path" g_file_get_relative_path :: -    Ptr File ->                             -- parent : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr File ->                             -- descendant : TInterface (Name {namespace = "Gio", name = "File"})-    IO CString--{- |-Gets the path for /@descendant@/ relative to /@parent@/.--This call does no blocking I\/O.--}-fileGetRelativePath ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, IsFile b) =>-    a-    {- ^ /@parent@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@descendant@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m (Maybe [Char])-    {- ^ __Returns:__ string with the relative path from-    /@descendant@/ to /@parent@/, or 'Nothing' if /@descendant@/ doesn\'t have /@parent@/ as-    prefix. The returned string should be freed with 'GI.GLib.Functions.free' when-    no longer needed. -}-fileGetRelativePath parent descendant = liftIO $ do-    parent' <- unsafeManagedPtrCastPtr parent-    descendant' <- unsafeManagedPtrCastPtr descendant-    result <- g_file_get_relative_path parent' descendant'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToString result'-        freeMem result'-        return result''-    touchManagedPtr parent-    touchManagedPtr descendant-    return maybeResult--#if ENABLE_OVERLOADING-data FileGetRelativePathMethodInfo-instance (signature ~ (b -> m (Maybe [Char])), MonadIO m, IsFile a, IsFile b) => O.MethodInfo FileGetRelativePathMethodInfo a signature where-    overloadedMethod _ = fileGetRelativePath--#endif---- method File::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "g_file_get_uri" g_file_get_uri :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO CString--{- |-Gets the URI for the /@file@/.--This call does no blocking I\/O.--}-fileGetUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the 'GI.Gio.Interfaces.File.File'\'s URI.-    The returned string should be freed with 'GI.GLib.Functions.free'-    when no longer needed. -}-fileGetUri file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_get_uri file'-    checkUnexpectedReturnNULL "fileGetUri" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr file-    return result'--#if ENABLE_OVERLOADING-data FileGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFile a) => O.MethodInfo FileGetUriMethodInfo a signature where-    overloadedMethod _ = fileGetUri--#endif---- method File::get_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "g_file_get_uri_scheme" g_file_get_uri_scheme :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO CString--{- |-Gets the URI scheme for a 'GI.Gio.Interfaces.File.File'.-RFC 3986 decodes the scheme as:->->URI = scheme ":" hier-part [ "?" query ] [ "#" fragment ]--Common schemes include \"file\", \"http\", \"ftp\", etc.--This call does no blocking I\/O.--}-fileGetUriScheme ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the URI scheme for the given-    'GI.Gio.Interfaces.File.File'. The returned string should be freed with 'GI.GLib.Functions.free'-    when no longer needed. -}-fileGetUriScheme file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_get_uri_scheme file'-    checkUnexpectedReturnNULL "fileGetUriScheme" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr file-    return result'--#if ENABLE_OVERLOADING-data FileGetUriSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFile a) => O.MethodInfo FileGetUriSchemeMethodInfo a signature where-    overloadedMethod _ = fileGetUriScheme--#endif---- method File::has_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the parent to check for, or %NULL", 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 "g_file_has_parent" g_file_has_parent :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr File ->                             -- parent : TInterface (Name {namespace = "Gio", name = "File"})-    IO CInt--{- |-Checks if /@file@/ has a parent, and optionally, if it is /@parent@/.--If /@parent@/ is 'Nothing' then this function returns 'True' if /@file@/ has any-parent at all.  If /@parent@/ is non-'Nothing' then 'True' is only returned-if /@file@/ is an immediate child of /@parent@/.--/Since: 2.24/--}-fileHasParent ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, IsFile b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@parent@/: the parent to check for, or 'Nothing' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@file@/ is an immediate child of /@parent@/ (or any parent in-         the case that /@parent@/ is 'Nothing'). -}-fileHasParent file parent = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeParent <- case parent of-        Nothing -> return nullPtr-        Just jParent -> do-            jParent' <- unsafeManagedPtrCastPtr jParent-            return jParent'-    result <- g_file_has_parent file' maybeParent-    let result' = (/= 0) result-    touchManagedPtr file-    whenJust parent touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data FileHasParentMethodInfo-instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, IsFile a, IsFile b) => O.MethodInfo FileHasParentMethodInfo a signature where-    overloadedMethod _ = fileHasParent--#endif---- method File::has_prefix--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "g_file_has_prefix" g_file_has_prefix :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr File ->                             -- prefix : TInterface (Name {namespace = "Gio", name = "File"})-    IO CInt--{- |-Checks whether /@file@/ has the prefix specified by /@prefix@/.--In other words, if the names of initial elements of /@file@/\'s-pathname match /@prefix@/. Only full pathname elements are matched,-so a path like \/foo is not considered a prefix of \/foobar, only-of \/foo\/bar.--A 'GI.Gio.Interfaces.File.File' is not a prefix of itself. If you want to check for-equality, use 'GI.Gio.Interfaces.File.fileEqual'.--This call does no I\/O, as it works purely on names. As such it can-sometimes return 'False' even if /@file@/ is inside a /@prefix@/ (from a-filesystem point of view), because the prefix of /@file@/ is an alias-of /@prefix@/.--}-fileHasPrefix ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, IsFile b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@prefix@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@files@/\'s parent, grandparent, etc is /@prefix@/,-    'False' otherwise. -}-fileHasPrefix file prefix = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    prefix' <- unsafeManagedPtrCastPtr prefix-    result <- g_file_has_prefix file' prefix'-    let result' = (/= 0) result-    touchManagedPtr file-    touchManagedPtr prefix-    return result'--#if ENABLE_OVERLOADING-data FileHasPrefixMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsFile a, IsFile b) => O.MethodInfo FileHasPrefixMethodInfo a signature where-    overloadedMethod _ = fileHasPrefix--#endif---- method File::has_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing a URI scheme", 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 "g_file_has_uri_scheme" g_file_has_uri_scheme :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- uri_scheme : TBasicType TUTF8-    IO CInt--{- |-Checks to see if a 'GI.Gio.Interfaces.File.File' has a given URI scheme.--This call does no blocking I\/O.--}-fileHasUriScheme ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@uriScheme@/: a string containing a URI scheme -}-    -> m Bool-    {- ^ __Returns:__ 'True' if 'GI.Gio.Interfaces.File.File'\'s backend supports the-    given URI scheme, 'False' if URI scheme is 'Nothing',-    not supported, or 'GI.Gio.Interfaces.File.File' is invalid. -}-fileHasUriScheme file uriScheme = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    uriScheme' <- textToCString uriScheme-    result <- g_file_has_uri_scheme file' uriScheme'-    let result' = (/= 0) result-    touchManagedPtr file-    freeMem uriScheme'-    return result'--#if ENABLE_OVERLOADING-data FileHasUriSchemeMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFile a) => O.MethodInfo FileHasUriSchemeMethodInfo a signature where-    overloadedMethod _ = fileHasUriScheme--#endif---- method File::hash--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#gconstpointer to a #GFile", 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 "g_file_hash" g_file_hash :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO Word32--{- |-Creates a hash value for a 'GI.Gio.Interfaces.File.File'.--This call does no blocking I\/O.--}-fileHash ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: @/gconstpointer/@ to a 'GI.Gio.Interfaces.File.File' -}-    -> m Word32-    {- ^ __Returns:__ 0 if /@file@/ is not a valid 'GI.Gio.Interfaces.File.File', otherwise an-    integer that can be used as hash value for the 'GI.Gio.Interfaces.File.File'.-    This function is intended for easily hashing a 'GI.Gio.Interfaces.File.File' to-    add to a 'GI.GLib.Structs.HashTable.HashTable' or similar data structure. -}-fileHash file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_hash file'-    touchManagedPtr file-    return result--#if ENABLE_OVERLOADING-data FileHashMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsFile a) => O.MethodInfo FileHashMethodInfo a signature where-    overloadedMethod _ = fileHash--#endif---- method File::is_native--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "g_file_is_native" g_file_is_native :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO CInt--{- |-Checks to see if a file is native to the platform.--A native file is one expressed in the platform-native filename format,-e.g. \"C:\\Windows\" or \"\/usr\/bin\/\". This does not mean the file is local,-as it might be on a locally mounted remote filesystem.--On some systems non-native files may be available using the native-filesystem via a userspace filesystem (FUSE), in these cases this call-will return 'False', but 'GI.Gio.Interfaces.File.fileGetPath' will still return a native path.--This call does no blocking I\/O.--}-fileIsNative ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@file@/ is native -}-fileIsNative file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_is_native file'-    let result' = (/= 0) result-    touchManagedPtr file-    return result'--#if ENABLE_OVERLOADING-data FileIsNativeMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFile a) => O.MethodInfo FileIsNativeMethodInfo a signature where-    overloadedMethod _ = fileIsNative--#endif---- method File::load_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", 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 = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a location to place the current\n    entity tag for the file, or %NULL if the entity tag is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_load_bytes" g_file_load_bytes :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr CString ->                          -- etag_out : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes.Bytes)--{- |-Loads the contents of /@file@/ and returns it as 'GI.GLib.Structs.Bytes.Bytes'.--If /@file@/ is a resource:\/\/ based URI, the resulting bytes will reference the-embedded resource instead of a copy. Otherwise, this is equivalent to calling-'GI.Gio.Interfaces.File.fileLoadContents' and 'GI.GLib.Structs.Bytes.bytesNewTake'.--For resources, /@etagOut@/ will be set to 'Nothing'.--The data contained in the resulting 'GI.GLib.Structs.Bytes.Bytes' is always zero-terminated, but-this is not included in the 'GI.GLib.Structs.Bytes.Bytes' length. The resulting 'GI.GLib.Structs.Bytes.Bytes' should be-freed with 'GI.GLib.Structs.Bytes.bytesUnref' when no longer in use.--/Since: 2.56/--}-fileLoadBytes ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m ((GLib.Bytes.Bytes, Maybe T.Text))-    {- ^ __Returns:__ a 'GI.GLib.Structs.Bytes.Bytes' or 'Nothing' and /@error@/ is set /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileLoadBytes file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    etagOut <- allocMem :: IO (Ptr CString)-    onException (do-        result <- propagateGError $ g_file_load_bytes file' maybeCancellable etagOut-        checkUnexpectedReturnNULL "fileLoadBytes" result-        result' <- (wrapBoxed GLib.Bytes.Bytes) result-        etagOut' <- peek etagOut-        maybeEtagOut' <- convertIfNonNull etagOut' $ \etagOut'' -> do-            etagOut''' <- cstringToText etagOut''-            return etagOut'''-        freeMem etagOut'-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem etagOut-        return (result', maybeEtagOut')-     ) (do-        freeMem etagOut-     )--#if ENABLE_OVERLOADING-data FileLoadBytesMethodInfo-instance (signature ~ (Maybe (b) -> m ((GLib.Bytes.Bytes, Maybe T.Text))), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileLoadBytesMethodInfo a signature where-    overloadedMethod _ = fileLoadBytes--#endif---- method File::load_bytes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", 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 "a #GAsyncReadyCallback to call when the\n    request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_load_bytes_async" g_file_load_bytes_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 loads the contents of /@file@/ as 'GI.GLib.Structs.Bytes.Bytes'.--If /@file@/ is a resource:\/\/ based URI, the resulting bytes will reference the-embedded resource instead of a copy. Otherwise, this is equivalent to calling-'GI.Gio.Interfaces.File.fileLoadContentsAsync' and 'GI.GLib.Structs.Bytes.bytesNewTake'.--/@callback@/ should call 'GI.Gio.Interfaces.File.fileLoadBytesFinish' to get the result of this-asynchronous operation.--See 'GI.Gio.Interfaces.File.fileLoadBytes' for more information.--/Since: 2.56/--}-fileLoadBytesAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the-    request is satisfied -}-    -> m ()-fileLoadBytesAsync file cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_load_bytes_async file' maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileLoadBytesAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileLoadBytesAsyncMethodInfo a signature where-    overloadedMethod _ = fileLoadBytesAsync--#endif---- method File::load_bytes_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", 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 "a #GAsyncResult provided to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a location to place the current\n    entity tag for the file, or %NULL if the entity tag is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_load_bytes_finish" g_file_load_bytes_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr CString ->                          -- etag_out : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes.Bytes)--{- |-Completes an asynchronous request to 'GI.Gio.Interfaces.File.fileLoadBytesAsync'.--For resources, /@etagOut@/ will be set to 'Nothing'.--The data contained in the resulting 'GI.GLib.Structs.Bytes.Bytes' is always zero-terminated, but-this is not included in the 'GI.GLib.Structs.Bytes.Bytes' length. The resulting 'GI.GLib.Structs.Bytes.Bytes' should be-freed with 'GI.GLib.Structs.Bytes.bytesUnref' when no longer in use.--See 'GI.Gio.Interfaces.File.fileLoadBytes' for more information.--/Since: 2.56/--}-fileLoadBytesFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' provided to the callback -}-    -> m ((GLib.Bytes.Bytes, Maybe T.Text))-    {- ^ __Returns:__ a 'GI.GLib.Structs.Bytes.Bytes' or 'Nothing' and /@error@/ is set /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileLoadBytesFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    etagOut <- allocMem :: IO (Ptr CString)-    onException (do-        result <- propagateGError $ g_file_load_bytes_finish file' result_' etagOut-        checkUnexpectedReturnNULL "fileLoadBytesFinish" result-        result' <- (wrapBoxed GLib.Bytes.Bytes) result-        etagOut' <- peek etagOut-        maybeEtagOut' <- convertIfNonNull etagOut' $ \etagOut'' -> do-            etagOut''' <- cstringToText etagOut''-            return etagOut'''-        freeMem etagOut'-        touchManagedPtr file-        touchManagedPtr result_-        freeMem etagOut-        return (result', maybeEtagOut')-     ) (do-        freeMem etagOut-     )--#if ENABLE_OVERLOADING-data FileLoadBytesFinishMethodInfo-instance (signature ~ (b -> m ((GLib.Bytes.Bytes, Maybe T.Text))), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileLoadBytesFinishMethodInfo a signature where-    overloadedMethod _ = fileLoadBytesFinish--#endif---- method File::load_contents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object, %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the contents of the file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the length of the contents of the file,\n   or %NULL if the length is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the current entity tag for the file,\n   or %NULL if the entity tag is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the length of the contents of the file,\n   or %NULL if the length is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_file_load_contents" g_file_load_contents :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr Word8) ->                      -- contents : TCArray False (-1) 3 (TBasicType TUInt8)-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr CString ->                          -- etag_out : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Loads the content of the file into memory. The data is always-zero-terminated, but this is not included in the resultant /@length@/.-The returned /@content@/ should be freed with 'GI.GLib.Functions.free' when no longer-needed.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileLoadContents ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m ((ByteString, T.Text))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileLoadContents file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    contents <- allocMem :: IO (Ptr (Ptr Word8))-    length_ <- allocMem :: IO (Ptr Word64)-    etagOut <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_file_load_contents file' maybeCancellable contents length_ etagOut-        length_' <- peek length_-        contents' <- peek contents-        contents'' <- (unpackByteStringWithLength length_') contents'-        freeMem contents'-        etagOut' <- peek etagOut-        etagOut'' <- cstringToText etagOut'-        freeMem etagOut'-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem contents-        freeMem length_-        freeMem etagOut-        return (contents'', etagOut'')-     ) (do-        freeMem contents-        freeMem length_-        freeMem etagOut-     )--#if ENABLE_OVERLOADING-data FileLoadContentsMethodInfo-instance (signature ~ (Maybe (b) -> m ((ByteString, T.Text))), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileLoadContentsMethodInfo a signature where-    overloadedMethod _ = fileLoadContents--#endif---- method File::load_contents_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_load_contents_async" g_file_load_contents_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 ()--{- |-Starts an asynchronous load of the /@file@/\'s contents.--For more details, see 'GI.Gio.Interfaces.File.fileLoadContents' which is-the synchronous version of this call.--When the load operation has completed, /@callback@/ will be called-with /@user@/ data. To finish the operation, call-'GI.Gio.Interfaces.File.fileLoadContentsFinish' with the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' returned by-the /@callback@/.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileLoadContentsAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-fileLoadContentsAsync file cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_load_contents_async file' maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileLoadContentsAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileLoadContentsAsyncMethodInfo a signature where-    overloadedMethod _ = fileLoadContentsAsync--#endif---- method File::load_contents_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the contents of the file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the length of the contents of the file,\n    or %NULL if the length is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the current entity tag for the file,\n    or %NULL if the entity tag is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the length of the contents of the file,\n    or %NULL if the length is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_file_load_contents_finish" g_file_load_contents_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr Word8) ->                      -- contents : TCArray False (-1) 3 (TBasicType TUInt8)-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr CString ->                          -- etag_out : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous load of the /@file@/\'s contents.-The contents are placed in /@contents@/, and /@length@/ is set to the-size of the /@contents@/ string. The /@content@/ should be freed with-'GI.GLib.Functions.free' when no longer needed. If /@etagOut@/ is present, it will be-set to the new entity tag for the /@file@/.--}-fileLoadContentsFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ((ByteString, T.Text))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileLoadContentsFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    contents <- allocMem :: IO (Ptr (Ptr Word8))-    length_ <- allocMem :: IO (Ptr Word64)-    etagOut <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_file_load_contents_finish file' res' contents length_ etagOut-        length_' <- peek length_-        contents' <- peek contents-        contents'' <- (unpackByteStringWithLength length_') contents'-        freeMem contents'-        etagOut' <- peek etagOut-        etagOut'' <- cstringToText etagOut'-        freeMem etagOut'-        touchManagedPtr file-        touchManagedPtr res-        freeMem contents-        freeMem length_-        freeMem etagOut-        return (contents'', etagOut'')-     ) (do-        freeMem contents-        freeMem length_-        freeMem etagOut-     )--#if ENABLE_OVERLOADING-data FileLoadContentsFinishMethodInfo-instance (signature ~ (b -> m ((ByteString, T.Text))), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileLoadContentsFinishMethodInfo a signature where-    overloadedMethod _ = fileLoadContentsFinish--#endif---- method File::load_partial_contents_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the contents of the file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the length of the contents of the file,\n    or %NULL if the length is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the current entity tag for the file,\n    or %NULL if the entity tag is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the length of the contents of the file,\n    or %NULL if the length is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_file_load_partial_contents_finish" g_file_load_partial_contents_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr Word8) ->                      -- contents : TCArray False (-1) 3 (TBasicType TUInt8)-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr CString ->                          -- etag_out : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous partial load operation that was started-with @/g_file_load_partial_contents_async()/@. The data is always-zero-terminated, but this is not included in the resultant /@length@/.-The returned /@content@/ should be freed with 'GI.GLib.Functions.free' when no longer-needed.--}-fileLoadPartialContentsFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ((ByteString, T.Text))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileLoadPartialContentsFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    contents <- allocMem :: IO (Ptr (Ptr Word8))-    length_ <- allocMem :: IO (Ptr Word64)-    etagOut <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_file_load_partial_contents_finish file' res' contents length_ etagOut-        length_' <- peek length_-        contents' <- peek contents-        contents'' <- (unpackByteStringWithLength length_') contents'-        freeMem contents'-        etagOut' <- peek etagOut-        etagOut'' <- cstringToText etagOut'-        freeMem etagOut'-        touchManagedPtr file-        touchManagedPtr res-        freeMem contents-        freeMem length_-        freeMem etagOut-        return (contents'', etagOut'')-     ) (do-        freeMem contents-        freeMem length_-        freeMem etagOut-     )--#if ENABLE_OVERLOADING-data FileLoadPartialContentsFinishMethodInfo-instance (signature ~ (b -> m ((ByteString, T.Text))), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileLoadPartialContentsFinishMethodInfo a signature where-    overloadedMethod _ = fileLoadPartialContentsFinish--#endif---- method File::make_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_make_directory" g_file_make_directory :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Creates a directory. Note that this will only create a child directory-of the immediate parent directory of the path or URI given by the 'GI.Gio.Interfaces.File.File'.-To recursively create directories, see 'GI.Gio.Interfaces.File.fileMakeDirectoryWithParents'.-This function will fail if the parent directory does not exist, setting-/@error@/ to 'GI.Gio.Enums.IOErrorEnumNotFound'. If the file system doesn\'t support-creating directories, this function will fail, setting /@error@/ to-'GI.Gio.Enums.IOErrorEnumNotSupported'.--For a local 'GI.Gio.Interfaces.File.File' the newly created directory will have the default-(current) ownership and permissions of the current process.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileMakeDirectory ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMakeDirectory file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_make_directory file' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileMakeDirectoryMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileMakeDirectoryMethodInfo a signature where-    overloadedMethod _ = fileMakeDirectory--#endif---- method File::make_directory_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_make_directory_async" g_file_make_directory_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 creates a directory.--/Since: 2.38/--}-fileMakeDirectoryAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileMakeDirectoryAsync file ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_make_directory_async file' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileMakeDirectoryAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileMakeDirectoryAsyncMethodInfo a signature where-    overloadedMethod _ = fileMakeDirectoryAsync--#endif---- method File::make_directory_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_make_directory_finish" g_file_make_directory_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous directory creation, started with-'GI.Gio.Interfaces.File.fileMakeDirectoryAsync'.--/Since: 2.38/--}-fileMakeDirectoryFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMakeDirectoryFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_make_directory_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileMakeDirectoryFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileMakeDirectoryFinishMethodInfo a signature where-    overloadedMethod _ = fileMakeDirectoryFinish--#endif---- method File::make_directory_with_parents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_make_directory_with_parents" g_file_make_directory_with_parents :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Creates a directory and any parent directories that may not-exist similar to \'mkdir -p\'. If the file system does not support-creating directories, this function will fail, setting /@error@/ to-'GI.Gio.Enums.IOErrorEnumNotSupported'. If the directory itself already exists,-this function will fail setting /@error@/ to 'GI.Gio.Enums.IOErrorEnumExists', unlike-the similar 'GI.GLib.Functions.mkdirWithParents'.--For a local 'GI.Gio.Interfaces.File.File' the newly created directories will have the default-(current) ownership and permissions of the current process.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--/Since: 2.18/--}-fileMakeDirectoryWithParents ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMakeDirectoryWithParents file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_make_directory_with_parents file' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileMakeDirectoryWithParentsMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileMakeDirectoryWithParentsMethodInfo a signature where-    overloadedMethod _ = fileMakeDirectoryWithParents--#endif---- method File::make_symbolic_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile with the name of the symlink to create", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symlink_value", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string with the path for the target\n    of the new symlink", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_make_symbolic_link" g_file_make_symbolic_link :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- symlink_value : TBasicType TFileName-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Creates a symbolic link named /@file@/ which contains the string-/@symlinkValue@/.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileMakeSymbolicLink ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' with the name of the symlink to create -}-    -> [Char]-    {- ^ /@symlinkValue@/: a string with the path for the target-    of the new symlink -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMakeSymbolicLink file symlinkValue cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    symlinkValue' <- stringToCString symlinkValue-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_make_symbolic_link file' symlinkValue' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem symlinkValue'-        return ()-     ) (do-        freeMem symlinkValue'-     )--#if ENABLE_OVERLOADING-data FileMakeSymbolicLinkMethodInfo-instance (signature ~ ([Char] -> Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileMakeSymbolicLinkMethodInfo a signature where-    overloadedMethod _ = fileMakeSymbolicLink--#endif---- method File::measure_disk_usage_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", 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 "the #GAsyncResult passed to your #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disk_usage", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes of disk space used", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "num_dirs", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of directories encountered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "num_files", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of non-directories encountered", 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 "g_file_measure_disk_usage_finish" g_file_measure_disk_usage_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- disk_usage : TBasicType TUInt64-    Ptr Word64 ->                           -- num_dirs : TBasicType TUInt64-    Ptr Word64 ->                           -- num_files : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Collects the results from an earlier call to-@/g_file_measure_disk_usage_async()/@.  See @/g_file_measure_disk_usage()/@ for-more information.--/Since: 2.38/--}-fileMeasureDiskUsageFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ((Word64, Word64, Word64))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMeasureDiskUsageFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    diskUsage <- allocMem :: IO (Ptr Word64)-    numDirs <- allocMem :: IO (Ptr Word64)-    numFiles <- allocMem :: IO (Ptr Word64)-    onException (do-        _ <- propagateGError $ g_file_measure_disk_usage_finish file' result_' diskUsage numDirs numFiles-        diskUsage' <- peek diskUsage-        numDirs' <- peek numDirs-        numFiles' <- peek numFiles-        touchManagedPtr file-        touchManagedPtr result_-        freeMem diskUsage-        freeMem numDirs-        freeMem numFiles-        return (diskUsage', numDirs', numFiles')-     ) (do-        freeMem diskUsage-        freeMem numDirs-        freeMem numFiles-     )--#if ENABLE_OVERLOADING-data FileMeasureDiskUsageFinishMethodInfo-instance (signature ~ (b -> m ((Word64, Word64, Word64))), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileMeasureDiskUsageFinishMethodInfo a signature where-    overloadedMethod _ = fileMeasureDiskUsageFinish--#endif---- method File::monitor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileMonitorFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileMonitorFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileMonitor"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_monitor" g_file_monitor :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileMonitorFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileMonitor.FileMonitor)--{- |-Obtains a file or directory monitor for the given file,-depending on the type of the file.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--/Since: 2.18/--}-fileMonitor ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileMonitorFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileMonitorFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileMonitor.FileMonitor-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileMonitor.FileMonitor' for the given /@file@/,-    or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMonitor file flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_monitor file' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileMonitor" result-        result' <- (wrapObject Gio.FileMonitor.FileMonitor) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileMonitorMethodInfo-instance (signature ~ ([Gio.Flags.FileMonitorFlags] -> Maybe (b) -> m Gio.FileMonitor.FileMonitor), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileMonitorMethodInfo a signature where-    overloadedMethod _ = fileMonitor--#endif---- method File::monitor_directory--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileMonitorFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileMonitorFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileMonitor"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_monitor_directory" g_file_monitor_directory :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileMonitorFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileMonitor.FileMonitor)--{- |-Obtains a directory monitor for the given file.-This may fail if directory monitoring is not supported.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--It does not make sense for /@flags@/ to contain-'GI.Gio.Flags.FileMonitorFlagsWatchHardLinks', since hard links can not be made to-directories.  It is not possible to monitor all the files in a-directory for changes made via hard links; if you want to do this then-you must register individual watches with 'GI.Gio.Interfaces.File.fileMonitor'.--}-fileMonitorDirectory ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileMonitorFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileMonitorFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileMonitor.FileMonitor-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileMonitor.FileMonitor' for the given /@file@/,-    or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMonitorDirectory file flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_monitor_directory file' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileMonitorDirectory" result-        result' <- (wrapObject Gio.FileMonitor.FileMonitor) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileMonitorDirectoryMethodInfo-instance (signature ~ ([Gio.Flags.FileMonitorFlags] -> Maybe (b) -> m Gio.FileMonitor.FileMonitor), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileMonitorDirectoryMethodInfo a signature where-    overloadedMethod _ = fileMonitorDirectory--#endif---- method File::monitor_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileMonitorFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileMonitorFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileMonitor"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_monitor_file" g_file_monitor_file :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileMonitorFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileMonitor.FileMonitor)--{- |-Obtains a file monitor for the given file. If no file notification-mechanism exists, then regular polling of the file is used.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--If /@flags@/ contains 'GI.Gio.Flags.FileMonitorFlagsWatchHardLinks' then the monitor-will also attempt to report changes made to the file via another-filename (ie, a hard link). Without this flag, you can only rely on-changes made through the filename contained in /@file@/ to be-reported. Using this flag may result in an increase in resource-usage, and may not have any effect depending on the 'GI.Gio.Objects.FileMonitor.FileMonitor'-backend and\/or filesystem type.--}-fileMonitorFile ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileMonitorFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileMonitorFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileMonitor.FileMonitor-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileMonitor.FileMonitor' for the given /@file@/,-    or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMonitorFile file flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_monitor_file file' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileMonitorFile" result-        result' <- (wrapObject Gio.FileMonitor.FileMonitor) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileMonitorFileMethodInfo-instance (signature ~ ([Gio.Flags.FileMonitorFlags] -> Maybe (b) -> m Gio.FileMonitor.FileMonitor), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileMonitorFileMethodInfo a signature where-    overloadedMethod _ = fileMonitorFile--#endif---- method File::mount_enclosing_volume--- method type : OrdinaryMethod--- Args : [Arg {argCName = "location", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountMountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation\n    or %NULL to avoid user interaction", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied, or %NULL", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_mount_enclosing_volume" g_file_mount_enclosing_volume :: -    Ptr File ->                             -- location : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountMountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Starts a /@mountOperation@/, mounting the volume that contains-the file /@location@/.--When this operation has completed, /@callback@/ will be called with-/@userUser@/ data, and the operation can be finalized with-'GI.Gio.Interfaces.File.fileMountEnclosingVolumeFinish'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileMountEnclosingVolume ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@location@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.MountMountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation'-    or 'Nothing' to avoid user interaction -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied, or 'Nothing' -}-    -> m ()-fileMountEnclosingVolume location flags mountOperation cancellable callback = liftIO $ do-    location' <- unsafeManagedPtrCastPtr location-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_file_mount_enclosing_volume location' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr location-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileMountEnclosingVolumeMethodInfo-instance (signature ~ ([Gio.Flags.MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileMountEnclosingVolumeMethodInfo a signature where-    overloadedMethod _ = fileMountEnclosingVolume--#endif---- method File::mount_enclosing_volume_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "location", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_mount_enclosing_volume_finish" g_file_mount_enclosing_volume_finish :: -    Ptr File ->                             -- location : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes a mount operation started by 'GI.Gio.Interfaces.File.fileMountEnclosingVolume'.--}-fileMountEnclosingVolumeFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@location@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMountEnclosingVolumeFinish location result_ = liftIO $ do-    location' <- unsafeManagedPtrCastPtr location-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_mount_enclosing_volume_finish location' result_'-        touchManagedPtr location-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileMountEnclosingVolumeFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileMountEnclosingVolumeFinishMethodInfo a signature where-    overloadedMethod _ = fileMountEnclosingVolumeFinish--#endif---- method File::mount_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountMountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation,\n    or %NULL to avoid user interaction", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied, or %NULL", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_mount_mountable" g_file_mount_mountable :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountMountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Mounts a file of type G_FILE_TYPE_MOUNTABLE.-Using /@mountOperation@/, you can request callbacks when, for instance,-passwords are needed during authentication.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileMountMountableFinish' to get-the result of the operation.--}-fileMountMountable ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.MountMountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation',-    or 'Nothing' to avoid user interaction -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied, or 'Nothing' -}-    -> m ()-fileMountMountable file flags mountOperation cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_file_mount_mountable file' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileMountMountableMethodInfo-instance (signature ~ ([Gio.Flags.MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileMountMountableMethodInfo a signature where-    overloadedMethod _ = fileMountMountable--#endif---- method File::mount_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_mount_mountable_finish" g_file_mount_mountable_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)--{- |-Finishes a mount operation. See 'GI.Gio.Interfaces.File.fileMountMountable' for details.--Finish an asynchronous mount operation that was started-with 'GI.Gio.Interfaces.File.fileMountMountable'.--}-fileMountMountableFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMountMountableFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_mount_mountable_finish file' result_'-        checkUnexpectedReturnNULL "fileMountMountableFinish" result-        result' <- (wrapObject File) result-        touchManagedPtr file-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileMountMountableFinishMethodInfo-instance (signature ~ (b -> m File), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileMountMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileMountMountableFinish--#endif---- method File::move--- method type : OrdinaryMethod--- Args : [Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFile pointing to the source location", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFile pointing to the destination location", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCopyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "set of #GFileCopyFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback", argType = TInterface (Name {namespace = "Gio", name = "FileProgressCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GFileProgressCallback\n    function for updates", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "gpointer to user data for\n    the callback function", 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 "g_file_move" g_file_move :: -    Ptr File ->                             -- source : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr File ->                             -- destination : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCopyFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Gio.Callbacks.C_FileProgressCallback -> -- progress_callback : TInterface (Name {namespace = "Gio", name = "FileProgressCallback"})-    Ptr () ->                               -- progress_callback_data : TBasicType TPtr-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Tries to move the file or directory /@source@/ to the location specified-by /@destination@/. If native move operations are supported then this is-used, otherwise a copy + delete fallback is used. The native-implementation may support moving directories (for instance on moves-inside the same filesystem), but the fallback code does not.--If the flag @/G_FILE_COPY_OVERWRITE/@ is specified an already-existing /@destination@/ file is overwritten.--If the flag @/G_FILE_COPY_NOFOLLOW_SYMLINKS/@ is specified then symlinks-will be copied as symlinks, otherwise the target of the-/@source@/ symlink will be copied.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--If /@progressCallback@/ is not 'Nothing', then the operation can be monitored-by setting this to a 'GI.Gio.Callbacks.FileProgressCallback' function.-/@progressCallbackData@/ will be passed to this function. It is-guaranteed that this callback will be called after all data has been-transferred with the total number of bytes copied during the operation.--If the /@source@/ file does not exist, then the 'GI.Gio.Enums.IOErrorEnumNotFound'-error is returned, independent on the status of the /@destination@/.--If @/G_FILE_COPY_OVERWRITE/@ is not specified and the target exists,-then the error 'GI.Gio.Enums.IOErrorEnumExists' is returned.--If trying to overwrite a file over a directory, the 'GI.Gio.Enums.IOErrorEnumIsDirectory'-error is returned. If trying to overwrite a directory with a directory the-'GI.Gio.Enums.IOErrorEnumWouldMerge' error is returned.--If the source is a directory and the target does not exist, or-@/G_FILE_COPY_OVERWRITE/@ is specified and the target is a file, then-the 'GI.Gio.Enums.IOErrorEnumWouldRecurse' error may be returned (if the native-move operation isn\'t available).--}-fileMove ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, IsFile b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@source@/: 'GI.Gio.Interfaces.File.File' pointing to the source location -}-    -> b-    {- ^ /@destination@/: 'GI.Gio.Interfaces.File.File' pointing to the destination location -}-    -> [Gio.Flags.FileCopyFlags]-    {- ^ /@flags@/: set of 'GI.Gio.Flags.FileCopyFlags' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.FileProgressCallback)-    {- ^ /@progressCallback@/: 'GI.Gio.Callbacks.FileProgressCallback'-    function for updates -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileMove source destination flags cancellable progressCallback = liftIO $ do-    source' <- unsafeManagedPtrCastPtr source-    destination' <- unsafeManagedPtrCastPtr destination-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeProgressCallback <- case progressCallback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jProgressCallback -> do-            jProgressCallback' <- Gio.Callbacks.mk_FileProgressCallback (Gio.Callbacks.wrap_FileProgressCallback Nothing (Gio.Callbacks.drop_closures_FileProgressCallback jProgressCallback))-            return jProgressCallback'-    let progressCallbackData = nullPtr-    onException (do-        _ <- propagateGError $ g_file_move source' destination' flags' maybeCancellable maybeProgressCallback progressCallbackData-        safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback-        touchManagedPtr source-        touchManagedPtr destination-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback-        return ()-     )--#if ENABLE_OVERLOADING-data FileMoveMethodInfo-instance (signature ~ (b -> [Gio.Flags.FileCopyFlags] -> Maybe (c) -> Maybe (Gio.Callbacks.FileProgressCallback) -> m ()), MonadIO m, IsFile a, IsFile b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileMoveMethodInfo a signature where-    overloadedMethod _ = fileMove--#endif---- method File::open_readwrite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFile to open", 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", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileIOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_open_readwrite" g_file_open_readwrite :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileIOStream.FileIOStream)--{- |-Opens an existing file for reading and writing. The result is-a 'GI.Gio.Objects.FileIOStream.FileIOStream' that can be used to read and write the contents-of the file.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled-by triggering the cancellable object from another thread. If the-operation was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be-returned.--If the file does not exist, the 'GI.Gio.Enums.IOErrorEnumNotFound' error will-be returned. If the file is a directory, the 'GI.Gio.Enums.IOErrorEnumIsDirectory'-error will be returned. Other errors are possible too, and depend on-what kind of filesystem the file is on. Note that in many non-local-file cases read and write streams are not supported, so make sure you-really need to do read and write streaming, rather than just opening-for reading or writing.--/Since: 2.22/--}-fileOpenReadwrite ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: 'GI.Gio.Interfaces.File.File' to open -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m Gio.FileIOStream.FileIOStream-    {- ^ __Returns:__ 'GI.Gio.Objects.FileIOStream.FileIOStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileOpenReadwrite file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_open_readwrite file' maybeCancellable-        checkUnexpectedReturnNULL "fileOpenReadwrite" result-        result' <- (wrapObject Gio.FileIOStream.FileIOStream) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileOpenReadwriteMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.FileIOStream.FileIOStream), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileOpenReadwriteMethodInfo a signature where-    overloadedMethod _ = fileOpenReadwrite--#endif---- method File::open_readwrite_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_open_readwrite_async" g_file_open_readwrite_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 opens /@file@/ for reading and writing.--For more details, see 'GI.Gio.Interfaces.File.fileOpenReadwrite' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileOpenReadwriteFinish' to get-the result of the operation.--/Since: 2.22/--}-fileOpenReadwriteAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileOpenReadwriteAsync file ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_open_readwrite_async file' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileOpenReadwriteAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileOpenReadwriteAsyncMethodInfo a signature where-    overloadedMethod _ = fileOpenReadwriteAsync--#endif---- method File::open_readwrite_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileIOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_open_readwrite_finish" g_file_open_readwrite_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileIOStream.FileIOStream)--{- |-Finishes an asynchronous file read operation started with-'GI.Gio.Interfaces.File.fileOpenReadwriteAsync'.--/Since: 2.22/--}-fileOpenReadwriteFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileIOStream.FileIOStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileIOStream.FileIOStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileOpenReadwriteFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_open_readwrite_finish file' res'-        checkUnexpectedReturnNULL "fileOpenReadwriteFinish" result-        result' <- (wrapObject Gio.FileIOStream.FileIOStream) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileOpenReadwriteFinishMethodInfo-instance (signature ~ (b -> m Gio.FileIOStream.FileIOStream), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileOpenReadwriteFinishMethodInfo a signature where-    overloadedMethod _ = fileOpenReadwriteFinish--#endif---- method File::peek_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_file_peek_path" g_file_peek_path :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO CString--{- |-Exactly like 'GI.Gio.Interfaces.File.fileGetPath', but caches the result via-@/g_object_set_qdata_full()/@.  This is useful for example in C-applications which mix @g_file_*@ APIs with native ones.  It-also avoids an extra duplicated string when possible, so will be-generally more efficient.--This call does no blocking I\/O.--/Since: 2.56/--}-filePeekPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> m (Maybe [Char])-    {- ^ __Returns:__ string containing the 'GI.Gio.Interfaces.File.File'\'s path,-    or 'Nothing' if no such path exists. The returned string is owned by /@file@/. -}-filePeekPath file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_peek_path file'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToString result'-        return result''-    touchManagedPtr file-    return maybeResult--#if ENABLE_OVERLOADING-data FilePeekPathMethodInfo-instance (signature ~ (m (Maybe [Char])), MonadIO m, IsFile a) => O.MethodInfo FilePeekPathMethodInfo a signature where-    overloadedMethod _ = filePeekPath--#endif---- method File::poll_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_poll_mountable" g_file_poll_mountable :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 ()--{- |-Polls a file of type @/G_FILE_TYPE_MOUNTABLE/@.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileMountMountableFinish' to get-the result of the operation.--/Since: 2.22/--}-filePollMountable ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied, or 'Nothing' -}-    -> m ()-filePollMountable file cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_poll_mountable file' maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FilePollMountableMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FilePollMountableMethodInfo a signature where-    overloadedMethod _ = filePollMountable--#endif---- method File::poll_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_poll_mountable_finish" g_file_poll_mountable_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes a poll operation. See 'GI.Gio.Interfaces.File.filePollMountable' for details.--Finish an asynchronous poll operation that was polled-with 'GI.Gio.Interfaces.File.filePollMountable'.--/Since: 2.22/--}-filePollMountableFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-filePollMountableFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_poll_mountable_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FilePollMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FilePollMountableFinishMethodInfo a signature where-    overloadedMethod _ = filePollMountableFinish--#endif---- method File::query_default_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile to open", 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 "optional #GCancellable object, %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_query_default_handler" g_file_query_default_handler :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.AppInfo.AppInfo)--{- |-Returns the 'GI.Gio.Interfaces.AppInfo.AppInfo' that is registered as the default-application to handle the file specified by /@file@/.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileQueryDefaultHandler ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' to open -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m Gio.AppInfo.AppInfo-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.AppInfo.AppInfo' if the handle was found,-    'Nothing' if there were errors.-    When you are done with it, release it with 'GI.GObject.Objects.Object.objectUnref' /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileQueryDefaultHandler file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_default_handler file' maybeCancellable-        checkUnexpectedReturnNULL "fileQueryDefaultHandler" result-        result' <- (wrapObject Gio.AppInfo.AppInfo) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileQueryDefaultHandlerMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.AppInfo.AppInfo), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryDefaultHandlerMethodInfo a signature where-    overloadedMethod _ = fileQueryDefaultHandler--#endif---- method File::query_default_handler_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile to open", 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 = 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback to call when the request is done", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, 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 "g_file_query_default_handler_async" g_file_query_default_handler_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 ()--{- |-Async version of 'GI.Gio.Interfaces.File.fileQueryDefaultHandler'.--/Since: 2.60/--}-fileQueryDefaultHandlerAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' to open -}-    -> Int32-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is done -}-    -> m ()-fileQueryDefaultHandlerAsync file ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_query_default_handler_async file' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileQueryDefaultHandlerAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryDefaultHandlerAsyncMethodInfo a signature where-    overloadedMethod _ = fileQueryDefaultHandlerAsync--#endif---- method File::query_default_handler_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile to open", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_query_default_handler_finish" g_file_query_default_handler_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.AppInfo.AppInfo)--{- |-Finishes a 'GI.Gio.Interfaces.File.fileQueryDefaultHandlerAsync' operation.--/Since: 2.60/--}-fileQueryDefaultHandlerFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' to open -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.AppInfo.AppInfo-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.AppInfo.AppInfo' if the handle was found,-    'Nothing' if there were errors.-    When you are done with it, release it with 'GI.GObject.Objects.Object.objectUnref' /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileQueryDefaultHandlerFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_query_default_handler_finish file' result_'-        checkUnexpectedReturnNULL "fileQueryDefaultHandlerFinish" result-        result' <- (wrapObject Gio.AppInfo.AppInfo) result-        touchManagedPtr file-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileQueryDefaultHandlerFinishMethodInfo-instance (signature ~ (b -> m Gio.AppInfo.AppInfo), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileQueryDefaultHandlerFinishMethodInfo a signature where-    overloadedMethod _ = fileQueryDefaultHandlerFinish--#endif---- method File::query_exists--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_query_exists" g_file_query_exists :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO CInt--{- |-Utility function to check if a particular file exists. This is-implemented using 'GI.Gio.Interfaces.File.fileQueryInfo' and as such does blocking I\/O.--Note that in many cases it is <https://en.wikipedia.org/wiki/Time_of_check_to_time_of_use racy to first check for file existence>-and then execute something based on the outcome of that, because the-file might have been created or removed in between the operations. The-general approach to handling that is to not check, but just do the-operation and handle the errors as they come.--As an example of race-free checking, take the case of reading a file,-and if it doesn\'t exist, creating it. There are two racy versions: read-it, and on error create it; and: check if it exists, if not create it.-These can both result in two processes creating the file (with perhaps-a partially written file as the result). The correct approach is to-always try to create the file with 'GI.Gio.Interfaces.File.fileCreate' which will either-atomically create the file or fail with a 'GI.Gio.Enums.IOErrorEnumExists' error.--However, in many cases an existence check is useful in a user interface,-for instance to make a menu item sensitive\/insensitive, so that you don\'t-have to fool users that something is possible and then just show an error-dialog. If you do this, you should make sure to also handle the errors-that can happen due to races when you execute the operation.--}-fileQueryExists ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the file exists (and can be detected without error),-    'False' otherwise (or if cancelled). -}-fileQueryExists file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_file_query_exists file' maybeCancellable-    let result' = (/= 0) result-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data FileQueryExistsMethodInfo-instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryExistsMethodInfo a signature where-    overloadedMethod _ = fileQueryExists--#endif---- method File::query_file_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileQueryInfoFlags passed to g_file_query_info()", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileType"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_query_file_type" g_file_query_file_type :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO CUInt--{- |-Utility function to inspect the 'GI.Gio.Enums.FileType' of a file. This is-implemented using 'GI.Gio.Interfaces.File.fileQueryInfo' and as such does blocking I\/O.--The primary use case of this method is to check if a file is-a regular file, directory, or symlink.--/Since: 2.18/--}-fileQueryFileType ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileQueryInfoFlags' passed to 'GI.Gio.Interfaces.File.fileQueryInfo' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.Enums.FileType-    {- ^ __Returns:__ The 'GI.Gio.Enums.FileType' of the file and @/G_FILE_TYPE_UNKNOWN/@-    if the file does not exist -}-fileQueryFileType file flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_file_query_file_type file' flags' maybeCancellable-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data FileQueryFileTypeMethodInfo-instance (signature ~ ([Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m Gio.Enums.FileType), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryFileTypeMethodInfo a signature where-    overloadedMethod _ = fileQueryFileType--#endif---- method File::query_filesystem_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an attribute query string", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_query_filesystem_info" g_file_query_filesystem_info :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attributes : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Similar to 'GI.Gio.Interfaces.File.fileQueryInfo', but obtains information-about the filesystem the /@file@/ is on, rather than the file itself.-For instance the amount of space available and the type of-the filesystem.--The /@attributes@/ value is a string that specifies the attributes-that should be gathered. It is not an error if it\'s not possible-to read a particular requested attribute from a file - it just-won\'t be set. /@attributes@/ should be a comma-separated list of-attributes or attribute wildcards. The wildcard \"*\" means all-attributes, and a wildcard like \"filesystem::*\" means all attributes-in the filesystem namespace. The standard namespace for filesystem-attributes is \"filesystem\". Common attributes of interest are-'GI.Gio.Constants.FILE_ATTRIBUTE_FILESYSTEM_SIZE' (the total size of the filesystem-in bytes), 'GI.Gio.Constants.FILE_ATTRIBUTE_FILESYSTEM_FREE' (number of bytes available),-and 'GI.Gio.Constants.FILE_ATTRIBUTE_FILESYSTEM_TYPE' (type of the filesystem).--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled-by triggering the cancellable object from another thread. If the-operation was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be-returned.--If the file does not exist, the 'GI.Gio.Enums.IOErrorEnumNotFound' error will-be returned. Other errors are possible too, and depend on what-kind of filesystem the file is on.--}-fileQueryFilesystemInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attributes@/: an attribute query string -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInfo.FileInfo' or 'Nothing' if there was an error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileQueryFilesystemInfo file attributes cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_filesystem_info file' attributes' maybeCancellable-        checkUnexpectedReturnNULL "fileQueryFilesystemInfo" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--#if ENABLE_OVERLOADING-data FileQueryFilesystemInfoMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m Gio.FileInfo.FileInfo), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryFilesystemInfoMethodInfo a signature where-    overloadedMethod _ = fileQueryFilesystemInfo--#endif---- method File::query_filesystem_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an attribute query string", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_query_filesystem_info_async" g_file_query_filesystem_info_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attributes : TBasicType TUTF8-    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 gets the requested information about the filesystem-that the specified /@file@/ is on. The result is a 'GI.Gio.Objects.FileInfo.FileInfo' object-that contains key-value attributes (such as type or size for the-file).--For more details, see 'GI.Gio.Interfaces.File.fileQueryFilesystemInfo' which is the-synchronous version of this call.--When the operation is finished, /@callback@/ will be called. You can-then call 'GI.Gio.Interfaces.File.fileQueryInfoFinish' to get the result of the-operation.--}-fileQueryFilesystemInfoAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attributes@/: an attribute query string -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileQueryFilesystemInfoAsync file attributes ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attributes' <- textToCString attributes-    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-    g_file_query_filesystem_info_async file' attributes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--#if ENABLE_OVERLOADING-data FileQueryFilesystemInfoAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryFilesystemInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileQueryFilesystemInfoAsync--#endif---- method File::query_filesystem_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_query_filesystem_info_finish" g_file_query_filesystem_info_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Finishes an asynchronous filesystem info query.-See 'GI.Gio.Interfaces.File.fileQueryFilesystemInfoAsync'.--}-fileQueryFilesystemInfoFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ 'GI.Gio.Objects.FileInfo.FileInfo' for given /@file@/-    or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileQueryFilesystemInfoFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_query_filesystem_info_finish file' res'-        checkUnexpectedReturnNULL "fileQueryFilesystemInfoFinish" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileQueryFilesystemInfoFinishMethodInfo-instance (signature ~ (b -> m Gio.FileInfo.FileInfo), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileQueryFilesystemInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileQueryFilesystemInfoFinish--#endif---- method File::query_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an attribute query string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_query_info" g_file_query_info :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attributes : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Gets the requested information about specified /@file@/.-The result is a 'GI.Gio.Objects.FileInfo.FileInfo' object that contains key-value-attributes (such as the type or size of the file).--The /@attributes@/ value is a string that specifies the file-attributes that should be gathered. It is not an error if-it\'s not possible to read a particular requested attribute-from a file - it just won\'t be set. /@attributes@/ should be a-comma-separated list of attributes or attribute wildcards.-The wildcard \"*\" means all attributes, and a wildcard like-\"standard::*\" means all attributes in the standard namespace.-An example attribute query be \"standard::*,owner::user\".-The standard attributes are available as defines, like-'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_NAME'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled-by triggering the cancellable object from another thread. If the-operation was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be-returned.--For symlinks, normally the information about the target of the-symlink is returned, rather than information about the symlink-itself. However if you pass @/G_FILE_QUERY_INFO_NOFOLLOW_SYMLINKS/@-in /@flags@/ the information about the symlink itself will be returned.-Also, for symlinks that point to non-existing files the information-about the symlink itself will be returned.--If the file does not exist, the 'GI.Gio.Enums.IOErrorEnumNotFound' error will be-returned. Other errors are possible too, and depend on what kind of-filesystem the file is on.--}-fileQueryInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attributes@/: an attribute query string -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInfo.FileInfo' for the given /@file@/, or 'Nothing'-    on error. Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileQueryInfo file attributes flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attributes' <- textToCString attributes-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_info file' attributes' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileQueryInfo" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--#if ENABLE_OVERLOADING-data FileQueryInfoMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m Gio.FileInfo.FileInfo), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryInfoMethodInfo a signature where-    overloadedMethod _ = fileQueryInfo--#endif---- method File::query_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an attribute query string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileQueryInfoFlags", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call when the\n    request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_query_info_async" g_file_query_info_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attributes : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    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 gets the requested information about specified /@file@/.-The result is a 'GI.Gio.Objects.FileInfo.FileInfo' object that contains key-value attributes-(such as type or size for the file).--For more details, see 'GI.Gio.Interfaces.File.fileQueryInfo' which is the synchronous-version of this call.--When the operation is finished, /@callback@/ will be called. You can-then call 'GI.Gio.Interfaces.File.fileQueryInfoFinish' to get the result of the operation.--}-fileQueryInfoAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attributes@/: an attribute query string -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the-    request is satisfied -}-    -> m ()-fileQueryInfoAsync file attributes flags ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attributes' <- textToCString attributes-    let flags' = gflagsToWord flags-    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-    g_file_query_info_async file' attributes' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--#if ENABLE_OVERLOADING-data FileQueryInfoAsyncMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.FileQueryInfoFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileQueryInfoAsync--#endif---- method File::query_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_query_info_finish" g_file_query_info_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Finishes an asynchronous file info query.-See 'GI.Gio.Interfaces.File.fileQueryInfoAsync'.--}-fileQueryInfoFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ 'GI.Gio.Objects.FileInfo.FileInfo' for given /@file@/-    or 'Nothing' on error. Free the returned object with-    'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileQueryInfoFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_query_info_finish file' res'-        checkUnexpectedReturnNULL "fileQueryInfoFinish" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileQueryInfoFinishMethodInfo-instance (signature ~ (b -> m Gio.FileInfo.FileInfo), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileQueryInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileQueryInfoFinish--#endif---- method File::query_settable_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_query_settable_attributes" g_file_query_settable_attributes :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileAttributeInfoList.FileAttributeInfoList)--{- |-Obtain the list of settable attributes for the file.--Returns the type and full attribute name of all the attributes-that can be set on this file. This doesn\'t mean setting it will-always succeed though, you might get an access failure, or some-specific file may not support a specific attribute.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileQuerySettableAttributes ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileAttributeInfoList.FileAttributeInfoList-    {- ^ __Returns:__ a 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList' describing the settable attributes.-    When you are done with it, release it with-    'GI.Gio.Structs.FileAttributeInfoList.fileAttributeInfoListUnref' /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileQuerySettableAttributes file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_settable_attributes file' maybeCancellable-        checkUnexpectedReturnNULL "fileQuerySettableAttributes" result-        result' <- (wrapBoxed Gio.FileAttributeInfoList.FileAttributeInfoList) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileQuerySettableAttributesMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.FileAttributeInfoList.FileAttributeInfoList), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQuerySettableAttributesMethodInfo a signature where-    overloadedMethod _ = fileQuerySettableAttributes--#endif---- method File::query_writable_namespaces--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_query_writable_namespaces" g_file_query_writable_namespaces :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileAttributeInfoList.FileAttributeInfoList)--{- |-Obtain the list of attribute namespaces where new attributes-can be created by a user. An example of this is extended-attributes (in the \"xattr\" namespace).--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileQueryWritableNamespaces ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileAttributeInfoList.FileAttributeInfoList-    {- ^ __Returns:__ a 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList' describing the writable namespaces.-    When you are done with it, release it with-    'GI.Gio.Structs.FileAttributeInfoList.fileAttributeInfoListUnref' /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileQueryWritableNamespaces file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_query_writable_namespaces file' maybeCancellable-        checkUnexpectedReturnNULL "fileQueryWritableNamespaces" result-        result' <- (wrapBoxed Gio.FileAttributeInfoList.FileAttributeInfoList) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileQueryWritableNamespacesMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.FileAttributeInfoList.FileAttributeInfoList), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileQueryWritableNamespacesMethodInfo a signature where-    overloadedMethod _ = fileQueryWritableNamespaces--#endif---- method File::read--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFile to read", 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", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_read" g_file_read :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInputStream.FileInputStream)--{- |-Opens a file for reading. The result is a 'GI.Gio.Objects.FileInputStream.FileInputStream' that-can be used to read the contents of the file.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--If the file does not exist, the 'GI.Gio.Enums.IOErrorEnumNotFound' error will be-returned. If the file is a directory, the 'GI.Gio.Enums.IOErrorEnumIsDirectory'-error will be returned. Other errors are possible too, and depend-on what kind of filesystem the file is on.--}-fileRead ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: 'GI.Gio.Interfaces.File.File' to read -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m Gio.FileInputStream.FileInputStream-    {- ^ __Returns:__ 'GI.Gio.Objects.FileInputStream.FileInputStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileRead file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_read file' maybeCancellable-        checkUnexpectedReturnNULL "fileRead" result-        result' <- (wrapObject Gio.FileInputStream.FileInputStream) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileReadMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.FileInputStream.FileInputStream), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReadMethodInfo a signature where-    overloadedMethod _ = fileRead--#endif---- method File::read_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_read_async" g_file_read_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 opens /@file@/ for reading.--For more details, see 'GI.Gio.Interfaces.File.fileRead' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileReadFinish' to get the result-of the operation.--}-fileReadAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileReadAsync file ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_read_async file' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileReadAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReadAsyncMethodInfo a signature where-    overloadedMethod _ = fileReadAsync--#endif---- method File::read_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_read_finish" g_file_read_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInputStream.FileInputStream)--{- |-Finishes an asynchronous file read operation started with-'GI.Gio.Interfaces.File.fileReadAsync'.--}-fileReadFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileInputStream.FileInputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInputStream.FileInputStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileReadFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_read_finish file' res'-        checkUnexpectedReturnNULL "fileReadFinish" result-        result' <- (wrapObject Gio.FileInputStream.FileInputStream) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileReadFinishMethodInfo-instance (signature ~ (b -> m Gio.FileInputStream.FileInputStream), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileReadFinishMethodInfo a signature where-    overloadedMethod _ = fileReadFinish--#endif---- method File::replace--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an optional [entity tag][gfile-etag]\n    for the current #GFile, or #NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if a backup should be created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileOutputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_replace" g_file_replace :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileOutputStream.FileOutputStream)--{- |-Returns an output stream for overwriting the file, possibly-creating a backup copy of the file first. If the file doesn\'t exist,-it will be created.--This will try to replace the file in the safest way possible so-that any errors during the writing will not affect an already-existing copy of the file. For instance, for local files it-may write to a temporary file and then atomically rename over-the destination when the stream is closed.--By default files created are generally readable by everyone,-but if you pass @/G_FILE_CREATE_PRIVATE/@ in /@flags@/ the file-will be made readable only to the current user, to the level that-is supported on the target filesystem.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled-by triggering the cancellable object from another thread. If the-operation was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be-returned.--If you pass in a non-'Nothing' /@etag@/ value and /@file@/ already exists, then-this value is compared to the current entity tag of the file, and if-they differ an 'GI.Gio.Enums.IOErrorEnumWrongEtag' error is returned. This-generally means that the file has been changed since you last read-it. You can get the new etag from 'GI.Gio.Objects.FileOutputStream.fileOutputStreamGetEtag'-after you\'ve finished writing and closed the 'GI.Gio.Objects.FileOutputStream.FileOutputStream'. When-you load a new file you can use 'GI.Gio.Objects.FileInputStream.fileInputStreamQueryInfo' to-get the etag of the file.--If /@makeBackup@/ is 'True', this function will attempt to make a-backup of the current file before overwriting it. If this fails-a 'GI.Gio.Enums.IOErrorEnumCantCreateBackup' error will be returned. If you-want to replace anyway, try again with /@makeBackup@/ set to 'False'.--If the file is a directory the 'GI.Gio.Enums.IOErrorEnumIsDirectory' error will-be returned, and if the file is some other form of non-regular file-then a 'GI.Gio.Enums.IOErrorEnumNotRegularFile' error will be returned. Some-file systems don\'t allow all file names, and may return an-'GI.Gio.Enums.IOErrorEnumInvalidFilename' error, and if the name is to long-'GI.Gio.Enums.IOErrorEnumFilenameTooLong' will be returned. Other errors are-possible too, and depend on what kind of filesystem the file is on.--}-fileReplace ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (T.Text)-    {- ^ /@etag@/: an optional [entity tag][gfile-etag]-    for the current 'GI.Gio.Interfaces.File.File', or @/NULL/@ to ignore -}-    -> Bool-    {- ^ /@makeBackup@/: 'True' if a backup should be created -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileOutputStream.FileOutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileOutputStream.FileOutputStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileReplace file etag makeBackup flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeEtag <- case etag of-        Nothing -> return nullPtr-        Just jEtag -> do-            jEtag' <- textToCString jEtag-            return jEtag'-    let makeBackup' = (fromIntegral . fromEnum) makeBackup-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_replace file' maybeEtag makeBackup' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileReplace" result-        result' <- (wrapObject Gio.FileOutputStream.FileOutputStream) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem maybeEtag-        return result'-     ) (do-        freeMem maybeEtag-     )--#if ENABLE_OVERLOADING-data FileReplaceMethodInfo-instance (signature ~ (Maybe (T.Text) -> Bool -> [Gio.Flags.FileCreateFlags] -> Maybe (b) -> m Gio.FileOutputStream.FileOutputStream), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReplaceMethodInfo a signature where-    overloadedMethod _ = fileReplace--#endif---- method File::replace_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an [entity tag][gfile-etag] for the current #GFile,\n    or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if a backup should be created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_replace_async" g_file_replace_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    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 overwrites the file, replacing the contents,-possibly creating a backup copy of the file first.--For more details, see 'GI.Gio.Interfaces.File.fileReplace' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileReplaceFinish' to get the result-of the operation.--}-fileReplaceAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (T.Text)-    {- ^ /@etag@/: an [entity tag][gfile-etag] for the current 'GI.Gio.Interfaces.File.File',-    or 'Nothing' to ignore -}-    -> Bool-    {- ^ /@makeBackup@/: 'True' if a backup should be created -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileReplaceAsync file etag makeBackup flags ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeEtag <- case etag of-        Nothing -> return nullPtr-        Just jEtag -> do-            jEtag' <- textToCString jEtag-            return jEtag'-    let makeBackup' = (fromIntegral . fromEnum) makeBackup-    let flags' = gflagsToWord flags-    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-    g_file_replace_async file' maybeEtag makeBackup' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    freeMem maybeEtag-    return ()--#if ENABLE_OVERLOADING-data FileReplaceAsyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> Bool -> [Gio.Flags.FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReplaceAsyncMethodInfo a signature where-    overloadedMethod _ = fileReplaceAsync--#endif---- method File::replace_contents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the new contents for @file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @contents in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the old [entity-tag][gfile-etag] for the document,\n    or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if a backup should be created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_etag", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to a new [entity tag][gfile-etag]\n     for the document. This should be freed with g_free() when no longer\n     needed, or %NULL", 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 "optional #GCancellable object, %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @contents in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_file_replace_contents" g_file_replace_contents :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Word8 ->                            -- contents : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    Ptr CString ->                          -- new_etag : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Replaces the contents of /@file@/ with /@contents@/ of /@length@/ bytes.--If /@etag@/ is specified (not 'Nothing'), any existing file must have that etag,-or the error 'GI.Gio.Enums.IOErrorEnumWrongEtag' will be returned.--If /@makeBackup@/ is 'True', this function will attempt to make a backup-of /@file@/. Internally, it uses 'GI.Gio.Interfaces.File.fileReplace', so will try to replace the-file contents in the safest way possible. For example, atomic renames are-used when replacing local files’ contents.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--The returned /@newEtag@/ can be used to verify that the file hasn\'t-changed the next time it is saved over.--}-fileReplaceContents ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> ByteString-    {- ^ /@contents@/: a string containing the new contents for /@file@/ -}-    -> Maybe (T.Text)-    {- ^ /@etag@/: the old [entity-tag][gfile-etag] for the document,-    or 'Nothing' -}-    -> Bool-    {- ^ /@makeBackup@/: 'True' if a backup should be created -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m (T.Text)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileReplaceContents file contents etag makeBackup flags cancellable = liftIO $ do-    let length_ = fromIntegral $ B.length contents-    file' <- unsafeManagedPtrCastPtr file-    contents' <- packByteString contents-    maybeEtag <- case etag of-        Nothing -> return nullPtr-        Just jEtag -> do-            jEtag' <- textToCString jEtag-            return jEtag'-    let makeBackup' = (fromIntegral . fromEnum) makeBackup-    let flags' = gflagsToWord flags-    newEtag <- allocMem :: IO (Ptr CString)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_replace_contents file' contents' length_ maybeEtag makeBackup' flags' newEtag maybeCancellable-        newEtag' <- peek newEtag-        newEtag'' <- cstringToText newEtag'-        freeMem newEtag'-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem contents'-        freeMem maybeEtag-        freeMem newEtag-        return newEtag''-     ) (do-        freeMem contents'-        freeMem maybeEtag-        freeMem newEtag-     )--#if ENABLE_OVERLOADING-data FileReplaceContentsMethodInfo-instance (signature ~ (ByteString -> Maybe (T.Text) -> Bool -> [Gio.Flags.FileCreateFlags] -> Maybe (b) -> m (T.Text)), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReplaceContentsMethodInfo a signature where-    overloadedMethod _ = fileReplaceContents--#endif---- method File::replace_contents_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "string of contents to replace the file with", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @contents in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a new [entity tag][gfile-etag] for the @file, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if a backup should be created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @contents in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_replace_contents_async" g_file_replace_contents_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Word8 ->                            -- contents : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    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 ()--{- |-Starts an asynchronous replacement of /@file@/ with the given-/@contents@/ of /@length@/ bytes. /@etag@/ will replace the document\'s-current entity tag.--When this operation has completed, /@callback@/ will be called with-/@userUser@/ data, and the operation can be finalized with-'GI.Gio.Interfaces.File.fileReplaceContentsFinish'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--If /@makeBackup@/ is 'True', this function will attempt to-make a backup of /@file@/.--Note that no copy of /@content@/ will be made, so it must stay valid-until /@callback@/ is called. See 'GI.Gio.Interfaces.File.fileReplaceContentsBytesAsync'-for a 'GI.GLib.Structs.Bytes.Bytes' version that will automatically hold a reference to the-contents (without copying) for the duration of the call.--}-fileReplaceContentsAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> ByteString-    {- ^ /@contents@/: string of contents to replace the file with -}-    -> Maybe (T.Text)-    {- ^ /@etag@/: a new [entity tag][gfile-etag] for the /@file@/, or 'Nothing' -}-    -> Bool-    {- ^ /@makeBackup@/: 'True' if a backup should be created -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-fileReplaceContentsAsync file contents etag makeBackup flags cancellable callback = liftIO $ do-    let length_ = fromIntegral $ B.length contents-    file' <- unsafeManagedPtrCastPtr file-    contents' <- packByteString contents-    maybeEtag <- case etag of-        Nothing -> return nullPtr-        Just jEtag -> do-            jEtag' <- textToCString jEtag-            return jEtag'-    let makeBackup' = (fromIntegral . fromEnum) makeBackup-    let flags' = gflagsToWord flags-    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-    g_file_replace_contents_async file' contents' length_ maybeEtag makeBackup' flags' maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    freeMem contents'-    freeMem maybeEtag-    return ()--#if ENABLE_OVERLOADING-data FileReplaceContentsAsyncMethodInfo-instance (signature ~ (ByteString -> Maybe (T.Text) -> Bool -> [Gio.Flags.FileCreateFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReplaceContentsAsyncMethodInfo a signature where-    overloadedMethod _ = fileReplaceContentsAsync--#endif---- method File::replace_contents_bytes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a new [entity tag][gfile-etag] for the @file, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if a backup should be created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_replace_contents_bytes_async" g_file_replace_contents_bytes_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr GLib.Bytes.Bytes ->                 -- contents : TInterface (Name {namespace = "GLib", name = "Bytes"})-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    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 ()--{- |-Same as 'GI.Gio.Interfaces.File.fileReplaceContentsAsync' but takes a 'GI.GLib.Structs.Bytes.Bytes' input instead.-This function will keep a ref on /@contents@/ until the operation is done.-Unlike 'GI.Gio.Interfaces.File.fileReplaceContentsAsync' this allows forgetting about the-content without waiting for the callback.--When this operation has completed, /@callback@/ will be called with-/@userUser@/ data, and the operation can be finalized with-'GI.Gio.Interfaces.File.fileReplaceContentsFinish'.--/Since: 2.40/--}-fileReplaceContentsBytesAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> GLib.Bytes.Bytes-    {- ^ /@contents@/: a 'GI.GLib.Structs.Bytes.Bytes' -}-    -> Maybe (T.Text)-    {- ^ /@etag@/: a new [entity tag][gfile-etag] for the /@file@/, or 'Nothing' -}-    -> Bool-    {- ^ /@makeBackup@/: 'True' if a backup should be created -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-fileReplaceContentsBytesAsync file contents etag makeBackup flags cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    contents' <- unsafeManagedPtrGetPtr contents-    maybeEtag <- case etag of-        Nothing -> return nullPtr-        Just jEtag -> do-            jEtag' <- textToCString jEtag-            return jEtag'-    let makeBackup' = (fromIntegral . fromEnum) makeBackup-    let flags' = gflagsToWord flags-    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-    g_file_replace_contents_bytes_async file' contents' maybeEtag makeBackup' flags' maybeCancellable maybeCallback userData-    touchManagedPtr file-    touchManagedPtr contents-    whenJust cancellable touchManagedPtr-    freeMem maybeEtag-    return ()--#if ENABLE_OVERLOADING-data FileReplaceContentsBytesAsyncMethodInfo-instance (signature ~ (GLib.Bytes.Bytes -> Maybe (T.Text) -> Bool -> [Gio.Flags.FileCreateFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReplaceContentsBytesAsyncMethodInfo a signature where-    overloadedMethod _ = fileReplaceContentsBytesAsync--#endif---- method File::replace_contents_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_etag", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location of a new [entity tag][gfile-etag]\n    for the document. This should be freed with g_free() when it is no\n    longer needed, or %NULL", 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 "g_file_replace_contents_finish" g_file_replace_contents_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr CString ->                          -- new_etag : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous replace of the given /@file@/. See-'GI.Gio.Interfaces.File.fileReplaceContentsAsync'. Sets /@newEtag@/ to the new entity-tag for the document, if present.--}-fileReplaceContentsFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m (T.Text)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileReplaceContentsFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    newEtag <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_file_replace_contents_finish file' res' newEtag-        newEtag' <- peek newEtag-        newEtag'' <- cstringToText newEtag'-        freeMem newEtag'-        touchManagedPtr file-        touchManagedPtr res-        freeMem newEtag-        return newEtag''-     ) (do-        freeMem newEtag-     )--#if ENABLE_OVERLOADING-data FileReplaceContentsFinishMethodInfo-instance (signature ~ (b -> m (T.Text)), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileReplaceContentsFinishMethodInfo a signature where-    overloadedMethod _ = fileReplaceContentsFinish--#endif---- method File::replace_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileOutputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_replace_finish" g_file_replace_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileOutputStream.FileOutputStream)--{- |-Finishes an asynchronous file replace operation started with-'GI.Gio.Interfaces.File.fileReplaceAsync'.--}-fileReplaceFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileOutputStream.FileOutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileOutputStream.FileOutputStream', or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileReplaceFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_replace_finish file' res'-        checkUnexpectedReturnNULL "fileReplaceFinish" result-        result' <- (wrapObject Gio.FileOutputStream.FileOutputStream) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileReplaceFinishMethodInfo-instance (signature ~ (b -> m Gio.FileOutputStream.FileOutputStream), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileReplaceFinishMethodInfo a signature where-    overloadedMethod _ = fileReplaceFinish--#endif---- method File::replace_readwrite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an optional [entity tag][gfile-etag]\n    for the current #GFile, or #NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if a backup should be created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileIOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_replace_readwrite" g_file_replace_readwrite :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileIOStream.FileIOStream)--{- |-Returns an output stream for overwriting the file in readwrite mode,-possibly creating a backup copy of the file first. If the file doesn\'t-exist, it will be created.--For details about the behaviour, see 'GI.Gio.Interfaces.File.fileReplace' which does the-same thing but returns an output stream only.--Note that in many non-local file cases read and write streams are not-supported, so make sure you really need to do read and write streaming,-rather than just opening for reading or writing.--/Since: 2.22/--}-fileReplaceReadwrite ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (T.Text)-    {- ^ /@etag@/: an optional [entity tag][gfile-etag]-    for the current 'GI.Gio.Interfaces.File.File', or @/NULL/@ to ignore -}-    -> Bool-    {- ^ /@makeBackup@/: 'True' if a backup should be created -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m Gio.FileIOStream.FileIOStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileIOStream.FileIOStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileReplaceReadwrite file etag makeBackup flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeEtag <- case etag of-        Nothing -> return nullPtr-        Just jEtag -> do-            jEtag' <- textToCString jEtag-            return jEtag'-    let makeBackup' = (fromIntegral . fromEnum) makeBackup-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_replace_readwrite file' maybeEtag makeBackup' flags' maybeCancellable-        checkUnexpectedReturnNULL "fileReplaceReadwrite" result-        result' <- (wrapObject Gio.FileIOStream.FileIOStream) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem maybeEtag-        return result'-     ) (do-        freeMem maybeEtag-     )--#if ENABLE_OVERLOADING-data FileReplaceReadwriteMethodInfo-instance (signature ~ (Maybe (T.Text) -> Bool -> [Gio.Flags.FileCreateFlags] -> Maybe (b) -> m Gio.FileIOStream.FileIOStream), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReplaceReadwriteMethodInfo a signature where-    overloadedMethod _ = fileReplaceReadwrite--#endif---- method File::replace_readwrite_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an [entity tag][gfile-etag] for the current #GFile,\n    or %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if a backup should be created", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileCreateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileCreateFlags", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_replace_readwrite_async" g_file_replace_readwrite_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- etag : TBasicType TUTF8-    CInt ->                                 -- make_backup : TBasicType TBoolean-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileCreateFlags"})-    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 overwrites the file in read-write mode,-replacing the contents, possibly creating a backup copy-of the file first.--For more details, see 'GI.Gio.Interfaces.File.fileReplaceReadwrite' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileReplaceReadwriteFinish' to get-the result of the operation.--/Since: 2.22/--}-fileReplaceReadwriteAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Maybe (T.Text)-    {- ^ /@etag@/: an [entity tag][gfile-etag] for the current 'GI.Gio.Interfaces.File.File',-    or 'Nothing' to ignore -}-    -> Bool-    {- ^ /@makeBackup@/: 'True' if a backup should be created -}-    -> [Gio.Flags.FileCreateFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileCreateFlags' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileReplaceReadwriteAsync file etag makeBackup flags ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeEtag <- case etag of-        Nothing -> return nullPtr-        Just jEtag -> do-            jEtag' <- textToCString jEtag-            return jEtag'-    let makeBackup' = (fromIntegral . fromEnum) makeBackup-    let flags' = gflagsToWord flags-    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-    g_file_replace_readwrite_async file' maybeEtag makeBackup' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    freeMem maybeEtag-    return ()--#if ENABLE_OVERLOADING-data FileReplaceReadwriteAsyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> Bool -> [Gio.Flags.FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileReplaceReadwriteAsyncMethodInfo a signature where-    overloadedMethod _ = fileReplaceReadwriteAsync--#endif---- method File::replace_readwrite_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileIOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_replace_readwrite_finish" g_file_replace_readwrite_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileIOStream.FileIOStream)--{- |-Finishes an asynchronous file replace operation started with-'GI.Gio.Interfaces.File.fileReplaceReadwriteAsync'.--/Since: 2.22/--}-fileReplaceReadwriteFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.FileIOStream.FileIOStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileIOStream.FileIOStream', or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileReplaceReadwriteFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_replace_readwrite_finish file' res'-        checkUnexpectedReturnNULL "fileReplaceReadwriteFinish" result-        result' <- (wrapObject Gio.FileIOStream.FileIOStream) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileReplaceReadwriteFinishMethodInfo-instance (signature ~ (b -> m Gio.FileIOStream.FileIOStream), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileReplaceReadwriteFinishMethodInfo a signature where-    overloadedMethod _ = fileReplaceReadwriteFinish--#endif---- method File::resolve_relative_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relative_path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given relative path string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_resolve_relative_path" g_file_resolve_relative_path :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- relative_path : TBasicType TFileName-    IO (Ptr File)--{- |-Resolves a relative path for /@file@/ to an absolute path.--This call does no blocking I\/O.--}-fileResolveRelativePath ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Char]-    {- ^ /@relativePath@/: a given relative path string -}-    -> m File-    {- ^ __Returns:__ 'GI.Gio.Interfaces.File.File' to the resolved path.-    'Nothing' if /@relativePath@/ is 'Nothing' or if /@file@/ is invalid.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-fileResolveRelativePath file relativePath = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    relativePath' <- stringToCString relativePath-    result <- g_file_resolve_relative_path file' relativePath'-    checkUnexpectedReturnNULL "fileResolveRelativePath" result-    result' <- (wrapObject File) result-    touchManagedPtr file-    freeMem relativePath'-    return result'--#if ENABLE_OVERLOADING-data FileResolveRelativePathMethodInfo-instance (signature ~ ([Char] -> m File), MonadIO m, IsFile a) => O.MethodInfo FileResolveRelativePathMethodInfo a signature where-    overloadedMethod _ = fileResolveRelativePath--#endif---- method File::set_attribute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The type of the attribute", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value_p", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pointer to the value (or the pointer\n    itself if the type is a pointer type)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_set_attribute" g_file_set_attribute :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attribute : TBasicType TUTF8-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "FileAttributeType"})-    Ptr () ->                               -- value_p : TBasicType TPtr-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets an attribute in the file with attribute name /@attribute@/ to /@value@/.--Some attributes can be unset by setting /@type@/ to-'GI.Gio.Enums.FileAttributeTypeInvalid' and /@valueP@/ to 'Nothing'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetAttribute ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attribute@/: a string containing the attribute\'s name -}-    -> Gio.Enums.FileAttributeType-    {- ^ /@type@/: The type of the attribute -}-    -> Ptr ()-    {- ^ /@valueP@/: a pointer to the value (or the pointer-    itself if the type is a pointer type) -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttribute file attribute type_ valueP flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attribute' <- textToCString attribute-    let type_' = (fromIntegral . fromEnum) type_-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute file' attribute' type_' valueP flags' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--#if ENABLE_OVERLOADING-data FileSetAttributeMethodInfo-instance (signature ~ (T.Text -> Gio.Enums.FileAttributeType -> Ptr () -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetAttributeMethodInfo a signature where-    overloadedMethod _ = fileSetAttribute--#endif---- method File::set_attribute_byte_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's new value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_set_attribute_byte_string" g_file_set_attribute_byte_string :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attribute : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@attribute@/ of type 'GI.Gio.Enums.FileAttributeTypeByteString' to /@value@/.-If /@attribute@/ is of a different type, this operation will fail,-returning 'False'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetAttributeByteString ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attribute@/: a string containing the attribute\'s name -}-    -> T.Text-    {- ^ /@value@/: a string containing the attribute\'s new value -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttributeByteString file attribute value flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attribute' <- textToCString attribute-    value' <- textToCString value-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_byte_string file' attribute' value' flags' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        freeMem value'-        return ()-     ) (do-        freeMem attribute'-        freeMem value'-     )--#if ENABLE_OVERLOADING-data FileSetAttributeByteStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetAttributeByteStringMethodInfo a signature where-    overloadedMethod _ = fileSetAttributeByteString--#endif---- method File::set_attribute_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gint32 containing the attribute's new value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_set_attribute_int32" g_file_set_attribute_int32 :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attribute : TBasicType TUTF8-    Int32 ->                                -- value : TBasicType TInt32-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@attribute@/ of type 'GI.Gio.Enums.FileAttributeTypeInt32' to /@value@/.-If /@attribute@/ is of a different type, this operation will fail.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetAttributeInt32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attribute@/: a string containing the attribute\'s name -}-    -> Int32-    {- ^ /@value@/: a @/gint32/@ containing the attribute\'s new value -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttributeInt32 file attribute value flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attribute' <- textToCString attribute-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_int32 file' attribute' value flags' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--#if ENABLE_OVERLOADING-data FileSetAttributeInt32MethodInfo-instance (signature ~ (T.Text -> Int32 -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetAttributeInt32MethodInfo a signature where-    overloadedMethod _ = fileSetAttributeInt32--#endif---- method File::set_attribute_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #guint64 containing the attribute's new value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_set_attribute_int64" g_file_set_attribute_int64 :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attribute : TBasicType TUTF8-    Int64 ->                                -- value : TBasicType TInt64-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@attribute@/ of type 'GI.Gio.Enums.FileAttributeTypeInt64' to /@value@/.-If /@attribute@/ is of a different type, this operation will fail.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetAttributeInt64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attribute@/: a string containing the attribute\'s name -}-    -> Int64-    {- ^ /@value@/: a @/guint64/@ containing the attribute\'s new value -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttributeInt64 file attribute value flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attribute' <- textToCString attribute-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_int64 file' attribute' value flags' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--#if ENABLE_OVERLOADING-data FileSetAttributeInt64MethodInfo-instance (signature ~ (T.Text -> Int64 -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetAttributeInt64MethodInfo a signature where-    overloadedMethod _ = fileSetAttributeInt64--#endif---- method File::set_attribute_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_set_attribute_string" g_file_set_attribute_string :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attribute : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@attribute@/ of type 'GI.Gio.Enums.FileAttributeTypeString' to /@value@/.-If /@attribute@/ is of a different type, this operation will fail.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetAttributeString ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attribute@/: a string containing the attribute\'s name -}-    -> T.Text-    {- ^ /@value@/: a string containing the attribute\'s value -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttributeString file attribute value flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attribute' <- textToCString attribute-    value' <- textToCString value-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_string file' attribute' value' flags' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        freeMem value'-        return ()-     ) (do-        freeMem attribute'-        freeMem value'-     )--#if ENABLE_OVERLOADING-data FileSetAttributeStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetAttributeStringMethodInfo a signature where-    overloadedMethod _ = fileSetAttributeString--#endif---- method File::set_attribute_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #guint32 containing the attribute's new value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_set_attribute_uint32" g_file_set_attribute_uint32 :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attribute : TBasicType TUTF8-    Word32 ->                               -- value : TBasicType TUInt32-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@attribute@/ of type 'GI.Gio.Enums.FileAttributeTypeUint32' to /@value@/.-If /@attribute@/ is of a different type, this operation will fail.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetAttributeUint32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attribute@/: a string containing the attribute\'s name -}-    -> Word32-    {- ^ /@value@/: a @/guint32/@ containing the attribute\'s new value -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttributeUint32 file attribute value flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attribute' <- textToCString attribute-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_uint32 file' attribute' value flags' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--#if ENABLE_OVERLOADING-data FileSetAttributeUint32MethodInfo-instance (signature ~ (T.Text -> Word32 -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetAttributeUint32MethodInfo a signature where-    overloadedMethod _ = fileSetAttributeUint32--#endif---- method File::set_attribute_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing the attribute's name", 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 = Just "a #guint64 containing the attribute's new value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_set_attribute_uint64" g_file_set_attribute_uint64 :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- attribute : TBasicType TUTF8-    Word64 ->                               -- value : TBasicType TUInt64-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@attribute@/ of type 'GI.Gio.Enums.FileAttributeTypeUint64' to /@value@/.-If /@attribute@/ is of a different type, this operation will fail.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetAttributeUint64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@attribute@/: a string containing the attribute\'s name -}-    -> Word64-    {- ^ /@value@/: a @/guint64/@ containing the attribute\'s new value -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttributeUint64 file attribute value flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    attribute' <- textToCString attribute-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attribute_uint64 file' attribute' value flags' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem attribute'-        return ()-     ) (do-        freeMem attribute'-     )--#if ENABLE_OVERLOADING-data FileSetAttributeUint64MethodInfo-instance (signature ~ (T.Text -> Word64 -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetAttributeUint64MethodInfo a signature where-    overloadedMethod _ = fileSetAttributeUint64--#endif---- method File::set_attributes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileQueryInfoFlags", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #gpointer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_set_attributes_async" g_file_set_attributes_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.FileInfo.FileInfo ->            -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    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 sets the attributes of /@file@/ with /@info@/.--For more details, see 'GI.Gio.Interfaces.File.fileSetAttributesFromInfo',-which is the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileSetAttributesFinish' to get-the result of the operation.--}-fileSetAttributesAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.FileInfo.IsFileInfo b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo' -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: a 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-fileSetAttributesAsync file info flags ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    info' <- unsafeManagedPtrCastPtr info-    let flags' = gflagsToWord flags-    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-    g_file_set_attributes_async file' info' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    touchManagedPtr info-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileSetAttributesAsyncMethodInfo-instance (signature ~ (b -> [Gio.Flags.FileQueryInfoFlags] -> Int32 -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.FileInfo.IsFileInfo b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileSetAttributesAsyncMethodInfo a signature where-    overloadedMethod _ = fileSetAttributesAsync--#endif---- method File::set_attributes_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo", 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 "g_file_set_attributes_finish" g_file_set_attributes_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr Gio.FileInfo.FileInfo) ->      -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes setting an attribute started in 'GI.Gio.Interfaces.File.fileSetAttributesAsync'.--}-fileSetAttributesFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m (Gio.FileInfo.FileInfo)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttributesFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    info <- allocMem :: IO (Ptr (Ptr Gio.FileInfo.FileInfo))-    onException (do-        _ <- propagateGError $ g_file_set_attributes_finish file' result_' info-        info' <- peek info-        info'' <- (wrapObject Gio.FileInfo.FileInfo) info'-        touchManagedPtr file-        touchManagedPtr result_-        freeMem info-        return info''-     ) (do-        freeMem info-     )--#if ENABLE_OVERLOADING-data FileSetAttributesFinishMethodInfo-instance (signature ~ (b -> m (Gio.FileInfo.FileInfo)), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileSetAttributesFinishMethodInfo a signature where-    overloadedMethod _ = fileSetAttributesFinish--#endif---- method File::set_attributes_from_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFileQueryInfoFlags", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_set_attributes_from_info" g_file_set_attributes_from_info :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.FileInfo.FileInfo ->            -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileQueryInfoFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Tries to set all attributes in the 'GI.Gio.Objects.FileInfo.FileInfo' on the target-values, not stopping on the first error.--If there is any error during this operation then /@error@/ will-be set to the first error. Error on particular fields are flagged-by setting the \"status\" field in the attribute value to-'GI.Gio.Enums.FileAttributeStatusErrorSetting', which means you can-also detect further errors.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetAttributesFromInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.FileInfo.IsFileInfo b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo' -}-    -> [Gio.Flags.FileQueryInfoFlags]-    {- ^ /@flags@/: 'GI.Gio.Flags.FileQueryInfoFlags' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetAttributesFromInfo file info flags cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    info' <- unsafeManagedPtrCastPtr info-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_set_attributes_from_info file' info' flags' maybeCancellable-        touchManagedPtr file-        touchManagedPtr info-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileSetAttributesFromInfoMethodInfo-instance (signature ~ (b -> [Gio.Flags.FileQueryInfoFlags] -> Maybe (c) -> m ()), MonadIO m, IsFile a, Gio.FileInfo.IsFileInfo b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileSetAttributesFromInfoMethodInfo a signature where-    overloadedMethod _ = fileSetAttributesFromInfo--#endif---- method File::set_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string", 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 "optional #GCancellable object,\n    %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_set_display_name" g_file_set_display_name :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- display_name : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)--{- |-Renames /@file@/ to the specified display name.--The display name is converted from UTF-8 to the correct encoding-for the target filesystem if possible and the /@file@/ is renamed to this.--If you want to implement a rename operation in the user interface the-edit name ('GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_EDIT_NAME') should be used as the-initial value in the rename widget, and then the result after editing-should be passed to 'GI.Gio.Interfaces.File.fileSetDisplayName'.--On success the resulting converted filename is returned.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileSetDisplayName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@displayName@/: a string -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' specifying what /@file@/ was renamed to,-    or 'Nothing' if there was an error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetDisplayName file displayName cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    displayName' <- textToCString displayName-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_set_display_name file' displayName' maybeCancellable-        checkUnexpectedReturnNULL "fileSetDisplayName" result-        result' <- (wrapObject File) result-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        freeMem displayName'-        return result'-     ) (do-        freeMem displayName'-     )--#if ENABLE_OVERLOADING-data FileSetDisplayNameMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m File), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetDisplayNameMethodInfo a signature where-    overloadedMethod _ = fileSetDisplayName--#endif---- method File::set_display_name_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_set_display_name_async" g_file_set_display_name_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CString ->                              -- display_name : TBasicType TUTF8-    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 sets the display name for a given 'GI.Gio.Interfaces.File.File'.--For more details, see 'GI.Gio.Interfaces.File.fileSetDisplayName' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileSetDisplayNameFinish' to get-the result of the operation.--}-fileSetDisplayNameAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> T.Text-    {- ^ /@displayName@/: a string -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileSetDisplayNameAsync file displayName ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    displayName' <- textToCString displayName-    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-    g_file_set_display_name_async file' displayName' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    freeMem displayName'-    return ()--#if ENABLE_OVERLOADING-data FileSetDisplayNameAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileSetDisplayNameAsyncMethodInfo a signature where-    overloadedMethod _ = fileSetDisplayNameAsync--#endif---- method File::set_display_name_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_set_display_name_finish" g_file_set_display_name_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)--{- |-Finishes setting a display name started with-'GI.Gio.Interfaces.File.fileSetDisplayNameAsync'.--}-fileSetDisplayNameFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileSetDisplayNameFinish file res = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_file_set_display_name_finish file' res'-        checkUnexpectedReturnNULL "fileSetDisplayNameFinish" result-        result' <- (wrapObject File) result-        touchManagedPtr file-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileSetDisplayNameFinishMethodInfo-instance (signature ~ (b -> m File), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileSetDisplayNameFinishMethodInfo a signature where-    overloadedMethod _ = fileSetDisplayNameFinish--#endif---- method File::start_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DriveStartFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation, or %NULL to avoid user interaction", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback to call when the request is satisfied, or %NULL", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_start_mountable" g_file_start_mountable :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DriveStartFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- start_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Starts a file of type @/G_FILE_TYPE_MOUNTABLE/@.-Using /@startOperation@/, you can request callbacks when, for instance,-passwords are needed during authentication.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileMountMountableFinish' to get-the result of the operation.--/Since: 2.22/--}-fileStartMountable ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.DriveStartFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@startOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation', or 'Nothing' to avoid user interaction -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied, or 'Nothing' -}-    -> m ()-fileStartMountable file flags startOperation cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeStartOperation <- case startOperation of-        Nothing -> return nullPtr-        Just jStartOperation -> do-            jStartOperation' <- unsafeManagedPtrCastPtr jStartOperation-            return jStartOperation'-    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-    g_file_start_mountable file' flags' maybeStartOperation maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust startOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileStartMountableMethodInfo-instance (signature ~ ([Gio.Flags.DriveStartFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileStartMountableMethodInfo a signature where-    overloadedMethod _ = fileStartMountable--#endif---- method File::start_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_start_mountable_finish" g_file_start_mountable_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes a start operation. See 'GI.Gio.Interfaces.File.fileStartMountable' for details.--Finish an asynchronous start operation that was started-with 'GI.Gio.Interfaces.File.fileStartMountable'.--/Since: 2.22/--}-fileStartMountableFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileStartMountableFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_start_mountable_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileStartMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileStartMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileStartMountableFinish--#endif---- method File::stop_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation,\n    or %NULL to avoid user interaction.", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied, or %NULL", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_stop_mountable" g_file_stop_mountable :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Stops a file of type @/G_FILE_TYPE_MOUNTABLE/@.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileStopMountableFinish' to get-the result of the operation.--/Since: 2.22/--}-fileStopMountable ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation',-    or 'Nothing' to avoid user interaction. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied, or 'Nothing' -}-    -> m ()-fileStopMountable file flags mountOperation cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_file_stop_mountable file' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileStopMountableMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileStopMountableMethodInfo a signature where-    overloadedMethod _ = fileStopMountable--#endif---- method File::stop_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_stop_mountable_finish" g_file_stop_mountable_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an stop operation, see 'GI.Gio.Interfaces.File.fileStopMountable' for details.--Finish an asynchronous stop operation that was started-with 'GI.Gio.Interfaces.File.fileStopMountable'.--/Since: 2.22/--}-fileStopMountableFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileStopMountableFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_stop_mountable_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileStopMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileStopMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileStopMountableFinish--#endif---- method File::supports_thread_contexts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile", 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 "g_file_supports_thread_contexts" g_file_supports_thread_contexts :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO CInt--{- |-Checks if /@file@/ supports-[thread-default contexts][g-main-context-push-thread-default-context].-If this returns 'False', you cannot perform asynchronous operations on-/@file@/ in a thread that has a thread-default context.--/Since: 2.22/--}-fileSupportsThreadContexts ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File' -}-    -> m Bool-    {- ^ __Returns:__ Whether or not /@file@/ supports thread-default contexts. -}-fileSupportsThreadContexts file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_supports_thread_contexts file'-    let result' = (/= 0) result-    touchManagedPtr file-    return result'--#if ENABLE_OVERLOADING-data FileSupportsThreadContextsMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFile a) => O.MethodInfo FileSupportsThreadContextsMethodInfo a signature where-    overloadedMethod _ = fileSupportsThreadContexts--#endif---- method File::trash--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFile to send to trash", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "g_file_trash" g_file_trash :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sends /@file@/ to the \"Trashcan\", if possible. This is similar to-deleting it, but the user can recover it before emptying the trashcan.-Not all file systems support trashing, so this call can return the-'GI.Gio.Enums.IOErrorEnumNotSupported' error.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-fileTrash ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: 'GI.Gio.Interfaces.File.File' to send to trash -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileTrash file cancellable = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_trash file' maybeCancellable-        touchManagedPtr file-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileTrashMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileTrashMethodInfo a signature where-    overloadedMethod _ = fileTrash--#endif---- method File::trash_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_trash_async" g_file_trash_async :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    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 sends /@file@/ to the Trash location, if possible.--/Since: 2.38/--}-fileTrashAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied -}-    -> m ()-fileTrashAsync file ioPriority cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    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-    g_file_trash_async file' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileTrashAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileTrashAsyncMethodInfo a signature where-    overloadedMethod _ = fileTrashAsync--#endif---- method File::trash_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_trash_finish" g_file_trash_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous file trashing operation, started with-'GI.Gio.Interfaces.File.fileTrashAsync'.--/Since: 2.38/--}-fileTrashFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileTrashFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_trash_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileTrashFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileTrashFinishMethodInfo a signature where-    overloadedMethod _ = fileTrashFinish--#endif---- method File::unmount_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_unmount_mountable" g_file_unmount_mountable :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    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 ()--{-# DEPRECATED fileUnmountMountable ["(Since version 2.22)","Use 'GI.Gio.Interfaces.File.fileUnmountMountableWithOperation' instead."] #-}-{- |-Unmounts a file of type G_FILE_TYPE_MOUNTABLE.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileUnmountMountableFinish' to get-the result of the operation.--}-fileUnmountMountable ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied, or 'Nothing' -}-    -> m ()-fileUnmountMountable file flags cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    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-    g_file_unmount_mountable file' flags' maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileUnmountMountableMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileUnmountMountableMethodInfo a signature where-    overloadedMethod _ = fileUnmountMountable--#endif---- method File::unmount_mountable_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_unmount_mountable_finish" g_file_unmount_mountable_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED fileUnmountMountableFinish ["(Since version 2.22)","Use 'GI.Gio.Interfaces.File.fileUnmountMountableWithOperationFinish'","    instead."] #-}-{- |-Finishes an unmount operation, see 'GI.Gio.Interfaces.File.fileUnmountMountable' for details.--Finish an asynchronous unmount operation that was started-with 'GI.Gio.Interfaces.File.fileUnmountMountable'.--}-fileUnmountMountableFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileUnmountMountableFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_unmount_mountable_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileUnmountMountableFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileUnmountMountableFinishMethodInfo a signature where-    overloadedMethod _ = fileUnmountMountableFinish--#endif---- method File::unmount_mountable_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation,\n    or %NULL to avoid user interaction", 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 "optional #GCancellable object,\n    %NULL to ignore", 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 "a #GAsyncReadyCallback to call\n    when the request is satisfied, or %NULL", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_unmount_mountable_with_operation" g_file_unmount_mountable_with_operation :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Unmounts a file of type @/G_FILE_TYPE_MOUNTABLE/@.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.File.fileUnmountMountableFinish' to get-the result of the operation.--/Since: 2.22/--}-fileUnmountMountableWithOperation ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation',-    or 'Nothing' to avoid user interaction -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object,-    'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call-    when the request is satisfied, or 'Nothing' -}-    -> m ()-fileUnmountMountableWithOperation file flags mountOperation cancellable callback = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_file_unmount_mountable_with_operation file' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr file-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileUnmountMountableWithOperationMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFile a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo FileUnmountMountableWithOperationMethodInfo a signature where-    overloadedMethod _ = fileUnmountMountableWithOperation--#endif---- method File::unmount_mountable_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input #GFile", 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 "a #GAsyncResult", 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 "g_file_unmount_mountable_with_operation_finish" g_file_unmount_mountable_with_operation_finish :: -    Ptr File ->                             -- file : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an unmount operation,-see 'GI.Gio.Interfaces.File.fileUnmountMountableWithOperation' for details.--Finish an asynchronous unmount operation that was started-with 'GI.Gio.Interfaces.File.fileUnmountMountableWithOperation'.--/Since: 2.22/--}-fileUnmountMountableWithOperationFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@file@/: input 'GI.Gio.Interfaces.File.File' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileUnmountMountableWithOperationFinish file result_ = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_unmount_mountable_with_operation_finish file' result_'-        touchManagedPtr file-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileUnmountMountableWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFile a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileUnmountMountableWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = fileUnmountMountableWithOperationFinish--#endif---- method File::new_for_commandline_arg--- method type : MemberFunction--- Args : [Arg {argCName = "arg", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a command line string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_new_for_commandline_arg" g_file_new_for_commandline_arg :: -    CString ->                              -- arg : TBasicType TFileName-    IO (Ptr File)--{- |-Creates a 'GI.Gio.Interfaces.File.File' with the given argument from the command line.-The value of /@arg@/ can be either a URI, an absolute path or a-relative path resolved relative to the current working directory.-This operation never fails, but the returned object might not-support any I\/O operation if /@arg@/ points to a malformed path.--Note that on Windows, this function expects its argument to be in-UTF-8 -- not the system code page.  This means that you-should not use this function with string from argv as it is passed-to @/main()/@.  @/g_win32_get_command_line()/@ will return a UTF-8 version of-the commandline.  'GI.Gio.Objects.Application.Application' also uses UTF-8 but-'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineCreateFileForArg' may be more useful-for you there.  It is also always possible to use this function with-'GI.GLib.Structs.OptionContext.OptionContext' arguments of type 'GI.GLib.Enums.OptionArgFilename'.--}-fileNewForCommandlineArg ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@arg@/: a command line string -}-    -> m File-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.File.File'.-   Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-fileNewForCommandlineArg arg = liftIO $ do-    arg' <- stringToCString arg-    result <- g_file_new_for_commandline_arg arg'-    checkUnexpectedReturnNULL "fileNewForCommandlineArg" result-    result' <- (wrapObject File) result-    freeMem arg'-    return result'--#if ENABLE_OVERLOADING-#endif---- method File::new_for_commandline_arg_and_cwd--- method type : MemberFunction--- Args : [Arg {argCName = "arg", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a command line string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cwd", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current working directory of the commandline", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_new_for_commandline_arg_and_cwd" g_file_new_for_commandline_arg_and_cwd :: -    CString ->                              -- arg : TBasicType TFileName-    CString ->                              -- cwd : TBasicType TFileName-    IO (Ptr File)--{- |-Creates a 'GI.Gio.Interfaces.File.File' with the given argument from the command line.--This function is similar to 'GI.Gio.Functions.fileNewForCommandlineArg' except-that it allows for passing the current working directory as an-argument instead of using the current working directory of the-process.--This is useful if the commandline argument was given in a context-other than the invocation of the current process.--See also 'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineCreateFileForArg'.--/Since: 2.36/--}-fileNewForCommandlineArgAndCwd ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@arg@/: a command line string -}-    -> [Char]-    {- ^ /@cwd@/: the current working directory of the commandline -}-    -> m File-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.File.File' -}-fileNewForCommandlineArgAndCwd arg cwd = liftIO $ do-    arg' <- stringToCString arg-    cwd' <- stringToCString cwd-    result <- g_file_new_for_commandline_arg_and_cwd arg' cwd'-    checkUnexpectedReturnNULL "fileNewForCommandlineArgAndCwd" result-    result' <- (wrapObject File) result-    freeMem arg'-    freeMem cwd'-    return result'--#if ENABLE_OVERLOADING-#endif---- method File::new_for_path--- method type : MemberFunction--- Args : [Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing a relative or absolute path.\n    The string must be encoded in the glib filename encoding.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_new_for_path" g_file_new_for_path :: -    CString ->                              -- path : TBasicType TFileName-    IO (Ptr File)--{- |-Constructs a 'GI.Gio.Interfaces.File.File' for a given path. This operation never-fails, but the returned object might not support any I\/O-operation if /@path@/ is malformed.--}-fileNewForPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@path@/: a string containing a relative or absolute path.-    The string must be encoded in the glib filename encoding. -}-    -> m File-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.File.File' for the given /@path@/.-  Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-fileNewForPath path = liftIO $ do-    path' <- stringToCString path-    result <- g_file_new_for_path path'-    checkUnexpectedReturnNULL "fileNewForPath" result-    result' <- (wrapObject File) result-    freeMem path'-    return result'--#if ENABLE_OVERLOADING-#endif---- method File::new_for_uri--- method type : MemberFunction--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a UTF-8 string containing a URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_new_for_uri" g_file_new_for_uri :: -    CString ->                              -- uri : TBasicType TUTF8-    IO (Ptr File)--{- |-Constructs a 'GI.Gio.Interfaces.File.File' for a given URI. This operation never-fails, but the returned object might not support any I\/O-operation if /@uri@/ is malformed or if the uri type is-not supported.--}-fileNewForUri ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@uri@/: a UTF-8 string containing a URI -}-    -> m File-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.File.File' for the given /@uri@/.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-fileNewForUri uri = liftIO $ do-    uri' <- textToCString uri-    result <- g_file_new_for_uri uri'-    checkUnexpectedReturnNULL "fileNewForUri" result-    result' <- (wrapObject File) result-    freeMem uri'-    return result'--#if ENABLE_OVERLOADING-#endif---- method File::new_tmp--- method type : MemberFunction--- Args : [Arg {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Template for the file\n  name, as in g_file_open_tmp(), or %NULL for a default template", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iostream", argType = TInterface (Name {namespace = "Gio", name = "FileIOStream"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, a #GFileIOStream for the created file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_new_tmp" g_file_new_tmp :: -    CString ->                              -- tmpl : TBasicType TFileName-    Ptr (Ptr Gio.FileIOStream.FileIOStream) -> -- iostream : TInterface (Name {namespace = "Gio", name = "FileIOStream"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr File)--{- |-Opens a file in the preferred directory for temporary files (as-returned by 'GI.GLib.Functions.getTmpDir') and returns a 'GI.Gio.Interfaces.File.File' and-'GI.Gio.Objects.FileIOStream.FileIOStream' pointing to it.--/@tmpl@/ should be a string in the GLib file name encoding-containing a sequence of six \'X\' characters, and containing no-directory components. If it is 'Nothing', a default template is used.--Unlike the other 'GI.Gio.Interfaces.File.File' constructors, this will return 'Nothing' if-a temporary file could not be created.--/Since: 2.32/--}-fileNewTmp ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe ([Char])-    {- ^ /@tmpl@/: Template for the file-  name, as in 'GI.GLib.Functions.fileOpenTmp', or 'Nothing' for a default template -}-    -> m ((File, Gio.FileIOStream.FileIOStream))-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.File.File'.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileNewTmp tmpl = liftIO $ do-    maybeTmpl <- case tmpl of-        Nothing -> return nullPtr-        Just jTmpl -> do-            jTmpl' <- stringToCString jTmpl-            return jTmpl'-    iostream <- allocMem :: IO (Ptr (Ptr Gio.FileIOStream.FileIOStream))-    onException (do-        result <- propagateGError $ g_file_new_tmp maybeTmpl iostream-        checkUnexpectedReturnNULL "fileNewTmp" result-        result' <- (wrapObject File) result-        iostream' <- peek iostream-        iostream'' <- (wrapObject Gio.FileIOStream.FileIOStream) iostream'-        freeMem maybeTmpl-        freeMem iostream-        return (result', iostream'')-     ) (do-        freeMem maybeTmpl-        freeMem iostream-     )--#if ENABLE_OVERLOADING-#endif---- method File::parse_name--- method type : MemberFunction--- Args : [Arg {argCName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file name or path to be parsed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_parse_name" g_file_parse_name :: -    CString ->                              -- parse_name : TBasicType TUTF8-    IO (Ptr File)--{- |-Constructs a 'GI.Gio.Interfaces.File.File' with the given /@parseName@/ (i.e. something-given by 'GI.Gio.Interfaces.File.fileGetParseName'). This operation never fails,-but the returned object might not support any I\/O operation if-the /@parseName@/ cannot be parsed.--}-fileParseName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@parseName@/: a file name or path to be parsed -}-    -> m File-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.File.File'. -}-fileParseName parseName = liftIO $ do-    parseName' <- textToCString parseName-    result <- g_file_parse_name parseName'-    checkUnexpectedReturnNULL "fileParseName" result-    result' <- (wrapObject File) result-    freeMem parseName'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/File.hs-boot 
@@ -1,392 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.File 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 File = File (ManagedPtr File)-instance GObject File where-class (GObject o, O.IsDescendantOf File o) => IsFile o-instance (GObject o, O.IsDescendantOf File o) => IsFile o-instance O.HasParentTypes File-#if ENABLE_OVERLOADING-data FileAppendToMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAppendToAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAppendToFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCopyAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCopyAttributesMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCopyFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCreateMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCreateAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCreateFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCreateReadwriteMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCreateReadwriteAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileCreateReadwriteFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileDeleteMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileDeleteAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileDeleteFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileDupMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEjectMountableMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEjectMountableFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEjectMountableWithOperationMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEjectMountableWithOperationFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumerateChildrenMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumerateChildrenAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumerateChildrenFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileFindEnclosingMountMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileFindEnclosingMountAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileFindEnclosingMountFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetBasenameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetChildMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetChildForDisplayNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetParentMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetParseNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetRelativePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileGetUriSchemeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileHasParentMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileHasPrefixMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileHasUriSchemeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileHashMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileIsNativeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileLoadBytesMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileLoadBytesAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileLoadBytesFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileLoadContentsMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileLoadContentsAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileLoadContentsFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileLoadPartialContentsFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMakeDirectoryMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMakeDirectoryAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMakeDirectoryFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMakeDirectoryWithParentsMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMakeSymbolicLinkMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMeasureDiskUsageFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorDirectoryMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorFileMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMountEnclosingVolumeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMountEnclosingVolumeFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMountMountableMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMountMountableFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMoveMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileOpenReadwriteMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileOpenReadwriteAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileOpenReadwriteFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilePeekPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilePollMountableMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilePollMountableFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryDefaultHandlerMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryDefaultHandlerAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryDefaultHandlerFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryExistsMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryFileTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryFilesystemInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryFilesystemInfoAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryFilesystemInfoFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryInfoAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryInfoFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQuerySettableAttributesMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileQueryWritableNamespacesMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReadMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReadAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReadFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceContentsMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceContentsAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceContentsBytesAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceContentsFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceReadwriteMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceReadwriteAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileReplaceReadwriteFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileResolveRelativePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributeByteStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributeInt32MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributeInt64MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributeStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributeUint32MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributeUint64MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributesAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributesFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetAttributesFromInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetDisplayNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetDisplayNameAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSetDisplayNameFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileStartMountableMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileStartMountableFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileStopMountableMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileStopMountableFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileSupportsThreadContextsMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileTrashMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileTrashAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileTrashFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileUnmountMountableMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileUnmountMountableFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileUnmountMountableWithOperationMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileUnmountMountableWithOperationFinishMethodInfo-#endif
− GI/Gio/Interfaces/FileDescriptorBased.hs 
@@ -1,177 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.FileDescriptorBased.FileDescriptorBased' is implemented by streams (implementations of-'GI.Gio.Objects.InputStream.InputStream' or 'GI.Gio.Objects.OutputStream.OutputStream') that are based on file descriptors.--Note that @\<gio\/gfiledescriptorbased.h>@ belongs to the UNIX-specific-GIO interfaces, thus you have to use the @gio-unix-2.0.pc@ pkg-config-file when using it.--/Since: 2.24/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.FileDescriptorBased-    ( ---- * Exported types-    FileDescriptorBased(..)                 ,-    noFileDescriptorBased                   ,-    IsFileDescriptorBased                   ,-    toFileDescriptorBased                   ,--- -- * Methods--- ** getFd #method:getFd#--#if ENABLE_OVERLOADING-    FileDescriptorBasedGetFdMethodInfo      ,-#endif-    fileDescriptorBasedGetFd                ,-----    ) 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---- interface FileDescriptorBased --- | Memory-managed wrapper type.-newtype FileDescriptorBased = FileDescriptorBased (ManagedPtr FileDescriptorBased)--- | A convenience alias for `Nothing` :: `Maybe` `FileDescriptorBased`.-noFileDescriptorBased :: Maybe FileDescriptorBased-noFileDescriptorBased = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList FileDescriptorBased = FileDescriptorBasedSignalList-type FileDescriptorBasedSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_file_descriptor_based_get_type"-    c_g_file_descriptor_based_get_type :: IO GType--instance GObject FileDescriptorBased where-    gobjectType = c_g_file_descriptor_based_get_type-    ---- | Type class for types which can be safely cast to `FileDescriptorBased`, for instance with `toFileDescriptorBased`.-class (GObject o, O.IsDescendantOf FileDescriptorBased o) => IsFileDescriptorBased o-instance (GObject o, O.IsDescendantOf FileDescriptorBased o) => IsFileDescriptorBased o--instance O.HasParentTypes FileDescriptorBased-type instance O.ParentTypes FileDescriptorBased = '[GObject.Object.Object]---- | Cast to `FileDescriptorBased`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFileDescriptorBased :: (MonadIO m, IsFileDescriptorBased o) => o -> m FileDescriptorBased-toFileDescriptorBased = liftIO . unsafeCastTo FileDescriptorBased--#if ENABLE_OVERLOADING-instance O.HasAttributeList FileDescriptorBased-type instance O.AttributeList FileDescriptorBased = FileDescriptorBasedAttributeList-type FileDescriptorBasedAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveFileDescriptorBasedMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileDescriptorBasedMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileDescriptorBasedMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileDescriptorBasedMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileDescriptorBasedMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileDescriptorBasedMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileDescriptorBasedMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileDescriptorBasedMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileDescriptorBasedMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileDescriptorBasedMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileDescriptorBasedMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileDescriptorBasedMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileDescriptorBasedMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileDescriptorBasedMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileDescriptorBasedMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileDescriptorBasedMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileDescriptorBasedMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileDescriptorBasedMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileDescriptorBasedMethod "getFd" o = FileDescriptorBasedGetFdMethodInfo-    ResolveFileDescriptorBasedMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileDescriptorBasedMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileDescriptorBasedMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileDescriptorBasedMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileDescriptorBasedMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileDescriptorBasedMethod t FileDescriptorBased, O.MethodInfo info FileDescriptorBased p) => OL.IsLabel t (FileDescriptorBased -> 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 FileDescriptorBased::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "fd_based", argType = TInterface (Name {namespace = "Gio", name = "FileDescriptorBased"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileDescriptorBased.", 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 "g_file_descriptor_based_get_fd" g_file_descriptor_based_get_fd :: -    Ptr FileDescriptorBased ->              -- fd_based : TInterface (Name {namespace = "Gio", name = "FileDescriptorBased"})-    IO Int32--{- |-Gets the underlying file descriptor.--/Since: 2.24/--}-fileDescriptorBasedGetFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileDescriptorBased a) =>-    a-    {- ^ /@fdBased@/: a 'GI.Gio.Interfaces.FileDescriptorBased.FileDescriptorBased'. -}-    -> m Int32-    {- ^ __Returns:__ The file descriptor -}-fileDescriptorBasedGetFd fdBased = liftIO $ do-    fdBased' <- unsafeManagedPtrCastPtr fdBased-    result <- g_file_descriptor_based_get_fd fdBased'-    touchManagedPtr fdBased-    return result--#if ENABLE_OVERLOADING-data FileDescriptorBasedGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsFileDescriptorBased a) => O.MethodInfo FileDescriptorBasedGetFdMethodInfo a signature where-    overloadedMethod _ = fileDescriptorBasedGetFd--#endif--
− GI/Gio/Interfaces/FileDescriptorBased.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.FileDescriptorBased 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 FileDescriptorBased = FileDescriptorBased (ManagedPtr FileDescriptorBased)-instance GObject FileDescriptorBased where-class (GObject o, O.IsDescendantOf FileDescriptorBased o) => IsFileDescriptorBased o-instance (GObject o, O.IsDescendantOf FileDescriptorBased o) => IsFileDescriptorBased o-instance O.HasParentTypes FileDescriptorBased-#if ENABLE_OVERLOADING-data FileDescriptorBasedGetFdMethodInfo-#endif
− GI/Gio/Interfaces/Icon.hs 
@@ -1,444 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.Icon.Icon' is a very minimal interface for icons. It provides functions-for checking the equality of two icons, hashing of icons and-serializing an icon to and from strings.--'GI.Gio.Interfaces.Icon.Icon' does not provide the actual pixmap for the icon as this is out-of GIO\'s scope, however implementations of 'GI.Gio.Interfaces.Icon.Icon' may contain the name-of an icon (see 'GI.Gio.Objects.ThemedIcon.ThemedIcon'), or the path to an icon (see 'GI.Gio.Interfaces.LoadableIcon.LoadableIcon').--To obtain a hash of a 'GI.Gio.Interfaces.Icon.Icon', see 'GI.Gio.Functions.iconHash'.--To check if two @/GIcons/@ are equal, see 'GI.Gio.Interfaces.Icon.iconEqual'.--For serializing a 'GI.Gio.Interfaces.Icon.Icon', use 'GI.Gio.Interfaces.Icon.iconSerialize' and-'GI.Gio.Functions.iconDeserialize'.--If you want to consume 'GI.Gio.Interfaces.Icon.Icon' (for example, in a toolkit) you must-be prepared to handle at least the three following cases:-'GI.Gio.Interfaces.LoadableIcon.LoadableIcon', 'GI.Gio.Objects.ThemedIcon.ThemedIcon' and 'GI.Gio.Objects.EmblemedIcon.EmblemedIcon'.  It may also make-sense to have fast-paths for other cases (like handling @/GdkPixbuf/@-directly, for example) but all compliant 'GI.Gio.Interfaces.Icon.Icon' implementations-outside of GIO must implement 'GI.Gio.Interfaces.LoadableIcon.LoadableIcon'.--If your application or library provides one or more 'GI.Gio.Interfaces.Icon.Icon'-implementations you need to ensure that your new implementation also-implements 'GI.Gio.Interfaces.LoadableIcon.LoadableIcon'.  Additionally, you must provide an-implementation of 'GI.Gio.Interfaces.Icon.iconSerialize' that gives a result that is-understood by 'GI.Gio.Functions.iconDeserialize', yielding one of the built-in icon-types.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Icon-    ( ---- * Exported types-    Icon(..)                                ,-    noIcon                                  ,-    IsIcon                                  ,-    toIcon                                  ,--- -- * Methods--- ** deserialize #method:deserialize#--    iconDeserialize                         ,----- ** equal #method:equal#--#if ENABLE_OVERLOADING-    IconEqualMethodInfo                     ,-#endif-    iconEqual                               ,----- ** hash #method:hash#--    iconHash                                ,----- ** newForString #method:newForString#--    iconNewForString                        ,----- ** serialize #method:serialize#--#if ENABLE_OVERLOADING-    IconSerializeMethodInfo                 ,-#endif-    iconSerialize                           ,----- ** toString #method:toString#--#if ENABLE_OVERLOADING-    IconToStringMethodInfo                  ,-#endif-    iconToString                            ,-----    ) 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---- interface Icon --- | Memory-managed wrapper type.-newtype Icon = Icon (ManagedPtr Icon)--- | A convenience alias for `Nothing` :: `Maybe` `Icon`.-noIcon :: Maybe Icon-noIcon = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList Icon = IconSignalList-type IconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_icon_get_type"-    c_g_icon_get_type :: IO GType--instance GObject Icon where-    gobjectType = c_g_icon_get_type-    ---- | Type class for types which can be safely cast to `Icon`, for instance with `toIcon`.-class (GObject o, O.IsDescendantOf Icon o) => IsIcon o-instance (GObject o, O.IsDescendantOf Icon o) => IsIcon o--instance O.HasParentTypes Icon-type instance O.ParentTypes Icon = '[GObject.Object.Object]---- | Cast to `Icon`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toIcon :: (MonadIO m, IsIcon o) => o -> m Icon-toIcon = liftIO . unsafeCastTo Icon--#if ENABLE_OVERLOADING-instance O.HasAttributeList Icon-type instance O.AttributeList Icon = IconAttributeList-type IconAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveIconMethod "equal" o = IconEqualMethodInfo-    ResolveIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveIconMethod "serialize" o = IconSerializeMethodInfo-    ResolveIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveIconMethod "toString" o = IconToStringMethodInfo-    ResolveIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveIconMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveIconMethod t Icon, O.MethodInfo info Icon p) => OL.IsLabel t (Icon -> 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 Icon::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon1", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the first #GIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon2", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "pointer to the second #GIcon.", 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 "g_icon_equal" g_icon_equal :: -    Ptr Icon ->                             -- icon1 : TInterface (Name {namespace = "Gio", name = "Icon"})-    Ptr Icon ->                             -- icon2 : TInterface (Name {namespace = "Gio", name = "Icon"})-    IO CInt--{- |-Checks if two icons are equal.--}-iconEqual ::-    (B.CallStack.HasCallStack, MonadIO m, IsIcon a, IsIcon b) =>-    a-    {- ^ /@icon1@/: pointer to the first 'GI.Gio.Interfaces.Icon.Icon'. -}-    -> Maybe (b)-    {- ^ /@icon2@/: pointer to the second 'GI.Gio.Interfaces.Icon.Icon'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@icon1@/ is equal to /@icon2@/. 'False' otherwise. -}-iconEqual icon1 icon2 = liftIO $ do-    icon1' <- unsafeManagedPtrCastPtr icon1-    maybeIcon2 <- case icon2 of-        Nothing -> return nullPtr-        Just jIcon2 -> do-            jIcon2' <- unsafeManagedPtrCastPtr jIcon2-            return jIcon2'-    result <- g_icon_equal icon1' maybeIcon2-    let result' = (/= 0) result-    touchManagedPtr icon1-    whenJust icon2 touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data IconEqualMethodInfo-instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, IsIcon a, IsIcon b) => O.MethodInfo IconEqualMethodInfo a signature where-    overloadedMethod _ = iconEqual--#endif---- method Icon::serialize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_icon_serialize" g_icon_serialize :: -    Ptr Icon ->                             -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    IO (Ptr GVariant)--{- |-Serializes a 'GI.Gio.Interfaces.Icon.Icon' into a 'GVariant'. An equivalent 'GI.Gio.Interfaces.Icon.Icon' can be retrieved-back by calling 'GI.Gio.Functions.iconDeserialize' on the returned value.-As serialization will avoid using raw icon data when possible, it only-makes sense to transfer the 'GVariant' between processes on the same machine,-(as opposed to over the network), and within the same file system namespace.--/Since: 2.38/--}-iconSerialize ::-    (B.CallStack.HasCallStack, MonadIO m, IsIcon a) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon' -}-    -> m GVariant-    {- ^ __Returns:__ a 'GVariant', or 'Nothing' when serialization fails. -}-iconSerialize icon = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    result <- g_icon_serialize icon'-    checkUnexpectedReturnNULL "iconSerialize" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr icon-    return result'--#if ENABLE_OVERLOADING-data IconSerializeMethodInfo-instance (signature ~ (m GVariant), MonadIO m, IsIcon a) => O.MethodInfo IconSerializeMethodInfo a signature where-    overloadedMethod _ = iconSerialize--#endif---- method Icon::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon.", 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 "g_icon_to_string" g_icon_to_string :: -    Ptr Icon ->                             -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    IO CString--{- |-Generates a textual representation of /@icon@/ that can be used for-serialization such as when passing /@icon@/ to a different process or-saving it to persistent storage. Use 'GI.Gio.Functions.iconNewForString' to-get /@icon@/ back from the returned string.--The encoding of the returned string is proprietary to 'GI.Gio.Interfaces.Icon.Icon' except-in the following two cases--* If /@icon@/ is a 'GI.Gio.Objects.FileIcon.FileIcon', the returned string is a native path-(such as @\/path\/to\/my icon.png@) without escaping-if the 'GI.Gio.Interfaces.File.File' for /@icon@/ is a native file.  If the file is not-native, the returned string is the result of 'GI.Gio.Interfaces.File.fileGetUri'-(such as @sftp:\/\/path\/to\/my%20icon.png@).-* If /@icon@/ is a 'GI.Gio.Objects.ThemedIcon.ThemedIcon' with exactly one name and no fallbacks,-the encoding is simply the name (such as @network-server@).---/Since: 2.20/--}-iconToString ::-    (B.CallStack.HasCallStack, MonadIO m, IsIcon a) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon'. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ An allocated NUL-terminated UTF8 string or-'Nothing' if /@icon@/ can\'t be serialized. Use 'GI.GLib.Functions.free' to free. -}-iconToString icon = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    result <- g_icon_to_string icon'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr icon-    return maybeResult--#if ENABLE_OVERLOADING-data IconToStringMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsIcon a) => O.MethodInfo IconToStringMethodInfo a signature where-    overloadedMethod _ = iconToString--#endif---- method Icon::deserialize--- method type : MemberFunction--- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVariant created with g_icon_serialize()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_icon_deserialize" g_icon_deserialize :: -    Ptr GVariant ->                         -- value : TVariant-    IO (Ptr Icon)--{- |-Deserializes a 'GI.Gio.Interfaces.Icon.Icon' previously serialized using 'GI.Gio.Interfaces.Icon.iconSerialize'.--/Since: 2.38/--}-iconDeserialize ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GVariant-    {- ^ /@value@/: a 'GVariant' created with 'GI.Gio.Interfaces.Icon.iconSerialize' -}-    -> m Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon', or 'Nothing' when deserialization fails. -}-iconDeserialize value = liftIO $ do-    value' <- unsafeManagedPtrGetPtr value-    result <- g_icon_deserialize value'-    checkUnexpectedReturnNULL "iconDeserialize" result-    result' <- (wrapObject Icon) result-    touchManagedPtr value-    return result'--#if ENABLE_OVERLOADING-#endif---- method Icon::hash--- method type : MemberFunction--- Args : [Arg {argCName = "icon", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#gconstpointer to an icon 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 "g_icon_hash" g_icon_hash :: -    Ptr () ->                               -- icon : TBasicType TPtr-    IO Word32--{- |-Gets a hash for an icon.--}-iconHash ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Ptr ()-    {- ^ /@icon@/: @/gconstpointer/@ to an icon object. -}-    -> m Word32-    {- ^ __Returns:__ a @/guint/@ containing a hash for the /@icon@/, suitable for-use in a 'GI.GLib.Structs.HashTable.HashTable' or similar data structure. -}-iconHash icon = liftIO $ do-    result <- g_icon_hash icon-    return result--#if ENABLE_OVERLOADING-#endif---- method Icon::new_for_string--- method type : MemberFunction--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A string obtained via g_icon_to_string().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : True--- Skip return : False--foreign import ccall "g_icon_new_for_string" g_icon_new_for_string :: -    CString ->                              -- str : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Icon)--{- |-Generate a 'GI.Gio.Interfaces.Icon.Icon' instance from /@str@/. This function can fail if-/@str@/ is not valid - see 'GI.Gio.Interfaces.Icon.iconToString' for discussion.--If your application or library provides one or more 'GI.Gio.Interfaces.Icon.Icon'-implementations you need to ensure that each 'GType' is registered-with the type system prior to calling 'GI.Gio.Functions.iconNewForString'.--/Since: 2.20/--}-iconNewForString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@str@/: A string obtained via 'GI.Gio.Interfaces.Icon.iconToString'. -}-    -> m Icon-    {- ^ __Returns:__ An object implementing the 'GI.Gio.Interfaces.Icon.Icon'-         interface or 'Nothing' if /@error@/ is set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-iconNewForString str = liftIO $ do-    str' <- textToCString str-    onException (do-        result <- propagateGError $ g_icon_new_for_string str'-        checkUnexpectedReturnNULL "iconNewForString" result-        result' <- (wrapObject Icon) result-        freeMem str'-        return result'-     ) (do-        freeMem str'-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/Icon.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Icon 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 Icon = Icon (ManagedPtr Icon)-instance GObject Icon where-class (GObject o, O.IsDescendantOf Icon o) => IsIcon o-instance (GObject o, O.IsDescendantOf Icon o) => IsIcon o-instance O.HasParentTypes Icon-#if ENABLE_OVERLOADING-data IconEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data IconSerializeMethodInfo-#endif-#if ENABLE_OVERLOADING-data IconToStringMethodInfo-#endif
− GI/Gio/Interfaces/Initable.hs 
@@ -1,313 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.Initable.Initable' is implemented by objects that can fail during-initialization. If an object implements this interface then-it must be initialized as the first thing after construction,-either via 'GI.Gio.Interfaces.Initable.initableInit' or 'GI.Gio.Interfaces.AsyncInitable.asyncInitableInitAsync'-(the latter is only available if it also implements 'GI.Gio.Interfaces.AsyncInitable.AsyncInitable').--If the object is not initialized, or initialization returns with an-error, then all operations on the object except 'GI.GObject.Objects.Object.objectRef' and-'GI.GObject.Objects.Object.objectUnref' are considered to be invalid, and have undefined-behaviour. They will often fail with @/g_critical()/@ or @/g_warning()/@, but-this must not be relied on.--Users of objects implementing this are not intended to use-the interface method directly, instead it will be used automatically-in various ways. For C applications you generally just call-@/g_initable_new()/@ directly, or indirectly via a @/foo_thing_new()/@ wrapper.-This will call 'GI.Gio.Interfaces.Initable.initableInit' under the cover, returning 'Nothing' and-setting a 'GError' on failure (at which point the instance is-unreferenced).--For bindings in languages where the native constructor supports-exceptions the binding could check for objects implemention @/GInitable/@-during normal construction and automatically initialize them, throwing-an exception on failure.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Initable-    ( ---- * Exported types-    Initable(..)                            ,-    noInitable                              ,-    IsInitable                              ,-    toInitable                              ,--- -- * Methods--- ** init #method:init#--#if ENABLE_OVERLOADING-    InitableInitMethodInfo                  ,-#endif-    initableInit                            ,----- ** newv #method:newv#--    initableNewv                            ,-----    ) 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.GObject.Structs.Parameter as GObject.Parameter-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- interface Initable --- | Memory-managed wrapper type.-newtype Initable = Initable (ManagedPtr Initable)--- | A convenience alias for `Nothing` :: `Maybe` `Initable`.-noInitable :: Maybe Initable-noInitable = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList Initable = InitableSignalList-type InitableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_initable_get_type"-    c_g_initable_get_type :: IO GType--instance GObject Initable where-    gobjectType = c_g_initable_get_type-    ---- | Type class for types which can be safely cast to `Initable`, for instance with `toInitable`.-class (GObject o, O.IsDescendantOf Initable o) => IsInitable o-instance (GObject o, O.IsDescendantOf Initable o) => IsInitable o--instance O.HasParentTypes Initable-type instance O.ParentTypes Initable = '[GObject.Object.Object]---- | Cast to `Initable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toInitable :: (MonadIO m, IsInitable o) => o -> m Initable-toInitable = liftIO . unsafeCastTo Initable--#if ENABLE_OVERLOADING-instance O.HasAttributeList Initable-type instance O.AttributeList Initable = InitableAttributeList-type InitableAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveInitableMethod (t :: Symbol) (o :: *) :: * where-    ResolveInitableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveInitableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveInitableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveInitableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveInitableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveInitableMethod "init" o = InitableInitMethodInfo-    ResolveInitableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveInitableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveInitableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveInitableMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveInitableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveInitableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveInitableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveInitableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveInitableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveInitableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveInitableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveInitableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveInitableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveInitableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveInitableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveInitableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveInitableMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveInitableMethod t Initable, O.MethodInfo info Initable p) => OL.IsLabel t (Initable -> 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 Initable::init--- method type : OrdinaryMethod--- Args : [Arg {argCName = "initable", argType = TInterface (Name {namespace = "Gio", name = "Initable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInitable.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_initable_init" g_initable_init :: -    Ptr Initable ->                         -- initable : TInterface (Name {namespace = "Gio", name = "Initable"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Initializes the object implementing the interface.--This method is intended for language bindings. If writing in C,-@/g_initable_new()/@ should typically be used instead.--The object must be initialized before any real use after initial-construction, either with this function or 'GI.Gio.Interfaces.AsyncInitable.asyncInitableInitAsync'.--Implementations may also support cancellation. If /@cancellable@/ is not 'Nothing',-then initialization can be cancelled by triggering the cancellable object-from another thread. If the operation was cancelled, the error-'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If /@cancellable@/ is not 'Nothing' and-the object doesn\'t support cancellable initialization the error-'GI.Gio.Enums.IOErrorEnumNotSupported' will be returned.--If the object is not initialized, or initialization returns with an-error, then all operations on the object except 'GI.GObject.Objects.Object.objectRef' and-'GI.GObject.Objects.Object.objectUnref' are considered to be invalid, and have undefined-behaviour. See the [introduction][ginitable] for more details.--Callers should not assume that a class which implements 'GI.Gio.Interfaces.Initable.Initable' can be-initialized multiple times, unless the class explicitly documents itself as-supporting this. Generally, a class’ implementation of @/init()/@ can assume-(and assert) that it will only be called once. Previously, this documentation-recommended all 'GI.Gio.Interfaces.Initable.Initable' implementations should be idempotent; that-recommendation was relaxed in GLib 2.54.--If a class explicitly supports being initialized multiple times, it is-recommended that the method is idempotent: multiple calls with the same-arguments should return the same results. Only the first call initializes-the object; further calls return the result of the first call.--One reason why a class might need to support idempotent initialization is if-it is designed to be used via the singleton pattern, with a-'GI.GObject.Structs.ObjectClass.ObjectClass'.@/constructor/@ that sometimes returns an existing instance.-In this pattern, a caller would expect to be able to call 'GI.Gio.Interfaces.Initable.initableInit'-on the result of @/g_object_new()/@, regardless of whether it is in fact a new-instance.--/Since: 2.22/--}-initableInit ::-    (B.CallStack.HasCallStack, MonadIO m, IsInitable a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@initable@/: a 'GI.Gio.Interfaces.Initable.Initable'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-initableInit initable cancellable = liftIO $ do-    initable' <- unsafeManagedPtrCastPtr initable-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_initable_init initable' maybeCancellable-        touchManagedPtr initable-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InitableInitMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsInitable a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InitableInitMethodInfo a signature where-    overloadedMethod _ = initableInit--#endif---- method Initable::newv--- method type : MemberFunction--- Args : [Arg {argCName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GType supporting #GInitable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of parameters in @parameters", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TCArray False (-1) 1 (TInterface (Name {namespace = "GObject", name = "Parameter"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the parameters to use to construct the object", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of parameters in @parameters", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "GObject", name = "Object"}))--- throws : True--- Skip return : False--foreign import ccall "g_initable_newv" g_initable_newv :: -    CGType ->                               -- object_type : TBasicType TGType-    Word32 ->                               -- n_parameters : TBasicType TUInt-    Ptr GObject.Parameter.Parameter ->      -- parameters : TCArray False (-1) 1 (TInterface (Name {namespace = "GObject", name = "Parameter"}))-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GObject.Object.Object)--{-# DEPRECATED initableNewv ["(Since version 2.54)","Use @/g_object_new_with_properties()/@ and","'GI.Gio.Interfaces.Initable.initableInit' instead. See 'GI.GObject.Structs.Parameter.Parameter' for more information."] #-}-{- |-Helper function for constructing 'GI.Gio.Interfaces.Initable.Initable' object. This is-similar to 'GI.GObject.Objects.Object.objectNewv' but also initializes the object-and returns 'Nothing', setting an error on failure.--/Since: 2.22/--}-initableNewv ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    GType-    {- ^ /@objectType@/: a 'GType' supporting 'GI.Gio.Interfaces.Initable.Initable'. -}-    -> [GObject.Parameter.Parameter]-    {- ^ /@parameters@/: the parameters to use to construct the object -}-    -> Maybe (a)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m GObject.Object.Object-    {- ^ __Returns:__ a newly allocated-     'GI.GObject.Objects.Object.Object', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-initableNewv objectType parameters cancellable = liftIO $ do-    let nParameters = fromIntegral $ length parameters-    let objectType' = gtypeToCGType objectType-    parameters' <- mapM unsafeManagedPtrGetPtr parameters-    parameters'' <- packBlockArray 32 parameters'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_initable_newv objectType' nParameters parameters'' maybeCancellable-        checkUnexpectedReturnNULL "initableNewv" result-        result' <- (wrapObject GObject.Object.Object) result-        mapM_ touchManagedPtr parameters-        whenJust cancellable touchManagedPtr-        freeMem parameters''-        return result'-     ) (do-        freeMem parameters''-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/Initable.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Initable 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 Initable = Initable (ManagedPtr Initable)-instance GObject Initable where-class (GObject o, O.IsDescendantOf Initable o) => IsInitable o-instance (GObject o, O.IsDescendantOf Initable o) => IsInitable o-instance O.HasParentTypes Initable-#if ENABLE_OVERLOADING-data InitableInitMethodInfo-#endif
− GI/Gio/Interfaces/ListModel.hs 
@@ -1,502 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.ListModel.ListModel' is an interface that represents a mutable list of-@/GObjects/@. Its main intention is as a model for various widgets in-user interfaces, such as list views, but it can also be used as a-convenient method of returning lists of data, with support for-updates.--Each object in the list may also report changes in itself via some-mechanism (normally the 'GI.GObject.Objects.Object.Object'::@/notify/@ signal).  Taken together-with the 'GI.Gio.Interfaces.ListModel.ListModel'::@/items-changed/@ signal, this provides for a list-that can change its membership, and in which the members can change-their individual properties.--A good example would be the list of visible wireless network access-points, where each access point can report dynamic properties such as-signal strength.--It is important to note that the 'GI.Gio.Interfaces.ListModel.ListModel' itself does not report-changes to the individual items.  It only reports changes to the list-membership.  If you want to observe changes to the objects themselves-then you need to connect signals to the objects that you are-interested in.--All items in a 'GI.Gio.Interfaces.ListModel.ListModel' are of (or derived from) the same type.-'GI.Gio.Interfaces.ListModel.listModelGetItemType' returns that type.  The type may be an-interface, in which case all objects in the list must implement it.--The semantics are close to that of an array:-'GI.Gio.Interfaces.ListModel.listModelGetNItems' returns the number of items in the list and-@/g_list_model_get_item()/@ returns an item at a (0-based) position. In-order to allow implementations to calculate the list length lazily,-you can also iterate over items: starting from 0, repeatedly call-@/g_list_model_get_item()/@ until it returns 'Nothing'.--An implementation may create objects lazily, but must take care to-return the same object for a given position until all references to-it are gone.--On the other side, a consumer is expected only to hold references on-objects that are currently \"user visible\", in order to faciliate the-maximum level of laziness in the implementation of the list and to-reduce the required number of signal connections at a given time.--This interface is intended only to be used from a single thread.  The-thread in which it is appropriate to use it depends on the particular-implementation, but typically it will be from the thread that owns-the [thread-default main context][g-main-context-push-thread-default]-in effect at the time that the model was created.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.ListModel-    ( ---- * Exported types-    ListModel(..)                           ,-    noListModel                             ,-    IsListModel                             ,-    toListModel                             ,--- -- * Methods--- ** getItem #method:getItem#--#if ENABLE_OVERLOADING-    ListModelGetItemMethodInfo              ,-#endif-    listModelGetItem                        ,----- ** getItemType #method:getItemType#--#if ENABLE_OVERLOADING-    ListModelGetItemTypeMethodInfo          ,-#endif-    listModelGetItemType                    ,----- ** getNItems #method:getNItems#--#if ENABLE_OVERLOADING-    ListModelGetNItemsMethodInfo            ,-#endif-    listModelGetNItems                      ,----- ** itemsChanged #method:itemsChanged#--#if ENABLE_OVERLOADING-    ListModelItemsChangedMethodInfo         ,-#endif-    listModelItemsChanged                   ,----- -- * Signals--- ** itemsChanged #signal:itemsChanged#--    C_ListModelItemsChangedCallback         ,-    ListModelItemsChangedCallback           ,-#if ENABLE_OVERLOADING-    ListModelItemsChangedSignalInfo         ,-#endif-    afterListModelItemsChanged              ,-    genClosure_ListModelItemsChanged        ,-    mk_ListModelItemsChangedCallback        ,-    noListModelItemsChangedCallback         ,-    onListModelItemsChanged                 ,-    wrap_ListModelItemsChangedCallback      ,-----    ) 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---- interface ListModel --- | Memory-managed wrapper type.-newtype ListModel = ListModel (ManagedPtr ListModel)--- | A convenience alias for `Nothing` :: `Maybe` `ListModel`.-noListModel :: Maybe ListModel-noListModel = Nothing---- signal ListModel::items-changed-{- |-This signal is emitted whenever items were added or removed to-/@list@/. At /@position@/, /@removed@/ items were removed and /@added@/ items-were added in their place.--/Since: 2.44/--}-type ListModelItemsChangedCallback =-    Word32-    {- ^ /@position@/: the position at which /@list@/ changed -}-    -> Word32-    {- ^ /@removed@/: the number of items removed -}-    -> Word32-    {- ^ /@added@/: the number of items added -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ListModelItemsChangedCallback`@.-noListModelItemsChangedCallback :: Maybe ListModelItemsChangedCallback-noListModelItemsChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ListModelItemsChangedCallback =-    Ptr () ->                               -- object-    Word32 ->-    Word32 ->-    Word32 ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ListModelItemsChangedCallback`.-foreign import ccall "wrapper"-    mk_ListModelItemsChangedCallback :: C_ListModelItemsChangedCallback -> IO (FunPtr C_ListModelItemsChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ListModelItemsChanged :: MonadIO m => ListModelItemsChangedCallback -> m (GClosure C_ListModelItemsChangedCallback)-genClosure_ListModelItemsChanged cb = liftIO $ do-    let cb' = wrap_ListModelItemsChangedCallback cb-    mk_ListModelItemsChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ListModelItemsChangedCallback` into a `C_ListModelItemsChangedCallback`.-wrap_ListModelItemsChangedCallback ::-    ListModelItemsChangedCallback ->-    C_ListModelItemsChangedCallback-wrap_ListModelItemsChangedCallback _cb _ position removed added _ = do-    _cb  position removed added---{- |-Connect a signal handler for the “@items-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' listModel #itemsChanged callback-@--}-onListModelItemsChanged :: (IsListModel a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId-onListModelItemsChanged obj cb = liftIO $ do-    let cb' = wrap_ListModelItemsChangedCallback cb-    cb'' <- mk_ListModelItemsChangedCallback cb'-    connectSignalFunPtr obj "items-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@items-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' listModel #itemsChanged callback-@--}-afterListModelItemsChanged :: (IsListModel a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId-afterListModelItemsChanged obj cb = liftIO $ do-    let cb' = wrap_ListModelItemsChangedCallback cb-    cb'' <- mk_ListModelItemsChangedCallback cb'-    connectSignalFunPtr obj "items-changed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data ListModelItemsChangedSignalInfo-instance SignalInfo ListModelItemsChangedSignalInfo where-    type HaskellCallbackType ListModelItemsChangedSignalInfo = ListModelItemsChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ListModelItemsChangedCallback cb-        cb'' <- mk_ListModelItemsChangedCallback cb'-        connectSignalFunPtr obj "items-changed" cb'' connectMode--type instance O.SignalList ListModel = ListModelSignalList-type ListModelSignalList = ('[ '("itemsChanged", ListModelItemsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_list_model_get_type"-    c_g_list_model_get_type :: IO GType--instance GObject ListModel where-    gobjectType = c_g_list_model_get_type-    ---- | Type class for types which can be safely cast to `ListModel`, for instance with `toListModel`.-class (GObject o, O.IsDescendantOf ListModel o) => IsListModel o-instance (GObject o, O.IsDescendantOf ListModel o) => IsListModel o--instance O.HasParentTypes ListModel-type instance O.ParentTypes ListModel = '[GObject.Object.Object]---- | Cast to `ListModel`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toListModel :: (MonadIO m, IsListModel o) => o -> m ListModel-toListModel = liftIO . unsafeCastTo ListModel--#if ENABLE_OVERLOADING-instance O.HasAttributeList ListModel-type instance O.AttributeList ListModel = ListModelAttributeList-type ListModelAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveListModelMethod (t :: Symbol) (o :: *) :: * where-    ResolveListModelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveListModelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveListModelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveListModelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveListModelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveListModelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveListModelMethod "itemsChanged" o = ListModelItemsChangedMethodInfo-    ResolveListModelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveListModelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveListModelMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveListModelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveListModelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveListModelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveListModelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveListModelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveListModelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveListModelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveListModelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveListModelMethod "getItem" o = ListModelGetItemMethodInfo-    ResolveListModelMethod "getItemType" o = ListModelGetItemTypeMethodInfo-    ResolveListModelMethod "getNItems" o = ListModelGetNItemsMethodInfo-    ResolveListModelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveListModelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveListModelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveListModelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveListModelMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveListModelMethod t ListModel, O.MethodInfo info ListModel p) => OL.IsLabel t (ListModel -> 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 ListModel::get_item_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "ListModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_list_model_get_item_type" g_list_model_get_item_type :: -    Ptr ListModel ->                        -- list : TInterface (Name {namespace = "Gio", name = "ListModel"})-    IO CGType--{- |-Gets the type of the items in /@list@/. All items returned from-@/g_list_model_get_type()/@ are of that type or a subtype, or are an-implementation of that interface.--The item type of a 'GI.Gio.Interfaces.ListModel.ListModel' can not change during the life of the-model.--/Since: 2.44/--}-listModelGetItemType ::-    (B.CallStack.HasCallStack, MonadIO m, IsListModel a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Interfaces.ListModel.ListModel' -}-    -> m GType-    {- ^ __Returns:__ the 'GType' of the items contained in /@list@/. -}-listModelGetItemType list = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    result <- g_list_model_get_item_type list'-    let result' = GType result-    touchManagedPtr list-    return result'--#if ENABLE_OVERLOADING-data ListModelGetItemTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, IsListModel a) => O.MethodInfo ListModelGetItemTypeMethodInfo a signature where-    overloadedMethod _ = listModelGetItemType--#endif---- method ListModel::get_n_items--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "ListModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListModel", 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 "g_list_model_get_n_items" g_list_model_get_n_items :: -    Ptr ListModel ->                        -- list : TInterface (Name {namespace = "Gio", name = "ListModel"})-    IO Word32--{- |-Gets the number of items in /@list@/.--Depending on the model implementation, calling this function may be-less efficient than iterating the list with increasing values for-/@position@/ until @/g_list_model_get_item()/@ returns 'Nothing'.--/Since: 2.44/--}-listModelGetNItems ::-    (B.CallStack.HasCallStack, MonadIO m, IsListModel a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Interfaces.ListModel.ListModel' -}-    -> m Word32-    {- ^ __Returns:__ the number of items in /@list@/. -}-listModelGetNItems list = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    result <- g_list_model_get_n_items list'-    touchManagedPtr list-    return result--#if ENABLE_OVERLOADING-data ListModelGetNItemsMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsListModel a) => O.MethodInfo ListModelGetNItemsMethodInfo a signature where-    overloadedMethod _ = listModelGetNItems--#endif---- method ListModel::get_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "ListModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position of the item to fetch", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GObject", name = "Object"}))--- throws : False--- Skip return : False--foreign import ccall "g_list_model_get_object" g_list_model_get_object :: -    Ptr ListModel ->                        -- list : TInterface (Name {namespace = "Gio", name = "ListModel"})-    Word32 ->                               -- position : TBasicType TUInt-    IO (Ptr GObject.Object.Object)--{- |-Get the item at /@position@/. If /@position@/ is greater than the number of-items in /@list@/, 'Nothing' is returned.--'Nothing' is never returned for an index that is smaller than the length-of the list.  See 'GI.Gio.Interfaces.ListModel.listModelGetNItems'.--/Since: 2.44/--}-listModelGetItem ::-    (B.CallStack.HasCallStack, MonadIO m, IsListModel a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Interfaces.ListModel.ListModel' -}-    -> Word32-    {- ^ /@position@/: the position of the item to fetch -}-    -> m (Maybe GObject.Object.Object)-    {- ^ __Returns:__ the object at /@position@/. -}-listModelGetItem list position = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    result <- g_list_model_get_object list' position-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject GObject.Object.Object) result'-        return result''-    touchManagedPtr list-    return maybeResult--#if ENABLE_OVERLOADING-data ListModelGetItemMethodInfo-instance (signature ~ (Word32 -> m (Maybe GObject.Object.Object)), MonadIO m, IsListModel a) => O.MethodInfo ListModelGetItemMethodInfo a signature where-    overloadedMethod _ = listModelGetItem--#endif---- method ListModel::items_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "ListModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position at which @list changed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items removed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items added", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_list_model_items_changed" g_list_model_items_changed :: -    Ptr ListModel ->                        -- list : TInterface (Name {namespace = "Gio", name = "ListModel"})-    Word32 ->                               -- position : TBasicType TUInt-    Word32 ->                               -- removed : TBasicType TUInt-    Word32 ->                               -- added : TBasicType TUInt-    IO ()--{- |-Emits the 'GI.Gio.Interfaces.ListModel.ListModel'::@/items-changed/@ signal on /@list@/.--This function should only be called by classes implementing-'GI.Gio.Interfaces.ListModel.ListModel'. It has to be called after the internal representation-of /@list@/ has been updated, because handlers connected to this signal-might query the new state of the list.--Implementations must only make changes to the model (as visible to-its consumer) in places that will not cause problems for that-consumer.  For models that are driven directly by a write API (such-as 'GI.Gio.Objects.ListStore.ListStore'), changes can be reported in response to uses of that-API.  For models that represent remote data, changes should only be-made from a fresh mainloop dispatch.  It is particularly not-permitted to make changes in response to a call to the 'GI.Gio.Interfaces.ListModel.ListModel'-consumer API.--Stated another way: in general, it is assumed that code making a-series of accesses to the model via the API, without returning to the-mainloop, and without calling other code, will continue to view the-same contents of the model.--/Since: 2.44/--}-listModelItemsChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsListModel a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Interfaces.ListModel.ListModel' -}-    -> Word32-    {- ^ /@position@/: the position at which /@list@/ changed -}-    -> Word32-    {- ^ /@removed@/: the number of items removed -}-    -> Word32-    {- ^ /@added@/: the number of items added -}-    -> m ()-listModelItemsChanged list position removed added = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    g_list_model_items_changed list' position removed added-    touchManagedPtr list-    return ()--#if ENABLE_OVERLOADING-data ListModelItemsChangedMethodInfo-instance (signature ~ (Word32 -> Word32 -> Word32 -> m ()), MonadIO m, IsListModel a) => O.MethodInfo ListModelItemsChangedMethodInfo a signature where-    overloadedMethod _ = listModelItemsChanged--#endif--
− GI/Gio/Interfaces/ListModel.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.ListModel 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 ListModel = ListModel (ManagedPtr ListModel)-#if ENABLE_OVERLOADING-data ListModelItemsChangedSignalInfo-#endif-instance GObject ListModel where-class (GObject o, O.IsDescendantOf ListModel o) => IsListModel o-instance (GObject o, O.IsDescendantOf ListModel o) => IsListModel o-instance O.HasParentTypes ListModel-#if ENABLE_OVERLOADING-data ListModelGetItemTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListModelGetNItemsMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListModelGetItemMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListModelItemsChangedMethodInfo-#endif
− GI/Gio/Interfaces/LoadableIcon.hs 
@@ -1,334 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Extends the 'GI.Gio.Interfaces.Icon.Icon' interface and adds the ability to-load icons from streams.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.LoadableIcon-    ( ---- * Exported types-    LoadableIcon(..)                        ,-    noLoadableIcon                          ,-    IsLoadableIcon                          ,-    toLoadableIcon                          ,--- -- * Methods--- ** load #method:load#--#if ENABLE_OVERLOADING-    LoadableIconLoadMethodInfo              ,-#endif-    loadableIconLoad                        ,----- ** loadAsync #method:loadAsync#--#if ENABLE_OVERLOADING-    LoadableIconLoadAsyncMethodInfo         ,-#endif-    loadableIconLoadAsync                   ,----- ** loadFinish #method:loadFinish#--#if ENABLE_OVERLOADING-    LoadableIconLoadFinishMethodInfo        ,-#endif-    loadableIconLoadFinish                  ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- interface LoadableIcon --- | Memory-managed wrapper type.-newtype LoadableIcon = LoadableIcon (ManagedPtr LoadableIcon)--- | A convenience alias for `Nothing` :: `Maybe` `LoadableIcon`.-noLoadableIcon :: Maybe LoadableIcon-noLoadableIcon = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList LoadableIcon = LoadableIconSignalList-type LoadableIconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_loadable_icon_get_type"-    c_g_loadable_icon_get_type :: IO GType--instance GObject LoadableIcon where-    gobjectType = c_g_loadable_icon_get_type-    ---- | Type class for types which can be safely cast to `LoadableIcon`, for instance with `toLoadableIcon`.-class (GObject o, O.IsDescendantOf LoadableIcon o) => IsLoadableIcon o-instance (GObject o, O.IsDescendantOf LoadableIcon o) => IsLoadableIcon o--instance O.HasParentTypes LoadableIcon-type instance O.ParentTypes LoadableIcon = '[Gio.Icon.Icon, GObject.Object.Object]---- | Cast to `LoadableIcon`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toLoadableIcon :: (MonadIO m, IsLoadableIcon o) => o -> m LoadableIcon-toLoadableIcon = liftIO . unsafeCastTo LoadableIcon--#if ENABLE_OVERLOADING-instance O.HasAttributeList LoadableIcon-type instance O.AttributeList LoadableIcon = LoadableIconAttributeList-type LoadableIconAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveLoadableIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveLoadableIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveLoadableIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveLoadableIconMethod "equal" o = Gio.Icon.IconEqualMethodInfo-    ResolveLoadableIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveLoadableIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveLoadableIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveLoadableIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveLoadableIconMethod "load" o = LoadableIconLoadMethodInfo-    ResolveLoadableIconMethod "loadAsync" o = LoadableIconLoadAsyncMethodInfo-    ResolveLoadableIconMethod "loadFinish" o = LoadableIconLoadFinishMethodInfo-    ResolveLoadableIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveLoadableIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveLoadableIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveLoadableIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveLoadableIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveLoadableIconMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo-    ResolveLoadableIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveLoadableIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveLoadableIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveLoadableIconMethod "toString" o = Gio.Icon.IconToStringMethodInfo-    ResolveLoadableIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveLoadableIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveLoadableIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveLoadableIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveLoadableIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveLoadableIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveLoadableIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveLoadableIconMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveLoadableIconMethod t LoadableIcon, O.MethodInfo info LoadableIcon p) => OL.IsLabel t (LoadableIcon -> 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 LoadableIcon::load--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "LoadableIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GLoadableIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an integer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to store the type of the loaded\nicon, %NULL to ignore.", 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 "optional #GCancellable object, %NULL to\nignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_loadable_icon_load" g_loadable_icon_load :: -    Ptr LoadableIcon ->                     -- icon : TInterface (Name {namespace = "Gio", name = "LoadableIcon"})-    Int32 ->                                -- size : TBasicType TInt-    Ptr CString ->                          -- type : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Loads a loadable icon. For the asynchronous version of this function,-see 'GI.Gio.Interfaces.LoadableIcon.loadableIconLoadAsync'.--}-loadableIconLoad ::-    (B.CallStack.HasCallStack, MonadIO m, IsLoadableIcon a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.LoadableIcon.LoadableIcon'. -}-    -> Int32-    {- ^ /@size@/: an integer. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to-ignore. -}-    -> m ((Gio.InputStream.InputStream, T.Text))-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' to read the icon from. /(Can throw 'Data.GI.Base.GError.GError')/ -}-loadableIconLoad icon size cancellable = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    type_ <- allocMem :: IO (Ptr CString)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_loadable_icon_load icon' size type_ maybeCancellable-        checkUnexpectedReturnNULL "loadableIconLoad" result-        result' <- (wrapObject Gio.InputStream.InputStream) result-        type_' <- peek type_-        type_'' <- cstringToText type_'-        freeMem type_'-        touchManagedPtr icon-        whenJust cancellable touchManagedPtr-        freeMem type_-        return (result', type_'')-     ) (do-        freeMem type_-     )--#if ENABLE_OVERLOADING-data LoadableIconLoadMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> m ((Gio.InputStream.InputStream, T.Text))), MonadIO m, IsLoadableIcon a, Gio.Cancellable.IsCancellable b) => O.MethodInfo LoadableIconLoadMethodInfo a signature where-    overloadedMethod _ = loadableIconLoad--#endif---- method LoadableIcon::load_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "LoadableIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GLoadableIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an integer.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the\n           request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_loadable_icon_load_async" g_loadable_icon_load_async :: -    Ptr LoadableIcon ->                     -- icon : TInterface (Name {namespace = "Gio", name = "LoadableIcon"})-    Int32 ->                                -- size : 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 ()--{- |-Loads an icon asynchronously. To finish this function, see-'GI.Gio.Interfaces.LoadableIcon.loadableIconLoadFinish'. For the synchronous, blocking-version of this function, see 'GI.Gio.Interfaces.LoadableIcon.loadableIconLoad'.--}-loadableIconLoadAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsLoadableIcon a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.LoadableIcon.LoadableIcon'. -}-    -> Int32-    {- ^ /@size@/: an integer. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the-           request is satisfied -}-    -> m ()-loadableIconLoadAsync icon size cancellable callback = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    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-    g_loadable_icon_load_async icon' size maybeCancellable maybeCallback userData-    touchManagedPtr icon-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data LoadableIconLoadAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsLoadableIcon a, Gio.Cancellable.IsCancellable b) => O.MethodInfo LoadableIconLoadAsyncMethodInfo a signature where-    overloadedMethod _ = loadableIconLoadAsync--#endif---- method LoadableIcon::load_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "LoadableIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GLoadableIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to store the type of the loaded\n       icon, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_loadable_icon_load_finish" g_loadable_icon_load_finish :: -    Ptr LoadableIcon ->                     -- icon : TInterface (Name {namespace = "Gio", name = "LoadableIcon"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr CString ->                          -- type : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Finishes an asynchronous icon load started in 'GI.Gio.Interfaces.LoadableIcon.loadableIconLoadAsync'.--}-loadableIconLoadFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsLoadableIcon a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.LoadableIcon.LoadableIcon'. -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ((Gio.InputStream.InputStream, T.Text))-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' to read the icon from. /(Can throw 'Data.GI.Base.GError.GError')/ -}-loadableIconLoadFinish icon res = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    res' <- unsafeManagedPtrCastPtr res-    type_ <- allocMem :: IO (Ptr CString)-    onException (do-        result <- propagateGError $ g_loadable_icon_load_finish icon' res' type_-        checkUnexpectedReturnNULL "loadableIconLoadFinish" result-        result' <- (wrapObject Gio.InputStream.InputStream) result-        type_' <- peek type_-        type_'' <- cstringToText type_'-        freeMem type_'-        touchManagedPtr icon-        touchManagedPtr res-        freeMem type_-        return (result', type_'')-     ) (do-        freeMem type_-     )--#if ENABLE_OVERLOADING-data LoadableIconLoadFinishMethodInfo-instance (signature ~ (b -> m ((Gio.InputStream.InputStream, T.Text))), MonadIO m, IsLoadableIcon a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo LoadableIconLoadFinishMethodInfo a signature where-    overloadedMethod _ = loadableIconLoadFinish--#endif--
− GI/Gio/Interfaces/LoadableIcon.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.LoadableIcon 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 LoadableIcon = LoadableIcon (ManagedPtr LoadableIcon)-instance GObject LoadableIcon where-class (GObject o, O.IsDescendantOf LoadableIcon o) => IsLoadableIcon o-instance (GObject o, O.IsDescendantOf LoadableIcon o) => IsLoadableIcon o-instance O.HasParentTypes LoadableIcon-#if ENABLE_OVERLOADING-data LoadableIconLoadMethodInfo-#endif-#if ENABLE_OVERLOADING-data LoadableIconLoadAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data LoadableIconLoadFinishMethodInfo-#endif
− GI/Gio/Interfaces/Mount.hs 
@@ -1,2004 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Interfaces.Mount.Mount' interface represents user-visible mounts. Note, when-porting from GnomeVFS, 'GI.Gio.Interfaces.Mount.Mount' is the moral equivalent of @/GnomeVFSVolume/@.--'GI.Gio.Interfaces.Mount.Mount' is a \"mounted\" filesystem that you can access. Mounted is in-quotes because it\'s not the same as a unix mount, it might be a gvfs-mount, but you can still access the files on it if you use GIO. Might or-might not be related to a volume object.--Unmounting a 'GI.Gio.Interfaces.Mount.Mount' instance is an asynchronous operation. For-more information about asynchronous operations, see 'GI.Gio.Interfaces.AsyncResult.AsyncResult'-and 'GI.Gio.Objects.Task.Task'. To unmount a 'GI.Gio.Interfaces.Mount.Mount' instance, first call-'GI.Gio.Interfaces.Mount.mountUnmountWithOperation' with (at least) the 'GI.Gio.Interfaces.Mount.Mount' instance and a-'GI.Gio.Callbacks.AsyncReadyCallback'.  The callback will be fired when the-operation has resolved (either with success or failure), and a-'GI.Gio.Interfaces.AsyncResult.AsyncResult' structure will be passed to the callback.  That-callback should then call 'GI.Gio.Interfaces.Mount.mountUnmountWithOperationFinish' with the 'GI.Gio.Interfaces.Mount.Mount'-and the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' data to see if the operation was completed-successfully.  If an /@error@/ is present when 'GI.Gio.Interfaces.Mount.mountUnmountWithOperationFinish'-is called, then it will be filled with any error information.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Mount-    ( ---- * Exported types-    Mount(..)                               ,-    noMount                                 ,-    IsMount                                 ,-    toMount                                 ,--- -- * Methods--- ** canEject #method:canEject#--#if ENABLE_OVERLOADING-    MountCanEjectMethodInfo                 ,-#endif-    mountCanEject                           ,----- ** canUnmount #method:canUnmount#--#if ENABLE_OVERLOADING-    MountCanUnmountMethodInfo               ,-#endif-    mountCanUnmount                         ,----- ** eject #method:eject#--#if ENABLE_OVERLOADING-    MountEjectMethodInfo                    ,-#endif-    mountEject                              ,----- ** ejectFinish #method:ejectFinish#--#if ENABLE_OVERLOADING-    MountEjectFinishMethodInfo              ,-#endif-    mountEjectFinish                        ,----- ** ejectWithOperation #method:ejectWithOperation#--#if ENABLE_OVERLOADING-    MountEjectWithOperationMethodInfo       ,-#endif-    mountEjectWithOperation                 ,----- ** ejectWithOperationFinish #method:ejectWithOperationFinish#--#if ENABLE_OVERLOADING-    MountEjectWithOperationFinishMethodInfo ,-#endif-    mountEjectWithOperationFinish           ,----- ** getDefaultLocation #method:getDefaultLocation#--#if ENABLE_OVERLOADING-    MountGetDefaultLocationMethodInfo       ,-#endif-    mountGetDefaultLocation                 ,----- ** getDrive #method:getDrive#--#if ENABLE_OVERLOADING-    MountGetDriveMethodInfo                 ,-#endif-    mountGetDrive                           ,----- ** getIcon #method:getIcon#--#if ENABLE_OVERLOADING-    MountGetIconMethodInfo                  ,-#endif-    mountGetIcon                            ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    MountGetNameMethodInfo                  ,-#endif-    mountGetName                            ,----- ** getRoot #method:getRoot#--#if ENABLE_OVERLOADING-    MountGetRootMethodInfo                  ,-#endif-    mountGetRoot                            ,----- ** getSortKey #method:getSortKey#--#if ENABLE_OVERLOADING-    MountGetSortKeyMethodInfo               ,-#endif-    mountGetSortKey                         ,----- ** getSymbolicIcon #method:getSymbolicIcon#--#if ENABLE_OVERLOADING-    MountGetSymbolicIconMethodInfo          ,-#endif-    mountGetSymbolicIcon                    ,----- ** getUuid #method:getUuid#--#if ENABLE_OVERLOADING-    MountGetUuidMethodInfo                  ,-#endif-    mountGetUuid                            ,----- ** getVolume #method:getVolume#--#if ENABLE_OVERLOADING-    MountGetVolumeMethodInfo                ,-#endif-    mountGetVolume                          ,----- ** guessContentType #method:guessContentType#--#if ENABLE_OVERLOADING-    MountGuessContentTypeMethodInfo         ,-#endif-    mountGuessContentType                   ,----- ** guessContentTypeFinish #method:guessContentTypeFinish#--#if ENABLE_OVERLOADING-    MountGuessContentTypeFinishMethodInfo   ,-#endif-    mountGuessContentTypeFinish             ,----- ** guessContentTypeSync #method:guessContentTypeSync#--#if ENABLE_OVERLOADING-    MountGuessContentTypeSyncMethodInfo     ,-#endif-    mountGuessContentTypeSync               ,----- ** isShadowed #method:isShadowed#--#if ENABLE_OVERLOADING-    MountIsShadowedMethodInfo               ,-#endif-    mountIsShadowed                         ,----- ** remount #method:remount#--#if ENABLE_OVERLOADING-    MountRemountMethodInfo                  ,-#endif-    mountRemount                            ,----- ** remountFinish #method:remountFinish#--#if ENABLE_OVERLOADING-    MountRemountFinishMethodInfo            ,-#endif-    mountRemountFinish                      ,----- ** shadow #method:shadow#--#if ENABLE_OVERLOADING-    MountShadowMethodInfo                   ,-#endif-    mountShadow                             ,----- ** unmount #method:unmount#--#if ENABLE_OVERLOADING-    MountUnmountMethodInfo                  ,-#endif-    mountUnmount                            ,----- ** unmountFinish #method:unmountFinish#--#if ENABLE_OVERLOADING-    MountUnmountFinishMethodInfo            ,-#endif-    mountUnmountFinish                      ,----- ** unmountWithOperation #method:unmountWithOperation#--#if ENABLE_OVERLOADING-    MountUnmountWithOperationMethodInfo     ,-#endif-    mountUnmountWithOperation               ,----- ** unmountWithOperationFinish #method:unmountWithOperationFinish#--#if ENABLE_OVERLOADING-    MountUnmountWithOperationFinishMethodInfo,-#endif-    mountUnmountWithOperationFinish         ,----- ** unshadow #method:unshadow#--#if ENABLE_OVERLOADING-    MountUnshadowMethodInfo                 ,-#endif-    mountUnshadow                           ,----- -- * Signals--- ** changed #signal:changed#--    C_MountChangedCallback                  ,-    MountChangedCallback                    ,-#if ENABLE_OVERLOADING-    MountChangedSignalInfo                  ,-#endif-    afterMountChanged                       ,-    genClosure_MountChanged                 ,-    mk_MountChangedCallback                 ,-    noMountChangedCallback                  ,-    onMountChanged                          ,-    wrap_MountChangedCallback               ,----- ** preUnmount #signal:preUnmount#--    C_MountPreUnmountCallback               ,-    MountPreUnmountCallback                 ,-#if ENABLE_OVERLOADING-    MountPreUnmountSignalInfo               ,-#endif-    afterMountPreUnmount                    ,-    genClosure_MountPreUnmount              ,-    mk_MountPreUnmountCallback              ,-    noMountPreUnmountCallback               ,-    onMountPreUnmount                       ,-    wrap_MountPreUnmountCallback            ,----- ** unmounted #signal:unmounted#--    C_MountUnmountedCallback                ,-    MountUnmountedCallback                  ,-#if ENABLE_OVERLOADING-    MountUnmountedSignalInfo                ,-#endif-    afterMountUnmounted                     ,-    genClosure_MountUnmounted               ,-    mk_MountUnmountedCallback               ,-    noMountUnmountedCallback                ,-    onMountUnmounted                        ,-    wrap_MountUnmountedCallback             ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Drive as Gio.Drive-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Volume as Gio.Volume-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.MountOperation as Gio.MountOperation---- interface Mount --- | Memory-managed wrapper type.-newtype Mount = Mount (ManagedPtr Mount)--- | A convenience alias for `Nothing` :: `Maybe` `Mount`.-noMount :: Maybe Mount-noMount = Nothing---- signal Mount::changed-{- |-Emitted when the mount has been changed.--}-type MountChangedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountChangedCallback`@.-noMountChangedCallback :: Maybe MountChangedCallback-noMountChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountChangedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountChangedCallback`.-foreign import ccall "wrapper"-    mk_MountChangedCallback :: C_MountChangedCallback -> IO (FunPtr C_MountChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountChanged :: MonadIO m => MountChangedCallback -> m (GClosure C_MountChangedCallback)-genClosure_MountChanged cb = liftIO $ do-    let cb' = wrap_MountChangedCallback cb-    mk_MountChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountChangedCallback` into a `C_MountChangedCallback`.-wrap_MountChangedCallback ::-    MountChangedCallback ->-    C_MountChangedCallback-wrap_MountChangedCallback _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' mount #changed callback-@--}-onMountChanged :: (IsMount a, MonadIO m) => a -> MountChangedCallback -> m SignalHandlerId-onMountChanged obj cb = liftIO $ do-    let cb' = wrap_MountChangedCallback cb-    cb'' <- mk_MountChangedCallback 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' mount #changed callback-@--}-afterMountChanged :: (IsMount a, MonadIO m) => a -> MountChangedCallback -> m SignalHandlerId-afterMountChanged obj cb = liftIO $ do-    let cb' = wrap_MountChangedCallback cb-    cb'' <- mk_MountChangedCallback cb'-    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter----- signal Mount::pre-unmount-{- |-This signal may be emitted when the 'GI.Gio.Interfaces.Mount.Mount' is about to be-unmounted.--This signal depends on the backend and is only emitted if-GIO was used to unmount.--/Since: 2.22/--}-type MountPreUnmountCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountPreUnmountCallback`@.-noMountPreUnmountCallback :: Maybe MountPreUnmountCallback-noMountPreUnmountCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountPreUnmountCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountPreUnmountCallback`.-foreign import ccall "wrapper"-    mk_MountPreUnmountCallback :: C_MountPreUnmountCallback -> IO (FunPtr C_MountPreUnmountCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountPreUnmount :: MonadIO m => MountPreUnmountCallback -> m (GClosure C_MountPreUnmountCallback)-genClosure_MountPreUnmount cb = liftIO $ do-    let cb' = wrap_MountPreUnmountCallback cb-    mk_MountPreUnmountCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountPreUnmountCallback` into a `C_MountPreUnmountCallback`.-wrap_MountPreUnmountCallback ::-    MountPreUnmountCallback ->-    C_MountPreUnmountCallback-wrap_MountPreUnmountCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@pre-unmount@” 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' mount #preUnmount callback-@--}-onMountPreUnmount :: (IsMount a, MonadIO m) => a -> MountPreUnmountCallback -> m SignalHandlerId-onMountPreUnmount obj cb = liftIO $ do-    let cb' = wrap_MountPreUnmountCallback cb-    cb'' <- mk_MountPreUnmountCallback cb'-    connectSignalFunPtr obj "pre-unmount" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@pre-unmount@” 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' mount #preUnmount callback-@--}-afterMountPreUnmount :: (IsMount a, MonadIO m) => a -> MountPreUnmountCallback -> m SignalHandlerId-afterMountPreUnmount obj cb = liftIO $ do-    let cb' = wrap_MountPreUnmountCallback cb-    cb'' <- mk_MountPreUnmountCallback cb'-    connectSignalFunPtr obj "pre-unmount" cb'' SignalConnectAfter----- signal Mount::unmounted-{- |-This signal is emitted when the 'GI.Gio.Interfaces.Mount.Mount' have been-unmounted. If the recipient is holding references to the-object they should release them so the object can be-finalized.--}-type MountUnmountedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountUnmountedCallback`@.-noMountUnmountedCallback :: Maybe MountUnmountedCallback-noMountUnmountedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountUnmountedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountUnmountedCallback`.-foreign import ccall "wrapper"-    mk_MountUnmountedCallback :: C_MountUnmountedCallback -> IO (FunPtr C_MountUnmountedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountUnmounted :: MonadIO m => MountUnmountedCallback -> m (GClosure C_MountUnmountedCallback)-genClosure_MountUnmounted cb = liftIO $ do-    let cb' = wrap_MountUnmountedCallback cb-    mk_MountUnmountedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountUnmountedCallback` into a `C_MountUnmountedCallback`.-wrap_MountUnmountedCallback ::-    MountUnmountedCallback ->-    C_MountUnmountedCallback-wrap_MountUnmountedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@unmounted@” 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' mount #unmounted callback-@--}-onMountUnmounted :: (IsMount a, MonadIO m) => a -> MountUnmountedCallback -> m SignalHandlerId-onMountUnmounted obj cb = liftIO $ do-    let cb' = wrap_MountUnmountedCallback cb-    cb'' <- mk_MountUnmountedCallback cb'-    connectSignalFunPtr obj "unmounted" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@unmounted@” 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' mount #unmounted callback-@--}-afterMountUnmounted :: (IsMount a, MonadIO m) => a -> MountUnmountedCallback -> m SignalHandlerId-afterMountUnmounted obj cb = liftIO $ do-    let cb' = wrap_MountUnmountedCallback cb-    cb'' <- mk_MountUnmountedCallback cb'-    connectSignalFunPtr obj "unmounted" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data MountChangedSignalInfo-instance SignalInfo MountChangedSignalInfo where-    type HaskellCallbackType MountChangedSignalInfo = MountChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountChangedCallback cb-        cb'' <- mk_MountChangedCallback cb'-        connectSignalFunPtr obj "changed" cb'' connectMode--data MountPreUnmountSignalInfo-instance SignalInfo MountPreUnmountSignalInfo where-    type HaskellCallbackType MountPreUnmountSignalInfo = MountPreUnmountCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountPreUnmountCallback cb-        cb'' <- mk_MountPreUnmountCallback cb'-        connectSignalFunPtr obj "pre-unmount" cb'' connectMode--data MountUnmountedSignalInfo-instance SignalInfo MountUnmountedSignalInfo where-    type HaskellCallbackType MountUnmountedSignalInfo = MountUnmountedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountUnmountedCallback cb-        cb'' <- mk_MountUnmountedCallback cb'-        connectSignalFunPtr obj "unmounted" cb'' connectMode--type instance O.SignalList Mount = MountSignalList-type MountSignalList = ('[ '("changed", MountChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("preUnmount", MountPreUnmountSignalInfo), '("unmounted", MountUnmountedSignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_mount_get_type"-    c_g_mount_get_type :: IO GType--instance GObject Mount where-    gobjectType = c_g_mount_get_type-    ---- | Type class for types which can be safely cast to `Mount`, for instance with `toMount`.-class (GObject o, O.IsDescendantOf Mount o) => IsMount o-instance (GObject o, O.IsDescendantOf Mount o) => IsMount o--instance O.HasParentTypes Mount-type instance O.ParentTypes Mount = '[GObject.Object.Object]---- | Cast to `Mount`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMount :: (MonadIO m, IsMount o) => o -> m Mount-toMount = liftIO . unsafeCastTo Mount--#if ENABLE_OVERLOADING-instance O.HasAttributeList Mount-type instance O.AttributeList Mount = MountAttributeList-type MountAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveMountMethod (t :: Symbol) (o :: *) :: * where-    ResolveMountMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMountMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMountMethod "canEject" o = MountCanEjectMethodInfo-    ResolveMountMethod "canUnmount" o = MountCanUnmountMethodInfo-    ResolveMountMethod "eject" o = MountEjectMethodInfo-    ResolveMountMethod "ejectFinish" o = MountEjectFinishMethodInfo-    ResolveMountMethod "ejectWithOperation" o = MountEjectWithOperationMethodInfo-    ResolveMountMethod "ejectWithOperationFinish" o = MountEjectWithOperationFinishMethodInfo-    ResolveMountMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMountMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMountMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMountMethod "guessContentType" o = MountGuessContentTypeMethodInfo-    ResolveMountMethod "guessContentTypeFinish" o = MountGuessContentTypeFinishMethodInfo-    ResolveMountMethod "guessContentTypeSync" o = MountGuessContentTypeSyncMethodInfo-    ResolveMountMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMountMethod "isShadowed" o = MountIsShadowedMethodInfo-    ResolveMountMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMountMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMountMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMountMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMountMethod "remount" o = MountRemountMethodInfo-    ResolveMountMethod "remountFinish" o = MountRemountFinishMethodInfo-    ResolveMountMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMountMethod "shadow" o = MountShadowMethodInfo-    ResolveMountMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMountMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMountMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMountMethod "unmount" o = MountUnmountMethodInfo-    ResolveMountMethod "unmountFinish" o = MountUnmountFinishMethodInfo-    ResolveMountMethod "unmountWithOperation" o = MountUnmountWithOperationMethodInfo-    ResolveMountMethod "unmountWithOperationFinish" o = MountUnmountWithOperationFinishMethodInfo-    ResolveMountMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMountMethod "unshadow" o = MountUnshadowMethodInfo-    ResolveMountMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMountMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMountMethod "getDefaultLocation" o = MountGetDefaultLocationMethodInfo-    ResolveMountMethod "getDrive" o = MountGetDriveMethodInfo-    ResolveMountMethod "getIcon" o = MountGetIconMethodInfo-    ResolveMountMethod "getName" o = MountGetNameMethodInfo-    ResolveMountMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMountMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMountMethod "getRoot" o = MountGetRootMethodInfo-    ResolveMountMethod "getSortKey" o = MountGetSortKeyMethodInfo-    ResolveMountMethod "getSymbolicIcon" o = MountGetSymbolicIconMethodInfo-    ResolveMountMethod "getUuid" o = MountGetUuidMethodInfo-    ResolveMountMethod "getVolume" o = MountGetVolumeMethodInfo-    ResolveMountMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMountMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMountMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMountMethod t Mount, O.MethodInfo info Mount p) => OL.IsLabel t (Mount -> 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 Mount::can_eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "g_mount_can_eject" g_mount_can_eject :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO CInt--{- |-Checks if /@mount@/ can be ejected.--}-mountCanEject ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@mount@/ can be ejected. -}-mountCanEject mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_can_eject mount'-    let result' = (/= 0) result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-data MountCanEjectMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMount a) => O.MethodInfo MountCanEjectMethodInfo a signature where-    overloadedMethod _ = mountCanEject--#endif---- method Mount::can_unmount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "g_mount_can_unmount" g_mount_can_unmount :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO CInt--{- |-Checks if /@mount@/ can be unmounted.--}-mountCanUnmount ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@mount@/ can be unmounted. -}-mountCanUnmount mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_can_unmount mount'-    let result' = (/= 0) result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-data MountCanUnmountMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMount a) => O.MethodInfo MountCanUnmountMethodInfo a signature where-    overloadedMethod _ = mountCanUnmount--#endif---- method Mount::eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the unmount if required for eject", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed 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 "g_mount_eject" g_mount_eject :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    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 ()--{-# DEPRECATED mountEject ["(Since version 2.22)","Use 'GI.Gio.Interfaces.Mount.mountEjectWithOperation' instead."] #-}-{- |-Ejects a mount. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Mount.mountEjectFinish' with the /@mount@/-and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' data returned in the /@callback@/.--}-mountEject ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the unmount if required for eject -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-mountEject mount flags cancellable callback = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    let flags' = gflagsToWord flags-    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-    g_mount_eject mount' flags' maybeCancellable maybeCallback userData-    touchManagedPtr mount-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MountEjectMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsMount a, Gio.Cancellable.IsCancellable b) => O.MethodInfo MountEjectMethodInfo a signature where-    overloadedMethod _ = mountEject--#endif---- method Mount::eject_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "a #GAsyncResult.", 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 "g_mount_eject_finish" g_mount_eject_finish :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED mountEjectFinish ["(Since version 2.22)","Use 'GI.Gio.Interfaces.Mount.mountEjectWithOperationFinish' instead."] #-}-{- |-Finishes ejecting a mount. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--}-mountEjectFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-mountEjectFinish mount result_ = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_eject_finish mount' result_'-        touchManagedPtr mount-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MountEjectFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo MountEjectFinishMethodInfo a signature where-    overloadedMethod _ = mountEjectFinish--#endif---- method Mount::eject_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the unmount if required for eject", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation or %NULL to avoid\n    user interaction.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", 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 "user data passed 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 "g_mount_eject_with_operation" g_mount_eject_with_operation :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Ejects a mount. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Mount.mountEjectWithOperationFinish' with the /@mount@/-and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' data returned in the /@callback@/.--/Since: 2.22/--}-mountEjectWithOperation ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the unmount if required for eject -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation' or 'Nothing' to avoid-    user interaction. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-mountEjectWithOperation mount flags mountOperation cancellable callback = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_mount_eject_with_operation mount' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr mount-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MountEjectWithOperationMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsMount a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo MountEjectWithOperationMethodInfo a signature where-    overloadedMethod _ = mountEjectWithOperation--#endif---- method Mount::eject_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "a #GAsyncResult.", 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 "g_mount_eject_with_operation_finish" g_mount_eject_with_operation_finish :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes ejecting a mount. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--/Since: 2.22/--}-mountEjectWithOperationFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-mountEjectWithOperationFinish mount result_ = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_eject_with_operation_finish mount' result_'-        touchManagedPtr mount-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MountEjectWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo MountEjectWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = mountEjectWithOperationFinish--#endif---- method Mount::get_default_location--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_default_location" g_mount_get_default_location :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO (Ptr Gio.File.File)--{- |-Gets the default location of /@mount@/. The default location of the given-/@mount@/ is a path that reflects the main entry point for the user (e.g.-the home directory, or the root of the volume).--}-mountGetDefaultLocation ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File'.-     The returned object should be unreffed with-     'GI.GObject.Objects.Object.objectUnref' when no longer needed. -}-mountGetDefaultLocation mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_default_location mount'-    checkUnexpectedReturnNULL "mountGetDefaultLocation" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-data MountGetDefaultLocationMethodInfo-instance (signature ~ (m Gio.File.File), MonadIO m, IsMount a) => O.MethodInfo MountGetDefaultLocationMethodInfo a signature where-    overloadedMethod _ = mountGetDefaultLocation--#endif---- method Mount::get_drive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Drive"}))--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_drive" g_mount_get_drive :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO (Ptr Gio.Drive.Drive)--{- |-Gets the drive for the /@mount@/.--This is a convenience method for getting the 'GI.Gio.Interfaces.Volume.Volume' and then-using that object to get the 'GI.Gio.Interfaces.Drive.Drive'.--}-mountGetDrive ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m (Maybe Gio.Drive.Drive)-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Drive.Drive' or 'Nothing' if /@mount@/ is not-     associated with a volume or a drive.-     The returned object should be unreffed with-     'GI.GObject.Objects.Object.objectUnref' when no longer needed. -}-mountGetDrive mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_drive mount'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Gio.Drive.Drive) result'-        return result''-    touchManagedPtr mount-    return maybeResult--#if ENABLE_OVERLOADING-data MountGetDriveMethodInfo-instance (signature ~ (m (Maybe Gio.Drive.Drive)), MonadIO m, IsMount a) => O.MethodInfo MountGetDriveMethodInfo a signature where-    overloadedMethod _ = mountGetDrive--#endif---- method Mount::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_icon" g_mount_get_icon :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the icon for /@mount@/.--}-mountGetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon'.-     The returned object should be unreffed with-     'GI.GObject.Objects.Object.objectUnref' when no longer needed. -}-mountGetIcon mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_icon mount'-    checkUnexpectedReturnNULL "mountGetIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-data MountGetIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsMount a) => O.MethodInfo MountGetIconMethodInfo a signature where-    overloadedMethod _ = mountGetIcon--#endif---- method Mount::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "g_mount_get_name" g_mount_get_name :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO CString--{- |-Gets the name of /@mount@/.--}-mountGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m T.Text-    {- ^ __Returns:__ the name for the given /@mount@/.-    The returned string should be freed with 'GI.GLib.Functions.free'-    when no longer needed. -}-mountGetName mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_name mount'-    checkUnexpectedReturnNULL "mountGetName" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-data MountGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsMount a) => O.MethodInfo MountGetNameMethodInfo a signature where-    overloadedMethod _ = mountGetName--#endif---- method Mount::get_root--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_root" g_mount_get_root :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO (Ptr Gio.File.File)--{- |-Gets the root directory on /@mount@/.--}-mountGetRoot ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File'.-     The returned object should be unreffed with-     'GI.GObject.Objects.Object.objectUnref' when no longer needed. -}-mountGetRoot mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_root mount'-    checkUnexpectedReturnNULL "mountGetRoot" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-data MountGetRootMethodInfo-instance (signature ~ (m Gio.File.File), MonadIO m, IsMount a) => O.MethodInfo MountGetRootMethodInfo a signature where-    overloadedMethod _ = mountGetRoot--#endif---- method Mount::get_sort_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GMount.", 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 "g_mount_get_sort_key" g_mount_get_sort_key :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO CString--{- |-Gets the sort key for /@mount@/, if any.--/Since: 2.32/--}-mountGetSortKey ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: A 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ Sorting key for /@mount@/ or 'Nothing' if no such key is available. -}-mountGetSortKey mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_sort_key mount'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr mount-    return maybeResult--#if ENABLE_OVERLOADING-data MountGetSortKeyMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsMount a) => O.MethodInfo MountGetSortKeyMethodInfo a signature where-    overloadedMethod _ = mountGetSortKey--#endif---- method Mount::get_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_symbolic_icon" g_mount_get_symbolic_icon :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the symbolic icon for /@mount@/.--/Since: 2.34/--}-mountGetSymbolicIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon'.-     The returned object should be unreffed with-     'GI.GObject.Objects.Object.objectUnref' when no longer needed. -}-mountGetSymbolicIcon mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_symbolic_icon mount'-    checkUnexpectedReturnNULL "mountGetSymbolicIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-data MountGetSymbolicIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsMount a) => O.MethodInfo MountGetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = mountGetSymbolicIcon--#endif---- method Mount::get_uuid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "g_mount_get_uuid" g_mount_get_uuid :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO CString--{- |-Gets the UUID for the /@mount@/. The reference is typically based on-the file system UUID for the mount in question and should be-considered an opaque string. Returns 'Nothing' if there is no UUID-available.--}-mountGetUuid ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the UUID for /@mount@/ or 'Nothing' if no UUID-    can be computed.-    The returned string should be freed with 'GI.GLib.Functions.free'-    when no longer needed. -}-mountGetUuid mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_uuid mount'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr mount-    return maybeResult--#if ENABLE_OVERLOADING-data MountGetUuidMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsMount a) => O.MethodInfo MountGetUuidMethodInfo a signature where-    overloadedMethod _ = mountGetUuid--#endif---- method Mount::get_volume--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Volume"}))--- throws : False--- Skip return : False--foreign import ccall "g_mount_get_volume" g_mount_get_volume :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO (Ptr Gio.Volume.Volume)--{- |-Gets the volume for the /@mount@/.--}-mountGetVolume ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m (Maybe Gio.Volume.Volume)-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Volume.Volume' or 'Nothing' if /@mount@/ is not-     associated with a volume.-     The returned object should be unreffed with-     'GI.GObject.Objects.Object.objectUnref' when no longer needed. -}-mountGetVolume mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_get_volume mount'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Gio.Volume.Volume) result'-        return result''-    touchManagedPtr mount-    return maybeResult--#if ENABLE_OVERLOADING-data MountGetVolumeMethodInfo-instance (signature ~ (m (Maybe Gio.Volume.Volume)), MonadIO m, IsMount a) => O.MethodInfo MountGetVolumeMethodInfo a signature where-    overloadedMethod _ = mountGetVolume--#endif---- method Mount::guess_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_rescan", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Whether to force a rescan of the content.\n    Otherwise a cached result will be used if available", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed 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 "g_mount_guess_content_type" g_mount_guess_content_type :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    CInt ->                                 -- force_rescan : TBasicType TBoolean-    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 ()--{- |-Tries to guess the type of content stored on /@mount@/. Returns one or-more textual identifiers of well-known content types (typically-prefixed with \"x-content\/\"), e.g. x-content\/image-dcf for camera-memory cards. See the-<http://www.freedesktop.org/wiki/Specifications/shared-mime-info-spec shared-mime-info>-specification for more on x-content types.--This is an asynchronous operation (see-'GI.Gio.Interfaces.Mount.mountGuessContentTypeSync' for the synchronous version), and-is finished by calling 'GI.Gio.Interfaces.Mount.mountGuessContentTypeFinish' with the-/@mount@/ and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' data returned in the /@callback@/.--/Since: 2.18/--}-mountGuessContentType ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount' -}-    -> Bool-    {- ^ /@forceRescan@/: Whether to force a rescan of the content.-    Otherwise a cached result will be used if available -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-mountGuessContentType mount forceRescan cancellable callback = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    let forceRescan' = (fromIntegral . fromEnum) forceRescan-    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-    g_mount_guess_content_type mount' forceRescan' maybeCancellable maybeCallback userData-    touchManagedPtr mount-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MountGuessContentTypeMethodInfo-instance (signature ~ (Bool -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsMount a, Gio.Cancellable.IsCancellable b) => O.MethodInfo MountGuessContentTypeMethodInfo a signature where-    overloadedMethod _ = mountGuessContentType--#endif---- method Mount::guess_content_type_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : True--- Skip return : False--foreign import ccall "g_mount_guess_content_type_finish" g_mount_guess_content_type_finish :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)--{- |-Finishes guessing content types of /@mount@/. If any errors occurred-during the operation, /@error@/ will be set to contain the errors and-'False' will be returned. In particular, you may get an-'GI.Gio.Enums.IOErrorEnumNotSupported' if the mount does not support content-guessing.--/Since: 2.18/--}-mountGuessContentTypeFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m [T.Text]-    {- ^ __Returns:__ a 'Nothing'-terminated array of content types or 'Nothing' on error.-    Caller should free this array with 'GI.GLib.Functions.strfreev' when done with it. /(Can throw 'Data.GI.Base.GError.GError')/ -}-mountGuessContentTypeFinish mount result_ = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_mount_guess_content_type_finish mount' result_'-        checkUnexpectedReturnNULL "mountGuessContentTypeFinish" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr mount-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MountGuessContentTypeFinishMethodInfo-instance (signature ~ (b -> m [T.Text]), MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo MountGuessContentTypeFinishMethodInfo a signature where-    overloadedMethod _ = mountGuessContentTypeFinish--#endif---- method Mount::guess_content_type_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_rescan", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Whether to force a rescan of the content.\n    Otherwise a cached result will be used if available", 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 "optional #GCancellable object, %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : True--- Skip return : False--foreign import ccall "g_mount_guess_content_type_sync" g_mount_guess_content_type_sync :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    CInt ->                                 -- force_rescan : TBasicType TBoolean-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)--{- |-Tries to guess the type of content stored on /@mount@/. Returns one or-more textual identifiers of well-known content types (typically-prefixed with \"x-content\/\"), e.g. x-content\/image-dcf for camera-memory cards. See the-<http://www.freedesktop.org/wiki/Specifications/shared-mime-info-spec shared-mime-info>-specification for more on x-content types.--This is an synchronous operation and as such may block doing IO;-see 'GI.Gio.Interfaces.Mount.mountGuessContentType' for the asynchronous version.--/Since: 2.18/--}-mountGuessContentTypeSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount' -}-    -> Bool-    {- ^ /@forceRescan@/: Whether to force a rescan of the content.-    Otherwise a cached result will be used if available -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m [T.Text]-    {- ^ __Returns:__ a 'Nothing'-terminated array of content types or 'Nothing' on error.-    Caller should free this array with 'GI.GLib.Functions.strfreev' when done with it. /(Can throw 'Data.GI.Base.GError.GError')/ -}-mountGuessContentTypeSync mount forceRescan cancellable = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    let forceRescan' = (fromIntegral . fromEnum) forceRescan-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_mount_guess_content_type_sync mount' forceRescan' maybeCancellable-        checkUnexpectedReturnNULL "mountGuessContentTypeSync" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr mount-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MountGuessContentTypeSyncMethodInfo-instance (signature ~ (Bool -> Maybe (b) -> m [T.Text]), MonadIO m, IsMount a, Gio.Cancellable.IsCancellable b) => O.MethodInfo MountGuessContentTypeSyncMethodInfo a signature where-    overloadedMethod _ = mountGuessContentTypeSync--#endif---- method Mount::is_shadowed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GMount.", 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 "g_mount_is_shadowed" g_mount_is_shadowed :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO CInt--{- |-Determines if /@mount@/ is shadowed. Applications or libraries should-avoid displaying /@mount@/ in the user interface if it is shadowed.--A mount is said to be shadowed if there exists one or more user-visible objects (currently 'GI.Gio.Interfaces.Mount.Mount' objects) with a root that is-inside the root of /@mount@/.--One application of shadow mounts is when exposing a single file-system that is used to address several logical volumes. In this-situation, a 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor' implementation would create two-'GI.Gio.Interfaces.Volume.Volume' objects (for example, one for the camera functionality of-the device and one for a SD card reader on the device) with-activation URIs @gphoto2:\/\/[usb:001,002]\/store1\/@-and @gphoto2:\/\/[usb:001,002]\/store2\/@. When the-underlying mount (with root-@gphoto2:\/\/[usb:001,002]\/@) is mounted, said-'GI.Gio.Objects.VolumeMonitor.VolumeMonitor' implementation would create two 'GI.Gio.Interfaces.Mount.Mount' objects-(each with their root matching the corresponding volume activation-root) that would shadow the original mount.--The proxy monitor in GVfs 2.26 and later, automatically creates and-manage shadow mounts (and shadows the underlying mount) if the-activation root on a 'GI.Gio.Interfaces.Volume.Volume' is set.--/Since: 2.20/--}-mountIsShadowed ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: A 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@mount@/ is shadowed. -}-mountIsShadowed mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_mount_is_shadowed mount'-    let result' = (/= 0) result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-data MountIsShadowedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMount a) => O.MethodInfo MountIsShadowedMethodInfo a signature where-    overloadedMethod _ = mountIsShadowed--#endif---- method Mount::remount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountMountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation or %NULL to avoid\n    user interaction.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", 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 "user data passed 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 "g_mount_remount" g_mount_remount :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountMountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Remounts a mount. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Mount.mountRemountFinish' with the /@mount@/-and @/GAsyncResults/@ data returned in the /@callback@/.--Remounting is useful when some setting affecting the operation-of the volume has been changed, as these may need a remount to-take affect. While this is semantically equivalent with unmounting-and then remounting not all backends might need to actually be-unmounted.--}-mountRemount ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> [Gio.Flags.MountMountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation' or 'Nothing' to avoid-    user interaction. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-mountRemount mount flags mountOperation cancellable callback = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_mount_remount mount' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr mount-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MountRemountMethodInfo-instance (signature ~ ([Gio.Flags.MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsMount a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo MountRemountMethodInfo a signature where-    overloadedMethod _ = mountRemount--#endif---- method Mount::remount_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "a #GAsyncResult.", 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 "g_mount_remount_finish" g_mount_remount_finish :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes remounting a mount. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--}-mountRemountFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-mountRemountFinish mount result_ = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_remount_finish mount' result_'-        touchManagedPtr mount-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MountRemountFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo MountRemountFinishMethodInfo a signature where-    overloadedMethod _ = mountRemountFinish--#endif---- method Mount::shadow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_shadow" g_mount_shadow :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO ()--{- |-Increments the shadow count on /@mount@/. Usually used by-'GI.Gio.Objects.VolumeMonitor.VolumeMonitor' implementations when creating a shadow mount for-/@mount@/, see 'GI.Gio.Interfaces.Mount.mountIsShadowed' for more information. The caller-will need to emit the 'GI.Gio.Interfaces.Mount.Mount'::@/changed/@ signal on /@mount@/ manually.--/Since: 2.20/--}-mountShadow ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: A 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m ()-mountShadow mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    g_mount_shadow mount'-    touchManagedPtr mount-    return ()--#if ENABLE_OVERLOADING-data MountShadowMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMount a) => O.MethodInfo MountShadowMethodInfo a signature where-    overloadedMethod _ = mountShadow--#endif---- method Mount::unmount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed 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 "g_mount_unmount" g_mount_unmount :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    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 ()--{-# DEPRECATED mountUnmount ["(Since version 2.22)","Use 'GI.Gio.Interfaces.Mount.mountUnmountWithOperation' instead."] #-}-{- |-Unmounts a mount. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Mount.mountUnmountFinish' with the /@mount@/-and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' data returned in the /@callback@/.--}-mountUnmount ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-mountUnmount mount flags cancellable callback = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    let flags' = gflagsToWord flags-    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-    g_mount_unmount mount' flags' maybeCancellable maybeCallback userData-    touchManagedPtr mount-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MountUnmountMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsMount a, Gio.Cancellable.IsCancellable b) => O.MethodInfo MountUnmountMethodInfo a signature where-    overloadedMethod _ = mountUnmount--#endif---- method Mount::unmount_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "a #GAsyncResult.", 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 "g_mount_unmount_finish" g_mount_unmount_finish :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED mountUnmountFinish ["(Since version 2.22)","Use 'GI.Gio.Interfaces.Mount.mountUnmountWithOperationFinish' instead."] #-}-{- |-Finishes unmounting a mount. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--}-mountUnmountFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-mountUnmountFinish mount result_ = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_unmount_finish mount' result_'-        touchManagedPtr mount-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MountUnmountFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo MountUnmountFinishMethodInfo a signature where-    overloadedMethod _ = mountUnmountFinish--#endif---- method Mount::unmount_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation or %NULL to avoid\n    user interaction.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback, or %NULL.", 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 "user data passed 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 "g_mount_unmount_with_operation" g_mount_unmount_with_operation :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Unmounts a mount. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Mount.mountUnmountWithOperationFinish' with the /@mount@/-and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' data returned in the /@callback@/.--/Since: 2.22/--}-mountUnmountWithOperation ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation' or 'Nothing' to avoid-    user interaction. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing'. -}-    -> m ()-mountUnmountWithOperation mount flags mountOperation cancellable callback = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_mount_unmount_with_operation mount' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr mount-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MountUnmountWithOperationMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsMount a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo MountUnmountWithOperationMethodInfo a signature where-    overloadedMethod _ = mountUnmountWithOperation--#endif---- method Mount::unmount_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount.", 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 "a #GAsyncResult.", 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 "g_mount_unmount_with_operation_finish" g_mount_unmount_with_operation_finish :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes unmounting a mount. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--/Since: 2.22/--}-mountUnmountWithOperationFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-mountUnmountWithOperationFinish mount result_ = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_mount_unmount_with_operation_finish mount' result_'-        touchManagedPtr mount-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MountUnmountWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsMount a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo MountUnmountWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = mountUnmountWithOperationFinish--#endif---- method Mount::unshadow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_unshadow" g_mount_unshadow :: -    Ptr Mount ->                            -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO ()--{- |-Decrements the shadow count on /@mount@/. Usually used by-'GI.Gio.Objects.VolumeMonitor.VolumeMonitor' implementations when destroying a shadow mount for-/@mount@/, see 'GI.Gio.Interfaces.Mount.mountIsShadowed' for more information. The caller-will need to emit the 'GI.Gio.Interfaces.Mount.Mount'::@/changed/@ signal on /@mount@/ manually.--/Since: 2.20/--}-mountUnshadow ::-    (B.CallStack.HasCallStack, MonadIO m, IsMount a) =>-    a-    {- ^ /@mount@/: A 'GI.Gio.Interfaces.Mount.Mount'. -}-    -> m ()-mountUnshadow mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    g_mount_unshadow mount'-    touchManagedPtr mount-    return ()--#if ENABLE_OVERLOADING-data MountUnshadowMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMount a) => O.MethodInfo MountUnshadowMethodInfo a signature where-    overloadedMethod _ = mountUnshadow--#endif--
− GI/Gio/Interfaces/Mount.hs-boot 
@@ -1,119 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Mount 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 Mount = Mount (ManagedPtr Mount)-#if ENABLE_OVERLOADING-data MountChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data MountPreUnmountSignalInfo-#endif-#if ENABLE_OVERLOADING-data MountUnmountedSignalInfo-#endif-instance GObject Mount where-class (GObject o, O.IsDescendantOf Mount o) => IsMount o-instance (GObject o, O.IsDescendantOf Mount o) => IsMount o-instance O.HasParentTypes Mount-#if ENABLE_OVERLOADING-data MountCanEjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountCanUnmountMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountEjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountEjectFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountEjectWithOperationMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountEjectWithOperationFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetDefaultLocationMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetDriveMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetRootMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetSortKeyMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetSymbolicIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetUuidMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGetVolumeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGuessContentTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGuessContentTypeFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountGuessContentTypeSyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountIsShadowedMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountRemountMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountRemountFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountShadowMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountUnmountMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountUnmountFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountUnmountWithOperationMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountUnmountWithOperationFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountUnshadowMethodInfo-#endif
− GI/Gio/Interfaces/NetworkMonitor.hs 
@@ -1,822 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' provides an easy-to-use cross-platform API-for monitoring network connectivity. On Linux, the available-implementations are based on the kernel\'s netlink interface and-on NetworkManager.--There is also an implementation for use inside Flatpak sandboxes.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.NetworkMonitor-    ( ---- * Exported types-    NetworkMonitor(..)                      ,-    noNetworkMonitor                        ,-    IsNetworkMonitor                        ,-    toNetworkMonitor                        ,--- -- * Methods--- ** canReach #method:canReach#--#if ENABLE_OVERLOADING-    NetworkMonitorCanReachMethodInfo        ,-#endif-    networkMonitorCanReach                  ,----- ** canReachAsync #method:canReachAsync#--#if ENABLE_OVERLOADING-    NetworkMonitorCanReachAsyncMethodInfo   ,-#endif-    networkMonitorCanReachAsync             ,----- ** canReachFinish #method:canReachFinish#--#if ENABLE_OVERLOADING-    NetworkMonitorCanReachFinishMethodInfo  ,-#endif-    networkMonitorCanReachFinish            ,----- ** getConnectivity #method:getConnectivity#--#if ENABLE_OVERLOADING-    NetworkMonitorGetConnectivityMethodInfo ,-#endif-    networkMonitorGetConnectivity           ,----- ** getDefault #method:getDefault#--    networkMonitorGetDefault                ,----- ** getNetworkAvailable #method:getNetworkAvailable#--#if ENABLE_OVERLOADING-    NetworkMonitorGetNetworkAvailableMethodInfo,-#endif-    networkMonitorGetNetworkAvailable       ,----- ** getNetworkMetered #method:getNetworkMetered#--#if ENABLE_OVERLOADING-    NetworkMonitorGetNetworkMeteredMethodInfo,-#endif-    networkMonitorGetNetworkMetered         ,----- -- * Properties--- ** connectivity #attr:connectivity#-{- | More detailed information about the host\'s network connectivity.-See 'GI.Gio.Interfaces.NetworkMonitor.networkMonitorGetConnectivity' and-'GI.Gio.Enums.NetworkConnectivity' for more details.--/Since: 2.44/--}-#if ENABLE_OVERLOADING-    NetworkMonitorConnectivityPropertyInfo  ,-#endif-    getNetworkMonitorConnectivity           ,-#if ENABLE_OVERLOADING-    networkMonitorConnectivity              ,-#endif----- ** networkAvailable #attr:networkAvailable#-{- | Whether the network is considered available. That is, whether the-system has a default route for at least one of IPv4 or IPv6.--Real-world networks are of course much more complicated than-this; the machine may be connected to a wifi hotspot that-requires payment before allowing traffic through, or may be-connected to a functioning router that has lost its own upstream-connectivity. Some hosts might only be accessible when a VPN is-active. Other hosts might only be accessible when the VPN is-not active. Thus, it is best to use 'GI.Gio.Interfaces.NetworkMonitor.networkMonitorCanReach'-or 'GI.Gio.Interfaces.NetworkMonitor.networkMonitorCanReachAsync' to test for reachability-on a host-by-host basis. (On the other hand, when the property is-'False', the application can reasonably expect that no remote-hosts at all are reachable, and should indicate this to the user-in its UI.)--See also 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor'::@/network-changed/@.--/Since: 2.32/--}-#if ENABLE_OVERLOADING-    NetworkMonitorNetworkAvailablePropertyInfo,-#endif-    getNetworkMonitorNetworkAvailable       ,-#if ENABLE_OVERLOADING-    networkMonitorNetworkAvailable          ,-#endif----- ** networkMetered #attr:networkMetered#-{- | Whether the network is considered metered. That is, whether the-system has traffic flowing through the default connection that is-subject to limitations set by service providers. For example, traffic-might be billed by the amount of data transmitted, or there might be a-quota on the amount of traffic per month. This is typical with tethered-connections (3G and 4G) and in such situations, bandwidth intensive-applications may wish to avoid network activity where possible if it will-cost the user money or use up their limited quota.--If more information is required about specific devices then the-system network management API should be used instead (for example,-NetworkManager or ConnMan).--If this information is not available then no networks will be-marked as metered.--See also 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor':@/network-available/@.--/Since: 2.46/--}-#if ENABLE_OVERLOADING-    NetworkMonitorNetworkMeteredPropertyInfo,-#endif-    getNetworkMonitorNetworkMetered         ,-#if ENABLE_OVERLOADING-    networkMonitorNetworkMetered            ,-#endif----- -- * Signals--- ** networkChanged #signal:networkChanged#--    C_NetworkMonitorNetworkChangedCallback  ,-    NetworkMonitorNetworkChangedCallback    ,-#if ENABLE_OVERLOADING-    NetworkMonitorNetworkChangedSignalInfo  ,-#endif-    afterNetworkMonitorNetworkChanged       ,-    genClosure_NetworkMonitorNetworkChanged ,-    mk_NetworkMonitorNetworkChangedCallback ,-    noNetworkMonitorNetworkChangedCallback  ,-    onNetworkMonitorNetworkChanged          ,-    wrap_NetworkMonitorNetworkChangedCallback,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- interface NetworkMonitor --- | Memory-managed wrapper type.-newtype NetworkMonitor = NetworkMonitor (ManagedPtr NetworkMonitor)--- | A convenience alias for `Nothing` :: `Maybe` `NetworkMonitor`.-noNetworkMonitor :: Maybe NetworkMonitor-noNetworkMonitor = Nothing---- signal NetworkMonitor::network-changed-{- |-Emitted when the network configuration changes.--/Since: 2.32/--}-type NetworkMonitorNetworkChangedCallback =-    Bool-    {- ^ /@networkAvailable@/: the current value of 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor':@/network-available/@ -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `NetworkMonitorNetworkChangedCallback`@.-noNetworkMonitorNetworkChangedCallback :: Maybe NetworkMonitorNetworkChangedCallback-noNetworkMonitorNetworkChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_NetworkMonitorNetworkChangedCallback =-    Ptr () ->                               -- object-    CInt ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_NetworkMonitorNetworkChangedCallback`.-foreign import ccall "wrapper"-    mk_NetworkMonitorNetworkChangedCallback :: C_NetworkMonitorNetworkChangedCallback -> IO (FunPtr C_NetworkMonitorNetworkChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_NetworkMonitorNetworkChanged :: MonadIO m => NetworkMonitorNetworkChangedCallback -> m (GClosure C_NetworkMonitorNetworkChangedCallback)-genClosure_NetworkMonitorNetworkChanged cb = liftIO $ do-    let cb' = wrap_NetworkMonitorNetworkChangedCallback cb-    mk_NetworkMonitorNetworkChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `NetworkMonitorNetworkChangedCallback` into a `C_NetworkMonitorNetworkChangedCallback`.-wrap_NetworkMonitorNetworkChangedCallback ::-    NetworkMonitorNetworkChangedCallback ->-    C_NetworkMonitorNetworkChangedCallback-wrap_NetworkMonitorNetworkChangedCallback _cb _ networkAvailable _ = do-    let networkAvailable' = (/= 0) networkAvailable-    _cb  networkAvailable'---{- |-Connect a signal handler for the “@network-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' networkMonitor #networkChanged callback-@--}-onNetworkMonitorNetworkChanged :: (IsNetworkMonitor a, MonadIO m) => a -> NetworkMonitorNetworkChangedCallback -> m SignalHandlerId-onNetworkMonitorNetworkChanged obj cb = liftIO $ do-    let cb' = wrap_NetworkMonitorNetworkChangedCallback cb-    cb'' <- mk_NetworkMonitorNetworkChangedCallback cb'-    connectSignalFunPtr obj "network-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@network-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' networkMonitor #networkChanged callback-@--}-afterNetworkMonitorNetworkChanged :: (IsNetworkMonitor a, MonadIO m) => a -> NetworkMonitorNetworkChangedCallback -> m SignalHandlerId-afterNetworkMonitorNetworkChanged obj cb = liftIO $ do-    let cb' = wrap_NetworkMonitorNetworkChangedCallback cb-    cb'' <- mk_NetworkMonitorNetworkChangedCallback cb'-    connectSignalFunPtr obj "network-changed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data NetworkMonitorNetworkChangedSignalInfo-instance SignalInfo NetworkMonitorNetworkChangedSignalInfo where-    type HaskellCallbackType NetworkMonitorNetworkChangedSignalInfo = NetworkMonitorNetworkChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_NetworkMonitorNetworkChangedCallback cb-        cb'' <- mk_NetworkMonitorNetworkChangedCallback cb'-        connectSignalFunPtr obj "network-changed" cb'' connectMode--type instance O.SignalList NetworkMonitor = NetworkMonitorSignalList-type NetworkMonitorSignalList = ('[ '("networkChanged", NetworkMonitorNetworkChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_network_monitor_get_type"-    c_g_network_monitor_get_type :: IO GType--instance GObject NetworkMonitor where-    gobjectType = c_g_network_monitor_get_type-    ---- | Type class for types which can be safely cast to `NetworkMonitor`, for instance with `toNetworkMonitor`.-class (GObject o, O.IsDescendantOf NetworkMonitor o) => IsNetworkMonitor o-instance (GObject o, O.IsDescendantOf NetworkMonitor o) => IsNetworkMonitor o--instance O.HasParentTypes NetworkMonitor-type instance O.ParentTypes NetworkMonitor = '[Gio.Initable.Initable, GObject.Object.Object]---- | Cast to `NetworkMonitor`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toNetworkMonitor :: (MonadIO m, IsNetworkMonitor o) => o -> m NetworkMonitor-toNetworkMonitor = liftIO . unsafeCastTo NetworkMonitor---- VVV Prop "connectivity"-   -- Type: TInterface (Name {namespace = "Gio", name = "NetworkConnectivity"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@connectivity@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkMonitor #connectivity-@--}-getNetworkMonitorConnectivity :: (MonadIO m, IsNetworkMonitor o) => o -> m Gio.Enums.NetworkConnectivity-getNetworkMonitorConnectivity obj = liftIO $ B.Properties.getObjectPropertyEnum obj "connectivity"--#if ENABLE_OVERLOADING-data NetworkMonitorConnectivityPropertyInfo-instance AttrInfo NetworkMonitorConnectivityPropertyInfo where-    type AttrAllowedOps NetworkMonitorConnectivityPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NetworkMonitorConnectivityPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NetworkMonitorConnectivityPropertyInfo = IsNetworkMonitor-    type AttrGetType NetworkMonitorConnectivityPropertyInfo = Gio.Enums.NetworkConnectivity-    type AttrLabel NetworkMonitorConnectivityPropertyInfo = "connectivity"-    type AttrOrigin NetworkMonitorConnectivityPropertyInfo = NetworkMonitor-    attrGet _ = getNetworkMonitorConnectivity-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "network-available"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@network-available@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkMonitor #networkAvailable-@--}-getNetworkMonitorNetworkAvailable :: (MonadIO m, IsNetworkMonitor o) => o -> m Bool-getNetworkMonitorNetworkAvailable obj = liftIO $ B.Properties.getObjectPropertyBool obj "network-available"--#if ENABLE_OVERLOADING-data NetworkMonitorNetworkAvailablePropertyInfo-instance AttrInfo NetworkMonitorNetworkAvailablePropertyInfo where-    type AttrAllowedOps NetworkMonitorNetworkAvailablePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = (~) ()-    type AttrBaseTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = IsNetworkMonitor-    type AttrGetType NetworkMonitorNetworkAvailablePropertyInfo = Bool-    type AttrLabel NetworkMonitorNetworkAvailablePropertyInfo = "network-available"-    type AttrOrigin NetworkMonitorNetworkAvailablePropertyInfo = NetworkMonitor-    attrGet _ = getNetworkMonitorNetworkAvailable-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "network-metered"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@network-metered@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkMonitor #networkMetered-@--}-getNetworkMonitorNetworkMetered :: (MonadIO m, IsNetworkMonitor o) => o -> m Bool-getNetworkMonitorNetworkMetered obj = liftIO $ B.Properties.getObjectPropertyBool obj "network-metered"--#if ENABLE_OVERLOADING-data NetworkMonitorNetworkMeteredPropertyInfo-instance AttrInfo NetworkMonitorNetworkMeteredPropertyInfo where-    type AttrAllowedOps NetworkMonitorNetworkMeteredPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = (~) ()-    type AttrBaseTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = IsNetworkMonitor-    type AttrGetType NetworkMonitorNetworkMeteredPropertyInfo = Bool-    type AttrLabel NetworkMonitorNetworkMeteredPropertyInfo = "network-metered"-    type AttrOrigin NetworkMonitorNetworkMeteredPropertyInfo = NetworkMonitor-    attrGet _ = getNetworkMonitorNetworkMetered-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList NetworkMonitor-type instance O.AttributeList NetworkMonitor = NetworkMonitorAttributeList-type NetworkMonitorAttributeList = ('[ '("connectivity", NetworkMonitorConnectivityPropertyInfo), '("networkAvailable", NetworkMonitorNetworkAvailablePropertyInfo), '("networkMetered", NetworkMonitorNetworkMeteredPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-networkMonitorConnectivity :: AttrLabelProxy "connectivity"-networkMonitorConnectivity = AttrLabelProxy--networkMonitorNetworkAvailable :: AttrLabelProxy "networkAvailable"-networkMonitorNetworkAvailable = AttrLabelProxy--networkMonitorNetworkMetered :: AttrLabelProxy "networkMetered"-networkMonitorNetworkMetered = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type family ResolveNetworkMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveNetworkMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveNetworkMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveNetworkMonitorMethod "canReach" o = NetworkMonitorCanReachMethodInfo-    ResolveNetworkMonitorMethod "canReachAsync" o = NetworkMonitorCanReachAsyncMethodInfo-    ResolveNetworkMonitorMethod "canReachFinish" o = NetworkMonitorCanReachFinishMethodInfo-    ResolveNetworkMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveNetworkMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveNetworkMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveNetworkMonitorMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveNetworkMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveNetworkMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveNetworkMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveNetworkMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveNetworkMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveNetworkMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveNetworkMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveNetworkMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveNetworkMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveNetworkMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveNetworkMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveNetworkMonitorMethod "getConnectivity" o = NetworkMonitorGetConnectivityMethodInfo-    ResolveNetworkMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveNetworkMonitorMethod "getNetworkAvailable" o = NetworkMonitorGetNetworkAvailableMethodInfo-    ResolveNetworkMonitorMethod "getNetworkMetered" o = NetworkMonitorGetNetworkMeteredMethodInfo-    ResolveNetworkMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveNetworkMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveNetworkMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveNetworkMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveNetworkMonitorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveNetworkMonitorMethod t NetworkMonitor, O.MethodInfo info NetworkMonitor p) => OL.IsLabel t (NetworkMonitor -> 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 NetworkMonitor::can_reach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "NetworkMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkMonitor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_network_monitor_can_reach" g_network_monitor_can_reach :: -    Ptr NetworkMonitor ->                   -- monitor : TInterface (Name {namespace = "Gio", name = "NetworkMonitor"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- connectable : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Attempts to determine whether or not the host pointed to by-/@connectable@/ can be reached, without actually trying to connect to-it.--This may return 'True' even when 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor':@/network-available/@-is 'False', if, for example, /@monitor@/ can determine that-/@connectable@/ refers to a host on a local network.--If /@monitor@/ believes that an attempt to connect to /@connectable@/-will succeed, it will return 'True'. Otherwise, it will return-'False' and set /@error@/ to an appropriate error (such as-'GI.Gio.Enums.IOErrorEnumHostUnreachable').--Note that although this does not attempt to connect to-/@connectable@/, it may still block for a brief period of time (eg,-trying to do multicast DNS on the local network), so if you do not-want to block, you should use 'GI.Gio.Interfaces.NetworkMonitor.networkMonitorCanReachAsync'.--/Since: 2.32/--}-networkMonitorCanReach ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@monitor@/: a 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' -}-    -> b-    {- ^ /@connectable@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-networkMonitorCanReach monitor connectable cancellable = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    connectable' <- unsafeManagedPtrCastPtr connectable-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_network_monitor_can_reach monitor' connectable' maybeCancellable-        touchManagedPtr monitor-        touchManagedPtr connectable-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data NetworkMonitorCanReachMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsNetworkMonitor a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) => O.MethodInfo NetworkMonitorCanReachMethodInfo a signature where-    overloadedMethod _ = networkMonitorCanReach--#endif---- method NetworkMonitor::can_reach_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "NetworkMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkMonitor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable", 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 "a #GAsyncReadyCallback to call when the\n    request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_network_monitor_can_reach_async" g_network_monitor_can_reach_async :: -    Ptr NetworkMonitor ->                   -- monitor : TInterface (Name {namespace = "Gio", name = "NetworkMonitor"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- connectable : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    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 attempts to determine whether or not the host-pointed to by /@connectable@/ can be reached, without actually-trying to connect to it.--For more details, see 'GI.Gio.Interfaces.NetworkMonitor.networkMonitorCanReach'.--When the operation is finished, /@callback@/ will be called.-You can then call 'GI.Gio.Interfaces.NetworkMonitor.networkMonitorCanReachFinish'-to get the result of the operation.--}-networkMonitorCanReachAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@monitor@/: a 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' -}-    -> b-    {- ^ /@connectable@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the-    request is satisfied -}-    -> m ()-networkMonitorCanReachAsync monitor connectable cancellable callback = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    connectable' <- unsafeManagedPtrCastPtr connectable-    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-    g_network_monitor_can_reach_async monitor' connectable' maybeCancellable maybeCallback userData-    touchManagedPtr monitor-    touchManagedPtr connectable-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data NetworkMonitorCanReachAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsNetworkMonitor a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) => O.MethodInfo NetworkMonitorCanReachAsyncMethodInfo a signature where-    overloadedMethod _ = networkMonitorCanReachAsync--#endif---- method NetworkMonitor::can_reach_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "NetworkMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkMonitor", 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 "a #GAsyncResult", 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 "g_network_monitor_can_reach_finish" g_network_monitor_can_reach_finish :: -    Ptr NetworkMonitor ->                   -- monitor : TInterface (Name {namespace = "Gio", name = "NetworkMonitor"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an async network connectivity test.-See 'GI.Gio.Interfaces.NetworkMonitor.networkMonitorCanReachAsync'.--}-networkMonitorCanReachFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@monitor@/: a 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-networkMonitorCanReachFinish monitor result_ = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_network_monitor_can_reach_finish monitor' result_'-        touchManagedPtr monitor-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data NetworkMonitorCanReachFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsNetworkMonitor a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo NetworkMonitorCanReachFinishMethodInfo a signature where-    overloadedMethod _ = networkMonitorCanReachFinish--#endif---- method NetworkMonitor::get_connectivity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "NetworkMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GNetworkMonitor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "NetworkConnectivity"}))--- throws : False--- Skip return : False--foreign import ccall "g_network_monitor_get_connectivity" g_network_monitor_get_connectivity :: -    Ptr NetworkMonitor ->                   -- monitor : TInterface (Name {namespace = "Gio", name = "NetworkMonitor"})-    IO CUInt--{- |-Gets a more detailed networking state than-'GI.Gio.Interfaces.NetworkMonitor.networkMonitorGetNetworkAvailable'.--If 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor':@/network-available/@ is 'False', then the-connectivity state will be 'GI.Gio.Enums.NetworkConnectivityLocal'.--If 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor':@/network-available/@ is 'True', then the-connectivity state will be 'GI.Gio.Enums.NetworkConnectivityFull' (if there-is full Internet connectivity), 'GI.Gio.Enums.NetworkConnectivityLimited' (if-the host has a default route, but appears to be unable to actually-reach the full Internet), or 'GI.Gio.Enums.NetworkConnectivityPortal' (if the-host is trapped behind a \"captive portal\" that requires some sort-of login or acknowledgement before allowing full Internet access).--Note that in the case of 'GI.Gio.Enums.NetworkConnectivityLimited' and-'GI.Gio.Enums.NetworkConnectivityPortal', it is possible that some sites are-reachable but others are not. In this case, applications can-attempt to connect to remote servers, but should gracefully fall-back to their \"offline\" behavior if the connection attempt fails.--/Since: 2.44/--}-networkMonitorGetConnectivity ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a) =>-    a-    {- ^ /@monitor@/: the 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' -}-    -> m Gio.Enums.NetworkConnectivity-    {- ^ __Returns:__ the network connectivity state -}-networkMonitorGetConnectivity monitor = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    result <- g_network_monitor_get_connectivity monitor'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr monitor-    return result'--#if ENABLE_OVERLOADING-data NetworkMonitorGetConnectivityMethodInfo-instance (signature ~ (m Gio.Enums.NetworkConnectivity), MonadIO m, IsNetworkMonitor a) => O.MethodInfo NetworkMonitorGetConnectivityMethodInfo a signature where-    overloadedMethod _ = networkMonitorGetConnectivity--#endif---- method NetworkMonitor::get_network_available--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "NetworkMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GNetworkMonitor", 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 "g_network_monitor_get_network_available" g_network_monitor_get_network_available :: -    Ptr NetworkMonitor ->                   -- monitor : TInterface (Name {namespace = "Gio", name = "NetworkMonitor"})-    IO CInt--{- |-Checks if the network is available. \"Available\" here means that the-system has a default route available for at least one of IPv4 or-IPv6. It does not necessarily imply that the public Internet is-reachable. See 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor':@/network-available/@ for more details.--/Since: 2.32/--}-networkMonitorGetNetworkAvailable ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a) =>-    a-    {- ^ /@monitor@/: the 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' -}-    -> m Bool-    {- ^ __Returns:__ whether the network is available -}-networkMonitorGetNetworkAvailable monitor = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    result <- g_network_monitor_get_network_available monitor'-    let result' = (/= 0) result-    touchManagedPtr monitor-    return result'--#if ENABLE_OVERLOADING-data NetworkMonitorGetNetworkAvailableMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsNetworkMonitor a) => O.MethodInfo NetworkMonitorGetNetworkAvailableMethodInfo a signature where-    overloadedMethod _ = networkMonitorGetNetworkAvailable--#endif---- method NetworkMonitor::get_network_metered--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "NetworkMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GNetworkMonitor", 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 "g_network_monitor_get_network_metered" g_network_monitor_get_network_metered :: -    Ptr NetworkMonitor ->                   -- monitor : TInterface (Name {namespace = "Gio", name = "NetworkMonitor"})-    IO CInt--{- |-Checks if the network is metered.-See 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor':@/network-metered/@ for more details.--/Since: 2.46/--}-networkMonitorGetNetworkMetered ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkMonitor a) =>-    a-    {- ^ /@monitor@/: the 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' -}-    -> m Bool-    {- ^ __Returns:__ whether the connection is metered -}-networkMonitorGetNetworkMetered monitor = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    result <- g_network_monitor_get_network_metered monitor'-    let result' = (/= 0) result-    touchManagedPtr monitor-    return result'--#if ENABLE_OVERLOADING-data NetworkMonitorGetNetworkMeteredMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsNetworkMonitor a) => O.MethodInfo NetworkMonitorGetNetworkMeteredMethodInfo a signature where-    overloadedMethod _ = networkMonitorGetNetworkMetered--#endif---- method NetworkMonitor::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "NetworkMonitor"}))--- throws : False--- Skip return : False--foreign import ccall "g_network_monitor_get_default" g_network_monitor_get_default :: -    IO (Ptr NetworkMonitor)--{- |-Gets the default 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' for the system.--/Since: 2.32/--}-networkMonitorGetDefault ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m NetworkMonitor-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.NetworkMonitor.NetworkMonitor' -}-networkMonitorGetDefault  = liftIO $ do-    result <- g_network_monitor_get_default-    checkUnexpectedReturnNULL "networkMonitorGetDefault" result-    result' <- (newObject NetworkMonitor) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/NetworkMonitor.hs-boot 
@@ -1,59 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.NetworkMonitor 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 NetworkMonitor = NetworkMonitor (ManagedPtr NetworkMonitor)-#if ENABLE_OVERLOADING-data NetworkMonitorNetworkChangedSignalInfo-#endif-instance GObject NetworkMonitor where-class (GObject o, O.IsDescendantOf NetworkMonitor o) => IsNetworkMonitor o-instance (GObject o, O.IsDescendantOf NetworkMonitor o) => IsNetworkMonitor o-instance O.HasParentTypes NetworkMonitor-#if ENABLE_OVERLOADING-data NetworkMonitorConnectivityPropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkMonitorNetworkAvailablePropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkMonitorNetworkMeteredPropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkMonitorCanReachMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkMonitorCanReachAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkMonitorCanReachFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkMonitorGetConnectivityMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkMonitorGetNetworkAvailableMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkMonitorGetNetworkMeteredMethodInfo-#endif
− GI/Gio/Interfaces/PollableInputStream.hs 
@@ -1,405 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' is implemented by @/GInputStreams/@ that-can be polled for readiness to read. This can be used when-interfacing with a non-GIO API that expects-UNIX-file-descriptor-style asynchronous I\/O rather than GIO-style.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.PollableInputStream-    ( ---- * Exported types-    PollableInputStream(..)                 ,-    noPollableInputStream                   ,-    IsPollableInputStream                   ,-    toPollableInputStream                   ,--- -- * Methods--- ** canPoll #method:canPoll#--#if ENABLE_OVERLOADING-    PollableInputStreamCanPollMethodInfo    ,-#endif-    pollableInputStreamCanPoll              ,----- ** createSource #method:createSource#--#if ENABLE_OVERLOADING-    PollableInputStreamCreateSourceMethodInfo,-#endif-    pollableInputStreamCreateSource         ,----- ** isReadable #method:isReadable#--#if ENABLE_OVERLOADING-    PollableInputStreamIsReadableMethodInfo ,-#endif-    pollableInputStreamIsReadable           ,----- ** readNonblocking #method:readNonblocking#--#if ENABLE_OVERLOADING-    PollableInputStreamReadNonblockingMethodInfo,-#endif-    pollableInputStreamReadNonblocking      ,-----    ) 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.Source as GLib.Source-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- interface PollableInputStream --- | Memory-managed wrapper type.-newtype PollableInputStream = PollableInputStream (ManagedPtr PollableInputStream)--- | A convenience alias for `Nothing` :: `Maybe` `PollableInputStream`.-noPollableInputStream :: Maybe PollableInputStream-noPollableInputStream = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList PollableInputStream = PollableInputStreamSignalList-type PollableInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_pollable_input_stream_get_type"-    c_g_pollable_input_stream_get_type :: IO GType--instance GObject PollableInputStream where-    gobjectType = c_g_pollable_input_stream_get_type-    ---- | Type class for types which can be safely cast to `PollableInputStream`, for instance with `toPollableInputStream`.-class (GObject o, O.IsDescendantOf PollableInputStream o) => IsPollableInputStream o-instance (GObject o, O.IsDescendantOf PollableInputStream o) => IsPollableInputStream o--instance O.HasParentTypes PollableInputStream-type instance O.ParentTypes PollableInputStream = '[Gio.InputStream.InputStream, GObject.Object.Object]---- | Cast to `PollableInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toPollableInputStream :: (MonadIO m, IsPollableInputStream o) => o -> m PollableInputStream-toPollableInputStream = liftIO . unsafeCastTo PollableInputStream--#if ENABLE_OVERLOADING-instance O.HasAttributeList PollableInputStream-type instance O.AttributeList PollableInputStream = PollableInputStreamAttributeList-type PollableInputStreamAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolvePollableInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolvePollableInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolvePollableInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolvePollableInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo-    ResolvePollableInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolvePollableInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolvePollableInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolvePollableInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolvePollableInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo-    ResolvePollableInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolvePollableInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolvePollableInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolvePollableInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolvePollableInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolvePollableInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolvePollableInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo-    ResolvePollableInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolvePollableInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolvePollableInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolvePollableInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolvePollableInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolvePollableInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolvePollableInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolvePollableInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolvePollableInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolvePollableInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolvePollableInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolvePollableInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo-    ResolvePollableInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolvePollableInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolvePollableInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolvePollableInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolvePollableInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolvePollableInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolvePollableInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolvePollableInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolvePollableInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolvePollableInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolvePollableInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolvePollableInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolvePollableInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolvePollableInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolvePollableInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolvePollableInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolvePollableInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolvePollableInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolvePollableInputStreamMethod t PollableInputStream, O.MethodInfo info PollableInputStream p) => OL.IsLabel t (PollableInputStream -> 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 PollableInputStream::can_poll--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableInputStream.", 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 "g_pollable_input_stream_can_poll" g_pollable_input_stream_can_poll :: -    Ptr PollableInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "PollableInputStream"})-    IO CInt--{- |-Checks if /@stream@/ is actually pollable. Some classes may implement-'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' but have only certain instances of that class-be pollable. If this method returns 'False', then the behavior of-other 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' methods is undefined.--For any given stream, the value returned by this method is constant;-a stream cannot switch from pollable to non-pollable or vice versa.--/Since: 2.28/--}-pollableInputStreamCanPoll ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ is pollable, 'False' if not. -}-pollableInputStreamCanPoll stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_pollable_input_stream_can_poll stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data PollableInputStreamCanPollMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsPollableInputStream a) => O.MethodInfo PollableInputStreamCanPollMethodInfo a signature where-    overloadedMethod _ = pollableInputStreamCanPoll--#endif---- method PollableInputStream::create_source--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableInputStream.", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Source"}))--- throws : False--- Skip return : False--foreign import ccall "g_pollable_input_stream_create_source" g_pollable_input_stream_create_source :: -    Ptr PollableInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "PollableInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO (Ptr GLib.Source.Source)--{- |-Creates a 'GI.GLib.Structs.Source.Source' that triggers when /@stream@/ can be read, or-/@cancellable@/ is triggered or an error occurs. The callback on the-source is of the 'GI.Gio.Callbacks.PollableSourceFunc' type.--As with 'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamIsReadable', it is possible that-the stream may not actually be readable even after the source-triggers, so you should use 'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamReadNonblocking'-rather than 'GI.Gio.Objects.InputStream.inputStreamRead' from the callback.--/Since: 2.28/--}-pollableInputStreamCreateSource ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m GLib.Source.Source-    {- ^ __Returns:__ a new 'GI.GLib.Structs.Source.Source' -}-pollableInputStreamCreateSource stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_pollable_input_stream_create_source stream' maybeCancellable-    checkUnexpectedReturnNULL "pollableInputStreamCreateSource" result-    result' <- (wrapBoxed GLib.Source.Source) result-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data PollableInputStreamCreateSourceMethodInfo-instance (signature ~ (Maybe (b) -> m GLib.Source.Source), MonadIO m, IsPollableInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PollableInputStreamCreateSourceMethodInfo a signature where-    overloadedMethod _ = pollableInputStreamCreateSource--#endif---- method PollableInputStream::is_readable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableInputStream.", 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 "g_pollable_input_stream_is_readable" g_pollable_input_stream_is_readable :: -    Ptr PollableInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "PollableInputStream"})-    IO CInt--{- |-Checks if /@stream@/ can be read.--Note that some stream types may not be able to implement this 100%-reliably, and it is possible that a call to 'GI.Gio.Objects.InputStream.inputStreamRead'-after this returns 'True' would still block. To guarantee-non-blocking behavior, you should always use-'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamReadNonblocking', which will return a-'GI.Gio.Enums.IOErrorEnumWouldBlock' error rather than blocking.--/Since: 2.28/--}-pollableInputStreamIsReadable ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ is readable, 'False' if not. If an error-  has occurred on /@stream@/, this will result in-  'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamIsReadable' returning 'True', and the-  next attempt to read will return the error. -}-pollableInputStreamIsReadable stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_pollable_input_stream_is_readable stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data PollableInputStreamIsReadableMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsPollableInputStream a) => O.MethodInfo PollableInputStreamIsReadableMethodInfo a signature where-    overloadedMethod _ = pollableInputStreamIsReadable--#endif---- method PollableInputStream::read_nonblocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a buffer to\n    read data into (which should be at least @count bytes long).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to read", 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}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to read", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_pollable_input_stream_read_nonblocking" g_pollable_input_stream_read_nonblocking :: -    Ptr PollableInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "PollableInputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Attempts to read up to /@count@/ bytes from /@stream@/ into /@buffer@/, as-with 'GI.Gio.Objects.InputStream.inputStreamRead'. If /@stream@/ is not currently readable,-this will immediately return 'GI.Gio.Enums.IOErrorEnumWouldBlock', and you can-use 'GI.Gio.Interfaces.PollableInputStream.pollableInputStreamCreateSource' to create a 'GI.GLib.Structs.Source.Source'-that will be triggered when /@stream@/ is readable.--Note that since this method never blocks, you cannot actually-use /@cancellable@/ to cancel it. However, it will return an error-if /@cancellable@/ has already been cancelled when you call, which-may happen if you call this method after a source triggers due-to having been cancelled.--}-pollableInputStreamReadNonblocking ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableInputStream.PollableInputStream' -}-    -> Maybe (ByteString)-    {- ^ /@buffer@/: a buffer to-    read data into (which should be at least /@count@/ bytes long). -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m Int64-    {- ^ __Returns:__ the number of bytes read, or -1 on error (including-  'GI.Gio.Enums.IOErrorEnumWouldBlock'). /(Can throw 'Data.GI.Base.GError.GError')/ -}-pollableInputStreamReadNonblocking stream buffer cancellable = liftIO $ do-    let count = case buffer of-            Nothing -> 0-            Just jBuffer -> fromIntegral $ B.length jBuffer-    stream' <- unsafeManagedPtrCastPtr stream-    maybeBuffer <- case buffer of-        Nothing -> return nullPtr-        Just jBuffer -> do-            jBuffer' <- packByteString jBuffer-            return jBuffer'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_pollable_input_stream_read_nonblocking stream' maybeBuffer count maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem maybeBuffer-        return result-     ) (do-        freeMem maybeBuffer-     )--#if ENABLE_OVERLOADING-data PollableInputStreamReadNonblockingMethodInfo-instance (signature ~ (Maybe (ByteString) -> Maybe (b) -> m Int64), MonadIO m, IsPollableInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PollableInputStreamReadNonblockingMethodInfo a signature where-    overloadedMethod _ = pollableInputStreamReadNonblocking--#endif--
− GI/Gio/Interfaces/PollableInputStream.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.PollableInputStream 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 PollableInputStream = PollableInputStream (ManagedPtr PollableInputStream)-instance GObject PollableInputStream where-class (GObject o, O.IsDescendantOf PollableInputStream o) => IsPollableInputStream o-instance (GObject o, O.IsDescendantOf PollableInputStream o) => IsPollableInputStream o-instance O.HasParentTypes PollableInputStream-#if ENABLE_OVERLOADING-data PollableInputStreamCanPollMethodInfo-#endif-#if ENABLE_OVERLOADING-data PollableInputStreamCreateSourceMethodInfo-#endif-#if ENABLE_OVERLOADING-data PollableInputStreamIsReadableMethodInfo-#endif-#if ENABLE_OVERLOADING-data PollableInputStreamReadNonblockingMethodInfo-#endif
− GI/Gio/Interfaces/PollableOutputStream.hs 
@@ -1,513 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' is implemented by @/GOutputStreams/@ that-can be polled for readiness to write. This can be used when-interfacing with a non-GIO API that expects-UNIX-file-descriptor-style asynchronous I\/O rather than GIO-style.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.PollableOutputStream-    ( ---- * Exported types-    PollableOutputStream(..)                ,-    noPollableOutputStream                  ,-    IsPollableOutputStream                  ,-    toPollableOutputStream                  ,--- -- * Methods--- ** canPoll #method:canPoll#--#if ENABLE_OVERLOADING-    PollableOutputStreamCanPollMethodInfo   ,-#endif-    pollableOutputStreamCanPoll             ,----- ** createSource #method:createSource#--#if ENABLE_OVERLOADING-    PollableOutputStreamCreateSourceMethodInfo,-#endif-    pollableOutputStreamCreateSource        ,----- ** isWritable #method:isWritable#--#if ENABLE_OVERLOADING-    PollableOutputStreamIsWritableMethodInfo,-#endif-    pollableOutputStreamIsWritable          ,----- ** writeNonblocking #method:writeNonblocking#--#if ENABLE_OVERLOADING-    PollableOutputStreamWriteNonblockingMethodInfo,-#endif-    pollableOutputStreamWriteNonblocking    ,----- ** writevNonblocking #method:writevNonblocking#--#if ENABLE_OVERLOADING-    PollableOutputStreamWritevNonblockingMethodInfo,-#endif-    pollableOutputStreamWritevNonblocking   ,-----    ) 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.Source as GLib.Source-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream-import {-# SOURCE #-} qualified GI.Gio.Structs.OutputVector as Gio.OutputVector---- interface PollableOutputStream --- | Memory-managed wrapper type.-newtype PollableOutputStream = PollableOutputStream (ManagedPtr PollableOutputStream)--- | A convenience alias for `Nothing` :: `Maybe` `PollableOutputStream`.-noPollableOutputStream :: Maybe PollableOutputStream-noPollableOutputStream = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList PollableOutputStream = PollableOutputStreamSignalList-type PollableOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_pollable_output_stream_get_type"-    c_g_pollable_output_stream_get_type :: IO GType--instance GObject PollableOutputStream where-    gobjectType = c_g_pollable_output_stream_get_type-    ---- | Type class for types which can be safely cast to `PollableOutputStream`, for instance with `toPollableOutputStream`.-class (GObject o, O.IsDescendantOf PollableOutputStream o) => IsPollableOutputStream o-instance (GObject o, O.IsDescendantOf PollableOutputStream o) => IsPollableOutputStream o--instance O.HasParentTypes PollableOutputStream-type instance O.ParentTypes PollableOutputStream = '[Gio.OutputStream.OutputStream, GObject.Object.Object]---- | Cast to `PollableOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toPollableOutputStream :: (MonadIO m, IsPollableOutputStream o) => o -> m PollableOutputStream-toPollableOutputStream = liftIO . unsafeCastTo PollableOutputStream--#if ENABLE_OVERLOADING-instance O.HasAttributeList PollableOutputStream-type instance O.AttributeList PollableOutputStream = PollableOutputStreamAttributeList-type PollableOutputStreamAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolvePollableOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolvePollableOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolvePollableOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolvePollableOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo-    ResolvePollableOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo-    ResolvePollableOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo-    ResolvePollableOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo-    ResolvePollableOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo-    ResolvePollableOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo-    ResolvePollableOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo-    ResolvePollableOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo-    ResolvePollableOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo-    ResolvePollableOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolvePollableOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolvePollableOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolvePollableOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo-    ResolvePollableOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo-    ResolvePollableOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo-    ResolvePollableOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolvePollableOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo-    ResolvePollableOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolvePollableOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolvePollableOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolvePollableOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolvePollableOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolvePollableOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo-    ResolvePollableOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo-    ResolvePollableOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo-    ResolvePollableOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolvePollableOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolvePollableOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolvePollableOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolvePollableOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolvePollableOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo-    ResolvePollableOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo-    ResolvePollableOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo-    ResolvePollableOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo-    ResolvePollableOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo-    ResolvePollableOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo-    ResolvePollableOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo-    ResolvePollableOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo-    ResolvePollableOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo-    ResolvePollableOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo-    ResolvePollableOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo-    ResolvePollableOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo-    ResolvePollableOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo-    ResolvePollableOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo-    ResolvePollableOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo-    ResolvePollableOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo-    ResolvePollableOutputStreamMethod "writevNonblocking" o = PollableOutputStreamWritevNonblockingMethodInfo-    ResolvePollableOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolvePollableOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolvePollableOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolvePollableOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolvePollableOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo-    ResolvePollableOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolvePollableOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolvePollableOutputStreamMethod t PollableOutputStream, O.MethodInfo info PollableOutputStream p) => OL.IsLabel t (PollableOutputStream -> 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 PollableOutputStream::can_poll--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableOutputStream.", 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 "g_pollable_output_stream_can_poll" g_pollable_output_stream_can_poll :: -    Ptr PollableOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "PollableOutputStream"})-    IO CInt--{- |-Checks if /@stream@/ is actually pollable. Some classes may implement-'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' but have only certain instances of that-class be pollable. If this method returns 'False', then the behavior-of other 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' methods is undefined.--For any given stream, the value returned by this method is constant;-a stream cannot switch from pollable to non-pollable or vice versa.--/Since: 2.28/--}-pollableOutputStreamCanPoll ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ is pollable, 'False' if not. -}-pollableOutputStreamCanPoll stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_pollable_output_stream_can_poll stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data PollableOutputStreamCanPollMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsPollableOutputStream a) => O.MethodInfo PollableOutputStreamCanPollMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamCanPoll--#endif---- method PollableOutputStream::create_source--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableOutputStream.", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Source"}))--- throws : False--- Skip return : False--foreign import ccall "g_pollable_output_stream_create_source" g_pollable_output_stream_create_source :: -    Ptr PollableOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "PollableOutputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO (Ptr GLib.Source.Source)--{- |-Creates a 'GI.GLib.Structs.Source.Source' that triggers when /@stream@/ can be written, or-/@cancellable@/ is triggered or an error occurs. The callback on the-source is of the 'GI.Gio.Callbacks.PollableSourceFunc' type.--As with 'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamIsWritable', it is possible that-the stream may not actually be writable even after the source-triggers, so you should use 'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamWriteNonblocking'-rather than 'GI.Gio.Objects.OutputStream.outputStreamWrite' from the callback.--/Since: 2.28/--}-pollableOutputStreamCreateSource ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m GLib.Source.Source-    {- ^ __Returns:__ a new 'GI.GLib.Structs.Source.Source' -}-pollableOutputStreamCreateSource stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- g_pollable_output_stream_create_source stream' maybeCancellable-    checkUnexpectedReturnNULL "pollableOutputStreamCreateSource" result-    result' <- (wrapBoxed GLib.Source.Source) result-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data PollableOutputStreamCreateSourceMethodInfo-instance (signature ~ (Maybe (b) -> m GLib.Source.Source), MonadIO m, IsPollableOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PollableOutputStreamCreateSourceMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamCreateSource--#endif---- method PollableOutputStream::is_writable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableOutputStream.", 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 "g_pollable_output_stream_is_writable" g_pollable_output_stream_is_writable :: -    Ptr PollableOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "PollableOutputStream"})-    IO CInt--{- |-Checks if /@stream@/ can be written.--Note that some stream types may not be able to implement this 100%-reliably, and it is possible that a call to 'GI.Gio.Objects.OutputStream.outputStreamWrite'-after this returns 'True' would still block. To guarantee-non-blocking behavior, you should always use-'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamWriteNonblocking', which will return a-'GI.Gio.Enums.IOErrorEnumWouldBlock' error rather than blocking.--/Since: 2.28/--}-pollableOutputStreamIsWritable ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ is writable, 'False' if not. If an error-  has occurred on /@stream@/, this will result in-  'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamIsWritable' returning 'True', and the-  next attempt to write will return the error. -}-pollableOutputStreamIsWritable stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_pollable_output_stream_is_writable stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data PollableOutputStreamIsWritableMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsPollableOutputStream a) => O.MethodInfo PollableOutputStreamIsWritableMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamIsWritable--#endif---- method PollableOutputStream::write_nonblocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a buffer to write\n    data from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to write", 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}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_pollable_output_stream_write_nonblocking" g_pollable_output_stream_write_nonblocking :: -    Ptr PollableOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "PollableOutputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Attempts to write up to /@count@/ bytes from /@buffer@/ to /@stream@/, as-with 'GI.Gio.Objects.OutputStream.outputStreamWrite'. If /@stream@/ is not currently writable,-this will immediately return 'GI.Gio.Enums.IOErrorEnumWouldBlock', and you can-use 'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamCreateSource' to create a 'GI.GLib.Structs.Source.Source'-that will be triggered when /@stream@/ is writable.--Note that since this method never blocks, you cannot actually-use /@cancellable@/ to cancel it. However, it will return an error-if /@cancellable@/ has already been cancelled when you call, which-may happen if you call this method after a source triggers due-to having been cancelled.--Also note that if 'GI.Gio.Enums.IOErrorEnumWouldBlock' is returned some underlying-transports like D\/TLS require that you re-send the same /@buffer@/ and-/@count@/ in the next write call.--}-pollableOutputStreamWriteNonblocking ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' -}-    -> Maybe (ByteString)-    {- ^ /@buffer@/: a buffer to write-    data from -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m Int64-    {- ^ __Returns:__ the number of bytes written, or -1 on error (including-  'GI.Gio.Enums.IOErrorEnumWouldBlock'). /(Can throw 'Data.GI.Base.GError.GError')/ -}-pollableOutputStreamWriteNonblocking stream buffer cancellable = liftIO $ do-    let count = case buffer of-            Nothing -> 0-            Just jBuffer -> fromIntegral $ B.length jBuffer-    stream' <- unsafeManagedPtrCastPtr stream-    maybeBuffer <- case buffer of-        Nothing -> return nullPtr-        Just jBuffer -> do-            jBuffer' <- packByteString jBuffer-            return jBuffer'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_pollable_output_stream_write_nonblocking stream' maybeBuffer count maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem maybeBuffer-        return result-     ) (do-        freeMem maybeBuffer-     )--#if ENABLE_OVERLOADING-data PollableOutputStreamWriteNonblockingMethodInfo-instance (signature ~ (Maybe (ByteString) -> Maybe (b) -> m Int64), MonadIO m, IsPollableOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PollableOutputStreamWriteNonblockingMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamWriteNonblocking--#endif---- method PollableOutputStream::writev_nonblocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "PollableOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPollableOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer containing the #GOutputVectors to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that were\n    written to the 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 "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "PollableReturn"}))--- throws : True--- Skip return : False--foreign import ccall "g_pollable_output_stream_writev_nonblocking" g_pollable_output_stream_writev_nonblocking :: -    Ptr PollableOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "PollableOutputStream"})-    Ptr Gio.OutputVector.OutputVector ->    -- vectors : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"}))-    Word64 ->                               -- n_vectors : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Attempts to write the bytes contained in the /@nVectors@/ /@vectors@/ to /@stream@/,-as with 'GI.Gio.Objects.OutputStream.outputStreamWritev'. If /@stream@/ is not currently writable,-this will immediately return %/@gPOLLABLERETURNWOULDBLOCK@/, and you can-use 'GI.Gio.Interfaces.PollableOutputStream.pollableOutputStreamCreateSource' to create a 'GI.GLib.Structs.Source.Source'-that will be triggered when /@stream@/ is writable. /@error@/ will *not* be-set in that case.--Note that since this method never blocks, you cannot actually-use /@cancellable@/ to cancel it. However, it will return an error-if /@cancellable@/ has already been cancelled when you call, which-may happen if you call this method after a source triggers due-to having been cancelled.--Also note that if 'GI.Gio.Enums.PollableReturnWouldBlock' is returned some underlying-transports like D\/TLS require that you re-send the same /@vectors@/ and-/@nVectors@/ in the next write call.--/Since: 2.60/--}-pollableOutputStreamWritevNonblocking ::-    (B.CallStack.HasCallStack, MonadIO m, IsPollableOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream' -}-    -> [Gio.OutputVector.OutputVector]-    {- ^ /@vectors@/: the buffer containing the @/GOutputVectors/@ to write. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ((Gio.Enums.PollableReturn, Word64))-    {- ^ __Returns:__ %/@gPOLLABLERETURNOK@/ on success, 'GI.Gio.Enums.PollableReturnWouldBlock'-if the stream is not currently writable (and /@error@/ is *not* set), or-'GI.Gio.Enums.PollableReturnFailed' if there was an error in which case /@error@/ will-be set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-pollableOutputStreamWritevNonblocking stream vectors cancellable = liftIO $ do-    let nVectors = fromIntegral $ length vectors-    stream' <- unsafeManagedPtrCastPtr stream-    vectors' <- mapM unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    bytesWritten <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_pollable_output_stream_writev_nonblocking stream' vectors'' nVectors bytesWritten maybeCancellable-        let result' = (toEnum . fromIntegral) result-        bytesWritten' <- peek bytesWritten-        touchManagedPtr stream-        mapM_ touchManagedPtr vectors-        whenJust cancellable touchManagedPtr-        freeMem vectors''-        freeMem bytesWritten-        return (result', bytesWritten')-     ) (do-        freeMem vectors''-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data PollableOutputStreamWritevNonblockingMethodInfo-instance (signature ~ ([Gio.OutputVector.OutputVector] -> Maybe (b) -> m ((Gio.Enums.PollableReturn, Word64))), MonadIO m, IsPollableOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PollableOutputStreamWritevNonblockingMethodInfo a signature where-    overloadedMethod _ = pollableOutputStreamWritevNonblocking--#endif--
− GI/Gio/Interfaces/PollableOutputStream.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.PollableOutputStream 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 PollableOutputStream = PollableOutputStream (ManagedPtr PollableOutputStream)-instance GObject PollableOutputStream where-class (GObject o, O.IsDescendantOf PollableOutputStream o) => IsPollableOutputStream o-instance (GObject o, O.IsDescendantOf PollableOutputStream o) => IsPollableOutputStream o-instance O.HasParentTypes PollableOutputStream-#if ENABLE_OVERLOADING-data PollableOutputStreamCanPollMethodInfo-#endif-#if ENABLE_OVERLOADING-data PollableOutputStreamCreateSourceMethodInfo-#endif-#if ENABLE_OVERLOADING-data PollableOutputStreamIsWritableMethodInfo-#endif-#if ENABLE_OVERLOADING-data PollableOutputStreamWriteNonblockingMethodInfo-#endif-#if ENABLE_OVERLOADING-data PollableOutputStreamWritevNonblockingMethodInfo-#endif
− GI/Gio/Interfaces/Proxy.hs 
@@ -1,438 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Interfaces.Proxy.Proxy' handles connecting to a remote host via a given type of-proxy server. It is implemented by the \'gio-proxy\' extension point.-The extensions are named after their proxy protocol name. As an-example, a SOCKS5 proxy implementation can be retrieved with the-name \'socks5\' using the function-'GI.Gio.Structs.IOExtensionPoint.iOExtensionPointGetExtensionByName'.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Proxy-    ( ---- * Exported types-    Proxy(..)                               ,-    noProxy                                 ,-    IsProxy                                 ,-    toProxy                                 ,--- -- * Methods--- ** connect #method:connect#--#if ENABLE_OVERLOADING-    ProxyConnectMethodInfo                  ,-#endif-    proxyConnect                            ,----- ** connectAsync #method:connectAsync#--#if ENABLE_OVERLOADING-    ProxyConnectAsyncMethodInfo             ,-#endif-    proxyConnectAsync                       ,----- ** connectFinish #method:connectFinish#--#if ENABLE_OVERLOADING-    ProxyConnectFinishMethodInfo            ,-#endif-    proxyConnectFinish                      ,----- ** getDefaultForProtocol #method:getDefaultForProtocol#--    proxyGetDefaultForProtocol              ,----- ** supportsHostname #method:supportsHostname#--#if ENABLE_OVERLOADING-    ProxySupportsHostnameMethodInfo         ,-#endif-    proxySupportsHostname                   ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.ProxyAddress as Gio.ProxyAddress---- interface Proxy --- | Memory-managed wrapper type.-newtype Proxy = Proxy (ManagedPtr Proxy)--- | A convenience alias for `Nothing` :: `Maybe` `Proxy`.-noProxy :: Maybe Proxy-noProxy = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList Proxy = ProxySignalList-type ProxySignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_proxy_get_type"-    c_g_proxy_get_type :: IO GType--instance GObject Proxy where-    gobjectType = c_g_proxy_get_type-    ---- | Type class for types which can be safely cast to `Proxy`, for instance with `toProxy`.-class (GObject o, O.IsDescendantOf Proxy o) => IsProxy o-instance (GObject o, O.IsDescendantOf Proxy o) => IsProxy o--instance O.HasParentTypes Proxy-type instance O.ParentTypes Proxy = '[GObject.Object.Object]---- | Cast to `Proxy`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toProxy :: (MonadIO m, IsProxy o) => o -> m Proxy-toProxy = liftIO . unsafeCastTo Proxy--#if ENABLE_OVERLOADING-instance O.HasAttributeList Proxy-type instance O.AttributeList Proxy = ProxyAttributeList-type ProxyAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveProxyMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveProxyMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveProxyMethod "connect" o = ProxyConnectMethodInfo-    ResolveProxyMethod "connectAsync" o = ProxyConnectAsyncMethodInfo-    ResolveProxyMethod "connectFinish" o = ProxyConnectFinishMethodInfo-    ResolveProxyMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveProxyMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveProxyMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveProxyMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveProxyMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveProxyMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveProxyMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveProxyMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveProxyMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveProxyMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveProxyMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveProxyMethod "supportsHostname" o = ProxySupportsHostnameMethodInfo-    ResolveProxyMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveProxyMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveProxyMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveProxyMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveProxyMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveProxyMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveProxyMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveProxyMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveProxyMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveProxyMethod t Proxy, O.MethodInfo info Proxy p) => OL.IsLabel t (Proxy -> 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 Proxy::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "Proxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_address", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", 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", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_proxy_connect" g_proxy_connect :: -    Ptr Proxy ->                            -- proxy : TInterface (Name {namespace = "Gio", name = "Proxy"})-    Ptr Gio.IOStream.IOStream ->            -- connection : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.ProxyAddress.ProxyAddress ->    -- proxy_address : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.IOStream.IOStream)--{- |-Given /@connection@/ to communicate with a proxy (eg, a-'GI.Gio.Objects.SocketConnection.SocketConnection' that is connected to the proxy server), this-does the necessary handshake to connect to /@proxyAddress@/, and if-required, wraps the 'GI.Gio.Objects.IOStream.IOStream' to handle proxy payload.--/Since: 2.26/--}-proxyConnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxy a, Gio.IOStream.IsIOStream b, Gio.ProxyAddress.IsProxyAddress c, Gio.Cancellable.IsCancellable d) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Interfaces.Proxy.Proxy' -}-    -> b-    {- ^ /@connection@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> c-    {- ^ /@proxyAddress@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> Maybe (d)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m Gio.IOStream.IOStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.IOStream.IOStream' that will replace /@connection@/. This might-              be the same as /@connection@/, in which case a reference-              will be added. /(Can throw 'Data.GI.Base.GError.GError')/ -}-proxyConnect proxy connection proxyAddress cancellable = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    connection' <- unsafeManagedPtrCastPtr connection-    proxyAddress' <- unsafeManagedPtrCastPtr proxyAddress-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_proxy_connect proxy' connection' proxyAddress' maybeCancellable-        checkUnexpectedReturnNULL "proxyConnect" result-        result' <- (wrapObject Gio.IOStream.IOStream) result-        touchManagedPtr proxy-        touchManagedPtr connection-        touchManagedPtr proxyAddress-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ProxyConnectMethodInfo-instance (signature ~ (b -> c -> Maybe (d) -> m Gio.IOStream.IOStream), MonadIO m, IsProxy a, Gio.IOStream.IsIOStream b, Gio.ProxyAddress.IsProxyAddress c, Gio.Cancellable.IsCancellable d) => O.MethodInfo ProxyConnectMethodInfo a signature where-    overloadedMethod _ = proxyConnect--#endif---- method Proxy::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "Proxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_address", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", 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", 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 "a #GAsyncReadyCallback", 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 "callback data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_proxy_connect_async" g_proxy_connect_async :: -    Ptr Proxy ->                            -- proxy : TInterface (Name {namespace = "Gio", name = "Proxy"})-    Ptr Gio.IOStream.IOStream ->            -- connection : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.ProxyAddress.ProxyAddress ->    -- proxy_address : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    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 ()--{- |-Asynchronous version of 'GI.Gio.Interfaces.Proxy.proxyConnect'.--/Since: 2.26/--}-proxyConnectAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxy a, Gio.IOStream.IsIOStream b, Gio.ProxyAddress.IsProxyAddress c, Gio.Cancellable.IsCancellable d) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Interfaces.Proxy.Proxy' -}-    -> b-    {- ^ /@connection@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> c-    {- ^ /@proxyAddress@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> Maybe (d)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-proxyConnectAsync proxy connection proxyAddress cancellable callback = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    connection' <- unsafeManagedPtrCastPtr connection-    proxyAddress' <- unsafeManagedPtrCastPtr proxyAddress-    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-    g_proxy_connect_async proxy' connection' proxyAddress' maybeCancellable maybeCallback userData-    touchManagedPtr proxy-    touchManagedPtr connection-    touchManagedPtr proxyAddress-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data ProxyConnectAsyncMethodInfo-instance (signature ~ (b -> c -> Maybe (d) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsProxy a, Gio.IOStream.IsIOStream b, Gio.ProxyAddress.IsProxyAddress c, Gio.Cancellable.IsCancellable d) => O.MethodInfo ProxyConnectAsyncMethodInfo a signature where-    overloadedMethod _ = proxyConnectAsync--#endif---- method Proxy::connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "Proxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxy", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_proxy_connect_finish" g_proxy_connect_finish :: -    Ptr Proxy ->                            -- proxy : TInterface (Name {namespace = "Gio", name = "Proxy"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.IOStream.IOStream)--{- |-See 'GI.Gio.Interfaces.Proxy.proxyConnect'.--/Since: 2.26/--}-proxyConnectFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxy a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Interfaces.Proxy.Proxy' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.IOStream.IOStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.IOStream.IOStream'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-proxyConnectFinish proxy result_ = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_proxy_connect_finish proxy' result_'-        checkUnexpectedReturnNULL "proxyConnectFinish" result-        result' <- (wrapObject Gio.IOStream.IOStream) result-        touchManagedPtr proxy-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ProxyConnectFinishMethodInfo-instance (signature ~ (b -> m Gio.IOStream.IOStream), MonadIO m, IsProxy a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo ProxyConnectFinishMethodInfo a signature where-    overloadedMethod _ = proxyConnectFinish--#endif---- method Proxy::supports_hostname--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "Proxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxy", 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 "g_proxy_supports_hostname" g_proxy_supports_hostname :: -    Ptr Proxy ->                            -- proxy : TInterface (Name {namespace = "Gio", name = "Proxy"})-    IO CInt--{- |-Some proxy protocols expect to be passed a hostname, which they-will resolve to an IP address themselves. Others, like SOCKS4, do-not allow this. This function will return 'False' if /@proxy@/ is-implementing such a protocol. When 'False' is returned, the caller-should resolve the destination hostname first, and then pass a-'GI.Gio.Objects.ProxyAddress.ProxyAddress' containing the stringified IP address to-'GI.Gio.Interfaces.Proxy.proxyConnect' or 'GI.Gio.Interfaces.Proxy.proxyConnectAsync'.--/Since: 2.26/--}-proxySupportsHostname ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxy a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Interfaces.Proxy.Proxy' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if hostname resolution is supported. -}-proxySupportsHostname proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_proxy_supports_hostname proxy'-    let result' = (/= 0) result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data ProxySupportsHostnameMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsProxy a) => O.MethodInfo ProxySupportsHostnameMethodInfo a signature where-    overloadedMethod _ = proxySupportsHostname--#endif---- method Proxy::get_default_for_protocol--- method type : MemberFunction--- Args : [Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the proxy protocol name (e.g. http, socks, etc)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Proxy"}))--- throws : False--- Skip return : False--foreign import ccall "g_proxy_get_default_for_protocol" g_proxy_get_default_for_protocol :: -    CString ->                              -- protocol : TBasicType TUTF8-    IO (Ptr Proxy)--{- |-Lookup \"gio-proxy\" extension point for a proxy implementation that supports-specified protocol.--/Since: 2.26/--}-proxyGetDefaultForProtocol ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@protocol@/: the proxy protocol name (e.g. http, socks, etc) -}-    -> m Proxy-    {- ^ __Returns:__ return a 'GI.Gio.Interfaces.Proxy.Proxy' or NULL if protocol-              is not supported. -}-proxyGetDefaultForProtocol protocol = liftIO $ do-    protocol' <- textToCString protocol-    result <- g_proxy_get_default_for_protocol protocol'-    checkUnexpectedReturnNULL "proxyGetDefaultForProtocol" result-    result' <- (wrapObject Proxy) result-    freeMem protocol'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/Proxy.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Proxy 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 Proxy = Proxy (ManagedPtr Proxy)-instance GObject Proxy where-class (GObject o, O.IsDescendantOf Proxy o) => IsProxy o-instance (GObject o, O.IsDescendantOf Proxy o) => IsProxy o-instance O.HasParentTypes Proxy-#if ENABLE_OVERLOADING-data ProxyConnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyConnectAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyConnectFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxySupportsHostnameMethodInfo-#endif
− GI/Gio/Interfaces/ProxyResolver.hs 
@@ -1,436 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' provides synchronous and asynchronous network proxy-resolution. 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' is used within 'GI.Gio.Objects.SocketClient.SocketClient' through-the method 'GI.Gio.Interfaces.SocketConnectable.socketConnectableProxyEnumerate'.--Implementations of 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' based on libproxy and GNOME settings can-be found in glib-networking. GIO comes with an implementation for use inside-Flatpak portals.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.ProxyResolver-    ( ---- * Exported types-    ProxyResolver(..)                       ,-    noProxyResolver                         ,-    IsProxyResolver                         ,-    toProxyResolver                         ,--- -- * Methods--- ** getDefault #method:getDefault#--    proxyResolverGetDefault                 ,----- ** isSupported #method:isSupported#--#if ENABLE_OVERLOADING-    ProxyResolverIsSupportedMethodInfo      ,-#endif-    proxyResolverIsSupported                ,----- ** lookup #method:lookup#--#if ENABLE_OVERLOADING-    ProxyResolverLookupMethodInfo           ,-#endif-    proxyResolverLookup                     ,----- ** lookupAsync #method:lookupAsync#--#if ENABLE_OVERLOADING-    ProxyResolverLookupAsyncMethodInfo      ,-#endif-    proxyResolverLookupAsync                ,----- ** lookupFinish #method:lookupFinish#--#if ENABLE_OVERLOADING-    ProxyResolverLookupFinishMethodInfo     ,-#endif-    proxyResolverLookupFinish               ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- interface ProxyResolver --- | Memory-managed wrapper type.-newtype ProxyResolver = ProxyResolver (ManagedPtr ProxyResolver)--- | A convenience alias for `Nothing` :: `Maybe` `ProxyResolver`.-noProxyResolver :: Maybe ProxyResolver-noProxyResolver = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList ProxyResolver = ProxyResolverSignalList-type ProxyResolverSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_proxy_resolver_get_type"-    c_g_proxy_resolver_get_type :: IO GType--instance GObject ProxyResolver where-    gobjectType = c_g_proxy_resolver_get_type-    ---- | Type class for types which can be safely cast to `ProxyResolver`, for instance with `toProxyResolver`.-class (GObject o, O.IsDescendantOf ProxyResolver o) => IsProxyResolver o-instance (GObject o, O.IsDescendantOf ProxyResolver o) => IsProxyResolver o--instance O.HasParentTypes ProxyResolver-type instance O.ParentTypes ProxyResolver = '[GObject.Object.Object]---- | Cast to `ProxyResolver`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toProxyResolver :: (MonadIO m, IsProxyResolver o) => o -> m ProxyResolver-toProxyResolver = liftIO . unsafeCastTo ProxyResolver--#if ENABLE_OVERLOADING-instance O.HasAttributeList ProxyResolver-type instance O.AttributeList ProxyResolver = ProxyResolverAttributeList-type ProxyResolverAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveProxyResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyResolverMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveProxyResolverMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveProxyResolverMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveProxyResolverMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveProxyResolverMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveProxyResolverMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveProxyResolverMethod "isSupported" o = ProxyResolverIsSupportedMethodInfo-    ResolveProxyResolverMethod "lookup" o = ProxyResolverLookupMethodInfo-    ResolveProxyResolverMethod "lookupAsync" o = ProxyResolverLookupAsyncMethodInfo-    ResolveProxyResolverMethod "lookupFinish" o = ProxyResolverLookupFinishMethodInfo-    ResolveProxyResolverMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveProxyResolverMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveProxyResolverMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveProxyResolverMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveProxyResolverMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveProxyResolverMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveProxyResolverMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveProxyResolverMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveProxyResolverMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveProxyResolverMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveProxyResolverMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveProxyResolverMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveProxyResolverMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveProxyResolverMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveProxyResolverMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveProxyResolverMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveProxyResolverMethod t ProxyResolver, O.MethodInfo info ProxyResolver p) => OL.IsLabel t (ProxyResolver -> 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 ProxyResolver::is_supported--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyResolver", 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 "g_proxy_resolver_is_supported" g_proxy_resolver_is_supported :: -    Ptr ProxyResolver ->                    -- resolver : TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-    IO CInt--{- |-Checks if /@resolver@/ can be used on this system. (This is used-internally; 'GI.Gio.Functions.proxyResolverGetDefault' will only return a proxy-resolver that returns 'True' for this method.)--/Since: 2.26/--}-proxyResolverIsSupported ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyResolver a) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@resolver@/ is supported. -}-proxyResolverIsSupported resolver = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    result <- g_proxy_resolver_is_supported resolver'-    let result' = (/= 0) result-    touchManagedPtr resolver-    return result'--#if ENABLE_OVERLOADING-data ProxyResolverIsSupportedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsProxyResolver a) => O.MethodInfo ProxyResolverIsSupportedMethodInfo a signature where-    overloadedMethod _ = proxyResolverIsSupported--#endif---- method ProxyResolver::lookup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI representing the destination to connect to", 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}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : True--- Skip return : False--foreign import ccall "g_proxy_resolver_lookup" g_proxy_resolver_lookup :: -    Ptr ProxyResolver ->                    -- resolver : TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-    CString ->                              -- uri : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)--{- |-Looks into the system proxy configuration to determine what proxy,-if any, to use to connect to /@uri@/. The returned proxy URIs are of-the form @\<protocol>:\/\/[user[:password]\@]host:port@ or-@direct:\/\/@, where \<protocol> could be http, rtsp, socks-or other proxying protocol.--If you don\'t know what network protocol is being used on the-socket, you should use @none@ as the URI protocol.-In this case, the resolver might still return a generic proxy type-(such as SOCKS), but would not return protocol-specific proxy types-(such as http).--@direct:\/\/@ is used when no proxy is needed.-Direct connection should not be attempted unless it is part of the-returned array of proxies.--/Since: 2.26/--}-proxyResolverLookup ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' -}-    -> T.Text-    {- ^ /@uri@/: a URI representing the destination to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m [T.Text]-    {- ^ __Returns:__ A-              NULL-terminated array of proxy URIs. Must be freed-              with 'GI.GLib.Functions.strfreev'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-proxyResolverLookup resolver uri cancellable = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    uri' <- textToCString uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_proxy_resolver_lookup resolver' uri' maybeCancellable-        checkUnexpectedReturnNULL "proxyResolverLookup" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr resolver-        whenJust cancellable touchManagedPtr-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )--#if ENABLE_OVERLOADING-data ProxyResolverLookupMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m [T.Text]), MonadIO m, IsProxyResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ProxyResolverLookupMethodInfo a signature where-    overloadedMethod _ = proxyResolverLookup--#endif---- method ProxyResolver::lookup_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI representing the destination to connect to", 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 "callback to call after resolution completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, 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 "g_proxy_resolver_lookup_async" g_proxy_resolver_lookup_async :: -    Ptr ProxyResolver ->                    -- resolver : TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-    CString ->                              -- uri : TBasicType TUTF8-    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 ()--{- |-Asynchronous lookup of proxy. See 'GI.Gio.Interfaces.ProxyResolver.proxyResolverLookup' for more-details.--/Since: 2.26/--}-proxyResolverLookupAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' -}-    -> T.Text-    {- ^ /@uri@/: a URI representing the destination to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call after resolution completes -}-    -> m ()-proxyResolverLookupAsync resolver uri cancellable callback = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    uri' <- textToCString uri-    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-    g_proxy_resolver_lookup_async resolver' uri' maybeCancellable maybeCallback userData-    touchManagedPtr resolver-    whenJust cancellable touchManagedPtr-    freeMem uri'-    return ()--#if ENABLE_OVERLOADING-data ProxyResolverLookupAsyncMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsProxyResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ProxyResolverLookupAsyncMethodInfo a signature where-    overloadedMethod _ = proxyResolverLookupAsync--#endif---- method ProxyResolver::lookup_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyResolver", 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 "the result passed to your #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : True--- Skip return : False--foreign import ccall "g_proxy_resolver_lookup_finish" g_proxy_resolver_lookup_finish :: -    Ptr ProxyResolver ->                    -- resolver : TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)--{- |-Call this function to obtain the array of proxy URIs when-'GI.Gio.Interfaces.ProxyResolver.proxyResolverLookupAsync' is complete. See-'GI.Gio.Interfaces.ProxyResolver.proxyResolverLookup' for more details.--/Since: 2.26/--}-proxyResolverLookupFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyResolver a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' -}-    -> b-    {- ^ /@result@/: the result passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m [T.Text]-    {- ^ __Returns:__ A-              NULL-terminated array of proxy URIs. Must be freed-              with 'GI.GLib.Functions.strfreev'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-proxyResolverLookupFinish resolver result_ = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_proxy_resolver_lookup_finish resolver' result_'-        checkUnexpectedReturnNULL "proxyResolverLookupFinish" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr resolver-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ProxyResolverLookupFinishMethodInfo-instance (signature ~ (b -> m [T.Text]), MonadIO m, IsProxyResolver a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo ProxyResolverLookupFinishMethodInfo a signature where-    overloadedMethod _ = proxyResolverLookupFinish--#endif---- method ProxyResolver::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ProxyResolver"}))--- throws : False--- Skip return : False--foreign import ccall "g_proxy_resolver_get_default" g_proxy_resolver_get_default :: -    IO (Ptr ProxyResolver)--{- |-Gets the default 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' for the system.--/Since: 2.26/--}-proxyResolverGetDefault ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m ProxyResolver-    {- ^ __Returns:__ the default 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver'. -}-proxyResolverGetDefault  = liftIO $ do-    result <- g_proxy_resolver_get_default-    checkUnexpectedReturnNULL "proxyResolverGetDefault" result-    result' <- (newObject ProxyResolver) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/ProxyResolver.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.ProxyResolver 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 ProxyResolver = ProxyResolver (ManagedPtr ProxyResolver)-instance GObject ProxyResolver where-class (GObject o, O.IsDescendantOf ProxyResolver o) => IsProxyResolver o-instance (GObject o, O.IsDescendantOf ProxyResolver o) => IsProxyResolver o-instance O.HasParentTypes ProxyResolver-#if ENABLE_OVERLOADING-data ProxyResolverIsSupportedMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyResolverLookupMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyResolverLookupAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyResolverLookupFinishMethodInfo-#endif
− GI/Gio/Interfaces/RemoteActionGroup.hs 
@@ -1,300 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The GRemoteActionGroup interface is implemented by 'GI.Gio.Interfaces.ActionGroup.ActionGroup'-instances that either transmit action invocations to other processes-or receive action invocations in the local process from other-processes.--The interface has @_full@ variants of the two-methods on 'GI.Gio.Interfaces.ActionGroup.ActionGroup' used to activate actions:-'GI.Gio.Interfaces.ActionGroup.actionGroupActivateAction' and-'GI.Gio.Interfaces.ActionGroup.actionGroupChangeActionState'. These variants allow a-\"platform data\" 'GVariant' to be specified: a dictionary providing-context for the action invocation (for example: timestamps, startup-notification IDs, etc).--'GI.Gio.Objects.DBusActionGroup.DBusActionGroup' implements 'GI.Gio.Interfaces.RemoteActionGroup.RemoteActionGroup'.  This provides a-mechanism to send platform data for action invocations over D-Bus.--Additionally, 'GI.Gio.Objects.DBusConnection.dBusConnectionExportActionGroup' will check if-the exported 'GI.Gio.Interfaces.ActionGroup.ActionGroup' implements 'GI.Gio.Interfaces.RemoteActionGroup.RemoteActionGroup' and use the-@_full@ variants of the calls if available.  This-provides a mechanism by which to receive platform data for action-invocations that arrive by way of D-Bus.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.RemoteActionGroup-    ( ---- * Exported types-    RemoteActionGroup(..)                   ,-    noRemoteActionGroup                     ,-    IsRemoteActionGroup                     ,-    toRemoteActionGroup                     ,--- -- * Methods--- ** activateActionFull #method:activateActionFull#--#if ENABLE_OVERLOADING-    RemoteActionGroupActivateActionFullMethodInfo,-#endif-    remoteActionGroupActivateActionFull     ,----- ** changeActionStateFull #method:changeActionStateFull#--#if ENABLE_OVERLOADING-    RemoteActionGroupChangeActionStateFullMethodInfo,-#endif-    remoteActionGroupChangeActionStateFull  ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup---- interface RemoteActionGroup --- | Memory-managed wrapper type.-newtype RemoteActionGroup = RemoteActionGroup (ManagedPtr RemoteActionGroup)--- | A convenience alias for `Nothing` :: `Maybe` `RemoteActionGroup`.-noRemoteActionGroup :: Maybe RemoteActionGroup-noRemoteActionGroup = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList RemoteActionGroup = RemoteActionGroupSignalList-type RemoteActionGroupSignalList = ('[ '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_remote_action_group_get_type"-    c_g_remote_action_group_get_type :: IO GType--instance GObject RemoteActionGroup where-    gobjectType = c_g_remote_action_group_get_type-    ---- | Type class for types which can be safely cast to `RemoteActionGroup`, for instance with `toRemoteActionGroup`.-class (GObject o, O.IsDescendantOf RemoteActionGroup o) => IsRemoteActionGroup o-instance (GObject o, O.IsDescendantOf RemoteActionGroup o) => IsRemoteActionGroup o--instance O.HasParentTypes RemoteActionGroup-type instance O.ParentTypes RemoteActionGroup = '[Gio.ActionGroup.ActionGroup, GObject.Object.Object]---- | Cast to `RemoteActionGroup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toRemoteActionGroup :: (MonadIO m, IsRemoteActionGroup o) => o -> m RemoteActionGroup-toRemoteActionGroup = liftIO . unsafeCastTo RemoteActionGroup--#if ENABLE_OVERLOADING-instance O.HasAttributeList RemoteActionGroup-type instance O.AttributeList RemoteActionGroup = RemoteActionGroupAttributeList-type RemoteActionGroupAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveRemoteActionGroupMethod (t :: Symbol) (o :: *) :: * where-    ResolveRemoteActionGroupMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo-    ResolveRemoteActionGroupMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo-    ResolveRemoteActionGroupMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo-    ResolveRemoteActionGroupMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo-    ResolveRemoteActionGroupMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo-    ResolveRemoteActionGroupMethod "activateActionFull" o = RemoteActionGroupActivateActionFullMethodInfo-    ResolveRemoteActionGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveRemoteActionGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveRemoteActionGroupMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo-    ResolveRemoteActionGroupMethod "changeActionStateFull" o = RemoteActionGroupChangeActionStateFullMethodInfo-    ResolveRemoteActionGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveRemoteActionGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveRemoteActionGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveRemoteActionGroupMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo-    ResolveRemoteActionGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveRemoteActionGroupMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo-    ResolveRemoteActionGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveRemoteActionGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveRemoteActionGroupMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo-    ResolveRemoteActionGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveRemoteActionGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveRemoteActionGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveRemoteActionGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveRemoteActionGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveRemoteActionGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveRemoteActionGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveRemoteActionGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveRemoteActionGroupMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo-    ResolveRemoteActionGroupMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo-    ResolveRemoteActionGroupMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo-    ResolveRemoteActionGroupMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo-    ResolveRemoteActionGroupMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo-    ResolveRemoteActionGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveRemoteActionGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveRemoteActionGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveRemoteActionGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveRemoteActionGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveRemoteActionGroupMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveRemoteActionGroupMethod t RemoteActionGroup, O.MethodInfo info RemoteActionGroup p) => OL.IsLabel t (RemoteActionGroup -> 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 RemoteActionGroup::activate_action_full--- method type : OrdinaryMethod--- Args : [Arg {argCName = "remote", argType = TInterface (Name {namespace = "Gio", name = "RemoteActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to activate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the optional parameter to the activation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the platform data to send", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_remote_action_group_activate_action_full" g_remote_action_group_activate_action_full :: -    Ptr RemoteActionGroup ->                -- remote : TInterface (Name {namespace = "Gio", name = "RemoteActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameter : TVariant-    Ptr GVariant ->                         -- platform_data : TVariant-    IO ()--{- |-Activates the remote action.--This is the same as 'GI.Gio.Interfaces.ActionGroup.actionGroupActivateAction' except that it-allows for provision of \"platform data\" to be sent along with the-activation request.  This typically contains details such as the user-interaction timestamp or startup notification information.--/@platformData@/ must be non-'Nothing' and must have the type-@/G_VARIANT_TYPE_VARDICT/@.  If it is floating, it will be consumed.--/Since: 2.32/--}-remoteActionGroupActivateActionFull ::-    (B.CallStack.HasCallStack, MonadIO m, IsRemoteActionGroup a) =>-    a-    {- ^ /@remote@/: a 'GI.Gio.Objects.DBusActionGroup.DBusActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to activate -}-    -> Maybe (GVariant)-    {- ^ /@parameter@/: the optional parameter to the activation -}-    -> GVariant-    {- ^ /@platformData@/: the platform data to send -}-    -> m ()-remoteActionGroupActivateActionFull remote actionName parameter platformData = liftIO $ do-    remote' <- unsafeManagedPtrCastPtr remote-    actionName' <- textToCString actionName-    maybeParameter <- case parameter of-        Nothing -> return nullPtr-        Just jParameter -> do-            jParameter' <- unsafeManagedPtrGetPtr jParameter-            return jParameter'-    platformData' <- unsafeManagedPtrGetPtr platformData-    g_remote_action_group_activate_action_full remote' actionName' maybeParameter platformData'-    touchManagedPtr remote-    whenJust parameter touchManagedPtr-    touchManagedPtr platformData-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data RemoteActionGroupActivateActionFullMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> GVariant -> m ()), MonadIO m, IsRemoteActionGroup a) => O.MethodInfo RemoteActionGroupActivateActionFullMethodInfo a signature where-    overloadedMethod _ = remoteActionGroupActivateActionFull--#endif---- method RemoteActionGroup::change_action_state_full--- method type : OrdinaryMethod--- Args : [Arg {argCName = "remote", argType = TInterface (Name {namespace = "Gio", name = "RemoteActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GRemoteActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to change the state of", 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 new requested value for the state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the platform data to send", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_remote_action_group_change_action_state_full" g_remote_action_group_change_action_state_full :: -    Ptr RemoteActionGroup ->                -- remote : TInterface (Name {namespace = "Gio", name = "RemoteActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    Ptr GVariant ->                         -- platform_data : TVariant-    IO ()--{- |-Changes the state of a remote action.--This is the same as 'GI.Gio.Interfaces.ActionGroup.actionGroupChangeActionState' except that-it allows for provision of \"platform data\" to be sent along with the-state change request.  This typically contains details such as the-user interaction timestamp or startup notification information.--/@platformData@/ must be non-'Nothing' and must have the type-@/G_VARIANT_TYPE_VARDICT/@.  If it is floating, it will be consumed.--/Since: 2.32/--}-remoteActionGroupChangeActionStateFull ::-    (B.CallStack.HasCallStack, MonadIO m, IsRemoteActionGroup a) =>-    a-    {- ^ /@remote@/: a 'GI.Gio.Interfaces.RemoteActionGroup.RemoteActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action to change the state of -}-    -> GVariant-    {- ^ /@value@/: the new requested value for the state -}-    -> GVariant-    {- ^ /@platformData@/: the platform data to send -}-    -> m ()-remoteActionGroupChangeActionStateFull remote actionName value platformData = liftIO $ do-    remote' <- unsafeManagedPtrCastPtr remote-    actionName' <- textToCString actionName-    value' <- unsafeManagedPtrGetPtr value-    platformData' <- unsafeManagedPtrGetPtr platformData-    g_remote_action_group_change_action_state_full remote' actionName' value' platformData'-    touchManagedPtr remote-    touchManagedPtr value-    touchManagedPtr platformData-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data RemoteActionGroupChangeActionStateFullMethodInfo-instance (signature ~ (T.Text -> GVariant -> GVariant -> m ()), MonadIO m, IsRemoteActionGroup a) => O.MethodInfo RemoteActionGroupChangeActionStateFullMethodInfo a signature where-    overloadedMethod _ = remoteActionGroupChangeActionStateFull--#endif--
− GI/Gio/Interfaces/RemoteActionGroup.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.RemoteActionGroup 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 RemoteActionGroup = RemoteActionGroup (ManagedPtr RemoteActionGroup)-instance GObject RemoteActionGroup where-class (GObject o, O.IsDescendantOf RemoteActionGroup o) => IsRemoteActionGroup o-instance (GObject o, O.IsDescendantOf RemoteActionGroup o) => IsRemoteActionGroup o-instance O.HasParentTypes RemoteActionGroup-#if ENABLE_OVERLOADING-data RemoteActionGroupActivateActionFullMethodInfo-#endif-#if ENABLE_OVERLOADING-data RemoteActionGroupChangeActionStateFullMethodInfo-#endif
− GI/Gio/Interfaces/Seekable.hs 
@@ -1,417 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.Seekable.Seekable' is implemented by streams (implementations of-'GI.Gio.Objects.InputStream.InputStream' or 'GI.Gio.Objects.OutputStream.OutputStream') that support seeking.--Seekable streams largely fall into two categories: resizable and-fixed-size.--'GI.Gio.Interfaces.Seekable.Seekable' on fixed-sized streams is approximately the same as POSIX-@/lseek()/@ on a block device (for example: attempting to seek past the-end of the device is an error).  Fixed streams typically cannot be-truncated.--'GI.Gio.Interfaces.Seekable.Seekable' on resizable streams is approximately the same as POSIX-@/lseek()/@ on a normal file.  Seeking past the end and writing data will-usually cause the stream to resize by introducing zero bytes.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Seekable-    ( ---- * Exported types-    Seekable(..)                            ,-    noSeekable                              ,-    IsSeekable                              ,-    toSeekable                              ,--- -- * Methods--- ** canSeek #method:canSeek#--#if ENABLE_OVERLOADING-    SeekableCanSeekMethodInfo               ,-#endif-    seekableCanSeek                         ,----- ** canTruncate #method:canTruncate#--#if ENABLE_OVERLOADING-    SeekableCanTruncateMethodInfo           ,-#endif-    seekableCanTruncate                     ,----- ** seek #method:seek#--#if ENABLE_OVERLOADING-    SeekableSeekMethodInfo                  ,-#endif-    seekableSeek                            ,----- ** tell #method:tell#--#if ENABLE_OVERLOADING-    SeekableTellMethodInfo                  ,-#endif-    seekableTell                            ,----- ** truncate #method:truncate#--#if ENABLE_OVERLOADING-    SeekableTruncateMethodInfo              ,-#endif-    seekableTruncate                        ,-----    ) 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.Enums as GLib.Enums-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- interface Seekable --- | Memory-managed wrapper type.-newtype Seekable = Seekable (ManagedPtr Seekable)--- | A convenience alias for `Nothing` :: `Maybe` `Seekable`.-noSeekable :: Maybe Seekable-noSeekable = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList Seekable = SeekableSignalList-type SeekableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_seekable_get_type"-    c_g_seekable_get_type :: IO GType--instance GObject Seekable where-    gobjectType = c_g_seekable_get_type-    ---- | Type class for types which can be safely cast to `Seekable`, for instance with `toSeekable`.-class (GObject o, O.IsDescendantOf Seekable o) => IsSeekable o-instance (GObject o, O.IsDescendantOf Seekable o) => IsSeekable o--instance O.HasParentTypes Seekable-type instance O.ParentTypes Seekable = '[GObject.Object.Object]---- | Cast to `Seekable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSeekable :: (MonadIO m, IsSeekable o) => o -> m Seekable-toSeekable = liftIO . unsafeCastTo Seekable--#if ENABLE_OVERLOADING-instance O.HasAttributeList Seekable-type instance O.AttributeList Seekable = SeekableAttributeList-type SeekableAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveSeekableMethod (t :: Symbol) (o :: *) :: * where-    ResolveSeekableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSeekableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSeekableMethod "canSeek" o = SeekableCanSeekMethodInfo-    ResolveSeekableMethod "canTruncate" o = SeekableCanTruncateMethodInfo-    ResolveSeekableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSeekableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSeekableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSeekableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSeekableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSeekableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSeekableMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSeekableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSeekableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSeekableMethod "seek" o = SeekableSeekMethodInfo-    ResolveSeekableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSeekableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSeekableMethod "tell" o = SeekableTellMethodInfo-    ResolveSeekableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSeekableMethod "truncate" o = SeekableTruncateMethodInfo-    ResolveSeekableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSeekableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSeekableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSeekableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSeekableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSeekableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSeekableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSeekableMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSeekableMethod t Seekable, O.MethodInfo info Seekable p) => OL.IsLabel t (Seekable -> 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 Seekable::can_seek--- method type : OrdinaryMethod--- Args : [Arg {argCName = "seekable", argType = TInterface (Name {namespace = "Gio", name = "Seekable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSeekable.", 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 "g_seekable_can_seek" g_seekable_can_seek :: -    Ptr Seekable ->                         -- seekable : TInterface (Name {namespace = "Gio", name = "Seekable"})-    IO CInt--{- |-Tests if the stream supports the 'GI.Gio.Structs.SeekableIface.SeekableIface'.--}-seekableCanSeek ::-    (B.CallStack.HasCallStack, MonadIO m, IsSeekable a) =>-    a-    {- ^ /@seekable@/: a 'GI.Gio.Interfaces.Seekable.Seekable'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@seekable@/ can be seeked. 'False' otherwise. -}-seekableCanSeek seekable = liftIO $ do-    seekable' <- unsafeManagedPtrCastPtr seekable-    result <- g_seekable_can_seek seekable'-    let result' = (/= 0) result-    touchManagedPtr seekable-    return result'--#if ENABLE_OVERLOADING-data SeekableCanSeekMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSeekable a) => O.MethodInfo SeekableCanSeekMethodInfo a signature where-    overloadedMethod _ = seekableCanSeek--#endif---- method Seekable::can_truncate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "seekable", argType = TInterface (Name {namespace = "Gio", name = "Seekable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSeekable.", 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 "g_seekable_can_truncate" g_seekable_can_truncate :: -    Ptr Seekable ->                         -- seekable : TInterface (Name {namespace = "Gio", name = "Seekable"})-    IO CInt--{- |-Tests if the length of the stream can be adjusted with-'GI.Gio.Interfaces.Seekable.seekableTruncate'.--}-seekableCanTruncate ::-    (B.CallStack.HasCallStack, MonadIO m, IsSeekable a) =>-    a-    {- ^ /@seekable@/: a 'GI.Gio.Interfaces.Seekable.Seekable'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the stream can be truncated, 'False' otherwise. -}-seekableCanTruncate seekable = liftIO $ do-    seekable' <- unsafeManagedPtrCastPtr seekable-    result <- g_seekable_can_truncate seekable'-    let result' = (/= 0) result-    touchManagedPtr seekable-    return result'--#if ENABLE_OVERLOADING-data SeekableCanTruncateMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSeekable a) => O.MethodInfo SeekableCanTruncateMethodInfo a signature where-    overloadedMethod _ = seekableCanTruncate--#endif---- method Seekable::seek--- method type : OrdinaryMethod--- Args : [Arg {argCName = "seekable", argType = TInterface (Name {namespace = "Gio", name = "Seekable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSeekable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #goffset.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "GLib", name = "SeekType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSeekType.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_seekable_seek" g_seekable_seek :: -    Ptr Seekable ->                         -- seekable : TInterface (Name {namespace = "Gio", name = "Seekable"})-    Int64 ->                                -- offset : TBasicType TInt64-    CUInt ->                                -- type : TInterface (Name {namespace = "GLib", name = "SeekType"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Seeks in the stream by the given /@offset@/, modified by /@type@/.--Attempting to seek past the end of the stream will have different-results depending on if the stream is fixed-sized or resizable.  If-the stream is resizable then seeking past the end and then writing-will result in zeros filling the empty space.  Seeking past the end-of a resizable stream and reading will result in EOF.  Seeking past-the end of a fixed-sized stream will fail.--Any operation that would result in a negative offset will fail.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-seekableSeek ::-    (B.CallStack.HasCallStack, MonadIO m, IsSeekable a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@seekable@/: a 'GI.Gio.Interfaces.Seekable.Seekable'. -}-    -> Int64-    {- ^ /@offset@/: a @/goffset/@. -}-    -> GLib.Enums.SeekType-    {- ^ /@type@/: a 'GI.GLib.Enums.SeekType'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-seekableSeek seekable offset type_ cancellable = liftIO $ do-    seekable' <- unsafeManagedPtrCastPtr seekable-    let type_' = (fromIntegral . fromEnum) type_-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_seekable_seek seekable' offset type_' maybeCancellable-        touchManagedPtr seekable-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SeekableSeekMethodInfo-instance (signature ~ (Int64 -> GLib.Enums.SeekType -> Maybe (b) -> m ()), MonadIO m, IsSeekable a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SeekableSeekMethodInfo a signature where-    overloadedMethod _ = seekableSeek--#endif---- method Seekable::tell--- method type : OrdinaryMethod--- Args : [Arg {argCName = "seekable", argType = TInterface (Name {namespace = "Gio", name = "Seekable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSeekable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "g_seekable_tell" g_seekable_tell :: -    Ptr Seekable ->                         -- seekable : TInterface (Name {namespace = "Gio", name = "Seekable"})-    IO Int64--{- |-Tells the current position within the stream.--}-seekableTell ::-    (B.CallStack.HasCallStack, MonadIO m, IsSeekable a) =>-    a-    {- ^ /@seekable@/: a 'GI.Gio.Interfaces.Seekable.Seekable'. -}-    -> m Int64-    {- ^ __Returns:__ the offset from the beginning of the buffer. -}-seekableTell seekable = liftIO $ do-    seekable' <- unsafeManagedPtrCastPtr seekable-    result <- g_seekable_tell seekable'-    touchManagedPtr seekable-    return result--#if ENABLE_OVERLOADING-data SeekableTellMethodInfo-instance (signature ~ (m Int64), MonadIO m, IsSeekable a) => O.MethodInfo SeekableTellMethodInfo a signature where-    overloadedMethod _ = seekableTell--#endif---- method Seekable::truncate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "seekable", argType = TInterface (Name {namespace = "Gio", name = "Seekable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSeekable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new length for @seekable, in bytes.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_seekable_truncate" g_seekable_truncate :: -    Ptr Seekable ->                         -- seekable : TInterface (Name {namespace = "Gio", name = "Seekable"})-    Int64 ->                                -- offset : TBasicType TInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets the length of the stream to /@offset@/. If the stream was previously-larger than /@offset@/, the extra data is discarded. If the stream was-previouly shorter than /@offset@/, it is extended with NUL (\'\\0\') bytes.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If an-operation was partially finished when the operation was cancelled the-partial result will be returned, without an error.--}-seekableTruncate ::-    (B.CallStack.HasCallStack, MonadIO m, IsSeekable a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@seekable@/: a 'GI.Gio.Interfaces.Seekable.Seekable'. -}-    -> Int64-    {- ^ /@offset@/: new length for /@seekable@/, in bytes. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-seekableTruncate seekable offset cancellable = liftIO $ do-    seekable' <- unsafeManagedPtrCastPtr seekable-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_seekable_truncate seekable' offset maybeCancellable-        touchManagedPtr seekable-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SeekableTruncateMethodInfo-instance (signature ~ (Int64 -> Maybe (b) -> m ()), MonadIO m, IsSeekable a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SeekableTruncateMethodInfo a signature where-    overloadedMethod _ = seekableTruncate--#endif--
− GI/Gio/Interfaces/Seekable.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Seekable 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 Seekable = Seekable (ManagedPtr Seekable)-instance GObject Seekable where-class (GObject o, O.IsDescendantOf Seekable o) => IsSeekable o-instance (GObject o, O.IsDescendantOf Seekable o) => IsSeekable o-instance O.HasParentTypes Seekable-#if ENABLE_OVERLOADING-data SeekableCanSeekMethodInfo-#endif-#if ENABLE_OVERLOADING-data SeekableCanTruncateMethodInfo-#endif-#if ENABLE_OVERLOADING-data SeekableSeekMethodInfo-#endif-#if ENABLE_OVERLOADING-data SeekableTellMethodInfo-#endif-#if ENABLE_OVERLOADING-data SeekableTruncateMethodInfo-#endif
− GI/Gio/Interfaces/SocketConnectable.hs 
@@ -1,338 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Objects that describe one or more potential socket endpoints-implement 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable'. Callers can then use-'GI.Gio.Interfaces.SocketConnectable.socketConnectableEnumerate' to get a 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator'-to try out each socket address in turn until one succeeds, as shown-in the sample code below.---=== /C code/->->MyConnectionType *->connect_to_host (const char    *hostname,->                 guint16        port,->                 GCancellable  *cancellable,->                 GError       **error)->{->  MyConnection *conn = NULL;->  GSocketConnectable *addr;->  GSocketAddressEnumerator *enumerator;->  GSocketAddress *sockaddr;->  GError *conn_error = NULL;->->  addr = g_network_address_new (hostname, port);->  enumerator = g_socket_connectable_enumerate (addr);->  g_object_unref (addr);->->  // Try each sockaddr until we succeed. Record the first connection error,->  // but not any further ones (since they'll probably be basically the same->  // as the first).->  while (!conn && (sockaddr = g_socket_address_enumerator_next (enumerator, cancellable, error))->    {->      conn = connect_to_sockaddr (sockaddr, conn_error ? NULL : &conn_error);->      g_object_unref (sockaddr);->    }->  g_object_unref (enumerator);->->  if (conn)->    {->      if (conn_error)->        {->          // We couldn't connect to the first address, but we succeeded->          // in connecting to a later address.->          g_error_free (conn_error);->        }->      return conn;->    }->  else if (error)->    {->      /// Either initial lookup failed, or else the caller cancelled us.->      if (conn_error)->        g_error_free (conn_error);->      return NULL;->    }->  else->    {->      g_error_propagate (error, conn_error);->      return NULL;->    }->}---}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.SocketConnectable-    ( ---- * Exported types-    SocketConnectable(..)                   ,-    noSocketConnectable                     ,-    IsSocketConnectable                     ,-    toSocketConnectable                     ,--- -- * Methods--- ** enumerate #method:enumerate#--#if ENABLE_OVERLOADING-    SocketConnectableEnumerateMethodInfo    ,-#endif-    socketConnectableEnumerate              ,----- ** proxyEnumerate #method:proxyEnumerate#--#if ENABLE_OVERLOADING-    SocketConnectableProxyEnumerateMethodInfo,-#endif-    socketConnectableProxyEnumerate         ,----- ** toString #method:toString#--#if ENABLE_OVERLOADING-    SocketConnectableToStringMethodInfo     ,-#endif-    socketConnectableToString               ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddressEnumerator as Gio.SocketAddressEnumerator---- interface SocketConnectable --- | Memory-managed wrapper type.-newtype SocketConnectable = SocketConnectable (ManagedPtr SocketConnectable)--- | A convenience alias for `Nothing` :: `Maybe` `SocketConnectable`.-noSocketConnectable :: Maybe SocketConnectable-noSocketConnectable = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList SocketConnectable = SocketConnectableSignalList-type SocketConnectableSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_socket_connectable_get_type"-    c_g_socket_connectable_get_type :: IO GType--instance GObject SocketConnectable where-    gobjectType = c_g_socket_connectable_get_type-    ---- | Type class for types which can be safely cast to `SocketConnectable`, for instance with `toSocketConnectable`.-class (GObject o, O.IsDescendantOf SocketConnectable o) => IsSocketConnectable o-instance (GObject o, O.IsDescendantOf SocketConnectable o) => IsSocketConnectable o--instance O.HasParentTypes SocketConnectable-type instance O.ParentTypes SocketConnectable = '[GObject.Object.Object]---- | Cast to `SocketConnectable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocketConnectable :: (MonadIO m, IsSocketConnectable o) => o -> m SocketConnectable-toSocketConnectable = liftIO . unsafeCastTo SocketConnectable--#if ENABLE_OVERLOADING-instance O.HasAttributeList SocketConnectable-type instance O.AttributeList SocketConnectable = SocketConnectableAttributeList-type SocketConnectableAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveSocketConnectableMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketConnectableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketConnectableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketConnectableMethod "enumerate" o = SocketConnectableEnumerateMethodInfo-    ResolveSocketConnectableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketConnectableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketConnectableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketConnectableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketConnectableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketConnectableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketConnectableMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo-    ResolveSocketConnectableMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketConnectableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketConnectableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketConnectableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketConnectableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketConnectableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketConnectableMethod "toString" o = SocketConnectableToStringMethodInfo-    ResolveSocketConnectableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketConnectableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketConnectableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketConnectableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketConnectableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketConnectableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketConnectableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketConnectableMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketConnectableMethod t SocketConnectable, O.MethodInfo info SocketConnectable p) => OL.IsLabel t (SocketConnectable -> 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 SocketConnectable::enumerate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connectable", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddressEnumerator"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_connectable_enumerate" g_socket_connectable_enumerate :: -    Ptr SocketConnectable ->                -- connectable : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    IO (Ptr Gio.SocketAddressEnumerator.SocketAddressEnumerator)--{- |-Creates a 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' for /@connectable@/.--/Since: 2.22/--}-socketConnectableEnumerate ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnectable a) =>-    a-    {- ^ /@connectable@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' -}-    -> m Gio.SocketAddressEnumerator.SocketAddressEnumerator-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator'. -}-socketConnectableEnumerate connectable = liftIO $ do-    connectable' <- unsafeManagedPtrCastPtr connectable-    result <- g_socket_connectable_enumerate connectable'-    checkUnexpectedReturnNULL "socketConnectableEnumerate" result-    result' <- (wrapObject Gio.SocketAddressEnumerator.SocketAddressEnumerator) result-    touchManagedPtr connectable-    return result'--#if ENABLE_OVERLOADING-data SocketConnectableEnumerateMethodInfo-instance (signature ~ (m Gio.SocketAddressEnumerator.SocketAddressEnumerator), MonadIO m, IsSocketConnectable a) => O.MethodInfo SocketConnectableEnumerateMethodInfo a signature where-    overloadedMethod _ = socketConnectableEnumerate--#endif---- method SocketConnectable::proxy_enumerate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connectable", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddressEnumerator"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_connectable_proxy_enumerate" g_socket_connectable_proxy_enumerate :: -    Ptr SocketConnectable ->                -- connectable : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    IO (Ptr Gio.SocketAddressEnumerator.SocketAddressEnumerator)--{- |-Creates a 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' for /@connectable@/ that will-return @/GProxyAddresses/@ for addresses that you must connect-to via a proxy.--If /@connectable@/ does not implement-'GI.Gio.Interfaces.SocketConnectable.socketConnectableProxyEnumerate', this will fall back to-calling 'GI.Gio.Interfaces.SocketConnectable.socketConnectableEnumerate'.--/Since: 2.26/--}-socketConnectableProxyEnumerate ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnectable a) =>-    a-    {- ^ /@connectable@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' -}-    -> m Gio.SocketAddressEnumerator.SocketAddressEnumerator-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator'. -}-socketConnectableProxyEnumerate connectable = liftIO $ do-    connectable' <- unsafeManagedPtrCastPtr connectable-    result <- g_socket_connectable_proxy_enumerate connectable'-    checkUnexpectedReturnNULL "socketConnectableProxyEnumerate" result-    result' <- (wrapObject Gio.SocketAddressEnumerator.SocketAddressEnumerator) result-    touchManagedPtr connectable-    return result'--#if ENABLE_OVERLOADING-data SocketConnectableProxyEnumerateMethodInfo-instance (signature ~ (m Gio.SocketAddressEnumerator.SocketAddressEnumerator), MonadIO m, IsSocketConnectable a) => O.MethodInfo SocketConnectableProxyEnumerateMethodInfo a signature where-    overloadedMethod _ = socketConnectableProxyEnumerate--#endif---- method SocketConnectable::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connectable", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable", 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 "g_socket_connectable_to_string" g_socket_connectable_to_string :: -    Ptr SocketConnectable ->                -- connectable : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    IO CString--{- |-Format a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' as a string. This is a human-readable format for-use in debugging output, and is not a stable serialization format. It is not-suitable for use in user interfaces as it exposes too much information for a-user.--If the 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' implementation does not support string formatting,-the implementation’s type name will be returned as a fallback.--/Since: 2.48/--}-socketConnectableToString ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnectable a) =>-    a-    {- ^ /@connectable@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' -}-    -> m T.Text-    {- ^ __Returns:__ the formatted string -}-socketConnectableToString connectable = liftIO $ do-    connectable' <- unsafeManagedPtrCastPtr connectable-    result <- g_socket_connectable_to_string connectable'-    checkUnexpectedReturnNULL "socketConnectableToString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr connectable-    return result'--#if ENABLE_OVERLOADING-data SocketConnectableToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsSocketConnectable a) => O.MethodInfo SocketConnectableToStringMethodInfo a signature where-    overloadedMethod _ = socketConnectableToString--#endif--
− GI/Gio/Interfaces/SocketConnectable.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.SocketConnectable 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 SocketConnectable = SocketConnectable (ManagedPtr SocketConnectable)-instance GObject SocketConnectable where-class (GObject o, O.IsDescendantOf SocketConnectable o) => IsSocketConnectable o-instance (GObject o, O.IsDescendantOf SocketConnectable o) => IsSocketConnectable o-instance O.HasParentTypes SocketConnectable-#if ENABLE_OVERLOADING-data SocketConnectableEnumerateMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectableProxyEnumerateMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectableToStringMethodInfo-#endif
− GI/Gio/Interfaces/TlsBackend.hs 
@@ -1,645 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--TLS (Transport Layer Security, aka SSL) and DTLS backend.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.TlsBackend-    ( ---- * Exported types-    TlsBackend(..)                          ,-    noTlsBackend                            ,-    IsTlsBackend                            ,-    toTlsBackend                            ,--- -- * Methods--- ** getCertificateType #method:getCertificateType#--#if ENABLE_OVERLOADING-    TlsBackendGetCertificateTypeMethodInfo  ,-#endif-    tlsBackendGetCertificateType            ,----- ** getClientConnectionType #method:getClientConnectionType#--#if ENABLE_OVERLOADING-    TlsBackendGetClientConnectionTypeMethodInfo,-#endif-    tlsBackendGetClientConnectionType       ,----- ** getDefault #method:getDefault#--    tlsBackendGetDefault                    ,----- ** getDefaultDatabase #method:getDefaultDatabase#--#if ENABLE_OVERLOADING-    TlsBackendGetDefaultDatabaseMethodInfo  ,-#endif-    tlsBackendGetDefaultDatabase            ,----- ** getDtlsClientConnectionType #method:getDtlsClientConnectionType#--#if ENABLE_OVERLOADING-    TlsBackendGetDtlsClientConnectionTypeMethodInfo,-#endif-    tlsBackendGetDtlsClientConnectionType   ,----- ** getDtlsServerConnectionType #method:getDtlsServerConnectionType#--#if ENABLE_OVERLOADING-    TlsBackendGetDtlsServerConnectionTypeMethodInfo,-#endif-    tlsBackendGetDtlsServerConnectionType   ,----- ** getFileDatabaseType #method:getFileDatabaseType#--#if ENABLE_OVERLOADING-    TlsBackendGetFileDatabaseTypeMethodInfo ,-#endif-    tlsBackendGetFileDatabaseType           ,----- ** getServerConnectionType #method:getServerConnectionType#--#if ENABLE_OVERLOADING-    TlsBackendGetServerConnectionTypeMethodInfo,-#endif-    tlsBackendGetServerConnectionType       ,----- ** setDefaultDatabase #method:setDefaultDatabase#--#if ENABLE_OVERLOADING-    TlsBackendSetDefaultDatabaseMethodInfo  ,-#endif-    tlsBackendSetDefaultDatabase            ,----- ** supportsDtls #method:supportsDtls#--#if ENABLE_OVERLOADING-    TlsBackendSupportsDtlsMethodInfo        ,-#endif-    tlsBackendSupportsDtls                  ,----- ** supportsTls #method:supportsTls#--#if ENABLE_OVERLOADING-    TlsBackendSupportsTlsMethodInfo         ,-#endif-    tlsBackendSupportsTls                   ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase---- interface TlsBackend --- | Memory-managed wrapper type.-newtype TlsBackend = TlsBackend (ManagedPtr TlsBackend)--- | A convenience alias for `Nothing` :: `Maybe` `TlsBackend`.-noTlsBackend :: Maybe TlsBackend-noTlsBackend = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList TlsBackend = TlsBackendSignalList-type TlsBackendSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_tls_backend_get_type"-    c_g_tls_backend_get_type :: IO GType--instance GObject TlsBackend where-    gobjectType = c_g_tls_backend_get_type-    ---- | Type class for types which can be safely cast to `TlsBackend`, for instance with `toTlsBackend`.-class (GObject o, O.IsDescendantOf TlsBackend o) => IsTlsBackend o-instance (GObject o, O.IsDescendantOf TlsBackend o) => IsTlsBackend o--instance O.HasParentTypes TlsBackend-type instance O.ParentTypes TlsBackend = '[GObject.Object.Object]---- | Cast to `TlsBackend`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsBackend :: (MonadIO m, IsTlsBackend o) => o -> m TlsBackend-toTlsBackend = liftIO . unsafeCastTo TlsBackend--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsBackend-type instance O.AttributeList TlsBackend = TlsBackendAttributeList-type TlsBackendAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveTlsBackendMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsBackendMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsBackendMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsBackendMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsBackendMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsBackendMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsBackendMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsBackendMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsBackendMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsBackendMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsBackendMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsBackendMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsBackendMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsBackendMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsBackendMethod "supportsDtls" o = TlsBackendSupportsDtlsMethodInfo-    ResolveTlsBackendMethod "supportsTls" o = TlsBackendSupportsTlsMethodInfo-    ResolveTlsBackendMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsBackendMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsBackendMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsBackendMethod "getCertificateType" o = TlsBackendGetCertificateTypeMethodInfo-    ResolveTlsBackendMethod "getClientConnectionType" o = TlsBackendGetClientConnectionTypeMethodInfo-    ResolveTlsBackendMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsBackendMethod "getDefaultDatabase" o = TlsBackendGetDefaultDatabaseMethodInfo-    ResolveTlsBackendMethod "getDtlsClientConnectionType" o = TlsBackendGetDtlsClientConnectionTypeMethodInfo-    ResolveTlsBackendMethod "getDtlsServerConnectionType" o = TlsBackendGetDtlsServerConnectionTypeMethodInfo-    ResolveTlsBackendMethod "getFileDatabaseType" o = TlsBackendGetFileDatabaseTypeMethodInfo-    ResolveTlsBackendMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsBackendMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsBackendMethod "getServerConnectionType" o = TlsBackendGetServerConnectionTypeMethodInfo-    ResolveTlsBackendMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsBackendMethod "setDefaultDatabase" o = TlsBackendSetDefaultDatabaseMethodInfo-    ResolveTlsBackendMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsBackendMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsBackendMethod t TlsBackend, O.MethodInfo info TlsBackend p) => OL.IsLabel t (TlsBackend -> 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 TlsBackend::get_certificate_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_certificate_type" g_tls_backend_get_certificate_type :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO CGType--{- |-Gets the 'GType' of /@backend@/\'s 'GI.Gio.Objects.TlsCertificate.TlsCertificate' implementation.--/Since: 2.28/--}-tlsBackendGetCertificateType ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m GType-    {- ^ __Returns:__ the 'GType' of /@backend@/\'s 'GI.Gio.Objects.TlsCertificate.TlsCertificate'-  implementation. -}-tlsBackendGetCertificateType backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_get_certificate_type backend'-    let result' = GType result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendGetCertificateTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendGetCertificateTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetCertificateType--#endif---- method TlsBackend::get_client_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_client_connection_type" g_tls_backend_get_client_connection_type :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO CGType--{- |-Gets the 'GType' of /@backend@/\'s 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' implementation.--/Since: 2.28/--}-tlsBackendGetClientConnectionType ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m GType-    {- ^ __Returns:__ the 'GType' of /@backend@/\'s 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection'-  implementation. -}-tlsBackendGetClientConnectionType backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_get_client_connection_type backend'-    let result' = GType result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendGetClientConnectionTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendGetClientConnectionTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetClientConnectionType--#endif---- method TlsBackend::get_default_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsDatabase"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_default_database" g_tls_backend_get_default_database :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO (Ptr Gio.TlsDatabase.TlsDatabase)--{- |-Gets the default 'GI.Gio.Objects.TlsDatabase.TlsDatabase' used to verify TLS connections.--/Since: 2.30/--}-tlsBackendGetDefaultDatabase ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m Gio.TlsDatabase.TlsDatabase-    {- ^ __Returns:__ the default database, which should be-              unreffed when done. -}-tlsBackendGetDefaultDatabase backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_get_default_database backend'-    checkUnexpectedReturnNULL "tlsBackendGetDefaultDatabase" result-    result' <- (wrapObject Gio.TlsDatabase.TlsDatabase) result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendGetDefaultDatabaseMethodInfo-instance (signature ~ (m Gio.TlsDatabase.TlsDatabase), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendGetDefaultDatabaseMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetDefaultDatabase--#endif---- method TlsBackend::get_dtls_client_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_dtls_client_connection_type" g_tls_backend_get_dtls_client_connection_type :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO CGType--{- |-Gets the 'GType' of /@backend@/’s 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection' implementation.--/Since: 2.48/--}-tlsBackendGetDtlsClientConnectionType ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m GType-    {- ^ __Returns:__ the 'GType' of /@backend@/’s 'GI.Gio.Interfaces.DtlsClientConnection.DtlsClientConnection'-  implementation, or @/G_TYPE_INVALID/@ if this backend doesn’t support DTLS. -}-tlsBackendGetDtlsClientConnectionType backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_get_dtls_client_connection_type backend'-    let result' = GType result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendGetDtlsClientConnectionTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendGetDtlsClientConnectionTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetDtlsClientConnectionType--#endif---- method TlsBackend::get_dtls_server_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_dtls_server_connection_type" g_tls_backend_get_dtls_server_connection_type :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO CGType--{- |-Gets the 'GType' of /@backend@/’s 'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection' implementation.--/Since: 2.48/--}-tlsBackendGetDtlsServerConnectionType ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m GType-    {- ^ __Returns:__ the 'GType' of /@backend@/’s 'GI.Gio.Interfaces.DtlsServerConnection.DtlsServerConnection'-  implementation, or @/G_TYPE_INVALID/@ if this backend doesn’t support DTLS. -}-tlsBackendGetDtlsServerConnectionType backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_get_dtls_server_connection_type backend'-    let result' = GType result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendGetDtlsServerConnectionTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendGetDtlsServerConnectionTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetDtlsServerConnectionType--#endif---- method TlsBackend::get_file_database_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_file_database_type" g_tls_backend_get_file_database_type :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO CGType--{- |-Gets the 'GType' of /@backend@/\'s 'GI.Gio.Interfaces.TlsFileDatabase.TlsFileDatabase' implementation.--/Since: 2.30/--}-tlsBackendGetFileDatabaseType ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m GType-    {- ^ __Returns:__ the 'GType' of backend\'s 'GI.Gio.Interfaces.TlsFileDatabase.TlsFileDatabase' implementation. -}-tlsBackendGetFileDatabaseType backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_get_file_database_type backend'-    let result' = GType result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendGetFileDatabaseTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendGetFileDatabaseTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetFileDatabaseType--#endif---- method TlsBackend::get_server_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_server_connection_type" g_tls_backend_get_server_connection_type :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO CGType--{- |-Gets the 'GType' of /@backend@/\'s 'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection' implementation.--/Since: 2.28/--}-tlsBackendGetServerConnectionType ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m GType-    {- ^ __Returns:__ the 'GType' of /@backend@/\'s 'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection'-  implementation. -}-tlsBackendGetServerConnectionType backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_get_server_connection_type backend'-    let result' = GType result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendGetServerConnectionTypeMethodInfo-instance (signature ~ (m GType), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendGetServerConnectionTypeMethodInfo a signature where-    overloadedMethod _ = tlsBackendGetServerConnectionType--#endif---- method TlsBackend::set_default_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "database", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_set_default_database" g_tls_backend_set_default_database :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    Ptr Gio.TlsDatabase.TlsDatabase ->      -- database : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    IO ()--{- |-Set the default 'GI.Gio.Objects.TlsDatabase.TlsDatabase' used to verify TLS connections--Any subsequent call to 'GI.Gio.Interfaces.TlsBackend.tlsBackendGetDefaultDatabase' will return-the database set in this call.  Existing databases and connections are not-modified.--Setting a 'Nothing' default database will reset to using the system default-database as if 'GI.Gio.Interfaces.TlsBackend.tlsBackendSetDefaultDatabase' had never been called.--/Since: 2.60/--}-tlsBackendSetDefaultDatabase ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a, Gio.TlsDatabase.IsTlsDatabase b) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> Maybe (b)-    {- ^ /@database@/: the 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> m ()-tlsBackendSetDefaultDatabase backend database = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    maybeDatabase <- case database of-        Nothing -> return nullPtr-        Just jDatabase -> do-            jDatabase' <- unsafeManagedPtrCastPtr jDatabase-            return jDatabase'-    g_tls_backend_set_default_database backend' maybeDatabase-    touchManagedPtr backend-    whenJust database touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data TlsBackendSetDefaultDatabaseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTlsBackend a, Gio.TlsDatabase.IsTlsDatabase b) => O.MethodInfo TlsBackendSetDefaultDatabaseMethodInfo a signature where-    overloadedMethod _ = tlsBackendSetDefaultDatabase--#endif---- method TlsBackend::supports_dtls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", 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 "g_tls_backend_supports_dtls" g_tls_backend_supports_dtls :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO CInt--{- |-Checks if DTLS is supported. DTLS support may not be available even if TLS-support is available, and vice-versa.--/Since: 2.48/--}-tlsBackendSupportsDtls ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m Bool-    {- ^ __Returns:__ whether DTLS is supported -}-tlsBackendSupportsDtls backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_supports_dtls backend'-    let result' = (/= 0) result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendSupportsDtlsMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendSupportsDtlsMethodInfo a signature where-    overloadedMethod _ = tlsBackendSupportsDtls--#endif---- method TlsBackend::supports_tls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "TlsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsBackend", 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 "g_tls_backend_supports_tls" g_tls_backend_supports_tls :: -    Ptr TlsBackend ->                       -- backend : TInterface (Name {namespace = "Gio", name = "TlsBackend"})-    IO CInt--{- |-Checks if TLS is supported; if this returns 'False' for the default-'GI.Gio.Interfaces.TlsBackend.TlsBackend', it means no \"real\" TLS backend is available.--/Since: 2.28/--}-tlsBackendSupportsTls ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsBackend a) =>-    a-    {- ^ /@backend@/: the 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-    -> m Bool-    {- ^ __Returns:__ whether or not TLS is supported -}-tlsBackendSupportsTls backend = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_tls_backend_supports_tls backend'-    let result' = (/= 0) result-    touchManagedPtr backend-    return result'--#if ENABLE_OVERLOADING-data TlsBackendSupportsTlsMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTlsBackend a) => O.MethodInfo TlsBackendSupportsTlsMethodInfo a signature where-    overloadedMethod _ = tlsBackendSupportsTls--#endif---- method TlsBackend::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsBackend"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_backend_get_default" g_tls_backend_get_default :: -    IO (Ptr TlsBackend)--{- |-Gets the default 'GI.Gio.Interfaces.TlsBackend.TlsBackend' for the system.--/Since: 2.28/--}-tlsBackendGetDefault ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m TlsBackend-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.TlsBackend.TlsBackend' -}-tlsBackendGetDefault  = liftIO $ do-    result <- g_tls_backend_get_default-    checkUnexpectedReturnNULL "tlsBackendGetDefault" result-    result' <- (newObject TlsBackend) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/TlsBackend.hs-boot 
@@ -1,59 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.TlsBackend 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 TlsBackend = TlsBackend (ManagedPtr TlsBackend)-instance GObject TlsBackend where-class (GObject o, O.IsDescendantOf TlsBackend o) => IsTlsBackend o-instance (GObject o, O.IsDescendantOf TlsBackend o) => IsTlsBackend o-instance O.HasParentTypes TlsBackend-#if ENABLE_OVERLOADING-data TlsBackendGetCertificateTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendGetClientConnectionTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendGetDefaultDatabaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendGetDtlsClientConnectionTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendGetDtlsServerConnectionTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendGetFileDatabaseTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendGetServerConnectionTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendSetDefaultDatabaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendSupportsDtlsMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsBackendSupportsTlsMethodInfo-#endif
− GI/Gio/Interfaces/TlsClientConnection.hs 
@@ -1,916 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' is the client-side subclass of-'GI.Gio.Objects.TlsConnection.TlsConnection', representing a client-side TLS connection.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.TlsClientConnection-    ( ---- * Exported types-    TlsClientConnection(..)                 ,-    noTlsClientConnection                   ,-    IsTlsClientConnection                   ,-    toTlsClientConnection                   ,--- -- * Methods--- ** copySessionState #method:copySessionState#--#if ENABLE_OVERLOADING-    TlsClientConnectionCopySessionStateMethodInfo,-#endif-    tlsClientConnectionCopySessionState     ,----- ** getAcceptedCas #method:getAcceptedCas#--#if ENABLE_OVERLOADING-    TlsClientConnectionGetAcceptedCasMethodInfo,-#endif-    tlsClientConnectionGetAcceptedCas       ,----- ** getServerIdentity #method:getServerIdentity#--#if ENABLE_OVERLOADING-    TlsClientConnectionGetServerIdentityMethodInfo,-#endif-    tlsClientConnectionGetServerIdentity    ,----- ** getUseSsl3 #method:getUseSsl3#--#if ENABLE_OVERLOADING-    TlsClientConnectionGetUseSsl3MethodInfo ,-#endif-    tlsClientConnectionGetUseSsl3           ,----- ** getValidationFlags #method:getValidationFlags#--#if ENABLE_OVERLOADING-    TlsClientConnectionGetValidationFlagsMethodInfo,-#endif-    tlsClientConnectionGetValidationFlags   ,----- ** new #method:new#--    tlsClientConnectionNew                  ,----- ** setServerIdentity #method:setServerIdentity#--#if ENABLE_OVERLOADING-    TlsClientConnectionSetServerIdentityMethodInfo,-#endif-    tlsClientConnectionSetServerIdentity    ,----- ** setUseSsl3 #method:setUseSsl3#--#if ENABLE_OVERLOADING-    TlsClientConnectionSetUseSsl3MethodInfo ,-#endif-    tlsClientConnectionSetUseSsl3           ,----- ** setValidationFlags #method:setValidationFlags#--#if ENABLE_OVERLOADING-    TlsClientConnectionSetValidationFlagsMethodInfo,-#endif-    tlsClientConnectionSetValidationFlags   ,----- -- * Properties--- ** acceptedCas #attr:acceptedCas#-{- | A list of the distinguished names of the Certificate Authorities-that the server will accept client certificates signed by. If the-server requests a client certificate during the handshake, then-this property will be set after the handshake completes.--Each item in the list is a 'GI.GLib.Structs.ByteArray.ByteArray' which contains the complete-subject DN of the certificate authority.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsClientConnectionAcceptedCasPropertyInfo,-#endif-    getTlsClientConnectionAcceptedCas       ,-#if ENABLE_OVERLOADING-    tlsClientConnectionAcceptedCas          ,-#endif----- ** serverIdentity #attr:serverIdentity#-{- | A 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' describing the identity of the server that-is expected on the other end of the connection.--If the 'GI.Gio.Flags.TlsCertificateFlagsBadIdentity' flag is set in-'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection':@/validation-flags/@, this object will be used-to determine the expected identify of the remote end of the-connection; if 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection':@/server-identity/@ is not set,-or does not match the identity presented by the server, then the-'GI.Gio.Flags.TlsCertificateFlagsBadIdentity' validation will fail.--In addition to its use in verifying the server certificate,-this is also used to give a hint to the server about what-certificate we expect, which is useful for servers that serve-virtual hosts.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsClientConnectionServerIdentityPropertyInfo,-#endif-    constructTlsClientConnectionServerIdentity,-    getTlsClientConnectionServerIdentity    ,-    setTlsClientConnectionServerIdentity    ,-#if ENABLE_OVERLOADING-    tlsClientConnectionServerIdentity       ,-#endif----- ** useSsl3 #attr:useSsl3#-{- | If 'True', forces the connection to use a fallback version of TLS-or SSL, rather than trying to negotiate the best version of TLS-to use. See 'GI.Gio.Interfaces.TlsClientConnection.tlsClientConnectionSetUseSsl3'.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsClientConnectionUseSsl3PropertyInfo  ,-#endif-    constructTlsClientConnectionUseSsl3     ,-    getTlsClientConnectionUseSsl3           ,-    setTlsClientConnectionUseSsl3           ,-#if ENABLE_OVERLOADING-    tlsClientConnectionUseSsl3              ,-#endif----- ** validationFlags #attr:validationFlags#-{- | What steps to perform when validating a certificate received from-a server. Server certificates that fail to validate in all of the-ways indicated here will be rejected unless the application-overrides the default via 'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsClientConnectionValidationFlagsPropertyInfo,-#endif-    constructTlsClientConnectionValidationFlags,-    getTlsClientConnectionValidationFlags   ,-    setTlsClientConnectionValidationFlags   ,-#if ENABLE_OVERLOADING-    tlsClientConnectionValidationFlags      ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsConnection as Gio.TlsConnection---- interface TlsClientConnection --- | Memory-managed wrapper type.-newtype TlsClientConnection = TlsClientConnection (ManagedPtr TlsClientConnection)--- | A convenience alias for `Nothing` :: `Maybe` `TlsClientConnection`.-noTlsClientConnection :: Maybe TlsClientConnection-noTlsClientConnection = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList TlsClientConnection = TlsClientConnectionSignalList-type TlsClientConnectionSignalList = ('[ '("acceptCertificate", Gio.TlsConnection.TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_tls_client_connection_get_type"-    c_g_tls_client_connection_get_type :: IO GType--instance GObject TlsClientConnection where-    gobjectType = c_g_tls_client_connection_get_type-    ---- | Type class for types which can be safely cast to `TlsClientConnection`, for instance with `toTlsClientConnection`.-class (GObject o, O.IsDescendantOf TlsClientConnection o) => IsTlsClientConnection o-instance (GObject o, O.IsDescendantOf TlsClientConnection o) => IsTlsClientConnection o--instance O.HasParentTypes TlsClientConnection-type instance O.ParentTypes TlsClientConnection = '[GObject.Object.Object, Gio.TlsConnection.TlsConnection, Gio.IOStream.IOStream]---- | Cast to `TlsClientConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsClientConnection :: (MonadIO m, IsTlsClientConnection o) => o -> m TlsClientConnection-toTlsClientConnection = liftIO . unsafeCastTo TlsClientConnection---- VVV Prop "accepted-cas"-   -- Type: TGList (TBasicType TPtr)-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@accepted-cas@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsClientConnection #acceptedCas-@--}-getTlsClientConnectionAcceptedCas :: (MonadIO m, IsTlsClientConnection o) => o -> m ([Ptr ()])-getTlsClientConnectionAcceptedCas obj = liftIO $ B.Properties.getObjectPropertyPtrGList obj "accepted-cas"--#if ENABLE_OVERLOADING-data TlsClientConnectionAcceptedCasPropertyInfo-instance AttrInfo TlsClientConnectionAcceptedCasPropertyInfo where-    type AttrAllowedOps TlsClientConnectionAcceptedCasPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint TlsClientConnectionAcceptedCasPropertyInfo = (~) ()-    type AttrBaseTypeConstraint TlsClientConnectionAcceptedCasPropertyInfo = IsTlsClientConnection-    type AttrGetType TlsClientConnectionAcceptedCasPropertyInfo = ([Ptr ()])-    type AttrLabel TlsClientConnectionAcceptedCasPropertyInfo = "accepted-cas"-    type AttrOrigin TlsClientConnectionAcceptedCasPropertyInfo = TlsClientConnection-    attrGet _ = getTlsClientConnectionAcceptedCas-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "server-identity"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@server-identity@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsClientConnection #serverIdentity-@--}-getTlsClientConnectionServerIdentity :: (MonadIO m, IsTlsClientConnection o) => o -> m Gio.SocketConnectable.SocketConnectable-getTlsClientConnectionServerIdentity obj = liftIO $ checkUnexpectedNothing "getTlsClientConnectionServerIdentity" $ B.Properties.getObjectPropertyObject obj "server-identity" Gio.SocketConnectable.SocketConnectable--{- |-Set the value of the “@server-identity@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsClientConnection [ #serverIdentity 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsClientConnectionServerIdentity :: (MonadIO m, IsTlsClientConnection o, Gio.SocketConnectable.IsSocketConnectable a) => o -> a -> m ()-setTlsClientConnectionServerIdentity obj val = liftIO $ B.Properties.setObjectPropertyObject obj "server-identity" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@server-identity@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsClientConnectionServerIdentity :: (IsTlsClientConnection o, Gio.SocketConnectable.IsSocketConnectable a) => a -> IO (GValueConstruct o)-constructTlsClientConnectionServerIdentity val = B.Properties.constructObjectPropertyObject "server-identity" (Just val)--#if ENABLE_OVERLOADING-data TlsClientConnectionServerIdentityPropertyInfo-instance AttrInfo TlsClientConnectionServerIdentityPropertyInfo where-    type AttrAllowedOps TlsClientConnectionServerIdentityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsClientConnectionServerIdentityPropertyInfo = Gio.SocketConnectable.IsSocketConnectable-    type AttrBaseTypeConstraint TlsClientConnectionServerIdentityPropertyInfo = IsTlsClientConnection-    type AttrGetType TlsClientConnectionServerIdentityPropertyInfo = Gio.SocketConnectable.SocketConnectable-    type AttrLabel TlsClientConnectionServerIdentityPropertyInfo = "server-identity"-    type AttrOrigin TlsClientConnectionServerIdentityPropertyInfo = TlsClientConnection-    attrGet _ = getTlsClientConnectionServerIdentity-    attrSet _ = setTlsClientConnectionServerIdentity-    attrConstruct _ = constructTlsClientConnectionServerIdentity-    attrClear _ = undefined-#endif---- VVV Prop "use-ssl3"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@use-ssl3@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsClientConnection #useSsl3-@--}-getTlsClientConnectionUseSsl3 :: (MonadIO m, IsTlsClientConnection o) => o -> m Bool-getTlsClientConnectionUseSsl3 obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-ssl3"--{- |-Set the value of the “@use-ssl3@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsClientConnection [ #useSsl3 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsClientConnectionUseSsl3 :: (MonadIO m, IsTlsClientConnection o) => o -> Bool -> m ()-setTlsClientConnectionUseSsl3 obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-ssl3" val--{- |-Construct a `GValueConstruct` with valid value for the “@use-ssl3@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsClientConnectionUseSsl3 :: (IsTlsClientConnection o) => Bool -> IO (GValueConstruct o)-constructTlsClientConnectionUseSsl3 val = B.Properties.constructObjectPropertyBool "use-ssl3" val--#if ENABLE_OVERLOADING-data TlsClientConnectionUseSsl3PropertyInfo-instance AttrInfo TlsClientConnectionUseSsl3PropertyInfo where-    type AttrAllowedOps TlsClientConnectionUseSsl3PropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsClientConnectionUseSsl3PropertyInfo = (~) Bool-    type AttrBaseTypeConstraint TlsClientConnectionUseSsl3PropertyInfo = IsTlsClientConnection-    type AttrGetType TlsClientConnectionUseSsl3PropertyInfo = Bool-    type AttrLabel TlsClientConnectionUseSsl3PropertyInfo = "use-ssl3"-    type AttrOrigin TlsClientConnectionUseSsl3PropertyInfo = TlsClientConnection-    attrGet _ = getTlsClientConnectionUseSsl3-    attrSet _ = setTlsClientConnectionUseSsl3-    attrConstruct _ = constructTlsClientConnectionUseSsl3-    attrClear _ = undefined-#endif---- VVV Prop "validation-flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@validation-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsClientConnection #validationFlags-@--}-getTlsClientConnectionValidationFlags :: (MonadIO m, IsTlsClientConnection o) => o -> m [Gio.Flags.TlsCertificateFlags]-getTlsClientConnectionValidationFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "validation-flags"--{- |-Set the value of the “@validation-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsClientConnection [ #validationFlags 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsClientConnectionValidationFlags :: (MonadIO m, IsTlsClientConnection o) => o -> [Gio.Flags.TlsCertificateFlags] -> m ()-setTlsClientConnectionValidationFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "validation-flags" val--{- |-Construct a `GValueConstruct` with valid value for the “@validation-flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsClientConnectionValidationFlags :: (IsTlsClientConnection o) => [Gio.Flags.TlsCertificateFlags] -> IO (GValueConstruct o)-constructTlsClientConnectionValidationFlags val = B.Properties.constructObjectPropertyFlags "validation-flags" val--#if ENABLE_OVERLOADING-data TlsClientConnectionValidationFlagsPropertyInfo-instance AttrInfo TlsClientConnectionValidationFlagsPropertyInfo where-    type AttrAllowedOps TlsClientConnectionValidationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsClientConnectionValidationFlagsPropertyInfo = (~) [Gio.Flags.TlsCertificateFlags]-    type AttrBaseTypeConstraint TlsClientConnectionValidationFlagsPropertyInfo = IsTlsClientConnection-    type AttrGetType TlsClientConnectionValidationFlagsPropertyInfo = [Gio.Flags.TlsCertificateFlags]-    type AttrLabel TlsClientConnectionValidationFlagsPropertyInfo = "validation-flags"-    type AttrOrigin TlsClientConnectionValidationFlagsPropertyInfo = TlsClientConnection-    attrGet _ = getTlsClientConnectionValidationFlags-    attrSet _ = setTlsClientConnectionValidationFlags-    attrConstruct _ = constructTlsClientConnectionValidationFlags-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsClientConnection-type instance O.AttributeList TlsClientConnection = TlsClientConnectionAttributeList-type TlsClientConnectionAttributeList = ('[ '("acceptedCas", TlsClientConnectionAcceptedCasPropertyInfo), '("advertisedProtocols", Gio.TlsConnection.TlsConnectionAdvertisedProtocolsPropertyInfo), '("baseIoStream", Gio.TlsConnection.TlsConnectionBaseIoStreamPropertyInfo), '("certificate", Gio.TlsConnection.TlsConnectionCertificatePropertyInfo), '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("database", Gio.TlsConnection.TlsConnectionDatabasePropertyInfo), '("inputStream", Gio.IOStream.IOStreamInputStreamPropertyInfo), '("interaction", Gio.TlsConnection.TlsConnectionInteractionPropertyInfo), '("negotiatedProtocol", Gio.TlsConnection.TlsConnectionNegotiatedProtocolPropertyInfo), '("outputStream", Gio.IOStream.IOStreamOutputStreamPropertyInfo), '("peerCertificate", Gio.TlsConnection.TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", Gio.TlsConnection.TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", Gio.TlsConnection.TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", Gio.TlsConnection.TlsConnectionRequireCloseNotifyPropertyInfo), '("serverIdentity", TlsClientConnectionServerIdentityPropertyInfo), '("useSsl3", TlsClientConnectionUseSsl3PropertyInfo), '("useSystemCertdb", Gio.TlsConnection.TlsConnectionUseSystemCertdbPropertyInfo), '("validationFlags", TlsClientConnectionValidationFlagsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-tlsClientConnectionAcceptedCas :: AttrLabelProxy "acceptedCas"-tlsClientConnectionAcceptedCas = AttrLabelProxy--tlsClientConnectionServerIdentity :: AttrLabelProxy "serverIdentity"-tlsClientConnectionServerIdentity = AttrLabelProxy--tlsClientConnectionUseSsl3 :: AttrLabelProxy "useSsl3"-tlsClientConnectionUseSsl3 = AttrLabelProxy--tlsClientConnectionValidationFlags :: AttrLabelProxy "validationFlags"-tlsClientConnectionValidationFlags = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type family ResolveTlsClientConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsClientConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsClientConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsClientConnectionMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveTlsClientConnectionMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveTlsClientConnectionMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveTlsClientConnectionMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveTlsClientConnectionMethod "copySessionState" o = TlsClientConnectionCopySessionStateMethodInfo-    ResolveTlsClientConnectionMethod "emitAcceptCertificate" o = Gio.TlsConnection.TlsConnectionEmitAcceptCertificateMethodInfo-    ResolveTlsClientConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsClientConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsClientConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsClientConnectionMethod "handshake" o = Gio.TlsConnection.TlsConnectionHandshakeMethodInfo-    ResolveTlsClientConnectionMethod "handshakeAsync" o = Gio.TlsConnection.TlsConnectionHandshakeAsyncMethodInfo-    ResolveTlsClientConnectionMethod "handshakeFinish" o = Gio.TlsConnection.TlsConnectionHandshakeFinishMethodInfo-    ResolveTlsClientConnectionMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveTlsClientConnectionMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveTlsClientConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsClientConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsClientConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsClientConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsClientConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsClientConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsClientConnectionMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveTlsClientConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsClientConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsClientConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsClientConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsClientConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsClientConnectionMethod "getAcceptedCas" o = TlsClientConnectionGetAcceptedCasMethodInfo-    ResolveTlsClientConnectionMethod "getCertificate" o = Gio.TlsConnection.TlsConnectionGetCertificateMethodInfo-    ResolveTlsClientConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsClientConnectionMethod "getDatabase" o = Gio.TlsConnection.TlsConnectionGetDatabaseMethodInfo-    ResolveTlsClientConnectionMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveTlsClientConnectionMethod "getInteraction" o = Gio.TlsConnection.TlsConnectionGetInteractionMethodInfo-    ResolveTlsClientConnectionMethod "getNegotiatedProtocol" o = Gio.TlsConnection.TlsConnectionGetNegotiatedProtocolMethodInfo-    ResolveTlsClientConnectionMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveTlsClientConnectionMethod "getPeerCertificate" o = Gio.TlsConnection.TlsConnectionGetPeerCertificateMethodInfo-    ResolveTlsClientConnectionMethod "getPeerCertificateErrors" o = Gio.TlsConnection.TlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveTlsClientConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsClientConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsClientConnectionMethod "getRehandshakeMode" o = Gio.TlsConnection.TlsConnectionGetRehandshakeModeMethodInfo-    ResolveTlsClientConnectionMethod "getRequireCloseNotify" o = Gio.TlsConnection.TlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveTlsClientConnectionMethod "getServerIdentity" o = TlsClientConnectionGetServerIdentityMethodInfo-    ResolveTlsClientConnectionMethod "getUseSsl3" o = TlsClientConnectionGetUseSsl3MethodInfo-    ResolveTlsClientConnectionMethod "getUseSystemCertdb" o = Gio.TlsConnection.TlsConnectionGetUseSystemCertdbMethodInfo-    ResolveTlsClientConnectionMethod "getValidationFlags" o = TlsClientConnectionGetValidationFlagsMethodInfo-    ResolveTlsClientConnectionMethod "setAdvertisedProtocols" o = Gio.TlsConnection.TlsConnectionSetAdvertisedProtocolsMethodInfo-    ResolveTlsClientConnectionMethod "setCertificate" o = Gio.TlsConnection.TlsConnectionSetCertificateMethodInfo-    ResolveTlsClientConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsClientConnectionMethod "setDatabase" o = Gio.TlsConnection.TlsConnectionSetDatabaseMethodInfo-    ResolveTlsClientConnectionMethod "setInteraction" o = Gio.TlsConnection.TlsConnectionSetInteractionMethodInfo-    ResolveTlsClientConnectionMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveTlsClientConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsClientConnectionMethod "setRehandshakeMode" o = Gio.TlsConnection.TlsConnectionSetRehandshakeModeMethodInfo-    ResolveTlsClientConnectionMethod "setRequireCloseNotify" o = Gio.TlsConnection.TlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveTlsClientConnectionMethod "setServerIdentity" o = TlsClientConnectionSetServerIdentityMethodInfo-    ResolveTlsClientConnectionMethod "setUseSsl3" o = TlsClientConnectionSetUseSsl3MethodInfo-    ResolveTlsClientConnectionMethod "setUseSystemCertdb" o = Gio.TlsConnection.TlsConnectionSetUseSystemCertdbMethodInfo-    ResolveTlsClientConnectionMethod "setValidationFlags" o = TlsClientConnectionSetValidationFlagsMethodInfo-    ResolveTlsClientConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsClientConnectionMethod t TlsClientConnection, O.MethodInfo info TlsClientConnection p) => OL.IsLabel t (TlsClientConnection -> 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 TlsClientConnection::copy_session_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_client_connection_copy_session_state" g_tls_client_connection_copy_session_state :: -    Ptr TlsClientConnection ->              -- conn : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    Ptr TlsClientConnection ->              -- source : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    IO ()--{- |-Copies session state from one connection to another. This is-not normally needed, but may be used when the same session-needs to be used between different endpoints as is required-by some protocols such as FTP over TLS. /@source@/ should have-already completed a handshake, and /@conn@/ should not have-completed a handshake.--/Since: 2.46/--}-tlsClientConnectionCopySessionState ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsClientConnection a, IsTlsClientConnection b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> b-    {- ^ /@source@/: a 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> m ()-tlsClientConnectionCopySessionState conn source = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    source' <- unsafeManagedPtrCastPtr source-    g_tls_client_connection_copy_session_state conn' source'-    touchManagedPtr conn-    touchManagedPtr source-    return ()--#if ENABLE_OVERLOADING-data TlsClientConnectionCopySessionStateMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsTlsClientConnection a, IsTlsClientConnection b) => O.MethodInfo TlsClientConnectionCopySessionStateMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionCopySessionState--#endif---- method TlsClientConnection::get_accepted_cas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList TByteArray)--- throws : False--- Skip return : False--foreign import ccall "g_tls_client_connection_get_accepted_cas" g_tls_client_connection_get_accepted_cas :: -    Ptr TlsClientConnection ->              -- conn : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    IO (Ptr (GList (Ptr GByteArray)))--{- |-Gets the list of distinguished names of the Certificate Authorities-that the server will accept certificates from. This will be set-during the TLS handshake if the server requests a certificate.-Otherwise, it will be 'Nothing'.--Each item in the list is a 'GI.GLib.Structs.ByteArray.ByteArray' which contains the complete-subject DN of the certificate authority.--/Since: 2.28/--}-tlsClientConnectionGetAcceptedCas ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> m [ByteString]-    {- ^ __Returns:__ the list of-CA DNs. You should unref each element with 'GI.GLib.Functions.byteArrayUnref' and then-the free the list with @/g_list_free()/@. -}-tlsClientConnectionGetAcceptedCas conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_client_connection_get_accepted_cas conn'-    result' <- unpackGList result-    result'' <- mapM unpackGByteArray result'-    mapGList unrefGByteArray result-    g_list_free result-    touchManagedPtr conn-    return result''--#if ENABLE_OVERLOADING-data TlsClientConnectionGetAcceptedCasMethodInfo-instance (signature ~ (m [ByteString]), MonadIO m, IsTlsClientConnection a) => O.MethodInfo TlsClientConnectionGetAcceptedCasMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionGetAcceptedCas--#endif---- method TlsClientConnection::get_server_identity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnectable"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_client_connection_get_server_identity" g_tls_client_connection_get_server_identity :: -    Ptr TlsClientConnection ->              -- conn : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    IO (Ptr Gio.SocketConnectable.SocketConnectable)--{- |-Gets /@conn@/\'s expected server identity--/Since: 2.28/--}-tlsClientConnectionGetServerIdentity ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> m Gio.SocketConnectable.SocketConnectable-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' describing the-expected server identity, or 'Nothing' if the expected identity is not-known. -}-tlsClientConnectionGetServerIdentity conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_client_connection_get_server_identity conn'-    checkUnexpectedReturnNULL "tlsClientConnectionGetServerIdentity" result-    result' <- (newObject Gio.SocketConnectable.SocketConnectable) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsClientConnectionGetServerIdentityMethodInfo-instance (signature ~ (m Gio.SocketConnectable.SocketConnectable), MonadIO m, IsTlsClientConnection a) => O.MethodInfo TlsClientConnectionGetServerIdentityMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionGetServerIdentity--#endif---- method TlsClientConnection::get_use_ssl3--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsClientConnection", 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 "g_tls_client_connection_get_use_ssl3" g_tls_client_connection_get_use_ssl3 :: -    Ptr TlsClientConnection ->              -- conn : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    IO CInt--{-# DEPRECATED tlsClientConnectionGetUseSsl3 ["(Since version 2.56)","SSL 3.0 is insecure, and this function does not","actually indicate whether it is enabled."] #-}-{- |-Gets whether /@conn@/ will force the lowest-supported TLS protocol-version rather than attempt to negotiate the highest mutually--supported version of TLS; see 'GI.Gio.Interfaces.TlsClientConnection.tlsClientConnectionSetUseSsl3'.--/Since: 2.28/--}-tlsClientConnectionGetUseSsl3 ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> m Bool-    {- ^ __Returns:__ whether /@conn@/ will use the lowest-supported TLS protocol version -}-tlsClientConnectionGetUseSsl3 conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_client_connection_get_use_ssl3 conn'-    let result' = (/= 0) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsClientConnectionGetUseSsl3MethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTlsClientConnection a) => O.MethodInfo TlsClientConnectionGetUseSsl3MethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionGetUseSsl3--#endif---- method TlsClientConnection::get_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_client_connection_get_validation_flags" g_tls_client_connection_get_validation_flags :: -    Ptr TlsClientConnection ->              -- conn : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    IO CUInt--{- |-Gets /@conn@/\'s validation flags--/Since: 2.28/--}-tlsClientConnectionGetValidationFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> m [Gio.Flags.TlsCertificateFlags]-    {- ^ __Returns:__ the validation flags -}-tlsClientConnectionGetValidationFlags conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_client_connection_get_validation_flags conn'-    let result' = wordToGFlags result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsClientConnectionGetValidationFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsTlsClientConnection a) => O.MethodInfo TlsClientConnectionGetValidationFlagsMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionGetValidationFlags--#endif---- method TlsClientConnection::set_server_identity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable describing the expected server identity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_client_connection_set_server_identity" g_tls_client_connection_set_server_identity :: -    Ptr TlsClientConnection ->              -- conn : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- identity : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    IO ()--{- |-Sets /@conn@/\'s expected server identity, which is used both to tell-servers on virtual hosts which certificate to present, and also-to let /@conn@/ know what name to look for in the certificate when-performing 'GI.Gio.Flags.TlsCertificateFlagsBadIdentity' validation, if enabled.--/Since: 2.28/--}-tlsClientConnectionSetServerIdentity ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsClientConnection a, Gio.SocketConnectable.IsSocketConnectable b) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> b-    {- ^ /@identity@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' describing the expected server identity -}-    -> m ()-tlsClientConnectionSetServerIdentity conn identity = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    identity' <- unsafeManagedPtrCastPtr identity-    g_tls_client_connection_set_server_identity conn' identity'-    touchManagedPtr conn-    touchManagedPtr identity-    return ()--#if ENABLE_OVERLOADING-data TlsClientConnectionSetServerIdentityMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsTlsClientConnection a, Gio.SocketConnectable.IsSocketConnectable b) => O.MethodInfo TlsClientConnectionSetServerIdentityMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionSetServerIdentity--#endif---- method TlsClientConnection::set_use_ssl3--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_ssl3", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to use the lowest-supported protocol version", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_client_connection_set_use_ssl3" g_tls_client_connection_set_use_ssl3 :: -    Ptr TlsClientConnection ->              -- conn : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    CInt ->                                 -- use_ssl3 : TBasicType TBoolean-    IO ()--{-# DEPRECATED tlsClientConnectionSetUseSsl3 ["(Since version 2.56)","SSL 3.0 is insecure, and this function does not","generally enable or disable it, despite its name."] #-}-{- |-Since 2.42.1, if /@useSsl3@/ is 'True', this forces /@conn@/ to use the-lowest-supported TLS protocol version rather than trying to properly-negotiate the highest mutually-supported protocol version with the-peer. Be aware that SSL 3.0 is generally disabled by the-'GI.Gio.Interfaces.TlsBackend.TlsBackend', so the lowest-supported protocol version is probably-not SSL 3.0.--Since 2.58, this may additionally cause an RFC 7507 fallback SCSV to-be sent to the server, causing modern TLS servers to immediately-terminate the connection. You should generally only use this function-if you need to connect to broken servers that exhibit TLS protocol-version intolerance, and when an initial attempt to connect to a-server normally has already failed.--/Since: 2.28/--}-tlsClientConnectionSetUseSsl3 ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> Bool-    {- ^ /@useSsl3@/: whether to use the lowest-supported protocol version -}-    -> m ()-tlsClientConnectionSetUseSsl3 conn useSsl3 = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let useSsl3' = (fromIntegral . fromEnum) useSsl3-    g_tls_client_connection_set_use_ssl3 conn' useSsl3'-    touchManagedPtr conn-    return ()--#if ENABLE_OVERLOADING-data TlsClientConnectionSetUseSsl3MethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsTlsClientConnection a) => O.MethodInfo TlsClientConnectionSetUseSsl3MethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionSetUseSsl3--#endif---- method TlsClientConnection::set_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsClientConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTlsCertificateFlags to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_client_connection_set_validation_flags" g_tls_client_connection_set_validation_flags :: -    Ptr TlsClientConnection ->              -- conn : TInterface (Name {namespace = "Gio", name = "TlsClientConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-    IO ()--{- |-Sets /@conn@/\'s validation flags, to override the default set of-checks performed when validating a server certificate. By default,-'GI.Gio.Flags.TlsCertificateFlagsValidateAll' is used.--/Since: 2.28/--}-tlsClientConnectionSetValidationFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsClientConnection a) =>-    a-    {- ^ /@conn@/: the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' -}-    -> [Gio.Flags.TlsCertificateFlags]-    {- ^ /@flags@/: the 'GI.Gio.Flags.TlsCertificateFlags' to use -}-    -> m ()-tlsClientConnectionSetValidationFlags conn flags = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let flags' = gflagsToWord flags-    g_tls_client_connection_set_validation_flags conn' flags'-    touchManagedPtr conn-    return ()--#if ENABLE_OVERLOADING-data TlsClientConnectionSetValidationFlagsMethodInfo-instance (signature ~ ([Gio.Flags.TlsCertificateFlags] -> m ()), MonadIO m, IsTlsClientConnection a) => O.MethodInfo TlsClientConnectionSetValidationFlagsMethodInfo a signature where-    overloadedMethod _ = tlsClientConnectionSetValidationFlags--#endif---- method TlsClientConnection::new--- method type : MemberFunction--- Args : [Arg {argCName = "base_io_stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GIOStream to wrap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "server_identity", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected identity of the server", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsClientConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_client_connection_new" g_tls_client_connection_new :: -    Ptr Gio.IOStream.IOStream ->            -- base_io_stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- server_identity : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsClientConnection)--{- |-Creates a new 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' wrapping /@baseIoStream@/ (which-must have pollable input and output streams) which is assumed to-communicate with the server identified by /@serverIdentity@/.--See the documentation for 'GI.Gio.Objects.TlsConnection.TlsConnection':@/base-io-stream/@ for restrictions-on when application code can run operations on the /@baseIoStream@/ after-this function has returned.--/Since: 2.28/--}-tlsClientConnectionNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.IOStream.IsIOStream a, Gio.SocketConnectable.IsSocketConnectable b) =>-    a-    {- ^ /@baseIoStream@/: the 'GI.Gio.Objects.IOStream.IOStream' to wrap -}-    -> Maybe (b)-    {- ^ /@serverIdentity@/: the expected identity of the server -}-    -> m TlsClientConnection-    {- ^ __Returns:__ the new-'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsClientConnectionNew baseIoStream serverIdentity = liftIO $ do-    baseIoStream' <- unsafeManagedPtrCastPtr baseIoStream-    maybeServerIdentity <- case serverIdentity of-        Nothing -> return nullPtr-        Just jServerIdentity -> do-            jServerIdentity' <- unsafeManagedPtrCastPtr jServerIdentity-            return jServerIdentity'-    onException (do-        result <- propagateGError $ g_tls_client_connection_new baseIoStream' maybeServerIdentity-        checkUnexpectedReturnNULL "tlsClientConnectionNew" result-        result' <- (wrapObject TlsClientConnection) result-        touchManagedPtr baseIoStream-        whenJust serverIdentity touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/TlsClientConnection.hs-boot 
@@ -1,65 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.TlsClientConnection 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 TlsClientConnection = TlsClientConnection (ManagedPtr TlsClientConnection)-instance GObject TlsClientConnection where-class (GObject o, O.IsDescendantOf TlsClientConnection o) => IsTlsClientConnection o-instance (GObject o, O.IsDescendantOf TlsClientConnection o) => IsTlsClientConnection o-instance O.HasParentTypes TlsClientConnection-#if ENABLE_OVERLOADING-data TlsClientConnectionAcceptedCasPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionServerIdentityPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionUseSsl3PropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionValidationFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionCopySessionStateMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionGetAcceptedCasMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionGetServerIdentityMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionGetUseSsl3MethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionGetValidationFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionSetServerIdentityMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionSetUseSsl3MethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsClientConnectionSetValidationFlagsMethodInfo-#endif
− GI/Gio/Interfaces/TlsFileDatabase.hs 
@@ -1,276 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.TlsFileDatabase.TlsFileDatabase' is implemented by 'GI.Gio.Objects.TlsDatabase.TlsDatabase' objects which load-their certificate information from a file. It is an interface which-TLS library specific subtypes implement.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.TlsFileDatabase-    ( ---- * Exported types-    TlsFileDatabase(..)                     ,-    noTlsFileDatabase                       ,-    IsTlsFileDatabase                       ,-    toTlsFileDatabase                       ,--- -- * Methods--- ** new #method:new#--    tlsFileDatabaseNew                      ,----- -- * Properties--- ** anchors #attr:anchors#-{- | The path to a file containing PEM encoded certificate authority-root anchors. The certificates in this file will be treated as-root authorities for the purpose of verifying other certificates-via the 'GI.Gio.Objects.TlsDatabase.tlsDatabaseVerifyChain' operation.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    TlsFileDatabaseAnchorsPropertyInfo      ,-#endif-    clearTlsFileDatabaseAnchors             ,-    constructTlsFileDatabaseAnchors         ,-    getTlsFileDatabaseAnchors               ,-    setTlsFileDatabaseAnchors               ,-#if ENABLE_OVERLOADING-    tlsFileDatabaseAnchors                  ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase---- interface TlsFileDatabase --- | Memory-managed wrapper type.-newtype TlsFileDatabase = TlsFileDatabase (ManagedPtr TlsFileDatabase)--- | A convenience alias for `Nothing` :: `Maybe` `TlsFileDatabase`.-noTlsFileDatabase :: Maybe TlsFileDatabase-noTlsFileDatabase = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList TlsFileDatabase = TlsFileDatabaseSignalList-type TlsFileDatabaseSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_tls_file_database_get_type"-    c_g_tls_file_database_get_type :: IO GType--instance GObject TlsFileDatabase where-    gobjectType = c_g_tls_file_database_get_type-    ---- | Type class for types which can be safely cast to `TlsFileDatabase`, for instance with `toTlsFileDatabase`.-class (GObject o, O.IsDescendantOf TlsFileDatabase o) => IsTlsFileDatabase o-instance (GObject o, O.IsDescendantOf TlsFileDatabase o) => IsTlsFileDatabase o--instance O.HasParentTypes TlsFileDatabase-type instance O.ParentTypes TlsFileDatabase = '[GObject.Object.Object, Gio.TlsDatabase.TlsDatabase]---- | Cast to `TlsFileDatabase`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsFileDatabase :: (MonadIO m, IsTlsFileDatabase o) => o -> m TlsFileDatabase-toTlsFileDatabase = liftIO . unsafeCastTo TlsFileDatabase---- VVV Prop "anchors"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@anchors@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsFileDatabase #anchors-@--}-getTlsFileDatabaseAnchors :: (MonadIO m, IsTlsFileDatabase o) => o -> m (Maybe T.Text)-getTlsFileDatabaseAnchors obj = liftIO $ B.Properties.getObjectPropertyString obj "anchors"--{- |-Set the value of the “@anchors@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsFileDatabase [ #anchors 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsFileDatabaseAnchors :: (MonadIO m, IsTlsFileDatabase o) => o -> T.Text -> m ()-setTlsFileDatabaseAnchors obj val = liftIO $ B.Properties.setObjectPropertyString obj "anchors" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@anchors@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsFileDatabaseAnchors :: (IsTlsFileDatabase o) => T.Text -> IO (GValueConstruct o)-constructTlsFileDatabaseAnchors val = B.Properties.constructObjectPropertyString "anchors" (Just val)--{- |-Set the value of the “@anchors@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #anchors-@--}-clearTlsFileDatabaseAnchors :: (MonadIO m, IsTlsFileDatabase o) => o -> m ()-clearTlsFileDatabaseAnchors obj = liftIO $ B.Properties.setObjectPropertyString obj "anchors" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data TlsFileDatabaseAnchorsPropertyInfo-instance AttrInfo TlsFileDatabaseAnchorsPropertyInfo where-    type AttrAllowedOps TlsFileDatabaseAnchorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = IsTlsFileDatabase-    type AttrGetType TlsFileDatabaseAnchorsPropertyInfo = (Maybe T.Text)-    type AttrLabel TlsFileDatabaseAnchorsPropertyInfo = "anchors"-    type AttrOrigin TlsFileDatabaseAnchorsPropertyInfo = TlsFileDatabase-    attrGet _ = getTlsFileDatabaseAnchors-    attrSet _ = setTlsFileDatabaseAnchors-    attrConstruct _ = constructTlsFileDatabaseAnchors-    attrClear _ = clearTlsFileDatabaseAnchors-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsFileDatabase-type instance O.AttributeList TlsFileDatabase = TlsFileDatabaseAttributeList-type TlsFileDatabaseAttributeList = ('[ '("anchors", TlsFileDatabaseAnchorsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-tlsFileDatabaseAnchors :: AttrLabelProxy "anchors"-tlsFileDatabaseAnchors = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type family ResolveTlsFileDatabaseMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsFileDatabaseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsFileDatabaseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsFileDatabaseMethod "createCertificateHandle" o = Gio.TlsDatabase.TlsDatabaseCreateCertificateHandleMethodInfo-    ResolveTlsFileDatabaseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsFileDatabaseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsFileDatabaseMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsFileDatabaseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateForHandle" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateForHandleMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateForHandleAsync" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateForHandleAsyncMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateForHandleFinish" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateForHandleFinishMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateIssuer" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateIssuerMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateIssuerAsync" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateIssuerAsyncMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificateIssuerFinish" o = Gio.TlsDatabase.TlsDatabaseLookupCertificateIssuerFinishMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedBy" o = Gio.TlsDatabase.TlsDatabaseLookupCertificatesIssuedByMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedByAsync" o = Gio.TlsDatabase.TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo-    ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedByFinish" o = Gio.TlsDatabase.TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo-    ResolveTlsFileDatabaseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsFileDatabaseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsFileDatabaseMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsFileDatabaseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsFileDatabaseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsFileDatabaseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsFileDatabaseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsFileDatabaseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsFileDatabaseMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsFileDatabaseMethod "verifyChain" o = Gio.TlsDatabase.TlsDatabaseVerifyChainMethodInfo-    ResolveTlsFileDatabaseMethod "verifyChainAsync" o = Gio.TlsDatabase.TlsDatabaseVerifyChainAsyncMethodInfo-    ResolveTlsFileDatabaseMethod "verifyChainFinish" o = Gio.TlsDatabase.TlsDatabaseVerifyChainFinishMethodInfo-    ResolveTlsFileDatabaseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsFileDatabaseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsFileDatabaseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsFileDatabaseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsFileDatabaseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsFileDatabaseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsFileDatabaseMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsFileDatabaseMethod t TlsFileDatabase, O.MethodInfo info TlsFileDatabase p) => OL.IsLabel t (TlsFileDatabase -> 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 TlsFileDatabase::new--- method type : MemberFunction--- Args : [Arg {argCName = "anchors", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "filename of anchor certificate authorities.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsFileDatabase"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_file_database_new" g_tls_file_database_new :: -    CString ->                              -- anchors : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsFileDatabase)--{- |-Creates a new 'GI.Gio.Interfaces.TlsFileDatabase.TlsFileDatabase' which uses anchor certificate authorities-in /@anchors@/ to verify certificate chains.--The certificates in /@anchors@/ must be PEM encoded.--/Since: 2.30/--}-tlsFileDatabaseNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@anchors@/: filename of anchor certificate authorities. -}-    -> m TlsFileDatabase-    {- ^ __Returns:__ the new-'GI.Gio.Interfaces.TlsFileDatabase.TlsFileDatabase', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsFileDatabaseNew anchors = liftIO $ do-    anchors' <- stringToCString anchors-    onException (do-        result <- propagateGError $ g_tls_file_database_new anchors'-        checkUnexpectedReturnNULL "tlsFileDatabaseNew" result-        result' <- (wrapObject TlsFileDatabase) result-        freeMem anchors'-        return result'-     ) (do-        freeMem anchors'-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/TlsFileDatabase.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.TlsFileDatabase 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 TlsFileDatabase = TlsFileDatabase (ManagedPtr TlsFileDatabase)-instance GObject TlsFileDatabase where-class (GObject o, O.IsDescendantOf TlsFileDatabase o) => IsTlsFileDatabase o-instance (GObject o, O.IsDescendantOf TlsFileDatabase o) => IsTlsFileDatabase o-instance O.HasParentTypes TlsFileDatabase-#if ENABLE_OVERLOADING-data TlsFileDatabaseAnchorsPropertyInfo-#endif
− GI/Gio/Interfaces/TlsServerConnection.hs 
@@ -1,293 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection' is the server-side subclass of 'GI.Gio.Objects.TlsConnection.TlsConnection',-representing a server-side TLS connection.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.TlsServerConnection-    ( ---- * Exported types-    TlsServerConnection(..)                 ,-    noTlsServerConnection                   ,-    IsTlsServerConnection                   ,-    toTlsServerConnection                   ,--- -- * Methods--- ** new #method:new#--    tlsServerConnectionNew                  ,----- -- * Properties--- ** authenticationMode #attr:authenticationMode#-{- | The 'GI.Gio.Enums.TlsAuthenticationMode' for the server. This can be changed-before calling 'GI.Gio.Objects.TlsConnection.tlsConnectionHandshake' if you want to-rehandshake with a different mode from the initial handshake.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsServerConnectionAuthenticationModePropertyInfo,-#endif-    constructTlsServerConnectionAuthenticationMode,-    getTlsServerConnectionAuthenticationMode,-    setTlsServerConnectionAuthenticationMode,-#if ENABLE_OVERLOADING-    tlsServerConnectionAuthenticationMode   ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsConnection as Gio.TlsConnection---- interface TlsServerConnection --- | Memory-managed wrapper type.-newtype TlsServerConnection = TlsServerConnection (ManagedPtr TlsServerConnection)--- | A convenience alias for `Nothing` :: `Maybe` `TlsServerConnection`.-noTlsServerConnection :: Maybe TlsServerConnection-noTlsServerConnection = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList TlsServerConnection = TlsServerConnectionSignalList-type TlsServerConnectionSignalList = ('[ '("acceptCertificate", Gio.TlsConnection.TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_tls_server_connection_get_type"-    c_g_tls_server_connection_get_type :: IO GType--instance GObject TlsServerConnection where-    gobjectType = c_g_tls_server_connection_get_type-    ---- | Type class for types which can be safely cast to `TlsServerConnection`, for instance with `toTlsServerConnection`.-class (GObject o, O.IsDescendantOf TlsServerConnection o) => IsTlsServerConnection o-instance (GObject o, O.IsDescendantOf TlsServerConnection o) => IsTlsServerConnection o--instance O.HasParentTypes TlsServerConnection-type instance O.ParentTypes TlsServerConnection = '[GObject.Object.Object, Gio.TlsConnection.TlsConnection, Gio.IOStream.IOStream]---- | Cast to `TlsServerConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsServerConnection :: (MonadIO m, IsTlsServerConnection o) => o -> m TlsServerConnection-toTlsServerConnection = liftIO . unsafeCastTo TlsServerConnection---- VVV Prop "authentication-mode"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsAuthenticationMode"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@authentication-mode@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsServerConnection #authenticationMode-@--}-getTlsServerConnectionAuthenticationMode :: (MonadIO m, IsTlsServerConnection o) => o -> m Gio.Enums.TlsAuthenticationMode-getTlsServerConnectionAuthenticationMode obj = liftIO $ B.Properties.getObjectPropertyEnum obj "authentication-mode"--{- |-Set the value of the “@authentication-mode@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsServerConnection [ #authenticationMode 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsServerConnectionAuthenticationMode :: (MonadIO m, IsTlsServerConnection o) => o -> Gio.Enums.TlsAuthenticationMode -> m ()-setTlsServerConnectionAuthenticationMode obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "authentication-mode" val--{- |-Construct a `GValueConstruct` with valid value for the “@authentication-mode@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsServerConnectionAuthenticationMode :: (IsTlsServerConnection o) => Gio.Enums.TlsAuthenticationMode -> IO (GValueConstruct o)-constructTlsServerConnectionAuthenticationMode val = B.Properties.constructObjectPropertyEnum "authentication-mode" val--#if ENABLE_OVERLOADING-data TlsServerConnectionAuthenticationModePropertyInfo-instance AttrInfo TlsServerConnectionAuthenticationModePropertyInfo where-    type AttrAllowedOps TlsServerConnectionAuthenticationModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsServerConnectionAuthenticationModePropertyInfo = (~) Gio.Enums.TlsAuthenticationMode-    type AttrBaseTypeConstraint TlsServerConnectionAuthenticationModePropertyInfo = IsTlsServerConnection-    type AttrGetType TlsServerConnectionAuthenticationModePropertyInfo = Gio.Enums.TlsAuthenticationMode-    type AttrLabel TlsServerConnectionAuthenticationModePropertyInfo = "authentication-mode"-    type AttrOrigin TlsServerConnectionAuthenticationModePropertyInfo = TlsServerConnection-    attrGet _ = getTlsServerConnectionAuthenticationMode-    attrSet _ = setTlsServerConnectionAuthenticationMode-    attrConstruct _ = constructTlsServerConnectionAuthenticationMode-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsServerConnection-type instance O.AttributeList TlsServerConnection = TlsServerConnectionAttributeList-type TlsServerConnectionAttributeList = ('[ '("advertisedProtocols", Gio.TlsConnection.TlsConnectionAdvertisedProtocolsPropertyInfo), '("authenticationMode", TlsServerConnectionAuthenticationModePropertyInfo), '("baseIoStream", Gio.TlsConnection.TlsConnectionBaseIoStreamPropertyInfo), '("certificate", Gio.TlsConnection.TlsConnectionCertificatePropertyInfo), '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("database", Gio.TlsConnection.TlsConnectionDatabasePropertyInfo), '("inputStream", Gio.IOStream.IOStreamInputStreamPropertyInfo), '("interaction", Gio.TlsConnection.TlsConnectionInteractionPropertyInfo), '("negotiatedProtocol", Gio.TlsConnection.TlsConnectionNegotiatedProtocolPropertyInfo), '("outputStream", Gio.IOStream.IOStreamOutputStreamPropertyInfo), '("peerCertificate", Gio.TlsConnection.TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", Gio.TlsConnection.TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", Gio.TlsConnection.TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", Gio.TlsConnection.TlsConnectionRequireCloseNotifyPropertyInfo), '("useSystemCertdb", Gio.TlsConnection.TlsConnectionUseSystemCertdbPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-tlsServerConnectionAuthenticationMode :: AttrLabelProxy "authenticationMode"-tlsServerConnectionAuthenticationMode = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type family ResolveTlsServerConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsServerConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsServerConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsServerConnectionMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveTlsServerConnectionMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveTlsServerConnectionMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveTlsServerConnectionMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveTlsServerConnectionMethod "emitAcceptCertificate" o = Gio.TlsConnection.TlsConnectionEmitAcceptCertificateMethodInfo-    ResolveTlsServerConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsServerConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsServerConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsServerConnectionMethod "handshake" o = Gio.TlsConnection.TlsConnectionHandshakeMethodInfo-    ResolveTlsServerConnectionMethod "handshakeAsync" o = Gio.TlsConnection.TlsConnectionHandshakeAsyncMethodInfo-    ResolveTlsServerConnectionMethod "handshakeFinish" o = Gio.TlsConnection.TlsConnectionHandshakeFinishMethodInfo-    ResolveTlsServerConnectionMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveTlsServerConnectionMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveTlsServerConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsServerConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsServerConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsServerConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsServerConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsServerConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsServerConnectionMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveTlsServerConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsServerConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsServerConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsServerConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsServerConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsServerConnectionMethod "getCertificate" o = Gio.TlsConnection.TlsConnectionGetCertificateMethodInfo-    ResolveTlsServerConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsServerConnectionMethod "getDatabase" o = Gio.TlsConnection.TlsConnectionGetDatabaseMethodInfo-    ResolveTlsServerConnectionMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveTlsServerConnectionMethod "getInteraction" o = Gio.TlsConnection.TlsConnectionGetInteractionMethodInfo-    ResolveTlsServerConnectionMethod "getNegotiatedProtocol" o = Gio.TlsConnection.TlsConnectionGetNegotiatedProtocolMethodInfo-    ResolveTlsServerConnectionMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveTlsServerConnectionMethod "getPeerCertificate" o = Gio.TlsConnection.TlsConnectionGetPeerCertificateMethodInfo-    ResolveTlsServerConnectionMethod "getPeerCertificateErrors" o = Gio.TlsConnection.TlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveTlsServerConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsServerConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsServerConnectionMethod "getRehandshakeMode" o = Gio.TlsConnection.TlsConnectionGetRehandshakeModeMethodInfo-    ResolveTlsServerConnectionMethod "getRequireCloseNotify" o = Gio.TlsConnection.TlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveTlsServerConnectionMethod "getUseSystemCertdb" o = Gio.TlsConnection.TlsConnectionGetUseSystemCertdbMethodInfo-    ResolveTlsServerConnectionMethod "setAdvertisedProtocols" o = Gio.TlsConnection.TlsConnectionSetAdvertisedProtocolsMethodInfo-    ResolveTlsServerConnectionMethod "setCertificate" o = Gio.TlsConnection.TlsConnectionSetCertificateMethodInfo-    ResolveTlsServerConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsServerConnectionMethod "setDatabase" o = Gio.TlsConnection.TlsConnectionSetDatabaseMethodInfo-    ResolveTlsServerConnectionMethod "setInteraction" o = Gio.TlsConnection.TlsConnectionSetInteractionMethodInfo-    ResolveTlsServerConnectionMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveTlsServerConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsServerConnectionMethod "setRehandshakeMode" o = Gio.TlsConnection.TlsConnectionSetRehandshakeModeMethodInfo-    ResolveTlsServerConnectionMethod "setRequireCloseNotify" o = Gio.TlsConnection.TlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveTlsServerConnectionMethod "setUseSystemCertdb" o = Gio.TlsConnection.TlsConnectionSetUseSystemCertdbMethodInfo-    ResolveTlsServerConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsServerConnectionMethod t TlsServerConnection, O.MethodInfo info TlsServerConnection p) => OL.IsLabel t (TlsServerConnection -> 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 TlsServerConnection::new--- method type : MemberFunction--- Args : [Arg {argCName = "base_io_stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GIOStream to wrap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the default server certificate, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsServerConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_server_connection_new" g_tls_server_connection_new :: -    Ptr Gio.IOStream.IOStream ->            -- base_io_stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsServerConnection)--{- |-Creates a new 'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection' wrapping /@baseIoStream@/ (which-must have pollable input and output streams).--See the documentation for 'GI.Gio.Objects.TlsConnection.TlsConnection':@/base-io-stream/@ for restrictions-on when application code can run operations on the /@baseIoStream@/ after-this function has returned.--/Since: 2.28/--}-tlsServerConnectionNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.IOStream.IsIOStream a, Gio.TlsCertificate.IsTlsCertificate b) =>-    a-    {- ^ /@baseIoStream@/: the 'GI.Gio.Objects.IOStream.IOStream' to wrap -}-    -> Maybe (b)-    {- ^ /@certificate@/: the default server certificate, or 'Nothing' -}-    -> m TlsServerConnection-    {- ^ __Returns:__ the new-'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsServerConnectionNew baseIoStream certificate = liftIO $ do-    baseIoStream' <- unsafeManagedPtrCastPtr baseIoStream-    maybeCertificate <- case certificate of-        Nothing -> return nullPtr-        Just jCertificate -> do-            jCertificate' <- unsafeManagedPtrCastPtr jCertificate-            return jCertificate'-    onException (do-        result <- propagateGError $ g_tls_server_connection_new baseIoStream' maybeCertificate-        checkUnexpectedReturnNULL "tlsServerConnectionNew" result-        result' <- (wrapObject TlsServerConnection) result-        touchManagedPtr baseIoStream-        whenJust certificate touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Interfaces/TlsServerConnection.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.TlsServerConnection 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 TlsServerConnection = TlsServerConnection (ManagedPtr TlsServerConnection)-instance GObject TlsServerConnection where-class (GObject o, O.IsDescendantOf TlsServerConnection o) => IsTlsServerConnection o-instance (GObject o, O.IsDescendantOf TlsServerConnection o) => IsTlsServerConnection o-instance O.HasParentTypes TlsServerConnection-#if ENABLE_OVERLOADING-data TlsServerConnectionAuthenticationModePropertyInfo-#endif
− GI/Gio/Interfaces/Volume.hs 
@@ -1,1409 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Interfaces.Volume.Volume' interface represents user-visible objects that can be-mounted. Note, when porting from GnomeVFS, 'GI.Gio.Interfaces.Volume.Volume' is the moral-equivalent of @/GnomeVFSDrive/@.--Mounting a 'GI.Gio.Interfaces.Volume.Volume' instance is an asynchronous operation. For more-information about asynchronous operations, see 'GI.Gio.Interfaces.AsyncResult.AsyncResult' and-'GI.Gio.Objects.Task.Task'. To mount a 'GI.Gio.Interfaces.Volume.Volume', first call 'GI.Gio.Interfaces.Volume.volumeMount' with (at-least) the 'GI.Gio.Interfaces.Volume.Volume' instance, optionally a 'GI.Gio.Objects.MountOperation.MountOperation' object-and a 'GI.Gio.Callbacks.AsyncReadyCallback'.--Typically, one will only want to pass 'Nothing' for the-'GI.Gio.Objects.MountOperation.MountOperation' if automounting all volumes when a desktop session-starts since it\'s not desirable to put up a lot of dialogs asking-for credentials.--The callback will be fired when the operation has resolved (either-with success or failure), and a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' instance will be-passed to the callback.  That callback should then call-'GI.Gio.Interfaces.Volume.volumeMountFinish' with the 'GI.Gio.Interfaces.Volume.Volume' instance and the-'GI.Gio.Interfaces.AsyncResult.AsyncResult' data to see if the operation was completed-successfully.  If an /@error@/ is present when 'GI.Gio.Interfaces.Volume.volumeMountFinish'-is called, then it will be filled with any error information.--## Volume Identifiers # {@/volume/@-identifier}--It is sometimes necessary to directly access the underlying-operating system object behind a volume (e.g. for passing a volume-to an application via the commandline). For this purpose, GIO-allows to obtain an \'identifier\' for the volume. There can be-different kinds of identifiers, such as Hal UDIs, filesystem labels,-traditional Unix devices (e.g. @\/dev\/sda2@), UUIDs. GIO uses predefined-strings as names for the different kinds of identifiers:-'GI.Gio.Constants.VOLUME_IDENTIFIER_KIND_UUID', 'GI.Gio.Constants.VOLUME_IDENTIFIER_KIND_LABEL', etc.-Use 'GI.Gio.Interfaces.Volume.volumeGetIdentifier' to obtain an identifier for a volume.---Note that 'GI.Gio.Constants.VOLUME_IDENTIFIER_KIND_HAL_UDI' will only be available-when the gvfs hal volume monitor is in use. Other volume monitors-will generally be able to provide the 'GI.Gio.Constants.VOLUME_IDENTIFIER_KIND_UNIX_DEVICE'-identifier, which can be used to obtain a hal device by means of-@/libhal_manager_find_device_string_match()/@.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Interfaces.Volume-    ( ---- * Exported types-    Volume(..)                              ,-    noVolume                                ,-    IsVolume                                ,-    toVolume                                ,--- -- * Methods--- ** canEject #method:canEject#--#if ENABLE_OVERLOADING-    VolumeCanEjectMethodInfo                ,-#endif-    volumeCanEject                          ,----- ** canMount #method:canMount#--#if ENABLE_OVERLOADING-    VolumeCanMountMethodInfo                ,-#endif-    volumeCanMount                          ,----- ** eject #method:eject#--#if ENABLE_OVERLOADING-    VolumeEjectMethodInfo                   ,-#endif-    volumeEject                             ,----- ** ejectFinish #method:ejectFinish#--#if ENABLE_OVERLOADING-    VolumeEjectFinishMethodInfo             ,-#endif-    volumeEjectFinish                       ,----- ** ejectWithOperation #method:ejectWithOperation#--#if ENABLE_OVERLOADING-    VolumeEjectWithOperationMethodInfo      ,-#endif-    volumeEjectWithOperation                ,----- ** ejectWithOperationFinish #method:ejectWithOperationFinish#--#if ENABLE_OVERLOADING-    VolumeEjectWithOperationFinishMethodInfo,-#endif-    volumeEjectWithOperationFinish          ,----- ** enumerateIdentifiers #method:enumerateIdentifiers#--#if ENABLE_OVERLOADING-    VolumeEnumerateIdentifiersMethodInfo    ,-#endif-    volumeEnumerateIdentifiers              ,----- ** getActivationRoot #method:getActivationRoot#--#if ENABLE_OVERLOADING-    VolumeGetActivationRootMethodInfo       ,-#endif-    volumeGetActivationRoot                 ,----- ** getDrive #method:getDrive#--#if ENABLE_OVERLOADING-    VolumeGetDriveMethodInfo                ,-#endif-    volumeGetDrive                          ,----- ** getIcon #method:getIcon#--#if ENABLE_OVERLOADING-    VolumeGetIconMethodInfo                 ,-#endif-    volumeGetIcon                           ,----- ** getIdentifier #method:getIdentifier#--#if ENABLE_OVERLOADING-    VolumeGetIdentifierMethodInfo           ,-#endif-    volumeGetIdentifier                     ,----- ** getMount #method:getMount#--#if ENABLE_OVERLOADING-    VolumeGetMountMethodInfo                ,-#endif-    volumeGetMount                          ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    VolumeGetNameMethodInfo                 ,-#endif-    volumeGetName                           ,----- ** getSortKey #method:getSortKey#--#if ENABLE_OVERLOADING-    VolumeGetSortKeyMethodInfo              ,-#endif-    volumeGetSortKey                        ,----- ** getSymbolicIcon #method:getSymbolicIcon#--#if ENABLE_OVERLOADING-    VolumeGetSymbolicIconMethodInfo         ,-#endif-    volumeGetSymbolicIcon                   ,----- ** getUuid #method:getUuid#--#if ENABLE_OVERLOADING-    VolumeGetUuidMethodInfo                 ,-#endif-    volumeGetUuid                           ,----- ** mount #method:mount#--#if ENABLE_OVERLOADING-    VolumeMountMethodInfo                   ,-#endif-    volumeMount                             ,----- ** mountFinish #method:mountFinish#--#if ENABLE_OVERLOADING-    VolumeMountFinishMethodInfo             ,-#endif-    volumeMountFinish                       ,----- ** shouldAutomount #method:shouldAutomount#--#if ENABLE_OVERLOADING-    VolumeShouldAutomountMethodInfo         ,-#endif-    volumeShouldAutomount                   ,----- -- * Signals--- ** changed #signal:changed#--    C_VolumeChangedCallback                 ,-    VolumeChangedCallback                   ,-#if ENABLE_OVERLOADING-    VolumeChangedSignalInfo                 ,-#endif-    afterVolumeChanged                      ,-    genClosure_VolumeChanged                ,-    mk_VolumeChangedCallback                ,-    noVolumeChangedCallback                 ,-    onVolumeChanged                         ,-    wrap_VolumeChangedCallback              ,----- ** removed #signal:removed#--    C_VolumeRemovedCallback                 ,-    VolumeRemovedCallback                   ,-#if ENABLE_OVERLOADING-    VolumeRemovedSignalInfo                 ,-#endif-    afterVolumeRemoved                      ,-    genClosure_VolumeRemoved                ,-    mk_VolumeRemovedCallback                ,-    noVolumeRemovedCallback                 ,-    onVolumeRemoved                         ,-    wrap_VolumeRemovedCallback              ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Drive as Gio.Drive-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Mount as Gio.Mount-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.MountOperation as Gio.MountOperation---- interface Volume --- | Memory-managed wrapper type.-newtype Volume = Volume (ManagedPtr Volume)--- | A convenience alias for `Nothing` :: `Maybe` `Volume`.-noVolume :: Maybe Volume-noVolume = Nothing---- signal Volume::changed-{- |-Emitted when the volume has been changed.--}-type VolumeChangedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeChangedCallback`@.-noVolumeChangedCallback :: Maybe VolumeChangedCallback-noVolumeChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeChangedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeChangedCallback`.-foreign import ccall "wrapper"-    mk_VolumeChangedCallback :: C_VolumeChangedCallback -> IO (FunPtr C_VolumeChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeChanged :: MonadIO m => VolumeChangedCallback -> m (GClosure C_VolumeChangedCallback)-genClosure_VolumeChanged cb = liftIO $ do-    let cb' = wrap_VolumeChangedCallback cb-    mk_VolumeChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeChangedCallback` into a `C_VolumeChangedCallback`.-wrap_VolumeChangedCallback ::-    VolumeChangedCallback ->-    C_VolumeChangedCallback-wrap_VolumeChangedCallback _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' volume #changed callback-@--}-onVolumeChanged :: (IsVolume a, MonadIO m) => a -> VolumeChangedCallback -> m SignalHandlerId-onVolumeChanged obj cb = liftIO $ do-    let cb' = wrap_VolumeChangedCallback cb-    cb'' <- mk_VolumeChangedCallback 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' volume #changed callback-@--}-afterVolumeChanged :: (IsVolume a, MonadIO m) => a -> VolumeChangedCallback -> m SignalHandlerId-afterVolumeChanged obj cb = liftIO $ do-    let cb' = wrap_VolumeChangedCallback cb-    cb'' <- mk_VolumeChangedCallback cb'-    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter----- signal Volume::removed-{- |-This signal is emitted when the 'GI.Gio.Interfaces.Volume.Volume' have been removed. If-the recipient is holding references to the object they should-release them so the object can be finalized.--}-type VolumeRemovedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeRemovedCallback`@.-noVolumeRemovedCallback :: Maybe VolumeRemovedCallback-noVolumeRemovedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeRemovedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeRemovedCallback`.-foreign import ccall "wrapper"-    mk_VolumeRemovedCallback :: C_VolumeRemovedCallback -> IO (FunPtr C_VolumeRemovedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeRemoved :: MonadIO m => VolumeRemovedCallback -> m (GClosure C_VolumeRemovedCallback)-genClosure_VolumeRemoved cb = liftIO $ do-    let cb' = wrap_VolumeRemovedCallback cb-    mk_VolumeRemovedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeRemovedCallback` into a `C_VolumeRemovedCallback`.-wrap_VolumeRemovedCallback ::-    VolumeRemovedCallback ->-    C_VolumeRemovedCallback-wrap_VolumeRemovedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@removed@” 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' volume #removed callback-@--}-onVolumeRemoved :: (IsVolume a, MonadIO m) => a -> VolumeRemovedCallback -> m SignalHandlerId-onVolumeRemoved obj cb = liftIO $ do-    let cb' = wrap_VolumeRemovedCallback cb-    cb'' <- mk_VolumeRemovedCallback cb'-    connectSignalFunPtr obj "removed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@removed@” 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' volume #removed callback-@--}-afterVolumeRemoved :: (IsVolume a, MonadIO m) => a -> VolumeRemovedCallback -> m SignalHandlerId-afterVolumeRemoved obj cb = liftIO $ do-    let cb' = wrap_VolumeRemovedCallback cb-    cb'' <- mk_VolumeRemovedCallback cb'-    connectSignalFunPtr obj "removed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-data VolumeChangedSignalInfo-instance SignalInfo VolumeChangedSignalInfo where-    type HaskellCallbackType VolumeChangedSignalInfo = VolumeChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeChangedCallback cb-        cb'' <- mk_VolumeChangedCallback cb'-        connectSignalFunPtr obj "changed" cb'' connectMode--data VolumeRemovedSignalInfo-instance SignalInfo VolumeRemovedSignalInfo where-    type HaskellCallbackType VolumeRemovedSignalInfo = VolumeRemovedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeRemovedCallback cb-        cb'' <- mk_VolumeRemovedCallback cb'-        connectSignalFunPtr obj "removed" cb'' connectMode--type instance O.SignalList Volume = VolumeSignalList-type VolumeSignalList = ('[ '("changed", VolumeChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("removed", VolumeRemovedSignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "g_volume_get_type"-    c_g_volume_get_type :: IO GType--instance GObject Volume where-    gobjectType = c_g_volume_get_type-    ---- | Type class for types which can be safely cast to `Volume`, for instance with `toVolume`.-class (GObject o, O.IsDescendantOf Volume o) => IsVolume o-instance (GObject o, O.IsDescendantOf Volume o) => IsVolume o--instance O.HasParentTypes Volume-type instance O.ParentTypes Volume = '[GObject.Object.Object]---- | Cast to `Volume`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toVolume :: (MonadIO m, IsVolume o) => o -> m Volume-toVolume = liftIO . unsafeCastTo Volume--#if ENABLE_OVERLOADING-instance O.HasAttributeList Volume-type instance O.AttributeList Volume = VolumeAttributeList-type VolumeAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveVolumeMethod (t :: Symbol) (o :: *) :: * where-    ResolveVolumeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveVolumeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveVolumeMethod "canEject" o = VolumeCanEjectMethodInfo-    ResolveVolumeMethod "canMount" o = VolumeCanMountMethodInfo-    ResolveVolumeMethod "eject" o = VolumeEjectMethodInfo-    ResolveVolumeMethod "ejectFinish" o = VolumeEjectFinishMethodInfo-    ResolveVolumeMethod "ejectWithOperation" o = VolumeEjectWithOperationMethodInfo-    ResolveVolumeMethod "ejectWithOperationFinish" o = VolumeEjectWithOperationFinishMethodInfo-    ResolveVolumeMethod "enumerateIdentifiers" o = VolumeEnumerateIdentifiersMethodInfo-    ResolveVolumeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveVolumeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveVolumeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveVolumeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveVolumeMethod "mount" o = VolumeMountMethodInfo-    ResolveVolumeMethod "mountFinish" o = VolumeMountFinishMethodInfo-    ResolveVolumeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveVolumeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveVolumeMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveVolumeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveVolumeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveVolumeMethod "shouldAutomount" o = VolumeShouldAutomountMethodInfo-    ResolveVolumeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveVolumeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveVolumeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveVolumeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveVolumeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveVolumeMethod "getActivationRoot" o = VolumeGetActivationRootMethodInfo-    ResolveVolumeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveVolumeMethod "getDrive" o = VolumeGetDriveMethodInfo-    ResolveVolumeMethod "getIcon" o = VolumeGetIconMethodInfo-    ResolveVolumeMethod "getIdentifier" o = VolumeGetIdentifierMethodInfo-    ResolveVolumeMethod "getMount" o = VolumeGetMountMethodInfo-    ResolveVolumeMethod "getName" o = VolumeGetNameMethodInfo-    ResolveVolumeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveVolumeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveVolumeMethod "getSortKey" o = VolumeGetSortKeyMethodInfo-    ResolveVolumeMethod "getSymbolicIcon" o = VolumeGetSymbolicIconMethodInfo-    ResolveVolumeMethod "getUuid" o = VolumeGetUuidMethodInfo-    ResolveVolumeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveVolumeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveVolumeMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveVolumeMethod t Volume, O.MethodInfo info Volume p) => OL.IsLabel t (Volume -> 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 Volume::can_eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", 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 "g_volume_can_eject" g_volume_can_eject :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO CInt--{- |-Checks if a volume can be ejected.--}-volumeCanEject ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@volume@/ can be ejected. 'False' otherwise -}-volumeCanEject volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_can_eject volume'-    let result' = (/= 0) result-    touchManagedPtr volume-    return result'--#if ENABLE_OVERLOADING-data VolumeCanEjectMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsVolume a) => O.MethodInfo VolumeCanEjectMethodInfo a signature where-    overloadedMethod _ = volumeCanEject--#endif---- method Volume::can_mount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", 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 "g_volume_can_mount" g_volume_can_mount :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO CInt--{- |-Checks if a volume can be mounted.--}-volumeCanMount ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@volume@/ can be mounted. 'False' otherwise -}-volumeCanMount volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_can_mount volume'-    let result' = (/= 0) result-    touchManagedPtr volume-    return result'--#if ENABLE_OVERLOADING-data VolumeCanMountMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsVolume a) => O.MethodInfo VolumeCanMountMethodInfo a signature where-    overloadedMethod _ = volumeCanMount--#endif---- method Volume::eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the unmount if required for eject", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data that gets passed 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 "g_volume_eject" g_volume_eject :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    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 ()--{-# DEPRECATED volumeEject ["(Since version 2.22)","Use 'GI.Gio.Interfaces.Volume.volumeEjectWithOperation' instead."] #-}-{- |-Ejects a volume. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Volume.volumeEjectFinish' with the /@volume@/-and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' returned in the /@callback@/.--}-volumeEject ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the unmount if required for eject -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing' -}-    -> m ()-volumeEject volume flags cancellable callback = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    let flags' = gflagsToWord flags-    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-    g_volume_eject volume' flags' maybeCancellable maybeCallback userData-    touchManagedPtr volume-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data VolumeEjectMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsVolume a, Gio.Cancellable.IsCancellable b) => O.MethodInfo VolumeEjectMethodInfo a signature where-    overloadedMethod _ = volumeEject--#endif---- method Volume::eject_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a #GVolume", 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 "a #GAsyncResult", 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 "g_volume_eject_finish" g_volume_eject_finish :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED volumeEjectFinish ["(Since version 2.22)","Use 'GI.Gio.Interfaces.Volume.volumeEjectWithOperationFinish' instead."] #-}-{- |-Finishes ejecting a volume. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--}-volumeEjectFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@volume@/: pointer to a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-volumeEjectFinish volume result_ = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_volume_eject_finish volume' result_'-        touchManagedPtr volume-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data VolumeEjectFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsVolume a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo VolumeEjectFinishMethodInfo a signature where-    overloadedMethod _ = volumeEjectFinish--#endif---- method Volume::eject_with_operation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the unmount if required for eject", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation or %NULL to\n    avoid user interaction", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback, or %NULL", 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 "user data passed 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 "g_volume_eject_with_operation" g_volume_eject_with_operation :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountUnmountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Ejects a volume. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Volume.volumeEjectWithOperationFinish' with the /@volume@/-and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' data returned in the /@callback@/.--/Since: 2.22/--}-volumeEjectWithOperation ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> [Gio.Flags.MountUnmountFlags]-    {- ^ /@flags@/: flags affecting the unmount if required for eject -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation' or 'Nothing' to-    avoid user interaction -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing' -}-    -> m ()-volumeEjectWithOperation volume flags mountOperation cancellable callback = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_volume_eject_with_operation volume' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr volume-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data VolumeEjectWithOperationMethodInfo-instance (signature ~ ([Gio.Flags.MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsVolume a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo VolumeEjectWithOperationMethodInfo a signature where-    overloadedMethod _ = volumeEjectWithOperation--#endif---- method Volume::eject_with_operation_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", 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 "a #GAsyncResult", 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 "g_volume_eject_with_operation_finish" g_volume_eject_with_operation_finish :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes ejecting a volume. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--/Since: 2.22/--}-volumeEjectWithOperationFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-volumeEjectWithOperationFinish volume result_ = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_volume_eject_with_operation_finish volume' result_'-        touchManagedPtr volume-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data VolumeEjectWithOperationFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsVolume a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo VolumeEjectWithOperationFinishMethodInfo a signature where-    overloadedMethod _ = volumeEjectWithOperationFinish--#endif---- method Volume::enumerate_identifiers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_volume_enumerate_identifiers" g_volume_enumerate_identifiers :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO (Ptr CString)--{- |-Gets the kinds of [identifiers][volume-identifier] that /@volume@/ has.-Use 'GI.Gio.Interfaces.Volume.volumeGetIdentifier' to obtain the identifiers themselves.--}-volumeEnumerateIdentifiers ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m [T.Text]-    {- ^ __Returns:__ a 'Nothing'-terminated array-  of strings containing kinds of identifiers. Use 'GI.GLib.Functions.strfreev' to free. -}-volumeEnumerateIdentifiers volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_enumerate_identifiers volume'-    checkUnexpectedReturnNULL "volumeEnumerateIdentifiers" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr volume-    return result'--#if ENABLE_OVERLOADING-data VolumeEnumerateIdentifiersMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsVolume a) => O.MethodInfo VolumeEnumerateIdentifiersMethodInfo a signature where-    overloadedMethod _ = volumeEnumerateIdentifiers--#endif---- method Volume::get_activation_root--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_activation_root" g_volume_get_activation_root :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO (Ptr Gio.File.File)--{- |-Gets the activation root for a 'GI.Gio.Interfaces.Volume.Volume' if it is known ahead of-mount time. Returns 'Nothing' otherwise. If not 'Nothing' and if /@volume@/-is mounted, then the result of 'GI.Gio.Interfaces.Mount.mountGetRoot' on the-'GI.Gio.Interfaces.Mount.Mount' object obtained from 'GI.Gio.Interfaces.Volume.volumeGetMount' will always-either be equal or a prefix of what this function returns. In-other words, in code---=== /C code/->->  GMount *mount;->  GFile *mount_root->  GFile *volume_activation_root;->->  mount = g_volume_get_mount (volume); // mounted, so never NULL->  mount_root = g_mount_get_root (mount);->  volume_activation_root = g_volume_get_activation_root (volume); // assume not NULL--then the expression--=== /C code/->->  (g_file_has_prefix (volume_activation_root, mount_root) ||->   g_file_equal (volume_activation_root, mount_root))--will always be 'True'.--Activation roots are typically used in 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'-implementations to find the underlying mount to shadow, see-'GI.Gio.Interfaces.Mount.mountIsShadowed' for more details.--/Since: 2.18/--}-volumeGetActivationRoot ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m (Maybe Gio.File.File)-    {- ^ __Returns:__ the activation root of /@volume@/-    or 'Nothing'. Use 'GI.GObject.Objects.Object.objectUnref' to free. -}-volumeGetActivationRoot volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_get_activation_root volume'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Gio.File.File) result'-        return result''-    touchManagedPtr volume-    return maybeResult--#if ENABLE_OVERLOADING-data VolumeGetActivationRootMethodInfo-instance (signature ~ (m (Maybe Gio.File.File)), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetActivationRootMethodInfo a signature where-    overloadedMethod _ = volumeGetActivationRoot--#endif---- method Volume::get_drive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Drive"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_drive" g_volume_get_drive :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO (Ptr Gio.Drive.Drive)--{- |-Gets the drive for the /@volume@/.--}-volumeGetDrive ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m (Maybe Gio.Drive.Drive)-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Drive.Drive' or 'Nothing' if /@volume@/ is not-    associated with a drive. The returned object should be unreffed-    with 'GI.GObject.Objects.Object.objectUnref' when no longer needed. -}-volumeGetDrive volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_get_drive volume'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Gio.Drive.Drive) result'-        return result''-    touchManagedPtr volume-    return maybeResult--#if ENABLE_OVERLOADING-data VolumeGetDriveMethodInfo-instance (signature ~ (m (Maybe Gio.Drive.Drive)), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetDriveMethodInfo a signature where-    overloadedMethod _ = volumeGetDrive--#endif---- method Volume::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_icon" g_volume_get_icon :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the icon for /@volume@/.--}-volumeGetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon'.-    The returned object should be unreffed with 'GI.GObject.Objects.Object.objectUnref'-    when no longer needed. -}-volumeGetIcon volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_get_icon volume'-    checkUnexpectedReturnNULL "volumeGetIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr volume-    return result'--#if ENABLE_OVERLOADING-data VolumeGetIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetIconMethodInfo a signature where-    overloadedMethod _ = volumeGetIcon--#endif---- method Volume::get_identifier--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the kind of identifier to return", 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 "g_volume_get_identifier" g_volume_get_identifier :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    CString ->                              -- kind : TBasicType TUTF8-    IO CString--{- |-Gets the identifier of the given kind for /@volume@/.-See the [introduction][volume-identifier] for more-information about volume identifiers.--}-volumeGetIdentifier ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> T.Text-    {- ^ /@kind@/: the kind of identifier to return -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ a newly allocated string containing the-    requested identifier, or 'Nothing' if the 'GI.Gio.Interfaces.Volume.Volume'-    doesn\'t have this kind of identifier -}-volumeGetIdentifier volume kind = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    kind' <- textToCString kind-    result <- g_volume_get_identifier volume' kind'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr volume-    freeMem kind'-    return maybeResult--#if ENABLE_OVERLOADING-data VolumeGetIdentifierMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetIdentifierMethodInfo a signature where-    overloadedMethod _ = volumeGetIdentifier--#endif---- method Volume::get_mount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Mount"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_mount" g_volume_get_mount :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO (Ptr Gio.Mount.Mount)--{- |-Gets the mount for the /@volume@/.--}-volumeGetMount ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m (Maybe Gio.Mount.Mount)-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Mount.Mount' or 'Nothing' if /@volume@/ isn\'t mounted.-    The returned object should be unreffed with 'GI.GObject.Objects.Object.objectUnref'-    when no longer needed. -}-volumeGetMount volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_get_mount volume'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Gio.Mount.Mount) result'-        return result''-    touchManagedPtr volume-    return maybeResult--#if ENABLE_OVERLOADING-data VolumeGetMountMethodInfo-instance (signature ~ (m (Maybe Gio.Mount.Mount)), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetMountMethodInfo a signature where-    overloadedMethod _ = volumeGetMount--#endif---- method Volume::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", 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 "g_volume_get_name" g_volume_get_name :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO CString--{- |-Gets the name of /@volume@/.--}-volumeGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m T.Text-    {- ^ __Returns:__ the name for the given /@volume@/. The returned string should-    be freed with 'GI.GLib.Functions.free' when no longer needed. -}-volumeGetName volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_get_name volume'-    checkUnexpectedReturnNULL "volumeGetName" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr volume-    return result'--#if ENABLE_OVERLOADING-data VolumeGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetNameMethodInfo a signature where-    overloadedMethod _ = volumeGetName--#endif---- method Volume::get_sort_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", 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 "g_volume_get_sort_key" g_volume_get_sort_key :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO CString--{- |-Gets the sort key for /@volume@/, if any.--/Since: 2.32/--}-volumeGetSortKey ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ Sorting key for /@volume@/ or 'Nothing' if no such key is available -}-volumeGetSortKey volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_get_sort_key volume'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr volume-    return maybeResult--#if ENABLE_OVERLOADING-data VolumeGetSortKeyMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetSortKeyMethodInfo a signature where-    overloadedMethod _ = volumeGetSortKey--#endif---- method Volume::get_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_get_symbolic_icon" g_volume_get_symbolic_icon :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the symbolic icon for /@volume@/.--/Since: 2.34/--}-volumeGetSymbolicIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon'.-    The returned object should be unreffed with 'GI.GObject.Objects.Object.objectUnref'-    when no longer needed. -}-volumeGetSymbolicIcon volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_get_symbolic_icon volume'-    checkUnexpectedReturnNULL "volumeGetSymbolicIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr volume-    return result'--#if ENABLE_OVERLOADING-data VolumeGetSymbolicIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = volumeGetSymbolicIcon--#endif---- method Volume::get_uuid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", 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 "g_volume_get_uuid" g_volume_get_uuid :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO CString--{- |-Gets the UUID for the /@volume@/. The reference is typically based on-the file system UUID for the volume in question and should be-considered an opaque string. Returns 'Nothing' if there is no UUID-available.--}-volumeGetUuid ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the UUID for /@volume@/ or 'Nothing' if no UUID-    can be computed.-    The returned string should be freed with 'GI.GLib.Functions.free'-    when no longer needed. -}-volumeGetUuid volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_get_uuid volume'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr volume-    return maybeResult--#if ENABLE_OVERLOADING-data VolumeGetUuidMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsVolume a) => O.MethodInfo VolumeGetUuidMethodInfo a signature where-    overloadedMethod _ = volumeGetUuid--#endif---- method Volume::mount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "MountMountFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMountOperation or %NULL to avoid user interaction", 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 "optional #GCancellable object, %NULL to ignore", 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 "a #GAsyncReadyCallback, or %NULL", 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 "user data that gets passed 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 "g_volume_mount" g_volume_mount :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "MountMountFlags"})-    Ptr Gio.MountOperation.MountOperation -> -- mount_operation : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    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 ()--{- |-Mounts a volume. This is an asynchronous operation, and is-finished by calling 'GI.Gio.Interfaces.Volume.volumeMountFinish' with the /@volume@/-and 'GI.Gio.Interfaces.AsyncResult.AsyncResult' returned in the /@callback@/.--}-volumeMount ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> [Gio.Flags.MountMountFlags]-    {- ^ /@flags@/: flags affecting the operation -}-    -> Maybe (b)-    {- ^ /@mountOperation@/: a 'GI.Gio.Objects.MountOperation.MountOperation' or 'Nothing' to avoid user interaction -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback', or 'Nothing' -}-    -> m ()-volumeMount volume flags mountOperation cancellable callback = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    let flags' = gflagsToWord flags-    maybeMountOperation <- case mountOperation of-        Nothing -> return nullPtr-        Just jMountOperation -> do-            jMountOperation' <- unsafeManagedPtrCastPtr jMountOperation-            return jMountOperation'-    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-    g_volume_mount volume' flags' maybeMountOperation maybeCancellable maybeCallback userData-    touchManagedPtr volume-    whenJust mountOperation touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data VolumeMountMethodInfo-instance (signature ~ ([Gio.Flags.MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsVolume a, Gio.MountOperation.IsMountOperation b, Gio.Cancellable.IsCancellable c) => O.MethodInfo VolumeMountMethodInfo a signature where-    overloadedMethod _ = volumeMount--#endif---- method Volume::mount_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", 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 "a #GAsyncResult", 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 "g_volume_mount_finish" g_volume_mount_finish :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes mounting a volume. If any errors occurred during the operation,-/@error@/ will be set to contain the errors and 'False' will be returned.--If the mount operation succeeded, 'GI.Gio.Interfaces.Volume.volumeGetMount' on /@volume@/-is guaranteed to return the mount right after calling this-function; there\'s no need to listen for the \'mount-added\' signal on-'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'.--}-volumeMountFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-volumeMountFinish volume result_ = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_volume_mount_finish volume' result_'-        touchManagedPtr volume-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data VolumeMountFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsVolume a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo VolumeMountFinishMethodInfo a signature where-    overloadedMethod _ = volumeMountFinish--#endif---- method Volume::should_automount--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume", argType = TInterface (Name {namespace = "Gio", name = "Volume"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolume", 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 "g_volume_should_automount" g_volume_should_automount :: -    Ptr Volume ->                           -- volume : TInterface (Name {namespace = "Gio", name = "Volume"})-    IO CInt--{- |-Returns whether the volume should be automatically mounted.--}-volumeShouldAutomount ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolume a) =>-    a-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the volume should be automatically mounted -}-volumeShouldAutomount volume = liftIO $ do-    volume' <- unsafeManagedPtrCastPtr volume-    result <- g_volume_should_automount volume'-    let result' = (/= 0) result-    touchManagedPtr volume-    return result'--#if ENABLE_OVERLOADING-data VolumeShouldAutomountMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsVolume a) => O.MethodInfo VolumeShouldAutomountMethodInfo a signature where-    overloadedMethod _ = volumeShouldAutomount--#endif--
− GI/Gio/Interfaces/Volume.hs-boot 
@@ -1,92 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Interfaces.Volume 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 Volume = Volume (ManagedPtr Volume)-#if ENABLE_OVERLOADING-data VolumeChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeRemovedSignalInfo-#endif-instance GObject Volume where-class (GObject o, O.IsDescendantOf Volume o) => IsVolume o-instance (GObject o, O.IsDescendantOf Volume o) => IsVolume o-instance O.HasParentTypes Volume-#if ENABLE_OVERLOADING-data VolumeCanEjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeCanMountMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeEjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeEjectFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeEjectWithOperationMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeEjectWithOperationFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeEnumerateIdentifiersMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetActivationRootMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetDriveMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetIdentifierMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetMountMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetSortKeyMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetSymbolicIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeGetUuidMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMountMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMountFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeShouldAutomountMethodInfo-#endif
− GI/Gio/Objects.hs 
@@ -1,249 +0,0 @@---{- |-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.Gio.Objects-    (     module GI.Gio.Objects.AppInfoMonitor    ,-    module GI.Gio.Objects.AppLaunchContext  ,-    module GI.Gio.Objects.Application       ,-    module GI.Gio.Objects.ApplicationCommandLine,-    module GI.Gio.Objects.BufferedInputStream,-    module GI.Gio.Objects.BufferedOutputStream,-    module GI.Gio.Objects.BytesIcon         ,-    module GI.Gio.Objects.Cancellable       ,-    module GI.Gio.Objects.CharsetConverter  ,-    module GI.Gio.Objects.ConverterInputStream,-    module GI.Gio.Objects.ConverterOutputStream,-    module GI.Gio.Objects.Credentials       ,-    module GI.Gio.Objects.DBusActionGroup   ,-    module GI.Gio.Objects.DBusAuthObserver  ,-    module GI.Gio.Objects.DBusConnection    ,-    module GI.Gio.Objects.DBusInterfaceSkeleton,-    module GI.Gio.Objects.DBusMenuModel     ,-    module GI.Gio.Objects.DBusMessage       ,-    module GI.Gio.Objects.DBusMethodInvocation,-    module GI.Gio.Objects.DBusObjectManagerClient,-    module GI.Gio.Objects.DBusObjectManagerServer,-    module GI.Gio.Objects.DBusObjectProxy   ,-    module GI.Gio.Objects.DBusObjectSkeleton,-    module GI.Gio.Objects.DBusProxy         ,-    module GI.Gio.Objects.DBusServer        ,-    module GI.Gio.Objects.DataInputStream   ,-    module GI.Gio.Objects.DataOutputStream  ,-    module GI.Gio.Objects.DesktopAppInfo    ,-    module GI.Gio.Objects.Emblem            ,-    module GI.Gio.Objects.EmblemedIcon      ,-    module GI.Gio.Objects.FileEnumerator    ,-    module GI.Gio.Objects.FileIOStream      ,-    module GI.Gio.Objects.FileIcon          ,-    module GI.Gio.Objects.FileInfo          ,-    module GI.Gio.Objects.FileInputStream   ,-    module GI.Gio.Objects.FileMonitor       ,-    module GI.Gio.Objects.FileOutputStream  ,-    module GI.Gio.Objects.FilenameCompleter ,-    module GI.Gio.Objects.FilterInputStream ,-    module GI.Gio.Objects.FilterOutputStream,-    module GI.Gio.Objects.IOStream          ,-    module GI.Gio.Objects.InetAddress       ,-    module GI.Gio.Objects.InetAddressMask   ,-    module GI.Gio.Objects.InetSocketAddress ,-    module GI.Gio.Objects.InputStream       ,-    module GI.Gio.Objects.ListStore         ,-    module GI.Gio.Objects.MemoryInputStream ,-    module GI.Gio.Objects.MemoryOutputStream,-    module GI.Gio.Objects.Menu              ,-    module GI.Gio.Objects.MenuAttributeIter ,-    module GI.Gio.Objects.MenuItem          ,-    module GI.Gio.Objects.MenuLinkIter      ,-    module GI.Gio.Objects.MenuModel         ,-    module GI.Gio.Objects.MountOperation    ,-    module GI.Gio.Objects.NativeVolumeMonitor,-    module GI.Gio.Objects.NetworkAddress    ,-    module GI.Gio.Objects.NetworkService    ,-    module GI.Gio.Objects.Notification      ,-    module GI.Gio.Objects.OutputStream      ,-    module GI.Gio.Objects.Permission        ,-    module GI.Gio.Objects.PropertyAction    ,-    module GI.Gio.Objects.ProxyAddress      ,-    module GI.Gio.Objects.ProxyAddressEnumerator,-    module GI.Gio.Objects.Resolver          ,-    module GI.Gio.Objects.Settings          ,-    module GI.Gio.Objects.SettingsBackend   ,-    module GI.Gio.Objects.SimpleAction      ,-    module GI.Gio.Objects.SimpleActionGroup ,-    module GI.Gio.Objects.SimpleAsyncResult ,-    module GI.Gio.Objects.SimpleIOStream    ,-    module GI.Gio.Objects.SimplePermission  ,-    module GI.Gio.Objects.SimpleProxyResolver,-    module GI.Gio.Objects.Socket            ,-    module GI.Gio.Objects.SocketAddress     ,-    module GI.Gio.Objects.SocketAddressEnumerator,-    module GI.Gio.Objects.SocketClient      ,-    module GI.Gio.Objects.SocketConnection  ,-    module GI.Gio.Objects.SocketControlMessage,-    module GI.Gio.Objects.SocketListener    ,-    module GI.Gio.Objects.SocketService     ,-    module GI.Gio.Objects.Subprocess        ,-    module GI.Gio.Objects.SubprocessLauncher,-    module GI.Gio.Objects.Task              ,-    module GI.Gio.Objects.TcpConnection     ,-    module GI.Gio.Objects.TcpWrapperConnection,-    module GI.Gio.Objects.TestDBus          ,-    module GI.Gio.Objects.ThemedIcon        ,-    module GI.Gio.Objects.ThreadedSocketService,-    module GI.Gio.Objects.TlsCertificate    ,-    module GI.Gio.Objects.TlsConnection     ,-    module GI.Gio.Objects.TlsDatabase       ,-    module GI.Gio.Objects.TlsInteraction    ,-    module GI.Gio.Objects.TlsPassword       ,-    module GI.Gio.Objects.UnixConnection    ,-    module GI.Gio.Objects.UnixCredentialsMessage,-    module GI.Gio.Objects.UnixFDList        ,-    module GI.Gio.Objects.UnixFDMessage     ,-    module GI.Gio.Objects.UnixInputStream   ,-    module GI.Gio.Objects.UnixMountMonitor  ,-    module GI.Gio.Objects.UnixOutputStream  ,-    module GI.Gio.Objects.UnixSocketAddress ,-    module GI.Gio.Objects.Vfs               ,-    module GI.Gio.Objects.VolumeMonitor     ,-    module GI.Gio.Objects.ZlibCompressor    ,-    module GI.Gio.Objects.ZlibDecompressor  ,---    ) where--import GI.Gio.Objects.AppInfoMonitor-import GI.Gio.Objects.AppLaunchContext-import GI.Gio.Objects.Application-import GI.Gio.Objects.ApplicationCommandLine-import GI.Gio.Objects.BufferedInputStream-import GI.Gio.Objects.BufferedOutputStream-import GI.Gio.Objects.BytesIcon-import GI.Gio.Objects.Cancellable-import GI.Gio.Objects.CharsetConverter-import GI.Gio.Objects.ConverterInputStream-import GI.Gio.Objects.ConverterOutputStream-import GI.Gio.Objects.Credentials-import GI.Gio.Objects.DBusActionGroup-import GI.Gio.Objects.DBusAuthObserver-import GI.Gio.Objects.DBusConnection-import GI.Gio.Objects.DBusInterfaceSkeleton-import GI.Gio.Objects.DBusMenuModel-import GI.Gio.Objects.DBusMessage-import GI.Gio.Objects.DBusMethodInvocation-import GI.Gio.Objects.DBusObjectManagerClient-import GI.Gio.Objects.DBusObjectManagerServer-import GI.Gio.Objects.DBusObjectProxy-import GI.Gio.Objects.DBusObjectSkeleton-import GI.Gio.Objects.DBusProxy-import GI.Gio.Objects.DBusServer-import GI.Gio.Objects.DataInputStream-import GI.Gio.Objects.DataOutputStream-import GI.Gio.Objects.DesktopAppInfo-import GI.Gio.Objects.Emblem-import GI.Gio.Objects.EmblemedIcon-import GI.Gio.Objects.FileEnumerator-import GI.Gio.Objects.FileIOStream-import GI.Gio.Objects.FileIcon-import GI.Gio.Objects.FileInfo-import GI.Gio.Objects.FileInputStream-import GI.Gio.Objects.FileMonitor-import GI.Gio.Objects.FileOutputStream-import GI.Gio.Objects.FilenameCompleter-import GI.Gio.Objects.FilterInputStream-import GI.Gio.Objects.FilterOutputStream-import GI.Gio.Objects.IOStream-import GI.Gio.Objects.InetAddress-import GI.Gio.Objects.InetAddressMask-import GI.Gio.Objects.InetSocketAddress-import GI.Gio.Objects.InputStream-import GI.Gio.Objects.ListStore-import GI.Gio.Objects.MemoryInputStream-import GI.Gio.Objects.MemoryOutputStream-import GI.Gio.Objects.Menu-import GI.Gio.Objects.MenuAttributeIter-import GI.Gio.Objects.MenuItem-import GI.Gio.Objects.MenuLinkIter-import GI.Gio.Objects.MenuModel-import GI.Gio.Objects.MountOperation-import GI.Gio.Objects.NativeVolumeMonitor-import GI.Gio.Objects.NetworkAddress-import GI.Gio.Objects.NetworkService-import GI.Gio.Objects.Notification-import GI.Gio.Objects.OutputStream-import GI.Gio.Objects.Permission-import GI.Gio.Objects.PropertyAction-import GI.Gio.Objects.ProxyAddress-import GI.Gio.Objects.ProxyAddressEnumerator-import GI.Gio.Objects.Resolver-import GI.Gio.Objects.Settings-import GI.Gio.Objects.SettingsBackend-import GI.Gio.Objects.SimpleAction-import GI.Gio.Objects.SimpleActionGroup-import GI.Gio.Objects.SimpleAsyncResult-import GI.Gio.Objects.SimpleIOStream-import GI.Gio.Objects.SimplePermission-import GI.Gio.Objects.SimpleProxyResolver-import GI.Gio.Objects.Socket-import GI.Gio.Objects.SocketAddress-import GI.Gio.Objects.SocketAddressEnumerator-import GI.Gio.Objects.SocketClient-import GI.Gio.Objects.SocketConnection-import GI.Gio.Objects.SocketControlMessage-import GI.Gio.Objects.SocketListener-import GI.Gio.Objects.SocketService-import GI.Gio.Objects.Subprocess-import GI.Gio.Objects.SubprocessLauncher-import GI.Gio.Objects.Task-import GI.Gio.Objects.TcpConnection-import GI.Gio.Objects.TcpWrapperConnection-import GI.Gio.Objects.TestDBus-import GI.Gio.Objects.ThemedIcon-import GI.Gio.Objects.ThreadedSocketService-import GI.Gio.Objects.TlsCertificate-import GI.Gio.Objects.TlsConnection-import GI.Gio.Objects.TlsDatabase-import GI.Gio.Objects.TlsInteraction-import GI.Gio.Objects.TlsPassword-import GI.Gio.Objects.UnixConnection-import GI.Gio.Objects.UnixCredentialsMessage-import GI.Gio.Objects.UnixFDList-import GI.Gio.Objects.UnixFDMessage-import GI.Gio.Objects.UnixInputStream-import GI.Gio.Objects.UnixMountMonitor-import GI.Gio.Objects.UnixOutputStream-import GI.Gio.Objects.UnixSocketAddress-import GI.Gio.Objects.Vfs-import GI.Gio.Objects.VolumeMonitor-import GI.Gio.Objects.ZlibCompressor-import GI.Gio.Objects.ZlibDecompressor--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---
− GI/Gio/Objects/AppInfoMonitor.hs 
@@ -1,276 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.AppInfoMonitor.AppInfoMonitor' is a very simple object used for monitoring the app-info database for changes (ie: newly installed or removed-applications).--Call 'GI.Gio.Objects.AppInfoMonitor.appInfoMonitorGet' to get a 'GI.Gio.Objects.AppInfoMonitor.AppInfoMonitor' and connect-to the \"changed\" signal.--In the usual case, applications should try to make note of the change-(doing things like invalidating caches) but not act on it.  In-particular, applications should avoid making calls to 'GI.Gio.Interfaces.AppInfo.AppInfo' APIs-in response to the change signal, deferring these until the time that-the data is actually required.  The exception to this case is when-application information is actually being displayed on the screen-(eg: during a search or when the list of all applications is shown).-The reason for this is that changes to the list of installed-applications often come in groups (like during system updates) and-rescanning the list on every change is pointless and expensive.--/Since: 2.40/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.AppInfoMonitor-    ( ---- * Exported types-    AppInfoMonitor(..)                      ,-    IsAppInfoMonitor                        ,-    toAppInfoMonitor                        ,-    noAppInfoMonitor                        ,--- -- * Methods--- ** get #method:get#--    appInfoMonitorGet                       ,----- -- * Signals--- ** changed #signal:changed#--    AppInfoMonitorChangedCallback           ,-#if ENABLE_OVERLOADING-    AppInfoMonitorChangedSignalInfo         ,-#endif-    C_AppInfoMonitorChangedCallback         ,-    afterAppInfoMonitorChanged              ,-    genClosure_AppInfoMonitorChanged        ,-    mk_AppInfoMonitorChangedCallback        ,-    noAppInfoMonitorChangedCallback         ,-    onAppInfoMonitorChanged                 ,-    wrap_AppInfoMonitorChangedCallback      ,-----    ) 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 AppInfoMonitor = AppInfoMonitor (ManagedPtr AppInfoMonitor)-foreign import ccall "g_app_info_monitor_get_type"-    c_g_app_info_monitor_get_type :: IO GType--instance GObject AppInfoMonitor where-    gobjectType = c_g_app_info_monitor_get_type-    ---- | Type class for types which can be safely cast to `AppInfoMonitor`, for instance with `toAppInfoMonitor`.-class (GObject o, O.IsDescendantOf AppInfoMonitor o) => IsAppInfoMonitor o-instance (GObject o, O.IsDescendantOf AppInfoMonitor o) => IsAppInfoMonitor o--instance O.HasParentTypes AppInfoMonitor-type instance O.ParentTypes AppInfoMonitor = '[GObject.Object.Object]---- | Cast to `AppInfoMonitor`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAppInfoMonitor :: (MonadIO m, IsAppInfoMonitor o) => o -> m AppInfoMonitor-toAppInfoMonitor = liftIO . unsafeCastTo AppInfoMonitor---- | A convenience alias for `Nothing` :: `Maybe` `AppInfoMonitor`.-noAppInfoMonitor :: Maybe AppInfoMonitor-noAppInfoMonitor = Nothing--#if ENABLE_OVERLOADING-type family ResolveAppInfoMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveAppInfoMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAppInfoMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAppInfoMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAppInfoMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAppInfoMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAppInfoMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAppInfoMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAppInfoMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAppInfoMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAppInfoMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAppInfoMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAppInfoMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAppInfoMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAppInfoMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAppInfoMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAppInfoMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAppInfoMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAppInfoMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAppInfoMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAppInfoMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAppInfoMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAppInfoMonitorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAppInfoMonitorMethod t AppInfoMonitor, O.MethodInfo info AppInfoMonitor p) => OL.IsLabel t (AppInfoMonitor -> 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 AppInfoMonitor::changed-{- |-Signal emitted when the app info database for changes (ie: newly installed-or removed applications).--}-type AppInfoMonitorChangedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AppInfoMonitorChangedCallback`@.-noAppInfoMonitorChangedCallback :: Maybe AppInfoMonitorChangedCallback-noAppInfoMonitorChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_AppInfoMonitorChangedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_AppInfoMonitorChangedCallback`.-foreign import ccall "wrapper"-    mk_AppInfoMonitorChangedCallback :: C_AppInfoMonitorChangedCallback -> IO (FunPtr C_AppInfoMonitorChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_AppInfoMonitorChanged :: MonadIO m => AppInfoMonitorChangedCallback -> m (GClosure C_AppInfoMonitorChangedCallback)-genClosure_AppInfoMonitorChanged cb = liftIO $ do-    let cb' = wrap_AppInfoMonitorChangedCallback cb-    mk_AppInfoMonitorChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `AppInfoMonitorChangedCallback` into a `C_AppInfoMonitorChangedCallback`.-wrap_AppInfoMonitorChangedCallback ::-    AppInfoMonitorChangedCallback ->-    C_AppInfoMonitorChangedCallback-wrap_AppInfoMonitorChangedCallback _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' appInfoMonitor #changed callback-@--}-onAppInfoMonitorChanged :: (IsAppInfoMonitor a, MonadIO m) => a -> AppInfoMonitorChangedCallback -> m SignalHandlerId-onAppInfoMonitorChanged obj cb = liftIO $ do-    let cb' = wrap_AppInfoMonitorChangedCallback cb-    cb'' <- mk_AppInfoMonitorChangedCallback 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' appInfoMonitor #changed callback-@--}-afterAppInfoMonitorChanged :: (IsAppInfoMonitor a, MonadIO m) => a -> AppInfoMonitorChangedCallback -> m SignalHandlerId-afterAppInfoMonitorChanged obj cb = liftIO $ do-    let cb' = wrap_AppInfoMonitorChangedCallback cb-    cb'' <- mk_AppInfoMonitorChangedCallback cb'-    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList AppInfoMonitor-type instance O.AttributeList AppInfoMonitor = AppInfoMonitorAttributeList-type AppInfoMonitorAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data AppInfoMonitorChangedSignalInfo-instance SignalInfo AppInfoMonitorChangedSignalInfo where-    type HaskellCallbackType AppInfoMonitorChangedSignalInfo = AppInfoMonitorChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_AppInfoMonitorChangedCallback cb-        cb'' <- mk_AppInfoMonitorChangedCallback cb'-        connectSignalFunPtr obj "changed" cb'' connectMode--type instance O.SignalList AppInfoMonitor = AppInfoMonitorSignalList-type AppInfoMonitorSignalList = ('[ '("changed", AppInfoMonitorChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method AppInfoMonitor::get--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppInfoMonitor"}))--- throws : False--- Skip return : False--foreign import ccall "g_app_info_monitor_get" g_app_info_monitor_get :: -    IO (Ptr AppInfoMonitor)--{- |-Gets the 'GI.Gio.Objects.AppInfoMonitor.AppInfoMonitor' for the current thread-default main-context.--The 'GI.Gio.Objects.AppInfoMonitor.AppInfoMonitor' will emit a \"changed\" signal in the-thread-default main context whenever the list of installed-applications (as reported by 'GI.Gio.Functions.appInfoGetAll') may have changed.--You must only call 'GI.GObject.Objects.Object.objectUnref' on the return value from under-the same main context as you created it.--/Since: 2.40/--}-appInfoMonitorGet ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m AppInfoMonitor-    {- ^ __Returns:__ a reference to a 'GI.Gio.Objects.AppInfoMonitor.AppInfoMonitor' -}-appInfoMonitorGet  = liftIO $ do-    result <- g_app_info_monitor_get-    checkUnexpectedReturnNULL "appInfoMonitorGet" result-    result' <- (wrapObject AppInfoMonitor) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/AppInfoMonitor.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.AppInfoMonitor 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 AppInfoMonitor = AppInfoMonitor (ManagedPtr AppInfoMonitor)-instance GObject AppInfoMonitor where-class (GObject o, O.IsDescendantOf AppInfoMonitor o) => IsAppInfoMonitor o-instance (GObject o, O.IsDescendantOf AppInfoMonitor o) => IsAppInfoMonitor o-instance O.HasParentTypes AppInfoMonitor-#if ENABLE_OVERLOADING-data AppInfoMonitorChangedSignalInfo-#endif
− GI/Gio/Objects/AppLaunchContext.hs 
@@ -1,691 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Integrating the launch with the launching application. This is used to-handle for instance startup notification and launching the new application-on the same screen as the launching window.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.AppLaunchContext-    ( ---- * Exported types-    AppLaunchContext(..)                    ,-    IsAppLaunchContext                      ,-    toAppLaunchContext                      ,-    noAppLaunchContext                      ,--- -- * Methods--- ** getDisplay #method:getDisplay#--#if ENABLE_OVERLOADING-    AppLaunchContextGetDisplayMethodInfo    ,-#endif-    appLaunchContextGetDisplay              ,----- ** getEnvironment #method:getEnvironment#--#if ENABLE_OVERLOADING-    AppLaunchContextGetEnvironmentMethodInfo,-#endif-    appLaunchContextGetEnvironment          ,----- ** getStartupNotifyId #method:getStartupNotifyId#--#if ENABLE_OVERLOADING-    AppLaunchContextGetStartupNotifyIdMethodInfo,-#endif-    appLaunchContextGetStartupNotifyId      ,----- ** launchFailed #method:launchFailed#--#if ENABLE_OVERLOADING-    AppLaunchContextLaunchFailedMethodInfo  ,-#endif-    appLaunchContextLaunchFailed            ,----- ** new #method:new#--    appLaunchContextNew                     ,----- ** setenv #method:setenv#--#if ENABLE_OVERLOADING-    AppLaunchContextSetenvMethodInfo        ,-#endif-    appLaunchContextSetenv                  ,----- ** unsetenv #method:unsetenv#--#if ENABLE_OVERLOADING-    AppLaunchContextUnsetenvMethodInfo      ,-#endif-    appLaunchContextUnsetenv                ,----- -- * Signals--- ** launchFailed #signal:launchFailed#--    AppLaunchContextLaunchFailedCallback    ,-#if ENABLE_OVERLOADING-    AppLaunchContextLaunchFailedSignalInfo  ,-#endif-    C_AppLaunchContextLaunchFailedCallback  ,-    afterAppLaunchContextLaunchFailed       ,-    genClosure_AppLaunchContextLaunchFailed ,-    mk_AppLaunchContextLaunchFailedCallback ,-    noAppLaunchContextLaunchFailedCallback  ,-    onAppLaunchContextLaunchFailed          ,-    wrap_AppLaunchContextLaunchFailedCallback,----- ** launched #signal:launched#--    AppLaunchContextLaunchedCallback        ,-#if ENABLE_OVERLOADING-    AppLaunchContextLaunchedSignalInfo      ,-#endif-    C_AppLaunchContextLaunchedCallback      ,-    afterAppLaunchContextLaunched           ,-    genClosure_AppLaunchContextLaunched     ,-    mk_AppLaunchContextLaunchedCallback     ,-    noAppLaunchContextLaunchedCallback      ,-    onAppLaunchContextLaunched              ,-    wrap_AppLaunchContextLaunchedCallback   ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File---- | Memory-managed wrapper type.-newtype AppLaunchContext = AppLaunchContext (ManagedPtr AppLaunchContext)-foreign import ccall "g_app_launch_context_get_type"-    c_g_app_launch_context_get_type :: IO GType--instance GObject AppLaunchContext where-    gobjectType = c_g_app_launch_context_get_type-    ---- | Type class for types which can be safely cast to `AppLaunchContext`, for instance with `toAppLaunchContext`.-class (GObject o, O.IsDescendantOf AppLaunchContext o) => IsAppLaunchContext o-instance (GObject o, O.IsDescendantOf AppLaunchContext o) => IsAppLaunchContext o--instance O.HasParentTypes AppLaunchContext-type instance O.ParentTypes AppLaunchContext = '[GObject.Object.Object]---- | Cast to `AppLaunchContext`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAppLaunchContext :: (MonadIO m, IsAppLaunchContext o) => o -> m AppLaunchContext-toAppLaunchContext = liftIO . unsafeCastTo AppLaunchContext---- | A convenience alias for `Nothing` :: `Maybe` `AppLaunchContext`.-noAppLaunchContext :: Maybe AppLaunchContext-noAppLaunchContext = Nothing--#if ENABLE_OVERLOADING-type family ResolveAppLaunchContextMethod (t :: Symbol) (o :: *) :: * where-    ResolveAppLaunchContextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAppLaunchContextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAppLaunchContextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAppLaunchContextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAppLaunchContextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAppLaunchContextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAppLaunchContextMethod "launchFailed" o = AppLaunchContextLaunchFailedMethodInfo-    ResolveAppLaunchContextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAppLaunchContextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAppLaunchContextMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAppLaunchContextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAppLaunchContextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAppLaunchContextMethod "setenv" o = AppLaunchContextSetenvMethodInfo-    ResolveAppLaunchContextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAppLaunchContextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAppLaunchContextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAppLaunchContextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAppLaunchContextMethod "unsetenv" o = AppLaunchContextUnsetenvMethodInfo-    ResolveAppLaunchContextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAppLaunchContextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAppLaunchContextMethod "getDisplay" o = AppLaunchContextGetDisplayMethodInfo-    ResolveAppLaunchContextMethod "getEnvironment" o = AppLaunchContextGetEnvironmentMethodInfo-    ResolveAppLaunchContextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAppLaunchContextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAppLaunchContextMethod "getStartupNotifyId" o = AppLaunchContextGetStartupNotifyIdMethodInfo-    ResolveAppLaunchContextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAppLaunchContextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAppLaunchContextMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, O.MethodInfo info AppLaunchContext p) => OL.IsLabel t (AppLaunchContext -> 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 AppLaunchContext::launch-failed-{- |-The ::launch-failed signal is emitted when a 'GI.Gio.Interfaces.AppInfo.AppInfo' launch-fails. The startup notification id is provided, so that the launcher-can cancel the startup notification.--/Since: 2.36/--}-type AppLaunchContextLaunchFailedCallback =-    T.Text-    {- ^ /@startupNotifyId@/: the startup notification id for the failed launch -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AppLaunchContextLaunchFailedCallback`@.-noAppLaunchContextLaunchFailedCallback :: Maybe AppLaunchContextLaunchFailedCallback-noAppLaunchContextLaunchFailedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_AppLaunchContextLaunchFailedCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_AppLaunchContextLaunchFailedCallback`.-foreign import ccall "wrapper"-    mk_AppLaunchContextLaunchFailedCallback :: C_AppLaunchContextLaunchFailedCallback -> IO (FunPtr C_AppLaunchContextLaunchFailedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_AppLaunchContextLaunchFailed :: MonadIO m => AppLaunchContextLaunchFailedCallback -> m (GClosure C_AppLaunchContextLaunchFailedCallback)-genClosure_AppLaunchContextLaunchFailed cb = liftIO $ do-    let cb' = wrap_AppLaunchContextLaunchFailedCallback cb-    mk_AppLaunchContextLaunchFailedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `AppLaunchContextLaunchFailedCallback` into a `C_AppLaunchContextLaunchFailedCallback`.-wrap_AppLaunchContextLaunchFailedCallback ::-    AppLaunchContextLaunchFailedCallback ->-    C_AppLaunchContextLaunchFailedCallback-wrap_AppLaunchContextLaunchFailedCallback _cb _ startupNotifyId _ = do-    startupNotifyId' <- cstringToText startupNotifyId-    _cb  startupNotifyId'---{- |-Connect a signal handler for the “@launch-failed@” 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' appLaunchContext #launchFailed callback-@--}-onAppLaunchContextLaunchFailed :: (IsAppLaunchContext a, MonadIO m) => a -> AppLaunchContextLaunchFailedCallback -> m SignalHandlerId-onAppLaunchContextLaunchFailed obj cb = liftIO $ do-    let cb' = wrap_AppLaunchContextLaunchFailedCallback cb-    cb'' <- mk_AppLaunchContextLaunchFailedCallback cb'-    connectSignalFunPtr obj "launch-failed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@launch-failed@” 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' appLaunchContext #launchFailed callback-@--}-afterAppLaunchContextLaunchFailed :: (IsAppLaunchContext a, MonadIO m) => a -> AppLaunchContextLaunchFailedCallback -> m SignalHandlerId-afterAppLaunchContextLaunchFailed obj cb = liftIO $ do-    let cb' = wrap_AppLaunchContextLaunchFailedCallback cb-    cb'' <- mk_AppLaunchContextLaunchFailedCallback cb'-    connectSignalFunPtr obj "launch-failed" cb'' SignalConnectAfter----- signal AppLaunchContext::launched-{- |-The ::launched signal is emitted when a 'GI.Gio.Interfaces.AppInfo.AppInfo' is successfully-launched. The /@platformData@/ is an GVariant dictionary mapping-strings to variants (ie a{sv}), which contains additional,-platform-specific data about this launch. On UNIX, at least the-\"pid\" and \"startup-notification-id\" keys will be present.--/Since: 2.36/--}-type AppLaunchContextLaunchedCallback =-    Gio.AppInfo.AppInfo-    {- ^ /@info@/: the 'GI.Gio.Interfaces.AppInfo.AppInfo' that was just launched -}-    -> GVariant-    {- ^ /@platformData@/: additional platform-specific data for this launch -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AppLaunchContextLaunchedCallback`@.-noAppLaunchContextLaunchedCallback :: Maybe AppLaunchContextLaunchedCallback-noAppLaunchContextLaunchedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_AppLaunchContextLaunchedCallback =-    Ptr () ->                               -- object-    Ptr Gio.AppInfo.AppInfo ->-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_AppLaunchContextLaunchedCallback`.-foreign import ccall "wrapper"-    mk_AppLaunchContextLaunchedCallback :: C_AppLaunchContextLaunchedCallback -> IO (FunPtr C_AppLaunchContextLaunchedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_AppLaunchContextLaunched :: MonadIO m => AppLaunchContextLaunchedCallback -> m (GClosure C_AppLaunchContextLaunchedCallback)-genClosure_AppLaunchContextLaunched cb = liftIO $ do-    let cb' = wrap_AppLaunchContextLaunchedCallback cb-    mk_AppLaunchContextLaunchedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `AppLaunchContextLaunchedCallback` into a `C_AppLaunchContextLaunchedCallback`.-wrap_AppLaunchContextLaunchedCallback ::-    AppLaunchContextLaunchedCallback ->-    C_AppLaunchContextLaunchedCallback-wrap_AppLaunchContextLaunchedCallback _cb _ info platformData _ = do-    info' <- (newObject Gio.AppInfo.AppInfo) info-    platformData' <- B.GVariant.newGVariantFromPtr platformData-    _cb  info' platformData'---{- |-Connect a signal handler for the “@launched@” 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' appLaunchContext #launched callback-@--}-onAppLaunchContextLaunched :: (IsAppLaunchContext a, MonadIO m) => a -> AppLaunchContextLaunchedCallback -> m SignalHandlerId-onAppLaunchContextLaunched obj cb = liftIO $ do-    let cb' = wrap_AppLaunchContextLaunchedCallback cb-    cb'' <- mk_AppLaunchContextLaunchedCallback cb'-    connectSignalFunPtr obj "launched" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@launched@” 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' appLaunchContext #launched callback-@--}-afterAppLaunchContextLaunched :: (IsAppLaunchContext a, MonadIO m) => a -> AppLaunchContextLaunchedCallback -> m SignalHandlerId-afterAppLaunchContextLaunched obj cb = liftIO $ do-    let cb' = wrap_AppLaunchContextLaunchedCallback cb-    cb'' <- mk_AppLaunchContextLaunchedCallback cb'-    connectSignalFunPtr obj "launched" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList AppLaunchContext-type instance O.AttributeList AppLaunchContext = AppLaunchContextAttributeList-type AppLaunchContextAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data AppLaunchContextLaunchFailedSignalInfo-instance SignalInfo AppLaunchContextLaunchFailedSignalInfo where-    type HaskellCallbackType AppLaunchContextLaunchFailedSignalInfo = AppLaunchContextLaunchFailedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_AppLaunchContextLaunchFailedCallback cb-        cb'' <- mk_AppLaunchContextLaunchFailedCallback cb'-        connectSignalFunPtr obj "launch-failed" cb'' connectMode--data AppLaunchContextLaunchedSignalInfo-instance SignalInfo AppLaunchContextLaunchedSignalInfo where-    type HaskellCallbackType AppLaunchContextLaunchedSignalInfo = AppLaunchContextLaunchedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_AppLaunchContextLaunchedCallback cb-        cb'' <- mk_AppLaunchContextLaunchedCallback cb'-        connectSignalFunPtr obj "launched" cb'' connectMode--type instance O.SignalList AppLaunchContext = AppLaunchContextSignalList-type AppLaunchContextSignalList = ('[ '("launchFailed", AppLaunchContextLaunchFailedSignalInfo), '("launched", AppLaunchContextLaunchedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method AppLaunchContext::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}))--- throws : False--- Skip return : False--foreign import ccall "g_app_launch_context_new" g_app_launch_context_new :: -    IO (Ptr AppLaunchContext)--{- |-Creates a new application launch context. This is not normally used,-instead you instantiate a subclass of this, such as @/GdkAppLaunchContext/@.--}-appLaunchContextNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m AppLaunchContext-    {- ^ __Returns:__ a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext'. -}-appLaunchContextNew  = liftIO $ do-    result <- g_app_launch_context_new-    checkUnexpectedReturnNULL "appLaunchContextNew" result-    result' <- (wrapObject AppLaunchContext) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method AppLaunchContext::get_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GList of #GFile objects", 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 "g_app_launch_context_get_display" g_app_launch_context_get_display :: -    Ptr AppLaunchContext ->                 -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    Ptr Gio.AppInfo.AppInfo ->              -- info : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    Ptr (GList (Ptr Gio.File.File)) ->      -- files : TGList (TInterface (Name {namespace = "Gio", name = "File"}))-    IO CString--{- |-Gets the display string for the /@context@/. This is used to ensure new-applications are started on the same display as the launching-application, by setting the @DISPLAY@ environment variable.--}-appLaunchContextGetDisplay ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppLaunchContext a, Gio.AppInfo.IsAppInfo b, Gio.File.IsFile c) =>-    a-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' -}-    -> b-    {- ^ /@info@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> [c]-    {- ^ /@files@/: a 'GI.GLib.Structs.List.List' of 'GI.Gio.Interfaces.File.File' objects -}-    -> m T.Text-    {- ^ __Returns:__ a display string for the display. -}-appLaunchContextGetDisplay context info files = liftIO $ do-    context' <- unsafeManagedPtrCastPtr context-    info' <- unsafeManagedPtrCastPtr info-    files' <- mapM unsafeManagedPtrCastPtr files-    files'' <- packGList files'-    result <- g_app_launch_context_get_display context' info' files''-    checkUnexpectedReturnNULL "appLaunchContextGetDisplay" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr context-    touchManagedPtr info-    mapM_ touchManagedPtr files-    g_list_free files''-    return result'--#if ENABLE_OVERLOADING-data AppLaunchContextGetDisplayMethodInfo-instance (signature ~ (b -> [c] -> m T.Text), MonadIO m, IsAppLaunchContext a, Gio.AppInfo.IsAppInfo b, Gio.File.IsFile c) => O.MethodInfo AppLaunchContextGetDisplayMethodInfo a signature where-    overloadedMethod _ = appLaunchContextGetDisplay--#endif---- method AppLaunchContext::get_environment--- method type : OrdinaryMethod--- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TFileName))--- throws : False--- Skip return : False--foreign import ccall "g_app_launch_context_get_environment" g_app_launch_context_get_environment :: -    Ptr AppLaunchContext ->                 -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    IO (Ptr CString)--{- |-Gets the complete environment variable list to be passed to-the child process when /@context@/ is used to launch an application.-This is a 'Nothing'-terminated array of strings, where each string has-the form @KEY=VALUE@.--/Since: 2.32/--}-appLaunchContextGetEnvironment ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppLaunchContext a) =>-    a-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' -}-    -> m [[Char]]-    {- ^ __Returns:__ -    the child\'s environment -}-appLaunchContextGetEnvironment context = liftIO $ do-    context' <- unsafeManagedPtrCastPtr context-    result <- g_app_launch_context_get_environment context'-    checkUnexpectedReturnNULL "appLaunchContextGetEnvironment" result-    result' <- unpackZeroTerminatedFileNameArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr context-    return result'--#if ENABLE_OVERLOADING-data AppLaunchContextGetEnvironmentMethodInfo-instance (signature ~ (m [[Char]]), MonadIO m, IsAppLaunchContext a) => O.MethodInfo AppLaunchContextGetEnvironmentMethodInfo a signature where-    overloadedMethod _ = appLaunchContextGetEnvironment--#endif---- method AppLaunchContext::get_startup_notify_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "AppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GList of of #GFile objects", 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 "g_app_launch_context_get_startup_notify_id" g_app_launch_context_get_startup_notify_id :: -    Ptr AppLaunchContext ->                 -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    Ptr Gio.AppInfo.AppInfo ->              -- info : TInterface (Name {namespace = "Gio", name = "AppInfo"})-    Ptr (GList (Ptr Gio.File.File)) ->      -- files : TGList (TInterface (Name {namespace = "Gio", name = "File"}))-    IO CString--{- |-Initiates startup notification for the application and returns the-@DESKTOP_STARTUP_ID@ for the launched operation, if supported.--Startup notification IDs are defined in the-<http://standards.freedesktop.org/startup-notification-spec/startup-notification-latest.txt" FreeDesktop.Org Startup Notifications standard>.--}-appLaunchContextGetStartupNotifyId ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppLaunchContext a, Gio.AppInfo.IsAppInfo b, Gio.File.IsFile c) =>-    a-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' -}-    -> b-    {- ^ /@info@/: a 'GI.Gio.Interfaces.AppInfo.AppInfo' -}-    -> [c]-    {- ^ /@files@/: a 'GI.GLib.Structs.List.List' of of 'GI.Gio.Interfaces.File.File' objects -}-    -> m T.Text-    {- ^ __Returns:__ a startup notification ID for the application, or 'Nothing' if-    not supported. -}-appLaunchContextGetStartupNotifyId context info files = liftIO $ do-    context' <- unsafeManagedPtrCastPtr context-    info' <- unsafeManagedPtrCastPtr info-    files' <- mapM unsafeManagedPtrCastPtr files-    files'' <- packGList files'-    result <- g_app_launch_context_get_startup_notify_id context' info' files''-    checkUnexpectedReturnNULL "appLaunchContextGetStartupNotifyId" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr context-    touchManagedPtr info-    mapM_ touchManagedPtr files-    g_list_free files''-    return result'--#if ENABLE_OVERLOADING-data AppLaunchContextGetStartupNotifyIdMethodInfo-instance (signature ~ (b -> [c] -> m T.Text), MonadIO m, IsAppLaunchContext a, Gio.AppInfo.IsAppInfo b, Gio.File.IsFile c) => O.MethodInfo AppLaunchContextGetStartupNotifyIdMethodInfo a signature where-    overloadedMethod _ = appLaunchContextGetStartupNotifyId--#endif---- method AppLaunchContext::launch_failed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_notify_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the startup notification id that was returned by g_app_launch_context_get_startup_notify_id().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_app_launch_context_launch_failed" g_app_launch_context_launch_failed :: -    Ptr AppLaunchContext ->                 -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    CString ->                              -- startup_notify_id : TBasicType TUTF8-    IO ()--{- |-Called when an application has failed to launch, so that it can cancel-the application startup notification started in 'GI.Gio.Objects.AppLaunchContext.appLaunchContextGetStartupNotifyId'.--}-appLaunchContextLaunchFailed ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppLaunchContext a) =>-    a-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext'. -}-    -> T.Text-    {- ^ /@startupNotifyId@/: the startup notification id that was returned by 'GI.Gio.Objects.AppLaunchContext.appLaunchContextGetStartupNotifyId'. -}-    -> m ()-appLaunchContextLaunchFailed context startupNotifyId = liftIO $ do-    context' <- unsafeManagedPtrCastPtr context-    startupNotifyId' <- textToCString startupNotifyId-    g_app_launch_context_launch_failed context' startupNotifyId'-    touchManagedPtr context-    freeMem startupNotifyId'-    return ()--#if ENABLE_OVERLOADING-data AppLaunchContextLaunchFailedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsAppLaunchContext a) => O.MethodInfo AppLaunchContextLaunchFailedMethodInfo a signature where-    overloadedMethod _ = appLaunchContextLaunchFailed--#endif---- method AppLaunchContext::setenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the environment variable to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value for to set the variable to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_app_launch_context_setenv" g_app_launch_context_setenv :: -    Ptr AppLaunchContext ->                 -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    CString ->                              -- variable : TBasicType TFileName-    CString ->                              -- value : TBasicType TFileName-    IO ()--{- |-Arranges for /@variable@/ to be set to /@value@/ in the child\'s-environment when /@context@/ is used to launch an application.--/Since: 2.32/--}-appLaunchContextSetenv ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppLaunchContext a) =>-    a-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' -}-    -> [Char]-    {- ^ /@variable@/: the environment variable to set -}-    -> [Char]-    {- ^ /@value@/: the value for to set the variable to. -}-    -> m ()-appLaunchContextSetenv context variable value = liftIO $ do-    context' <- unsafeManagedPtrCastPtr context-    variable' <- stringToCString variable-    value' <- stringToCString value-    g_app_launch_context_setenv context' variable' value'-    touchManagedPtr context-    freeMem variable'-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data AppLaunchContextSetenvMethodInfo-instance (signature ~ ([Char] -> [Char] -> m ()), MonadIO m, IsAppLaunchContext a) => O.MethodInfo AppLaunchContextSetenvMethodInfo a signature where-    overloadedMethod _ = appLaunchContextSetenv--#endif---- method AppLaunchContext::unsetenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the environment variable to remove", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_app_launch_context_unsetenv" g_app_launch_context_unsetenv :: -    Ptr AppLaunchContext ->                 -- context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    CString ->                              -- variable : TBasicType TFileName-    IO ()--{- |-Arranges for /@variable@/ to be unset in the child\'s environment-when /@context@/ is used to launch an application.--/Since: 2.32/--}-appLaunchContextUnsetenv ::-    (B.CallStack.HasCallStack, MonadIO m, IsAppLaunchContext a) =>-    a-    {- ^ /@context@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' -}-    -> [Char]-    {- ^ /@variable@/: the environment variable to remove -}-    -> m ()-appLaunchContextUnsetenv context variable = liftIO $ do-    context' <- unsafeManagedPtrCastPtr context-    variable' <- stringToCString variable-    g_app_launch_context_unsetenv context' variable'-    touchManagedPtr context-    freeMem variable'-    return ()--#if ENABLE_OVERLOADING-data AppLaunchContextUnsetenvMethodInfo-instance (signature ~ ([Char] -> m ()), MonadIO m, IsAppLaunchContext a) => O.MethodInfo AppLaunchContextUnsetenvMethodInfo a signature where-    overloadedMethod _ = appLaunchContextUnsetenv--#endif--
− GI/Gio/Objects/AppLaunchContext.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.AppLaunchContext 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 AppLaunchContext = AppLaunchContext (ManagedPtr AppLaunchContext)-instance GObject AppLaunchContext where-class (GObject o, O.IsDescendantOf AppLaunchContext o) => IsAppLaunchContext o-instance (GObject o, O.IsDescendantOf AppLaunchContext o) => IsAppLaunchContext o-instance O.HasParentTypes AppLaunchContext-#if ENABLE_OVERLOADING-data AppLaunchContextLaunchFailedSignalInfo-#endif-#if ENABLE_OVERLOADING-data AppLaunchContextLaunchedSignalInfo-#endif-#if ENABLE_OVERLOADING-data AppLaunchContextGetDisplayMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppLaunchContextGetEnvironmentMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppLaunchContextGetStartupNotifyIdMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppLaunchContextLaunchFailedMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppLaunchContextSetenvMethodInfo-#endif-#if ENABLE_OVERLOADING-data AppLaunchContextUnsetenvMethodInfo-#endif
− GI/Gio/Objects/Application.hs 
@@ -1,3744 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.Application.Application' is the foundation of an application.  It wraps some-low-level platform-specific services and is intended to act as the-foundation for higher-level application classes such as-@/GtkApplication/@ or @/MxApplication/@.  In general, you should not use-this class outside of a higher level framework.--GApplication provides convenient life cycle management by maintaining-a \"use count\" for the primary application instance. The use count can-be changed using 'GI.Gio.Objects.Application.applicationHold' and 'GI.Gio.Objects.Application.applicationRelease'. If-it drops to zero, the application exits. Higher-level classes such as-@/GtkApplication/@ employ the use count to ensure that the application-stays alive as long as it has any opened windows.--Another feature that GApplication (optionally) provides is process-uniqueness. Applications can make use of this functionality by-providing a unique application ID. If given, only one application-with this ID can be running at a time per session. The session-concept is platform-dependent, but corresponds roughly to a graphical-desktop login. When your application is launched again, its-arguments are passed through platform communication to the already-running program. The already running instance of the program is-called the \"primary instance\"; for non-unique applications this is-the always the current instance. On Linux, the D-Bus session bus-is used for communication.--The use of 'GI.Gio.Objects.Application.Application' differs from some other commonly-used-uniqueness libraries (such as libunique) in important ways. The-application is not expected to manually register itself and check-if it is the primary instance. Instead, the @/main()/@ function of a-'GI.Gio.Objects.Application.Application' should do very little more than instantiating the-application instance, possibly connecting signal handlers, then-calling 'GI.Gio.Objects.Application.applicationRun'. All checks for uniqueness are done-internally. If the application is the primary instance then the-startup signal is emitted and the mainloop runs. If the application-is not the primary instance then a signal is sent to the primary-instance and 'GI.Gio.Objects.Application.applicationRun' promptly returns. See the code-examples below.--If used, the expected form of an application identifier is the same as-that of of a-<https://dbus.freedesktop.org/doc/dbus-specification.html#message-protocol-names-bus D-Bus well-known bus name>.-Examples include: @com.example.MyApp@, @org.example.internal_apps.Calculator@,-@org._7_zip.Archiver@.-For details on valid application identifiers, see 'GI.Gio.Objects.Application.applicationIdIsValid'.--On Linux, the application identifier is claimed as a well-known bus name-on the user\'s session bus.  This means that the uniqueness of your-application is scoped to the current session.  It also means that your-application may provide additional services (through registration of other-object paths) at that bus name.  The registration of these object paths-should be done with the shared GDBus session bus.  Note that due to the-internal architecture of GDBus, method calls can be dispatched at any time-(even if a main loop is not running).  For this reason, you must ensure that-any object paths that you wish to register are registered before 'GI.Gio.Objects.Application.Application'-attempts to acquire the bus name of your application (which happens in-'GI.Gio.Objects.Application.applicationRegister').  Unfortunately, this means that you cannot use-'GI.Gio.Objects.Application.applicationGetIsRemote' to decide if you want to register object paths.--GApplication also implements the 'GI.Gio.Interfaces.ActionGroup.ActionGroup' and 'GI.Gio.Interfaces.ActionMap.ActionMap'-interfaces and lets you easily export actions by adding them with-'GI.Gio.Interfaces.ActionMap.actionMapAddAction'. When invoking an action by calling-'GI.Gio.Interfaces.ActionGroup.actionGroupActivateAction' on the application, it is always-invoked in the primary instance. The actions are also exported on-the session bus, and GIO provides the 'GI.Gio.Objects.DBusActionGroup.DBusActionGroup' wrapper to-conveniently access them remotely. GIO provides a 'GI.Gio.Objects.DBusMenuModel.DBusMenuModel' wrapper-for remote access to exported @/GMenuModels/@.--There is a number of different entry points into a GApplication:--* via \'Activate\' (i.e. just starting the application)-* via \'Open\' (i.e. opening some files)-* by handling a command-line-* via activating an action---The 'GI.Gio.Objects.Application.Application'::@/startup/@ signal lets you handle the application-initialization for all of these in a single place.--Regardless of which of these entry points is used to start the-application, GApplication passes some \"platform data from the-launching instance to the primary instance, in the form of a-'GVariant' dictionary mapping strings to variants. To use platform-data, override the /@beforeEmit@/ or /@afterEmit@/ virtual functions-in your 'GI.Gio.Objects.Application.Application' subclass. When dealing with-'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' objects, the platform data is-directly available via 'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetCwd',-'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetEnviron' and-'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetPlatformData'.--As the name indicates, the platform data may vary depending on the-operating system, but it always includes the current directory (key-\"cwd\"), and optionally the environment (ie the set of environment-variables and their values) of the calling process (key \"environ\").-The environment is only added to the platform data if the-'GI.Gio.Flags.ApplicationFlagsSendEnvironment' flag is set. 'GI.Gio.Objects.Application.Application' subclasses-can add their own platform data by overriding the /@addPlatformData@/-virtual function. For instance, @/GtkApplication/@ adds startup notification-data in this way.--To parse commandline arguments you may handle the-'GI.Gio.Objects.Application.Application'::@/command-line/@ signal or override the @/local_command_line()/@-vfunc, to parse them in either the primary instance or the local instance,-respectively.--For an example of opening files with a GApplication, see-<https://git.gnome.org/browse/glib/tree/gio/tests/gapplication-example-open.c gapplication-example-open.c>.--For an example of using actions with GApplication, see-<https://git.gnome.org/browse/glib/tree/gio/tests/gapplication-example-actions.c gapplication-example-actions.c>.--For an example of using extra D-Bus hooks with GApplication, see-<https://git.gnome.org/browse/glib/tree/gio/tests/gapplication-example-dbushooks.c gapplication-example-dbushooks.c>.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Application-    ( ---- * Exported types-    Application(..)                         ,-    IsApplication                           ,-    toApplication                           ,-    noApplication                           ,--- -- * Methods--- ** activate #method:activate#--#if ENABLE_OVERLOADING-    ApplicationActivateMethodInfo           ,-#endif-    applicationActivate                     ,----- ** addMainOption #method:addMainOption#--#if ENABLE_OVERLOADING-    ApplicationAddMainOptionMethodInfo      ,-#endif-    applicationAddMainOption                ,----- ** addMainOptionEntries #method:addMainOptionEntries#--#if ENABLE_OVERLOADING-    ApplicationAddMainOptionEntriesMethodInfo,-#endif-    applicationAddMainOptionEntries         ,----- ** addOptionGroup #method:addOptionGroup#--#if ENABLE_OVERLOADING-    ApplicationAddOptionGroupMethodInfo     ,-#endif-    applicationAddOptionGroup               ,----- ** bindBusyProperty #method:bindBusyProperty#--#if ENABLE_OVERLOADING-    ApplicationBindBusyPropertyMethodInfo   ,-#endif-    applicationBindBusyProperty             ,----- ** getApplicationId #method:getApplicationId#--#if ENABLE_OVERLOADING-    ApplicationGetApplicationIdMethodInfo   ,-#endif-    applicationGetApplicationId             ,----- ** getDbusConnection #method:getDbusConnection#--#if ENABLE_OVERLOADING-    ApplicationGetDbusConnectionMethodInfo  ,-#endif-    applicationGetDbusConnection            ,----- ** getDbusObjectPath #method:getDbusObjectPath#--#if ENABLE_OVERLOADING-    ApplicationGetDbusObjectPathMethodInfo  ,-#endif-    applicationGetDbusObjectPath            ,----- ** getDefault #method:getDefault#--    applicationGetDefault                   ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    ApplicationGetFlagsMethodInfo           ,-#endif-    applicationGetFlags                     ,----- ** getInactivityTimeout #method:getInactivityTimeout#--#if ENABLE_OVERLOADING-    ApplicationGetInactivityTimeoutMethodInfo,-#endif-    applicationGetInactivityTimeout         ,----- ** getIsBusy #method:getIsBusy#--#if ENABLE_OVERLOADING-    ApplicationGetIsBusyMethodInfo          ,-#endif-    applicationGetIsBusy                    ,----- ** getIsRegistered #method:getIsRegistered#--#if ENABLE_OVERLOADING-    ApplicationGetIsRegisteredMethodInfo    ,-#endif-    applicationGetIsRegistered              ,----- ** getIsRemote #method:getIsRemote#--#if ENABLE_OVERLOADING-    ApplicationGetIsRemoteMethodInfo        ,-#endif-    applicationGetIsRemote                  ,----- ** getResourceBasePath #method:getResourceBasePath#--#if ENABLE_OVERLOADING-    ApplicationGetResourceBasePathMethodInfo,-#endif-    applicationGetResourceBasePath          ,----- ** hold #method:hold#--#if ENABLE_OVERLOADING-    ApplicationHoldMethodInfo               ,-#endif-    applicationHold                         ,----- ** idIsValid #method:idIsValid#--    applicationIdIsValid                    ,----- ** markBusy #method:markBusy#--#if ENABLE_OVERLOADING-    ApplicationMarkBusyMethodInfo           ,-#endif-    applicationMarkBusy                     ,----- ** new #method:new#--    applicationNew                          ,----- ** open #method:open#--#if ENABLE_OVERLOADING-    ApplicationOpenMethodInfo               ,-#endif-    applicationOpen                         ,----- ** quit #method:quit#--#if ENABLE_OVERLOADING-    ApplicationQuitMethodInfo               ,-#endif-    applicationQuit                         ,----- ** register #method:register#--#if ENABLE_OVERLOADING-    ApplicationRegisterMethodInfo           ,-#endif-    applicationRegister                     ,----- ** release #method:release#--#if ENABLE_OVERLOADING-    ApplicationReleaseMethodInfo            ,-#endif-    applicationRelease                      ,----- ** run #method:run#--#if ENABLE_OVERLOADING-    ApplicationRunMethodInfo                ,-#endif-    applicationRun                          ,----- ** sendNotification #method:sendNotification#--#if ENABLE_OVERLOADING-    ApplicationSendNotificationMethodInfo   ,-#endif-    applicationSendNotification             ,----- ** setActionGroup #method:setActionGroup#--#if ENABLE_OVERLOADING-    ApplicationSetActionGroupMethodInfo     ,-#endif-    applicationSetActionGroup               ,----- ** setApplicationId #method:setApplicationId#--#if ENABLE_OVERLOADING-    ApplicationSetApplicationIdMethodInfo   ,-#endif-    applicationSetApplicationId             ,----- ** setDefault #method:setDefault#--#if ENABLE_OVERLOADING-    ApplicationSetDefaultMethodInfo         ,-#endif-    applicationSetDefault                   ,----- ** setFlags #method:setFlags#--#if ENABLE_OVERLOADING-    ApplicationSetFlagsMethodInfo           ,-#endif-    applicationSetFlags                     ,----- ** setInactivityTimeout #method:setInactivityTimeout#--#if ENABLE_OVERLOADING-    ApplicationSetInactivityTimeoutMethodInfo,-#endif-    applicationSetInactivityTimeout         ,----- ** setOptionContextDescription #method:setOptionContextDescription#--#if ENABLE_OVERLOADING-    ApplicationSetOptionContextDescriptionMethodInfo,-#endif-    applicationSetOptionContextDescription  ,----- ** setOptionContextParameterString #method:setOptionContextParameterString#--#if ENABLE_OVERLOADING-    ApplicationSetOptionContextParameterStringMethodInfo,-#endif-    applicationSetOptionContextParameterString,----- ** setOptionContextSummary #method:setOptionContextSummary#--#if ENABLE_OVERLOADING-    ApplicationSetOptionContextSummaryMethodInfo,-#endif-    applicationSetOptionContextSummary      ,----- ** setResourceBasePath #method:setResourceBasePath#--#if ENABLE_OVERLOADING-    ApplicationSetResourceBasePathMethodInfo,-#endif-    applicationSetResourceBasePath          ,----- ** unbindBusyProperty #method:unbindBusyProperty#--#if ENABLE_OVERLOADING-    ApplicationUnbindBusyPropertyMethodInfo ,-#endif-    applicationUnbindBusyProperty           ,----- ** unmarkBusy #method:unmarkBusy#--#if ENABLE_OVERLOADING-    ApplicationUnmarkBusyMethodInfo         ,-#endif-    applicationUnmarkBusy                   ,----- ** withdrawNotification #method:withdrawNotification#--#if ENABLE_OVERLOADING-    ApplicationWithdrawNotificationMethodInfo,-#endif-    applicationWithdrawNotification         ,----- -- * Properties--- ** actionGroup #attr:actionGroup#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationActionGroupPropertyInfo      ,-#endif-#if ENABLE_OVERLOADING-    applicationActionGroup                  ,-#endif-    clearApplicationActionGroup             ,-    constructApplicationActionGroup         ,-    setApplicationActionGroup               ,----- ** applicationId #attr:applicationId#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationApplicationIdPropertyInfo    ,-#endif-#if ENABLE_OVERLOADING-    applicationApplicationId                ,-#endif-    clearApplicationApplicationId           ,-    constructApplicationApplicationId       ,-    getApplicationApplicationId             ,-    setApplicationApplicationId             ,----- ** flags #attr:flags#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationFlagsPropertyInfo            ,-#endif-#if ENABLE_OVERLOADING-    applicationFlags                        ,-#endif-    constructApplicationFlags               ,-    getApplicationFlags                     ,-    setApplicationFlags                     ,----- ** inactivityTimeout #attr:inactivityTimeout#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationInactivityTimeoutPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    applicationInactivityTimeout            ,-#endif-    constructApplicationInactivityTimeout   ,-    getApplicationInactivityTimeout         ,-    setApplicationInactivityTimeout         ,----- ** isBusy #attr:isBusy#-{- | Whether the application is currently marked as busy through-'GI.Gio.Objects.Application.applicationMarkBusy' or 'GI.Gio.Objects.Application.applicationBindBusyProperty'.--/Since: 2.44/--}-#if ENABLE_OVERLOADING-    ApplicationIsBusyPropertyInfo           ,-#endif-#if ENABLE_OVERLOADING-    applicationIsBusy                       ,-#endif-    getApplicationIsBusy                    ,----- ** isRegistered #attr:isRegistered#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationIsRegisteredPropertyInfo     ,-#endif-#if ENABLE_OVERLOADING-    applicationIsRegistered                 ,-#endif-    getApplicationIsRegistered              ,----- ** isRemote #attr:isRemote#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationIsRemotePropertyInfo         ,-#endif-#if ENABLE_OVERLOADING-    applicationIsRemote                     ,-#endif-    getApplicationIsRemote                  ,----- ** resourceBasePath #attr:resourceBasePath#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationResourceBasePathPropertyInfo ,-#endif-#if ENABLE_OVERLOADING-    applicationResourceBasePath             ,-#endif-    clearApplicationResourceBasePath        ,-    constructApplicationResourceBasePath    ,-    getApplicationResourceBasePath          ,-    setApplicationResourceBasePath          ,----- -- * Signals--- ** activate #signal:activate#--    ApplicationActivateCallback             ,-#if ENABLE_OVERLOADING-    ApplicationActivateSignalInfo           ,-#endif-    C_ApplicationActivateCallback           ,-    afterApplicationActivate                ,-    genClosure_ApplicationActivate          ,-    mk_ApplicationActivateCallback          ,-    noApplicationActivateCallback           ,-    onApplicationActivate                   ,-    wrap_ApplicationActivateCallback        ,----- ** commandLine #signal:commandLine#--    ApplicationCommandLineCallback          ,-#if ENABLE_OVERLOADING-    ApplicationCommandLineSignalInfo        ,-#endif-    C_ApplicationCommandLineCallback        ,-    afterApplicationCommandLine             ,-    genClosure_ApplicationCommandLine       ,-    mk_ApplicationCommandLineCallback       ,-    noApplicationCommandLineCallback        ,-    onApplicationCommandLine                ,-    wrap_ApplicationCommandLineCallback     ,----- ** handleLocalOptions #signal:handleLocalOptions#--    ApplicationHandleLocalOptionsCallback   ,-#if ENABLE_OVERLOADING-    ApplicationHandleLocalOptionsSignalInfo ,-#endif-    C_ApplicationHandleLocalOptionsCallback ,-    afterApplicationHandleLocalOptions      ,-    genClosure_ApplicationHandleLocalOptions,-    mk_ApplicationHandleLocalOptionsCallback,-    noApplicationHandleLocalOptionsCallback ,-    onApplicationHandleLocalOptions         ,-    wrap_ApplicationHandleLocalOptionsCallback,----- ** nameLost #signal:nameLost#--    ApplicationNameLostCallback             ,-#if ENABLE_OVERLOADING-    ApplicationNameLostSignalInfo           ,-#endif-    C_ApplicationNameLostCallback           ,-    afterApplicationNameLost                ,-    genClosure_ApplicationNameLost          ,-    mk_ApplicationNameLostCallback          ,-    noApplicationNameLostCallback           ,-    onApplicationNameLost                   ,-    wrap_ApplicationNameLostCallback        ,----- ** open #signal:open#--    ApplicationOpenCallback                 ,-#if ENABLE_OVERLOADING-    ApplicationOpenSignalInfo               ,-#endif-    C_ApplicationOpenCallback               ,-    afterApplicationOpen                    ,-    genClosure_ApplicationOpen              ,-    mk_ApplicationOpenCallback              ,-    noApplicationOpenCallback               ,-    onApplicationOpen                       ,-    wrap_ApplicationOpenCallback            ,----- ** shutdown #signal:shutdown#--    ApplicationShutdownCallback             ,-#if ENABLE_OVERLOADING-    ApplicationShutdownSignalInfo           ,-#endif-    C_ApplicationShutdownCallback           ,-    afterApplicationShutdown                ,-    genClosure_ApplicationShutdown          ,-    mk_ApplicationShutdownCallback          ,-    noApplicationShutdownCallback           ,-    onApplicationShutdown                   ,-    wrap_ApplicationShutdownCallback        ,----- ** startup #signal:startup#--    ApplicationStartupCallback              ,-#if ENABLE_OVERLOADING-    ApplicationStartupSignalInfo            ,-#endif-    C_ApplicationStartupCallback            ,-    afterApplicationStartup                 ,-    genClosure_ApplicationStartup           ,-    mk_ApplicationStartupCallback           ,-    noApplicationStartupCallback            ,-    onApplicationStartup                    ,-    wrap_ApplicationStartupCallback         ,-----    ) 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.Enums as GLib.Enums-import qualified GI.GLib.Flags as GLib.Flags-import qualified GI.GLib.Structs.OptionEntry as GLib.OptionEntry-import qualified GI.GLib.Structs.OptionGroup as GLib.OptionGroup-import qualified GI.GLib.Structs.VariantDict as GLib.VariantDict-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup-import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Objects.ApplicationCommandLine as Gio.ApplicationCommandLine-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.Notification as Gio.Notification---- | Memory-managed wrapper type.-newtype Application = Application (ManagedPtr Application)-foreign import ccall "g_application_get_type"-    c_g_application_get_type :: IO GType--instance GObject Application where-    gobjectType = c_g_application_get_type-    ---- | Type class for types which can be safely cast to `Application`, for instance with `toApplication`.-class (GObject o, O.IsDescendantOf Application o) => IsApplication o-instance (GObject o, O.IsDescendantOf Application o) => IsApplication o--instance O.HasParentTypes Application-type instance O.ParentTypes Application = '[GObject.Object.Object, Gio.ActionGroup.ActionGroup, Gio.ActionMap.ActionMap]---- | Cast to `Application`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toApplication :: (MonadIO m, IsApplication o) => o -> m Application-toApplication = liftIO . unsafeCastTo Application---- | A convenience alias for `Nothing` :: `Maybe` `Application`.-noApplication :: Maybe Application-noApplication = Nothing--#if ENABLE_OVERLOADING-type family ResolveApplicationMethod (t :: Symbol) (o :: *) :: * where-    ResolveApplicationMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo-    ResolveApplicationMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo-    ResolveApplicationMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo-    ResolveApplicationMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo-    ResolveApplicationMethod "activate" o = ApplicationActivateMethodInfo-    ResolveApplicationMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo-    ResolveApplicationMethod "addAction" o = Gio.ActionMap.ActionMapAddActionMethodInfo-    ResolveApplicationMethod "addActionEntries" o = Gio.ActionMap.ActionMapAddActionEntriesMethodInfo-    ResolveApplicationMethod "addMainOption" o = ApplicationAddMainOptionMethodInfo-    ResolveApplicationMethod "addMainOptionEntries" o = ApplicationAddMainOptionEntriesMethodInfo-    ResolveApplicationMethod "addOptionGroup" o = ApplicationAddOptionGroupMethodInfo-    ResolveApplicationMethod "bindBusyProperty" o = ApplicationBindBusyPropertyMethodInfo-    ResolveApplicationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveApplicationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveApplicationMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo-    ResolveApplicationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveApplicationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveApplicationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveApplicationMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo-    ResolveApplicationMethod "hold" o = ApplicationHoldMethodInfo-    ResolveApplicationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveApplicationMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo-    ResolveApplicationMethod "lookupAction" o = Gio.ActionMap.ActionMapLookupActionMethodInfo-    ResolveApplicationMethod "markBusy" o = ApplicationMarkBusyMethodInfo-    ResolveApplicationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveApplicationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveApplicationMethod "open" o = ApplicationOpenMethodInfo-    ResolveApplicationMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo-    ResolveApplicationMethod "quit" o = ApplicationQuitMethodInfo-    ResolveApplicationMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveApplicationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveApplicationMethod "register" o = ApplicationRegisterMethodInfo-    ResolveApplicationMethod "release" o = ApplicationReleaseMethodInfo-    ResolveApplicationMethod "removeAction" o = Gio.ActionMap.ActionMapRemoveActionMethodInfo-    ResolveApplicationMethod "run" o = ApplicationRunMethodInfo-    ResolveApplicationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveApplicationMethod "sendNotification" o = ApplicationSendNotificationMethodInfo-    ResolveApplicationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveApplicationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveApplicationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveApplicationMethod "unbindBusyProperty" o = ApplicationUnbindBusyPropertyMethodInfo-    ResolveApplicationMethod "unmarkBusy" o = ApplicationUnmarkBusyMethodInfo-    ResolveApplicationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveApplicationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveApplicationMethod "withdrawNotification" o = ApplicationWithdrawNotificationMethodInfo-    ResolveApplicationMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo-    ResolveApplicationMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo-    ResolveApplicationMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo-    ResolveApplicationMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo-    ResolveApplicationMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo-    ResolveApplicationMethod "getApplicationId" o = ApplicationGetApplicationIdMethodInfo-    ResolveApplicationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveApplicationMethod "getDbusConnection" o = ApplicationGetDbusConnectionMethodInfo-    ResolveApplicationMethod "getDbusObjectPath" o = ApplicationGetDbusObjectPathMethodInfo-    ResolveApplicationMethod "getFlags" o = ApplicationGetFlagsMethodInfo-    ResolveApplicationMethod "getInactivityTimeout" o = ApplicationGetInactivityTimeoutMethodInfo-    ResolveApplicationMethod "getIsBusy" o = ApplicationGetIsBusyMethodInfo-    ResolveApplicationMethod "getIsRegistered" o = ApplicationGetIsRegisteredMethodInfo-    ResolveApplicationMethod "getIsRemote" o = ApplicationGetIsRemoteMethodInfo-    ResolveApplicationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveApplicationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveApplicationMethod "getResourceBasePath" o = ApplicationGetResourceBasePathMethodInfo-    ResolveApplicationMethod "setActionGroup" o = ApplicationSetActionGroupMethodInfo-    ResolveApplicationMethod "setApplicationId" o = ApplicationSetApplicationIdMethodInfo-    ResolveApplicationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveApplicationMethod "setDefault" o = ApplicationSetDefaultMethodInfo-    ResolveApplicationMethod "setFlags" o = ApplicationSetFlagsMethodInfo-    ResolveApplicationMethod "setInactivityTimeout" o = ApplicationSetInactivityTimeoutMethodInfo-    ResolveApplicationMethod "setOptionContextDescription" o = ApplicationSetOptionContextDescriptionMethodInfo-    ResolveApplicationMethod "setOptionContextParameterString" o = ApplicationSetOptionContextParameterStringMethodInfo-    ResolveApplicationMethod "setOptionContextSummary" o = ApplicationSetOptionContextSummaryMethodInfo-    ResolveApplicationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveApplicationMethod "setResourceBasePath" o = ApplicationSetResourceBasePathMethodInfo-    ResolveApplicationMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveApplicationMethod t Application, O.MethodInfo info Application p) => OL.IsLabel t (Application -> 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 Application::activate-{- |-The ::activate signal is emitted on the primary instance when an-activation occurs. See 'GI.Gio.Objects.Application.applicationActivate'.--}-type ApplicationActivateCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationActivateCallback`@.-noApplicationActivateCallback :: Maybe ApplicationActivateCallback-noApplicationActivateCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ApplicationActivateCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ApplicationActivateCallback`.-foreign import ccall "wrapper"-    mk_ApplicationActivateCallback :: C_ApplicationActivateCallback -> IO (FunPtr C_ApplicationActivateCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ApplicationActivate :: MonadIO m => ApplicationActivateCallback -> m (GClosure C_ApplicationActivateCallback)-genClosure_ApplicationActivate cb = liftIO $ do-    let cb' = wrap_ApplicationActivateCallback cb-    mk_ApplicationActivateCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ApplicationActivateCallback` into a `C_ApplicationActivateCallback`.-wrap_ApplicationActivateCallback ::-    ApplicationActivateCallback ->-    C_ApplicationActivateCallback-wrap_ApplicationActivateCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@activate@” 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' application #activate callback-@--}-onApplicationActivate :: (IsApplication a, MonadIO m) => a -> ApplicationActivateCallback -> m SignalHandlerId-onApplicationActivate obj cb = liftIO $ do-    let cb' = wrap_ApplicationActivateCallback cb-    cb'' <- mk_ApplicationActivateCallback cb'-    connectSignalFunPtr obj "activate" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@activate@” 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' application #activate callback-@--}-afterApplicationActivate :: (IsApplication a, MonadIO m) => a -> ApplicationActivateCallback -> m SignalHandlerId-afterApplicationActivate obj cb = liftIO $ do-    let cb' = wrap_ApplicationActivateCallback cb-    cb'' <- mk_ApplicationActivateCallback cb'-    connectSignalFunPtr obj "activate" cb'' SignalConnectAfter----- signal Application::command-line-{- |-The ::command-line signal is emitted on the primary instance when-a commandline is not handled locally. See 'GI.Gio.Objects.Application.applicationRun' and-the 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' documentation for more information.--}-type ApplicationCommandLineCallback =-    Gio.ApplicationCommandLine.ApplicationCommandLine-    {- ^ /@commandLine@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' representing the-    passed commandline -}-    -> IO Int32-    {- ^ __Returns:__ An integer that is set as the exit status for the calling-  process. See 'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineSetExitStatus'. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationCommandLineCallback`@.-noApplicationCommandLineCallback :: Maybe ApplicationCommandLineCallback-noApplicationCommandLineCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ApplicationCommandLineCallback =-    Ptr () ->                               -- object-    Ptr Gio.ApplicationCommandLine.ApplicationCommandLine ->-    Ptr () ->                               -- user_data-    IO Int32---- | Generate a function pointer callable from C code, from a `C_ApplicationCommandLineCallback`.-foreign import ccall "wrapper"-    mk_ApplicationCommandLineCallback :: C_ApplicationCommandLineCallback -> IO (FunPtr C_ApplicationCommandLineCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ApplicationCommandLine :: MonadIO m => ApplicationCommandLineCallback -> m (GClosure C_ApplicationCommandLineCallback)-genClosure_ApplicationCommandLine cb = liftIO $ do-    let cb' = wrap_ApplicationCommandLineCallback cb-    mk_ApplicationCommandLineCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ApplicationCommandLineCallback` into a `C_ApplicationCommandLineCallback`.-wrap_ApplicationCommandLineCallback ::-    ApplicationCommandLineCallback ->-    C_ApplicationCommandLineCallback-wrap_ApplicationCommandLineCallback _cb _ commandLine _ = do-    commandLine' <- (newObject Gio.ApplicationCommandLine.ApplicationCommandLine) commandLine-    result <- _cb  commandLine'-    return result---{- |-Connect a signal handler for the “@command-line@” 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' application #commandLine callback-@--}-onApplicationCommandLine :: (IsApplication a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId-onApplicationCommandLine obj cb = liftIO $ do-    let cb' = wrap_ApplicationCommandLineCallback cb-    cb'' <- mk_ApplicationCommandLineCallback cb'-    connectSignalFunPtr obj "command-line" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@command-line@” 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' application #commandLine callback-@--}-afterApplicationCommandLine :: (IsApplication a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId-afterApplicationCommandLine obj cb = liftIO $ do-    let cb' = wrap_ApplicationCommandLineCallback cb-    cb'' <- mk_ApplicationCommandLineCallback cb'-    connectSignalFunPtr obj "command-line" cb'' SignalConnectAfter----- signal Application::handle-local-options-{- |-The ::handle-local-options signal is emitted on the local instance-after the parsing of the commandline options has occurred.--You can add options to be recognised during commandline option-parsing using 'GI.Gio.Objects.Application.applicationAddMainOptionEntries' and-'GI.Gio.Objects.Application.applicationAddOptionGroup'.--Signal handlers can inspect /@options@/ (along with values pointed to-from the /@argData@/ of an installed @/GOptionEntrys/@) in order to-decide to perform certain actions, including direct local handling-(which may be useful for options like --version).--In the event that the application is marked-'GI.Gio.Flags.ApplicationFlagsHandlesCommandLine' the \"normal processing\" will-send the /@options@/ dictionary to the primary instance where it can be-read with 'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetOptionsDict'.  The signal-handler can modify the dictionary before returning, and the-modified dictionary will be sent.--In the event that 'GI.Gio.Flags.ApplicationFlagsHandlesCommandLine' is not set,-\"normal processing\" will treat the remaining uncollected command-line arguments as filenames or URIs.  If there are no arguments,-the application is activated by 'GI.Gio.Objects.Application.applicationActivate'.  One or-more arguments results in a call to 'GI.Gio.Objects.Application.applicationOpen'.--If you want to handle the local commandline arguments for yourself-by converting them to calls to 'GI.Gio.Objects.Application.applicationOpen' or-'GI.Gio.Interfaces.ActionGroup.actionGroupActivateAction' then you must be sure to register-the application first.  You should probably not call-'GI.Gio.Objects.Application.applicationActivate' for yourself, however: just return -1 and-allow the default handler to do it for you.  This will ensure that-the @--gapplication-service@ switch works properly (i.e. no activation-in that case).--Note that this signal is emitted from the default implementation of-@/local_command_line()/@.  If you override that function and don\'t-chain up then this signal will never be emitted.--You can override @/local_command_line()/@ if you need more powerful-capabilities than what is provided here, but this should not-normally be required.--/Since: 2.40/--}-type ApplicationHandleLocalOptionsCallback =-    GLib.VariantDict.VariantDict-    {- ^ /@options@/: the options dictionary -}-    -> IO Int32-    {- ^ __Returns:__ an exit code. If you have handled your options and want-to exit the process, return a non-negative option, 0 for success,-and a positive value for failure. To continue, return -1 to let-the default option processing continue. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationHandleLocalOptionsCallback`@.-noApplicationHandleLocalOptionsCallback :: Maybe ApplicationHandleLocalOptionsCallback-noApplicationHandleLocalOptionsCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ApplicationHandleLocalOptionsCallback =-    Ptr () ->                               -- object-    Ptr GLib.VariantDict.VariantDict ->-    Ptr () ->                               -- user_data-    IO Int32---- | Generate a function pointer callable from C code, from a `C_ApplicationHandleLocalOptionsCallback`.-foreign import ccall "wrapper"-    mk_ApplicationHandleLocalOptionsCallback :: C_ApplicationHandleLocalOptionsCallback -> IO (FunPtr C_ApplicationHandleLocalOptionsCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ApplicationHandleLocalOptions :: MonadIO m => ApplicationHandleLocalOptionsCallback -> m (GClosure C_ApplicationHandleLocalOptionsCallback)-genClosure_ApplicationHandleLocalOptions cb = liftIO $ do-    let cb' = wrap_ApplicationHandleLocalOptionsCallback cb-    mk_ApplicationHandleLocalOptionsCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ApplicationHandleLocalOptionsCallback` into a `C_ApplicationHandleLocalOptionsCallback`.-wrap_ApplicationHandleLocalOptionsCallback ::-    ApplicationHandleLocalOptionsCallback ->-    C_ApplicationHandleLocalOptionsCallback-wrap_ApplicationHandleLocalOptionsCallback _cb _ options _ = do-    B.ManagedPtr.withTransient GLib.VariantDict.VariantDict options $ \options' -> do-        result <- _cb  options'-        return result---{- |-Connect a signal handler for the “@handle-local-options@” 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' application #handleLocalOptions callback-@--}-onApplicationHandleLocalOptions :: (IsApplication a, MonadIO m) => a -> ApplicationHandleLocalOptionsCallback -> m SignalHandlerId-onApplicationHandleLocalOptions obj cb = liftIO $ do-    let cb' = wrap_ApplicationHandleLocalOptionsCallback cb-    cb'' <- mk_ApplicationHandleLocalOptionsCallback cb'-    connectSignalFunPtr obj "handle-local-options" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@handle-local-options@” 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' application #handleLocalOptions callback-@--}-afterApplicationHandleLocalOptions :: (IsApplication a, MonadIO m) => a -> ApplicationHandleLocalOptionsCallback -> m SignalHandlerId-afterApplicationHandleLocalOptions obj cb = liftIO $ do-    let cb' = wrap_ApplicationHandleLocalOptionsCallback cb-    cb'' <- mk_ApplicationHandleLocalOptionsCallback cb'-    connectSignalFunPtr obj "handle-local-options" cb'' SignalConnectAfter----- signal Application::name-lost-{- |-The ::name-lost signal is emitted only on the registered primary instance-when a new instance has taken over. This can only happen if the application-is using the 'GI.Gio.Flags.ApplicationFlagsAllowReplacement' flag.--The default handler for this signal calls 'GI.Gio.Objects.Application.applicationQuit'.--/Since: 2.60/--}-type ApplicationNameLostCallback =-    IO Bool-    {- ^ __Returns:__ 'True' if the signal has been handled -}---- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationNameLostCallback`@.-noApplicationNameLostCallback :: Maybe ApplicationNameLostCallback-noApplicationNameLostCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ApplicationNameLostCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_ApplicationNameLostCallback`.-foreign import ccall "wrapper"-    mk_ApplicationNameLostCallback :: C_ApplicationNameLostCallback -> IO (FunPtr C_ApplicationNameLostCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ApplicationNameLost :: MonadIO m => ApplicationNameLostCallback -> m (GClosure C_ApplicationNameLostCallback)-genClosure_ApplicationNameLost cb = liftIO $ do-    let cb' = wrap_ApplicationNameLostCallback cb-    mk_ApplicationNameLostCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ApplicationNameLostCallback` into a `C_ApplicationNameLostCallback`.-wrap_ApplicationNameLostCallback ::-    ApplicationNameLostCallback ->-    C_ApplicationNameLostCallback-wrap_ApplicationNameLostCallback _cb _ _ = do-    result <- _cb -    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@name-lost@” 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' application #nameLost callback-@--}-onApplicationNameLost :: (IsApplication a, MonadIO m) => a -> ApplicationNameLostCallback -> m SignalHandlerId-onApplicationNameLost obj cb = liftIO $ do-    let cb' = wrap_ApplicationNameLostCallback cb-    cb'' <- mk_ApplicationNameLostCallback cb'-    connectSignalFunPtr obj "name-lost" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@name-lost@” 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' application #nameLost callback-@--}-afterApplicationNameLost :: (IsApplication a, MonadIO m) => a -> ApplicationNameLostCallback -> m SignalHandlerId-afterApplicationNameLost obj cb = liftIO $ do-    let cb' = wrap_ApplicationNameLostCallback cb-    cb'' <- mk_ApplicationNameLostCallback cb'-    connectSignalFunPtr obj "name-lost" cb'' SignalConnectAfter----- signal Application::open-{- |-The ::open signal is emitted on the primary instance when there are-files to open. See 'GI.Gio.Objects.Application.applicationOpen' for more information.--}-type ApplicationOpenCallback =-    [Gio.File.File]-    {- ^ /@files@/: an array of @/GFiles/@ -}-    -> T.Text-    {- ^ /@hint@/: a hint provided by the calling instance -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationOpenCallback`@.-noApplicationOpenCallback :: Maybe ApplicationOpenCallback-noApplicationOpenCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ApplicationOpenCallback =-    Ptr () ->                               -- object-    Ptr (Ptr Gio.File.File) ->-    Int32 ->-    CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ApplicationOpenCallback`.-foreign import ccall "wrapper"-    mk_ApplicationOpenCallback :: C_ApplicationOpenCallback -> IO (FunPtr C_ApplicationOpenCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ApplicationOpen :: MonadIO m => ApplicationOpenCallback -> m (GClosure C_ApplicationOpenCallback)-genClosure_ApplicationOpen cb = liftIO $ do-    let cb' = wrap_ApplicationOpenCallback cb-    mk_ApplicationOpenCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ApplicationOpenCallback` into a `C_ApplicationOpenCallback`.-wrap_ApplicationOpenCallback ::-    ApplicationOpenCallback ->-    C_ApplicationOpenCallback-wrap_ApplicationOpenCallback _cb _ files nFiles hint _ = do-    files' <- (unpackPtrArrayWithLength nFiles) files-    files'' <- mapM (newObject Gio.File.File) files'-    hint' <- cstringToText hint-    _cb  files'' hint'---{- |-Connect a signal handler for the “@open@” 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' application #open callback-@--}-onApplicationOpen :: (IsApplication a, MonadIO m) => a -> ApplicationOpenCallback -> m SignalHandlerId-onApplicationOpen obj cb = liftIO $ do-    let cb' = wrap_ApplicationOpenCallback cb-    cb'' <- mk_ApplicationOpenCallback cb'-    connectSignalFunPtr obj "open" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@open@” 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' application #open callback-@--}-afterApplicationOpen :: (IsApplication a, MonadIO m) => a -> ApplicationOpenCallback -> m SignalHandlerId-afterApplicationOpen obj cb = liftIO $ do-    let cb' = wrap_ApplicationOpenCallback cb-    cb'' <- mk_ApplicationOpenCallback cb'-    connectSignalFunPtr obj "open" cb'' SignalConnectAfter----- signal Application::shutdown-{- |-The ::shutdown signal is emitted only on the registered primary instance-immediately after the main loop terminates.--}-type ApplicationShutdownCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationShutdownCallback`@.-noApplicationShutdownCallback :: Maybe ApplicationShutdownCallback-noApplicationShutdownCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ApplicationShutdownCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ApplicationShutdownCallback`.-foreign import ccall "wrapper"-    mk_ApplicationShutdownCallback :: C_ApplicationShutdownCallback -> IO (FunPtr C_ApplicationShutdownCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ApplicationShutdown :: MonadIO m => ApplicationShutdownCallback -> m (GClosure C_ApplicationShutdownCallback)-genClosure_ApplicationShutdown cb = liftIO $ do-    let cb' = wrap_ApplicationShutdownCallback cb-    mk_ApplicationShutdownCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ApplicationShutdownCallback` into a `C_ApplicationShutdownCallback`.-wrap_ApplicationShutdownCallback ::-    ApplicationShutdownCallback ->-    C_ApplicationShutdownCallback-wrap_ApplicationShutdownCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@shutdown@” 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' application #shutdown callback-@--}-onApplicationShutdown :: (IsApplication a, MonadIO m) => a -> ApplicationShutdownCallback -> m SignalHandlerId-onApplicationShutdown obj cb = liftIO $ do-    let cb' = wrap_ApplicationShutdownCallback cb-    cb'' <- mk_ApplicationShutdownCallback cb'-    connectSignalFunPtr obj "shutdown" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@shutdown@” 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' application #shutdown callback-@--}-afterApplicationShutdown :: (IsApplication a, MonadIO m) => a -> ApplicationShutdownCallback -> m SignalHandlerId-afterApplicationShutdown obj cb = liftIO $ do-    let cb' = wrap_ApplicationShutdownCallback cb-    cb'' <- mk_ApplicationShutdownCallback cb'-    connectSignalFunPtr obj "shutdown" cb'' SignalConnectAfter----- signal Application::startup-{- |-The ::startup signal is emitted on the primary instance immediately-after registration. See 'GI.Gio.Objects.Application.applicationRegister'.--}-type ApplicationStartupCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ApplicationStartupCallback`@.-noApplicationStartupCallback :: Maybe ApplicationStartupCallback-noApplicationStartupCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ApplicationStartupCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ApplicationStartupCallback`.-foreign import ccall "wrapper"-    mk_ApplicationStartupCallback :: C_ApplicationStartupCallback -> IO (FunPtr C_ApplicationStartupCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ApplicationStartup :: MonadIO m => ApplicationStartupCallback -> m (GClosure C_ApplicationStartupCallback)-genClosure_ApplicationStartup cb = liftIO $ do-    let cb' = wrap_ApplicationStartupCallback cb-    mk_ApplicationStartupCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ApplicationStartupCallback` into a `C_ApplicationStartupCallback`.-wrap_ApplicationStartupCallback ::-    ApplicationStartupCallback ->-    C_ApplicationStartupCallback-wrap_ApplicationStartupCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@startup@” 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' application #startup callback-@--}-onApplicationStartup :: (IsApplication a, MonadIO m) => a -> ApplicationStartupCallback -> m SignalHandlerId-onApplicationStartup obj cb = liftIO $ do-    let cb' = wrap_ApplicationStartupCallback cb-    cb'' <- mk_ApplicationStartupCallback cb'-    connectSignalFunPtr obj "startup" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@startup@” 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' application #startup callback-@--}-afterApplicationStartup :: (IsApplication a, MonadIO m) => a -> ApplicationStartupCallback -> m SignalHandlerId-afterApplicationStartup obj cb = liftIO $ do-    let cb' = wrap_ApplicationStartupCallback cb-    cb'' <- mk_ApplicationStartupCallback cb'-    connectSignalFunPtr obj "startup" cb'' SignalConnectAfter----- VVV Prop "action-group"-   -- Type: TInterface (Name {namespace = "Gio", name = "ActionGroup"})-   -- Flags: [PropertyWritable]-   -- Nullable: (Nothing,Just True)--{- |-Set the value of the “@action-group@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' application [ #actionGroup 'Data.GI.Base.Attributes.:=' value ]-@--}-setApplicationActionGroup :: (MonadIO m, IsApplication o, Gio.ActionGroup.IsActionGroup a) => o -> a -> m ()-setApplicationActionGroup obj val = liftIO $ B.Properties.setObjectPropertyObject obj "action-group" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@action-group@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructApplicationActionGroup :: (IsApplication o, Gio.ActionGroup.IsActionGroup a) => a -> IO (GValueConstruct o)-constructApplicationActionGroup val = B.Properties.constructObjectPropertyObject "action-group" (Just val)--{- |-Set the value of the “@action-group@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #actionGroup-@--}-clearApplicationActionGroup :: (MonadIO m, IsApplication o) => o -> m ()-clearApplicationActionGroup obj = liftIO $ B.Properties.setObjectPropertyObject obj "action-group" (Nothing :: Maybe Gio.ActionGroup.ActionGroup)--#if ENABLE_OVERLOADING-data ApplicationActionGroupPropertyInfo-instance AttrInfo ApplicationActionGroupPropertyInfo where-    type AttrAllowedOps ApplicationActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ApplicationActionGroupPropertyInfo = Gio.ActionGroup.IsActionGroup-    type AttrBaseTypeConstraint ApplicationActionGroupPropertyInfo = IsApplication-    type AttrGetType ApplicationActionGroupPropertyInfo = ()-    type AttrLabel ApplicationActionGroupPropertyInfo = "action-group"-    type AttrOrigin ApplicationActionGroupPropertyInfo = Application-    attrGet _ = undefined-    attrSet _ = setApplicationActionGroup-    attrConstruct _ = constructApplicationActionGroup-    attrClear _ = clearApplicationActionGroup-#endif---- VVV Prop "application-id"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just True)--{- |-Get the value of the “@application-id@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' application #applicationId-@--}-getApplicationApplicationId :: (MonadIO m, IsApplication o) => o -> m T.Text-getApplicationApplicationId obj = liftIO $ checkUnexpectedNothing "getApplicationApplicationId" $ B.Properties.getObjectPropertyString obj "application-id"--{- |-Set the value of the “@application-id@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' application [ #applicationId 'Data.GI.Base.Attributes.:=' value ]-@--}-setApplicationApplicationId :: (MonadIO m, IsApplication o) => o -> T.Text -> m ()-setApplicationApplicationId obj val = liftIO $ B.Properties.setObjectPropertyString obj "application-id" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@application-id@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructApplicationApplicationId :: (IsApplication o) => T.Text -> IO (GValueConstruct o)-constructApplicationApplicationId val = B.Properties.constructObjectPropertyString "application-id" (Just val)--{- |-Set the value of the “@application-id@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #applicationId-@--}-clearApplicationApplicationId :: (MonadIO m, IsApplication o) => o -> m ()-clearApplicationApplicationId obj = liftIO $ B.Properties.setObjectPropertyString obj "application-id" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data ApplicationApplicationIdPropertyInfo-instance AttrInfo ApplicationApplicationIdPropertyInfo where-    type AttrAllowedOps ApplicationApplicationIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ApplicationApplicationIdPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ApplicationApplicationIdPropertyInfo = IsApplication-    type AttrGetType ApplicationApplicationIdPropertyInfo = T.Text-    type AttrLabel ApplicationApplicationIdPropertyInfo = "application-id"-    type AttrOrigin ApplicationApplicationIdPropertyInfo = Application-    attrGet _ = getApplicationApplicationId-    attrSet _ = setApplicationApplicationId-    attrConstruct _ = constructApplicationApplicationId-    attrClear _ = clearApplicationApplicationId-#endif---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "ApplicationFlags"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' application #flags-@--}-getApplicationFlags :: (MonadIO m, IsApplication o) => o -> m [Gio.Flags.ApplicationFlags]-getApplicationFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"--{- |-Set the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' application [ #flags 'Data.GI.Base.Attributes.:=' value ]-@--}-setApplicationFlags :: (MonadIO m, IsApplication o) => o -> [Gio.Flags.ApplicationFlags] -> m ()-setApplicationFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "flags" val--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructApplicationFlags :: (IsApplication o) => [Gio.Flags.ApplicationFlags] -> IO (GValueConstruct o)-constructApplicationFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data ApplicationFlagsPropertyInfo-instance AttrInfo ApplicationFlagsPropertyInfo where-    type AttrAllowedOps ApplicationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ApplicationFlagsPropertyInfo = (~) [Gio.Flags.ApplicationFlags]-    type AttrBaseTypeConstraint ApplicationFlagsPropertyInfo = IsApplication-    type AttrGetType ApplicationFlagsPropertyInfo = [Gio.Flags.ApplicationFlags]-    type AttrLabel ApplicationFlagsPropertyInfo = "flags"-    type AttrOrigin ApplicationFlagsPropertyInfo = Application-    attrGet _ = getApplicationFlags-    attrSet _ = setApplicationFlags-    attrConstruct _ = constructApplicationFlags-    attrClear _ = undefined-#endif---- VVV Prop "inactivity-timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@inactivity-timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' application #inactivityTimeout-@--}-getApplicationInactivityTimeout :: (MonadIO m, IsApplication o) => o -> m Word32-getApplicationInactivityTimeout obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "inactivity-timeout"--{- |-Set the value of the “@inactivity-timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' application [ #inactivityTimeout 'Data.GI.Base.Attributes.:=' value ]-@--}-setApplicationInactivityTimeout :: (MonadIO m, IsApplication o) => o -> Word32 -> m ()-setApplicationInactivityTimeout obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "inactivity-timeout" val--{- |-Construct a `GValueConstruct` with valid value for the “@inactivity-timeout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructApplicationInactivityTimeout :: (IsApplication o) => Word32 -> IO (GValueConstruct o)-constructApplicationInactivityTimeout val = B.Properties.constructObjectPropertyUInt32 "inactivity-timeout" val--#if ENABLE_OVERLOADING-data ApplicationInactivityTimeoutPropertyInfo-instance AttrInfo ApplicationInactivityTimeoutPropertyInfo where-    type AttrAllowedOps ApplicationInactivityTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ApplicationInactivityTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ApplicationInactivityTimeoutPropertyInfo = IsApplication-    type AttrGetType ApplicationInactivityTimeoutPropertyInfo = Word32-    type AttrLabel ApplicationInactivityTimeoutPropertyInfo = "inactivity-timeout"-    type AttrOrigin ApplicationInactivityTimeoutPropertyInfo = Application-    attrGet _ = getApplicationInactivityTimeout-    attrSet _ = setApplicationInactivityTimeout-    attrConstruct _ = constructApplicationInactivityTimeout-    attrClear _ = undefined-#endif---- VVV Prop "is-busy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-busy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' application #isBusy-@--}-getApplicationIsBusy :: (MonadIO m, IsApplication o) => o -> m Bool-getApplicationIsBusy obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-busy"--#if ENABLE_OVERLOADING-data ApplicationIsBusyPropertyInfo-instance AttrInfo ApplicationIsBusyPropertyInfo where-    type AttrAllowedOps ApplicationIsBusyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ApplicationIsBusyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ApplicationIsBusyPropertyInfo = IsApplication-    type AttrGetType ApplicationIsBusyPropertyInfo = Bool-    type AttrLabel ApplicationIsBusyPropertyInfo = "is-busy"-    type AttrOrigin ApplicationIsBusyPropertyInfo = Application-    attrGet _ = getApplicationIsBusy-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-registered"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-registered@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' application #isRegistered-@--}-getApplicationIsRegistered :: (MonadIO m, IsApplication o) => o -> m Bool-getApplicationIsRegistered obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-registered"--#if ENABLE_OVERLOADING-data ApplicationIsRegisteredPropertyInfo-instance AttrInfo ApplicationIsRegisteredPropertyInfo where-    type AttrAllowedOps ApplicationIsRegisteredPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ApplicationIsRegisteredPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ApplicationIsRegisteredPropertyInfo = IsApplication-    type AttrGetType ApplicationIsRegisteredPropertyInfo = Bool-    type AttrLabel ApplicationIsRegisteredPropertyInfo = "is-registered"-    type AttrOrigin ApplicationIsRegisteredPropertyInfo = Application-    attrGet _ = getApplicationIsRegistered-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-remote"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-remote@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' application #isRemote-@--}-getApplicationIsRemote :: (MonadIO m, IsApplication o) => o -> m Bool-getApplicationIsRemote obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-remote"--#if ENABLE_OVERLOADING-data ApplicationIsRemotePropertyInfo-instance AttrInfo ApplicationIsRemotePropertyInfo where-    type AttrAllowedOps ApplicationIsRemotePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ApplicationIsRemotePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ApplicationIsRemotePropertyInfo = IsApplication-    type AttrGetType ApplicationIsRemotePropertyInfo = Bool-    type AttrLabel ApplicationIsRemotePropertyInfo = "is-remote"-    type AttrOrigin ApplicationIsRemotePropertyInfo = Application-    attrGet _ = getApplicationIsRemote-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "resource-base-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just True,Just True)--{- |-Get the value of the “@resource-base-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' application #resourceBasePath-@--}-getApplicationResourceBasePath :: (MonadIO m, IsApplication o) => o -> m (Maybe T.Text)-getApplicationResourceBasePath obj = liftIO $ B.Properties.getObjectPropertyString obj "resource-base-path"--{- |-Set the value of the “@resource-base-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' application [ #resourceBasePath 'Data.GI.Base.Attributes.:=' value ]-@--}-setApplicationResourceBasePath :: (MonadIO m, IsApplication o) => o -> T.Text -> m ()-setApplicationResourceBasePath obj val = liftIO $ B.Properties.setObjectPropertyString obj "resource-base-path" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@resource-base-path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructApplicationResourceBasePath :: (IsApplication o) => T.Text -> IO (GValueConstruct o)-constructApplicationResourceBasePath val = B.Properties.constructObjectPropertyString "resource-base-path" (Just val)--{- |-Set the value of the “@resource-base-path@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #resourceBasePath-@--}-clearApplicationResourceBasePath :: (MonadIO m, IsApplication o) => o -> m ()-clearApplicationResourceBasePath obj = liftIO $ B.Properties.setObjectPropertyString obj "resource-base-path" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data ApplicationResourceBasePathPropertyInfo-instance AttrInfo ApplicationResourceBasePathPropertyInfo where-    type AttrAllowedOps ApplicationResourceBasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ApplicationResourceBasePathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ApplicationResourceBasePathPropertyInfo = IsApplication-    type AttrGetType ApplicationResourceBasePathPropertyInfo = (Maybe T.Text)-    type AttrLabel ApplicationResourceBasePathPropertyInfo = "resource-base-path"-    type AttrOrigin ApplicationResourceBasePathPropertyInfo = Application-    attrGet _ = getApplicationResourceBasePath-    attrSet _ = setApplicationResourceBasePath-    attrConstruct _ = constructApplicationResourceBasePath-    attrClear _ = clearApplicationResourceBasePath-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Application-type instance O.AttributeList Application = ApplicationAttributeList-type ApplicationAttributeList = ('[ '("actionGroup", ApplicationActionGroupPropertyInfo), '("applicationId", ApplicationApplicationIdPropertyInfo), '("flags", ApplicationFlagsPropertyInfo), '("inactivityTimeout", ApplicationInactivityTimeoutPropertyInfo), '("isBusy", ApplicationIsBusyPropertyInfo), '("isRegistered", ApplicationIsRegisteredPropertyInfo), '("isRemote", ApplicationIsRemotePropertyInfo), '("resourceBasePath", ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-applicationActionGroup :: AttrLabelProxy "actionGroup"-applicationActionGroup = AttrLabelProxy--applicationApplicationId :: AttrLabelProxy "applicationId"-applicationApplicationId = AttrLabelProxy--applicationFlags :: AttrLabelProxy "flags"-applicationFlags = AttrLabelProxy--applicationInactivityTimeout :: AttrLabelProxy "inactivityTimeout"-applicationInactivityTimeout = AttrLabelProxy--applicationIsBusy :: AttrLabelProxy "isBusy"-applicationIsBusy = AttrLabelProxy--applicationIsRegistered :: AttrLabelProxy "isRegistered"-applicationIsRegistered = AttrLabelProxy--applicationIsRemote :: AttrLabelProxy "isRemote"-applicationIsRemote = AttrLabelProxy--applicationResourceBasePath :: AttrLabelProxy "resourceBasePath"-applicationResourceBasePath = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data ApplicationActivateSignalInfo-instance SignalInfo ApplicationActivateSignalInfo where-    type HaskellCallbackType ApplicationActivateSignalInfo = ApplicationActivateCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ApplicationActivateCallback cb-        cb'' <- mk_ApplicationActivateCallback cb'-        connectSignalFunPtr obj "activate" cb'' connectMode--data ApplicationCommandLineSignalInfo-instance SignalInfo ApplicationCommandLineSignalInfo where-    type HaskellCallbackType ApplicationCommandLineSignalInfo = ApplicationCommandLineCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ApplicationCommandLineCallback cb-        cb'' <- mk_ApplicationCommandLineCallback cb'-        connectSignalFunPtr obj "command-line" cb'' connectMode--data ApplicationHandleLocalOptionsSignalInfo-instance SignalInfo ApplicationHandleLocalOptionsSignalInfo where-    type HaskellCallbackType ApplicationHandleLocalOptionsSignalInfo = ApplicationHandleLocalOptionsCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ApplicationHandleLocalOptionsCallback cb-        cb'' <- mk_ApplicationHandleLocalOptionsCallback cb'-        connectSignalFunPtr obj "handle-local-options" cb'' connectMode--data ApplicationNameLostSignalInfo-instance SignalInfo ApplicationNameLostSignalInfo where-    type HaskellCallbackType ApplicationNameLostSignalInfo = ApplicationNameLostCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ApplicationNameLostCallback cb-        cb'' <- mk_ApplicationNameLostCallback cb'-        connectSignalFunPtr obj "name-lost" cb'' connectMode--data ApplicationOpenSignalInfo-instance SignalInfo ApplicationOpenSignalInfo where-    type HaskellCallbackType ApplicationOpenSignalInfo = ApplicationOpenCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ApplicationOpenCallback cb-        cb'' <- mk_ApplicationOpenCallback cb'-        connectSignalFunPtr obj "open" cb'' connectMode--data ApplicationShutdownSignalInfo-instance SignalInfo ApplicationShutdownSignalInfo where-    type HaskellCallbackType ApplicationShutdownSignalInfo = ApplicationShutdownCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ApplicationShutdownCallback cb-        cb'' <- mk_ApplicationShutdownCallback cb'-        connectSignalFunPtr obj "shutdown" cb'' connectMode--data ApplicationStartupSignalInfo-instance SignalInfo ApplicationStartupSignalInfo where-    type HaskellCallbackType ApplicationStartupSignalInfo = ApplicationStartupCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ApplicationStartupCallback cb-        cb'' <- mk_ApplicationStartupCallback cb'-        connectSignalFunPtr obj "startup" cb'' connectMode--type instance O.SignalList Application = ApplicationSignalList-type ApplicationSignalList = ('[ '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("activate", ApplicationActivateSignalInfo), '("commandLine", ApplicationCommandLineSignalInfo), '("handleLocalOptions", ApplicationHandleLocalOptionsSignalInfo), '("nameLost", ApplicationNameLostSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("open", ApplicationOpenSignalInfo), '("shutdown", ApplicationShutdownSignalInfo), '("startup", ApplicationStartupSignalInfo)] :: [(Symbol, *)])--#endif---- method Application::new--- method type : Constructor--- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the application id", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "ApplicationFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the application flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Application"}))--- throws : False--- Skip return : False--foreign import ccall "g_application_new" g_application_new :: -    CString ->                              -- application_id : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "ApplicationFlags"})-    IO (Ptr Application)--{- |-Creates a new 'GI.Gio.Objects.Application.Application' instance.--If non-'Nothing', the application id must be valid.  See-'GI.Gio.Objects.Application.applicationIdIsValid'.--If no application ID is given then some features of 'GI.Gio.Objects.Application.Application'-(most notably application uniqueness) will be disabled.--}-applicationNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@applicationId@/: the application id -}-    -> [Gio.Flags.ApplicationFlags]-    {- ^ /@flags@/: the application flags -}-    -> m (Maybe Application)-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Application.Application' instance -}-applicationNew applicationId flags = liftIO $ do-    maybeApplicationId <- case applicationId of-        Nothing -> return nullPtr-        Just jApplicationId -> do-            jApplicationId' <- textToCString jApplicationId-            return jApplicationId'-    let flags' = gflagsToWord flags-    result <- g_application_new maybeApplicationId flags'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Application) result'-        return result''-    freeMem maybeApplicationId-    return maybeResult--#if ENABLE_OVERLOADING-#endif---- method Application::activate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_activate" g_application_activate :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO ()--{- |-Activates the application.--In essence, this results in the 'GI.Gio.Objects.Application.Application'::@/activate/@ signal being-emitted in the primary instance.--The application must be registered before calling this function.--/Since: 2.28/--}-applicationActivate ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m ()-applicationActivate application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    g_application_activate application'-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationActivateMethodInfo-instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationActivateMethodInfo a signature where-    overloadedMethod _ = applicationActivate--#endif---- method Application::add_main_option--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "long_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the long name of an option used to specify it in a commandline", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_name", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the short name of an option", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "GLib", name = "OptionFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags from #GOptionFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg", argType = TInterface (Name {namespace = "GLib", name = "OptionArg"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of the option, as a #GOptionArg", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the description for the option in `--help` output", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the placeholder to use for the extra argument\n   parsed by the option in `--help` output", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_add_main_option" g_application_add_main_option :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CString ->                              -- long_name : TBasicType TUTF8-    Int8 ->                                 -- short_name : TBasicType TInt8-    CUInt ->                                -- flags : TInterface (Name {namespace = "GLib", name = "OptionFlags"})-    CUInt ->                                -- arg : TInterface (Name {namespace = "GLib", name = "OptionArg"})-    CString ->                              -- description : TBasicType TUTF8-    CString ->                              -- arg_description : TBasicType TUTF8-    IO ()--{- |-Add an option to be handled by /@application@/.--Calling this function is the equivalent of calling-'GI.Gio.Objects.Application.applicationAddMainOptionEntries' with a single 'GI.GLib.Structs.OptionEntry.OptionEntry'-that has its arg_data member set to 'Nothing'.--The parsed arguments will be packed into a 'GI.GLib.Structs.VariantDict.VariantDict' which-is passed to 'GI.Gio.Objects.Application.Application'::@/handle-local-options/@. If-'GI.Gio.Flags.ApplicationFlagsHandlesCommandLine' is set, then it will also-be sent to the primary instance. See-'GI.Gio.Objects.Application.applicationAddMainOptionEntries' for more details.--See 'GI.GLib.Structs.OptionEntry.OptionEntry' for more documentation of the arguments.--/Since: 2.42/--}-applicationAddMainOption ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: the 'GI.Gio.Objects.Application.Application' -}-    -> T.Text-    {- ^ /@longName@/: the long name of an option used to specify it in a commandline -}-    -> Int8-    {- ^ /@shortName@/: the short name of an option -}-    -> [GLib.Flags.OptionFlags]-    {- ^ /@flags@/: flags from 'GI.GLib.Flags.OptionFlags' -}-    -> GLib.Enums.OptionArg-    {- ^ /@arg@/: the type of the option, as a 'GI.GLib.Enums.OptionArg' -}-    -> T.Text-    {- ^ /@description@/: the description for the option in @--help@ output -}-    -> Maybe (T.Text)-    {- ^ /@argDescription@/: the placeholder to use for the extra argument-   parsed by the option in @--help@ output -}-    -> m ()-applicationAddMainOption application longName shortName flags arg description argDescription = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    longName' <- textToCString longName-    let flags' = gflagsToWord flags-    let arg' = (fromIntegral . fromEnum) arg-    description' <- textToCString description-    maybeArgDescription <- case argDescription of-        Nothing -> return nullPtr-        Just jArgDescription -> do-            jArgDescription' <- textToCString jArgDescription-            return jArgDescription'-    g_application_add_main_option application' longName' shortName flags' arg' description' maybeArgDescription-    touchManagedPtr application-    freeMem longName'-    freeMem description'-    freeMem maybeArgDescription-    return ()--#if ENABLE_OVERLOADING-data ApplicationAddMainOptionMethodInfo-instance (signature ~ (T.Text -> Int8 -> [GLib.Flags.OptionFlags] -> GLib.Enums.OptionArg -> T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationAddMainOptionMethodInfo a signature where-    overloadedMethod _ = applicationAddMainOption--#endif---- method Application::add_main_option_entries--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface (Name {namespace = "GLib", name = "OptionEntry"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a\n          %NULL-terminated list of #GOptionEntrys", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_add_main_option_entries" g_application_add_main_option_entries :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Ptr (Ptr GLib.OptionEntry.OptionEntry) -> -- entries : TCArray True (-1) (-1) (TInterface (Name {namespace = "GLib", name = "OptionEntry"}))-    IO ()--{- |-Adds main option entries to be handled by /@application@/.--This function is comparable to 'GI.GLib.Structs.OptionContext.optionContextAddMainEntries'.--After the commandline arguments are parsed, the-'GI.Gio.Objects.Application.Application'::@/handle-local-options/@ signal will be emitted.  At this-point, the application can inspect the values pointed to by /@argData@/-in the given @/GOptionEntrys/@.--Unlike 'GI.GLib.Structs.OptionContext.OptionContext', 'GI.Gio.Objects.Application.Application' supports giving a 'Nothing'-/@argData@/ for a non-callback 'GI.GLib.Structs.OptionEntry.OptionEntry'.  This results in the-argument in question being packed into a 'GI.GLib.Structs.VariantDict.VariantDict' which is also-passed to 'GI.Gio.Objects.Application.Application'::@/handle-local-options/@, where it can be-inspected and modified.  If 'GI.Gio.Flags.ApplicationFlagsHandlesCommandLine' is-set, then the resulting dictionary is sent to the primary instance,-where 'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetOptionsDict' will return it.-This \"packing\" is done according to the type of the argument ---booleans for normal flags, strings for strings, bytestrings for-filenames, etc.  The packing only occurs if the flag is given (ie: we-do not pack a \"false\" 'GVariant' in the case that a flag is missing).--In general, it is recommended that all commandline arguments are-parsed locally.  The options dictionary should then be used to-transmit the result of the parsing to the primary instance, where-@/g_variant_dict_lookup()/@ can be used.  For local options, it is-possible to either use /@argData@/ in the usual way, or to consult (and-potentially remove) the option from the options dictionary.--This function is new in GLib 2.40.  Before then, the only real choice-was to send all of the commandline arguments (options and all) to the-primary instance for handling.  'GI.Gio.Objects.Application.Application' ignored them completely-on the local side.  Calling this function \"opts in\" to the new-behaviour, and in particular, means that unrecognised options will be-treated as errors.  Unrecognised options have never been ignored when-'GI.Gio.Flags.ApplicationFlagsHandlesCommandLine' is unset.--If 'GI.Gio.Objects.Application.Application'::@/handle-local-options/@ needs to see the list of-filenames, then the use of 'GI.GLib.Constants.OPTION_REMAINING' is recommended.  If-/@argData@/ is 'Nothing' then 'GI.GLib.Constants.OPTION_REMAINING' can be used as a key into-the options dictionary.  If you do use 'GI.GLib.Constants.OPTION_REMAINING' then you-need to handle these arguments for yourself because once they are-consumed, they will no longer be visible to the default handling-(which treats them as filenames to be opened).--It is important to use the proper GVariant format when retrieving-the options with @/g_variant_dict_lookup()/@:--* for 'GI.GLib.Enums.OptionArgNone', use b-* for 'GI.GLib.Enums.OptionArgString', use &s-* for 'GI.GLib.Enums.OptionArgInt', use i-* for 'GI.GLib.Enums.OptionArgInt64', use x-* for 'GI.GLib.Enums.OptionArgDouble', use d-* for 'GI.GLib.Enums.OptionArgFilename', use ^ay-* for 'GI.GLib.Enums.OptionArgStringArray', use &as-* for 'GI.GLib.Enums.OptionArgFilenameArray', use ^aay---/Since: 2.40/--}-applicationAddMainOptionEntries ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> [GLib.OptionEntry.OptionEntry]-    {- ^ /@entries@/: a-          'Nothing'-terminated list of @/GOptionEntrys/@ -}-    -> m ()-applicationAddMainOptionEntries application entries = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    entries' <- mapM unsafeManagedPtrGetPtr entries-    entries'' <- packZeroTerminatedPtrArray entries'-    g_application_add_main_option_entries application' entries''-    touchManagedPtr application-    mapM_ touchManagedPtr entries-    freeMem entries''-    return ()--#if ENABLE_OVERLOADING-data ApplicationAddMainOptionEntriesMethodInfo-instance (signature ~ ([GLib.OptionEntry.OptionEntry] -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationAddMainOptionEntriesMethodInfo a signature where-    overloadedMethod _ = applicationAddMainOptionEntries--#endif---- method Application::add_option_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface (Name {namespace = "GLib", name = "OptionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOptionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_add_option_group" g_application_add_option_group :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Ptr GLib.OptionGroup.OptionGroup ->     -- group : TInterface (Name {namespace = "GLib", name = "OptionGroup"})-    IO ()--{- |-Adds a 'GI.GLib.Structs.OptionGroup.OptionGroup' to the commandline handling of /@application@/.--This function is comparable to 'GI.GLib.Structs.OptionContext.optionContextAddGroup'.--Unlike 'GI.Gio.Objects.Application.applicationAddMainOptionEntries', this function does-not deal with 'Nothing' /@argData@/ and never transmits options to the-primary instance.--The reason for that is because, by the time the options arrive at the-primary instance, it is typically too late to do anything with them.-Taking the GTK option group as an example: GTK will already have been-initialised by the time the 'GI.Gio.Objects.Application.Application'::@/command-line/@ handler runs.-In the case that this is not the first-running instance of the-application, the existing instance may already have been running for-a very long time.--This means that the options from 'GI.GLib.Structs.OptionGroup.OptionGroup' are only really usable-in the case that the instance of the application being run is the-first instance.  Passing options like @--display=@ or @--gdk-debug=@-on future runs will have no effect on the existing primary instance.--Calling this function will cause the options in the supplied option-group to be parsed, but it does not cause you to be \"opted in\" to the-new functionality whereby unrecognised options are rejected even if-'GI.Gio.Flags.ApplicationFlagsHandlesCommandLine' was given.--/Since: 2.40/--}-applicationAddOptionGroup ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: the 'GI.Gio.Objects.Application.Application' -}-    -> GLib.OptionGroup.OptionGroup-    {- ^ /@group@/: a 'GI.GLib.Structs.OptionGroup.OptionGroup' -}-    -> m ()-applicationAddOptionGroup application group = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    group' <- B.ManagedPtr.disownBoxed group-    g_application_add_option_group application' group'-    touchManagedPtr application-    touchManagedPtr group-    return ()--#if ENABLE_OVERLOADING-data ApplicationAddOptionGroupMethodInfo-instance (signature ~ (GLib.OptionGroup.OptionGroup -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationAddOptionGroupMethodInfo a signature where-    overloadedMethod _ = applicationAddOptionGroup--#endif---- method Application::bind_busy_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a boolean property of @object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_bind_busy_property" g_application_bind_busy_property :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Ptr GObject.Object.Object ->            -- object : TInterface (Name {namespace = "GObject", name = "Object"})-    CString ->                              -- property : TBasicType TUTF8-    IO ()--{- |-Marks /@application@/ as busy (see 'GI.Gio.Objects.Application.applicationMarkBusy') while-/@property@/ on /@object@/ is 'True'.--The binding holds a reference to /@application@/ while it is active, but-not to /@object@/. Instead, the binding is destroyed when /@object@/ is-finalized.--/Since: 2.44/--}-applicationBindBusyProperty ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a, GObject.Object.IsObject b) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> b-    {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object' -}-    -> T.Text-    {- ^ /@property@/: the name of a boolean property of /@object@/ -}-    -> m ()-applicationBindBusyProperty application object property = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    object' <- unsafeManagedPtrCastPtr object-    property' <- textToCString property-    g_application_bind_busy_property application' object' property'-    touchManagedPtr application-    touchManagedPtr object-    freeMem property'-    return ()--#if ENABLE_OVERLOADING-data ApplicationBindBusyPropertyMethodInfo-instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsApplication a, GObject.Object.IsObject b) => O.MethodInfo ApplicationBindBusyPropertyMethodInfo a signature where-    overloadedMethod _ = applicationBindBusyProperty--#endif---- method Application::get_application_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", 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 "g_application_get_application_id" g_application_get_application_id :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO CString--{- |-Gets the unique identifier for /@application@/.--/Since: 2.28/--}-applicationGetApplicationId ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m T.Text-    {- ^ __Returns:__ the identifier for /@application@/, owned by /@application@/ -}-applicationGetApplicationId application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_application_id application'-    checkUnexpectedReturnNULL "applicationGetApplicationId" result-    result' <- cstringToText result-    touchManagedPtr application-    return result'--#if ENABLE_OVERLOADING-data ApplicationGetApplicationIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetApplicationIdMethodInfo a signature where-    overloadedMethod _ = applicationGetApplicationId--#endif---- method Application::get_dbus_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_application_get_dbus_connection" g_application_get_dbus_connection :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Gets the 'GI.Gio.Objects.DBusConnection.DBusConnection' being used by the application, or 'Nothing'.--If 'GI.Gio.Objects.Application.Application' is using its D-Bus backend then this function will-return the 'GI.Gio.Objects.DBusConnection.DBusConnection' being used for uniqueness and-communication with the desktop environment and other instances of the-application.--If 'GI.Gio.Objects.Application.Application' is not using D-Bus then this function will return-'Nothing'.  This includes the situation where the D-Bus backend would-normally be in use but we were unable to connect to the bus.--This function must not be called before the application has been-registered.  See 'GI.Gio.Objects.Application.applicationGetIsRegistered'.--/Since: 2.34/--}-applicationGetDbusConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusConnection.DBusConnection', or 'Nothing' -}-applicationGetDbusConnection application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_dbus_connection application'-    checkUnexpectedReturnNULL "applicationGetDbusConnection" result-    result' <- (newObject Gio.DBusConnection.DBusConnection) result-    touchManagedPtr application-    return result'--#if ENABLE_OVERLOADING-data ApplicationGetDbusConnectionMethodInfo-instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetDbusConnectionMethodInfo a signature where-    overloadedMethod _ = applicationGetDbusConnection--#endif---- method Application::get_dbus_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", 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 "g_application_get_dbus_object_path" g_application_get_dbus_object_path :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO CString--{- |-Gets the D-Bus object path being used by the application, or 'Nothing'.--If 'GI.Gio.Objects.Application.Application' is using its D-Bus backend then this function will-return the D-Bus object path that 'GI.Gio.Objects.Application.Application' is using.  If the-application is the primary instance then there is an object published-at this path.  If the application is not the primary instance then-the result of this function is undefined.--If 'GI.Gio.Objects.Application.Application' is not using D-Bus then this function will return-'Nothing'.  This includes the situation where the D-Bus backend would-normally be in use but we were unable to connect to the bus.--This function must not be called before the application has been-registered.  See 'GI.Gio.Objects.Application.applicationGetIsRegistered'.--/Since: 2.34/--}-applicationGetDbusObjectPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m T.Text-    {- ^ __Returns:__ the object path, or 'Nothing' -}-applicationGetDbusObjectPath application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_dbus_object_path application'-    checkUnexpectedReturnNULL "applicationGetDbusObjectPath" result-    result' <- cstringToText result-    touchManagedPtr application-    return result'--#if ENABLE_OVERLOADING-data ApplicationGetDbusObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetDbusObjectPathMethodInfo a signature where-    overloadedMethod _ = applicationGetDbusObjectPath--#endif---- method Application::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ApplicationFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_application_get_flags" g_application_get_flags :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO CUInt--{- |-Gets the flags for /@application@/.--See 'GI.Gio.Flags.ApplicationFlags'.--/Since: 2.28/--}-applicationGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m [Gio.Flags.ApplicationFlags]-    {- ^ __Returns:__ the flags for /@application@/ -}-applicationGetFlags application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_flags application'-    let result' = wordToGFlags result-    touchManagedPtr application-    return result'--#if ENABLE_OVERLOADING-data ApplicationGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.ApplicationFlags]), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetFlagsMethodInfo a signature where-    overloadedMethod _ = applicationGetFlags--#endif---- method Application::get_inactivity_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", 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 "g_application_get_inactivity_timeout" g_application_get_inactivity_timeout :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO Word32--{- |-Gets the current inactivity timeout for the application.--This is the amount of time (in milliseconds) after the last call to-'GI.Gio.Objects.Application.applicationRelease' before the application stops running.--/Since: 2.28/--}-applicationGetInactivityTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m Word32-    {- ^ __Returns:__ the timeout, in milliseconds -}-applicationGetInactivityTimeout application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_inactivity_timeout application'-    touchManagedPtr application-    return result--#if ENABLE_OVERLOADING-data ApplicationGetInactivityTimeoutMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetInactivityTimeoutMethodInfo a signature where-    overloadedMethod _ = applicationGetInactivityTimeout--#endif---- method Application::get_is_busy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", 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 "g_application_get_is_busy" g_application_get_is_busy :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO CInt--{- |-Gets the application\'s current busy state, as set through-'GI.Gio.Objects.Application.applicationMarkBusy' or 'GI.Gio.Objects.Application.applicationBindBusyProperty'.--/Since: 2.44/--}-applicationGetIsBusy ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@application@/ is currenty marked as busy -}-applicationGetIsBusy application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_is_busy application'-    let result' = (/= 0) result-    touchManagedPtr application-    return result'--#if ENABLE_OVERLOADING-data ApplicationGetIsBusyMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetIsBusyMethodInfo a signature where-    overloadedMethod _ = applicationGetIsBusy--#endif---- method Application::get_is_registered--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", 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 "g_application_get_is_registered" g_application_get_is_registered :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO CInt--{- |-Checks if /@application@/ is registered.--An application is registered if 'GI.Gio.Objects.Application.applicationRegister' has been-successfully called.--/Since: 2.28/--}-applicationGetIsRegistered ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@application@/ is registered -}-applicationGetIsRegistered application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_is_registered application'-    let result' = (/= 0) result-    touchManagedPtr application-    return result'--#if ENABLE_OVERLOADING-data ApplicationGetIsRegisteredMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetIsRegisteredMethodInfo a signature where-    overloadedMethod _ = applicationGetIsRegistered--#endif---- method Application::get_is_remote--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", 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 "g_application_get_is_remote" g_application_get_is_remote :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO CInt--{- |-Checks if /@application@/ is remote.--If /@application@/ is remote then it means that another instance of-application already exists (the \'primary\' instance).  Calls to-perform actions on /@application@/ will result in the actions being-performed by the primary instance.--The value of this property cannot be accessed before-'GI.Gio.Objects.Application.applicationRegister' has been called.  See-'GI.Gio.Objects.Application.applicationGetIsRegistered'.--/Since: 2.28/--}-applicationGetIsRemote ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@application@/ is remote -}-applicationGetIsRemote application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_is_remote application'-    let result' = (/= 0) result-    touchManagedPtr application-    return result'--#if ENABLE_OVERLOADING-data ApplicationGetIsRemoteMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetIsRemoteMethodInfo a signature where-    overloadedMethod _ = applicationGetIsRemote--#endif---- method Application::get_resource_base_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", 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 "g_application_get_resource_base_path" g_application_get_resource_base_path :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO CString--{- |-Gets the resource base path of /@application@/.--See 'GI.Gio.Objects.Application.applicationSetResourceBasePath' for more information.--/Since: 2.42/--}-applicationGetResourceBasePath ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the base resource path, if one is set -}-applicationGetResourceBasePath application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    result <- g_application_get_resource_base_path application'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr application-    return maybeResult--#if ENABLE_OVERLOADING-data ApplicationGetResourceBasePathMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsApplication a) => O.MethodInfo ApplicationGetResourceBasePathMethodInfo a signature where-    overloadedMethod _ = applicationGetResourceBasePath--#endif---- method Application::hold--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_hold" g_application_hold :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO ()--{- |-Increases the use count of /@application@/.--Use this function to indicate that the application has a reason to-continue to run.  For example, 'GI.Gio.Objects.Application.applicationHold' is called by GTK+-when a toplevel window is on the screen.--To cancel the hold, call 'GI.Gio.Objects.Application.applicationRelease'.--}-applicationHold ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m ()-applicationHold application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    g_application_hold application'-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationHoldMethodInfo-instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationHoldMethodInfo a signature where-    overloadedMethod _ = applicationHold--#endif---- method Application::mark_busy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_mark_busy" g_application_mark_busy :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO ()--{- |-Increases the busy count of /@application@/.--Use this function to indicate that the application is busy, for instance-while a long running operation is pending.--The busy state will be exposed to other processes, so a session shell will-use that information to indicate the state to the user (e.g. with a-spinner).--To cancel the busy indication, use 'GI.Gio.Objects.Application.applicationUnmarkBusy'.--/Since: 2.38/--}-applicationMarkBusy ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m ()-applicationMarkBusy application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    g_application_mark_busy application'-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationMarkBusyMethodInfo-instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationMarkBusyMethodInfo a signature where-    overloadedMethod _ = applicationMarkBusy--#endif---- method Application::open--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "File"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GFiles to open", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the @files array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a hint (or \"\"), but never %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the @files array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_open" g_application_open :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Ptr (Ptr Gio.File.File) ->              -- files : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "File"}))-    Int32 ->                                -- n_files : TBasicType TInt-    CString ->                              -- hint : TBasicType TUTF8-    IO ()--{- |-Opens the given files.--In essence, this results in the 'GI.Gio.Objects.Application.Application'::@/open/@ signal being emitted-in the primary instance.--/@nFiles@/ must be greater than zero.--/@hint@/ is simply passed through to the ::open signal.  It is-intended to be used by applications that have multiple modes for-opening files (eg: \"view\" vs \"edit\", etc).  Unless you have a need-for this functionality, you should use \"\".--The application must be registered before calling this function-and it must have the 'GI.Gio.Flags.ApplicationFlagsHandlesOpen' flag set.--/Since: 2.28/--}-applicationOpen ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> [Gio.File.File]-    {- ^ /@files@/: an array of @/GFiles/@ to open -}-    -> T.Text-    {- ^ /@hint@/: a hint (or \"\"), but never 'Nothing' -}-    -> m ()-applicationOpen application files hint = liftIO $ do-    let nFiles = fromIntegral $ length files-    application' <- unsafeManagedPtrCastPtr application-    files' <- mapM unsafeManagedPtrCastPtr files-    files'' <- packPtrArray files'-    hint' <- textToCString hint-    g_application_open application' files'' nFiles hint'-    touchManagedPtr application-    mapM_ touchManagedPtr files-    freeMem files''-    freeMem hint'-    return ()--#if ENABLE_OVERLOADING-data ApplicationOpenMethodInfo-instance (signature ~ ([Gio.File.File] -> T.Text -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationOpenMethodInfo a signature where-    overloadedMethod _ = applicationOpen--#endif---- method Application::quit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_quit" g_application_quit :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO ()--{- |-Immediately quits the application.--Upon return to the mainloop, 'GI.Gio.Objects.Application.applicationRun' will return,-calling only the \'shutdown\' function before doing so.--The hold count is ignored.-Take care if your code has called 'GI.Gio.Objects.Application.applicationHold' on the application and-is therefore still expecting it to exist.-(Note that you may have called 'GI.Gio.Objects.Application.applicationHold' indirectly, for example-through @/gtk_application_add_window()/@.)--The result of calling 'GI.Gio.Objects.Application.applicationRun' again after it returns is-unspecified.--/Since: 2.32/--}-applicationQuit ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m ()-applicationQuit application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    g_application_quit application'-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationQuitMethodInfo-instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationQuitMethodInfo a signature where-    overloadedMethod _ = applicationQuit--#endif---- method Application::register--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_application_register" g_application_register :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Attempts registration of the application.--This is the point at which the application discovers if it is the-primary instance or merely acting as a remote for an already-existing-primary instance.  This is implemented by attempting to acquire the-application identifier as a unique bus name on the session bus using-GDBus.--If there is no application ID or if 'GI.Gio.Flags.ApplicationFlagsNonUnique' was-given, then this process will always become the primary instance.--Due to the internal architecture of GDBus, method calls can be-dispatched at any time (even if a main loop is not running).  For-this reason, you must ensure that any object paths that you wish to-register are registered before calling this function.--If the application has already been registered then 'True' is-returned with no work performed.--The 'GI.Gio.Objects.Application.Application'::@/startup/@ signal is emitted if registration succeeds-and /@application@/ is the primary instance (including the non-unique-case).--In the event of an error (such as /@cancellable@/ being cancelled, or a-failure to connect to the session bus), 'False' is returned and /@error@/-is set appropriately.--Note: the return value of this function is not an indicator that this-instance is or is not the primary instance of the application.  See-'GI.Gio.Objects.Application.applicationGetIsRemote' for that.--/Since: 2.28/--}-applicationRegister ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-applicationRegister application cancellable = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_application_register application' maybeCancellable-        touchManagedPtr application-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ApplicationRegisterMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ApplicationRegisterMethodInfo a signature where-    overloadedMethod _ = applicationRegister--#endif---- method Application::release--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_release" g_application_release :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO ()--{- |-Decrease the use count of /@application@/.--When the use count reaches zero, the application will stop running.--Never call this function except to cancel the effect of a previous-call to 'GI.Gio.Objects.Application.applicationHold'.--}-applicationRelease ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m ()-applicationRelease application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    g_application_release application'-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationReleaseMethodInfo-instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationReleaseMethodInfo a signature where-    overloadedMethod _ = applicationRelease--#endif---- method Application::run--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the argc from main() (or 0 if @argv is %NULL)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 1 (TBasicType TFileName), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "\n    the argv from main(), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the argc from main() (or 0 if @argv is %NULL)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "g_application_run" g_application_run :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Int32 ->                                -- argc : TBasicType TInt-    Ptr CString ->                          -- argv : TCArray False (-1) 1 (TBasicType TFileName)-    IO Int32--{- |-Runs the application.--This function is intended to be run from @/main()/@ and its return value-is intended to be returned by @/main()/@. Although you are expected to pass-the /@argc@/, /@argv@/ parameters from @/main()/@ to this function, it is possible-to pass 'Nothing' if /@argv@/ is not available or commandline handling is not-required.  Note that on Windows, /@argc@/ and /@argv@/ are ignored, and-@/g_win32_get_command_line()/@ is called internally (for proper support-of Unicode commandline arguments).--'GI.Gio.Objects.Application.Application' will attempt to parse the commandline arguments.  You-can add commandline flags to the list of recognised options by way of-'GI.Gio.Objects.Application.applicationAddMainOptionEntries'.  After this, the-'GI.Gio.Objects.Application.Application'::@/handle-local-options/@ signal is emitted, from which the-application can inspect the values of its @/GOptionEntrys/@.--'GI.Gio.Objects.Application.Application'::@/handle-local-options/@ is a good place to handle options-such as @--version@, where an immediate reply from the local process is-desired (instead of communicating with an already-running instance).-A 'GI.Gio.Objects.Application.Application'::@/handle-local-options/@ handler can stop further processing-by returning a non-negative value, which then becomes the exit status of-the process.--What happens next depends on the flags: if-'GI.Gio.Flags.ApplicationFlagsHandlesCommandLine' was specified then the remaining-commandline arguments are sent to the primary instance, where a-'GI.Gio.Objects.Application.Application'::@/command-line/@ signal is emitted.  Otherwise, the-remaining commandline arguments are assumed to be a list of files.-If there are no files listed, the application is activated via the-'GI.Gio.Objects.Application.Application'::@/activate/@ signal.  If there are one or more files, and-'GI.Gio.Flags.ApplicationFlagsHandlesOpen' was specified then the files are opened-via the 'GI.Gio.Objects.Application.Application'::@/open/@ signal.--If you are interested in doing more complicated local handling of the-commandline then you should implement your own 'GI.Gio.Objects.Application.Application' subclass-and override @/local_command_line()/@. In this case, you most likely want-to return 'True' from your @/local_command_line()/@ implementation to-suppress the default handling. See-[gapplication-example-cmdline2.c][gapplication-example-cmdline2]-for an example.--If, after the above is done, the use count of the application is zero-then the exit status is returned immediately.  If the use count is-non-zero then the default main context is iterated until the use count-falls to zero, at which point 0 is returned.--If the 'GI.Gio.Flags.ApplicationFlagsIsService' flag is set, then the service will-run for as much as 10 seconds with a use count of zero while waiting-for the message that caused the activation to arrive.  After that,-if the use count falls to zero the application will exit immediately,-except in the case that 'GI.Gio.Objects.Application.applicationSetInactivityTimeout' is in-use.--This function sets the prgname ('GI.GLib.Functions.setPrgname'), if not already set,-to the basename of argv[0].--Much like 'GI.GLib.Structs.MainLoop.mainLoopRun', this function will acquire the main context-for the duration that the application is running.--Since 2.40, applications that are not explicitly flagged as services-or launchers (ie: neither 'GI.Gio.Flags.ApplicationFlagsIsService' or-'GI.Gio.Flags.ApplicationFlagsIsLauncher' are given as flags) will check (from the-default handler for local_command_line) if \"--gapplication-service\"-was given in the command line.  If this flag is present then normal-commandline processing is interrupted and the-'GI.Gio.Flags.ApplicationFlagsIsService' flag is set.  This provides a \"compromise\"-solution whereby running an application directly from the commandline-will invoke it in the normal way (which can be useful for debugging)-while still allowing applications to be D-Bus activated in service-mode.  The D-Bus service file should invoke the executable with-\"--gapplication-service\" as the sole commandline argument.  This-approach is suitable for use by most graphical applications but-should not be used from applications like editors that need precise-control over when processes invoked via the commandline will exit and-what their exit status will be.--/Since: 2.28/--}-applicationRun ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> Maybe ([[Char]])-    {- ^ /@argv@/: -    the argv from @/main()/@, or 'Nothing' -}-    -> m Int32-    {- ^ __Returns:__ the exit status -}-applicationRun application argv = liftIO $ do-    let argc = case argv of-            Nothing -> 0-            Just jArgv -> fromIntegral $ length jArgv-    application' <- unsafeManagedPtrCastPtr application-    maybeArgv <- case argv of-        Nothing -> return nullPtr-        Just jArgv -> do-            jArgv' <- packFileNameArray jArgv-            return jArgv'-    result <- g_application_run application' argc maybeArgv-    touchManagedPtr application-    (mapCArrayWithLength argc) freeMem maybeArgv-    freeMem maybeArgv-    return result--#if ENABLE_OVERLOADING-data ApplicationRunMethodInfo-instance (signature ~ (Maybe ([[Char]]) -> m Int32), MonadIO m, IsApplication a) => O.MethodInfo ApplicationRunMethodInfo a signature where-    overloadedMethod _ = applicationRun--#endif---- method Application::send_notification--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "id of the notification, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GNotification to send", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_send_notification" g_application_send_notification :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CString ->                              -- id : TBasicType TUTF8-    Ptr Gio.Notification.Notification ->    -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    IO ()--{- |-Sends a notification on behalf of /@application@/ to the desktop shell.-There is no guarantee that the notification is displayed immediately,-or even at all.--Notifications may persist after the application exits. It will be-D-Bus-activated when the notification or one of its actions is-activated.--Modifying /@notification@/ after this call has no effect. However, the-object can be reused for a later call to this function.--/@id@/ may be any string that uniquely identifies the event for the-application. It does not need to be in any special format. For-example, \"new-message\" might be appropriate for a notification about-new messages.--If a previous notification was sent with the same /@id@/, it will be-replaced with /@notification@/ and shown again as if it was a new-notification. This works even for notifications sent from a previous-execution of the application, as long as /@id@/ is the same string.--/@id@/ may be 'Nothing', but it is impossible to replace or withdraw-notifications without an id.--If /@notification@/ is no longer relevant, it can be withdrawn with-'GI.Gio.Objects.Application.applicationWithdrawNotification'.--/Since: 2.40/--}-applicationSendNotification ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.Notification.IsNotification b) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> Maybe (T.Text)-    {- ^ /@id@/: id of the notification, or 'Nothing' -}-    -> b-    {- ^ /@notification@/: the 'GI.Gio.Objects.Notification.Notification' to send -}-    -> m ()-applicationSendNotification application id notification = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    maybeId <- case id of-        Nothing -> return nullPtr-        Just jId -> do-            jId' <- textToCString jId-            return jId'-    notification' <- unsafeManagedPtrCastPtr notification-    g_application_send_notification application' maybeId notification'-    touchManagedPtr application-    touchManagedPtr notification-    freeMem maybeId-    return ()--#if ENABLE_OVERLOADING-data ApplicationSendNotificationMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, IsApplication a, Gio.Notification.IsNotification b) => O.MethodInfo ApplicationSendNotificationMethodInfo a signature where-    overloadedMethod _ = applicationSendNotification--#endif---- method Application::set_action_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GActionGroup, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_action_group" g_application_set_action_group :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Ptr Gio.ActionGroup.ActionGroup ->      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    IO ()--{-# DEPRECATED applicationSetActionGroup ["(Since version 2.32)","Use the 'GI.Gio.Interfaces.ActionMap.ActionMap' interface instead.  Never ever","mix use of this API with use of 'GI.Gio.Interfaces.ActionMap.ActionMap' on the same /@application@/","or things will go very badly wrong.  This function is known to","introduce buggy behaviour (ie: signals not emitted on changes to the","action group), so you should really use 'GI.Gio.Interfaces.ActionMap.ActionMap' instead."] #-}-{- |-This used to be how actions were associated with a 'GI.Gio.Objects.Application.Application'.-Now there is 'GI.Gio.Interfaces.ActionMap.ActionMap' for that.--/Since: 2.28/--}-applicationSetActionGroup ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a, Gio.ActionGroup.IsActionGroup b) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> Maybe (b)-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup', or 'Nothing' -}-    -> m ()-applicationSetActionGroup application actionGroup = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    maybeActionGroup <- case actionGroup of-        Nothing -> return nullPtr-        Just jActionGroup -> do-            jActionGroup' <- unsafeManagedPtrCastPtr jActionGroup-            return jActionGroup'-    g_application_set_action_group application' maybeActionGroup-    touchManagedPtr application-    whenJust actionGroup touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetActionGroupMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsApplication a, Gio.ActionGroup.IsActionGroup b) => O.MethodInfo ApplicationSetActionGroupMethodInfo a signature where-    overloadedMethod _ = applicationSetActionGroup--#endif---- method Application::set_application_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the identifier for @application", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_application_id" g_application_set_application_id :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CString ->                              -- application_id : TBasicType TUTF8-    IO ()--{- |-Sets the unique identifier for /@application@/.--The application id can only be modified if /@application@/ has not yet-been registered.--If non-'Nothing', the application id must be valid.  See-'GI.Gio.Objects.Application.applicationIdIsValid'.--/Since: 2.28/--}-applicationSetApplicationId ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> Maybe (T.Text)-    {- ^ /@applicationId@/: the identifier for /@application@/ -}-    -> m ()-applicationSetApplicationId application applicationId = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    maybeApplicationId <- case applicationId of-        Nothing -> return nullPtr-        Just jApplicationId -> do-            jApplicationId' <- textToCString jApplicationId-            return jApplicationId'-    g_application_set_application_id application' maybeApplicationId-    touchManagedPtr application-    freeMem maybeApplicationId-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetApplicationIdMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetApplicationIdMethodInfo a signature where-    overloadedMethod _ = applicationSetApplicationId--#endif---- method Application::set_default--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the application to set as default, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_default" g_application_set_default :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO ()--{- |-Sets or unsets the default application for the process, as returned-by 'GI.Gio.Objects.Application.applicationGetDefault'.--This function does not take its own reference on /@application@/.  If-/@application@/ is destroyed then the default application will revert-back to 'Nothing'.--/Since: 2.32/--}-applicationSetDefault ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: the application to set as default, or 'Nothing' -}-    -> m ()-applicationSetDefault application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    g_application_set_default application'-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetDefaultMethodInfo-instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetDefaultMethodInfo a signature where-    overloadedMethod _ = applicationSetDefault--#endif---- method Application::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "ApplicationFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the flags for @application", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_flags" g_application_set_flags :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "ApplicationFlags"})-    IO ()--{- |-Sets the flags for /@application@/.--The flags can only be modified if /@application@/ has not yet been-registered.--See 'GI.Gio.Flags.ApplicationFlags'.--/Since: 2.28/--}-applicationSetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> [Gio.Flags.ApplicationFlags]-    {- ^ /@flags@/: the flags for /@application@/ -}-    -> m ()-applicationSetFlags application flags = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    let flags' = gflagsToWord flags-    g_application_set_flags application' flags'-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetFlagsMethodInfo-instance (signature ~ ([Gio.Flags.ApplicationFlags] -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetFlagsMethodInfo a signature where-    overloadedMethod _ = applicationSetFlags--#endif---- method Application::set_inactivity_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inactivity_timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout, in milliseconds", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_inactivity_timeout" g_application_set_inactivity_timeout :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Word32 ->                               -- inactivity_timeout : TBasicType TUInt-    IO ()--{- |-Sets the current inactivity timeout for the application.--This is the amount of time (in milliseconds) after the last call to-'GI.Gio.Objects.Application.applicationRelease' before the application stops running.--This call has no side effects of its own.  The value set here is only-used for next time 'GI.Gio.Objects.Application.applicationRelease' drops the use count to-zero.  Any timeouts currently in progress are not impacted.--/Since: 2.28/--}-applicationSetInactivityTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> Word32-    {- ^ /@inactivityTimeout@/: the timeout, in milliseconds -}-    -> m ()-applicationSetInactivityTimeout application inactivityTimeout = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    g_application_set_inactivity_timeout application' inactivityTimeout-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetInactivityTimeoutMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetInactivityTimeoutMethodInfo a signature where-    overloadedMethod _ = applicationSetInactivityTimeout--#endif---- method Application::set_option_context_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a string to be shown in `--help` output\n after the list of options, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_option_context_description" g_application_set_option_context_description :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CString ->                              -- description : TBasicType TUTF8-    IO ()--{- |-Adds a description to the /@application@/ option context.--See 'GI.GLib.Structs.OptionContext.optionContextSetDescription' for more information.--/Since: 2.56/--}-applicationSetOptionContextDescription ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: the 'GI.Gio.Objects.Application.Application' -}-    -> Maybe (T.Text)-    {- ^ /@description@/: a string to be shown in @--help@ output- after the list of options, or 'Nothing' -}-    -> m ()-applicationSetOptionContextDescription application description = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    maybeDescription <- case description of-        Nothing -> return nullPtr-        Just jDescription -> do-            jDescription' <- textToCString jDescription-            return jDescription'-    g_application_set_option_context_description application' maybeDescription-    touchManagedPtr application-    freeMem maybeDescription-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetOptionContextDescriptionMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetOptionContextDescriptionMethodInfo a signature where-    overloadedMethod _ = applicationSetOptionContextDescription--#endif---- method Application::set_option_context_parameter_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a string which is displayed\n  in the first line of `--help` output, after the usage summary `programname [OPTION...]`.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_option_context_parameter_string" g_application_set_option_context_parameter_string :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CString ->                              -- parameter_string : TBasicType TUTF8-    IO ()--{- |-Sets the parameter string to be used by the commandline handling of /@application@/.--This function registers the argument to be passed to @/g_option_context_new()/@-when the internal 'GI.GLib.Structs.OptionContext.OptionContext' of /@application@/ is created.--See @/g_option_context_new()/@ for more information about /@parameterString@/.--/Since: 2.56/--}-applicationSetOptionContextParameterString ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: the 'GI.Gio.Objects.Application.Application' -}-    -> Maybe (T.Text)-    {- ^ /@parameterString@/: a string which is displayed-  in the first line of @--help@ output, after the usage summary @programname [OPTION...]@. -}-    -> m ()-applicationSetOptionContextParameterString application parameterString = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    maybeParameterString <- case parameterString of-        Nothing -> return nullPtr-        Just jParameterString -> do-            jParameterString' <- textToCString jParameterString-            return jParameterString'-    g_application_set_option_context_parameter_string application' maybeParameterString-    touchManagedPtr application-    freeMem maybeParameterString-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetOptionContextParameterStringMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetOptionContextParameterStringMethodInfo a signature where-    overloadedMethod _ = applicationSetOptionContextParameterString--#endif---- method Application::set_option_context_summary--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a string to be shown in `--help` output\n before the list of options, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_option_context_summary" g_application_set_option_context_summary :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CString ->                              -- summary : TBasicType TUTF8-    IO ()--{- |-Adds a summary to the /@application@/ option context.--See 'GI.GLib.Structs.OptionContext.optionContextSetSummary' for more information.--/Since: 2.56/--}-applicationSetOptionContextSummary ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: the 'GI.Gio.Objects.Application.Application' -}-    -> Maybe (T.Text)-    {- ^ /@summary@/: a string to be shown in @--help@ output- before the list of options, or 'Nothing' -}-    -> m ()-applicationSetOptionContextSummary application summary = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    maybeSummary <- case summary of-        Nothing -> return nullPtr-        Just jSummary -> do-            jSummary' <- textToCString jSummary-            return jSummary'-    g_application_set_option_context_summary application' maybeSummary-    touchManagedPtr application-    freeMem maybeSummary-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetOptionContextSummaryMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetOptionContextSummaryMethodInfo a signature where-    overloadedMethod _ = applicationSetOptionContextSummary--#endif---- method Application::set_resource_base_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the resource path to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_set_resource_base_path" g_application_set_resource_base_path :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CString ->                              -- resource_path : TBasicType TUTF8-    IO ()--{- |-Sets (or unsets) the base resource path of /@application@/.--The path is used to automatically load various [application-resources][gresource] such as menu layouts and action descriptions.-The various types of resources will be found at fixed names relative-to the given base path.--By default, the resource base path is determined from the application-ID by prefixing \'\/\' and replacing each \'.\' with \'\/\'.  This is done at-the time that the 'GI.Gio.Objects.Application.Application' object is constructed.  Changes to-the application ID after that point will not have an impact on the-resource base path.--As an example, if the application has an ID of \"org.example.app\" then-the default resource base path will be \"\/org\/example\/app\".  If this-is a @/GtkApplication/@ (and you have not manually changed the path)-then Gtk will then search for the menus of the application at-\"\/org\/example\/app\/gtk\/menus.ui\".--See 'GI.Gio.Structs.Resource.Resource' for more information about adding resources to your-application.--You can disable automatic resource loading functionality by setting-the path to 'Nothing'.--Changing the resource base path once the application is running is-not recommended.  The point at which the resource path is consulted-for forming paths for various purposes is unspecified.  When writing-a sub-class of 'GI.Gio.Objects.Application.Application' you should either set the-'GI.Gio.Objects.Application.Application':@/resource-base-path/@ property at construction time, or call-this function during the instance initialization. Alternatively, you-can call this function in the 'GI.Gio.Structs.ApplicationClass.ApplicationClass'.@/startup/@ virtual function,-before chaining up to the parent implementation.--/Since: 2.42/--}-applicationSetResourceBasePath ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> Maybe (T.Text)-    {- ^ /@resourcePath@/: the resource path to use -}-    -> m ()-applicationSetResourceBasePath application resourcePath = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    maybeResourcePath <- case resourcePath of-        Nothing -> return nullPtr-        Just jResourcePath -> do-            jResourcePath' <- textToCString jResourcePath-            return jResourcePath'-    g_application_set_resource_base_path application' maybeResourcePath-    touchManagedPtr application-    freeMem maybeResourcePath-    return ()--#if ENABLE_OVERLOADING-data ApplicationSetResourceBasePathMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationSetResourceBasePathMethodInfo a signature where-    overloadedMethod _ = applicationSetResourceBasePath--#endif---- method Application::unbind_busy_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a boolean property of @object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_unbind_busy_property" g_application_unbind_busy_property :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    Ptr GObject.Object.Object ->            -- object : TInterface (Name {namespace = "GObject", name = "Object"})-    CString ->                              -- property : TBasicType TUTF8-    IO ()--{- |-Destroys a binding between /@property@/ and the busy state of-/@application@/ that was previously created with-'GI.Gio.Objects.Application.applicationBindBusyProperty'.--/Since: 2.44/--}-applicationUnbindBusyProperty ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a, GObject.Object.IsObject b) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> b-    {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object' -}-    -> T.Text-    {- ^ /@property@/: the name of a boolean property of /@object@/ -}-    -> m ()-applicationUnbindBusyProperty application object property = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    object' <- unsafeManagedPtrCastPtr object-    property' <- textToCString property-    g_application_unbind_busy_property application' object' property'-    touchManagedPtr application-    touchManagedPtr object-    freeMem property'-    return ()--#if ENABLE_OVERLOADING-data ApplicationUnbindBusyPropertyMethodInfo-instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsApplication a, GObject.Object.IsObject b) => O.MethodInfo ApplicationUnbindBusyPropertyMethodInfo a signature where-    overloadedMethod _ = applicationUnbindBusyProperty--#endif---- method Application::unmark_busy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_unmark_busy" g_application_unmark_busy :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    IO ()--{- |-Decreases the busy count of /@application@/.--When the busy count reaches zero, the new state will be propagated-to other processes.--This function must only be called to cancel the effect of a previous-call to 'GI.Gio.Objects.Application.applicationMarkBusy'.--/Since: 2.38/--}-applicationUnmarkBusy ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> m ()-applicationUnmarkBusy application = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    g_application_unmark_busy application'-    touchManagedPtr application-    return ()--#if ENABLE_OVERLOADING-data ApplicationUnmarkBusyMethodInfo-instance (signature ~ (m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationUnmarkBusyMethodInfo a signature where-    overloadedMethod _ = applicationUnmarkBusy--#endif---- method Application::withdraw_notification--- method type : OrdinaryMethod--- Args : [Arg {argCName = "application", argType = TInterface (Name {namespace = "Gio", name = "Application"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplication", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "id of a previously sent notification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_withdraw_notification" g_application_withdraw_notification :: -    Ptr Application ->                      -- application : TInterface (Name {namespace = "Gio", name = "Application"})-    CString ->                              -- id : TBasicType TUTF8-    IO ()--{- |-Withdraws a notification that was sent with-'GI.Gio.Objects.Application.applicationSendNotification'.--This call does nothing if a notification with /@id@/ doesn\'t exist or-the notification was never sent.--This function works even for notifications sent in previous-executions of this application, as long /@id@/ is the same as it was for-the sent notification.--Note that notifications are dismissed when the user clicks on one-of the buttons in a notification or triggers its default action, so-there is no need to explicitly withdraw the notification in that case.--/Since: 2.40/--}-applicationWithdrawNotification ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplication a) =>-    a-    {- ^ /@application@/: a 'GI.Gio.Objects.Application.Application' -}-    -> T.Text-    {- ^ /@id@/: id of a previously sent notification -}-    -> m ()-applicationWithdrawNotification application id = liftIO $ do-    application' <- unsafeManagedPtrCastPtr application-    id' <- textToCString id-    g_application_withdraw_notification application' id'-    touchManagedPtr application-    freeMem id'-    return ()--#if ENABLE_OVERLOADING-data ApplicationWithdrawNotificationMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsApplication a) => O.MethodInfo ApplicationWithdrawNotificationMethodInfo a signature where-    overloadedMethod _ = applicationWithdrawNotification--#endif---- method Application::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Application"}))--- throws : False--- Skip return : False--foreign import ccall "g_application_get_default" g_application_get_default :: -    IO (Ptr Application)--{- |-Returns the default 'GI.Gio.Objects.Application.Application' instance for this process.--Normally there is only one 'GI.Gio.Objects.Application.Application' per process and it becomes-the default when it is created.  You can exercise more control over-this by using 'GI.Gio.Objects.Application.applicationSetDefault'.--If there is no default application then 'Nothing' is returned.--/Since: 2.32/--}-applicationGetDefault ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Application-    {- ^ __Returns:__ the default application for this process, or 'Nothing' -}-applicationGetDefault  = liftIO $ do-    result <- g_application_get_default-    checkUnexpectedReturnNULL "applicationGetDefault" result-    result' <- (newObject Application) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Application::id_is_valid--- method type : MemberFunction--- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a potential application identifier", 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 "g_application_id_is_valid" g_application_id_is_valid :: -    CString ->                              -- application_id : TBasicType TUTF8-    IO CInt--{- |-Checks if /@applicationId@/ is a valid application identifier.--A valid ID is required for calls to 'GI.Gio.Objects.Application.applicationNew' and-'GI.Gio.Objects.Application.applicationSetApplicationId'.--Application identifiers follow the same format as-<https://dbus.freedesktop.org/doc/dbus-specification.html#message-protocol-names-bus D-Bus well-known bus names>.-For convenience, the restrictions on application identifiers are-reproduced here:--* Application identifiers 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]_-@,-with @-@ discouraged in new application identifiers. Each element must not-begin with a digit.-* Application identifiers must contain at least one @.@ (period) character-(and thus at least two elements).-* Application identifiers must not begin with a @.@ (period) character.-* Application identifiers must not exceed 255 characters.---Note that the hyphen (@-@) character is allowed in application identifiers,-but is problematic or not allowed in various specifications and APIs that-refer to D-Bus, such as-<http://docs.flatpak.org/en/latest/introduction.html#identifiers Flatpak application IDs>,-the-<https://specifications.freedesktop.org/desktop-entry-spec/desktop-entry-spec-latest.html#dbus `DBusActivatable` interface in the Desktop Entry Specification>,-and the convention that an application\'s \"main\" interface and object path-resemble its application identifier and bus name. To avoid situations that-require special-case handling, it is recommended that new application-identifiers consistently replace hyphens with underscores.--Like D-Bus interface names, application identifiers should start with the-reversed DNS domain name of the author of the interface (in lower-case), and-it is conventional for the rest of the application identifier to consist of-words run together, with initial capital letters.--As with D-Bus interface names, if the author\'s DNS domain name contains-hyphen\/minus characters they should be replaced by underscores, and if it-contains leading digits they should be escaped by prepending an underscore.-For example, if the owner of 7-zip.org used an application identifier for an-archiving application, it might be named @org._7_zip.Archiver@.--}-applicationIdIsValid ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@applicationId@/: a potential application identifier -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@applicationId@/ is valid -}-applicationIdIsValid applicationId = liftIO $ do-    applicationId' <- textToCString applicationId-    result <- g_application_id_is_valid applicationId'-    let result' = (/= 0) result-    freeMem applicationId'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/Application.hs-boot 
@@ -1,176 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Application 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 Application = Application (ManagedPtr Application)-instance GObject Application where-class (GObject o, O.IsDescendantOf Application o) => IsApplication o-instance (GObject o, O.IsDescendantOf Application o) => IsApplication o-instance O.HasParentTypes Application-#if ENABLE_OVERLOADING-data ApplicationActionGroupPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationApplicationIdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationInactivityTimeoutPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationIsBusyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationIsRegisteredPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationIsRemotePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationResourceBasePathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationActivateSignalInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineSignalInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationHandleLocalOptionsSignalInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationNameLostSignalInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationOpenSignalInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationShutdownSignalInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationStartupSignalInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationActivateMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationAddMainOptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationAddMainOptionEntriesMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationAddOptionGroupMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationBindBusyPropertyMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetApplicationIdMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetDbusConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetDbusObjectPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetInactivityTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetIsBusyMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetIsRegisteredMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetIsRemoteMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationGetResourceBasePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationHoldMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationMarkBusyMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationOpenMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationQuitMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationRegisterMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationReleaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationRunMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSendNotificationMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetActionGroupMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetApplicationIdMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetDefaultMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetInactivityTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetOptionContextDescriptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetOptionContextParameterStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetOptionContextSummaryMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationSetResourceBasePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationUnbindBusyPropertyMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationUnmarkBusyMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationWithdrawNotificationMethodInfo-#endif
− GI/Gio/Objects/ApplicationCommandLine.hs 
@@ -1,1083 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' represents a command-line invocation of-an application.  It is created by 'GI.Gio.Objects.Application.Application' and emitted-in the 'GI.Gio.Objects.Application.Application'::@/command-line/@ signal and virtual function.--The class contains the list of arguments that the program was invoked-with.  It is also possible to query if the commandline invocation was-local (ie: the current process is running in direct response to the-invocation) or remote (ie: some other process forwarded the-commandline to this process).--The GApplicationCommandLine object can provide the /@argc@/ and /@argv@/-parameters for use with the 'GI.GLib.Structs.OptionContext.OptionContext' command-line parsing API,-with the 'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetArguments' function. See-[gapplication-example-cmdline3.c][gapplication-example-cmdline3]-for an example.--The exit status of the originally-invoked process may be set and-messages can be printed to stdout or stderr of that process.  The-lifecycle of the originally-invoked process is tied to the lifecycle-of this object (ie: the process exits when the last reference is-dropped).--The main use for 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' (and the-'GI.Gio.Objects.Application.Application'::@/command-line/@ signal) is \'Emacs server\' like use cases:-You can set the @EDITOR@ environment variable to have e.g. git use-your favourite editor to edit commit messages, and if you already-have an instance of the editor running, the editing will happen-in the running instance, instead of opening a new one. An important-aspect of this use case is that the process that gets started by git-does not return until the editing is done.--Normally, the commandline is completely handled in the-'GI.Gio.Objects.Application.Application'::@/command-line/@ handler. The launching instance exits-once the signal handler in the primary instance has returned, and-the return value of the signal handler becomes the exit status-of the launching instance.--=== /C code/->->static int->command_line (GApplication            *application,->              GApplicationCommandLine *cmdline)->{->  gchar **argv;->  gint argc;->  gint i;->->  argv = g_application_command_line_get_arguments (cmdline, &argc);->->  g_application_command_line_print (cmdline,->                                    "This text is written back\n"->                                    "to stdout of the caller\n");->->  for (i = 0; i < argc; i++)->    g_print ("argument %d: %s\n", i, argv[i]);->->  g_strfreev (argv);->->  return 0;->}--The complete example can be found here:-<https://git.gnome.org/browse/glib/tree/gio/tests/gapplication-example-cmdline.c gapplication-example-cmdline.c>--In more complicated cases, the handling of the comandline can be-split between the launcher and the primary instance.--=== /C code/->->static gboolean-> test_local_cmdline (GApplication   *application,->                     gchar        ***arguments,->                     gint           *exit_status)->{->  gint i, j;->  gchar **argv;->->  argv = *arguments;->->  i = 1;->  while (argv[i])->    {->      if (g_str_has_prefix (argv[i], "--local-"))->        {->          g_print ("handling argument %s locally\n", argv[i]);->          g_free (argv[i]);->          for (j = i; argv[j]; j++)->            argv[j] = argv[j + 1];->        }->      else->        {->          g_print ("not handling argument %s locally\n", argv[i]);->          i++;->        }->    }->->  *exit_status = 0;->->  return FALSE;->}->->static void->test_application_class_init (TestApplicationClass *class)->{->  G_APPLICATION_CLASS (class)->local_command_line = test_local_cmdline;->->  ...->}--In this example of split commandline handling, options that start-with @--local-@ are handled locally, all other options are passed-to the 'GI.Gio.Objects.Application.Application'::@/command-line/@ handler which runs in the primary-instance.--The complete example can be found here:-<https://git.gnome.org/browse/glib/tree/gio/tests/gapplication-example-cmdline2.c gapplication-example-cmdline2.c>--If handling the commandline requires a lot of work, it may-be better to defer it.--=== /C code/->->static gboolean->my_cmdline_handler (gpointer data)->{->  GApplicationCommandLine *cmdline = data;->->  // do the heavy lifting in an idle->->  g_application_command_line_set_exit_status (cmdline, 0);->  g_object_unref (cmdline); // this releases the application->->  return G_SOURCE_REMOVE;->}->->static int->command_line (GApplication            *application,->              GApplicationCommandLine *cmdline)->{->  // keep the application running until we are done with this commandline->  g_application_hold (application);->->  g_object_set_data_full (G_OBJECT (cmdline),->                          "application", application,->                          (GDestroyNotify)g_application_release);->->  g_object_ref (cmdline);->  g_idle_add (my_cmdline_handler, cmdline);->->  return 0;->}--In this example the commandline is not completely handled before-the 'GI.Gio.Objects.Application.Application'::@/command-line/@ handler returns. Instead, we keep-a reference to the 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' object and handle it-later (in this example, in an idle). Note that it is necessary to-hold the application until you are done with the commandline.--The complete example can be found here:-<https://git.gnome.org/browse/glib/tree/gio/tests/gapplication-example-cmdline3.c gapplication-example-cmdline3.c>--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ApplicationCommandLine-    ( ---- * Exported types-    ApplicationCommandLine(..)              ,-    IsApplicationCommandLine                ,-    toApplicationCommandLine                ,-    noApplicationCommandLine                ,--- -- * Methods--- ** createFileForArg #method:createFileForArg#--#if ENABLE_OVERLOADING-    ApplicationCommandLineCreateFileForArgMethodInfo,-#endif-    applicationCommandLineCreateFileForArg  ,----- ** getArguments #method:getArguments#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetArgumentsMethodInfo,-#endif-    applicationCommandLineGetArguments      ,----- ** getCwd #method:getCwd#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetCwdMethodInfo  ,-#endif-    applicationCommandLineGetCwd            ,----- ** getEnviron #method:getEnviron#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetEnvironMethodInfo,-#endif-    applicationCommandLineGetEnviron        ,----- ** getExitStatus #method:getExitStatus#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetExitStatusMethodInfo,-#endif-    applicationCommandLineGetExitStatus     ,----- ** getIsRemote #method:getIsRemote#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetIsRemoteMethodInfo,-#endif-    applicationCommandLineGetIsRemote       ,----- ** getOptionsDict #method:getOptionsDict#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetOptionsDictMethodInfo,-#endif-    applicationCommandLineGetOptionsDict    ,----- ** getPlatformData #method:getPlatformData#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetPlatformDataMethodInfo,-#endif-    applicationCommandLineGetPlatformData   ,----- ** getStdin #method:getStdin#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetStdinMethodInfo,-#endif-    applicationCommandLineGetStdin          ,----- ** getenv #method:getenv#--#if ENABLE_OVERLOADING-    ApplicationCommandLineGetenvMethodInfo  ,-#endif-    applicationCommandLineGetenv            ,----- ** setExitStatus #method:setExitStatus#--#if ENABLE_OVERLOADING-    ApplicationCommandLineSetExitStatusMethodInfo,-#endif-    applicationCommandLineSetExitStatus     ,----- -- * Properties--- ** arguments #attr:arguments#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationCommandLineArgumentsPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    applicationCommandLineArguments         ,-#endif-    constructApplicationCommandLineArguments,----- ** isRemote #attr:isRemote#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationCommandLineIsRemotePropertyInfo,-#endif-#if ENABLE_OVERLOADING-    applicationCommandLineIsRemote          ,-#endif-    getApplicationCommandLineIsRemote       ,----- ** options #attr:options#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationCommandLineOptionsPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    applicationCommandLineOptions           ,-#endif-    constructApplicationCommandLineOptions  ,----- ** platformData #attr:platformData#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ApplicationCommandLinePlatformDataPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    applicationCommandLinePlatformData      ,-#endif-    constructApplicationCommandLinePlatformData,-----    ) 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.VariantDict as GLib.VariantDict-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype ApplicationCommandLine = ApplicationCommandLine (ManagedPtr ApplicationCommandLine)-foreign import ccall "g_application_command_line_get_type"-    c_g_application_command_line_get_type :: IO GType--instance GObject ApplicationCommandLine where-    gobjectType = c_g_application_command_line_get_type-    ---- | Type class for types which can be safely cast to `ApplicationCommandLine`, for instance with `toApplicationCommandLine`.-class (GObject o, O.IsDescendantOf ApplicationCommandLine o) => IsApplicationCommandLine o-instance (GObject o, O.IsDescendantOf ApplicationCommandLine o) => IsApplicationCommandLine o--instance O.HasParentTypes ApplicationCommandLine-type instance O.ParentTypes ApplicationCommandLine = '[GObject.Object.Object]---- | Cast to `ApplicationCommandLine`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toApplicationCommandLine :: (MonadIO m, IsApplicationCommandLine o) => o -> m ApplicationCommandLine-toApplicationCommandLine = liftIO . unsafeCastTo ApplicationCommandLine---- | A convenience alias for `Nothing` :: `Maybe` `ApplicationCommandLine`.-noApplicationCommandLine :: Maybe ApplicationCommandLine-noApplicationCommandLine = Nothing--#if ENABLE_OVERLOADING-type family ResolveApplicationCommandLineMethod (t :: Symbol) (o :: *) :: * where-    ResolveApplicationCommandLineMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveApplicationCommandLineMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveApplicationCommandLineMethod "createFileForArg" o = ApplicationCommandLineCreateFileForArgMethodInfo-    ResolveApplicationCommandLineMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveApplicationCommandLineMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveApplicationCommandLineMethod "getenv" o = ApplicationCommandLineGetenvMethodInfo-    ResolveApplicationCommandLineMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveApplicationCommandLineMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveApplicationCommandLineMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveApplicationCommandLineMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveApplicationCommandLineMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveApplicationCommandLineMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveApplicationCommandLineMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveApplicationCommandLineMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveApplicationCommandLineMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveApplicationCommandLineMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveApplicationCommandLineMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveApplicationCommandLineMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveApplicationCommandLineMethod "getArguments" o = ApplicationCommandLineGetArgumentsMethodInfo-    ResolveApplicationCommandLineMethod "getCwd" o = ApplicationCommandLineGetCwdMethodInfo-    ResolveApplicationCommandLineMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveApplicationCommandLineMethod "getEnviron" o = ApplicationCommandLineGetEnvironMethodInfo-    ResolveApplicationCommandLineMethod "getExitStatus" o = ApplicationCommandLineGetExitStatusMethodInfo-    ResolveApplicationCommandLineMethod "getIsRemote" o = ApplicationCommandLineGetIsRemoteMethodInfo-    ResolveApplicationCommandLineMethod "getOptionsDict" o = ApplicationCommandLineGetOptionsDictMethodInfo-    ResolveApplicationCommandLineMethod "getPlatformData" o = ApplicationCommandLineGetPlatformDataMethodInfo-    ResolveApplicationCommandLineMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveApplicationCommandLineMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveApplicationCommandLineMethod "getStdin" o = ApplicationCommandLineGetStdinMethodInfo-    ResolveApplicationCommandLineMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveApplicationCommandLineMethod "setExitStatus" o = ApplicationCommandLineSetExitStatusMethodInfo-    ResolveApplicationCommandLineMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveApplicationCommandLineMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, O.MethodInfo info ApplicationCommandLine p) => OL.IsLabel t (ApplicationCommandLine -> 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---- VVV Prop "arguments"-   -- Type: TVariant-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@arguments@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructApplicationCommandLineArguments :: (IsApplicationCommandLine o) => GVariant -> IO (GValueConstruct o)-constructApplicationCommandLineArguments val = B.Properties.constructObjectPropertyVariant "arguments" (Just val)--#if ENABLE_OVERLOADING-data ApplicationCommandLineArgumentsPropertyInfo-instance AttrInfo ApplicationCommandLineArgumentsPropertyInfo where-    type AttrAllowedOps ApplicationCommandLineArgumentsPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = (~) GVariant-    type AttrBaseTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = IsApplicationCommandLine-    type AttrGetType ApplicationCommandLineArgumentsPropertyInfo = ()-    type AttrLabel ApplicationCommandLineArgumentsPropertyInfo = "arguments"-    type AttrOrigin ApplicationCommandLineArgumentsPropertyInfo = ApplicationCommandLine-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructApplicationCommandLineArguments-    attrClear _ = undefined-#endif---- VVV Prop "is-remote"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-remote@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' applicationCommandLine #isRemote-@--}-getApplicationCommandLineIsRemote :: (MonadIO m, IsApplicationCommandLine o) => o -> m Bool-getApplicationCommandLineIsRemote obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-remote"--#if ENABLE_OVERLOADING-data ApplicationCommandLineIsRemotePropertyInfo-instance AttrInfo ApplicationCommandLineIsRemotePropertyInfo where-    type AttrAllowedOps ApplicationCommandLineIsRemotePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = (~) ()-    type AttrBaseTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = IsApplicationCommandLine-    type AttrGetType ApplicationCommandLineIsRemotePropertyInfo = Bool-    type AttrLabel ApplicationCommandLineIsRemotePropertyInfo = "is-remote"-    type AttrOrigin ApplicationCommandLineIsRemotePropertyInfo = ApplicationCommandLine-    attrGet _ = getApplicationCommandLineIsRemote-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "options"-   -- Type: TVariant-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@options@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructApplicationCommandLineOptions :: (IsApplicationCommandLine o) => GVariant -> IO (GValueConstruct o)-constructApplicationCommandLineOptions val = B.Properties.constructObjectPropertyVariant "options" (Just val)--#if ENABLE_OVERLOADING-data ApplicationCommandLineOptionsPropertyInfo-instance AttrInfo ApplicationCommandLineOptionsPropertyInfo where-    type AttrAllowedOps ApplicationCommandLineOptionsPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ApplicationCommandLineOptionsPropertyInfo = (~) GVariant-    type AttrBaseTypeConstraint ApplicationCommandLineOptionsPropertyInfo = IsApplicationCommandLine-    type AttrGetType ApplicationCommandLineOptionsPropertyInfo = ()-    type AttrLabel ApplicationCommandLineOptionsPropertyInfo = "options"-    type AttrOrigin ApplicationCommandLineOptionsPropertyInfo = ApplicationCommandLine-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructApplicationCommandLineOptions-    attrClear _ = undefined-#endif---- VVV Prop "platform-data"-   -- Type: TVariant-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@platform-data@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructApplicationCommandLinePlatformData :: (IsApplicationCommandLine o) => GVariant -> IO (GValueConstruct o)-constructApplicationCommandLinePlatformData val = B.Properties.constructObjectPropertyVariant "platform-data" (Just val)--#if ENABLE_OVERLOADING-data ApplicationCommandLinePlatformDataPropertyInfo-instance AttrInfo ApplicationCommandLinePlatformDataPropertyInfo where-    type AttrAllowedOps ApplicationCommandLinePlatformDataPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = (~) GVariant-    type AttrBaseTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = IsApplicationCommandLine-    type AttrGetType ApplicationCommandLinePlatformDataPropertyInfo = ()-    type AttrLabel ApplicationCommandLinePlatformDataPropertyInfo = "platform-data"-    type AttrOrigin ApplicationCommandLinePlatformDataPropertyInfo = ApplicationCommandLine-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructApplicationCommandLinePlatformData-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ApplicationCommandLine-type instance O.AttributeList ApplicationCommandLine = ApplicationCommandLineAttributeList-type ApplicationCommandLineAttributeList = ('[ '("arguments", ApplicationCommandLineArgumentsPropertyInfo), '("isRemote", ApplicationCommandLineIsRemotePropertyInfo), '("options", ApplicationCommandLineOptionsPropertyInfo), '("platformData", ApplicationCommandLinePlatformDataPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-applicationCommandLineArguments :: AttrLabelProxy "arguments"-applicationCommandLineArguments = AttrLabelProxy--applicationCommandLineIsRemote :: AttrLabelProxy "isRemote"-applicationCommandLineIsRemote = AttrLabelProxy--applicationCommandLineOptions :: AttrLabelProxy "options"-applicationCommandLineOptions = AttrLabelProxy--applicationCommandLinePlatformData :: AttrLabelProxy "platformData"-applicationCommandLinePlatformData = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ApplicationCommandLine = ApplicationCommandLineSignalList-type ApplicationCommandLineSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ApplicationCommandLine::create_file_for_arg--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an argument from @cmdline", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_create_file_for_arg" g_application_command_line_create_file_for_arg :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    CString ->                              -- arg : TBasicType TFileName-    IO (Ptr Gio.File.File)--{- |-Creates a 'GI.Gio.Interfaces.File.File' corresponding to a filename that was given as part-of the invocation of /@cmdline@/.--This differs from 'GI.Gio.Functions.fileNewForCommandlineArg' in that it-resolves relative pathnames using the current working directory of-the invoking process rather than the local process.--/Since: 2.36/--}-applicationCommandLineCreateFileForArg ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> [Char]-    {- ^ /@arg@/: an argument from /@cmdline@/ -}-    -> m Gio.File.File-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.File.File' -}-applicationCommandLineCreateFileForArg cmdline arg = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    arg' <- stringToCString arg-    result <- g_application_command_line_create_file_for_arg cmdline' arg'-    checkUnexpectedReturnNULL "applicationCommandLineCreateFileForArg" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr cmdline-    freeMem arg'-    return result'--#if ENABLE_OVERLOADING-data ApplicationCommandLineCreateFileForArgMethodInfo-instance (signature ~ ([Char] -> m Gio.File.File), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineCreateFileForArgMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineCreateFileForArg--#endif---- method ApplicationCommandLine::get_arguments--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the arguments array, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the arguments array, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TFileName))--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_get_arguments" g_application_command_line_get_arguments :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    Ptr Int32 ->                            -- argc : TBasicType TInt-    IO (Ptr CString)--{- |-Gets the list of arguments that was passed on the command line.--The strings in the array may contain non-UTF-8 data on UNIX (such as-filenames or arguments given in the system locale) but are always in-UTF-8 on Windows.--If you wish to use the return value with 'GI.GLib.Structs.OptionContext.OptionContext', you must-use 'GI.GLib.Structs.OptionContext.optionContextParseStrv'.--The return value is 'Nothing'-terminated and should be freed using-'GI.GLib.Functions.strfreev'.--/Since: 2.28/--}-applicationCommandLineGetArguments ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> m [[Char]]-    {- ^ __Returns:__ -     the string array containing the arguments (the argv) -}-applicationCommandLineGetArguments cmdline = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    argc <- allocMem :: IO (Ptr Int32)-    result <- g_application_command_line_get_arguments cmdline' argc-    argc' <- peek argc-    checkUnexpectedReturnNULL "applicationCommandLineGetArguments" result-    result' <- (unpackFileNameArrayWithLength argc') result-    (mapCArrayWithLength argc') freeMem result-    freeMem result-    touchManagedPtr cmdline-    freeMem argc-    return result'--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetArgumentsMethodInfo-instance (signature ~ (m [[Char]]), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetArgumentsMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetArguments--#endif---- method ApplicationCommandLine::get_cwd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_get_cwd" g_application_command_line_get_cwd :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    IO CString--{- |-Gets the working directory of the command line invocation.-The string may contain non-utf8 data.--It is possible that the remote application did not send a working-directory, so this may be 'Nothing'.--The return value should not be modified or freed and is valid for as-long as /@cmdline@/ exists.--/Since: 2.28/--}-applicationCommandLineGetCwd ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> m (Maybe [Char])-    {- ^ __Returns:__ the current directory, or 'Nothing' -}-applicationCommandLineGetCwd cmdline = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    result <- g_application_command_line_get_cwd cmdline'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToString result'-        return result''-    touchManagedPtr cmdline-    return maybeResult--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetCwdMethodInfo-instance (signature ~ (m (Maybe [Char])), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetCwdMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetCwd--#endif---- method ApplicationCommandLine::get_environ--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TFileName))--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_get_environ" g_application_command_line_get_environ :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    IO (Ptr CString)--{- |-Gets the contents of the \'environ\' variable of the command line-invocation, as would be returned by 'GI.GLib.Functions.getEnviron', ie as a-'Nothing'-terminated list of strings in the form \'NAME=VALUE\'.-The strings may contain non-utf8 data.--The remote application usually does not send an environment.  Use-'GI.Gio.Flags.ApplicationFlagsSendEnvironment' to affect that.  Even with this flag-set it is possible that the environment is still not available (due-to invocation messages from other applications).--The return value should not be modified or freed and is valid for as-long as /@cmdline@/ exists.--See 'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetenv' if you are only interested-in the value of a single environment variable.--/Since: 2.28/--}-applicationCommandLineGetEnviron ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> m [[Char]]-    {- ^ __Returns:__ -    the environment strings, or 'Nothing' if they were not sent -}-applicationCommandLineGetEnviron cmdline = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    result <- g_application_command_line_get_environ cmdline'-    checkUnexpectedReturnNULL "applicationCommandLineGetEnviron" result-    result' <- unpackZeroTerminatedFileNameArray result-    touchManagedPtr cmdline-    return result'--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetEnvironMethodInfo-instance (signature ~ (m [[Char]]), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetEnvironMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetEnviron--#endif---- method ApplicationCommandLine::get_exit_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", 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 "g_application_command_line_get_exit_status" g_application_command_line_get_exit_status :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    IO Int32--{- |-Gets the exit status of /@cmdline@/.  See-'GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineSetExitStatus' for more information.--/Since: 2.28/--}-applicationCommandLineGetExitStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> m Int32-    {- ^ __Returns:__ the exit status -}-applicationCommandLineGetExitStatus cmdline = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    result <- g_application_command_line_get_exit_status cmdline'-    touchManagedPtr cmdline-    return result--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetExitStatusMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetExitStatusMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetExitStatus--#endif---- method ApplicationCommandLine::get_is_remote--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", 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 "g_application_command_line_get_is_remote" g_application_command_line_get_is_remote :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    IO CInt--{- |-Determines if /@cmdline@/ represents a remote invocation.--/Since: 2.28/--}-applicationCommandLineGetIsRemote ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the invocation was remote -}-applicationCommandLineGetIsRemote cmdline = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    result <- g_application_command_line_get_is_remote cmdline'-    let result' = (/= 0) result-    touchManagedPtr cmdline-    return result'--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetIsRemoteMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetIsRemoteMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetIsRemote--#endif---- method ApplicationCommandLine::get_options_dict--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "VariantDict"}))--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_get_options_dict" g_application_command_line_get_options_dict :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    IO (Ptr GLib.VariantDict.VariantDict)--{- |-Gets the options there were passed to @/g_application_command_line()/@.--If you did not override @/local_command_line()/@ then these are the same-options that were parsed according to the @/GOptionEntrys/@ added to the-application with 'GI.Gio.Objects.Application.applicationAddMainOptionEntries' and possibly-modified from your GApplication::handle-local-options handler.--If no options were sent then an empty dictionary is returned so that-you don\'t need to check for 'Nothing'.--/Since: 2.40/--}-applicationCommandLineGetOptionsDict ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> m GLib.VariantDict.VariantDict-    {- ^ __Returns:__ a 'GI.GLib.Structs.VariantDict.VariantDict' with the options -}-applicationCommandLineGetOptionsDict cmdline = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    result <- g_application_command_line_get_options_dict cmdline'-    checkUnexpectedReturnNULL "applicationCommandLineGetOptionsDict" result-    result' <- (newBoxed GLib.VariantDict.VariantDict) result-    touchManagedPtr cmdline-    return result'--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetOptionsDictMethodInfo-instance (signature ~ (m GLib.VariantDict.VariantDict), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetOptionsDictMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetOptionsDict--#endif---- method ApplicationCommandLine::get_platform_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_get_platform_data" g_application_command_line_get_platform_data :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    IO (Ptr GVariant)--{- |-Gets the platform data associated with the invocation of /@cmdline@/.--This is a 'GVariant' dictionary containing information about the-context in which the invocation occurred.  It typically contains-information like the current working directory and the startup-notification ID.--For local invocation, it will be 'Nothing'.--/Since: 2.28/--}-applicationCommandLineGetPlatformData ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> m (Maybe GVariant)-    {- ^ __Returns:__ the platform data, or 'Nothing' -}-applicationCommandLineGetPlatformData cmdline = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    result <- g_application_command_line_get_platform_data cmdline'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- B.GVariant.wrapGVariantPtr result'-        return result''-    touchManagedPtr cmdline-    return maybeResult--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetPlatformDataMethodInfo-instance (signature ~ (m (Maybe GVariant)), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetPlatformDataMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetPlatformData--#endif---- method ApplicationCommandLine::get_stdin--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_get_stdin" g_application_command_line_get_stdin :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    IO (Ptr Gio.InputStream.InputStream)--{- |-Gets the stdin of the invoking process.--The 'GI.Gio.Objects.InputStream.InputStream' can be used to read data passed to the standard-input of the invoking process.-This doesn\'t work on all platforms.  Presently, it is only available-on UNIX when using a DBus daemon capable of passing file descriptors.-If stdin is not available then 'Nothing' will be returned.  In the-future, support may be expanded to other platforms.--You must only call this function once per commandline invocation.--/Since: 2.34/--}-applicationCommandLineGetStdin ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' for stdin -}-applicationCommandLineGetStdin cmdline = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    result <- g_application_command_line_get_stdin cmdline'-    checkUnexpectedReturnNULL "applicationCommandLineGetStdin" result-    result' <- (wrapObject Gio.InputStream.InputStream) result-    touchManagedPtr cmdline-    return result'--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetStdinMethodInfo-instance (signature ~ (m Gio.InputStream.InputStream), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetStdinMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetStdin--#endif---- method ApplicationCommandLine::getenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the environment variable to get", 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 "g_application_command_line_getenv" g_application_command_line_getenv :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    CString ->                              -- name : TBasicType TFileName-    IO CString--{- |-Gets the value of a particular environment variable of the command-line invocation, as would be returned by 'GI.GLib.Functions.getenv'.  The strings may-contain non-utf8 data.--The remote application usually does not send an environment.  Use-'GI.Gio.Flags.ApplicationFlagsSendEnvironment' to affect that.  Even with this flag-set it is possible that the environment is still not available (due-to invocation messages from other applications).--The return value should not be modified or freed and is valid for as-long as /@cmdline@/ exists.--/Since: 2.28/--}-applicationCommandLineGetenv ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> [Char]-    {- ^ /@name@/: the environment variable to get -}-    -> m T.Text-    {- ^ __Returns:__ the value of the variable, or 'Nothing' if unset or unsent -}-applicationCommandLineGetenv cmdline name = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    name' <- stringToCString name-    result <- g_application_command_line_getenv cmdline' name'-    checkUnexpectedReturnNULL "applicationCommandLineGetenv" result-    result' <- cstringToText result-    touchManagedPtr cmdline-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data ApplicationCommandLineGetenvMethodInfo-instance (signature ~ ([Char] -> m T.Text), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetenvMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineGetenv--#endif---- method ApplicationCommandLine::set_exit_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cmdline", argType = TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GApplicationCommandLine", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exit_status", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the exit status", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_application_command_line_set_exit_status" g_application_command_line_set_exit_status :: -    Ptr ApplicationCommandLine ->           -- cmdline : TInterface (Name {namespace = "Gio", name = "ApplicationCommandLine"})-    Int32 ->                                -- exit_status : TBasicType TInt-    IO ()--{- |-Sets the exit status that will be used when the invoking process-exits.--The return value of the 'GI.Gio.Objects.Application.Application'::@/command-line/@ signal is-passed to this function when the handler returns.  This is the usual-way of setting the exit status.--In the event that you want the remote invocation to continue running-and want to decide on the exit status in the future, you can use this-call.  For the case of a remote invocation, the remote process will-typically exit when the last reference is dropped on /@cmdline@/.  The-exit status of the remote process will be equal to the last value-that was set with this function.--In the case that the commandline invocation is local, the situation-is slightly more complicated.  If the commandline invocation results-in the mainloop running (ie: because the use-count of the application-increased to a non-zero value) then the application is considered to-have been \'successful\' in a certain sense, and the exit status is-always zero.  If the application use count is zero, though, the exit-status of the local 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' is used.--/Since: 2.28/--}-applicationCommandLineSetExitStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>-    a-    {- ^ /@cmdline@/: a 'GI.Gio.Objects.ApplicationCommandLine.ApplicationCommandLine' -}-    -> Int32-    {- ^ /@exitStatus@/: the exit status -}-    -> m ()-applicationCommandLineSetExitStatus cmdline exitStatus = liftIO $ do-    cmdline' <- unsafeManagedPtrCastPtr cmdline-    g_application_command_line_set_exit_status cmdline' exitStatus-    touchManagedPtr cmdline-    return ()--#if ENABLE_OVERLOADING-data ApplicationCommandLineSetExitStatusMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineSetExitStatusMethodInfo a signature where-    overloadedMethod _ = applicationCommandLineSetExitStatus--#endif--
− GI/Gio/Objects/ApplicationCommandLine.hs-boot 
@@ -1,74 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ApplicationCommandLine 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 ApplicationCommandLine = ApplicationCommandLine (ManagedPtr ApplicationCommandLine)-instance GObject ApplicationCommandLine where-class (GObject o, O.IsDescendantOf ApplicationCommandLine o) => IsApplicationCommandLine o-instance (GObject o, O.IsDescendantOf ApplicationCommandLine o) => IsApplicationCommandLine o-instance O.HasParentTypes ApplicationCommandLine-#if ENABLE_OVERLOADING-data ApplicationCommandLineArgumentsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineIsRemotePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineOptionsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLinePlatformDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineCreateFileForArgMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetArgumentsMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetCwdMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetEnvironMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetExitStatusMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetIsRemoteMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetOptionsDictMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetPlatformDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetStdinMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineGetenvMethodInfo-#endif-#if ENABLE_OVERLOADING-data ApplicationCommandLineSetExitStatusMethodInfo-#endif
− GI/Gio/Objects/BufferedInputStream.hs 
@@ -1,837 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Buffered input stream implements 'GI.Gio.Objects.FilterInputStream.FilterInputStream' and provides-for buffered reads.--By default, 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream'\'s buffer size is set at 4 kilobytes.--To create a buffered input stream, use 'GI.Gio.Objects.BufferedInputStream.bufferedInputStreamNew',-or 'GI.Gio.Objects.BufferedInputStream.bufferedInputStreamNewSized' to specify the buffer\'s size at-construction.--To get the size of a buffer within a buffered input stream, use-'GI.Gio.Objects.BufferedInputStream.bufferedInputStreamGetBufferSize'. To change the size of a-buffered input stream\'s buffer, use-'GI.Gio.Objects.BufferedInputStream.bufferedInputStreamSetBufferSize'. Note that the buffer\'s size-cannot be reduced below the size of the data within the buffer.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.BufferedInputStream-    ( ---- * Exported types-    BufferedInputStream(..)                 ,-    IsBufferedInputStream                   ,-    toBufferedInputStream                   ,-    noBufferedInputStream                   ,--- -- * Methods--- ** fill #method:fill#--#if ENABLE_OVERLOADING-    BufferedInputStreamFillMethodInfo       ,-#endif-    bufferedInputStreamFill                 ,----- ** fillAsync #method:fillAsync#--#if ENABLE_OVERLOADING-    BufferedInputStreamFillAsyncMethodInfo  ,-#endif-    bufferedInputStreamFillAsync            ,----- ** fillFinish #method:fillFinish#--#if ENABLE_OVERLOADING-    BufferedInputStreamFillFinishMethodInfo ,-#endif-    bufferedInputStreamFillFinish           ,----- ** getAvailable #method:getAvailable#--#if ENABLE_OVERLOADING-    BufferedInputStreamGetAvailableMethodInfo,-#endif-    bufferedInputStreamGetAvailable         ,----- ** getBufferSize #method:getBufferSize#--#if ENABLE_OVERLOADING-    BufferedInputStreamGetBufferSizeMethodInfo,-#endif-    bufferedInputStreamGetBufferSize        ,----- ** new #method:new#--    bufferedInputStreamNew                  ,----- ** newSized #method:newSized#--    bufferedInputStreamNewSized             ,----- ** peek #method:peek#--#if ENABLE_OVERLOADING-    BufferedInputStreamPeekMethodInfo       ,-#endif-    bufferedInputStreamPeek                 ,----- ** peekBuffer #method:peekBuffer#--#if ENABLE_OVERLOADING-    BufferedInputStreamPeekBufferMethodInfo ,-#endif-    bufferedInputStreamPeekBuffer           ,----- ** readByte #method:readByte#--#if ENABLE_OVERLOADING-    BufferedInputStreamReadByteMethodInfo   ,-#endif-    bufferedInputStreamReadByte             ,----- ** setBufferSize #method:setBufferSize#--#if ENABLE_OVERLOADING-    BufferedInputStreamSetBufferSizeMethodInfo,-#endif-    bufferedInputStreamSetBufferSize        ,----- -- * Properties--- ** bufferSize #attr:bufferSize#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    BufferedInputStreamBufferSizePropertyInfo,-#endif-#if ENABLE_OVERLOADING-    bufferedInputStreamBufferSize           ,-#endif-    constructBufferedInputStreamBufferSize  ,-    getBufferedInputStreamBufferSize        ,-    setBufferedInputStreamBufferSize        ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.FilterInputStream as Gio.FilterInputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype BufferedInputStream = BufferedInputStream (ManagedPtr BufferedInputStream)-foreign import ccall "g_buffered_input_stream_get_type"-    c_g_buffered_input_stream_get_type :: IO GType--instance GObject BufferedInputStream where-    gobjectType = c_g_buffered_input_stream_get_type-    ---- | Type class for types which can be safely cast to `BufferedInputStream`, for instance with `toBufferedInputStream`.-class (GObject o, O.IsDescendantOf BufferedInputStream o) => IsBufferedInputStream o-instance (GObject o, O.IsDescendantOf BufferedInputStream o) => IsBufferedInputStream o--instance O.HasParentTypes BufferedInputStream-type instance O.ParentTypes BufferedInputStream = '[Gio.FilterInputStream.FilterInputStream, Gio.InputStream.InputStream, GObject.Object.Object, Gio.Seekable.Seekable]---- | Cast to `BufferedInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toBufferedInputStream :: (MonadIO m, IsBufferedInputStream o) => o -> m BufferedInputStream-toBufferedInputStream = liftIO . unsafeCastTo BufferedInputStream---- | A convenience alias for `Nothing` :: `Maybe` `BufferedInputStream`.-noBufferedInputStream :: Maybe BufferedInputStream-noBufferedInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveBufferedInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveBufferedInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveBufferedInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveBufferedInputStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveBufferedInputStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveBufferedInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolveBufferedInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolveBufferedInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolveBufferedInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolveBufferedInputStreamMethod "fill" o = BufferedInputStreamFillMethodInfo-    ResolveBufferedInputStreamMethod "fillAsync" o = BufferedInputStreamFillAsyncMethodInfo-    ResolveBufferedInputStreamMethod "fillFinish" o = BufferedInputStreamFillFinishMethodInfo-    ResolveBufferedInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveBufferedInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveBufferedInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveBufferedInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolveBufferedInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolveBufferedInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveBufferedInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveBufferedInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveBufferedInputStreamMethod "peek" o = BufferedInputStreamPeekMethodInfo-    ResolveBufferedInputStreamMethod "peekBuffer" o = BufferedInputStreamPeekBufferMethodInfo-    ResolveBufferedInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolveBufferedInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolveBufferedInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolveBufferedInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolveBufferedInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolveBufferedInputStreamMethod "readByte" o = BufferedInputStreamReadByteMethodInfo-    ResolveBufferedInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolveBufferedInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolveBufferedInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolveBufferedInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolveBufferedInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveBufferedInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveBufferedInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveBufferedInputStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveBufferedInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolveBufferedInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolveBufferedInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolveBufferedInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveBufferedInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveBufferedInputStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveBufferedInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveBufferedInputStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveBufferedInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveBufferedInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveBufferedInputStreamMethod "getAvailable" o = BufferedInputStreamGetAvailableMethodInfo-    ResolveBufferedInputStreamMethod "getBaseStream" o = Gio.FilterInputStream.FilterInputStreamGetBaseStreamMethodInfo-    ResolveBufferedInputStreamMethod "getBufferSize" o = BufferedInputStreamGetBufferSizeMethodInfo-    ResolveBufferedInputStreamMethod "getCloseBaseStream" o = Gio.FilterInputStream.FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveBufferedInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveBufferedInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveBufferedInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveBufferedInputStreamMethod "setBufferSize" o = BufferedInputStreamSetBufferSizeMethodInfo-    ResolveBufferedInputStreamMethod "setCloseBaseStream" o = Gio.FilterInputStream.FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveBufferedInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveBufferedInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolveBufferedInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveBufferedInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveBufferedInputStreamMethod t BufferedInputStream, O.MethodInfo info BufferedInputStream p) => OL.IsLabel t (BufferedInputStream -> 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---- VVV Prop "buffer-size"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@buffer-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' bufferedInputStream #bufferSize-@--}-getBufferedInputStreamBufferSize :: (MonadIO m, IsBufferedInputStream o) => o -> m Word32-getBufferedInputStreamBufferSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "buffer-size"--{- |-Set the value of the “@buffer-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' bufferedInputStream [ #bufferSize 'Data.GI.Base.Attributes.:=' value ]-@--}-setBufferedInputStreamBufferSize :: (MonadIO m, IsBufferedInputStream o) => o -> Word32 -> m ()-setBufferedInputStreamBufferSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "buffer-size" val--{- |-Construct a `GValueConstruct` with valid value for the “@buffer-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructBufferedInputStreamBufferSize :: (IsBufferedInputStream o) => Word32 -> IO (GValueConstruct o)-constructBufferedInputStreamBufferSize val = B.Properties.constructObjectPropertyUInt32 "buffer-size" val--#if ENABLE_OVERLOADING-data BufferedInputStreamBufferSizePropertyInfo-instance AttrInfo BufferedInputStreamBufferSizePropertyInfo where-    type AttrAllowedOps BufferedInputStreamBufferSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint BufferedInputStreamBufferSizePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint BufferedInputStreamBufferSizePropertyInfo = IsBufferedInputStream-    type AttrGetType BufferedInputStreamBufferSizePropertyInfo = Word32-    type AttrLabel BufferedInputStreamBufferSizePropertyInfo = "buffer-size"-    type AttrOrigin BufferedInputStreamBufferSizePropertyInfo = BufferedInputStream-    attrGet _ = getBufferedInputStreamBufferSize-    attrSet _ = setBufferedInputStreamBufferSize-    attrConstruct _ = constructBufferedInputStreamBufferSize-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList BufferedInputStream-type instance O.AttributeList BufferedInputStream = BufferedInputStreamAttributeList-type BufferedInputStreamAttributeList = ('[ '("baseStream", Gio.FilterInputStream.FilterInputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedInputStreamBufferSizePropertyInfo), '("closeBaseStream", Gio.FilterInputStream.FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-bufferedInputStreamBufferSize :: AttrLabelProxy "bufferSize"-bufferedInputStreamBufferSize = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList BufferedInputStream = BufferedInputStreamSignalList-type BufferedInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method BufferedInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_buffered_input_stream_new" g_buffered_input_stream_new :: -    Ptr Gio.InputStream.InputStream ->      -- base_stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    IO (Ptr BufferedInputStream)--{- |-Creates a new 'GI.Gio.Objects.InputStream.InputStream' from the given /@baseStream@/, with-a buffer set to the default size (4 kilobytes).--}-bufferedInputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a) =>-    a-    {- ^ /@baseStream@/: a 'GI.Gio.Objects.InputStream.InputStream' -}-    -> m BufferedInputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' for the given /@baseStream@/. -}-bufferedInputStreamNew baseStream = liftIO $ do-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    result <- g_buffered_input_stream_new baseStream'-    checkUnexpectedReturnNULL "bufferedInputStreamNew" result-    result' <- (wrapObject BufferedInputStream) result-    touchManagedPtr baseStream-    return result'--#if ENABLE_OVERLOADING-#endif---- method BufferedInputStream::new_sized--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_buffered_input_stream_new_sized" g_buffered_input_stream_new_sized :: -    Ptr Gio.InputStream.InputStream ->      -- base_stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Word64 ->                               -- size : TBasicType TUInt64-    IO (Ptr BufferedInputStream)--{- |-Creates a new 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' from the given /@baseStream@/,-with a buffer set to /@size@/.--}-bufferedInputStreamNewSized ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a) =>-    a-    {- ^ /@baseStream@/: a 'GI.Gio.Objects.InputStream.InputStream' -}-    -> Word64-    {- ^ /@size@/: a @/gsize/@ -}-    -> m BufferedInputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream'. -}-bufferedInputStreamNewSized baseStream size = liftIO $ do-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    result <- g_buffered_input_stream_new_sized baseStream' size-    checkUnexpectedReturnNULL "bufferedInputStreamNewSized" result-    result' <- (wrapObject BufferedInputStream) result-    touchManagedPtr baseStream-    return result'--#if ENABLE_OVERLOADING-#endif---- method BufferedInputStream::fill--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", 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 "optional #GCancellable object, %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_buffered_input_stream_fill" g_buffered_input_stream_fill :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    Int64 ->                                -- count : TBasicType TInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Tries to read /@count@/ bytes from the stream into the buffer.-Will block during this read.--If /@count@/ is zero, returns zero and does nothing. A value of /@count@/-larger than @/G_MAXSSIZE/@ will cause a 'GI.Gio.Enums.IOErrorEnumInvalidArgument' error.--On success, the number of bytes read into the buffer is returned.-It is not an error if this is not the same as the requested size, as it-can happen e.g. near the end of a file. Zero is returned on end of file-(or if /@count@/ is zero),  but never otherwise.--If /@count@/ is -1 then the attempted read size is equal to the number of-bytes that are required to fill the buffer.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If an-operation was partially finished when the operation was cancelled the-partial result will be returned, without an error.--On error -1 is returned and /@error@/ is set accordingly.--For the asynchronous, non-blocking, version of this function, see-'GI.Gio.Objects.BufferedInputStream.bufferedInputStreamFillAsync'.--}-bufferedInputStreamFill ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> Int64-    {- ^ /@count@/: the number of bytes that will be read from the stream -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m Int64-    {- ^ __Returns:__ the number of bytes read into /@stream@/\'s buffer, up to /@count@/,-    or -1 on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-bufferedInputStreamFill stream count cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_buffered_input_stream_fill stream' count maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data BufferedInputStreamFillMethodInfo-instance (signature ~ (Int64 -> Maybe (b) -> m Int64), MonadIO m, IsBufferedInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo BufferedInputStreamFillMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamFill--#endif---- method BufferedInputStream::fill_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object", 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 "a #GAsyncReadyCallback", 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 "a #gpointer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_buffered_input_stream_fill_async" g_buffered_input_stream_fill_async :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    Int64 ->                                -- count : TBasicType TInt64-    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 ()--{- |-Reads data into /@stream@/\'s buffer asynchronously, up to /@count@/ size.-/@ioPriority@/ can be used to prioritize reads. For the synchronous-version of this function, see 'GI.Gio.Objects.BufferedInputStream.bufferedInputStreamFill'.--If /@count@/ is -1 then the attempted read size is equal to the number-of bytes that are required to fill the buffer.--}-bufferedInputStreamFillAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> Int64-    {- ^ /@count@/: the number of bytes that will be read from the stream -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-bufferedInputStreamFillAsync stream count ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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-    g_buffered_input_stream_fill_async stream' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data BufferedInputStreamFillAsyncMethodInfo-instance (signature ~ (Int64 -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsBufferedInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo BufferedInputStreamFillAsyncMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamFillAsync--#endif---- method BufferedInputStream::fill_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedInputStream", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_buffered_input_stream_fill_finish" g_buffered_input_stream_fill_finish :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Finishes an asynchronous read.--}-bufferedInputStreamFillFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Int64-    {- ^ __Returns:__ a @/gssize/@ of the read stream, or @-1@ on an error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-bufferedInputStreamFillFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_buffered_input_stream_fill_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data BufferedInputStreamFillFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, IsBufferedInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo BufferedInputStreamFillFinishMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamFillFinish--#endif---- method BufferedInputStream::get_available--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GBufferedInputStream", 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 "g_buffered_input_stream_get_available" g_buffered_input_stream_get_available :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    IO Word64--{- |-Gets the size of the available data within the stream.--}-bufferedInputStreamGetAvailable ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a) =>-    a-    {- ^ /@stream@/: 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> m Word64-    {- ^ __Returns:__ size of the available stream. -}-bufferedInputStreamGetAvailable stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_buffered_input_stream_get_available stream'-    touchManagedPtr stream-    return result--#if ENABLE_OVERLOADING-data BufferedInputStreamGetAvailableMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsBufferedInputStream a) => O.MethodInfo BufferedInputStreamGetAvailableMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamGetAvailable--#endif---- method BufferedInputStream::get_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedInputStream", 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 "g_buffered_input_stream_get_buffer_size" g_buffered_input_stream_get_buffer_size :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    IO Word64--{- |-Gets the size of the input buffer.--}-bufferedInputStreamGetBufferSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> m Word64-    {- ^ __Returns:__ the current buffer size. -}-bufferedInputStreamGetBufferSize stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_buffered_input_stream_get_buffer_size stream'-    touchManagedPtr stream-    return result--#if ENABLE_OVERLOADING-data BufferedInputStreamGetBufferSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsBufferedInputStream a) => O.MethodInfo BufferedInputStreamGetBufferSizeMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamGetBufferSize--#endif---- method BufferedInputStream::peek--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to\n  an allocated chunk of memory", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "g_buffered_input_stream_peek" g_buffered_input_stream_peek :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 3 (TBasicType TUInt8)-    Word64 ->                               -- offset : TBasicType TUInt64-    Word64 ->                               -- count : TBasicType TUInt64-    IO Word64--{- |-Peeks in the buffer, copying data of size /@count@/ into /@buffer@/,-offset /@offset@/ bytes.--}-bufferedInputStreamPeek ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> ByteString-    {- ^ /@buffer@/: a pointer to-  an allocated chunk of memory -}-    -> Word64-    {- ^ /@offset@/: a @/gsize/@ -}-    -> m Word64-    {- ^ __Returns:__ a @/gsize/@ of the number of bytes peeked, or -1 on error. -}-bufferedInputStreamPeek stream buffer offset = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    result <- g_buffered_input_stream_peek stream' buffer' offset count-    touchManagedPtr stream-    freeMem buffer'-    return result--#if ENABLE_OVERLOADING-data BufferedInputStreamPeekMethodInfo-instance (signature ~ (ByteString -> Word64 -> m Word64), MonadIO m, IsBufferedInputStream a) => O.MethodInfo BufferedInputStreamPeekMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamPeek--#endif---- method BufferedInputStream::peek_buffer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the number of bytes available in the buffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the number of bytes available in the buffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8))--- throws : False--- Skip return : False--foreign import ccall "g_buffered_input_stream_peek_buffer" g_buffered_input_stream_peek_buffer :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    Ptr Word64 ->                           -- count : TBasicType TUInt64-    IO (Ptr Word8)--{- |-Returns the buffer with the currently available bytes. The returned-buffer must not be modified and will become invalid when reading from-the stream or filling the buffer.--}-bufferedInputStreamPeekBuffer ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> m ByteString-    {- ^ __Returns:__ -         read-only buffer -}-bufferedInputStreamPeekBuffer stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    count <- allocMem :: IO (Ptr Word64)-    result <- g_buffered_input_stream_peek_buffer stream' count-    count' <- peek count-    checkUnexpectedReturnNULL "bufferedInputStreamPeekBuffer" result-    result' <- (unpackByteStringWithLength count') result-    touchManagedPtr stream-    freeMem count-    return result'--#if ENABLE_OVERLOADING-data BufferedInputStreamPeekBufferMethodInfo-instance (signature ~ (m ByteString), MonadIO m, IsBufferedInputStream a) => O.MethodInfo BufferedInputStreamPeekBufferMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamPeekBuffer--#endif---- method BufferedInputStream::read_byte--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedInputStream", 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 "optional #GCancellable object, %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_buffered_input_stream_read_byte" g_buffered_input_stream_read_byte :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Tries to read a single byte from the stream or the buffer. Will block-during this read.--On success, the byte read from the stream is returned. On end of stream--1 is returned but it\'s not an exceptional error and /@error@/ is not set.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If an-operation was partially finished when the operation was cancelled the-partial result will be returned, without an error.--On error -1 is returned and /@error@/ is set accordingly.--}-bufferedInputStreamReadByte ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m Int32-    {- ^ __Returns:__ the byte read from the /@stream@/, or -1 on end of stream or error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-bufferedInputStreamReadByte stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_buffered_input_stream_read_byte stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data BufferedInputStreamReadByteMethodInfo-instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, IsBufferedInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo BufferedInputStreamReadByteMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamReadByte--#endif---- method BufferedInputStream::set_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_buffered_input_stream_set_buffer_size" g_buffered_input_stream_set_buffer_size :: -    Ptr BufferedInputStream ->              -- stream : TInterface (Name {namespace = "Gio", name = "BufferedInputStream"})-    Word64 ->                               -- size : TBasicType TUInt64-    IO ()--{- |-Sets the size of the internal buffer of /@stream@/ to /@size@/, or to the-size of the contents of the buffer. The buffer can never be resized-smaller than its current contents.--}-bufferedInputStreamSetBufferSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' -}-    -> Word64-    {- ^ /@size@/: a @/gsize/@ -}-    -> m ()-bufferedInputStreamSetBufferSize stream size = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    g_buffered_input_stream_set_buffer_size stream' size-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data BufferedInputStreamSetBufferSizeMethodInfo-instance (signature ~ (Word64 -> m ()), MonadIO m, IsBufferedInputStream a) => O.MethodInfo BufferedInputStreamSetBufferSizeMethodInfo a signature where-    overloadedMethod _ = bufferedInputStreamSetBufferSize--#endif--
− GI/Gio/Objects/BufferedInputStream.hs-boot 
@@ -1,59 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.BufferedInputStream 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 BufferedInputStream = BufferedInputStream (ManagedPtr BufferedInputStream)-instance GObject BufferedInputStream where-class (GObject o, O.IsDescendantOf BufferedInputStream o) => IsBufferedInputStream o-instance (GObject o, O.IsDescendantOf BufferedInputStream o) => IsBufferedInputStream o-instance O.HasParentTypes BufferedInputStream-#if ENABLE_OVERLOADING-data BufferedInputStreamBufferSizePropertyInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamFillMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamFillAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamFillFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamGetAvailableMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamGetBufferSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamPeekMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamPeekBufferMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamReadByteMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedInputStreamSetBufferSizeMethodInfo-#endif
− GI/Gio/Objects/BufferedOutputStream.hs 
@@ -1,569 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Buffered output stream implements 'GI.Gio.Objects.FilterOutputStream.FilterOutputStream' and provides-for buffered writes.--By default, 'GI.Gio.Objects.BufferedOutputStream.BufferedOutputStream'\'s buffer size is set at 4 kilobytes.--To create a buffered output stream, use 'GI.Gio.Objects.BufferedOutputStream.bufferedOutputStreamNew',-or 'GI.Gio.Objects.BufferedOutputStream.bufferedOutputStreamNewSized' to specify the buffer\'s size-at construction.--To get the size of a buffer within a buffered input stream, use-'GI.Gio.Objects.BufferedOutputStream.bufferedOutputStreamGetBufferSize'. To change the size of a-buffered output stream\'s buffer, use-'GI.Gio.Objects.BufferedOutputStream.bufferedOutputStreamSetBufferSize'. Note that the buffer\'s-size cannot be reduced below the size of the data within the buffer.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.BufferedOutputStream-    ( ---- * Exported types-    BufferedOutputStream(..)                ,-    IsBufferedOutputStream                  ,-    toBufferedOutputStream                  ,-    noBufferedOutputStream                  ,--- -- * Methods--- ** getAutoGrow #method:getAutoGrow#--#if ENABLE_OVERLOADING-    BufferedOutputStreamGetAutoGrowMethodInfo,-#endif-    bufferedOutputStreamGetAutoGrow         ,----- ** getBufferSize #method:getBufferSize#--#if ENABLE_OVERLOADING-    BufferedOutputStreamGetBufferSizeMethodInfo,-#endif-    bufferedOutputStreamGetBufferSize       ,----- ** new #method:new#--    bufferedOutputStreamNew                 ,----- ** newSized #method:newSized#--    bufferedOutputStreamNewSized            ,----- ** setAutoGrow #method:setAutoGrow#--#if ENABLE_OVERLOADING-    BufferedOutputStreamSetAutoGrowMethodInfo,-#endif-    bufferedOutputStreamSetAutoGrow         ,----- ** setBufferSize #method:setBufferSize#--#if ENABLE_OVERLOADING-    BufferedOutputStreamSetBufferSizeMethodInfo,-#endif-    bufferedOutputStreamSetBufferSize       ,----- -- * Properties--- ** autoGrow #attr:autoGrow#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    BufferedOutputStreamAutoGrowPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    bufferedOutputStreamAutoGrow            ,-#endif-    constructBufferedOutputStreamAutoGrow   ,-    getBufferedOutputStreamAutoGrow         ,-    setBufferedOutputStreamAutoGrow         ,----- ** bufferSize #attr:bufferSize#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    BufferedOutputStreamBufferSizePropertyInfo,-#endif-#if ENABLE_OVERLOADING-    bufferedOutputStreamBufferSize          ,-#endif-    constructBufferedOutputStreamBufferSize ,-    getBufferedOutputStreamBufferSize       ,-    setBufferedOutputStreamBufferSize       ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.FilterOutputStream as Gio.FilterOutputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype BufferedOutputStream = BufferedOutputStream (ManagedPtr BufferedOutputStream)-foreign import ccall "g_buffered_output_stream_get_type"-    c_g_buffered_output_stream_get_type :: IO GType--instance GObject BufferedOutputStream where-    gobjectType = c_g_buffered_output_stream_get_type-    ---- | Type class for types which can be safely cast to `BufferedOutputStream`, for instance with `toBufferedOutputStream`.-class (GObject o, O.IsDescendantOf BufferedOutputStream o) => IsBufferedOutputStream o-instance (GObject o, O.IsDescendantOf BufferedOutputStream o) => IsBufferedOutputStream o--instance O.HasParentTypes BufferedOutputStream-type instance O.ParentTypes BufferedOutputStream = '[Gio.FilterOutputStream.FilterOutputStream, Gio.OutputStream.OutputStream, GObject.Object.Object, Gio.Seekable.Seekable]---- | Cast to `BufferedOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toBufferedOutputStream :: (MonadIO m, IsBufferedOutputStream o) => o -> m BufferedOutputStream-toBufferedOutputStream = liftIO . unsafeCastTo BufferedOutputStream---- | A convenience alias for `Nothing` :: `Maybe` `BufferedOutputStream`.-noBufferedOutputStream :: Maybe BufferedOutputStream-noBufferedOutputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveBufferedOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveBufferedOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveBufferedOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveBufferedOutputStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveBufferedOutputStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveBufferedOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo-    ResolveBufferedOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo-    ResolveBufferedOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo-    ResolveBufferedOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo-    ResolveBufferedOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo-    ResolveBufferedOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveBufferedOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveBufferedOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveBufferedOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo-    ResolveBufferedOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo-    ResolveBufferedOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo-    ResolveBufferedOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveBufferedOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveBufferedOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveBufferedOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveBufferedOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveBufferedOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveBufferedOutputStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveBufferedOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo-    ResolveBufferedOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo-    ResolveBufferedOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveBufferedOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveBufferedOutputStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveBufferedOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveBufferedOutputStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveBufferedOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveBufferedOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveBufferedOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo-    ResolveBufferedOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo-    ResolveBufferedOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo-    ResolveBufferedOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo-    ResolveBufferedOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo-    ResolveBufferedOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo-    ResolveBufferedOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo-    ResolveBufferedOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo-    ResolveBufferedOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo-    ResolveBufferedOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo-    ResolveBufferedOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo-    ResolveBufferedOutputStreamMethod "getAutoGrow" o = BufferedOutputStreamGetAutoGrowMethodInfo-    ResolveBufferedOutputStreamMethod "getBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamGetBaseStreamMethodInfo-    ResolveBufferedOutputStreamMethod "getBufferSize" o = BufferedOutputStreamGetBufferSizeMethodInfo-    ResolveBufferedOutputStreamMethod "getCloseBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamGetCloseBaseStreamMethodInfo-    ResolveBufferedOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveBufferedOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveBufferedOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveBufferedOutputStreamMethod "setAutoGrow" o = BufferedOutputStreamSetAutoGrowMethodInfo-    ResolveBufferedOutputStreamMethod "setBufferSize" o = BufferedOutputStreamSetBufferSizeMethodInfo-    ResolveBufferedOutputStreamMethod "setCloseBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamSetCloseBaseStreamMethodInfo-    ResolveBufferedOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveBufferedOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo-    ResolveBufferedOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveBufferedOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveBufferedOutputStreamMethod t BufferedOutputStream, O.MethodInfo info BufferedOutputStream p) => OL.IsLabel t (BufferedOutputStream -> 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---- VVV Prop "auto-grow"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@auto-grow@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' bufferedOutputStream #autoGrow-@--}-getBufferedOutputStreamAutoGrow :: (MonadIO m, IsBufferedOutputStream o) => o -> m Bool-getBufferedOutputStreamAutoGrow obj = liftIO $ B.Properties.getObjectPropertyBool obj "auto-grow"--{- |-Set the value of the “@auto-grow@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' bufferedOutputStream [ #autoGrow 'Data.GI.Base.Attributes.:=' value ]-@--}-setBufferedOutputStreamAutoGrow :: (MonadIO m, IsBufferedOutputStream o) => o -> Bool -> m ()-setBufferedOutputStreamAutoGrow obj val = liftIO $ B.Properties.setObjectPropertyBool obj "auto-grow" val--{- |-Construct a `GValueConstruct` with valid value for the “@auto-grow@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructBufferedOutputStreamAutoGrow :: (IsBufferedOutputStream o) => Bool -> IO (GValueConstruct o)-constructBufferedOutputStreamAutoGrow val = B.Properties.constructObjectPropertyBool "auto-grow" val--#if ENABLE_OVERLOADING-data BufferedOutputStreamAutoGrowPropertyInfo-instance AttrInfo BufferedOutputStreamAutoGrowPropertyInfo where-    type AttrAllowedOps BufferedOutputStreamAutoGrowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = IsBufferedOutputStream-    type AttrGetType BufferedOutputStreamAutoGrowPropertyInfo = Bool-    type AttrLabel BufferedOutputStreamAutoGrowPropertyInfo = "auto-grow"-    type AttrOrigin BufferedOutputStreamAutoGrowPropertyInfo = BufferedOutputStream-    attrGet _ = getBufferedOutputStreamAutoGrow-    attrSet _ = setBufferedOutputStreamAutoGrow-    attrConstruct _ = constructBufferedOutputStreamAutoGrow-    attrClear _ = undefined-#endif---- VVV Prop "buffer-size"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@buffer-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' bufferedOutputStream #bufferSize-@--}-getBufferedOutputStreamBufferSize :: (MonadIO m, IsBufferedOutputStream o) => o -> m Word32-getBufferedOutputStreamBufferSize obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "buffer-size"--{- |-Set the value of the “@buffer-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' bufferedOutputStream [ #bufferSize 'Data.GI.Base.Attributes.:=' value ]-@--}-setBufferedOutputStreamBufferSize :: (MonadIO m, IsBufferedOutputStream o) => o -> Word32 -> m ()-setBufferedOutputStreamBufferSize obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "buffer-size" val--{- |-Construct a `GValueConstruct` with valid value for the “@buffer-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructBufferedOutputStreamBufferSize :: (IsBufferedOutputStream o) => Word32 -> IO (GValueConstruct o)-constructBufferedOutputStreamBufferSize val = B.Properties.constructObjectPropertyUInt32 "buffer-size" val--#if ENABLE_OVERLOADING-data BufferedOutputStreamBufferSizePropertyInfo-instance AttrInfo BufferedOutputStreamBufferSizePropertyInfo where-    type AttrAllowedOps BufferedOutputStreamBufferSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = IsBufferedOutputStream-    type AttrGetType BufferedOutputStreamBufferSizePropertyInfo = Word32-    type AttrLabel BufferedOutputStreamBufferSizePropertyInfo = "buffer-size"-    type AttrOrigin BufferedOutputStreamBufferSizePropertyInfo = BufferedOutputStream-    attrGet _ = getBufferedOutputStreamBufferSize-    attrSet _ = setBufferedOutputStreamBufferSize-    attrConstruct _ = constructBufferedOutputStreamBufferSize-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList BufferedOutputStream-type instance O.AttributeList BufferedOutputStream = BufferedOutputStreamAttributeList-type BufferedOutputStreamAttributeList = ('[ '("autoGrow", BufferedOutputStreamAutoGrowPropertyInfo), '("baseStream", Gio.FilterOutputStream.FilterOutputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedOutputStreamBufferSizePropertyInfo), '("closeBaseStream", Gio.FilterOutputStream.FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-bufferedOutputStreamAutoGrow :: AttrLabelProxy "autoGrow"-bufferedOutputStreamAutoGrow = AttrLabelProxy--bufferedOutputStreamBufferSize :: AttrLabelProxy "bufferSize"-bufferedOutputStreamBufferSize = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList BufferedOutputStream = BufferedOutputStreamSignalList-type BufferedOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method BufferedOutputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_buffered_output_stream_new" g_buffered_output_stream_new :: -    Ptr Gio.OutputStream.OutputStream ->    -- base_stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    IO (Ptr BufferedOutputStream)--{- |-Creates a new buffered output stream for a base stream.--}-bufferedOutputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.OutputStream.IsOutputStream a) =>-    a-    {- ^ /@baseStream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> m BufferedOutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.OutputStream.OutputStream' for the given /@baseStream@/. -}-bufferedOutputStreamNew baseStream = liftIO $ do-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    result <- g_buffered_output_stream_new baseStream'-    checkUnexpectedReturnNULL "bufferedOutputStreamNew" result-    result' <- (wrapObject BufferedOutputStream) result-    touchManagedPtr baseStream-    return result'--#if ENABLE_OVERLOADING-#endif---- method BufferedOutputStream::new_sized--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_buffered_output_stream_new_sized" g_buffered_output_stream_new_sized :: -    Ptr Gio.OutputStream.OutputStream ->    -- base_stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Word64 ->                               -- size : TBasicType TUInt64-    IO (Ptr BufferedOutputStream)--{- |-Creates a new buffered output stream with a given buffer size.--}-bufferedOutputStreamNewSized ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.OutputStream.IsOutputStream a) =>-    a-    {- ^ /@baseStream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> Word64-    {- ^ /@size@/: a @/gsize/@. -}-    -> m BufferedOutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.OutputStream.OutputStream' with an internal buffer set to /@size@/. -}-bufferedOutputStreamNewSized baseStream size = liftIO $ do-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    result <- g_buffered_output_stream_new_sized baseStream' size-    checkUnexpectedReturnNULL "bufferedOutputStreamNewSized" result-    result' <- (wrapObject BufferedOutputStream) result-    touchManagedPtr baseStream-    return result'--#if ENABLE_OVERLOADING-#endif---- method BufferedOutputStream::get_auto_grow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedOutputStream.", 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 "g_buffered_output_stream_get_auto_grow" g_buffered_output_stream_get_auto_grow :: -    Ptr BufferedOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"})-    IO CInt--{- |-Checks if the buffer automatically grows as data is added.--}-bufferedOutputStreamGetAutoGrow ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedOutputStream.BufferedOutputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@stream@/\'s buffer automatically grows,-'False' otherwise. -}-bufferedOutputStreamGetAutoGrow stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_buffered_output_stream_get_auto_grow stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data BufferedOutputStreamGetAutoGrowMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsBufferedOutputStream a) => O.MethodInfo BufferedOutputStreamGetAutoGrowMethodInfo a signature where-    overloadedMethod _ = bufferedOutputStreamGetAutoGrow--#endif---- method BufferedOutputStream::get_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedOutputStream.", 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 "g_buffered_output_stream_get_buffer_size" g_buffered_output_stream_get_buffer_size :: -    Ptr BufferedOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"})-    IO Word64--{- |-Gets the size of the buffer in the /@stream@/.--}-bufferedOutputStreamGetBufferSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedOutputStream.BufferedOutputStream'. -}-    -> m Word64-    {- ^ __Returns:__ the current size of the buffer. -}-bufferedOutputStreamGetBufferSize stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_buffered_output_stream_get_buffer_size stream'-    touchManagedPtr stream-    return result--#if ENABLE_OVERLOADING-data BufferedOutputStreamGetBufferSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsBufferedOutputStream a) => O.MethodInfo BufferedOutputStreamGetBufferSizeMethodInfo a signature where-    overloadedMethod _ = bufferedOutputStreamGetBufferSize--#endif---- method BufferedOutputStream::set_auto_grow--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_grow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gboolean.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_buffered_output_stream_set_auto_grow" g_buffered_output_stream_set_auto_grow :: -    Ptr BufferedOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"})-    CInt ->                                 -- auto_grow : TBasicType TBoolean-    IO ()--{- |-Sets whether or not the /@stream@/\'s buffer should automatically grow.-If /@autoGrow@/ is true, then each write will just make the buffer-larger, and you must manually flush the buffer to actually write out-the data to the underlying stream.--}-bufferedOutputStreamSetAutoGrow ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedOutputStream.BufferedOutputStream'. -}-    -> Bool-    {- ^ /@autoGrow@/: a 'Bool'. -}-    -> m ()-bufferedOutputStreamSetAutoGrow stream autoGrow = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    let autoGrow' = (fromIntegral . fromEnum) autoGrow-    g_buffered_output_stream_set_auto_grow stream' autoGrow'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data BufferedOutputStreamSetAutoGrowMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsBufferedOutputStream a) => O.MethodInfo BufferedOutputStreamSetAutoGrowMethodInfo a signature where-    overloadedMethod _ = bufferedOutputStreamSetAutoGrow--#endif---- method BufferedOutputStream::set_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBufferedOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_buffered_output_stream_set_buffer_size" g_buffered_output_stream_set_buffer_size :: -    Ptr BufferedOutputStream ->             -- stream : TInterface (Name {namespace = "Gio", name = "BufferedOutputStream"})-    Word64 ->                               -- size : TBasicType TUInt64-    IO ()--{- |-Sets the size of the internal buffer to /@size@/.--}-bufferedOutputStreamSetBufferSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsBufferedOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.BufferedOutputStream.BufferedOutputStream'. -}-    -> Word64-    {- ^ /@size@/: a @/gsize/@. -}-    -> m ()-bufferedOutputStreamSetBufferSize stream size = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    g_buffered_output_stream_set_buffer_size stream' size-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data BufferedOutputStreamSetBufferSizeMethodInfo-instance (signature ~ (Word64 -> m ()), MonadIO m, IsBufferedOutputStream a) => O.MethodInfo BufferedOutputStreamSetBufferSizeMethodInfo a signature where-    overloadedMethod _ = bufferedOutputStreamSetBufferSize--#endif--
− GI/Gio/Objects/BufferedOutputStream.hs-boot 
@@ -1,47 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.BufferedOutputStream 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 BufferedOutputStream = BufferedOutputStream (ManagedPtr BufferedOutputStream)-instance GObject BufferedOutputStream where-class (GObject o, O.IsDescendantOf BufferedOutputStream o) => IsBufferedOutputStream o-instance (GObject o, O.IsDescendantOf BufferedOutputStream o) => IsBufferedOutputStream o-instance O.HasParentTypes BufferedOutputStream-#if ENABLE_OVERLOADING-data BufferedOutputStreamAutoGrowPropertyInfo-#endif-#if ENABLE_OVERLOADING-data BufferedOutputStreamBufferSizePropertyInfo-#endif-#if ENABLE_OVERLOADING-data BufferedOutputStreamGetAutoGrowMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedOutputStreamGetBufferSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedOutputStreamSetAutoGrowMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferedOutputStreamSetBufferSizeMethodInfo-#endif
− GI/Gio/Objects/BytesIcon.hs 
@@ -1,279 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.BytesIcon.BytesIcon' specifies an image held in memory in a common format (usually-png) to be used as icon.--/Since: 2.38/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.BytesIcon-    ( ---- * Exported types-    BytesIcon(..)                           ,-    IsBytesIcon                             ,-    toBytesIcon                             ,-    noBytesIcon                             ,--- -- * Methods--- ** getBytes #method:getBytes#--#if ENABLE_OVERLOADING-    BytesIconGetBytesMethodInfo             ,-#endif-    bytesIconGetBytes                       ,----- ** new #method:new#--    bytesIconNew                            ,----- -- * Properties--- ** bytes #attr:bytes#-{- | The bytes containing the icon.--}-#if ENABLE_OVERLOADING-    BytesIconBytesPropertyInfo              ,-#endif-#if ENABLE_OVERLOADING-    bytesIconBytes                          ,-#endif-    constructBytesIconBytes                 ,-    getBytesIconBytes                       ,-----    ) 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.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Interfaces.LoadableIcon as Gio.LoadableIcon---- | Memory-managed wrapper type.-newtype BytesIcon = BytesIcon (ManagedPtr BytesIcon)-foreign import ccall "g_bytes_icon_get_type"-    c_g_bytes_icon_get_type :: IO GType--instance GObject BytesIcon where-    gobjectType = c_g_bytes_icon_get_type-    ---- | Type class for types which can be safely cast to `BytesIcon`, for instance with `toBytesIcon`.-class (GObject o, O.IsDescendantOf BytesIcon o) => IsBytesIcon o-instance (GObject o, O.IsDescendantOf BytesIcon o) => IsBytesIcon o--instance O.HasParentTypes BytesIcon-type instance O.ParentTypes BytesIcon = '[GObject.Object.Object, Gio.Icon.Icon, Gio.LoadableIcon.LoadableIcon]---- | Cast to `BytesIcon`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toBytesIcon :: (MonadIO m, IsBytesIcon o) => o -> m BytesIcon-toBytesIcon = liftIO . unsafeCastTo BytesIcon---- | A convenience alias for `Nothing` :: `Maybe` `BytesIcon`.-noBytesIcon :: Maybe BytesIcon-noBytesIcon = Nothing--#if ENABLE_OVERLOADING-type family ResolveBytesIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveBytesIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveBytesIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveBytesIconMethod "equal" o = Gio.Icon.IconEqualMethodInfo-    ResolveBytesIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveBytesIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveBytesIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveBytesIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveBytesIconMethod "load" o = Gio.LoadableIcon.LoadableIconLoadMethodInfo-    ResolveBytesIconMethod "loadAsync" o = Gio.LoadableIcon.LoadableIconLoadAsyncMethodInfo-    ResolveBytesIconMethod "loadFinish" o = Gio.LoadableIcon.LoadableIconLoadFinishMethodInfo-    ResolveBytesIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveBytesIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveBytesIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveBytesIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveBytesIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveBytesIconMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo-    ResolveBytesIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveBytesIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveBytesIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveBytesIconMethod "toString" o = Gio.Icon.IconToStringMethodInfo-    ResolveBytesIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveBytesIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveBytesIconMethod "getBytes" o = BytesIconGetBytesMethodInfo-    ResolveBytesIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveBytesIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveBytesIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveBytesIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveBytesIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveBytesIconMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveBytesIconMethod t BytesIcon, O.MethodInfo info BytesIcon p) => OL.IsLabel t (BytesIcon -> 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---- VVV Prop "bytes"-   -- Type: TInterface (Name {namespace = "GLib", name = "Bytes"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@bytes@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' bytesIcon #bytes-@--}-getBytesIconBytes :: (MonadIO m, IsBytesIcon o) => o -> m GLib.Bytes.Bytes-getBytesIconBytes obj = liftIO $ checkUnexpectedNothing "getBytesIconBytes" $ B.Properties.getObjectPropertyBoxed obj "bytes" GLib.Bytes.Bytes--{- |-Construct a `GValueConstruct` with valid value for the “@bytes@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructBytesIconBytes :: (IsBytesIcon o) => GLib.Bytes.Bytes -> IO (GValueConstruct o)-constructBytesIconBytes val = B.Properties.constructObjectPropertyBoxed "bytes" (Just val)--#if ENABLE_OVERLOADING-data BytesIconBytesPropertyInfo-instance AttrInfo BytesIconBytesPropertyInfo where-    type AttrAllowedOps BytesIconBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint BytesIconBytesPropertyInfo = (~) GLib.Bytes.Bytes-    type AttrBaseTypeConstraint BytesIconBytesPropertyInfo = IsBytesIcon-    type AttrGetType BytesIconBytesPropertyInfo = GLib.Bytes.Bytes-    type AttrLabel BytesIconBytesPropertyInfo = "bytes"-    type AttrOrigin BytesIconBytesPropertyInfo = BytesIcon-    attrGet _ = getBytesIconBytes-    attrSet _ = undefined-    attrConstruct _ = constructBytesIconBytes-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList BytesIcon-type instance O.AttributeList BytesIcon = BytesIconAttributeList-type BytesIconAttributeList = ('[ '("bytes", BytesIconBytesPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-bytesIconBytes :: AttrLabelProxy "bytes"-bytesIconBytes = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList BytesIcon = BytesIconSignalList-type BytesIconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method BytesIcon::new--- method type : Constructor--- Args : [Arg {argCName = "bytes", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBytes.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "BytesIcon"}))--- throws : False--- Skip return : False--foreign import ccall "g_bytes_icon_new" g_bytes_icon_new :: -    Ptr GLib.Bytes.Bytes ->                 -- bytes : TInterface (Name {namespace = "GLib", name = "Bytes"})-    IO (Ptr BytesIcon)--{- |-Creates a new icon for a bytes.--/Since: 2.38/--}-bytesIconNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GLib.Bytes.Bytes-    {- ^ /@bytes@/: a 'GI.GLib.Structs.Bytes.Bytes'. -}-    -> m BytesIcon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon' for the given-  /@bytes@/, or 'Nothing' on error. -}-bytesIconNew bytes = liftIO $ do-    bytes' <- unsafeManagedPtrGetPtr bytes-    result <- g_bytes_icon_new bytes'-    checkUnexpectedReturnNULL "bytesIconNew" result-    result' <- (wrapObject BytesIcon) result-    touchManagedPtr bytes-    return result'--#if ENABLE_OVERLOADING-#endif---- method BytesIcon::get_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "BytesIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : False--- Skip return : False--foreign import ccall "g_bytes_icon_get_bytes" g_bytes_icon_get_bytes :: -    Ptr BytesIcon ->                        -- icon : TInterface (Name {namespace = "Gio", name = "BytesIcon"})-    IO (Ptr GLib.Bytes.Bytes)--{- |-Gets the 'GI.GLib.Structs.Bytes.Bytes' associated with the given /@icon@/.--/Since: 2.38/--}-bytesIconGetBytes ::-    (B.CallStack.HasCallStack, MonadIO m, IsBytesIcon a) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon'. -}-    -> m GLib.Bytes.Bytes-    {- ^ __Returns:__ a 'GI.GLib.Structs.Bytes.Bytes', or 'Nothing'. -}-bytesIconGetBytes icon = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    result <- g_bytes_icon_get_bytes icon'-    checkUnexpectedReturnNULL "bytesIconGetBytes" result-    result' <- (newBoxed GLib.Bytes.Bytes) result-    touchManagedPtr icon-    return result'--#if ENABLE_OVERLOADING-data BytesIconGetBytesMethodInfo-instance (signature ~ (m GLib.Bytes.Bytes), MonadIO m, IsBytesIcon a) => O.MethodInfo BytesIconGetBytesMethodInfo a signature where-    overloadedMethod _ = bytesIconGetBytes--#endif--
− GI/Gio/Objects/BytesIcon.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.BytesIcon 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 BytesIcon = BytesIcon (ManagedPtr BytesIcon)-instance GObject BytesIcon where-class (GObject o, O.IsDescendantOf BytesIcon o) => IsBytesIcon o-instance (GObject o, O.IsDescendantOf BytesIcon o) => IsBytesIcon o-instance O.HasParentTypes BytesIcon-#if ENABLE_OVERLOADING-data BytesIconBytesPropertyInfo-#endif-#if ENABLE_OVERLOADING-data BytesIconGetBytesMethodInfo-#endif
− GI/Gio/Objects/Cancellable.hs 
@@ -1,948 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--GCancellable is a thread-safe operation cancellation stack used-throughout GIO to allow for cancellation of synchronous and-asynchronous operations.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Cancellable-    ( ---- * Exported types-    Cancellable(..)                         ,-    IsCancellable                           ,-    toCancellable                           ,-    noCancellable                           ,--- -- * Methods--- ** cancel #method:cancel#--#if ENABLE_OVERLOADING-    CancellableCancelMethodInfo             ,-#endif-    cancellableCancel                       ,----- ** connect #method:connect#--#if ENABLE_OVERLOADING-    CancellableConnectMethodInfo            ,-#endif-    cancellableConnect                      ,----- ** disconnect #method:disconnect#--#if ENABLE_OVERLOADING-    CancellableDisconnectMethodInfo         ,-#endif-    cancellableDisconnect                   ,----- ** getCurrent #method:getCurrent#--    cancellableGetCurrent                   ,----- ** getFd #method:getFd#--#if ENABLE_OVERLOADING-    CancellableGetFdMethodInfo              ,-#endif-    cancellableGetFd                        ,----- ** isCancelled #method:isCancelled#--#if ENABLE_OVERLOADING-    CancellableIsCancelledMethodInfo        ,-#endif-    cancellableIsCancelled                  ,----- ** makePollfd #method:makePollfd#--#if ENABLE_OVERLOADING-    CancellableMakePollfdMethodInfo         ,-#endif-    cancellableMakePollfd                   ,----- ** new #method:new#--    cancellableNew                          ,----- ** popCurrent #method:popCurrent#--#if ENABLE_OVERLOADING-    CancellablePopCurrentMethodInfo         ,-#endif-    cancellablePopCurrent                   ,----- ** pushCurrent #method:pushCurrent#--#if ENABLE_OVERLOADING-    CancellablePushCurrentMethodInfo        ,-#endif-    cancellablePushCurrent                  ,----- ** releaseFd #method:releaseFd#--#if ENABLE_OVERLOADING-    CancellableReleaseFdMethodInfo          ,-#endif-    cancellableReleaseFd                    ,----- ** reset #method:reset#--#if ENABLE_OVERLOADING-    CancellableResetMethodInfo              ,-#endif-    cancellableReset                        ,----- ** setErrorIfCancelled #method:setErrorIfCancelled#--#if ENABLE_OVERLOADING-    CancellableSetErrorIfCancelledMethodInfo,-#endif-    cancellableSetErrorIfCancelled          ,----- -- * Signals--- ** cancelled #signal:cancelled#--    C_CancellableCancelledCallback          ,-    CancellableCancelledCallback            ,-#if ENABLE_OVERLOADING-    CancellableCancelledSignalInfo          ,-#endif-    afterCancellableCancelled               ,-    genClosure_CancellableCancelled         ,-    mk_CancellableCancelledCallback         ,-    noCancellableCancelledCallback          ,-    onCancellableCancelled                  ,-    wrap_CancellableCancelledCallback       ,-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GLib.Structs.PollFD as GLib.PollFD-import qualified GI.GObject.Callbacks as GObject.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object---- | Memory-managed wrapper type.-newtype Cancellable = Cancellable (ManagedPtr Cancellable)-foreign import ccall "g_cancellable_get_type"-    c_g_cancellable_get_type :: IO GType--instance GObject Cancellable where-    gobjectType = c_g_cancellable_get_type-    ---- | Type class for types which can be safely cast to `Cancellable`, for instance with `toCancellable`.-class (GObject o, O.IsDescendantOf Cancellable o) => IsCancellable o-instance (GObject o, O.IsDescendantOf Cancellable o) => IsCancellable o--instance O.HasParentTypes Cancellable-type instance O.ParentTypes Cancellable = '[GObject.Object.Object]---- | Cast to `Cancellable`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toCancellable :: (MonadIO m, IsCancellable o) => o -> m Cancellable-toCancellable = liftIO . unsafeCastTo Cancellable---- | A convenience alias for `Nothing` :: `Maybe` `Cancellable`.-noCancellable :: Maybe Cancellable-noCancellable = Nothing--#if ENABLE_OVERLOADING-type family ResolveCancellableMethod (t :: Symbol) (o :: *) :: * where-    ResolveCancellableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveCancellableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveCancellableMethod "cancel" o = CancellableCancelMethodInfo-    ResolveCancellableMethod "connect" o = CancellableConnectMethodInfo-    ResolveCancellableMethod "disconnect" o = CancellableDisconnectMethodInfo-    ResolveCancellableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveCancellableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveCancellableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveCancellableMethod "isCancelled" o = CancellableIsCancelledMethodInfo-    ResolveCancellableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveCancellableMethod "makePollfd" o = CancellableMakePollfdMethodInfo-    ResolveCancellableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveCancellableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveCancellableMethod "popCurrent" o = CancellablePopCurrentMethodInfo-    ResolveCancellableMethod "pushCurrent" o = CancellablePushCurrentMethodInfo-    ResolveCancellableMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveCancellableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveCancellableMethod "releaseFd" o = CancellableReleaseFdMethodInfo-    ResolveCancellableMethod "reset" o = CancellableResetMethodInfo-    ResolveCancellableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveCancellableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveCancellableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveCancellableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveCancellableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveCancellableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveCancellableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveCancellableMethod "getFd" o = CancellableGetFdMethodInfo-    ResolveCancellableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveCancellableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveCancellableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveCancellableMethod "setErrorIfCancelled" o = CancellableSetErrorIfCancelledMethodInfo-    ResolveCancellableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveCancellableMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveCancellableMethod t Cancellable, O.MethodInfo info Cancellable p) => OL.IsLabel t (Cancellable -> 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 Cancellable::cancelled-{- |-Emitted when the operation has been cancelled.--Can be used by implementations of cancellable operations. If the-operation is cancelled from another thread, the signal will be-emitted in the thread that cancelled the operation, not the-thread that is running the operation.--Note that disconnecting from this signal (or any signal) in a-multi-threaded program is prone to race conditions. For instance-it is possible that a signal handler may be invoked even after-a call to 'GI.GObject.Functions.signalHandlerDisconnect' for that handler has-already returned.--There is also a problem when cancellation happens right before-connecting to the signal. If this happens the signal will-unexpectedly not be emitted, and checking before connecting to-the signal leaves a race condition where this is still happening.--In order to make it safe and easy to connect handlers there-are two helper functions: 'GI.Gio.Objects.Cancellable.cancellableConnect' and-'GI.Gio.Objects.Cancellable.cancellableDisconnect' which protect against problems-like this.--An example of how to us this:--=== /C code/->->    // Make sure we don't do unnecessary work if already cancelled->    if (g_cancellable_set_error_if_cancelled (cancellable, error))->      return;->->    // Set up all the data needed to be able to handle cancellation->    // of the operation->    my_data = my_data_new (...);->->    id = 0;->    if (cancellable)->      id = g_cancellable_connect (cancellable,->    			      G_CALLBACK (cancelled_handler)->    			      data, NULL);->->    // cancellable operation here...->->    g_cancellable_disconnect (cancellable, id);->->    // cancelled_handler is never called after this, it is now safe->    // to free the data->    my_data_free (my_data);---Note that the cancelled signal is emitted in the thread that-the user cancelled from, which may be the main thread. So, the-cancellable signal should not do something that can block.--}-type CancellableCancelledCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `CancellableCancelledCallback`@.-noCancellableCancelledCallback :: Maybe CancellableCancelledCallback-noCancellableCancelledCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_CancellableCancelledCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_CancellableCancelledCallback`.-foreign import ccall "wrapper"-    mk_CancellableCancelledCallback :: C_CancellableCancelledCallback -> IO (FunPtr C_CancellableCancelledCallback)---- | Wrap the callback into a `GClosure`.-genClosure_CancellableCancelled :: MonadIO m => CancellableCancelledCallback -> m (GClosure C_CancellableCancelledCallback)-genClosure_CancellableCancelled cb = liftIO $ do-    let cb' = wrap_CancellableCancelledCallback cb-    mk_CancellableCancelledCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `CancellableCancelledCallback` into a `C_CancellableCancelledCallback`.-wrap_CancellableCancelledCallback ::-    CancellableCancelledCallback ->-    C_CancellableCancelledCallback-wrap_CancellableCancelledCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@cancelled@” 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' cancellable #cancelled callback-@--}-onCancellableCancelled :: (IsCancellable a, MonadIO m) => a -> CancellableCancelledCallback -> m SignalHandlerId-onCancellableCancelled obj cb = liftIO $ do-    let cb' = wrap_CancellableCancelledCallback cb-    cb'' <- mk_CancellableCancelledCallback cb'-    connectSignalFunPtr obj "cancelled" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@cancelled@” 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' cancellable #cancelled callback-@--}-afterCancellableCancelled :: (IsCancellable a, MonadIO m) => a -> CancellableCancelledCallback -> m SignalHandlerId-afterCancellableCancelled obj cb = liftIO $ do-    let cb' = wrap_CancellableCancelledCallback cb-    cb'' <- mk_CancellableCancelledCallback cb'-    connectSignalFunPtr obj "cancelled" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList Cancellable-type instance O.AttributeList Cancellable = CancellableAttributeList-type CancellableAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data CancellableCancelledSignalInfo-instance SignalInfo CancellableCancelledSignalInfo where-    type HaskellCallbackType CancellableCancelledSignalInfo = CancellableCancelledCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_CancellableCancelledCallback cb-        cb'' <- mk_CancellableCancelledCallback cb'-        connectSignalFunPtr obj "cancelled" cb'' connectMode--type instance O.SignalList Cancellable = CancellableSignalList-type CancellableSignalList = ('[ '("cancelled", CancellableCancelledSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Cancellable::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Cancellable"}))--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_new" g_cancellable_new :: -    IO (Ptr Cancellable)--{- |-Creates a new 'GI.Gio.Objects.Cancellable.Cancellable' object.--Applications that want to start one or more operations-that should be cancellable should create a 'GI.Gio.Objects.Cancellable.Cancellable'-and pass it to the operations.--One 'GI.Gio.Objects.Cancellable.Cancellable' can be used in multiple consecutive-operations or in multiple concurrent operations.--}-cancellableNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Cancellable-    {- ^ __Returns:__ a 'GI.Gio.Objects.Cancellable.Cancellable'. -}-cancellableNew  = liftIO $ do-    result <- g_cancellable_new-    checkUnexpectedReturnNULL "cancellableNew" result-    result' <- (wrapObject Cancellable) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Cancellable::cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_cancel" g_cancellable_cancel :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO ()--{- |-Will set /@cancellable@/ to cancelled, and will emit the-'GI.Gio.Objects.Cancellable.Cancellable'::@/cancelled/@ signal. (However, see the warning about-race conditions in the documentation for that signal if you are-planning to connect to it.)--This function is thread-safe. In other words, you can safely call-it from a thread other than the one running the operation that was-passed the /@cancellable@/.--If /@cancellable@/ is 'Nothing', this function returns immediately for convenience.--The convention within GIO is that cancelling an asynchronous-operation causes it to complete asynchronously. That is, if you-cancel the operation from the same thread in which it is running,-then the operation\'s 'GI.Gio.Callbacks.AsyncReadyCallback' will not be invoked until-the application returns to the main loop.--}-cancellableCancel ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' object. -}-    -> m ()-cancellableCancel cancellable = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    g_cancellable_cancel cancellable'-    touchManagedPtr cancellable-    return ()--#if ENABLE_OVERLOADING-data CancellableCancelMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCancellable a) => O.MethodInfo CancellableCancelMethodInfo a signature where-    overloadedMethod _ = cancellableCancel--#endif---- method Cancellable::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCancellable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "GObject", name = "Callback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GCallback to connect.", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "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},Arg {argCName = "data_destroy_func", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Free function for @data or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TULong)--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_connect" g_cancellable_connect :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr GObject.Callbacks.C_Callback ->  -- callback : TInterface (Name {namespace = "GObject", name = "Callback"})-    Ptr () ->                               -- data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- data_destroy_func : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO CULong--{- |-Convenience function to connect to the 'GI.Gio.Objects.Cancellable.Cancellable'::@/cancelled/@-signal. Also handles the race condition that may happen-if the cancellable is cancelled right before connecting.--/@callback@/ is called at most once, either directly at the-time of the connect if /@cancellable@/ is already cancelled,-or when /@cancellable@/ is cancelled in some thread.--/@dataDestroyFunc@/ will be called when the handler is-disconnected, or immediately if the cancellable is already-cancelled.--See 'GI.Gio.Objects.Cancellable.Cancellable'::@/cancelled/@ for details on how to use this.--Since GLib 2.40, the lock protecting /@cancellable@/ is not held when-/@callback@/ is invoked.  This lifts a restriction in place for-earlier GLib versions which now makes it easier to write cleanup-code that unconditionally invokes e.g. 'GI.Gio.Objects.Cancellable.cancellableCancel'.--/Since: 2.22/--}-cancellableConnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable'. -}-    -> GObject.Callbacks.Callback-    {- ^ /@callback@/: The 'GI.GObject.Callbacks.Callback' to connect. -}-    -> m CULong-    {- ^ __Returns:__ The id of the signal handler or 0 if /@cancellable@/ has already-         been cancelled. -}-cancellableConnect cancellable callback = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    callback' <- GObject.Callbacks.mk_Callback (GObject.Callbacks.wrap_Callback Nothing callback)-    let data_ = castFunPtrToPtr callback'-    let dataDestroyFunc = safeFreeFunPtrPtr-    result <- g_cancellable_connect cancellable' callback' data_ dataDestroyFunc-    touchManagedPtr cancellable-    return result--#if ENABLE_OVERLOADING-data CancellableConnectMethodInfo-instance (signature ~ (GObject.Callbacks.Callback -> m CULong), MonadIO m, IsCancellable a) => O.MethodInfo CancellableConnectMethodInfo a signature where-    overloadedMethod _ = cancellableConnect--#endif---- method Cancellable::disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCancellable or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Handler id of the handler to be disconnected, or `0`.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_disconnect" g_cancellable_disconnect :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    CULong ->                               -- handler_id : TBasicType TULong-    IO ()--{- |-Disconnects a handler from a cancellable instance similar to-'GI.GObject.Functions.signalHandlerDisconnect'.  Additionally, in the event that a-signal handler is currently running, this call will block until the-handler has finished.  Calling this function from a-'GI.Gio.Objects.Cancellable.Cancellable'::@/cancelled/@ signal handler will therefore result in a-deadlock.--This avoids a race condition where a thread cancels at the-same time as the cancellable operation is finished and the-signal handler is removed. See 'GI.Gio.Objects.Cancellable.Cancellable'::@/cancelled/@ for-details on how to use this.--If /@cancellable@/ is 'Nothing' or /@handlerId@/ is @0@ this function does-nothing.--/Since: 2.22/--}-cancellableDisconnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> CULong-    {- ^ /@handlerId@/: Handler id of the handler to be disconnected, or @0@. -}-    -> m ()-cancellableDisconnect cancellable handlerId = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    g_cancellable_disconnect cancellable' handlerId-    touchManagedPtr cancellable-    return ()--#if ENABLE_OVERLOADING-data CancellableDisconnectMethodInfo-instance (signature ~ (CULong -> m ()), MonadIO m, IsCancellable a) => O.MethodInfo CancellableDisconnectMethodInfo a signature where-    overloadedMethod _ = cancellableDisconnect--#endif---- method Cancellable::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable.", 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 "g_cancellable_get_fd" g_cancellable_get_fd :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO Int32--{- |-Gets the file descriptor for a cancellable job. This can be used to-implement cancellable operations on Unix systems. The returned fd will-turn readable when /@cancellable@/ is cancelled.--You are not supposed to read from the fd yourself, just check for-readable status. Reading to unset the readable status is done-with 'GI.Gio.Objects.Cancellable.cancellableReset'.--After a successful return from this function, you should use-'GI.Gio.Objects.Cancellable.cancellableReleaseFd' to free up resources allocated for-the returned file descriptor.--See also 'GI.Gio.Objects.Cancellable.cancellableMakePollfd'.--}-cancellableGetFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable'. -}-    -> m Int32-    {- ^ __Returns:__ A valid file descriptor. @-1@ if the file descriptor-is not supported, or on errors. -}-cancellableGetFd cancellable = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    result <- g_cancellable_get_fd cancellable'-    touchManagedPtr cancellable-    return result--#if ENABLE_OVERLOADING-data CancellableGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsCancellable a) => O.MethodInfo CancellableGetFdMethodInfo a signature where-    overloadedMethod _ = cancellableGetFd--#endif---- method Cancellable::is_cancelled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL", 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 "g_cancellable_is_cancelled" g_cancellable_is_cancelled :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO CInt--{- |-Checks if a cancellable job has been cancelled.--}-cancellableIsCancelled ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@cancellable@/ is cancelled,-FALSE if called with 'Nothing' or if item is not cancelled. -}-cancellableIsCancelled cancellable = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    result <- g_cancellable_is_cancelled cancellable'-    let result' = (/= 0) result-    touchManagedPtr cancellable-    return result'--#if ENABLE_OVERLOADING-data CancellableIsCancelledMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsCancellable a) => O.MethodInfo CancellableIsCancelledMethodInfo a signature where-    overloadedMethod _ = cancellableIsCancelled--#endif---- method Cancellable::make_pollfd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pollfd", argType = TInterface (Name {namespace = "GLib", name = "PollFD"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to a #GPollFD", 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 "g_cancellable_make_pollfd" g_cancellable_make_pollfd :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr GLib.PollFD.PollFD ->               -- pollfd : TInterface (Name {namespace = "GLib", name = "PollFD"})-    IO CInt--{- |-Creates a 'GI.GLib.Structs.PollFD.PollFD' corresponding to /@cancellable@/; this can be passed-to 'GI.GLib.Functions.poll' and used to poll for cancellation. This is useful both-for unix systems without a native poll and for portability to-windows.--When this function returns 'True', you should use-'GI.Gio.Objects.Cancellable.cancellableReleaseFd' to free up resources allocated for the-/@pollfd@/. After a 'False' return, do not call 'GI.Gio.Objects.Cancellable.cancellableReleaseFd'.--If this function returns 'False', either no /@cancellable@/ was given or-resource limits prevent this function from allocating the necessary-structures for polling. (On Linux, you will likely have reached-the maximum number of file descriptors.) The suggested way to handle-these cases is to ignore the /@cancellable@/.--You are not supposed to read from the fd yourself, just check for-readable status. Reading to unset the readable status is done-with 'GI.Gio.Objects.Cancellable.cancellableReset'.--/Since: 2.22/--}-cancellableMakePollfd ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> GLib.PollFD.PollFD-    {- ^ /@pollfd@/: a pointer to a 'GI.GLib.Structs.PollFD.PollFD' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@pollfd@/ was successfully initialized, 'False' on-         failure to prepare the cancellable. -}-cancellableMakePollfd cancellable pollfd = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    pollfd' <- unsafeManagedPtrGetPtr pollfd-    result <- g_cancellable_make_pollfd cancellable' pollfd'-    let result' = (/= 0) result-    touchManagedPtr cancellable-    touchManagedPtr pollfd-    return result'--#if ENABLE_OVERLOADING-data CancellableMakePollfdMethodInfo-instance (signature ~ (GLib.PollFD.PollFD -> m Bool), MonadIO m, IsCancellable a) => O.MethodInfo CancellableMakePollfdMethodInfo a signature where-    overloadedMethod _ = cancellableMakePollfd--#endif---- method Cancellable::pop_current--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_pop_current" g_cancellable_pop_current :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO ()--{- |-Pops /@cancellable@/ off the cancellable stack (verifying that /@cancellable@/-is on the top of the stack).--}-cancellablePopCurrent ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' object -}-    -> m ()-cancellablePopCurrent cancellable = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    g_cancellable_pop_current cancellable'-    touchManagedPtr cancellable-    return ()--#if ENABLE_OVERLOADING-data CancellablePopCurrentMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCancellable a) => O.MethodInfo CancellablePopCurrentMethodInfo a signature where-    overloadedMethod _ = cancellablePopCurrent--#endif---- method Cancellable::push_current--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_push_current" g_cancellable_push_current :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO ()--{- |-Pushes /@cancellable@/ onto the cancellable stack. The current-cancellable can then be received using 'GI.Gio.Objects.Cancellable.cancellableGetCurrent'.--This is useful when implementing cancellable operations in-code that does not allow you to pass down the cancellable object.--This is typically called automatically by e.g. 'GI.Gio.Interfaces.File.File' operations,-so you rarely have to call this yourself.--}-cancellablePushCurrent ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' object -}-    -> m ()-cancellablePushCurrent cancellable = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    g_cancellable_push_current cancellable'-    touchManagedPtr cancellable-    return ()--#if ENABLE_OVERLOADING-data CancellablePushCurrentMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCancellable a) => O.MethodInfo CancellablePushCurrentMethodInfo a signature where-    overloadedMethod _ = cancellablePushCurrent--#endif---- method Cancellable::release_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_release_fd" g_cancellable_release_fd :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO ()--{- |-Releases a resources previously allocated by 'GI.Gio.Objects.Cancellable.cancellableGetFd'-or 'GI.Gio.Objects.Cancellable.cancellableMakePollfd'.--For compatibility reasons with older releases, calling this function-is not strictly required, the resources will be automatically freed-when the /@cancellable@/ is finalized. However, the /@cancellable@/ will-block scarce file descriptors until it is finalized if this function-is not called. This can cause the application to run out of file-descriptors when many @/GCancellables/@ are used at the same time.--/Since: 2.22/--}-cancellableReleaseFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m ()-cancellableReleaseFd cancellable = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    g_cancellable_release_fd cancellable'-    touchManagedPtr cancellable-    return ()--#if ENABLE_OVERLOADING-data CancellableReleaseFdMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCancellable a) => O.MethodInfo CancellableReleaseFdMethodInfo a signature where-    overloadedMethod _ = cancellableReleaseFd--#endif---- method Cancellable::reset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_reset" g_cancellable_reset :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO ()--{- |-Resets /@cancellable@/ to its uncancelled state.--If cancellable is currently in use by any cancellable operation-then the behavior of this function is undefined.--Note that it is generally not a good idea to reuse an existing-cancellable for more operations after it has been cancelled once,-as this function might tempt you to do. The recommended practice-is to drop the reference to a cancellable after cancelling it,-and let it die with the outstanding async operations. You should-create a fresh cancellable for further async operations.--}-cancellableReset ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' object. -}-    -> m ()-cancellableReset cancellable = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    g_cancellable_reset cancellable'-    touchManagedPtr cancellable-    return ()--#if ENABLE_OVERLOADING-data CancellableResetMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCancellable a) => O.MethodInfo CancellableResetMethodInfo a signature where-    overloadedMethod _ = cancellableReset--#endif---- method Cancellable::set_error_if_cancelled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL", 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 "g_cancellable_set_error_if_cancelled" g_cancellable_set_error_if_cancelled :: -    Ptr Cancellable ->                      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-If the /@cancellable@/ is cancelled, sets the error to notify-that the operation was cancelled.--}-cancellableSetErrorIfCancelled ::-    (B.CallStack.HasCallStack, MonadIO m, IsCancellable a) =>-    a-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-cancellableSetErrorIfCancelled cancellable = liftIO $ do-    cancellable' <- unsafeManagedPtrCastPtr cancellable-    onException (do-        _ <- propagateGError $ g_cancellable_set_error_if_cancelled cancellable'-        touchManagedPtr cancellable-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data CancellableSetErrorIfCancelledMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCancellable a) => O.MethodInfo CancellableSetErrorIfCancelledMethodInfo a signature where-    overloadedMethod _ = cancellableSetErrorIfCancelled--#endif---- method Cancellable::get_current--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Cancellable"}))--- throws : False--- Skip return : False--foreign import ccall "g_cancellable_get_current" g_cancellable_get_current :: -    IO (Ptr Cancellable)--{- |-Gets the top cancellable from the stack.--}-cancellableGetCurrent ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m (Maybe Cancellable)-    {- ^ __Returns:__ a 'GI.Gio.Objects.Cancellable.Cancellable' from the top-of the stack, or 'Nothing' if the stack is empty. -}-cancellableGetCurrent  = liftIO $ do-    result <- g_cancellable_get_current-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Cancellable) result'-        return result''-    return maybeResult--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/Cancellable.hs-boot 
@@ -1,65 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Cancellable 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 Cancellable = Cancellable (ManagedPtr Cancellable)-instance GObject Cancellable where-class (GObject o, O.IsDescendantOf Cancellable o) => IsCancellable o-instance (GObject o, O.IsDescendantOf Cancellable o) => IsCancellable o-instance O.HasParentTypes Cancellable-#if ENABLE_OVERLOADING-data CancellableCancelledSignalInfo-#endif-#if ENABLE_OVERLOADING-data CancellableCancelMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellableConnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellableDisconnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellableGetFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellableIsCancelledMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellableMakePollfdMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellablePopCurrentMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellablePushCurrentMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellableReleaseFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellableResetMethodInfo-#endif-#if ENABLE_OVERLOADING-data CancellableSetErrorIfCancelledMethodInfo-#endif
− GI/Gio/Objects/CharsetConverter.hs 
@@ -1,493 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.CharsetConverter.CharsetConverter' is an implementation of 'GI.Gio.Interfaces.Converter.Converter' based on-GIConv.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.CharsetConverter-    ( ---- * Exported types-    CharsetConverter(..)                    ,-    IsCharsetConverter                      ,-    toCharsetConverter                      ,-    noCharsetConverter                      ,--- -- * Methods--- ** getNumFallbacks #method:getNumFallbacks#--#if ENABLE_OVERLOADING-    CharsetConverterGetNumFallbacksMethodInfo,-#endif-    charsetConverterGetNumFallbacks         ,----- ** getUseFallback #method:getUseFallback#--#if ENABLE_OVERLOADING-    CharsetConverterGetUseFallbackMethodInfo,-#endif-    charsetConverterGetUseFallback          ,----- ** new #method:new#--    charsetConverterNew                     ,----- ** setUseFallback #method:setUseFallback#--#if ENABLE_OVERLOADING-    CharsetConverterSetUseFallbackMethodInfo,-#endif-    charsetConverterSetUseFallback          ,----- -- * Properties--- ** fromCharset #attr:fromCharset#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    CharsetConverterFromCharsetPropertyInfo ,-#endif-#if ENABLE_OVERLOADING-    charsetConverterFromCharset             ,-#endif-    constructCharsetConverterFromCharset    ,-    getCharsetConverterFromCharset          ,----- ** toCharset #attr:toCharset#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    CharsetConverterToCharsetPropertyInfo   ,-#endif-#if ENABLE_OVERLOADING-    charsetConverterToCharset               ,-#endif-    constructCharsetConverterToCharset      ,-    getCharsetConverterToCharset            ,----- ** useFallback #attr:useFallback#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    CharsetConverterUseFallbackPropertyInfo ,-#endif-#if ENABLE_OVERLOADING-    charsetConverterUseFallback             ,-#endif-    constructCharsetConverterUseFallback    ,-    getCharsetConverterUseFallback          ,-    setCharsetConverterUseFallback          ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Converter as Gio.Converter-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable---- | Memory-managed wrapper type.-newtype CharsetConverter = CharsetConverter (ManagedPtr CharsetConverter)-foreign import ccall "g_charset_converter_get_type"-    c_g_charset_converter_get_type :: IO GType--instance GObject CharsetConverter where-    gobjectType = c_g_charset_converter_get_type-    ---- | Type class for types which can be safely cast to `CharsetConverter`, for instance with `toCharsetConverter`.-class (GObject o, O.IsDescendantOf CharsetConverter o) => IsCharsetConverter o-instance (GObject o, O.IsDescendantOf CharsetConverter o) => IsCharsetConverter o--instance O.HasParentTypes CharsetConverter-type instance O.ParentTypes CharsetConverter = '[GObject.Object.Object, Gio.Converter.Converter, Gio.Initable.Initable]---- | Cast to `CharsetConverter`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toCharsetConverter :: (MonadIO m, IsCharsetConverter o) => o -> m CharsetConverter-toCharsetConverter = liftIO . unsafeCastTo CharsetConverter---- | A convenience alias for `Nothing` :: `Maybe` `CharsetConverter`.-noCharsetConverter :: Maybe CharsetConverter-noCharsetConverter = Nothing--#if ENABLE_OVERLOADING-type family ResolveCharsetConverterMethod (t :: Symbol) (o :: *) :: * where-    ResolveCharsetConverterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveCharsetConverterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveCharsetConverterMethod "convert" o = Gio.Converter.ConverterConvertMethodInfo-    ResolveCharsetConverterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveCharsetConverterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveCharsetConverterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveCharsetConverterMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveCharsetConverterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveCharsetConverterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveCharsetConverterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveCharsetConverterMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveCharsetConverterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveCharsetConverterMethod "reset" o = Gio.Converter.ConverterResetMethodInfo-    ResolveCharsetConverterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveCharsetConverterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveCharsetConverterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveCharsetConverterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveCharsetConverterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveCharsetConverterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveCharsetConverterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveCharsetConverterMethod "getNumFallbacks" o = CharsetConverterGetNumFallbacksMethodInfo-    ResolveCharsetConverterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveCharsetConverterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveCharsetConverterMethod "getUseFallback" o = CharsetConverterGetUseFallbackMethodInfo-    ResolveCharsetConverterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveCharsetConverterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveCharsetConverterMethod "setUseFallback" o = CharsetConverterSetUseFallbackMethodInfo-    ResolveCharsetConverterMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveCharsetConverterMethod t CharsetConverter, O.MethodInfo info CharsetConverter p) => OL.IsLabel t (CharsetConverter -> 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---- VVV Prop "from-charset"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@from-charset@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' charsetConverter #fromCharset-@--}-getCharsetConverterFromCharset :: (MonadIO m, IsCharsetConverter o) => o -> m (Maybe T.Text)-getCharsetConverterFromCharset obj = liftIO $ B.Properties.getObjectPropertyString obj "from-charset"--{- |-Construct a `GValueConstruct` with valid value for the “@from-charset@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCharsetConverterFromCharset :: (IsCharsetConverter o) => T.Text -> IO (GValueConstruct o)-constructCharsetConverterFromCharset val = B.Properties.constructObjectPropertyString "from-charset" (Just val)--#if ENABLE_OVERLOADING-data CharsetConverterFromCharsetPropertyInfo-instance AttrInfo CharsetConverterFromCharsetPropertyInfo where-    type AttrAllowedOps CharsetConverterFromCharsetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CharsetConverterFromCharsetPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CharsetConverterFromCharsetPropertyInfo = IsCharsetConverter-    type AttrGetType CharsetConverterFromCharsetPropertyInfo = (Maybe T.Text)-    type AttrLabel CharsetConverterFromCharsetPropertyInfo = "from-charset"-    type AttrOrigin CharsetConverterFromCharsetPropertyInfo = CharsetConverter-    attrGet _ = getCharsetConverterFromCharset-    attrSet _ = undefined-    attrConstruct _ = constructCharsetConverterFromCharset-    attrClear _ = undefined-#endif---- VVV Prop "to-charset"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@to-charset@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' charsetConverter #toCharset-@--}-getCharsetConverterToCharset :: (MonadIO m, IsCharsetConverter o) => o -> m (Maybe T.Text)-getCharsetConverterToCharset obj = liftIO $ B.Properties.getObjectPropertyString obj "to-charset"--{- |-Construct a `GValueConstruct` with valid value for the “@to-charset@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCharsetConverterToCharset :: (IsCharsetConverter o) => T.Text -> IO (GValueConstruct o)-constructCharsetConverterToCharset val = B.Properties.constructObjectPropertyString "to-charset" (Just val)--#if ENABLE_OVERLOADING-data CharsetConverterToCharsetPropertyInfo-instance AttrInfo CharsetConverterToCharsetPropertyInfo where-    type AttrAllowedOps CharsetConverterToCharsetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CharsetConverterToCharsetPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CharsetConverterToCharsetPropertyInfo = IsCharsetConverter-    type AttrGetType CharsetConverterToCharsetPropertyInfo = (Maybe T.Text)-    type AttrLabel CharsetConverterToCharsetPropertyInfo = "to-charset"-    type AttrOrigin CharsetConverterToCharsetPropertyInfo = CharsetConverter-    attrGet _ = getCharsetConverterToCharset-    attrSet _ = undefined-    attrConstruct _ = constructCharsetConverterToCharset-    attrClear _ = undefined-#endif---- VVV Prop "use-fallback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@use-fallback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' charsetConverter #useFallback-@--}-getCharsetConverterUseFallback :: (MonadIO m, IsCharsetConverter o) => o -> m Bool-getCharsetConverterUseFallback obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-fallback"--{- |-Set the value of the “@use-fallback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' charsetConverter [ #useFallback 'Data.GI.Base.Attributes.:=' value ]-@--}-setCharsetConverterUseFallback :: (MonadIO m, IsCharsetConverter o) => o -> Bool -> m ()-setCharsetConverterUseFallback obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-fallback" val--{- |-Construct a `GValueConstruct` with valid value for the “@use-fallback@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCharsetConverterUseFallback :: (IsCharsetConverter o) => Bool -> IO (GValueConstruct o)-constructCharsetConverterUseFallback val = B.Properties.constructObjectPropertyBool "use-fallback" val--#if ENABLE_OVERLOADING-data CharsetConverterUseFallbackPropertyInfo-instance AttrInfo CharsetConverterUseFallbackPropertyInfo where-    type AttrAllowedOps CharsetConverterUseFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CharsetConverterUseFallbackPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint CharsetConverterUseFallbackPropertyInfo = IsCharsetConverter-    type AttrGetType CharsetConverterUseFallbackPropertyInfo = Bool-    type AttrLabel CharsetConverterUseFallbackPropertyInfo = "use-fallback"-    type AttrOrigin CharsetConverterUseFallbackPropertyInfo = CharsetConverter-    attrGet _ = getCharsetConverterUseFallback-    attrSet _ = setCharsetConverterUseFallback-    attrConstruct _ = constructCharsetConverterUseFallback-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList CharsetConverter-type instance O.AttributeList CharsetConverter = CharsetConverterAttributeList-type CharsetConverterAttributeList = ('[ '("fromCharset", CharsetConverterFromCharsetPropertyInfo), '("toCharset", CharsetConverterToCharsetPropertyInfo), '("useFallback", CharsetConverterUseFallbackPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-charsetConverterFromCharset :: AttrLabelProxy "fromCharset"-charsetConverterFromCharset = AttrLabelProxy--charsetConverterToCharset :: AttrLabelProxy "toCharset"-charsetConverterToCharset = AttrLabelProxy--charsetConverterUseFallback :: AttrLabelProxy "useFallback"-charsetConverterUseFallback = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList CharsetConverter = CharsetConverterSignalList-type CharsetConverterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method CharsetConverter::new--- method type : Constructor--- Args : [Arg {argCName = "to_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destination charset", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "from_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "source charset", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "CharsetConverter"}))--- throws : True--- Skip return : False--foreign import ccall "g_charset_converter_new" g_charset_converter_new :: -    CString ->                              -- to_charset : TBasicType TUTF8-    CString ->                              -- from_charset : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CharsetConverter)--{- |-Creates a new 'GI.Gio.Objects.CharsetConverter.CharsetConverter'.--/Since: 2.24/--}-charsetConverterNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@toCharset@/: destination charset -}-    -> T.Text-    {- ^ /@fromCharset@/: source charset -}-    -> m CharsetConverter-    {- ^ __Returns:__ a new 'GI.Gio.Objects.CharsetConverter.CharsetConverter' or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-charsetConverterNew toCharset fromCharset = liftIO $ do-    toCharset' <- textToCString toCharset-    fromCharset' <- textToCString fromCharset-    onException (do-        result <- propagateGError $ g_charset_converter_new toCharset' fromCharset'-        checkUnexpectedReturnNULL "charsetConverterNew" result-        result' <- (wrapObject CharsetConverter) result-        freeMem toCharset'-        freeMem fromCharset'-        return result'-     ) (do-        freeMem toCharset'-        freeMem fromCharset'-     )--#if ENABLE_OVERLOADING-#endif---- method CharsetConverter::get_num_fallbacks--- method type : OrdinaryMethod--- Args : [Arg {argCName = "converter", argType = TInterface (Name {namespace = "Gio", name = "CharsetConverter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCharsetConverter", 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 "g_charset_converter_get_num_fallbacks" g_charset_converter_get_num_fallbacks :: -    Ptr CharsetConverter ->                 -- converter : TInterface (Name {namespace = "Gio", name = "CharsetConverter"})-    IO Word32--{- |-Gets the number of fallbacks that /@converter@/ has applied so far.--/Since: 2.24/--}-charsetConverterGetNumFallbacks ::-    (B.CallStack.HasCallStack, MonadIO m, IsCharsetConverter a) =>-    a-    {- ^ /@converter@/: a 'GI.Gio.Objects.CharsetConverter.CharsetConverter' -}-    -> m Word32-    {- ^ __Returns:__ the number of fallbacks that /@converter@/ has applied -}-charsetConverterGetNumFallbacks converter = liftIO $ do-    converter' <- unsafeManagedPtrCastPtr converter-    result <- g_charset_converter_get_num_fallbacks converter'-    touchManagedPtr converter-    return result--#if ENABLE_OVERLOADING-data CharsetConverterGetNumFallbacksMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsCharsetConverter a) => O.MethodInfo CharsetConverterGetNumFallbacksMethodInfo a signature where-    overloadedMethod _ = charsetConverterGetNumFallbacks--#endif---- method CharsetConverter::get_use_fallback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "converter", argType = TInterface (Name {namespace = "Gio", name = "CharsetConverter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCharsetConverter", 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 "g_charset_converter_get_use_fallback" g_charset_converter_get_use_fallback :: -    Ptr CharsetConverter ->                 -- converter : TInterface (Name {namespace = "Gio", name = "CharsetConverter"})-    IO CInt--{- |-Gets the 'GI.Gio.Objects.CharsetConverter.CharsetConverter':@/use-fallback/@ property.--/Since: 2.24/--}-charsetConverterGetUseFallback ::-    (B.CallStack.HasCallStack, MonadIO m, IsCharsetConverter a) =>-    a-    {- ^ /@converter@/: a 'GI.Gio.Objects.CharsetConverter.CharsetConverter' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if fallbacks are used by /@converter@/ -}-charsetConverterGetUseFallback converter = liftIO $ do-    converter' <- unsafeManagedPtrCastPtr converter-    result <- g_charset_converter_get_use_fallback converter'-    let result' = (/= 0) result-    touchManagedPtr converter-    return result'--#if ENABLE_OVERLOADING-data CharsetConverterGetUseFallbackMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsCharsetConverter a) => O.MethodInfo CharsetConverterGetUseFallbackMethodInfo a signature where-    overloadedMethod _ = charsetConverterGetUseFallback--#endif---- method CharsetConverter::set_use_fallback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "converter", argType = TInterface (Name {namespace = "Gio", name = "CharsetConverter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GCharsetConverter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_fallback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to use fallbacks", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_charset_converter_set_use_fallback" g_charset_converter_set_use_fallback :: -    Ptr CharsetConverter ->                 -- converter : TInterface (Name {namespace = "Gio", name = "CharsetConverter"})-    CInt ->                                 -- use_fallback : TBasicType TBoolean-    IO ()--{- |-Sets the 'GI.Gio.Objects.CharsetConverter.CharsetConverter':@/use-fallback/@ property.--/Since: 2.24/--}-charsetConverterSetUseFallback ::-    (B.CallStack.HasCallStack, MonadIO m, IsCharsetConverter a) =>-    a-    {- ^ /@converter@/: a 'GI.Gio.Objects.CharsetConverter.CharsetConverter' -}-    -> Bool-    {- ^ /@useFallback@/: 'True' to use fallbacks -}-    -> m ()-charsetConverterSetUseFallback converter useFallback = liftIO $ do-    converter' <- unsafeManagedPtrCastPtr converter-    let useFallback' = (fromIntegral . fromEnum) useFallback-    g_charset_converter_set_use_fallback converter' useFallback'-    touchManagedPtr converter-    return ()--#if ENABLE_OVERLOADING-data CharsetConverterSetUseFallbackMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsCharsetConverter a) => O.MethodInfo CharsetConverterSetUseFallbackMethodInfo a signature where-    overloadedMethod _ = charsetConverterSetUseFallback--#endif--
− GI/Gio/Objects/CharsetConverter.hs-boot 
@@ -1,47 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.CharsetConverter 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 CharsetConverter = CharsetConverter (ManagedPtr CharsetConverter)-instance GObject CharsetConverter where-class (GObject o, O.IsDescendantOf CharsetConverter o) => IsCharsetConverter o-instance (GObject o, O.IsDescendantOf CharsetConverter o) => IsCharsetConverter o-instance O.HasParentTypes CharsetConverter-#if ENABLE_OVERLOADING-data CharsetConverterFromCharsetPropertyInfo-#endif-#if ENABLE_OVERLOADING-data CharsetConverterToCharsetPropertyInfo-#endif-#if ENABLE_OVERLOADING-data CharsetConverterUseFallbackPropertyInfo-#endif-#if ENABLE_OVERLOADING-data CharsetConverterGetNumFallbacksMethodInfo-#endif-#if ENABLE_OVERLOADING-data CharsetConverterGetUseFallbackMethodInfo-#endif-#if ENABLE_OVERLOADING-data CharsetConverterSetUseFallbackMethodInfo-#endif
− GI/Gio/Objects/ConverterInputStream.hs 
@@ -1,303 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Converter input stream implements 'GI.Gio.Objects.InputStream.InputStream' and allows-conversion of data of various types during reading.--As of GLib 2.34, 'GI.Gio.Objects.ConverterInputStream.ConverterInputStream' implements-'GI.Gio.Interfaces.PollableInputStream.PollableInputStream'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ConverterInputStream-    ( ---- * Exported types-    ConverterInputStream(..)                ,-    IsConverterInputStream                  ,-    toConverterInputStream                  ,-    noConverterInputStream                  ,--- -- * Methods--- ** getConverter #method:getConverter#--#if ENABLE_OVERLOADING-    ConverterInputStreamGetConverterMethodInfo,-#endif-    converterInputStreamGetConverter        ,----- ** new #method:new#--    converterInputStreamNew                 ,----- -- * Properties--- ** converter #attr:converter#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ConverterInputStreamConverterPropertyInfo,-#endif-    constructConverterInputStreamConverter  ,-#if ENABLE_OVERLOADING-    converterInputStreamConverter           ,-#endif-    getConverterInputStreamConverter        ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Converter as Gio.Converter-import {-# SOURCE #-} qualified GI.Gio.Interfaces.PollableInputStream as Gio.PollableInputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.FilterInputStream as Gio.FilterInputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype ConverterInputStream = ConverterInputStream (ManagedPtr ConverterInputStream)-foreign import ccall "g_converter_input_stream_get_type"-    c_g_converter_input_stream_get_type :: IO GType--instance GObject ConverterInputStream where-    gobjectType = c_g_converter_input_stream_get_type-    ---- | Type class for types which can be safely cast to `ConverterInputStream`, for instance with `toConverterInputStream`.-class (GObject o, O.IsDescendantOf ConverterInputStream o) => IsConverterInputStream o-instance (GObject o, O.IsDescendantOf ConverterInputStream o) => IsConverterInputStream o--instance O.HasParentTypes ConverterInputStream-type instance O.ParentTypes ConverterInputStream = '[Gio.FilterInputStream.FilterInputStream, Gio.InputStream.InputStream, GObject.Object.Object, Gio.PollableInputStream.PollableInputStream]---- | Cast to `ConverterInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toConverterInputStream :: (MonadIO m, IsConverterInputStream o) => o -> m ConverterInputStream-toConverterInputStream = liftIO . unsafeCastTo ConverterInputStream---- | A convenience alias for `Nothing` :: `Maybe` `ConverterInputStream`.-noConverterInputStream :: Maybe ConverterInputStream-noConverterInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveConverterInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveConverterInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveConverterInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveConverterInputStreamMethod "canPoll" o = Gio.PollableInputStream.PollableInputStreamCanPollMethodInfo-    ResolveConverterInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolveConverterInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolveConverterInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolveConverterInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolveConverterInputStreamMethod "createSource" o = Gio.PollableInputStream.PollableInputStreamCreateSourceMethodInfo-    ResolveConverterInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveConverterInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveConverterInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveConverterInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolveConverterInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolveConverterInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveConverterInputStreamMethod "isReadable" o = Gio.PollableInputStream.PollableInputStreamIsReadableMethodInfo-    ResolveConverterInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveConverterInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveConverterInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolveConverterInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolveConverterInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolveConverterInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolveConverterInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolveConverterInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolveConverterInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolveConverterInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolveConverterInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolveConverterInputStreamMethod "readNonblocking" o = Gio.PollableInputStream.PollableInputStreamReadNonblockingMethodInfo-    ResolveConverterInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveConverterInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveConverterInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveConverterInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolveConverterInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolveConverterInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolveConverterInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveConverterInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveConverterInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveConverterInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveConverterInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveConverterInputStreamMethod "getBaseStream" o = Gio.FilterInputStream.FilterInputStreamGetBaseStreamMethodInfo-    ResolveConverterInputStreamMethod "getCloseBaseStream" o = Gio.FilterInputStream.FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveConverterInputStreamMethod "getConverter" o = ConverterInputStreamGetConverterMethodInfo-    ResolveConverterInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveConverterInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveConverterInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveConverterInputStreamMethod "setCloseBaseStream" o = Gio.FilterInputStream.FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveConverterInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveConverterInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolveConverterInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveConverterInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveConverterInputStreamMethod t ConverterInputStream, O.MethodInfo info ConverterInputStream p) => OL.IsLabel t (ConverterInputStream -> 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---- VVV Prop "converter"-   -- Type: TInterface (Name {namespace = "Gio", name = "Converter"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@converter@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' converterInputStream #converter-@--}-getConverterInputStreamConverter :: (MonadIO m, IsConverterInputStream o) => o -> m Gio.Converter.Converter-getConverterInputStreamConverter obj = liftIO $ checkUnexpectedNothing "getConverterInputStreamConverter" $ B.Properties.getObjectPropertyObject obj "converter" Gio.Converter.Converter--{- |-Construct a `GValueConstruct` with valid value for the “@converter@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructConverterInputStreamConverter :: (IsConverterInputStream o, Gio.Converter.IsConverter a) => a -> IO (GValueConstruct o)-constructConverterInputStreamConverter val = B.Properties.constructObjectPropertyObject "converter" (Just val)--#if ENABLE_OVERLOADING-data ConverterInputStreamConverterPropertyInfo-instance AttrInfo ConverterInputStreamConverterPropertyInfo where-    type AttrAllowedOps ConverterInputStreamConverterPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ConverterInputStreamConverterPropertyInfo = Gio.Converter.IsConverter-    type AttrBaseTypeConstraint ConverterInputStreamConverterPropertyInfo = IsConverterInputStream-    type AttrGetType ConverterInputStreamConverterPropertyInfo = Gio.Converter.Converter-    type AttrLabel ConverterInputStreamConverterPropertyInfo = "converter"-    type AttrOrigin ConverterInputStreamConverterPropertyInfo = ConverterInputStream-    attrGet _ = getConverterInputStreamConverter-    attrSet _ = undefined-    attrConstruct _ = constructConverterInputStreamConverter-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ConverterInputStream-type instance O.AttributeList ConverterInputStream = ConverterInputStreamAttributeList-type ConverterInputStreamAttributeList = ('[ '("baseStream", Gio.FilterInputStream.FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", Gio.FilterInputStream.FilterInputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterInputStreamConverterPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-converterInputStreamConverter :: AttrLabelProxy "converter"-converterInputStreamConverter = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ConverterInputStream = ConverterInputStreamSignalList-type ConverterInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ConverterInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "converter", argType = TInterface (Name {namespace = "Gio", name = "Converter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GConverter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ConverterInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_converter_input_stream_new" g_converter_input_stream_new :: -    Ptr Gio.InputStream.InputStream ->      -- base_stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Gio.Converter.Converter ->          -- converter : TInterface (Name {namespace = "Gio", name = "Converter"})-    IO (Ptr ConverterInputStream)--{- |-Creates a new converter input stream for the /@baseStream@/.--}-converterInputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a, Gio.Converter.IsConverter b) =>-    a-    {- ^ /@baseStream@/: a 'GI.Gio.Objects.InputStream.InputStream' -}-    -> b-    {- ^ /@converter@/: a 'GI.Gio.Interfaces.Converter.Converter' -}-    -> m ConverterInputStream-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InputStream.InputStream'. -}-converterInputStreamNew baseStream converter = liftIO $ do-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    converter' <- unsafeManagedPtrCastPtr converter-    result <- g_converter_input_stream_new baseStream' converter'-    checkUnexpectedReturnNULL "converterInputStreamNew" result-    result' <- (wrapObject ConverterInputStream) result-    touchManagedPtr baseStream-    touchManagedPtr converter-    return result'--#if ENABLE_OVERLOADING-#endif---- method ConverterInputStream::get_converter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "converter_stream", argType = TInterface (Name {namespace = "Gio", name = "ConverterInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GConverterInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Converter"}))--- throws : False--- Skip return : False--foreign import ccall "g_converter_input_stream_get_converter" g_converter_input_stream_get_converter :: -    Ptr ConverterInputStream ->             -- converter_stream : TInterface (Name {namespace = "Gio", name = "ConverterInputStream"})-    IO (Ptr Gio.Converter.Converter)--{- |-Gets the 'GI.Gio.Interfaces.Converter.Converter' that is used by /@converterStream@/.--/Since: 2.24/--}-converterInputStreamGetConverter ::-    (B.CallStack.HasCallStack, MonadIO m, IsConverterInputStream a) =>-    a-    {- ^ /@converterStream@/: a 'GI.Gio.Objects.ConverterInputStream.ConverterInputStream' -}-    -> m Gio.Converter.Converter-    {- ^ __Returns:__ the converter of the converter input stream -}-converterInputStreamGetConverter converterStream = liftIO $ do-    converterStream' <- unsafeManagedPtrCastPtr converterStream-    result <- g_converter_input_stream_get_converter converterStream'-    checkUnexpectedReturnNULL "converterInputStreamGetConverter" result-    result' <- (newObject Gio.Converter.Converter) result-    touchManagedPtr converterStream-    return result'--#if ENABLE_OVERLOADING-data ConverterInputStreamGetConverterMethodInfo-instance (signature ~ (m Gio.Converter.Converter), MonadIO m, IsConverterInputStream a) => O.MethodInfo ConverterInputStreamGetConverterMethodInfo a signature where-    overloadedMethod _ = converterInputStreamGetConverter--#endif--
− GI/Gio/Objects/ConverterInputStream.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ConverterInputStream 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 ConverterInputStream = ConverterInputStream (ManagedPtr ConverterInputStream)-instance GObject ConverterInputStream where-class (GObject o, O.IsDescendantOf ConverterInputStream o) => IsConverterInputStream o-instance (GObject o, O.IsDescendantOf ConverterInputStream o) => IsConverterInputStream o-instance O.HasParentTypes ConverterInputStream-#if ENABLE_OVERLOADING-data ConverterInputStreamConverterPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ConverterInputStreamGetConverterMethodInfo-#endif
− GI/Gio/Objects/ConverterOutputStream.hs 
@@ -1,314 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Converter output stream implements 'GI.Gio.Objects.OutputStream.OutputStream' and allows-conversion of data of various types during reading.--As of GLib 2.34, 'GI.Gio.Objects.ConverterOutputStream.ConverterOutputStream' implements-'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ConverterOutputStream-    ( ---- * Exported types-    ConverterOutputStream(..)               ,-    IsConverterOutputStream                 ,-    toConverterOutputStream                 ,-    noConverterOutputStream                 ,--- -- * Methods--- ** getConverter #method:getConverter#--#if ENABLE_OVERLOADING-    ConverterOutputStreamGetConverterMethodInfo,-#endif-    converterOutputStreamGetConverter       ,----- ** new #method:new#--    converterOutputStreamNew                ,----- -- * Properties--- ** converter #attr:converter#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ConverterOutputStreamConverterPropertyInfo,-#endif-    constructConverterOutputStreamConverter ,-#if ENABLE_OVERLOADING-    converterOutputStreamConverter          ,-#endif-    getConverterOutputStreamConverter       ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Converter as Gio.Converter-import {-# SOURCE #-} qualified GI.Gio.Interfaces.PollableOutputStream as Gio.PollableOutputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.FilterOutputStream as Gio.FilterOutputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype ConverterOutputStream = ConverterOutputStream (ManagedPtr ConverterOutputStream)-foreign import ccall "g_converter_output_stream_get_type"-    c_g_converter_output_stream_get_type :: IO GType--instance GObject ConverterOutputStream where-    gobjectType = c_g_converter_output_stream_get_type-    ---- | Type class for types which can be safely cast to `ConverterOutputStream`, for instance with `toConverterOutputStream`.-class (GObject o, O.IsDescendantOf ConverterOutputStream o) => IsConverterOutputStream o-instance (GObject o, O.IsDescendantOf ConverterOutputStream o) => IsConverterOutputStream o--instance O.HasParentTypes ConverterOutputStream-type instance O.ParentTypes ConverterOutputStream = '[Gio.FilterOutputStream.FilterOutputStream, Gio.OutputStream.OutputStream, GObject.Object.Object, Gio.PollableOutputStream.PollableOutputStream]---- | Cast to `ConverterOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toConverterOutputStream :: (MonadIO m, IsConverterOutputStream o) => o -> m ConverterOutputStream-toConverterOutputStream = liftIO . unsafeCastTo ConverterOutputStream---- | A convenience alias for `Nothing` :: `Maybe` `ConverterOutputStream`.-noConverterOutputStream :: Maybe ConverterOutputStream-noConverterOutputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveConverterOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveConverterOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveConverterOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveConverterOutputStreamMethod "canPoll" o = Gio.PollableOutputStream.PollableOutputStreamCanPollMethodInfo-    ResolveConverterOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo-    ResolveConverterOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo-    ResolveConverterOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo-    ResolveConverterOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo-    ResolveConverterOutputStreamMethod "createSource" o = Gio.PollableOutputStream.PollableOutputStreamCreateSourceMethodInfo-    ResolveConverterOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo-    ResolveConverterOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo-    ResolveConverterOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo-    ResolveConverterOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveConverterOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveConverterOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveConverterOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo-    ResolveConverterOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo-    ResolveConverterOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo-    ResolveConverterOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveConverterOutputStreamMethod "isWritable" o = Gio.PollableOutputStream.PollableOutputStreamIsWritableMethodInfo-    ResolveConverterOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveConverterOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveConverterOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveConverterOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveConverterOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveConverterOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo-    ResolveConverterOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo-    ResolveConverterOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo-    ResolveConverterOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveConverterOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveConverterOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveConverterOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveConverterOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveConverterOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo-    ResolveConverterOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo-    ResolveConverterOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo-    ResolveConverterOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo-    ResolveConverterOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo-    ResolveConverterOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo-    ResolveConverterOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo-    ResolveConverterOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo-    ResolveConverterOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo-    ResolveConverterOutputStreamMethod "writeNonblocking" o = Gio.PollableOutputStream.PollableOutputStreamWriteNonblockingMethodInfo-    ResolveConverterOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo-    ResolveConverterOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo-    ResolveConverterOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo-    ResolveConverterOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo-    ResolveConverterOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo-    ResolveConverterOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo-    ResolveConverterOutputStreamMethod "writevNonblocking" o = Gio.PollableOutputStream.PollableOutputStreamWritevNonblockingMethodInfo-    ResolveConverterOutputStreamMethod "getBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamGetBaseStreamMethodInfo-    ResolveConverterOutputStreamMethod "getCloseBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamGetCloseBaseStreamMethodInfo-    ResolveConverterOutputStreamMethod "getConverter" o = ConverterOutputStreamGetConverterMethodInfo-    ResolveConverterOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveConverterOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveConverterOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveConverterOutputStreamMethod "setCloseBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamSetCloseBaseStreamMethodInfo-    ResolveConverterOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveConverterOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo-    ResolveConverterOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveConverterOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveConverterOutputStreamMethod t ConverterOutputStream, O.MethodInfo info ConverterOutputStream p) => OL.IsLabel t (ConverterOutputStream -> 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---- VVV Prop "converter"-   -- Type: TInterface (Name {namespace = "Gio", name = "Converter"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@converter@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' converterOutputStream #converter-@--}-getConverterOutputStreamConverter :: (MonadIO m, IsConverterOutputStream o) => o -> m Gio.Converter.Converter-getConverterOutputStreamConverter obj = liftIO $ checkUnexpectedNothing "getConverterOutputStreamConverter" $ B.Properties.getObjectPropertyObject obj "converter" Gio.Converter.Converter--{- |-Construct a `GValueConstruct` with valid value for the “@converter@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructConverterOutputStreamConverter :: (IsConverterOutputStream o, Gio.Converter.IsConverter a) => a -> IO (GValueConstruct o)-constructConverterOutputStreamConverter val = B.Properties.constructObjectPropertyObject "converter" (Just val)--#if ENABLE_OVERLOADING-data ConverterOutputStreamConverterPropertyInfo-instance AttrInfo ConverterOutputStreamConverterPropertyInfo where-    type AttrAllowedOps ConverterOutputStreamConverterPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ConverterOutputStreamConverterPropertyInfo = Gio.Converter.IsConverter-    type AttrBaseTypeConstraint ConverterOutputStreamConverterPropertyInfo = IsConverterOutputStream-    type AttrGetType ConverterOutputStreamConverterPropertyInfo = Gio.Converter.Converter-    type AttrLabel ConverterOutputStreamConverterPropertyInfo = "converter"-    type AttrOrigin ConverterOutputStreamConverterPropertyInfo = ConverterOutputStream-    attrGet _ = getConverterOutputStreamConverter-    attrSet _ = undefined-    attrConstruct _ = constructConverterOutputStreamConverter-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ConverterOutputStream-type instance O.AttributeList ConverterOutputStream = ConverterOutputStreamAttributeList-type ConverterOutputStreamAttributeList = ('[ '("baseStream", Gio.FilterOutputStream.FilterOutputStreamBaseStreamPropertyInfo), '("closeBaseStream", Gio.FilterOutputStream.FilterOutputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterOutputStreamConverterPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-converterOutputStreamConverter :: AttrLabelProxy "converter"-converterOutputStreamConverter = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ConverterOutputStream = ConverterOutputStreamSignalList-type ConverterOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ConverterOutputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "converter", argType = TInterface (Name {namespace = "Gio", name = "Converter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GConverter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ConverterOutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_converter_output_stream_new" g_converter_output_stream_new :: -    Ptr Gio.OutputStream.OutputStream ->    -- base_stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.Converter.Converter ->          -- converter : TInterface (Name {namespace = "Gio", name = "Converter"})-    IO (Ptr ConverterOutputStream)--{- |-Creates a new converter output stream for the /@baseStream@/.--}-converterOutputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.OutputStream.IsOutputStream a, Gio.Converter.IsConverter b) =>-    a-    {- ^ /@baseStream@/: a 'GI.Gio.Objects.OutputStream.OutputStream' -}-    -> b-    {- ^ /@converter@/: a 'GI.Gio.Interfaces.Converter.Converter' -}-    -> m ConverterOutputStream-    {- ^ __Returns:__ a new 'GI.Gio.Objects.OutputStream.OutputStream'. -}-converterOutputStreamNew baseStream converter = liftIO $ do-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    converter' <- unsafeManagedPtrCastPtr converter-    result <- g_converter_output_stream_new baseStream' converter'-    checkUnexpectedReturnNULL "converterOutputStreamNew" result-    result' <- (wrapObject ConverterOutputStream) result-    touchManagedPtr baseStream-    touchManagedPtr converter-    return result'--#if ENABLE_OVERLOADING-#endif---- method ConverterOutputStream::get_converter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "converter_stream", argType = TInterface (Name {namespace = "Gio", name = "ConverterOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GConverterOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Converter"}))--- throws : False--- Skip return : False--foreign import ccall "g_converter_output_stream_get_converter" g_converter_output_stream_get_converter :: -    Ptr ConverterOutputStream ->            -- converter_stream : TInterface (Name {namespace = "Gio", name = "ConverterOutputStream"})-    IO (Ptr Gio.Converter.Converter)--{- |-Gets the 'GI.Gio.Interfaces.Converter.Converter' that is used by /@converterStream@/.--/Since: 2.24/--}-converterOutputStreamGetConverter ::-    (B.CallStack.HasCallStack, MonadIO m, IsConverterOutputStream a) =>-    a-    {- ^ /@converterStream@/: a 'GI.Gio.Objects.ConverterOutputStream.ConverterOutputStream' -}-    -> m Gio.Converter.Converter-    {- ^ __Returns:__ the converter of the converter output stream -}-converterOutputStreamGetConverter converterStream = liftIO $ do-    converterStream' <- unsafeManagedPtrCastPtr converterStream-    result <- g_converter_output_stream_get_converter converterStream'-    checkUnexpectedReturnNULL "converterOutputStreamGetConverter" result-    result' <- (newObject Gio.Converter.Converter) result-    touchManagedPtr converterStream-    return result'--#if ENABLE_OVERLOADING-data ConverterOutputStreamGetConverterMethodInfo-instance (signature ~ (m Gio.Converter.Converter), MonadIO m, IsConverterOutputStream a) => O.MethodInfo ConverterOutputStreamGetConverterMethodInfo a signature where-    overloadedMethod _ = converterOutputStreamGetConverter--#endif--
− GI/Gio/Objects/ConverterOutputStream.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ConverterOutputStream 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 ConverterOutputStream = ConverterOutputStream (ManagedPtr ConverterOutputStream)-instance GObject ConverterOutputStream where-class (GObject o, O.IsDescendantOf ConverterOutputStream o) => IsConverterOutputStream o-instance (GObject o, O.IsDescendantOf ConverterOutputStream o) => IsConverterOutputStream o-instance O.HasParentTypes ConverterOutputStream-#if ENABLE_OVERLOADING-data ConverterOutputStreamConverterPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ConverterOutputStreamGetConverterMethodInfo-#endif
− GI/Gio/Objects/Credentials.hs 
@@ -1,524 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Objects.Credentials.Credentials' type is a reference-counted wrapper for native-credentials. This information is typically used for identifying,-authenticating and authorizing other processes.--Some operating systems supports looking up the credentials of the-remote peer of a communication endpoint - see e.g.-'GI.Gio.Objects.Socket.socketGetCredentials'.--Some operating systems supports securely sending and receiving-credentials over a Unix Domain Socket, see-'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage', 'GI.Gio.Objects.UnixConnection.unixConnectionSendCredentials' and-'GI.Gio.Objects.UnixConnection.unixConnectionReceiveCredentials' for details.--On Linux, the native credential type is a struct ucred - see the-unix(7) man page for details. This corresponds to-'GI.Gio.Enums.CredentialsTypeLinuxUcred'.--On FreeBSD, Debian GNU\/kFreeBSD, and GNU\/Hurd, the native-credential type is a struct cmsgcred. This corresponds-to 'GI.Gio.Enums.CredentialsTypeFreebsdCmsgcred'.--On NetBSD, the native credential type is a struct unpcbid.-This corresponds to 'GI.Gio.Enums.CredentialsTypeNetbsdUnpcbid'.--On OpenBSD, the native credential type is a struct sockpeercred.-This corresponds to 'GI.Gio.Enums.CredentialsTypeOpenbsdSockpeercred'.--On Solaris (including OpenSolaris and its derivatives), the native-credential type is a ucred_t. This corresponds to-'GI.Gio.Enums.CredentialsTypeSolarisUcred'.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Credentials-    ( ---- * Exported types-    Credentials(..)                         ,-    IsCredentials                           ,-    toCredentials                           ,-    noCredentials                           ,--- -- * Methods--- ** getUnixPid #method:getUnixPid#--#if ENABLE_OVERLOADING-    CredentialsGetUnixPidMethodInfo         ,-#endif-    credentialsGetUnixPid                   ,----- ** getUnixUser #method:getUnixUser#--#if ENABLE_OVERLOADING-    CredentialsGetUnixUserMethodInfo        ,-#endif-    credentialsGetUnixUser                  ,----- ** isSameUser #method:isSameUser#--#if ENABLE_OVERLOADING-    CredentialsIsSameUserMethodInfo         ,-#endif-    credentialsIsSameUser                   ,----- ** new #method:new#--    credentialsNew                          ,----- ** setNative #method:setNative#--#if ENABLE_OVERLOADING-    CredentialsSetNativeMethodInfo          ,-#endif-    credentialsSetNative                    ,----- ** setUnixUser #method:setUnixUser#--#if ENABLE_OVERLOADING-    CredentialsSetUnixUserMethodInfo        ,-#endif-    credentialsSetUnixUser                  ,----- ** toString #method:toString#--#if ENABLE_OVERLOADING-    CredentialsToStringMethodInfo           ,-#endif-    credentialsToString                     ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums---- | Memory-managed wrapper type.-newtype Credentials = Credentials (ManagedPtr Credentials)-foreign import ccall "g_credentials_get_type"-    c_g_credentials_get_type :: IO GType--instance GObject Credentials where-    gobjectType = c_g_credentials_get_type-    ---- | Type class for types which can be safely cast to `Credentials`, for instance with `toCredentials`.-class (GObject o, O.IsDescendantOf Credentials o) => IsCredentials o-instance (GObject o, O.IsDescendantOf Credentials o) => IsCredentials o--instance O.HasParentTypes Credentials-type instance O.ParentTypes Credentials = '[GObject.Object.Object]---- | Cast to `Credentials`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toCredentials :: (MonadIO m, IsCredentials o) => o -> m Credentials-toCredentials = liftIO . unsafeCastTo Credentials---- | A convenience alias for `Nothing` :: `Maybe` `Credentials`.-noCredentials :: Maybe Credentials-noCredentials = Nothing--#if ENABLE_OVERLOADING-type family ResolveCredentialsMethod (t :: Symbol) (o :: *) :: * where-    ResolveCredentialsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveCredentialsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveCredentialsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveCredentialsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveCredentialsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveCredentialsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveCredentialsMethod "isSameUser" o = CredentialsIsSameUserMethodInfo-    ResolveCredentialsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveCredentialsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveCredentialsMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveCredentialsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveCredentialsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveCredentialsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveCredentialsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveCredentialsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveCredentialsMethod "toString" o = CredentialsToStringMethodInfo-    ResolveCredentialsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveCredentialsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveCredentialsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveCredentialsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveCredentialsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveCredentialsMethod "getUnixPid" o = CredentialsGetUnixPidMethodInfo-    ResolveCredentialsMethod "getUnixUser" o = CredentialsGetUnixUserMethodInfo-    ResolveCredentialsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveCredentialsMethod "setNative" o = CredentialsSetNativeMethodInfo-    ResolveCredentialsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveCredentialsMethod "setUnixUser" o = CredentialsSetUnixUserMethodInfo-    ResolveCredentialsMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveCredentialsMethod t Credentials, O.MethodInfo info Credentials p) => OL.IsLabel t (Credentials -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList Credentials-type instance O.AttributeList Credentials = CredentialsAttributeList-type CredentialsAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Credentials = CredentialsSignalList-type CredentialsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Credentials::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Credentials"}))--- throws : False--- Skip return : False--foreign import ccall "g_credentials_new" g_credentials_new :: -    IO (Ptr Credentials)--{- |-Creates a new 'GI.Gio.Objects.Credentials.Credentials' object with credentials matching the-the current process.--/Since: 2.26/--}-credentialsNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Credentials-    {- ^ __Returns:__ A 'GI.Gio.Objects.Credentials.Credentials'. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-credentialsNew  = liftIO $ do-    result <- g_credentials_new-    checkUnexpectedReturnNULL "credentialsNew" result-    result' <- (wrapObject Credentials) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Credentials::get_unix_pid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCredentials", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_credentials_get_unix_pid" g_credentials_get_unix_pid :: -    Ptr Credentials ->                      -- credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Tries to get the UNIX process identifier from /@credentials@/. This-method is only available on UNIX platforms.--This operation can fail if 'GI.Gio.Objects.Credentials.Credentials' is not supported on the-OS or if the native credentials type does not contain information-about the UNIX process ID.--/Since: 2.36/--}-credentialsGetUnixPid ::-    (B.CallStack.HasCallStack, MonadIO m, IsCredentials a) =>-    a-    {- ^ /@credentials@/: A 'GI.Gio.Objects.Credentials.Credentials' -}-    -> m Int32-    {- ^ __Returns:__ The UNIX process ID, or -1 if /@error@/ is set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-credentialsGetUnixPid credentials = liftIO $ do-    credentials' <- unsafeManagedPtrCastPtr credentials-    onException (do-        result <- propagateGError $ g_credentials_get_unix_pid credentials'-        touchManagedPtr credentials-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data CredentialsGetUnixPidMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsCredentials a) => O.MethodInfo CredentialsGetUnixPidMethodInfo a signature where-    overloadedMethod _ = credentialsGetUnixPid--#endif---- method Credentials::get_unix_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCredentials", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : True--- Skip return : False--foreign import ccall "g_credentials_get_unix_user" g_credentials_get_unix_user :: -    Ptr Credentials ->                      -- credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    Ptr (Ptr GError) ->                     -- error-    IO Word32--{- |-Tries to get the UNIX user identifier from /@credentials@/. This-method is only available on UNIX platforms.--This operation can fail if 'GI.Gio.Objects.Credentials.Credentials' is not supported on the-OS or if the native credentials type does not contain information-about the UNIX user.--/Since: 2.26/--}-credentialsGetUnixUser ::-    (B.CallStack.HasCallStack, MonadIO m, IsCredentials a) =>-    a-    {- ^ /@credentials@/: A 'GI.Gio.Objects.Credentials.Credentials' -}-    -> m Word32-    {- ^ __Returns:__ The UNIX user identifier or -1 if /@error@/ is set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-credentialsGetUnixUser credentials = liftIO $ do-    credentials' <- unsafeManagedPtrCastPtr credentials-    onException (do-        result <- propagateGError $ g_credentials_get_unix_user credentials'-        touchManagedPtr credentials-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data CredentialsGetUnixUserMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsCredentials a) => O.MethodInfo CredentialsGetUnixUserMethodInfo a signature where-    overloadedMethod _ = credentialsGetUnixUser--#endif---- method Credentials::is_same_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCredentials.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCredentials.", 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 "g_credentials_is_same_user" g_credentials_is_same_user :: -    Ptr Credentials ->                      -- credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    Ptr Credentials ->                      -- other_credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Checks if /@credentials@/ and /@otherCredentials@/ is the same user.--This operation can fail if 'GI.Gio.Objects.Credentials.Credentials' is not supported on the-the OS.--/Since: 2.26/--}-credentialsIsSameUser ::-    (B.CallStack.HasCallStack, MonadIO m, IsCredentials a, IsCredentials b) =>-    a-    {- ^ /@credentials@/: A 'GI.Gio.Objects.Credentials.Credentials'. -}-    -> b-    {- ^ /@otherCredentials@/: A 'GI.Gio.Objects.Credentials.Credentials'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-credentialsIsSameUser credentials otherCredentials = liftIO $ do-    credentials' <- unsafeManagedPtrCastPtr credentials-    otherCredentials' <- unsafeManagedPtrCastPtr otherCredentials-    onException (do-        _ <- propagateGError $ g_credentials_is_same_user credentials' otherCredentials'-        touchManagedPtr credentials-        touchManagedPtr otherCredentials-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data CredentialsIsSameUserMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsCredentials a, IsCredentials b) => O.MethodInfo CredentialsIsSameUserMethodInfo a signature where-    overloadedMethod _ = credentialsIsSameUser--#endif---- method Credentials::set_native--- method type : OrdinaryMethod--- Args : [Arg {argCName = "credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCredentials.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "native_type", argType = TInterface (Name {namespace = "Gio", name = "CredentialsType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The type of native credentials to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "native", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A pointer to native credentials.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_credentials_set_native" g_credentials_set_native :: -    Ptr Credentials ->                      -- credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    CUInt ->                                -- native_type : TInterface (Name {namespace = "Gio", name = "CredentialsType"})-    Ptr () ->                               -- native : TBasicType TPtr-    IO ()--{- |-Copies the native credentials of type /@nativeType@/ from /@native@/-into /@credentials@/.--It is a programming error (which will cause an warning to be-logged) to use this method if there is no 'GI.Gio.Objects.Credentials.Credentials' support for-the OS or if /@nativeType@/ isn\'t supported by the OS.--/Since: 2.26/--}-credentialsSetNative ::-    (B.CallStack.HasCallStack, MonadIO m, IsCredentials a) =>-    a-    {- ^ /@credentials@/: A 'GI.Gio.Objects.Credentials.Credentials'. -}-    -> Gio.Enums.CredentialsType-    {- ^ /@nativeType@/: The type of native credentials to set. -}-    -> Ptr ()-    {- ^ /@native@/: A pointer to native credentials. -}-    -> m ()-credentialsSetNative credentials nativeType native = liftIO $ do-    credentials' <- unsafeManagedPtrCastPtr credentials-    let nativeType' = (fromIntegral . fromEnum) nativeType-    g_credentials_set_native credentials' nativeType' native-    touchManagedPtr credentials-    return ()--#if ENABLE_OVERLOADING-data CredentialsSetNativeMethodInfo-instance (signature ~ (Gio.Enums.CredentialsType -> Ptr () -> m ()), MonadIO m, IsCredentials a) => O.MethodInfo CredentialsSetNativeMethodInfo a signature where-    overloadedMethod _ = credentialsSetNative--#endif---- method Credentials::set_unix_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCredentials.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uid", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The UNIX user identifier to set.", 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 "g_credentials_set_unix_user" g_credentials_set_unix_user :: -    Ptr Credentials ->                      -- credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    Word32 ->                               -- uid : TBasicType TUInt-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Tries to set the UNIX user identifier on /@credentials@/. This method-is only available on UNIX platforms.--This operation can fail if 'GI.Gio.Objects.Credentials.Credentials' is not supported on the-OS or if the native credentials type does not contain information-about the UNIX user. It can also fail if the OS does not allow the-use of \"spoofed\" credentials.--/Since: 2.26/--}-credentialsSetUnixUser ::-    (B.CallStack.HasCallStack, MonadIO m, IsCredentials a) =>-    a-    {- ^ /@credentials@/: A 'GI.Gio.Objects.Credentials.Credentials'. -}-    -> Word32-    {- ^ /@uid@/: The UNIX user identifier to set. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-credentialsSetUnixUser credentials uid = liftIO $ do-    credentials' <- unsafeManagedPtrCastPtr credentials-    onException (do-        _ <- propagateGError $ g_credentials_set_unix_user credentials' uid-        touchManagedPtr credentials-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data CredentialsSetUnixUserMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsCredentials a) => O.MethodInfo CredentialsSetUnixUserMethodInfo a signature where-    overloadedMethod _ = credentialsSetUnixUser--#endif---- method Credentials::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCredentials 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 "g_credentials_to_string" g_credentials_to_string :: -    Ptr Credentials ->                      -- credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    IO CString--{- |-Creates a human-readable textual representation of /@credentials@/-that can be used in logging and debug messages. The format of the-returned string may change in future GLib release.--/Since: 2.26/--}-credentialsToString ::-    (B.CallStack.HasCallStack, MonadIO m, IsCredentials a) =>-    a-    {- ^ /@credentials@/: A 'GI.Gio.Objects.Credentials.Credentials' object. -}-    -> m T.Text-    {- ^ __Returns:__ A string that should be freed with 'GI.GLib.Functions.free'. -}-credentialsToString credentials = liftIO $ do-    credentials' <- unsafeManagedPtrCastPtr credentials-    result <- g_credentials_to_string credentials'-    checkUnexpectedReturnNULL "credentialsToString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr credentials-    return result'--#if ENABLE_OVERLOADING-data CredentialsToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsCredentials a) => O.MethodInfo CredentialsToStringMethodInfo a signature where-    overloadedMethod _ = credentialsToString--#endif--
− GI/Gio/Objects/Credentials.hs-boot 
@@ -1,47 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Credentials 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 Credentials = Credentials (ManagedPtr Credentials)-instance GObject Credentials where-class (GObject o, O.IsDescendantOf Credentials o) => IsCredentials o-instance (GObject o, O.IsDescendantOf Credentials o) => IsCredentials o-instance O.HasParentTypes Credentials-#if ENABLE_OVERLOADING-data CredentialsGetUnixPidMethodInfo-#endif-#if ENABLE_OVERLOADING-data CredentialsGetUnixUserMethodInfo-#endif-#if ENABLE_OVERLOADING-data CredentialsIsSameUserMethodInfo-#endif-#if ENABLE_OVERLOADING-data CredentialsSetNativeMethodInfo-#endif-#if ENABLE_OVERLOADING-data CredentialsSetUnixUserMethodInfo-#endif-#if ENABLE_OVERLOADING-data CredentialsToStringMethodInfo-#endif
− GI/Gio/Objects/DBusActionGroup.hs 
@@ -1,211 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.DBusActionGroup.DBusActionGroup' is an implementation of the 'GI.Gio.Interfaces.ActionGroup.ActionGroup'-interface that can be used as a proxy for an action group-that is exported over D-Bus with 'GI.Gio.Objects.DBusConnection.dBusConnectionExportActionGroup'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusActionGroup-    ( ---- * Exported types-    DBusActionGroup(..)                     ,-    IsDBusActionGroup                       ,-    toDBusActionGroup                       ,-    noDBusActionGroup                       ,--- -- * Methods--- ** get #method:get#--    dBusActionGroupGet                      ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup-import {-# SOURCE #-} qualified GI.Gio.Interfaces.RemoteActionGroup as Gio.RemoteActionGroup-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection---- | Memory-managed wrapper type.-newtype DBusActionGroup = DBusActionGroup (ManagedPtr DBusActionGroup)-foreign import ccall "g_dbus_action_group_get_type"-    c_g_dbus_action_group_get_type :: IO GType--instance GObject DBusActionGroup where-    gobjectType = c_g_dbus_action_group_get_type-    ---- | Type class for types which can be safely cast to `DBusActionGroup`, for instance with `toDBusActionGroup`.-class (GObject o, O.IsDescendantOf DBusActionGroup o) => IsDBusActionGroup o-instance (GObject o, O.IsDescendantOf DBusActionGroup o) => IsDBusActionGroup o--instance O.HasParentTypes DBusActionGroup-type instance O.ParentTypes DBusActionGroup = '[GObject.Object.Object, Gio.ActionGroup.ActionGroup, Gio.RemoteActionGroup.RemoteActionGroup]---- | Cast to `DBusActionGroup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusActionGroup :: (MonadIO m, IsDBusActionGroup o) => o -> m DBusActionGroup-toDBusActionGroup = liftIO . unsafeCastTo DBusActionGroup---- | A convenience alias for `Nothing` :: `Maybe` `DBusActionGroup`.-noDBusActionGroup :: Maybe DBusActionGroup-noDBusActionGroup = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusActionGroupMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusActionGroupMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo-    ResolveDBusActionGroupMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo-    ResolveDBusActionGroupMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo-    ResolveDBusActionGroupMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo-    ResolveDBusActionGroupMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo-    ResolveDBusActionGroupMethod "activateActionFull" o = Gio.RemoteActionGroup.RemoteActionGroupActivateActionFullMethodInfo-    ResolveDBusActionGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusActionGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusActionGroupMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo-    ResolveDBusActionGroupMethod "changeActionStateFull" o = Gio.RemoteActionGroup.RemoteActionGroupChangeActionStateFullMethodInfo-    ResolveDBusActionGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusActionGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusActionGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusActionGroupMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo-    ResolveDBusActionGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusActionGroupMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo-    ResolveDBusActionGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusActionGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusActionGroupMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo-    ResolveDBusActionGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusActionGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusActionGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusActionGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusActionGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusActionGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusActionGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusActionGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusActionGroupMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo-    ResolveDBusActionGroupMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo-    ResolveDBusActionGroupMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo-    ResolveDBusActionGroupMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo-    ResolveDBusActionGroupMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo-    ResolveDBusActionGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusActionGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusActionGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusActionGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusActionGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusActionGroupMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusActionGroupMethod t DBusActionGroup, O.MethodInfo info DBusActionGroup p) => OL.IsLabel t (DBusActionGroup -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusActionGroup-type instance O.AttributeList DBusActionGroup = DBusActionGroupAttributeList-type DBusActionGroupAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DBusActionGroup = DBusActionGroupSignalList-type DBusActionGroupSignalList = ('[ '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusActionGroup::get--- method type : MemberFunction--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the bus name which exports the action\n    group or %NULL if @connection is not a message bus connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the object path at which the action group is exported", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusActionGroup"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_action_group_get" g_dbus_action_group_get :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusActionGroup)--{- |-Obtains a 'GI.Gio.Objects.DBusActionGroup.DBusActionGroup' for the action group which is exported at-the given /@busName@/ and /@objectPath@/.--The thread default main context is taken at the time of this call.-All signals on the menu model (and any linked models) are reported-with respect to this context.  All calls on the returned menu model-(and linked models) must also originate from this same context, with-the thread default main context unchanged.--This call is non-blocking.  The returned action group may or may not-already be filled in.  The correct thing to do is connect the signals-for the action group to monitor for changes and then to call-'GI.Gio.Interfaces.ActionGroup.actionGroupListActions' to get the initial list.--/Since: 2.32/--}-dBusActionGroupGet ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (T.Text)-    {- ^ /@busName@/: the bus name which exports the action-    group or 'Nothing' if /@connection@/ is not a message bus connection -}-    -> T.Text-    {- ^ /@objectPath@/: the object path at which the action group is exported -}-    -> m DBusActionGroup-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusActionGroup.DBusActionGroup' -}-dBusActionGroupGet connection busName objectPath = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeBusName <- case busName of-        Nothing -> return nullPtr-        Just jBusName -> do-            jBusName' <- textToCString jBusName-            return jBusName'-    objectPath' <- textToCString objectPath-    result <- g_dbus_action_group_get connection' maybeBusName objectPath'-    checkUnexpectedReturnNULL "dBusActionGroupGet" result-    result' <- (wrapObject DBusActionGroup) result-    touchManagedPtr connection-    freeMem maybeBusName-    freeMem objectPath'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/DBusActionGroup.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusActionGroup 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 DBusActionGroup = DBusActionGroup (ManagedPtr DBusActionGroup)-instance GObject DBusActionGroup where-class (GObject o, O.IsDescendantOf DBusActionGroup o) => IsDBusActionGroup o-instance (GObject o, O.IsDescendantOf DBusActionGroup o) => IsDBusActionGroup o-instance O.HasParentTypes DBusActionGroup
− GI/Gio/Objects/DBusAuthObserver.hs 
@@ -1,515 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' type provides a mechanism for participating-in how a 'GI.Gio.Objects.DBusServer.DBusServer' (or a 'GI.Gio.Objects.DBusConnection.DBusConnection') authenticates remote-peers. Simply instantiate a 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' and connect to the-signals you are interested in. Note that new signals may be added-in the future--## Controlling Authentication # {@/auth/@-observer}--For example, if you only want to allow D-Bus connections from-processes owned by the same uid as the server, you would use a-signal handler like the following:---=== /C code/->->static gboolean->on_authorize_authenticated_peer (GDBusAuthObserver *observer,->                                 GIOStream         *stream,->                                 GCredentials      *credentials,->                                 gpointer           user_data)->{->  gboolean authorized;->->  authorized = FALSE;->  if (credentials != NULL)->    {->      GCredentials *own_credentials;->      own_credentials = g_credentials_new ();->      if (g_credentials_is_same_user (credentials, own_credentials, NULL))->        authorized = TRUE;->      g_object_unref (own_credentials);->    }->->  return authorized;->}---/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusAuthObserver-    ( ---- * Exported types-    DBusAuthObserver(..)                    ,-    IsDBusAuthObserver                      ,-    toDBusAuthObserver                      ,-    noDBusAuthObserver                      ,--- -- * Methods--- ** allowMechanism #method:allowMechanism#--#if ENABLE_OVERLOADING-    DBusAuthObserverAllowMechanismMethodInfo,-#endif-    dBusAuthObserverAllowMechanism          ,----- ** authorizeAuthenticatedPeer #method:authorizeAuthenticatedPeer#--#if ENABLE_OVERLOADING-    DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo,-#endif-    dBusAuthObserverAuthorizeAuthenticatedPeer,----- ** new #method:new#--    dBusAuthObserverNew                     ,----- -- * Signals--- ** allowMechanism #signal:allowMechanism#--    C_DBusAuthObserverAllowMechanismCallback,-    DBusAuthObserverAllowMechanismCallback  ,-#if ENABLE_OVERLOADING-    DBusAuthObserverAllowMechanismSignalInfo,-#endif-    afterDBusAuthObserverAllowMechanism     ,-    genClosure_DBusAuthObserverAllowMechanism,-    mk_DBusAuthObserverAllowMechanismCallback,-    noDBusAuthObserverAllowMechanismCallback,-    onDBusAuthObserverAllowMechanism        ,-    wrap_DBusAuthObserverAllowMechanismCallback,----- ** authorizeAuthenticatedPeer #signal:authorizeAuthenticatedPeer#--    C_DBusAuthObserverAuthorizeAuthenticatedPeerCallback,-    DBusAuthObserverAuthorizeAuthenticatedPeerCallback,-#if ENABLE_OVERLOADING-    DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo,-#endif-    afterDBusAuthObserverAuthorizeAuthenticatedPeer,-    genClosure_DBusAuthObserverAuthorizeAuthenticatedPeer,-    mk_DBusAuthObserverAuthorizeAuthenticatedPeerCallback,-    noDBusAuthObserverAuthorizeAuthenticatedPeerCallback,-    onDBusAuthObserverAuthorizeAuthenticatedPeer,-    wrap_DBusAuthObserverAuthorizeAuthenticatedPeerCallback,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.Credentials as Gio.Credentials-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream---- | Memory-managed wrapper type.-newtype DBusAuthObserver = DBusAuthObserver (ManagedPtr DBusAuthObserver)-foreign import ccall "g_dbus_auth_observer_get_type"-    c_g_dbus_auth_observer_get_type :: IO GType--instance GObject DBusAuthObserver where-    gobjectType = c_g_dbus_auth_observer_get_type-    ---- | Type class for types which can be safely cast to `DBusAuthObserver`, for instance with `toDBusAuthObserver`.-class (GObject o, O.IsDescendantOf DBusAuthObserver o) => IsDBusAuthObserver o-instance (GObject o, O.IsDescendantOf DBusAuthObserver o) => IsDBusAuthObserver o--instance O.HasParentTypes DBusAuthObserver-type instance O.ParentTypes DBusAuthObserver = '[GObject.Object.Object]---- | Cast to `DBusAuthObserver`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusAuthObserver :: (MonadIO m, IsDBusAuthObserver o) => o -> m DBusAuthObserver-toDBusAuthObserver = liftIO . unsafeCastTo DBusAuthObserver---- | A convenience alias for `Nothing` :: `Maybe` `DBusAuthObserver`.-noDBusAuthObserver :: Maybe DBusAuthObserver-noDBusAuthObserver = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusAuthObserverMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusAuthObserverMethod "allowMechanism" o = DBusAuthObserverAllowMechanismMethodInfo-    ResolveDBusAuthObserverMethod "authorizeAuthenticatedPeer" o = DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo-    ResolveDBusAuthObserverMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusAuthObserverMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusAuthObserverMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusAuthObserverMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusAuthObserverMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusAuthObserverMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusAuthObserverMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusAuthObserverMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusAuthObserverMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusAuthObserverMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusAuthObserverMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusAuthObserverMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusAuthObserverMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusAuthObserverMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusAuthObserverMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusAuthObserverMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusAuthObserverMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusAuthObserverMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusAuthObserverMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusAuthObserverMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusAuthObserverMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusAuthObserverMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusAuthObserverMethod t DBusAuthObserver, O.MethodInfo info DBusAuthObserver p) => OL.IsLabel t (DBusAuthObserver -> 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 DBusAuthObserver::allow-mechanism-{- |-Emitted to check if /@mechanism@/ is allowed to be used.--/Since: 2.34/--}-type DBusAuthObserverAllowMechanismCallback =-    T.Text-    {- ^ /@mechanism@/: The name of the mechanism, e.g. @DBUS_COOKIE_SHA1@. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if /@mechanism@/ can be used to authenticate the other peer, 'False' if not. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusAuthObserverAllowMechanismCallback`@.-noDBusAuthObserverAllowMechanismCallback :: Maybe DBusAuthObserverAllowMechanismCallback-noDBusAuthObserverAllowMechanismCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusAuthObserverAllowMechanismCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_DBusAuthObserverAllowMechanismCallback`.-foreign import ccall "wrapper"-    mk_DBusAuthObserverAllowMechanismCallback :: C_DBusAuthObserverAllowMechanismCallback -> IO (FunPtr C_DBusAuthObserverAllowMechanismCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusAuthObserverAllowMechanism :: MonadIO m => DBusAuthObserverAllowMechanismCallback -> m (GClosure C_DBusAuthObserverAllowMechanismCallback)-genClosure_DBusAuthObserverAllowMechanism cb = liftIO $ do-    let cb' = wrap_DBusAuthObserverAllowMechanismCallback cb-    mk_DBusAuthObserverAllowMechanismCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusAuthObserverAllowMechanismCallback` into a `C_DBusAuthObserverAllowMechanismCallback`.-wrap_DBusAuthObserverAllowMechanismCallback ::-    DBusAuthObserverAllowMechanismCallback ->-    C_DBusAuthObserverAllowMechanismCallback-wrap_DBusAuthObserverAllowMechanismCallback _cb _ mechanism _ = do-    mechanism' <- cstringToText mechanism-    result <- _cb  mechanism'-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@allow-mechanism@” 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' dBusAuthObserver #allowMechanism callback-@--}-onDBusAuthObserverAllowMechanism :: (IsDBusAuthObserver a, MonadIO m) => a -> DBusAuthObserverAllowMechanismCallback -> m SignalHandlerId-onDBusAuthObserverAllowMechanism obj cb = liftIO $ do-    let cb' = wrap_DBusAuthObserverAllowMechanismCallback cb-    cb'' <- mk_DBusAuthObserverAllowMechanismCallback cb'-    connectSignalFunPtr obj "allow-mechanism" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@allow-mechanism@” 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' dBusAuthObserver #allowMechanism callback-@--}-afterDBusAuthObserverAllowMechanism :: (IsDBusAuthObserver a, MonadIO m) => a -> DBusAuthObserverAllowMechanismCallback -> m SignalHandlerId-afterDBusAuthObserverAllowMechanism obj cb = liftIO $ do-    let cb' = wrap_DBusAuthObserverAllowMechanismCallback cb-    cb'' <- mk_DBusAuthObserverAllowMechanismCallback cb'-    connectSignalFunPtr obj "allow-mechanism" cb'' SignalConnectAfter----- signal DBusAuthObserver::authorize-authenticated-peer-{- |-Emitted to check if a peer that is successfully authenticated-is authorized.--/Since: 2.26/--}-type DBusAuthObserverAuthorizeAuthenticatedPeerCallback =-    Gio.IOStream.IOStream-    {- ^ /@stream@/: A 'GI.Gio.Objects.IOStream.IOStream' for the 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> Maybe Gio.Credentials.Credentials-    {- ^ /@credentials@/: Credentials received from the peer or 'Nothing'. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if the peer is authorized, 'False' if not. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusAuthObserverAuthorizeAuthenticatedPeerCallback`@.-noDBusAuthObserverAuthorizeAuthenticatedPeerCallback :: Maybe DBusAuthObserverAuthorizeAuthenticatedPeerCallback-noDBusAuthObserverAuthorizeAuthenticatedPeerCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusAuthObserverAuthorizeAuthenticatedPeerCallback =-    Ptr () ->                               -- object-    Ptr Gio.IOStream.IOStream ->-    Ptr Gio.Credentials.Credentials ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_DBusAuthObserverAuthorizeAuthenticatedPeerCallback`.-foreign import ccall "wrapper"-    mk_DBusAuthObserverAuthorizeAuthenticatedPeerCallback :: C_DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> IO (FunPtr C_DBusAuthObserverAuthorizeAuthenticatedPeerCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusAuthObserverAuthorizeAuthenticatedPeer :: MonadIO m => DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> m (GClosure C_DBusAuthObserverAuthorizeAuthenticatedPeerCallback)-genClosure_DBusAuthObserverAuthorizeAuthenticatedPeer cb = liftIO $ do-    let cb' = wrap_DBusAuthObserverAuthorizeAuthenticatedPeerCallback cb-    mk_DBusAuthObserverAuthorizeAuthenticatedPeerCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusAuthObserverAuthorizeAuthenticatedPeerCallback` into a `C_DBusAuthObserverAuthorizeAuthenticatedPeerCallback`.-wrap_DBusAuthObserverAuthorizeAuthenticatedPeerCallback ::-    DBusAuthObserverAuthorizeAuthenticatedPeerCallback ->-    C_DBusAuthObserverAuthorizeAuthenticatedPeerCallback-wrap_DBusAuthObserverAuthorizeAuthenticatedPeerCallback _cb _ stream credentials _ = do-    stream' <- (newObject Gio.IOStream.IOStream) stream-    maybeCredentials <--        if credentials == nullPtr-        then return Nothing-        else do-            credentials' <- (newObject Gio.Credentials.Credentials) credentials-            return $ Just credentials'-    result <- _cb  stream' maybeCredentials-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@authorize-authenticated-peer@” 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' dBusAuthObserver #authorizeAuthenticatedPeer callback-@--}-onDBusAuthObserverAuthorizeAuthenticatedPeer :: (IsDBusAuthObserver a, MonadIO m) => a -> DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> m SignalHandlerId-onDBusAuthObserverAuthorizeAuthenticatedPeer obj cb = liftIO $ do-    let cb' = wrap_DBusAuthObserverAuthorizeAuthenticatedPeerCallback cb-    cb'' <- mk_DBusAuthObserverAuthorizeAuthenticatedPeerCallback cb'-    connectSignalFunPtr obj "authorize-authenticated-peer" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@authorize-authenticated-peer@” 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' dBusAuthObserver #authorizeAuthenticatedPeer callback-@--}-afterDBusAuthObserverAuthorizeAuthenticatedPeer :: (IsDBusAuthObserver a, MonadIO m) => a -> DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> m SignalHandlerId-afterDBusAuthObserverAuthorizeAuthenticatedPeer obj cb = liftIO $ do-    let cb' = wrap_DBusAuthObserverAuthorizeAuthenticatedPeerCallback cb-    cb'' <- mk_DBusAuthObserverAuthorizeAuthenticatedPeerCallback cb'-    connectSignalFunPtr obj "authorize-authenticated-peer" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusAuthObserver-type instance O.AttributeList DBusAuthObserver = DBusAuthObserverAttributeList-type DBusAuthObserverAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data DBusAuthObserverAllowMechanismSignalInfo-instance SignalInfo DBusAuthObserverAllowMechanismSignalInfo where-    type HaskellCallbackType DBusAuthObserverAllowMechanismSignalInfo = DBusAuthObserverAllowMechanismCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusAuthObserverAllowMechanismCallback cb-        cb'' <- mk_DBusAuthObserverAllowMechanismCallback cb'-        connectSignalFunPtr obj "allow-mechanism" cb'' connectMode--data DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo-instance SignalInfo DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo where-    type HaskellCallbackType DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo = DBusAuthObserverAuthorizeAuthenticatedPeerCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusAuthObserverAuthorizeAuthenticatedPeerCallback cb-        cb'' <- mk_DBusAuthObserverAuthorizeAuthenticatedPeerCallback cb'-        connectSignalFunPtr obj "authorize-authenticated-peer" cb'' connectMode--type instance O.SignalList DBusAuthObserver = DBusAuthObserverSignalList-type DBusAuthObserverSignalList = ('[ '("allowMechanism", DBusAuthObserverAllowMechanismSignalInfo), '("authorizeAuthenticatedPeer", DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusAuthObserver::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_auth_observer_new" g_dbus_auth_observer_new :: -    IO (Ptr DBusAuthObserver)--{- |-Creates a new 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' object.--/Since: 2.26/--}-dBusAuthObserverNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m DBusAuthObserver-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver'. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusAuthObserverNew  = liftIO $ do-    result <- g_dbus_auth_observer_new-    checkUnexpectedReturnNULL "dBusAuthObserverNew" result-    result' <- (wrapObject DBusAuthObserver) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method DBusAuthObserver::allow_mechanism--- method type : OrdinaryMethod--- Args : [Arg {argCName = "observer", argType = TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusAuthObserver.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mechanism", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the mechanism, e.g. `DBUS_COOKIE_SHA1`.", 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 "g_dbus_auth_observer_allow_mechanism" g_dbus_auth_observer_allow_mechanism :: -    Ptr DBusAuthObserver ->                 -- observer : TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-    CString ->                              -- mechanism : TBasicType TUTF8-    IO CInt--{- |-Emits the 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver'::@/allow-mechanism/@ signal on /@observer@/.--/Since: 2.34/--}-dBusAuthObserverAllowMechanism ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusAuthObserver a) =>-    a-    {- ^ /@observer@/: A 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver'. -}-    -> T.Text-    {- ^ /@mechanism@/: The name of the mechanism, e.g. @DBUS_COOKIE_SHA1@. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@mechanism@/ can be used to authenticate the other peer, 'False' if not. -}-dBusAuthObserverAllowMechanism observer mechanism = liftIO $ do-    observer' <- unsafeManagedPtrCastPtr observer-    mechanism' <- textToCString mechanism-    result <- g_dbus_auth_observer_allow_mechanism observer' mechanism'-    let result' = (/= 0) result-    touchManagedPtr observer-    freeMem mechanism'-    return result'--#if ENABLE_OVERLOADING-data DBusAuthObserverAllowMechanismMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDBusAuthObserver a) => O.MethodInfo DBusAuthObserverAllowMechanismMethodInfo a signature where-    overloadedMethod _ = dBusAuthObserverAllowMechanism--#endif---- method DBusAuthObserver::authorize_authenticated_peer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "observer", argType = TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusAuthObserver.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GIOStream for the #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Credentials received from the peer or %NULL.", 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 "g_dbus_auth_observer_authorize_authenticated_peer" g_dbus_auth_observer_authorize_authenticated_peer :: -    Ptr DBusAuthObserver ->                 -- observer : TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-    Ptr Gio.IOStream.IOStream ->            -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.Credentials.Credentials ->      -- credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    IO CInt--{- |-Emits the 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver'::@/authorize-authenticated-peer/@ signal on /@observer@/.--/Since: 2.26/--}-dBusAuthObserverAuthorizeAuthenticatedPeer ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusAuthObserver a, Gio.IOStream.IsIOStream b, Gio.Credentials.IsCredentials c) =>-    a-    {- ^ /@observer@/: A 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver'. -}-    -> b-    {- ^ /@stream@/: A 'GI.Gio.Objects.IOStream.IOStream' for the 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> Maybe (c)-    {- ^ /@credentials@/: Credentials received from the peer or 'Nothing'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the peer is authorized, 'False' if not. -}-dBusAuthObserverAuthorizeAuthenticatedPeer observer stream credentials = liftIO $ do-    observer' <- unsafeManagedPtrCastPtr observer-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCredentials <- case credentials of-        Nothing -> return nullPtr-        Just jCredentials -> do-            jCredentials' <- unsafeManagedPtrCastPtr jCredentials-            return jCredentials'-    result <- g_dbus_auth_observer_authorize_authenticated_peer observer' stream' maybeCredentials-    let result' = (/= 0) result-    touchManagedPtr observer-    touchManagedPtr stream-    whenJust credentials touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo-instance (signature ~ (b -> Maybe (c) -> m Bool), MonadIO m, IsDBusAuthObserver a, Gio.IOStream.IsIOStream b, Gio.Credentials.IsCredentials c) => O.MethodInfo DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo a signature where-    overloadedMethod _ = dBusAuthObserverAuthorizeAuthenticatedPeer--#endif--
− GI/Gio/Objects/DBusAuthObserver.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusAuthObserver 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 DBusAuthObserver = DBusAuthObserver (ManagedPtr DBusAuthObserver)-instance GObject DBusAuthObserver where-class (GObject o, O.IsDescendantOf DBusAuthObserver o) => IsDBusAuthObserver o-instance (GObject o, O.IsDescendantOf DBusAuthObserver o) => IsDBusAuthObserver o-instance O.HasParentTypes DBusAuthObserver-#if ENABLE_OVERLOADING-data DBusAuthObserverAllowMechanismSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusAuthObserverAllowMechanismMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo-#endif
− GI/Gio/Objects/DBusConnection.hs 
@@ -1,4248 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Objects.DBusConnection.DBusConnection' type is used for D-Bus connections to remote-peers such as a message buses. It is a low-level API that offers a-lot of flexibility. For instance, it lets you establish a connection-over any transport that can by represented as an 'GI.Gio.Objects.IOStream.IOStream'.--This class is rarely used directly in D-Bus clients. If you are writing-a D-Bus client, it is often easier to use the @/g_bus_own_name()/@,-@/g_bus_watch_name()/@ or 'GI.Gio.Objects.DBusProxy.dBusProxyNewForBus' APIs.--As an exception to the usual GLib rule that a particular object must not-be used by two threads at the same time, 'GI.Gio.Objects.DBusConnection.DBusConnection'\'s methods may be-called from any thread. This is so that 'GI.Gio.Functions.busGet' and 'GI.Gio.Functions.busGetSync'-can safely return the same 'GI.Gio.Objects.DBusConnection.DBusConnection' when called from any thread.--Most of the ways to obtain a 'GI.Gio.Objects.DBusConnection.DBusConnection' automatically initialize it-(i.e. connect to D-Bus): for instance, 'GI.Gio.Objects.DBusConnection.dBusConnectionNew' and-'GI.Gio.Functions.busGet', and the synchronous versions of those methods, give you an-initialized connection. Language bindings for GIO should use-@/g_initable_new()/@ or @/g_async_initable_new_async()/@, which also initialize the-connection.--If you construct an uninitialized 'GI.Gio.Objects.DBusConnection.DBusConnection', such as via-@/g_object_new()/@, you must initialize it via 'GI.Gio.Interfaces.Initable.initableInit' or-'GI.Gio.Interfaces.AsyncInitable.asyncInitableInitAsync' before using its methods or properties.-Calling methods or accessing properties on a 'GI.Gio.Objects.DBusConnection.DBusConnection' that has not-completed initialization successfully is considered to be invalid, and leads-to undefined behaviour. In particular, if initialization fails with a-'GError', the only valid thing you can do with that 'GI.Gio.Objects.DBusConnection.DBusConnection' is to-free it with 'GI.GObject.Objects.Object.objectUnref'.--## An example D-Bus server # {@/gdbus/@-server}--Here is an example for a D-Bus server:-<https://git.gnome.org/browse/glib/tree/gio/tests/gdbus-example-server.c gdbus-example-server.c>--## An example for exporting a subtree # {@/gdbus/@-subtree-server}--Here is an example for exporting a subtree:-<https://git.gnome.org/browse/glib/tree/gio/tests/gdbus-example-subtree.c gdbus-example-subtree.c>--## An example for file descriptor passing # {@/gdbus/@-unix-fd-client}--Here is an example for passing UNIX file descriptors:-<https://git.gnome.org/browse/glib/tree/gio/tests/gdbus-example-unix-fd-client.c gdbus-unix-fd-client.c>--## An example for exporting a GObject # {@/gdbus/@-export}--Here is an example for exporting a 'GI.GObject.Objects.Object.Object':-<https://git.gnome.org/browse/glib/tree/gio/tests/gdbus-example-export.c gdbus-example-export.c>--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusConnection-    ( ---- * Exported types-    DBusConnection(..)                      ,-    IsDBusConnection                        ,-    toDBusConnection                        ,-    noDBusConnection                        ,--- -- * Methods--- ** addFilter #method:addFilter#--#if ENABLE_OVERLOADING-    DBusConnectionAddFilterMethodInfo       ,-#endif-    dBusConnectionAddFilter                 ,----- ** call #method:call#--#if ENABLE_OVERLOADING-    DBusConnectionCallMethodInfo            ,-#endif-    dBusConnectionCall                      ,----- ** callFinish #method:callFinish#--#if ENABLE_OVERLOADING-    DBusConnectionCallFinishMethodInfo      ,-#endif-    dBusConnectionCallFinish                ,----- ** callSync #method:callSync#--#if ENABLE_OVERLOADING-    DBusConnectionCallSyncMethodInfo        ,-#endif-    dBusConnectionCallSync                  ,----- ** callWithUnixFdList #method:callWithUnixFdList#--#if ENABLE_OVERLOADING-    DBusConnectionCallWithUnixFdListMethodInfo,-#endif-    dBusConnectionCallWithUnixFdList        ,----- ** callWithUnixFdListFinish #method:callWithUnixFdListFinish#--#if ENABLE_OVERLOADING-    DBusConnectionCallWithUnixFdListFinishMethodInfo,-#endif-    dBusConnectionCallWithUnixFdListFinish  ,----- ** callWithUnixFdListSync #method:callWithUnixFdListSync#--#if ENABLE_OVERLOADING-    DBusConnectionCallWithUnixFdListSyncMethodInfo,-#endif-    dBusConnectionCallWithUnixFdListSync    ,----- ** close #method:close#--#if ENABLE_OVERLOADING-    DBusConnectionCloseMethodInfo           ,-#endif-    dBusConnectionClose                     ,----- ** closeFinish #method:closeFinish#--#if ENABLE_OVERLOADING-    DBusConnectionCloseFinishMethodInfo     ,-#endif-    dBusConnectionCloseFinish               ,----- ** closeSync #method:closeSync#--#if ENABLE_OVERLOADING-    DBusConnectionCloseSyncMethodInfo       ,-#endif-    dBusConnectionCloseSync                 ,----- ** emitSignal #method:emitSignal#--#if ENABLE_OVERLOADING-    DBusConnectionEmitSignalMethodInfo      ,-#endif-    dBusConnectionEmitSignal                ,----- ** exportActionGroup #method:exportActionGroup#--#if ENABLE_OVERLOADING-    DBusConnectionExportActionGroupMethodInfo,-#endif-    dBusConnectionExportActionGroup         ,----- ** exportMenuModel #method:exportMenuModel#--#if ENABLE_OVERLOADING-    DBusConnectionExportMenuModelMethodInfo ,-#endif-    dBusConnectionExportMenuModel           ,----- ** flush #method:flush#--#if ENABLE_OVERLOADING-    DBusConnectionFlushMethodInfo           ,-#endif-    dBusConnectionFlush                     ,----- ** flushFinish #method:flushFinish#--#if ENABLE_OVERLOADING-    DBusConnectionFlushFinishMethodInfo     ,-#endif-    dBusConnectionFlushFinish               ,----- ** flushSync #method:flushSync#--#if ENABLE_OVERLOADING-    DBusConnectionFlushSyncMethodInfo       ,-#endif-    dBusConnectionFlushSync                 ,----- ** getCapabilities #method:getCapabilities#--#if ENABLE_OVERLOADING-    DBusConnectionGetCapabilitiesMethodInfo ,-#endif-    dBusConnectionGetCapabilities           ,----- ** getExitOnClose #method:getExitOnClose#--#if ENABLE_OVERLOADING-    DBusConnectionGetExitOnCloseMethodInfo  ,-#endif-    dBusConnectionGetExitOnClose            ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    DBusConnectionGetFlagsMethodInfo        ,-#endif-    dBusConnectionGetFlags                  ,----- ** getGuid #method:getGuid#--#if ENABLE_OVERLOADING-    DBusConnectionGetGuidMethodInfo         ,-#endif-    dBusConnectionGetGuid                   ,----- ** getLastSerial #method:getLastSerial#--#if ENABLE_OVERLOADING-    DBusConnectionGetLastSerialMethodInfo   ,-#endif-    dBusConnectionGetLastSerial             ,----- ** getPeerCredentials #method:getPeerCredentials#--#if ENABLE_OVERLOADING-    DBusConnectionGetPeerCredentialsMethodInfo,-#endif-    dBusConnectionGetPeerCredentials        ,----- ** getStream #method:getStream#--#if ENABLE_OVERLOADING-    DBusConnectionGetStreamMethodInfo       ,-#endif-    dBusConnectionGetStream                 ,----- ** getUniqueName #method:getUniqueName#--#if ENABLE_OVERLOADING-    DBusConnectionGetUniqueNameMethodInfo   ,-#endif-    dBusConnectionGetUniqueName             ,----- ** isClosed #method:isClosed#--#if ENABLE_OVERLOADING-    DBusConnectionIsClosedMethodInfo        ,-#endif-    dBusConnectionIsClosed                  ,----- ** new #method:new#--    dBusConnectionNew                       ,----- ** newFinish #method:newFinish#--    dBusConnectionNewFinish                 ,----- ** newForAddress #method:newForAddress#--    dBusConnectionNewForAddress             ,----- ** newForAddressFinish #method:newForAddressFinish#--    dBusConnectionNewForAddressFinish       ,----- ** newForAddressSync #method:newForAddressSync#--    dBusConnectionNewForAddressSync         ,----- ** newSync #method:newSync#--    dBusConnectionNewSync                   ,----- ** registerObject #method:registerObject#--#if ENABLE_OVERLOADING-    DBusConnectionRegisterObjectMethodInfo  ,-#endif-    dBusConnectionRegisterObject            ,----- ** registerSubtree #method:registerSubtree#--#if ENABLE_OVERLOADING-    DBusConnectionRegisterSubtreeMethodInfo ,-#endif-    dBusConnectionRegisterSubtree           ,----- ** removeFilter #method:removeFilter#--#if ENABLE_OVERLOADING-    DBusConnectionRemoveFilterMethodInfo    ,-#endif-    dBusConnectionRemoveFilter              ,----- ** sendMessage #method:sendMessage#--#if ENABLE_OVERLOADING-    DBusConnectionSendMessageMethodInfo     ,-#endif-    dBusConnectionSendMessage               ,----- ** sendMessageWithReply #method:sendMessageWithReply#--#if ENABLE_OVERLOADING-    DBusConnectionSendMessageWithReplyMethodInfo,-#endif-    dBusConnectionSendMessageWithReply      ,----- ** sendMessageWithReplyFinish #method:sendMessageWithReplyFinish#--#if ENABLE_OVERLOADING-    DBusConnectionSendMessageWithReplyFinishMethodInfo,-#endif-    dBusConnectionSendMessageWithReplyFinish,----- ** sendMessageWithReplySync #method:sendMessageWithReplySync#--#if ENABLE_OVERLOADING-    DBusConnectionSendMessageWithReplySyncMethodInfo,-#endif-    dBusConnectionSendMessageWithReplySync  ,----- ** setExitOnClose #method:setExitOnClose#--#if ENABLE_OVERLOADING-    DBusConnectionSetExitOnCloseMethodInfo  ,-#endif-    dBusConnectionSetExitOnClose            ,----- ** signalSubscribe #method:signalSubscribe#--#if ENABLE_OVERLOADING-    DBusConnectionSignalSubscribeMethodInfo ,-#endif-    dBusConnectionSignalSubscribe           ,----- ** signalUnsubscribe #method:signalUnsubscribe#--#if ENABLE_OVERLOADING-    DBusConnectionSignalUnsubscribeMethodInfo,-#endif-    dBusConnectionSignalUnsubscribe         ,----- ** startMessageProcessing #method:startMessageProcessing#--#if ENABLE_OVERLOADING-    DBusConnectionStartMessageProcessingMethodInfo,-#endif-    dBusConnectionStartMessageProcessing    ,----- ** unexportActionGroup #method:unexportActionGroup#--#if ENABLE_OVERLOADING-    DBusConnectionUnexportActionGroupMethodInfo,-#endif-    dBusConnectionUnexportActionGroup       ,----- ** unexportMenuModel #method:unexportMenuModel#--#if ENABLE_OVERLOADING-    DBusConnectionUnexportMenuModelMethodInfo,-#endif-    dBusConnectionUnexportMenuModel         ,----- ** unregisterObject #method:unregisterObject#--#if ENABLE_OVERLOADING-    DBusConnectionUnregisterObjectMethodInfo,-#endif-    dBusConnectionUnregisterObject          ,----- ** unregisterSubtree #method:unregisterSubtree#--#if ENABLE_OVERLOADING-    DBusConnectionUnregisterSubtreeMethodInfo,-#endif-    dBusConnectionUnregisterSubtree         ,----- -- * Properties--- ** address #attr:address#-{- | A D-Bus address specifying potential endpoints that can be used-when establishing the connection.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionAddressPropertyInfo       ,-#endif-    constructDBusConnectionAddress          ,-#if ENABLE_OVERLOADING-    dBusConnectionAddress                   ,-#endif----- ** authenticationObserver #attr:authenticationObserver#-{- | A 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' object to assist in the authentication process or 'Nothing'.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionAuthenticationObserverPropertyInfo,-#endif-    constructDBusConnectionAuthenticationObserver,-#if ENABLE_OVERLOADING-    dBusConnectionAuthenticationObserver    ,-#endif----- ** capabilities #attr:capabilities#-{- | Flags from the 'GI.Gio.Flags.DBusCapabilityFlags' enumeration-representing connection features negotiated with the other peer.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionCapabilitiesPropertyInfo  ,-#endif-#if ENABLE_OVERLOADING-    dBusConnectionCapabilities              ,-#endif-    getDBusConnectionCapabilities           ,----- ** closed #attr:closed#-{- | A boolean specifying whether the connection has been closed.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionClosedPropertyInfo        ,-#endif-#if ENABLE_OVERLOADING-    dBusConnectionClosed                    ,-#endif-    getDBusConnectionClosed                 ,----- ** exitOnClose #attr:exitOnClose#-{- | A boolean specifying whether the process will be terminated (by-calling @raise(SIGTERM)@) if the connection is closed by the-remote peer.--Note that 'GI.Gio.Objects.DBusConnection.DBusConnection' objects returned by 'GI.Gio.Functions.busGetFinish'-and 'GI.Gio.Functions.busGetSync' will (usually) have this property set to 'True'.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionExitOnClosePropertyInfo   ,-#endif-    constructDBusConnectionExitOnClose      ,-#if ENABLE_OVERLOADING-    dBusConnectionExitOnClose               ,-#endif-    getDBusConnectionExitOnClose            ,-    setDBusConnectionExitOnClose            ,----- ** flags #attr:flags#-{- | Flags from the 'GI.Gio.Flags.DBusConnectionFlags' enumeration.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionFlagsPropertyInfo         ,-#endif-    constructDBusConnectionFlags            ,-#if ENABLE_OVERLOADING-    dBusConnectionFlags                     ,-#endif-    getDBusConnectionFlags                  ,----- ** guid #attr:guid#-{- | The GUID of the peer performing the role of server when-authenticating.--If you are constructing a 'GI.Gio.Objects.DBusConnection.DBusConnection' and pass-'GI.Gio.Flags.DBusConnectionFlagsAuthenticationServer' in the-'GI.Gio.Objects.DBusConnection.DBusConnection':@/flags/@ property then you MUST also set this-property to a valid guid.--If you are constructing a 'GI.Gio.Objects.DBusConnection.DBusConnection' and pass-'GI.Gio.Flags.DBusConnectionFlagsAuthenticationClient' in the-'GI.Gio.Objects.DBusConnection.DBusConnection':@/flags/@ property you will be able to read the GUID-of the other peer here after the connection has been successfully-initialized.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionGuidPropertyInfo          ,-#endif-    constructDBusConnectionGuid             ,-#if ENABLE_OVERLOADING-    dBusConnectionGuid                      ,-#endif-    getDBusConnectionGuid                   ,----- ** stream #attr:stream#-{- | The underlying 'GI.Gio.Objects.IOStream.IOStream' used for I\/O.--If this is passed on construction and is a 'GI.Gio.Objects.SocketConnection.SocketConnection',-then the corresponding 'GI.Gio.Objects.Socket.Socket' will be put into non-blocking mode.--While the 'GI.Gio.Objects.DBusConnection.DBusConnection' is active, it will interact with this-stream from a worker thread, so it is not safe to interact with-the stream directly.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionStreamPropertyInfo        ,-#endif-    constructDBusConnectionStream           ,-#if ENABLE_OVERLOADING-    dBusConnectionStream                    ,-#endif-    getDBusConnectionStream                 ,----- ** uniqueName #attr:uniqueName#-{- | The unique name as assigned by the message bus or 'Nothing' if the-connection is not open or not a message bus connection.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusConnectionUniqueNamePropertyInfo    ,-#endif-#if ENABLE_OVERLOADING-    dBusConnectionUniqueName                ,-#endif-    getDBusConnectionUniqueName             ,----- -- * Signals--- ** closed #signal:closed#--    C_DBusConnectionClosedCallback          ,-    DBusConnectionClosedCallback            ,-#if ENABLE_OVERLOADING-    DBusConnectionClosedSignalInfo          ,-#endif-    afterDBusConnectionClosed               ,-    genClosure_DBusConnectionClosed         ,-    mk_DBusConnectionClosedCallback         ,-    noDBusConnectionClosedCallback          ,-    onDBusConnectionClosed                  ,-    wrap_DBusConnectionClosedCallback       ,-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GLib.Structs.VariantType as GLib.VariantType-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.Credentials as Gio.Credentials-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusAuthObserver as Gio.DBusAuthObserver-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMessage as Gio.DBusMessage-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.MenuModel as Gio.MenuModel-import {-# SOURCE #-} qualified GI.Gio.Objects.UnixFDList as Gio.UnixFDList-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusSubtreeVTable as Gio.DBusSubtreeVTable---- | Memory-managed wrapper type.-newtype DBusConnection = DBusConnection (ManagedPtr DBusConnection)-foreign import ccall "g_dbus_connection_get_type"-    c_g_dbus_connection_get_type :: IO GType--instance GObject DBusConnection where-    gobjectType = c_g_dbus_connection_get_type-    ---- | Type class for types which can be safely cast to `DBusConnection`, for instance with `toDBusConnection`.-class (GObject o, O.IsDescendantOf DBusConnection o) => IsDBusConnection o-instance (GObject o, O.IsDescendantOf DBusConnection o) => IsDBusConnection o--instance O.HasParentTypes DBusConnection-type instance O.ParentTypes DBusConnection = '[GObject.Object.Object, Gio.AsyncInitable.AsyncInitable, Gio.Initable.Initable]---- | Cast to `DBusConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusConnection :: (MonadIO m, IsDBusConnection o) => o -> m DBusConnection-toDBusConnection = liftIO . unsafeCastTo DBusConnection---- | A convenience alias for `Nothing` :: `Maybe` `DBusConnection`.-noDBusConnection :: Maybe DBusConnection-noDBusConnection = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusConnectionMethod "addFilter" o = DBusConnectionAddFilterMethodInfo-    ResolveDBusConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusConnectionMethod "call" o = DBusConnectionCallMethodInfo-    ResolveDBusConnectionMethod "callFinish" o = DBusConnectionCallFinishMethodInfo-    ResolveDBusConnectionMethod "callSync" o = DBusConnectionCallSyncMethodInfo-    ResolveDBusConnectionMethod "callWithUnixFdList" o = DBusConnectionCallWithUnixFdListMethodInfo-    ResolveDBusConnectionMethod "callWithUnixFdListFinish" o = DBusConnectionCallWithUnixFdListFinishMethodInfo-    ResolveDBusConnectionMethod "callWithUnixFdListSync" o = DBusConnectionCallWithUnixFdListSyncMethodInfo-    ResolveDBusConnectionMethod "close" o = DBusConnectionCloseMethodInfo-    ResolveDBusConnectionMethod "closeFinish" o = DBusConnectionCloseFinishMethodInfo-    ResolveDBusConnectionMethod "closeSync" o = DBusConnectionCloseSyncMethodInfo-    ResolveDBusConnectionMethod "emitSignal" o = DBusConnectionEmitSignalMethodInfo-    ResolveDBusConnectionMethod "exportActionGroup" o = DBusConnectionExportActionGroupMethodInfo-    ResolveDBusConnectionMethod "exportMenuModel" o = DBusConnectionExportMenuModelMethodInfo-    ResolveDBusConnectionMethod "flush" o = DBusConnectionFlushMethodInfo-    ResolveDBusConnectionMethod "flushFinish" o = DBusConnectionFlushFinishMethodInfo-    ResolveDBusConnectionMethod "flushSync" o = DBusConnectionFlushSyncMethodInfo-    ResolveDBusConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusConnectionMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveDBusConnectionMethod "initAsync" o = Gio.AsyncInitable.AsyncInitableInitAsyncMethodInfo-    ResolveDBusConnectionMethod "initFinish" o = Gio.AsyncInitable.AsyncInitableInitFinishMethodInfo-    ResolveDBusConnectionMethod "isClosed" o = DBusConnectionIsClosedMethodInfo-    ResolveDBusConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusConnectionMethod "registerObject" o = DBusConnectionRegisterObjectMethodInfo-    ResolveDBusConnectionMethod "registerSubtree" o = DBusConnectionRegisterSubtreeMethodInfo-    ResolveDBusConnectionMethod "removeFilter" o = DBusConnectionRemoveFilterMethodInfo-    ResolveDBusConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusConnectionMethod "sendMessage" o = DBusConnectionSendMessageMethodInfo-    ResolveDBusConnectionMethod "sendMessageWithReply" o = DBusConnectionSendMessageWithReplyMethodInfo-    ResolveDBusConnectionMethod "sendMessageWithReplyFinish" o = DBusConnectionSendMessageWithReplyFinishMethodInfo-    ResolveDBusConnectionMethod "sendMessageWithReplySync" o = DBusConnectionSendMessageWithReplySyncMethodInfo-    ResolveDBusConnectionMethod "signalSubscribe" o = DBusConnectionSignalSubscribeMethodInfo-    ResolveDBusConnectionMethod "signalUnsubscribe" o = DBusConnectionSignalUnsubscribeMethodInfo-    ResolveDBusConnectionMethod "startMessageProcessing" o = DBusConnectionStartMessageProcessingMethodInfo-    ResolveDBusConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusConnectionMethod "unexportActionGroup" o = DBusConnectionUnexportActionGroupMethodInfo-    ResolveDBusConnectionMethod "unexportMenuModel" o = DBusConnectionUnexportMenuModelMethodInfo-    ResolveDBusConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusConnectionMethod "unregisterObject" o = DBusConnectionUnregisterObjectMethodInfo-    ResolveDBusConnectionMethod "unregisterSubtree" o = DBusConnectionUnregisterSubtreeMethodInfo-    ResolveDBusConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusConnectionMethod "getCapabilities" o = DBusConnectionGetCapabilitiesMethodInfo-    ResolveDBusConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusConnectionMethod "getExitOnClose" o = DBusConnectionGetExitOnCloseMethodInfo-    ResolveDBusConnectionMethod "getFlags" o = DBusConnectionGetFlagsMethodInfo-    ResolveDBusConnectionMethod "getGuid" o = DBusConnectionGetGuidMethodInfo-    ResolveDBusConnectionMethod "getLastSerial" o = DBusConnectionGetLastSerialMethodInfo-    ResolveDBusConnectionMethod "getPeerCredentials" o = DBusConnectionGetPeerCredentialsMethodInfo-    ResolveDBusConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusConnectionMethod "getStream" o = DBusConnectionGetStreamMethodInfo-    ResolveDBusConnectionMethod "getUniqueName" o = DBusConnectionGetUniqueNameMethodInfo-    ResolveDBusConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusConnectionMethod "setExitOnClose" o = DBusConnectionSetExitOnCloseMethodInfo-    ResolveDBusConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusConnectionMethod t DBusConnection, O.MethodInfo info DBusConnection p) => OL.IsLabel t (DBusConnection -> 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 DBusConnection::closed-{- |-Emitted when the connection is closed.--The cause of this event can be--* If 'GI.Gio.Objects.DBusConnection.dBusConnectionClose' is called. In this case-/@remotePeerVanished@/ is set to 'False' and /@error@/ is 'Nothing'.-* If the remote peer closes the connection. In this case-/@remotePeerVanished@/ is set to 'True' and /@error@/ is set.-* If the remote peer sends invalid or malformed data. In this-case /@remotePeerVanished@/ is set to 'False' and /@error@/ is set.---Upon receiving this signal, you should give up your reference to-/@connection@/. You are guaranteed that this signal is emitted only-once.--/Since: 2.26/--}-type DBusConnectionClosedCallback =-    Bool-    {- ^ /@remotePeerVanished@/: 'True' if /@connection@/ is closed because the-    remote peer closed its end of the connection -}-    -> Maybe GError-    {- ^ /@error@/: a 'GError' with more details about the event or 'Nothing' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusConnectionClosedCallback`@.-noDBusConnectionClosedCallback :: Maybe DBusConnectionClosedCallback-noDBusConnectionClosedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusConnectionClosedCallback =-    Ptr () ->                               -- object-    CInt ->-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusConnectionClosedCallback`.-foreign import ccall "wrapper"-    mk_DBusConnectionClosedCallback :: C_DBusConnectionClosedCallback -> IO (FunPtr C_DBusConnectionClosedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusConnectionClosed :: MonadIO m => DBusConnectionClosedCallback -> m (GClosure C_DBusConnectionClosedCallback)-genClosure_DBusConnectionClosed cb = liftIO $ do-    let cb' = wrap_DBusConnectionClosedCallback cb-    mk_DBusConnectionClosedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusConnectionClosedCallback` into a `C_DBusConnectionClosedCallback`.-wrap_DBusConnectionClosedCallback ::-    DBusConnectionClosedCallback ->-    C_DBusConnectionClosedCallback-wrap_DBusConnectionClosedCallback _cb _ remotePeerVanished error_ _ = do-    let remotePeerVanished' = (/= 0) remotePeerVanished-    maybeError_ <--        if error_ == nullPtr-        then return Nothing-        else do-            error_' <- (newBoxed GError) error_-            return $ Just error_'-    _cb  remotePeerVanished' maybeError_---{- |-Connect a signal handler for the “@closed@” 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' dBusConnection #closed callback-@--}-onDBusConnectionClosed :: (IsDBusConnection a, MonadIO m) => a -> DBusConnectionClosedCallback -> m SignalHandlerId-onDBusConnectionClosed obj cb = liftIO $ do-    let cb' = wrap_DBusConnectionClosedCallback cb-    cb'' <- mk_DBusConnectionClosedCallback cb'-    connectSignalFunPtr obj "closed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@closed@” 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' dBusConnection #closed callback-@--}-afterDBusConnectionClosed :: (IsDBusConnection a, MonadIO m) => a -> DBusConnectionClosedCallback -> m SignalHandlerId-afterDBusConnectionClosed obj cb = liftIO $ do-    let cb' = wrap_DBusConnectionClosedCallback cb-    cb'' <- mk_DBusConnectionClosedCallback cb'-    connectSignalFunPtr obj "closed" cb'' SignalConnectAfter----- VVV Prop "address"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@address@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusConnectionAddress :: (IsDBusConnection o) => T.Text -> IO (GValueConstruct o)-constructDBusConnectionAddress val = B.Properties.constructObjectPropertyString "address" (Just val)--#if ENABLE_OVERLOADING-data DBusConnectionAddressPropertyInfo-instance AttrInfo DBusConnectionAddressPropertyInfo where-    type AttrAllowedOps DBusConnectionAddressPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionAddressPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusConnectionAddressPropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionAddressPropertyInfo = ()-    type AttrLabel DBusConnectionAddressPropertyInfo = "address"-    type AttrOrigin DBusConnectionAddressPropertyInfo = DBusConnection-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionAddress-    attrClear _ = undefined-#endif---- VVV Prop "authentication-observer"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@authentication-observer@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusConnectionAuthenticationObserver :: (IsDBusConnection o, Gio.DBusAuthObserver.IsDBusAuthObserver a) => a -> IO (GValueConstruct o)-constructDBusConnectionAuthenticationObserver val = B.Properties.constructObjectPropertyObject "authentication-observer" (Just val)--#if ENABLE_OVERLOADING-data DBusConnectionAuthenticationObserverPropertyInfo-instance AttrInfo DBusConnectionAuthenticationObserverPropertyInfo where-    type AttrAllowedOps DBusConnectionAuthenticationObserverPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = Gio.DBusAuthObserver.IsDBusAuthObserver-    type AttrBaseTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionAuthenticationObserverPropertyInfo = ()-    type AttrLabel DBusConnectionAuthenticationObserverPropertyInfo = "authentication-observer"-    type AttrOrigin DBusConnectionAuthenticationObserverPropertyInfo = DBusConnection-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionAuthenticationObserver-    attrClear _ = undefined-#endif---- VVV Prop "capabilities"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusCapabilityFlags"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@capabilities@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusConnection #capabilities-@--}-getDBusConnectionCapabilities :: (MonadIO m, IsDBusConnection o) => o -> m [Gio.Flags.DBusCapabilityFlags]-getDBusConnectionCapabilities obj = liftIO $ B.Properties.getObjectPropertyFlags obj "capabilities"--#if ENABLE_OVERLOADING-data DBusConnectionCapabilitiesPropertyInfo-instance AttrInfo DBusConnectionCapabilitiesPropertyInfo where-    type AttrAllowedOps DBusConnectionCapabilitiesPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DBusConnectionCapabilitiesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusConnectionCapabilitiesPropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionCapabilitiesPropertyInfo = [Gio.Flags.DBusCapabilityFlags]-    type AttrLabel DBusConnectionCapabilitiesPropertyInfo = "capabilities"-    type AttrOrigin DBusConnectionCapabilitiesPropertyInfo = DBusConnection-    attrGet _ = getDBusConnectionCapabilities-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "closed"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@closed@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusConnection #closed-@--}-getDBusConnectionClosed :: (MonadIO m, IsDBusConnection o) => o -> m Bool-getDBusConnectionClosed obj = liftIO $ B.Properties.getObjectPropertyBool obj "closed"--#if ENABLE_OVERLOADING-data DBusConnectionClosedPropertyInfo-instance AttrInfo DBusConnectionClosedPropertyInfo where-    type AttrAllowedOps DBusConnectionClosedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DBusConnectionClosedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusConnectionClosedPropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionClosedPropertyInfo = Bool-    type AttrLabel DBusConnectionClosedPropertyInfo = "closed"-    type AttrOrigin DBusConnectionClosedPropertyInfo = DBusConnection-    attrGet _ = getDBusConnectionClosed-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "exit-on-close"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@exit-on-close@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusConnection #exitOnClose-@--}-getDBusConnectionExitOnClose :: (MonadIO m, IsDBusConnection o) => o -> m Bool-getDBusConnectionExitOnClose obj = liftIO $ B.Properties.getObjectPropertyBool obj "exit-on-close"--{- |-Set the value of the “@exit-on-close@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusConnection [ #exitOnClose 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusConnectionExitOnClose :: (MonadIO m, IsDBusConnection o) => o -> Bool -> m ()-setDBusConnectionExitOnClose obj val = liftIO $ B.Properties.setObjectPropertyBool obj "exit-on-close" val--{- |-Construct a `GValueConstruct` with valid value for the “@exit-on-close@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusConnectionExitOnClose :: (IsDBusConnection o) => Bool -> IO (GValueConstruct o)-constructDBusConnectionExitOnClose val = B.Properties.constructObjectPropertyBool "exit-on-close" val--#if ENABLE_OVERLOADING-data DBusConnectionExitOnClosePropertyInfo-instance AttrInfo DBusConnectionExitOnClosePropertyInfo where-    type AttrAllowedOps DBusConnectionExitOnClosePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusConnectionExitOnClosePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint DBusConnectionExitOnClosePropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionExitOnClosePropertyInfo = Bool-    type AttrLabel DBusConnectionExitOnClosePropertyInfo = "exit-on-close"-    type AttrOrigin DBusConnectionExitOnClosePropertyInfo = DBusConnection-    attrGet _ = getDBusConnectionExitOnClose-    attrSet _ = setDBusConnectionExitOnClose-    attrConstruct _ = constructDBusConnectionExitOnClose-    attrClear _ = undefined-#endif---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusConnection #flags-@--}-getDBusConnectionFlags :: (MonadIO m, IsDBusConnection o) => o -> m [Gio.Flags.DBusConnectionFlags]-getDBusConnectionFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusConnectionFlags :: (IsDBusConnection o) => [Gio.Flags.DBusConnectionFlags] -> IO (GValueConstruct o)-constructDBusConnectionFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data DBusConnectionFlagsPropertyInfo-instance AttrInfo DBusConnectionFlagsPropertyInfo where-    type AttrAllowedOps DBusConnectionFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusConnectionFlagsPropertyInfo = (~) [Gio.Flags.DBusConnectionFlags]-    type AttrBaseTypeConstraint DBusConnectionFlagsPropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionFlagsPropertyInfo = [Gio.Flags.DBusConnectionFlags]-    type AttrLabel DBusConnectionFlagsPropertyInfo = "flags"-    type AttrOrigin DBusConnectionFlagsPropertyInfo = DBusConnection-    attrGet _ = getDBusConnectionFlags-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionFlags-    attrClear _ = undefined-#endif---- VVV Prop "guid"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@guid@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusConnection #guid-@--}-getDBusConnectionGuid :: (MonadIO m, IsDBusConnection o) => o -> m T.Text-getDBusConnectionGuid obj = liftIO $ checkUnexpectedNothing "getDBusConnectionGuid" $ B.Properties.getObjectPropertyString obj "guid"--{- |-Construct a `GValueConstruct` with valid value for the “@guid@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusConnectionGuid :: (IsDBusConnection o) => T.Text -> IO (GValueConstruct o)-constructDBusConnectionGuid val = B.Properties.constructObjectPropertyString "guid" (Just val)--#if ENABLE_OVERLOADING-data DBusConnectionGuidPropertyInfo-instance AttrInfo DBusConnectionGuidPropertyInfo where-    type AttrAllowedOps DBusConnectionGuidPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionGuidPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusConnectionGuidPropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionGuidPropertyInfo = T.Text-    type AttrLabel DBusConnectionGuidPropertyInfo = "guid"-    type AttrOrigin DBusConnectionGuidPropertyInfo = DBusConnection-    attrGet _ = getDBusConnectionGuid-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionGuid-    attrClear _ = undefined-#endif---- VVV Prop "stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "IOStream"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusConnection #stream-@--}-getDBusConnectionStream :: (MonadIO m, IsDBusConnection o) => o -> m Gio.IOStream.IOStream-getDBusConnectionStream obj = liftIO $ checkUnexpectedNothing "getDBusConnectionStream" $ B.Properties.getObjectPropertyObject obj "stream" Gio.IOStream.IOStream--{- |-Construct a `GValueConstruct` with valid value for the “@stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusConnectionStream :: (IsDBusConnection o, Gio.IOStream.IsIOStream a) => a -> IO (GValueConstruct o)-constructDBusConnectionStream val = B.Properties.constructObjectPropertyObject "stream" (Just val)--#if ENABLE_OVERLOADING-data DBusConnectionStreamPropertyInfo-instance AttrInfo DBusConnectionStreamPropertyInfo where-    type AttrAllowedOps DBusConnectionStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionStreamPropertyInfo = Gio.IOStream.IsIOStream-    type AttrBaseTypeConstraint DBusConnectionStreamPropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionStreamPropertyInfo = Gio.IOStream.IOStream-    type AttrLabel DBusConnectionStreamPropertyInfo = "stream"-    type AttrOrigin DBusConnectionStreamPropertyInfo = DBusConnection-    attrGet _ = getDBusConnectionStream-    attrSet _ = undefined-    attrConstruct _ = constructDBusConnectionStream-    attrClear _ = undefined-#endif---- VVV Prop "unique-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@unique-name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusConnection #uniqueName-@--}-getDBusConnectionUniqueName :: (MonadIO m, IsDBusConnection o) => o -> m (Maybe T.Text)-getDBusConnectionUniqueName obj = liftIO $ B.Properties.getObjectPropertyString obj "unique-name"--#if ENABLE_OVERLOADING-data DBusConnectionUniqueNamePropertyInfo-instance AttrInfo DBusConnectionUniqueNamePropertyInfo where-    type AttrAllowedOps DBusConnectionUniqueNamePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusConnectionUniqueNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusConnectionUniqueNamePropertyInfo = IsDBusConnection-    type AttrGetType DBusConnectionUniqueNamePropertyInfo = (Maybe T.Text)-    type AttrLabel DBusConnectionUniqueNamePropertyInfo = "unique-name"-    type AttrOrigin DBusConnectionUniqueNamePropertyInfo = DBusConnection-    attrGet _ = getDBusConnectionUniqueName-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusConnection-type instance O.AttributeList DBusConnection = DBusConnectionAttributeList-type DBusConnectionAttributeList = ('[ '("address", DBusConnectionAddressPropertyInfo), '("authenticationObserver", DBusConnectionAuthenticationObserverPropertyInfo), '("capabilities", DBusConnectionCapabilitiesPropertyInfo), '("closed", DBusConnectionClosedPropertyInfo), '("exitOnClose", DBusConnectionExitOnClosePropertyInfo), '("flags", DBusConnectionFlagsPropertyInfo), '("guid", DBusConnectionGuidPropertyInfo), '("stream", DBusConnectionStreamPropertyInfo), '("uniqueName", DBusConnectionUniqueNamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusConnectionAddress :: AttrLabelProxy "address"-dBusConnectionAddress = AttrLabelProxy--dBusConnectionAuthenticationObserver :: AttrLabelProxy "authenticationObserver"-dBusConnectionAuthenticationObserver = AttrLabelProxy--dBusConnectionCapabilities :: AttrLabelProxy "capabilities"-dBusConnectionCapabilities = AttrLabelProxy--dBusConnectionClosed :: AttrLabelProxy "closed"-dBusConnectionClosed = AttrLabelProxy--dBusConnectionExitOnClose :: AttrLabelProxy "exitOnClose"-dBusConnectionExitOnClose = AttrLabelProxy--dBusConnectionFlags :: AttrLabelProxy "flags"-dBusConnectionFlags = AttrLabelProxy--dBusConnectionGuid :: AttrLabelProxy "guid"-dBusConnectionGuid = AttrLabelProxy--dBusConnectionStream :: AttrLabelProxy "stream"-dBusConnectionStream = AttrLabelProxy--dBusConnectionUniqueName :: AttrLabelProxy "uniqueName"-dBusConnectionUniqueName = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data DBusConnectionClosedSignalInfo-instance SignalInfo DBusConnectionClosedSignalInfo where-    type HaskellCallbackType DBusConnectionClosedSignalInfo = DBusConnectionClosedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusConnectionClosedCallback cb-        cb'' <- mk_DBusConnectionClosedCallback cb'-        connectSignalFunPtr obj "closed" cb'' connectMode--type instance O.SignalList DBusConnection = DBusConnectionSignalList-type DBusConnectionSignalList = ('[ '("closed", DBusConnectionClosedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusConnection::new_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult obtained from the #GAsyncReadyCallback\n    passed to g_dbus_connection_new().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_new_finish" g_dbus_connection_new_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusConnection.dBusConnectionNew'.--/Since: 2.26/--}-dBusConnectionNewFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback'-    passed to 'GI.Gio.Objects.DBusConnection.dBusConnectionNew'. -}-    -> m DBusConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusConnection.DBusConnection' or 'Nothing' if /@error@/ is set. Free-    with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionNewFinish res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_new_finish res'-        checkUnexpectedReturnNULL "dBusConnectionNewFinish" result-        result' <- (wrapObject DBusConnection) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method DBusConnection::new_for_address_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult obtained from the #GAsyncReadyCallback passed\n    to g_dbus_connection_new()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_new_for_address_finish" g_dbus_connection_new_for_address_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusConnection.dBusConnectionNewForAddress'.--/Since: 2.26/--}-dBusConnectionNewForAddressFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed-    to 'GI.Gio.Objects.DBusConnection.dBusConnectionNew' -}-    -> m DBusConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusConnection.DBusConnection' or 'Nothing' if /@error@/ is set. Free with-    'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionNewForAddressFinish res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_new_for_address_finish res'-        checkUnexpectedReturnNULL "dBusConnectionNewForAddressFinish" result-        result' <- (wrapObject DBusConnection) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method DBusConnection::new_for_address_sync--- method type : Constructor--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a D-Bus address", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags describing how to make the connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GDBusAuthObserver or %NULL", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_new_for_address_sync" g_dbus_connection_new_for_address_sync :: -    CString ->                              -- address : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"})-    Ptr Gio.DBusAuthObserver.DBusAuthObserver -> -- observer : TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)--{- |-Synchronously connects and sets up a D-Bus client connection for-exchanging D-Bus messages with an endpoint specified by /@address@/-which must be in the-<https://dbus.freedesktop.org/doc/dbus-specification.html#addresses D-Bus address format>.--This constructor can only be used to initiate client-side-connections - use 'GI.Gio.Objects.DBusConnection.dBusConnectionNewSync' if you need to act-as the server. In particular, /@flags@/ cannot contain the-'GI.Gio.Flags.DBusConnectionFlagsAuthenticationServer' or-'GI.Gio.Flags.DBusConnectionFlagsAuthenticationAllowAnonymous' flags.--This is a synchronous failable constructor. See-'GI.Gio.Objects.DBusConnection.dBusConnectionNewForAddress' for the asynchronous version.--If /@observer@/ is not 'Nothing' it may be used to control the-authentication process.--/Since: 2.26/--}-dBusConnectionNewForAddressSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusAuthObserver.IsDBusAuthObserver a, Gio.Cancellable.IsCancellable b) =>-    T.Text-    {- ^ /@address@/: a D-Bus address -}-    -> [Gio.Flags.DBusConnectionFlags]-    {- ^ /@flags@/: flags describing how to make the connection -}-    -> Maybe (a)-    {- ^ /@observer@/: a 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' or 'Nothing' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m DBusConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusConnection.DBusConnection' or 'Nothing' if /@error@/ is set. Free with-    'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionNewForAddressSync address flags observer cancellable = liftIO $ do-    address' <- textToCString address-    let flags' = gflagsToWord flags-    maybeObserver <- case observer of-        Nothing -> return nullPtr-        Just jObserver -> do-            jObserver' <- unsafeManagedPtrCastPtr jObserver-            return jObserver'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_new_for_address_sync address' flags' maybeObserver maybeCancellable-        checkUnexpectedReturnNULL "dBusConnectionNewForAddressSync" result-        result' <- (wrapObject DBusConnection) result-        whenJust observer touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem address'-        return result'-     ) (do-        freeMem address'-     )--#if ENABLE_OVERLOADING-#endif---- method DBusConnection::new_sync--- method type : Constructor--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the GUID to use if a authenticating as a server or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags describing how to make the connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GDBusAuthObserver or %NULL", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_new_sync" g_dbus_connection_new_sync :: -    Ptr Gio.IOStream.IOStream ->            -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    CString ->                              -- guid : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"})-    Ptr Gio.DBusAuthObserver.DBusAuthObserver -> -- observer : TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusConnection)--{- |-Synchronously sets up a D-Bus connection for exchanging D-Bus messages-with the end represented by /@stream@/.--If /@stream@/ is a 'GI.Gio.Objects.SocketConnection.SocketConnection', then the corresponding 'GI.Gio.Objects.Socket.Socket'-will be put into non-blocking mode.--The D-Bus connection will interact with /@stream@/ from a worker thread.-As a result, the caller should not interact with /@stream@/ after this-method has been called, except by calling 'GI.GObject.Objects.Object.objectUnref' on it.--If /@observer@/ is not 'Nothing' it may be used to control the-authentication process.--This is a synchronous failable constructor. See-'GI.Gio.Objects.DBusConnection.dBusConnectionNew' for the asynchronous version.--/Since: 2.26/--}-dBusConnectionNewSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.IOStream.IsIOStream a, Gio.DBusAuthObserver.IsDBusAuthObserver b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> Maybe (T.Text)-    {- ^ /@guid@/: the GUID to use if a authenticating as a server or 'Nothing' -}-    -> [Gio.Flags.DBusConnectionFlags]-    {- ^ /@flags@/: flags describing how to make the connection -}-    -> Maybe (b)-    {- ^ /@observer@/: a 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' or 'Nothing' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m DBusConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusConnection.DBusConnection' or 'Nothing' if /@error@/ is set. Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionNewSync stream guid flags observer cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeGuid <- case guid of-        Nothing -> return nullPtr-        Just jGuid -> do-            jGuid' <- textToCString jGuid-            return jGuid'-    let flags' = gflagsToWord flags-    maybeObserver <- case observer of-        Nothing -> return nullPtr-        Just jObserver -> do-            jObserver' <- unsafeManagedPtrCastPtr jObserver-            return jObserver'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_new_sync stream' maybeGuid flags' maybeObserver maybeCancellable-        checkUnexpectedReturnNULL "dBusConnectionNewSync" result-        result' <- (wrapObject DBusConnection) result-        touchManagedPtr stream-        whenJust observer touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem maybeGuid-        return result'-     ) (do-        freeMem maybeGuid-     )--#if ENABLE_OVERLOADING-#endif---- method DBusConnection::add_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_function", argType = TInterface (Name {namespace = "Gio", name = "DBusMessageFilterFunction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a filter function", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data to pass to @filter_function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "function to free @user_data with when filter\n    is removed or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_add_filter" g_dbus_connection_add_filter :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    FunPtr Gio.Callbacks.C_DBusMessageFilterFunction -> -- filter_function : TInterface (Name {namespace = "Gio", name = "DBusMessageFilterFunction"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- user_data_free_func : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO Word32--{- |-Adds a message filter. Filters are handlers that are run on all-incoming and outgoing messages, prior to standard dispatch. Filters-are run in the order that they were added.  The same handler can be-added as a filter more than once, in which case it will be run more-than once.  Filters added during a filter callback won\'t be run on-the message being processed. Filter functions are allowed to modify-and even drop messages.--Note that filters are run in a dedicated message handling thread so-they can\'t block and, generally, can\'t do anything but signal a-worker thread. Also note that filters are rarely needed - use API-such as 'GI.Gio.Objects.DBusConnection.dBusConnectionSendMessageWithReply',-'GI.Gio.Objects.DBusConnection.dBusConnectionSignalSubscribe' or 'GI.Gio.Objects.DBusConnection.dBusConnectionCall' instead.--If a filter consumes an incoming message the message is not-dispatched anywhere else - not even the standard dispatch machinery-(that API such as 'GI.Gio.Objects.DBusConnection.dBusConnectionSignalSubscribe' and-'GI.Gio.Objects.DBusConnection.dBusConnectionSendMessageWithReply' relies on) will see the-message. Similarly, if a filter consumes an outgoing message, the-message will not be sent to the other peer.--If /@userDataFreeFunc@/ is non-'Nothing', it will be called (in the-thread-default main context of the thread you are calling this-method from) at some point after /@userData@/ is no longer-needed. (It is not guaranteed to be called synchronously when the-filter is removed, and may be called after /@connection@/ has been-destroyed.)--/Since: 2.26/--}-dBusConnectionAddFilter ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Gio.Callbacks.DBusMessageFilterFunction-    {- ^ /@filterFunction@/: a filter function -}-    -> m Word32-    {- ^ __Returns:__ a filter identifier that can be used with-    'GI.Gio.Objects.DBusConnection.dBusConnectionRemoveFilter' -}-dBusConnectionAddFilter connection filterFunction = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    filterFunction' <- Gio.Callbacks.mk_DBusMessageFilterFunction (Gio.Callbacks.wrap_DBusMessageFilterFunction Nothing (Gio.Callbacks.drop_closures_DBusMessageFilterFunction filterFunction))-    let userData = castFunPtrToPtr filterFunction'-    let userDataFreeFunc = safeFreeFunPtrPtr-    result <- g_dbus_connection_add_filter connection' filterFunction' userData userDataFreeFunc-    touchManagedPtr connection-    return result--#if ENABLE_OVERLOADING-data DBusConnectionAddFilterMethodInfo-instance (signature ~ (Gio.Callbacks.DBusMessageFilterFunction -> m Word32), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionAddFilterMethodInfo a signature where-    overloadedMethod _ = dBusConnectionAddFilter--#endif---- method DBusConnection::call--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a unique or well-known bus name or %NULL if\n    @connection is not a message bus connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path of remote object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "D-Bus interface to invoke method on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the method to invoke", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant tuple with parameters for the method\n    or %NULL if not passing parameters", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected type of the reply (which will be a\n    tuple), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusCallFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags from the #GDBusCallFlags enumeration", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout in milliseconds, -1 to use the default\n    timeout or %G_MAXINT for no timeout", 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 "a #GAsyncReadyCallback to call when the request\n    is satisfied or %NULL if you don't care about the result of the\n    method invocation", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 11, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the 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 "g_dbus_connection_call" g_dbus_connection_call :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    Ptr GLib.VariantType.VariantType ->     -- reply_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusCallFlags"})-    Int32 ->                                -- timeout_msec : 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 invokes the /@methodName@/ method on the-/@interfaceName@/ D-Bus interface on the remote object at-/@objectPath@/ owned by /@busName@/.--If /@connection@/ is closed then the operation will fail with-'GI.Gio.Enums.IOErrorEnumClosed'. If /@cancellable@/ is canceled, the operation will-fail with 'GI.Gio.Enums.IOErrorEnumCancelled'. If /@parameters@/ contains a value-not compatible with the D-Bus protocol, the operation fails with-'GI.Gio.Enums.IOErrorEnumInvalidArgument'.--If /@replyType@/ is non-'Nothing' then the reply will be checked for having this type and an-error will be raised if it does not match.  Said another way, if you give a /@replyType@/-then any non-'Nothing' return value will be of this type. Unless it’s-@/G_VARIANT_TYPE_UNIT/@, the /@replyType@/ will be a tuple containing one or more-values.--If the /@parameters@/ 'GVariant' is floating, it is consumed. This allows-convenient \'inline\' use of @/g_variant_new()/@, e.g.:--=== /C code/->-> g_dbus_connection_call (connection,->                         "org.freedesktop.StringThings",->                         "/org/freedesktop/StringThings",->                         "org.freedesktop.StringThings",->                         "TwoStrings",->                         g_variant_new ("(ss)",->                                        "Thing One",->                                        "Thing Two"),->                         NULL,->                         G_DBUS_CALL_FLAGS_NONE,->                         -1,->                         NULL,->                         (GAsyncReadyCallback) two_strings_done,->                         NULL);---This is an asynchronous method. When the operation is finished,-/@callback@/ will be invoked in the-[thread-default main context][g-main-context-push-thread-default]-of the thread you are calling this method from. You can then call-'GI.Gio.Objects.DBusConnection.dBusConnectionCallFinish' to get the result of the operation.-See 'GI.Gio.Objects.DBusConnection.dBusConnectionCallSync' for the synchronous version of this-function.--If /@callback@/ is 'Nothing' then the D-Bus method call message will be sent with-the 'GI.Gio.Flags.DBusMessageFlagsNoReplyExpected' flag set.--/Since: 2.26/--}-dBusConnectionCall ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (T.Text)-    {- ^ /@busName@/: a unique or well-known bus name or 'Nothing' if-    /@connection@/ is not a message bus connection -}-    -> T.Text-    {- ^ /@objectPath@/: path of remote object -}-    -> T.Text-    {- ^ /@interfaceName@/: D-Bus interface to invoke method on -}-    -> T.Text-    {- ^ /@methodName@/: the name of the method to invoke -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: a 'GVariant' tuple with parameters for the method-    or 'Nothing' if not passing parameters -}-    -> Maybe (GLib.VariantType.VariantType)-    {- ^ /@replyType@/: the expected type of the reply (which will be a-    tuple), or 'Nothing' -}-    -> [Gio.Flags.DBusCallFlags]-    {- ^ /@flags@/: flags from the 'GI.Gio.Flags.DBusCallFlags' enumeration -}-    -> Int32-    {- ^ /@timeoutMsec@/: the timeout in milliseconds, -1 to use the default-    timeout or @/G_MAXINT/@ for no timeout -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request-    is satisfied or 'Nothing' if you don\'t care about the result of the-    method invocation -}-    -> m ()-dBusConnectionCall connection busName objectPath interfaceName methodName parameters replyType flags timeoutMsec cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeBusName <- case busName of-        Nothing -> return nullPtr-        Just jBusName -> do-            jBusName' <- textToCString jBusName-            return jBusName'-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeReplyType <- case replyType of-        Nothing -> return nullPtr-        Just jReplyType -> do-            jReplyType' <- unsafeManagedPtrGetPtr jReplyType-            return jReplyType'-    let flags' = gflagsToWord flags-    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-    g_dbus_connection_call connection' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeCancellable maybeCallback userData-    touchManagedPtr connection-    whenJust parameters touchManagedPtr-    whenJust replyType touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem maybeBusName-    freeMem objectPath'-    freeMem interfaceName'-    freeMem methodName'-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionCallMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType.VariantType) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DBusConnectionCallMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCall--#endif---- method DBusConnection::call_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult obtained from the #GAsyncReadyCallback passed to g_dbus_connection_call()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_call_finish" g_dbus_connection_call_finish :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusConnection.dBusConnectionCall'.--/Since: 2.26/--}-dBusConnectionCallFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed to 'GI.Gio.Objects.DBusConnection.dBusConnectionCall' -}-    -> m GVariant-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set. Otherwise a 'GVariant' tuple with-    return values. Free with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionCallFinish connection res = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_call_finish connection' res'-        checkUnexpectedReturnNULL "dBusConnectionCallFinish" result-        result' <- B.GVariant.wrapGVariantPtr result-        touchManagedPtr connection-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusConnectionCallFinishMethodInfo-instance (signature ~ (b -> m GVariant), MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DBusConnectionCallFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallFinish--#endif---- method DBusConnection::call_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a unique or well-known bus name or %NULL if\n    @connection is not a message bus connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path of remote object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "D-Bus interface to invoke method on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the method to invoke", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant tuple with parameters for the method\n    or %NULL if not passing parameters", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected type of the reply, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusCallFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags from the #GDBusCallFlags enumeration", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout in milliseconds, -1 to use the default\n    timeout or %G_MAXINT for no timeout", 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}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_call_sync" g_dbus_connection_call_sync :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    Ptr GLib.VariantType.VariantType ->     -- reply_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusCallFlags"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Synchronously invokes the /@methodName@/ method on the-/@interfaceName@/ D-Bus interface on the remote object at-/@objectPath@/ owned by /@busName@/.--If /@connection@/ is closed then the operation will fail with-'GI.Gio.Enums.IOErrorEnumClosed'. If /@cancellable@/ is canceled, the-operation will fail with 'GI.Gio.Enums.IOErrorEnumCancelled'. If /@parameters@/-contains a value not compatible with the D-Bus protocol, the operation-fails with 'GI.Gio.Enums.IOErrorEnumInvalidArgument'.--If /@replyType@/ is non-'Nothing' then the reply will be checked for having-this type and an error will be raised if it does not match.  Said-another way, if you give a /@replyType@/ then any non-'Nothing' return-value will be of this type.--If the /@parameters@/ 'GVariant' is floating, it is consumed.-This allows convenient \'inline\' use of @/g_variant_new()/@, e.g.:--=== /C code/->-> g_dbus_connection_call_sync (connection,->                              "org.freedesktop.StringThings",->                              "/org/freedesktop/StringThings",->                              "org.freedesktop.StringThings",->                              "TwoStrings",->                              g_variant_new ("(ss)",->                                             "Thing One",->                                             "Thing Two"),->                              NULL,->                              G_DBUS_CALL_FLAGS_NONE,->                              -1,->                              NULL,->                              &error);---The calling thread is blocked until a reply is received. See-'GI.Gio.Objects.DBusConnection.dBusConnectionCall' for the asynchronous version of-this method.--/Since: 2.26/--}-dBusConnectionCallSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (T.Text)-    {- ^ /@busName@/: a unique or well-known bus name or 'Nothing' if-    /@connection@/ is not a message bus connection -}-    -> T.Text-    {- ^ /@objectPath@/: path of remote object -}-    -> T.Text-    {- ^ /@interfaceName@/: D-Bus interface to invoke method on -}-    -> T.Text-    {- ^ /@methodName@/: the name of the method to invoke -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: a 'GVariant' tuple with parameters for the method-    or 'Nothing' if not passing parameters -}-    -> Maybe (GLib.VariantType.VariantType)-    {- ^ /@replyType@/: the expected type of the reply, or 'Nothing' -}-    -> [Gio.Flags.DBusCallFlags]-    {- ^ /@flags@/: flags from the 'GI.Gio.Flags.DBusCallFlags' enumeration -}-    -> Int32-    {- ^ /@timeoutMsec@/: the timeout in milliseconds, -1 to use the default-    timeout or @/G_MAXINT/@ for no timeout -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m GVariant-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set. Otherwise a 'GVariant' tuple with-    return values. Free with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionCallSync connection busName objectPath interfaceName methodName parameters replyType flags timeoutMsec cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeBusName <- case busName of-        Nothing -> return nullPtr-        Just jBusName -> do-            jBusName' <- textToCString jBusName-            return jBusName'-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeReplyType <- case replyType of-        Nothing -> return nullPtr-        Just jReplyType -> do-            jReplyType' <- unsafeManagedPtrGetPtr jReplyType-            return jReplyType'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_call_sync connection' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeCancellable-        checkUnexpectedReturnNULL "dBusConnectionCallSync" result-        result' <- B.GVariant.wrapGVariantPtr result-        touchManagedPtr connection-        whenJust parameters touchManagedPtr-        whenJust replyType touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem maybeBusName-        freeMem objectPath'-        freeMem interfaceName'-        freeMem methodName'-        return result'-     ) (do-        freeMem maybeBusName-        freeMem objectPath'-        freeMem interfaceName'-        freeMem methodName'-     )--#if ENABLE_OVERLOADING-data DBusConnectionCallSyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType.VariantType) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> m GVariant), MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DBusConnectionCallSyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallSync--#endif---- method DBusConnection::call_with_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a unique or well-known bus name or %NULL if\n    @connection is not a message bus connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path of remote object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "D-Bus interface to invoke method on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the method to invoke", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant tuple with parameters for the method\n    or %NULL if not passing parameters", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected type of the reply, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusCallFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags from the #GDBusCallFlags enumeration", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout in milliseconds, -1 to use the default\n    timeout or %G_MAXINT for no timeout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GUnixFDList or %NULL", 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 "a #GAsyncReadyCallback to call when the request is\n    satisfied or %NULL if you don't * care about the result of the\n    method invocation", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 12, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The 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 "g_dbus_connection_call_with_unix_fd_list" g_dbus_connection_call_with_unix_fd_list :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    Ptr GLib.VariantType.VariantType ->     -- reply_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusCallFlags"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Gio.UnixFDList.UnixFDList ->        -- fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    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 ()--{- |-Like 'GI.Gio.Objects.DBusConnection.dBusConnectionCall' but also takes a 'GI.Gio.Objects.UnixFDList.UnixFDList' object.--This method is only available on UNIX.--/Since: 2.30/--}-dBusConnectionCallWithUnixFdList ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (T.Text)-    {- ^ /@busName@/: a unique or well-known bus name or 'Nothing' if-    /@connection@/ is not a message bus connection -}-    -> T.Text-    {- ^ /@objectPath@/: path of remote object -}-    -> T.Text-    {- ^ /@interfaceName@/: D-Bus interface to invoke method on -}-    -> T.Text-    {- ^ /@methodName@/: the name of the method to invoke -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: a 'GVariant' tuple with parameters for the method-    or 'Nothing' if not passing parameters -}-    -> Maybe (GLib.VariantType.VariantType)-    {- ^ /@replyType@/: the expected type of the reply, or 'Nothing' -}-    -> [Gio.Flags.DBusCallFlags]-    {- ^ /@flags@/: flags from the 'GI.Gio.Flags.DBusCallFlags' enumeration -}-    -> Int32-    {- ^ /@timeoutMsec@/: the timeout in milliseconds, -1 to use the default-    timeout or @/G_MAXINT/@ for no timeout -}-    -> Maybe (b)-    {- ^ /@fdList@/: a 'GI.Gio.Objects.UnixFDList.UnixFDList' or 'Nothing' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is-    satisfied or 'Nothing' if you don\'t * care about the result of the-    method invocation -}-    -> m ()-dBusConnectionCallWithUnixFdList connection busName objectPath interfaceName methodName parameters replyType flags timeoutMsec fdList cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeBusName <- case busName of-        Nothing -> return nullPtr-        Just jBusName -> do-            jBusName' <- textToCString jBusName-            return jBusName'-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeReplyType <- case replyType of-        Nothing -> return nullPtr-        Just jReplyType -> do-            jReplyType' <- unsafeManagedPtrGetPtr jReplyType-            return jReplyType'-    let flags' = gflagsToWord flags-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            jFdList' <- unsafeManagedPtrCastPtr jFdList-            return jFdList'-    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-    g_dbus_connection_call_with_unix_fd_list connection' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeFdList maybeCancellable maybeCallback userData-    touchManagedPtr connection-    whenJust parameters touchManagedPtr-    whenJust replyType touchManagedPtr-    whenJust fdList touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem maybeBusName-    freeMem objectPath'-    freeMem interfaceName'-    freeMem methodName'-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionCallWithUnixFdListMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType.VariantType) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDBusConnection a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DBusConnectionCallWithUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallWithUnixFdList--#endif---- method DBusConnection::call_with_unix_fd_list_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for a #GUnixFDList or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n    g_dbus_connection_call_with_unix_fd_list()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_call_with_unix_fd_list_finish" g_dbus_connection_call_with_unix_fd_list_finish :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr (Ptr Gio.UnixFDList.UnixFDList) ->  -- out_fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusConnection.dBusConnectionCallWithUnixFdList'.--/Since: 2.30/--}-dBusConnectionCallWithUnixFdListFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed to-    'GI.Gio.Objects.DBusConnection.dBusConnectionCallWithUnixFdList' -}-    -> m ((GVariant, Gio.UnixFDList.UnixFDList))-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set. Otherwise a 'GVariant' tuple with-    return values. Free with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionCallWithUnixFdListFinish connection res = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    outFdList <- allocMem :: IO (Ptr (Ptr Gio.UnixFDList.UnixFDList))-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_call_with_unix_fd_list_finish connection' outFdList res'-        checkUnexpectedReturnNULL "dBusConnectionCallWithUnixFdListFinish" result-        result' <- B.GVariant.wrapGVariantPtr result-        outFdList' <- peek outFdList-        outFdList'' <- (wrapObject Gio.UnixFDList.UnixFDList) outFdList'-        touchManagedPtr connection-        touchManagedPtr res-        freeMem outFdList-        return (result', outFdList'')-     ) (do-        freeMem outFdList-     )--#if ENABLE_OVERLOADING-data DBusConnectionCallWithUnixFdListFinishMethodInfo-instance (signature ~ (b -> m ((GVariant, Gio.UnixFDList.UnixFDList))), MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DBusConnectionCallWithUnixFdListFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallWithUnixFdListFinish--#endif---- method DBusConnection::call_with_unix_fd_list_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a unique or well-known bus name or %NULL\n    if @connection is not a message bus connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path of remote object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "D-Bus interface to invoke method on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the method to invoke", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant tuple with parameters for\n    the method or %NULL if not passing parameters", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected type of the reply, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusCallFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags from the #GDBusCallFlags enumeration", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout in milliseconds, -1 to use the default\n    timeout or %G_MAXINT for no timeout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GUnixFDList or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for a #GUnixFDList or %NULL", 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 "a #GCancellable or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_call_with_unix_fd_list_sync" g_dbus_connection_call_with_unix_fd_list_sync :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    Ptr GLib.VariantType.VariantType ->     -- reply_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusCallFlags"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Gio.UnixFDList.UnixFDList ->        -- fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Ptr (Ptr Gio.UnixFDList.UnixFDList) ->  -- out_fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Like 'GI.Gio.Objects.DBusConnection.dBusConnectionCallSync' but also takes and returns 'GI.Gio.Objects.UnixFDList.UnixFDList' objects.--This method is only available on UNIX.--/Since: 2.30/--}-dBusConnectionCallWithUnixFdListSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (T.Text)-    {- ^ /@busName@/: a unique or well-known bus name or 'Nothing'-    if /@connection@/ is not a message bus connection -}-    -> T.Text-    {- ^ /@objectPath@/: path of remote object -}-    -> T.Text-    {- ^ /@interfaceName@/: D-Bus interface to invoke method on -}-    -> T.Text-    {- ^ /@methodName@/: the name of the method to invoke -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: a 'GVariant' tuple with parameters for-    the method or 'Nothing' if not passing parameters -}-    -> Maybe (GLib.VariantType.VariantType)-    {- ^ /@replyType@/: the expected type of the reply, or 'Nothing' -}-    -> [Gio.Flags.DBusCallFlags]-    {- ^ /@flags@/: flags from the 'GI.Gio.Flags.DBusCallFlags' enumeration -}-    -> Int32-    {- ^ /@timeoutMsec@/: the timeout in milliseconds, -1 to use the default-    timeout or @/G_MAXINT/@ for no timeout -}-    -> Maybe (b)-    {- ^ /@fdList@/: a 'GI.Gio.Objects.UnixFDList.UnixFDList' or 'Nothing' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m ((GVariant, Gio.UnixFDList.UnixFDList))-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set. Otherwise a 'GVariant' tuple with-    return values. Free with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionCallWithUnixFdListSync connection busName objectPath interfaceName methodName parameters replyType flags timeoutMsec fdList cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeBusName <- case busName of-        Nothing -> return nullPtr-        Just jBusName -> do-            jBusName' <- textToCString jBusName-            return jBusName'-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeReplyType <- case replyType of-        Nothing -> return nullPtr-        Just jReplyType -> do-            jReplyType' <- unsafeManagedPtrGetPtr jReplyType-            return jReplyType'-    let flags' = gflagsToWord flags-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            jFdList' <- unsafeManagedPtrCastPtr jFdList-            return jFdList'-    outFdList <- allocMem :: IO (Ptr (Ptr Gio.UnixFDList.UnixFDList))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_call_with_unix_fd_list_sync connection' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeFdList outFdList maybeCancellable-        checkUnexpectedReturnNULL "dBusConnectionCallWithUnixFdListSync" result-        result' <- B.GVariant.wrapGVariantPtr result-        outFdList' <- peek outFdList-        outFdList'' <- (wrapObject Gio.UnixFDList.UnixFDList) outFdList'-        touchManagedPtr connection-        whenJust parameters touchManagedPtr-        whenJust replyType touchManagedPtr-        whenJust fdList touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem maybeBusName-        freeMem objectPath'-        freeMem interfaceName'-        freeMem methodName'-        freeMem outFdList-        return (result', outFdList'')-     ) (do-        freeMem maybeBusName-        freeMem objectPath'-        freeMem interfaceName'-        freeMem methodName'-        freeMem outFdList-     )--#if ENABLE_OVERLOADING-data DBusConnectionCallWithUnixFdListSyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType.VariantType) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> m ((GVariant, Gio.UnixFDList.UnixFDList))), MonadIO m, IsDBusConnection a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DBusConnectionCallWithUnixFdListSyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCallWithUnixFdListSync--#endif---- method DBusConnection::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", 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 "a #GAsyncReadyCallback to call when the request is\n    satisfied or %NULL if you don't care about the result", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The 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 "g_dbus_connection_close" g_dbus_connection_close :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    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 ()--{- |-Closes /@connection@/. Note that this never causes the process to-exit (this might only happen if the other end of a shared message-bus connection disconnects, see 'GI.Gio.Objects.DBusConnection.DBusConnection':@/exit-on-close/@).--Once the connection is closed, operations such as sending a message-will return with the error 'GI.Gio.Enums.IOErrorEnumClosed'. Closing a connection-will not automatically flush the connection so queued messages may-be lost. Use 'GI.Gio.Objects.DBusConnection.dBusConnectionFlush' if you need such guarantees.--If /@connection@/ is already closed, this method fails with-'GI.Gio.Enums.IOErrorEnumClosed'.--When /@connection@/ has been closed, the 'GI.Gio.Objects.DBusConnection.DBusConnection'::@/closed/@-signal is emitted in the-[thread-default main context][g-main-context-push-thread-default]-of the thread that /@connection@/ was constructed in.--This is an asynchronous method. When the operation is finished,-/@callback@/ will be invoked in the-[thread-default main context][g-main-context-push-thread-default]-of the thread you are calling this method from. You can-then call 'GI.Gio.Objects.DBusConnection.dBusConnectionCloseFinish' to get the result of the-operation. See 'GI.Gio.Objects.DBusConnection.dBusConnectionCloseSync' for the synchronous-version.--/Since: 2.26/--}-dBusConnectionClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is-    satisfied or 'Nothing' if you don\'t care about the result -}-    -> m ()-dBusConnectionClose connection cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    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-    g_dbus_connection_close connection' maybeCancellable maybeCallback userData-    touchManagedPtr connection-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionCloseMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DBusConnectionCloseMethodInfo a signature where-    overloadedMethod _ = dBusConnectionClose--#endif---- method DBusConnection::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult obtained from the #GAsyncReadyCallback passed\n    to g_dbus_connection_close()", 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 "g_dbus_connection_close_finish" g_dbus_connection_close_finish :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusConnection.dBusConnectionClose'.--/Since: 2.26/--}-dBusConnectionCloseFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed-    to 'GI.Gio.Objects.DBusConnection.dBusConnectionClose' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionCloseFinish connection res = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_dbus_connection_close_finish connection' res'-        touchManagedPtr connection-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusConnectionCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DBusConnectionCloseFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCloseFinish--#endif---- method DBusConnection::close_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_close_sync" g_dbus_connection_close_sync :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Synchronously closes /@connection@/. The calling thread is blocked-until this is done. See 'GI.Gio.Objects.DBusConnection.dBusConnectionClose' for the-asynchronous version of this method and more details about what it-does.--/Since: 2.26/--}-dBusConnectionCloseSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionCloseSync connection cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_dbus_connection_close_sync connection' maybeCancellable-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusConnectionCloseSyncMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DBusConnectionCloseSyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionCloseSync--#endif---- method DBusConnection::emit_signal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination_bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the unique bus name for the destination\n    for the signal or %NULL to emit to all listeners", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path of remote object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "D-Bus interface to emit a signal on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the signal to emit", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant tuple with parameters for the signal\n             or %NULL if not passing parameters", 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 "g_dbus_connection_emit_signal" g_dbus_connection_emit_signal :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- destination_bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    CString ->                              -- signal_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Emits a signal.--If the parameters GVariant is floating, it is consumed.--This can only fail if /@parameters@/ is not compatible with the D-Bus protocol-('GI.Gio.Enums.IOErrorEnumInvalidArgument'), or if /@connection@/ has been closed-('GI.Gio.Enums.IOErrorEnumClosed').--/Since: 2.26/--}-dBusConnectionEmitSignal ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (T.Text)-    {- ^ /@destinationBusName@/: the unique bus name for the destination-    for the signal or 'Nothing' to emit to all listeners -}-    -> T.Text-    {- ^ /@objectPath@/: path of remote object -}-    -> T.Text-    {- ^ /@interfaceName@/: D-Bus interface to emit a signal on -}-    -> T.Text-    {- ^ /@signalName@/: the name of the signal to emit -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: a 'GVariant' tuple with parameters for the signal-             or 'Nothing' if not passing parameters -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionEmitSignal connection destinationBusName objectPath interfaceName signalName parameters = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeDestinationBusName <- case destinationBusName of-        Nothing -> return nullPtr-        Just jDestinationBusName -> do-            jDestinationBusName' <- textToCString jDestinationBusName-            return jDestinationBusName'-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    signalName' <- textToCString signalName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    onException (do-        _ <- propagateGError $ g_dbus_connection_emit_signal connection' maybeDestinationBusName objectPath' interfaceName' signalName' maybeParameters-        touchManagedPtr connection-        whenJust parameters touchManagedPtr-        freeMem maybeDestinationBusName-        freeMem objectPath'-        freeMem interfaceName'-        freeMem signalName'-        return ()-     ) (do-        freeMem maybeDestinationBusName-        freeMem objectPath'-        freeMem interfaceName'-        freeMem signalName'-     )--#if ENABLE_OVERLOADING-data DBusConnectionEmitSignalMethodInfo-instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionEmitSignalMethodInfo a signature where-    overloadedMethod _ = dBusConnectionEmitSignal--#endif---- method DBusConnection::export_action_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a D-Bus object path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface (Name {namespace = "Gio", name = "ActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_export_action_group" g_dbus_connection_export_action_group :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr Gio.ActionGroup.ActionGroup ->      -- action_group : TInterface (Name {namespace = "Gio", name = "ActionGroup"})-    Ptr (Ptr GError) ->                     -- error-    IO Word32--{- |-Exports /@actionGroup@/ on /@connection@/ at /@objectPath@/.--The implemented D-Bus API should be considered private.  It is-subject to change in the future.--A given object path can only have one action group exported on it.-If this constraint is violated, the export will fail and 0 will be-returned (with /@error@/ set accordingly).--You can unexport the action group using-'GI.Gio.Objects.DBusConnection.dBusConnectionUnexportActionGroup' with the return value of-this function.--The thread default main context is taken at the time of this call.-All incoming action activations and state change requests are-reported from this context.  Any changes on the action group that-cause it to emit signals must also come from this same context.-Since incoming action activations and state change requests are-rather likely to cause changes on the action group, this effectively-limits a given action group to being exported from only one main-context.--/Since: 2.32/--}-dBusConnectionExportActionGroup ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.ActionGroup.IsActionGroup b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> T.Text-    {- ^ /@objectPath@/: a D-Bus object path -}-    -> b-    {- ^ /@actionGroup@/: a 'GI.Gio.Interfaces.ActionGroup.ActionGroup' -}-    -> m Word32-    {- ^ __Returns:__ the ID of the export (never zero), or 0 in case of failure /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionExportActionGroup connection objectPath actionGroup = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    objectPath' <- textToCString objectPath-    actionGroup' <- unsafeManagedPtrCastPtr actionGroup-    onException (do-        result <- propagateGError $ g_dbus_connection_export_action_group connection' objectPath' actionGroup'-        touchManagedPtr connection-        touchManagedPtr actionGroup-        freeMem objectPath'-        return result-     ) (do-        freeMem objectPath'-     )--#if ENABLE_OVERLOADING-data DBusConnectionExportActionGroupMethodInfo-instance (signature ~ (T.Text -> b -> m Word32), MonadIO m, IsDBusConnection a, Gio.ActionGroup.IsActionGroup b) => O.MethodInfo DBusConnectionExportActionGroupMethodInfo a signature where-    overloadedMethod _ = dBusConnectionExportActionGroup--#endif---- method DBusConnection::export_menu_model--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a D-Bus object path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_export_menu_model" g_dbus_connection_export_menu_model :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- menu : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    Ptr (Ptr GError) ->                     -- error-    IO Word32--{- |-Exports /@menu@/ on /@connection@/ at /@objectPath@/.--The implemented D-Bus API should be considered private.-It is subject to change in the future.--An object path can only have one menu model exported on it. If this-constraint is violated, the export will fail and 0 will be-returned (with /@error@/ set accordingly).--You can unexport the menu model using-'GI.Gio.Objects.DBusConnection.dBusConnectionUnexportMenuModel' with the return value of-this function.--/Since: 2.32/--}-dBusConnectionExportMenuModel ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> T.Text-    {- ^ /@objectPath@/: a D-Bus object path -}-    -> b-    {- ^ /@menu@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> m Word32-    {- ^ __Returns:__ the ID of the export (never zero), or 0 in case of failure /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionExportMenuModel connection objectPath menu = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    objectPath' <- textToCString objectPath-    menu' <- unsafeManagedPtrCastPtr menu-    onException (do-        result <- propagateGError $ g_dbus_connection_export_menu_model connection' objectPath' menu'-        touchManagedPtr connection-        touchManagedPtr menu-        freeMem objectPath'-        return result-     ) (do-        freeMem objectPath'-     )--#if ENABLE_OVERLOADING-data DBusConnectionExportMenuModelMethodInfo-instance (signature ~ (T.Text -> b -> m Word32), MonadIO m, IsDBusConnection a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo DBusConnectionExportMenuModelMethodInfo a signature where-    overloadedMethod _ = dBusConnectionExportMenuModel--#endif---- method DBusConnection::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", 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 "a #GAsyncReadyCallback to call when the\n    request is satisfied or %NULL if you don't care about the result", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The 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 "g_dbus_connection_flush" g_dbus_connection_flush :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    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 flushes /@connection@/, that is, writes all queued-outgoing message to the transport and then flushes the transport-(using 'GI.Gio.Objects.OutputStream.outputStreamFlushAsync'). This is useful in programs-that wants to emit a D-Bus signal and then exit immediately. Without-flushing the connection, there is no guaranteed that the message has-been sent to the networking buffers in the OS kernel.--This is an asynchronous method. When the operation is finished,-/@callback@/ will be invoked in the-[thread-default main context][g-main-context-push-thread-default]-of the thread you are calling this method from. You can-then call 'GI.Gio.Objects.DBusConnection.dBusConnectionFlushFinish' to get the result of the-operation. See 'GI.Gio.Objects.DBusConnection.dBusConnectionFlushSync' for the synchronous-version.--/Since: 2.26/--}-dBusConnectionFlush ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the-    request is satisfied or 'Nothing' if you don\'t care about the result -}-    -> m ()-dBusConnectionFlush connection cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    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-    g_dbus_connection_flush connection' maybeCancellable maybeCallback userData-    touchManagedPtr connection-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionFlushMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DBusConnectionFlushMethodInfo a signature where-    overloadedMethod _ = dBusConnectionFlush--#endif---- method DBusConnection::flush_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult obtained from the #GAsyncReadyCallback passed\n    to g_dbus_connection_flush()", 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 "g_dbus_connection_flush_finish" g_dbus_connection_flush_finish :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusConnection.dBusConnectionFlush'.--/Since: 2.26/--}-dBusConnectionFlushFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed-    to 'GI.Gio.Objects.DBusConnection.dBusConnectionFlush' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionFlushFinish connection res = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        _ <- propagateGError $ g_dbus_connection_flush_finish connection' res'-        touchManagedPtr connection-        touchManagedPtr res-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusConnectionFlushFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DBusConnectionFlushFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionFlushFinish--#endif---- method DBusConnection::flush_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_flush_sync" g_dbus_connection_flush_sync :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Synchronously flushes /@connection@/. The calling thread is blocked-until this is done. See 'GI.Gio.Objects.DBusConnection.dBusConnectionFlush' for the-asynchronous version of this method and more details about what it-does.--/Since: 2.26/--}-dBusConnectionFlushSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionFlushSync connection cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_dbus_connection_flush_sync connection' maybeCancellable-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusConnectionFlushSyncMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDBusConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DBusConnectionFlushSyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionFlushSync--#endif---- method DBusConnection::get_capabilities--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusCapabilityFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_get_capabilities" g_dbus_connection_get_capabilities :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO CUInt--{- |-Gets the capabilities negotiated with the remote peer--/Since: 2.26/--}-dBusConnectionGetCapabilities ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m [Gio.Flags.DBusCapabilityFlags]-    {- ^ __Returns:__ zero or more flags from the 'GI.Gio.Flags.DBusCapabilityFlags' enumeration -}-dBusConnectionGetCapabilities connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_get_capabilities connection'-    let result' = wordToGFlags result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusConnectionGetCapabilitiesMethodInfo-instance (signature ~ (m [Gio.Flags.DBusCapabilityFlags]), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionGetCapabilitiesMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetCapabilities--#endif---- method DBusConnection::get_exit_on_close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", 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 "g_dbus_connection_get_exit_on_close" g_dbus_connection_get_exit_on_close :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO CInt--{- |-Gets whether the process is terminated when /@connection@/ is-closed by the remote peer. See-'GI.Gio.Objects.DBusConnection.DBusConnection':@/exit-on-close/@ for more details.--/Since: 2.26/--}-dBusConnectionGetExitOnClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m Bool-    {- ^ __Returns:__ whether the process is terminated when /@connection@/ is-    closed by the remote peer -}-dBusConnectionGetExitOnClose connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_get_exit_on_close connection'-    let result' = (/= 0) result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusConnectionGetExitOnCloseMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionGetExitOnCloseMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetExitOnClose--#endif---- method DBusConnection::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_get_flags" g_dbus_connection_get_flags :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO CUInt--{- |-Gets the flags used to construct this connection--/Since: 2.60/--}-dBusConnectionGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m [Gio.Flags.DBusConnectionFlags]-    {- ^ __Returns:__ zero or more flags from the 'GI.Gio.Flags.DBusConnectionFlags' enumeration -}-dBusConnectionGetFlags connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_get_flags connection'-    let result' = wordToGFlags result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusConnectionGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.DBusConnectionFlags]), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetFlags--#endif---- method DBusConnection::get_guid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", 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 "g_dbus_connection_get_guid" g_dbus_connection_get_guid :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO CString--{- |-The GUID of the peer performing the role of server when-authenticating. See 'GI.Gio.Objects.DBusConnection.DBusConnection':@/guid/@ for more details.--/Since: 2.26/--}-dBusConnectionGetGuid ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m T.Text-    {- ^ __Returns:__ The GUID. Do not free this string, it is owned by-    /@connection@/. -}-dBusConnectionGetGuid connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_get_guid connection'-    checkUnexpectedReturnNULL "dBusConnectionGetGuid" result-    result' <- cstringToText result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusConnectionGetGuidMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionGetGuidMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetGuid--#endif---- method DBusConnection::get_last_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_get_last_serial" g_dbus_connection_get_last_serial :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO Word32--{- |-Retrieves the last serial number assigned to a 'GI.Gio.Objects.DBusMessage.DBusMessage' on-the current thread. This includes messages sent via both low-level-API such as 'GI.Gio.Objects.DBusConnection.dBusConnectionSendMessage' as well as-high-level API such as 'GI.Gio.Objects.DBusConnection.dBusConnectionEmitSignal',-'GI.Gio.Objects.DBusConnection.dBusConnectionCall' or 'GI.Gio.Objects.DBusProxy.dBusProxyCall'.--/Since: 2.34/--}-dBusConnectionGetLastSerial ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m Word32-    {- ^ __Returns:__ the last used serial or zero when no message has been sent-    within the current thread -}-dBusConnectionGetLastSerial connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_get_last_serial connection'-    touchManagedPtr connection-    return result--#if ENABLE_OVERLOADING-data DBusConnectionGetLastSerialMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionGetLastSerialMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetLastSerial--#endif---- method DBusConnection::get_peer_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Credentials"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_get_peer_credentials" g_dbus_connection_get_peer_credentials :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO (Ptr Gio.Credentials.Credentials)--{- |-Gets the credentials of the authenticated peer. This will always-return 'Nothing' unless /@connection@/ acted as a server-(e.g. 'GI.Gio.Flags.DBusConnectionFlagsAuthenticationServer' was passed)-when set up and the client passed credentials as part of the-authentication process.--In a message bus setup, the message bus is always the server and-each application is a client. So this method will always return-'Nothing' for message bus clients.--/Since: 2.26/--}-dBusConnectionGetPeerCredentials ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m (Maybe Gio.Credentials.Credentials)-    {- ^ __Returns:__ a 'GI.Gio.Objects.Credentials.Credentials' or 'Nothing' if not-    available. Do not free this object, it is owned by /@connection@/. -}-dBusConnectionGetPeerCredentials connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_get_peer_credentials connection'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Gio.Credentials.Credentials) result'-        return result''-    touchManagedPtr connection-    return maybeResult--#if ENABLE_OVERLOADING-data DBusConnectionGetPeerCredentialsMethodInfo-instance (signature ~ (m (Maybe Gio.Credentials.Credentials)), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionGetPeerCredentialsMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetPeerCredentials--#endif---- method DBusConnection::get_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_get_stream" g_dbus_connection_get_stream :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO (Ptr Gio.IOStream.IOStream)--{- |-Gets the underlying stream used for IO.--While the 'GI.Gio.Objects.DBusConnection.DBusConnection' is active, it will interact with this-stream from a worker thread, so it is not safe to interact with-the stream directly.--/Since: 2.26/--}-dBusConnectionGetStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m Gio.IOStream.IOStream-    {- ^ __Returns:__ the stream used for IO -}-dBusConnectionGetStream connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_get_stream connection'-    checkUnexpectedReturnNULL "dBusConnectionGetStream" result-    result' <- (newObject Gio.IOStream.IOStream) result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusConnectionGetStreamMethodInfo-instance (signature ~ (m Gio.IOStream.IOStream), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionGetStreamMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetStream--#endif---- method DBusConnection::get_unique_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", 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 "g_dbus_connection_get_unique_name" g_dbus_connection_get_unique_name :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO CString--{- |-Gets the unique name of /@connection@/ as assigned by the message-bus. This can also be used to figure out if /@connection@/ is a-message bus connection.--/Since: 2.26/--}-dBusConnectionGetUniqueName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the unique name or 'Nothing' if /@connection@/ is not a message-    bus connection. Do not free this string, it is owned by-    /@connection@/. -}-dBusConnectionGetUniqueName connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_get_unique_name connection'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr connection-    return maybeResult--#if ENABLE_OVERLOADING-data DBusConnectionGetUniqueNameMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionGetUniqueNameMethodInfo a signature where-    overloadedMethod _ = dBusConnectionGetUniqueName--#endif---- method DBusConnection::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", 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 "g_dbus_connection_is_closed" g_dbus_connection_is_closed :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO CInt--{- |-Gets whether /@connection@/ is closed.--/Since: 2.26/--}-dBusConnectionIsClosed ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the connection is closed, 'False' otherwise -}-dBusConnectionIsClosed connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_is_closed connection'-    let result' = (/= 0) result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusConnectionIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionIsClosedMethodInfo a signature where-    overloadedMethod _ = dBusConnectionIsClosed--#endif---- method DBusConnection::register_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path to register at.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Introspection data for the interface.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_call_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure for handling incoming method calls.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_property_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure for getting a property.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set_property_closure", argType = TGClosure Nothing, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GClosure for setting a property.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_register_object_with_closures" g_dbus_connection_register_object_with_closures :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo -> -- interface_info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    Ptr (GClosure ()) ->                    -- method_call_closure : TGClosure Nothing-    Ptr (GClosure ()) ->                    -- get_property_closure : TGClosure Nothing-    Ptr (GClosure ()) ->                    -- set_property_closure : TGClosure Nothing-    Ptr (Ptr GError) ->                     -- error-    IO Word32--{- |-Version of @/g_dbus_connection_register_object()/@ using closures instead of a-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for easier binding in other languages.--/Since: 2.46/--}-dBusConnectionRegisterObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path to register at. -}-    -> Gio.DBusInterfaceInfo.DBusInterfaceInfo-    {- ^ /@interfaceInfo@/: Introspection data for the interface. -}-    -> Maybe (GClosure b)-    {- ^ /@methodCallClosure@/: 'GI.GObject.Structs.Closure.Closure' for handling incoming method calls. -}-    -> Maybe (GClosure c)-    {- ^ /@getPropertyClosure@/: 'GI.GObject.Structs.Closure.Closure' for getting a property. -}-    -> Maybe (GClosure d)-    {- ^ /@setPropertyClosure@/: 'GI.GObject.Structs.Closure.Closure' for setting a property. -}-    -> m Word32-    {- ^ __Returns:__ 0 if /@error@/ is set, otherwise a registration id (never 0)-that can be used with 'GI.Gio.Objects.DBusConnection.dBusConnectionUnregisterObject' . /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionRegisterObject connection objectPath interfaceInfo methodCallClosure getPropertyClosure setPropertyClosure = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    objectPath' <- textToCString objectPath-    interfaceInfo' <- unsafeManagedPtrGetPtr interfaceInfo-    maybeMethodCallClosure <- case methodCallClosure of-        Nothing -> return nullPtr-        Just jMethodCallClosure -> do-            jMethodCallClosure' <- unsafeManagedPtrCastPtr jMethodCallClosure-            return jMethodCallClosure'-    maybeGetPropertyClosure <- case getPropertyClosure of-        Nothing -> return nullPtr-        Just jGetPropertyClosure -> do-            jGetPropertyClosure' <- unsafeManagedPtrCastPtr jGetPropertyClosure-            return jGetPropertyClosure'-    maybeSetPropertyClosure <- case setPropertyClosure of-        Nothing -> return nullPtr-        Just jSetPropertyClosure -> do-            jSetPropertyClosure' <- unsafeManagedPtrCastPtr jSetPropertyClosure-            return jSetPropertyClosure'-    onException (do-        result <- propagateGError $ g_dbus_connection_register_object_with_closures connection' objectPath' interfaceInfo' maybeMethodCallClosure maybeGetPropertyClosure maybeSetPropertyClosure-        touchManagedPtr connection-        touchManagedPtr interfaceInfo-        whenJust methodCallClosure touchManagedPtr-        whenJust getPropertyClosure touchManagedPtr-        whenJust setPropertyClosure touchManagedPtr-        freeMem objectPath'-        return result-     ) (do-        freeMem objectPath'-     )--#if ENABLE_OVERLOADING-data DBusConnectionRegisterObjectMethodInfo-instance (signature ~ (T.Text -> Gio.DBusInterfaceInfo.DBusInterfaceInfo -> Maybe (GClosure b) -> Maybe (GClosure c) -> Maybe (GClosure d) -> m Word32), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionRegisterObjectMethodInfo a signature where-    overloadedMethod _ = dBusConnectionRegisterObject--#endif---- method DBusConnection::register_subtree--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the object path to register the subtree at", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vtable", argType = TInterface (Name {namespace = "Gio", name = "DBusSubtreeVTable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusSubtreeVTable to enumerate, introspect and\n    dispatch nodes in the subtree", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusSubtreeFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags used to fine tune the behavior of the subtree", 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 "data to pass to functions in @vtable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "function to call when the subtree is unregistered", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_register_subtree" g_dbus_connection_register_subtree :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr Gio.DBusSubtreeVTable.DBusSubtreeVTable -> -- vtable : TInterface (Name {namespace = "Gio", name = "DBusSubtreeVTable"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusSubtreeFlags"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- user_data_free_func : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    Ptr (Ptr GError) ->                     -- error-    IO Word32--{- |-Registers a whole subtree of dynamic objects.--The /@enumerate@/ and /@introspection@/ functions in /@vtable@/ are used to-convey, to remote callers, what nodes exist in the subtree rooted-by /@objectPath@/.--When handling remote calls into any node in the subtree, first the-/@enumerate@/ function is used to check if the node exists. If the node exists-or the @/G_DBUS_SUBTREE_FLAGS_DISPATCH_TO_UNENUMERATED_NODES/@ flag is set-the /@introspection@/ function is used to check if the node supports the-requested method. If so, the /@dispatch@/ function is used to determine-where to dispatch the call. The collected 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' and-@/gpointer/@ will be used to call into the interface vtable for processing-the request.--All calls into user-provided code will be invoked in the-[thread-default main context][g-main-context-push-thread-default]-of the thread you are calling this method from.--If an existing subtree is already registered at /@objectPath@/ or-then /@error@/ is set to @/G_IO_ERROR_EXISTS/@.--Note that it is valid to register regular objects (using-@/g_dbus_connection_register_object()/@) in a subtree registered with-'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree' - if so, the subtree handler-is tried as the last resort. One way to think about a subtree-handler is to consider it a fallback handler for object paths not-registered via @/g_dbus_connection_register_object()/@ or other bindings.--Note that /@vtable@/ will be copied so you cannot change it after-registration.--See this [server][gdbus-subtree-server] for an example of how to use-this method.--/Since: 2.26/--}-dBusConnectionRegisterSubtree ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> T.Text-    {- ^ /@objectPath@/: the object path to register the subtree at -}-    -> Gio.DBusSubtreeVTable.DBusSubtreeVTable-    {- ^ /@vtable@/: a 'GI.Gio.Structs.DBusSubtreeVTable.DBusSubtreeVTable' to enumerate, introspect and-    dispatch nodes in the subtree -}-    -> [Gio.Flags.DBusSubtreeFlags]-    {- ^ /@flags@/: flags used to fine tune the behavior of the subtree -}-    -> Ptr ()-    {- ^ /@userData@/: data to pass to functions in /@vtable@/ -}-    -> GLib.Callbacks.DestroyNotify-    {- ^ /@userDataFreeFunc@/: function to call when the subtree is unregistered -}-    -> m Word32-    {- ^ __Returns:__ 0 if /@error@/ is set, otherwise a subtree registration id (never 0)-that can be used with 'GI.Gio.Objects.DBusConnection.dBusConnectionUnregisterSubtree' . /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionRegisterSubtree connection objectPath vtable flags userData userDataFreeFunc = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    objectPath' <- textToCString objectPath-    vtable' <- unsafeManagedPtrGetPtr vtable-    let flags' = gflagsToWord flags-    ptruserDataFreeFunc <- callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))-    userDataFreeFunc' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptruserDataFreeFunc) userDataFreeFunc)-    poke ptruserDataFreeFunc userDataFreeFunc'-    onException (do-        result <- propagateGError $ g_dbus_connection_register_subtree connection' objectPath' vtable' flags' userData userDataFreeFunc'-        touchManagedPtr connection-        touchManagedPtr vtable-        freeMem objectPath'-        return result-     ) (do-        freeMem objectPath'-     )--#if ENABLE_OVERLOADING-data DBusConnectionRegisterSubtreeMethodInfo-instance (signature ~ (T.Text -> Gio.DBusSubtreeVTable.DBusSubtreeVTable -> [Gio.Flags.DBusSubtreeFlags] -> Ptr () -> GLib.Callbacks.DestroyNotify -> m Word32), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionRegisterSubtreeMethodInfo a signature where-    overloadedMethod _ = dBusConnectionRegisterSubtree--#endif---- method DBusConnection::remove_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an identifier obtained from g_dbus_connection_add_filter()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_remove_filter" g_dbus_connection_remove_filter :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Word32 ->                               -- filter_id : TBasicType TUInt-    IO ()--{- |-Removes a filter.--Note that since filters run in a different thread, there is a race-condition where it is possible that the filter will be running even-after calling 'GI.Gio.Objects.DBusConnection.dBusConnectionRemoveFilter', so you cannot just-free data that the filter might be using. Instead, you should pass-a 'GI.GLib.Callbacks.DestroyNotify' to 'GI.Gio.Objects.DBusConnection.dBusConnectionAddFilter', which will be-called when it is guaranteed that the data is no longer needed.--/Since: 2.26/--}-dBusConnectionRemoveFilter ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Word32-    {- ^ /@filterId@/: an identifier obtained from 'GI.Gio.Objects.DBusConnection.dBusConnectionAddFilter' -}-    -> m ()-dBusConnectionRemoveFilter connection filterId = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    g_dbus_connection_remove_filter connection' filterId-    touchManagedPtr connection-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionRemoveFilterMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionRemoveFilterMethodInfo a signature where-    overloadedMethod _ = dBusConnectionRemoveFilter--#endif---- method DBusConnection::send_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusSendMessageFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting how the message is sent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for serial number assigned\n    to @message when sending it or %NULL", 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 "g_dbus_connection_send_message" g_dbus_connection_send_message :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.DBusMessage.DBusMessage ->      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusSendMessageFlags"})-    Ptr Word32 ->                           -- out_serial : TBasicType TUInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Asynchronously sends /@message@/ to the peer represented by /@connection@/.--Unless /@flags@/ contain the-'GI.Gio.Flags.DBusSendMessageFlagsPreserveSerial' flag, the serial number-will be assigned by /@connection@/ and set on /@message@/ via-'GI.Gio.Objects.DBusMessage.dBusMessageSetSerial'. If /@outSerial@/ is not 'Nothing', then the-serial number used will be written to this location prior to-submitting the message to the underlying transport.--If /@connection@/ is closed then the operation will fail with-'GI.Gio.Enums.IOErrorEnumClosed'. If /@message@/ is not well-formed,-the operation fails with 'GI.Gio.Enums.IOErrorEnumInvalidArgument'.--See this [server][gdbus-server] and [client][gdbus-unix-fd-client]-for an example of how to use this low-level API to send and receive-UNIX file descriptors.--Note that /@message@/ must be unlocked, unless /@flags@/ contain the-'GI.Gio.Flags.DBusSendMessageFlagsPreserveSerial' flag.--/Since: 2.26/--}-dBusConnectionSendMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.DBusMessage.IsDBusMessage b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> b-    {- ^ /@message@/: a 'GI.Gio.Objects.DBusMessage.DBusMessage' -}-    -> [Gio.Flags.DBusSendMessageFlags]-    {- ^ /@flags@/: flags affecting how the message is sent -}-    -> m (Word32)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionSendMessage connection message flags = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    message' <- unsafeManagedPtrCastPtr message-    let flags' = gflagsToWord flags-    outSerial <- allocMem :: IO (Ptr Word32)-    onException (do-        _ <- propagateGError $ g_dbus_connection_send_message connection' message' flags' outSerial-        outSerial' <- peek outSerial-        touchManagedPtr connection-        touchManagedPtr message-        freeMem outSerial-        return outSerial'-     ) (do-        freeMem outSerial-     )--#if ENABLE_OVERLOADING-data DBusConnectionSendMessageMethodInfo-instance (signature ~ (b -> [Gio.Flags.DBusSendMessageFlags] -> m (Word32)), MonadIO m, IsDBusConnection a, Gio.DBusMessage.IsDBusMessage b) => O.MethodInfo DBusConnectionSendMessageMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSendMessage--#endif---- method DBusConnection::send_message_with_reply--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusSendMessageFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting how the message is sent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout in milliseconds, -1 to use the default\n    timeout or %G_MAXINT for no timeout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for serial number assigned\n    to @message when sending it or %NULL", 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 "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 "a #GAsyncReadyCallback to call when the request\n    is satisfied or %NULL if you don't care about the result", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The 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 "g_dbus_connection_send_message_with_reply" g_dbus_connection_send_message_with_reply :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.DBusMessage.DBusMessage ->      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusSendMessageFlags"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Word32 ->                           -- out_serial : TBasicType TUInt32-    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 sends /@message@/ to the peer represented by /@connection@/.--Unless /@flags@/ contain the-'GI.Gio.Flags.DBusSendMessageFlagsPreserveSerial' flag, the serial number-will be assigned by /@connection@/ and set on /@message@/ via-'GI.Gio.Objects.DBusMessage.dBusMessageSetSerial'. If /@outSerial@/ is not 'Nothing', then the-serial number used will be written to this location prior to-submitting the message to the underlying transport.--If /@connection@/ is closed then the operation will fail with-'GI.Gio.Enums.IOErrorEnumClosed'. If /@cancellable@/ is canceled, the operation will-fail with 'GI.Gio.Enums.IOErrorEnumCancelled'. If /@message@/ is not well-formed,-the operation fails with 'GI.Gio.Enums.IOErrorEnumInvalidArgument'.--This is an asynchronous method. When the operation is finished, /@callback@/-will be invoked in the-[thread-default main context][g-main-context-push-thread-default]-of the thread you are calling this method from. You can then call-'GI.Gio.Objects.DBusConnection.dBusConnectionSendMessageWithReplyFinish' to get the result of the operation.-See 'GI.Gio.Objects.DBusConnection.dBusConnectionSendMessageWithReplySync' for the synchronous version.--Note that /@message@/ must be unlocked, unless /@flags@/ contain the-'GI.Gio.Flags.DBusSendMessageFlagsPreserveSerial' flag.--See this [server][gdbus-server] and [client][gdbus-unix-fd-client]-for an example of how to use this low-level API to send and receive-UNIX file descriptors.--/Since: 2.26/--}-dBusConnectionSendMessageWithReply ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.DBusMessage.IsDBusMessage b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> b-    {- ^ /@message@/: a 'GI.Gio.Objects.DBusMessage.DBusMessage' -}-    -> [Gio.Flags.DBusSendMessageFlags]-    {- ^ /@flags@/: flags affecting how the message is sent -}-    -> Int32-    {- ^ /@timeoutMsec@/: the timeout in milliseconds, -1 to use the default-    timeout or @/G_MAXINT/@ for no timeout -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request-    is satisfied or 'Nothing' if you don\'t care about the result -}-    -> m (Word32)-dBusConnectionSendMessageWithReply connection message flags timeoutMsec cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    message' <- unsafeManagedPtrCastPtr message-    let flags' = gflagsToWord flags-    outSerial <- allocMem :: IO (Ptr Word32)-    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-    g_dbus_connection_send_message_with_reply connection' message' flags' timeoutMsec outSerial maybeCancellable maybeCallback userData-    outSerial' <- peek outSerial-    touchManagedPtr connection-    touchManagedPtr message-    whenJust cancellable touchManagedPtr-    freeMem outSerial-    return outSerial'--#if ENABLE_OVERLOADING-data DBusConnectionSendMessageWithReplyMethodInfo-instance (signature ~ (b -> [Gio.Flags.DBusSendMessageFlags] -> Int32 -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m (Word32)), MonadIO m, IsDBusConnection a, Gio.DBusMessage.IsDBusMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DBusConnectionSendMessageWithReplyMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSendMessageWithReply--#endif---- method DBusConnection::send_message_with_reply_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult obtained from the #GAsyncReadyCallback passed to\n    g_dbus_connection_send_message_with_reply()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_send_message_with_reply_finish" g_dbus_connection_send_message_with_reply_finish :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.DBusMessage.DBusMessage)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusConnection.dBusConnectionSendMessageWithReply'.--Note that /@error@/ is only set if a local in-process error-occurred. That is to say that the returned 'GI.Gio.Objects.DBusMessage.DBusMessage' object may-be of type 'GI.Gio.Enums.DBusMessageTypeError'. Use-'GI.Gio.Objects.DBusMessage.dBusMessageToGerror' to transcode this to a 'GError'.--See this [server][gdbus-server] and [client][gdbus-unix-fd-client]-for an example of how to use this low-level API to send and receive-UNIX file descriptors.--/Since: 2.26/--}-dBusConnectionSendMessageWithReplyFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> b-    {- ^ /@res@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed to-    'GI.Gio.Objects.DBusConnection.dBusConnectionSendMessageWithReply' -}-    -> m Gio.DBusMessage.DBusMessage-    {- ^ __Returns:__ a locked 'GI.Gio.Objects.DBusMessage.DBusMessage' or 'Nothing' if /@error@/ is set /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionSendMessageWithReplyFinish connection res = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_connection_send_message_with_reply_finish connection' res'-        checkUnexpectedReturnNULL "dBusConnectionSendMessageWithReplyFinish" result-        result' <- (wrapObject Gio.DBusMessage.DBusMessage) result-        touchManagedPtr connection-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusConnectionSendMessageWithReplyFinishMethodInfo-instance (signature ~ (b -> m Gio.DBusMessage.DBusMessage), MonadIO m, IsDBusConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DBusConnectionSendMessageWithReplyFinishMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSendMessageWithReplyFinish--#endif---- method DBusConnection::send_message_with_reply_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusSendMessageFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags affecting how the message is sent.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout in milliseconds, -1 to use the default\n    timeout or %G_MAXINT for no timeout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for serial number\n    assigned to @message when sending it or %NULL", 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 "a #GCancellable or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_connection_send_message_with_reply_sync" g_dbus_connection_send_message_with_reply_sync :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Ptr Gio.DBusMessage.DBusMessage ->      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusSendMessageFlags"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Word32 ->                           -- out_serial : TBasicType TUInt32-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.DBusMessage.DBusMessage)--{- |-Synchronously sends /@message@/ to the peer represented by /@connection@/-and blocks the calling thread until a reply is received or the-timeout is reached. See 'GI.Gio.Objects.DBusConnection.dBusConnectionSendMessageWithReply'-for the asynchronous version of this method.--Unless /@flags@/ contain the-'GI.Gio.Flags.DBusSendMessageFlagsPreserveSerial' flag, the serial number-will be assigned by /@connection@/ and set on /@message@/ via-'GI.Gio.Objects.DBusMessage.dBusMessageSetSerial'. If /@outSerial@/ is not 'Nothing', then the-serial number used will be written to this location prior to-submitting the message to the underlying transport.--If /@connection@/ is closed then the operation will fail with-'GI.Gio.Enums.IOErrorEnumClosed'. If /@cancellable@/ is canceled, the operation will-fail with 'GI.Gio.Enums.IOErrorEnumCancelled'. If /@message@/ is not well-formed,-the operation fails with 'GI.Gio.Enums.IOErrorEnumInvalidArgument'.--Note that /@error@/ is only set if a local in-process error-occurred. That is to say that the returned 'GI.Gio.Objects.DBusMessage.DBusMessage' object may-be of type 'GI.Gio.Enums.DBusMessageTypeError'. Use-'GI.Gio.Objects.DBusMessage.dBusMessageToGerror' to transcode this to a 'GError'.--See this [server][gdbus-server] and [client][gdbus-unix-fd-client]-for an example of how to use this low-level API to send and receive-UNIX file descriptors.--Note that /@message@/ must be unlocked, unless /@flags@/ contain the-'GI.Gio.Flags.DBusSendMessageFlagsPreserveSerial' flag.--/Since: 2.26/--}-dBusConnectionSendMessageWithReplySync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a, Gio.DBusMessage.IsDBusMessage b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> b-    {- ^ /@message@/: a 'GI.Gio.Objects.DBusMessage.DBusMessage' -}-    -> [Gio.Flags.DBusSendMessageFlags]-    {- ^ /@flags@/: flags affecting how the message is sent. -}-    -> Int32-    {- ^ /@timeoutMsec@/: the timeout in milliseconds, -1 to use the default-    timeout or @/G_MAXINT/@ for no timeout -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m ((Gio.DBusMessage.DBusMessage, Word32))-    {- ^ __Returns:__ a locked 'GI.Gio.Objects.DBusMessage.DBusMessage' that is the reply-    to /@message@/ or 'Nothing' if /@error@/ is set /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusConnectionSendMessageWithReplySync connection message flags timeoutMsec cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    message' <- unsafeManagedPtrCastPtr message-    let flags' = gflagsToWord flags-    outSerial <- allocMem :: IO (Ptr Word32)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_connection_send_message_with_reply_sync connection' message' flags' timeoutMsec outSerial maybeCancellable-        checkUnexpectedReturnNULL "dBusConnectionSendMessageWithReplySync" result-        result' <- (wrapObject Gio.DBusMessage.DBusMessage) result-        outSerial' <- peek outSerial-        touchManagedPtr connection-        touchManagedPtr message-        whenJust cancellable touchManagedPtr-        freeMem outSerial-        return (result', outSerial')-     ) (do-        freeMem outSerial-     )--#if ENABLE_OVERLOADING-data DBusConnectionSendMessageWithReplySyncMethodInfo-instance (signature ~ (b -> [Gio.Flags.DBusSendMessageFlags] -> Int32 -> Maybe (c) -> m ((Gio.DBusMessage.DBusMessage, Word32))), MonadIO m, IsDBusConnection a, Gio.DBusMessage.IsDBusMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DBusConnectionSendMessageWithReplySyncMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSendMessageWithReplySync--#endif---- method DBusConnection::set_exit_on_close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exit_on_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the process should be terminated\n    when @connection is closed by the remote peer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_set_exit_on_close" g_dbus_connection_set_exit_on_close :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CInt ->                                 -- exit_on_close : TBasicType TBoolean-    IO ()--{- |-Sets whether the process should be terminated when /@connection@/ is-closed by the remote peer. See 'GI.Gio.Objects.DBusConnection.DBusConnection':@/exit-on-close/@ for-more details.--Note that this function should be used with care. Most modern UNIX-desktops tie the notion of a user session the session bus, and expect-all of a users applications to quit when their bus connection goes away.-If you are setting /@exitOnClose@/ to 'False' for the shared session-bus connection, you should make sure that your application exits-when the user session ends.--/Since: 2.26/--}-dBusConnectionSetExitOnClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Bool-    {- ^ /@exitOnClose@/: whether the process should be terminated-    when /@connection@/ is closed by the remote peer -}-    -> m ()-dBusConnectionSetExitOnClose connection exitOnClose = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    let exitOnClose' = (fromIntegral . fromEnum) exitOnClose-    g_dbus_connection_set_exit_on_close connection' exitOnClose'-    touchManagedPtr connection-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionSetExitOnCloseMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionSetExitOnCloseMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSetExitOnClose--#endif---- method DBusConnection::signal_subscribe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "sender name to match on (unique or well-known name)\n    or %NULL to listen from all senders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "D-Bus interface name to match on or %NULL to\n    match on all interfaces", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "member", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "D-Bus signal name to match on or %NULL to match on\n    all signals", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "object path to match on or %NULL to match on\n    all object paths", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "contents of first string argument to match on or %NULL\n    to match on all kinds of arguments", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusSignalFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GDBusSignalFlags describing how arg0 is used in subscribing to the\n    signal", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "DBusSignalCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "callback to invoke when there is a signal matching the requested data", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 8, argDestroy = 9, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data to pass to @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "function to free @user_data with when\n    subscription is removed or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_signal_subscribe" g_dbus_connection_signal_subscribe :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- sender : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    CString ->                              -- member : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- arg0 : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusSignalFlags"})-    FunPtr Gio.Callbacks.C_DBusSignalCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "DBusSignalCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- user_data_free_func : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO Word32--{- |-Subscribes to signals on /@connection@/ and invokes /@callback@/ with a whenever-the signal is received. Note that /@callback@/ will be invoked in the-[thread-default main context][g-main-context-push-thread-default]-of the thread you are calling this method from.--If /@connection@/ is not a message bus connection, /@sender@/ must be-'Nothing'.--If /@sender@/ is a well-known name note that /@callback@/ is invoked with-the unique name for the owner of /@sender@/, not the well-known name-as one would expect. This is because the message bus rewrites the-name. As such, to avoid certain race conditions, users should be-tracking the name owner of the well-known name and use that when-processing the received signal.--If one of 'GI.Gio.Flags.DBusSignalFlagsMatchArg0Namespace' or-'GI.Gio.Flags.DBusSignalFlagsMatchArg0Path' are given, /@arg0@/ is-interpreted as part of a namespace or path.  The first argument-of a signal is matched against that part as specified by D-Bus.--If /@userDataFreeFunc@/ is non-'Nothing', it will be called (in the-thread-default main context of the thread you are calling this-method from) at some point after /@userData@/ is no longer-needed. (It is not guaranteed to be called synchronously when the-signal is unsubscribed from, and may be called after /@connection@/-has been destroyed.)--The returned subscription identifier is an opaque value which is guaranteed-to never be zero.--This function can never fail.--/Since: 2.26/--}-dBusConnectionSignalSubscribe ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (T.Text)-    {- ^ /@sender@/: sender name to match on (unique or well-known name)-    or 'Nothing' to listen from all senders -}-    -> Maybe (T.Text)-    {- ^ /@interfaceName@/: D-Bus interface name to match on or 'Nothing' to-    match on all interfaces -}-    -> Maybe (T.Text)-    {- ^ /@member@/: D-Bus signal name to match on or 'Nothing' to match on-    all signals -}-    -> Maybe (T.Text)-    {- ^ /@objectPath@/: object path to match on or 'Nothing' to match on-    all object paths -}-    -> Maybe (T.Text)-    {- ^ /@arg0@/: contents of first string argument to match on or 'Nothing'-    to match on all kinds of arguments -}-    -> [Gio.Flags.DBusSignalFlags]-    {- ^ /@flags@/: 'GI.Gio.Flags.DBusSignalFlags' describing how arg0 is used in subscribing to the-    signal -}-    -> Gio.Callbacks.DBusSignalCallback-    {- ^ /@callback@/: callback to invoke when there is a signal matching the requested data -}-    -> m Word32-    {- ^ __Returns:__ a subscription identifier that can be used with 'GI.Gio.Objects.DBusConnection.dBusConnectionSignalUnsubscribe' -}-dBusConnectionSignalSubscribe connection sender interfaceName member objectPath arg0 flags callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeSender <- case sender of-        Nothing -> return nullPtr-        Just jSender -> do-            jSender' <- textToCString jSender-            return jSender'-    maybeInterfaceName <- case interfaceName of-        Nothing -> return nullPtr-        Just jInterfaceName -> do-            jInterfaceName' <- textToCString jInterfaceName-            return jInterfaceName'-    maybeMember <- case member of-        Nothing -> return nullPtr-        Just jMember -> do-            jMember' <- textToCString jMember-            return jMember'-    maybeObjectPath <- case objectPath of-        Nothing -> return nullPtr-        Just jObjectPath -> do-            jObjectPath' <- textToCString jObjectPath-            return jObjectPath'-    maybeArg0 <- case arg0 of-        Nothing -> return nullPtr-        Just jArg0 -> do-            jArg0' <- textToCString jArg0-            return jArg0'-    let flags' = gflagsToWord flags-    callback' <- Gio.Callbacks.mk_DBusSignalCallback (Gio.Callbacks.wrap_DBusSignalCallback Nothing (Gio.Callbacks.drop_closures_DBusSignalCallback callback))-    let userData = castFunPtrToPtr callback'-    let userDataFreeFunc = safeFreeFunPtrPtr-    result <- g_dbus_connection_signal_subscribe connection' maybeSender maybeInterfaceName maybeMember maybeObjectPath maybeArg0 flags' callback' userData userDataFreeFunc-    touchManagedPtr connection-    freeMem maybeSender-    freeMem maybeInterfaceName-    freeMem maybeMember-    freeMem maybeObjectPath-    freeMem maybeArg0-    return result--#if ENABLE_OVERLOADING-data DBusConnectionSignalSubscribeMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> [Gio.Flags.DBusSignalFlags] -> Gio.Callbacks.DBusSignalCallback -> m Word32), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionSignalSubscribeMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSignalSubscribe--#endif---- method DBusConnection::signal_unsubscribe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subscription_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a subscription id obtained from\n    g_dbus_connection_signal_subscribe()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_signal_unsubscribe" g_dbus_connection_signal_unsubscribe :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Word32 ->                               -- subscription_id : TBasicType TUInt-    IO ()--{- |-Unsubscribes from signals.--/Since: 2.26/--}-dBusConnectionSignalUnsubscribe ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Word32-    {- ^ /@subscriptionId@/: a subscription id obtained from-    'GI.Gio.Objects.DBusConnection.dBusConnectionSignalSubscribe' -}-    -> m ()-dBusConnectionSignalUnsubscribe connection subscriptionId = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    g_dbus_connection_signal_unsubscribe connection' subscriptionId-    touchManagedPtr connection-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionSignalUnsubscribeMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionSignalUnsubscribeMethodInfo a signature where-    overloadedMethod _ = dBusConnectionSignalUnsubscribe--#endif---- method DBusConnection::start_message_processing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_start_message_processing" g_dbus_connection_start_message_processing :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO ()--{- |-If /@connection@/ was created with-'GI.Gio.Flags.DBusConnectionFlagsDelayMessageProcessing', this method-starts processing messages. Does nothing on if /@connection@/ wasn\'t-created with this flag or if the method has already been called.--/Since: 2.26/--}-dBusConnectionStartMessageProcessing ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> m ()-dBusConnectionStartMessageProcessing connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    g_dbus_connection_start_message_processing connection'-    touchManagedPtr connection-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionStartMessageProcessingMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionStartMessageProcessingMethodInfo a signature where-    overloadedMethod _ = dBusConnectionStartMessageProcessing--#endif---- method DBusConnection::unexport_action_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "export_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ID from g_dbus_connection_export_action_group()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_unexport_action_group" g_dbus_connection_unexport_action_group :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Word32 ->                               -- export_id : TBasicType TUInt-    IO ()--{- |-Reverses the effect of a previous call to-'GI.Gio.Objects.DBusConnection.dBusConnectionExportActionGroup'.--It is an error to call this function with an ID that wasn\'t returned-from 'GI.Gio.Objects.DBusConnection.dBusConnectionExportActionGroup' or to call it with the-same ID more than once.--/Since: 2.32/--}-dBusConnectionUnexportActionGroup ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Word32-    {- ^ /@exportId@/: the ID from 'GI.Gio.Objects.DBusConnection.dBusConnectionExportActionGroup' -}-    -> m ()-dBusConnectionUnexportActionGroup connection exportId = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    g_dbus_connection_unexport_action_group connection' exportId-    touchManagedPtr connection-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionUnexportActionGroupMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionUnexportActionGroupMethodInfo a signature where-    overloadedMethod _ = dBusConnectionUnexportActionGroup--#endif---- method DBusConnection::unexport_menu_model--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "export_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the ID from g_dbus_connection_export_menu_model()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_connection_unexport_menu_model" g_dbus_connection_unexport_menu_model :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Word32 ->                               -- export_id : TBasicType TUInt-    IO ()--{- |-Reverses the effect of a previous call to-'GI.Gio.Objects.DBusConnection.dBusConnectionExportMenuModel'.--It is an error to call this function with an ID that wasn\'t returned-from 'GI.Gio.Objects.DBusConnection.dBusConnectionExportMenuModel' or to call it with the-same ID more than once.--/Since: 2.32/--}-dBusConnectionUnexportMenuModel ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Word32-    {- ^ /@exportId@/: the ID from 'GI.Gio.Objects.DBusConnection.dBusConnectionExportMenuModel' -}-    -> m ()-dBusConnectionUnexportMenuModel connection exportId = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    g_dbus_connection_unexport_menu_model connection' exportId-    touchManagedPtr connection-    return ()--#if ENABLE_OVERLOADING-data DBusConnectionUnexportMenuModelMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionUnexportMenuModelMethodInfo a signature where-    overloadedMethod _ = dBusConnectionUnexportMenuModel--#endif---- method DBusConnection::unregister_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "registration_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a registration id obtained from\n    g_dbus_connection_register_object()", 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 "g_dbus_connection_unregister_object" g_dbus_connection_unregister_object :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Word32 ->                               -- registration_id : TBasicType TUInt-    IO CInt--{- |-Unregisters an object.--/Since: 2.26/--}-dBusConnectionUnregisterObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Word32-    {- ^ /@registrationId@/: a registration id obtained from-    @/g_dbus_connection_register_object()/@ -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the object was unregistered, 'False' otherwise -}-dBusConnectionUnregisterObject connection registrationId = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_unregister_object connection' registrationId-    let result' = (/= 0) result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusConnectionUnregisterObjectMethodInfo-instance (signature ~ (Word32 -> m Bool), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionUnregisterObjectMethodInfo a signature where-    overloadedMethod _ = dBusConnectionUnregisterObject--#endif---- method DBusConnection::unregister_subtree--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "registration_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a subtree registration id obtained from\n    g_dbus_connection_register_subtree()", 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 "g_dbus_connection_unregister_subtree" g_dbus_connection_unregister_subtree :: -    Ptr DBusConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    Word32 ->                               -- registration_id : TBasicType TUInt-    IO CInt--{- |-Unregisters a subtree.--/Since: 2.26/--}-dBusConnectionUnregisterSubtree ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Word32-    {- ^ /@registrationId@/: a subtree registration id obtained from-    'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the subtree was unregistered, 'False' otherwise -}-dBusConnectionUnregisterSubtree connection registrationId = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_connection_unregister_subtree connection' registrationId-    let result' = (/= 0) result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusConnectionUnregisterSubtreeMethodInfo-instance (signature ~ (Word32 -> m Bool), MonadIO m, IsDBusConnection a) => O.MethodInfo DBusConnectionUnregisterSubtreeMethodInfo a signature where-    overloadedMethod _ = dBusConnectionUnregisterSubtree--#endif---- method DBusConnection::new--- method type : MemberFunction--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the GUID to use if a authenticating as a server or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags describing how to make the connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GDBusAuthObserver or %NULL", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the 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 "g_dbus_connection_new" g_dbus_connection_new :: -    Ptr Gio.IOStream.IOStream ->            -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    CString ->                              -- guid : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"})-    Ptr Gio.DBusAuthObserver.DBusAuthObserver -> -- observer : TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-    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 sets up a D-Bus connection for exchanging D-Bus messages-with the end represented by /@stream@/.--If /@stream@/ is a 'GI.Gio.Objects.SocketConnection.SocketConnection', then the corresponding 'GI.Gio.Objects.Socket.Socket'-will be put into non-blocking mode.--The D-Bus connection will interact with /@stream@/ from a worker thread.-As a result, the caller should not interact with /@stream@/ after this-method has been called, except by calling 'GI.GObject.Objects.Object.objectUnref' on it.--If /@observer@/ is not 'Nothing' it may be used to control the-authentication process.--When the operation is finished, /@callback@/ will be invoked. You can-then call 'GI.Gio.Objects.DBusConnection.dBusConnectionNewFinish' to get the result of the-operation.--This is a asynchronous failable constructor. See-'GI.Gio.Objects.DBusConnection.dBusConnectionNewSync' for the synchronous-version.--/Since: 2.26/--}-dBusConnectionNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.IOStream.IsIOStream a, Gio.DBusAuthObserver.IsDBusAuthObserver b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> Maybe (T.Text)-    {- ^ /@guid@/: the GUID to use if a authenticating as a server or 'Nothing' -}-    -> [Gio.Flags.DBusConnectionFlags]-    {- ^ /@flags@/: flags describing how to make the connection -}-    -> Maybe (b)-    {- ^ /@observer@/: a 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' or 'Nothing' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-dBusConnectionNew stream guid flags observer cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeGuid <- case guid of-        Nothing -> return nullPtr-        Just jGuid -> do-            jGuid' <- textToCString jGuid-            return jGuid'-    let flags' = gflagsToWord flags-    maybeObserver <- case observer of-        Nothing -> return nullPtr-        Just jObserver -> do-            jObserver' <- unsafeManagedPtrCastPtr jObserver-            return jObserver'-    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-    g_dbus_connection_new stream' maybeGuid flags' maybeObserver maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust observer touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem maybeGuid-    return ()--#if ENABLE_OVERLOADING-#endif---- method DBusConnection::new_for_address--- method type : MemberFunction--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a D-Bus address", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags describing how to make the connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GDBusAuthObserver or %NULL", 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 "a #GAsyncReadyCallback to call when the request is satisfied", 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 "the 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 "g_dbus_connection_new_for_address" g_dbus_connection_new_for_address :: -    CString ->                              -- address : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusConnectionFlags"})-    Ptr Gio.DBusAuthObserver.DBusAuthObserver -> -- observer : TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-    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 connects and sets up a D-Bus client connection for-exchanging D-Bus messages with an endpoint specified by /@address@/-which must be in the-<https://dbus.freedesktop.org/doc/dbus-specification.html#addresses D-Bus address format>.--This constructor can only be used to initiate client-side-connections - use 'GI.Gio.Objects.DBusConnection.dBusConnectionNew' if you need to act as the-server. In particular, /@flags@/ cannot contain the-'GI.Gio.Flags.DBusConnectionFlagsAuthenticationServer' or-'GI.Gio.Flags.DBusConnectionFlagsAuthenticationAllowAnonymous' flags.--When the operation is finished, /@callback@/ will be invoked. You can-then call 'GI.Gio.Objects.DBusConnection.dBusConnectionNewFinish' to get the result of the-operation.--If /@observer@/ is not 'Nothing' it may be used to control the-authentication process.--This is a asynchronous failable constructor. See-'GI.Gio.Objects.DBusConnection.dBusConnectionNewForAddressSync' for the synchronous-version.--/Since: 2.26/--}-dBusConnectionNewForAddress ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusAuthObserver.IsDBusAuthObserver a, Gio.Cancellable.IsCancellable b) =>-    T.Text-    {- ^ /@address@/: a D-Bus address -}-    -> [Gio.Flags.DBusConnectionFlags]-    {- ^ /@flags@/: flags describing how to make the connection -}-    -> Maybe (a)-    {- ^ /@observer@/: a 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' or 'Nothing' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-dBusConnectionNewForAddress address flags observer cancellable callback = liftIO $ do-    address' <- textToCString address-    let flags' = gflagsToWord flags-    maybeObserver <- case observer of-        Nothing -> return nullPtr-        Just jObserver -> do-            jObserver' <- unsafeManagedPtrCastPtr jObserver-            return jObserver'-    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-    g_dbus_connection_new_for_address address' flags' maybeObserver maybeCancellable maybeCallback userData-    whenJust observer touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem address'-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/DBusConnection.hs-boot 
@@ -1,179 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusConnection 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 DBusConnection = DBusConnection (ManagedPtr DBusConnection)-instance GObject DBusConnection where-class (GObject o, O.IsDescendantOf DBusConnection o) => IsDBusConnection o-instance (GObject o, O.IsDescendantOf DBusConnection o) => IsDBusConnection o-instance O.HasParentTypes DBusConnection-#if ENABLE_OVERLOADING-data DBusConnectionAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionAuthenticationObserverPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCapabilitiesPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionClosedPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionExitOnClosePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGuidPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionUniqueNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionClosedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionAddFilterMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCallMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCallFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCallSyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCallWithUnixFdListMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCallWithUnixFdListFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCallWithUnixFdListSyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCloseFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionCloseSyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionEmitSignalMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionExportActionGroupMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionExportMenuModelMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionFlushMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionFlushFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionFlushSyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGetCapabilitiesMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGetExitOnCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGetGuidMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGetLastSerialMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGetPeerCredentialsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGetStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionGetUniqueNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionIsClosedMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionRegisterObjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionRegisterSubtreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionRemoveFilterMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionSendMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionSendMessageWithReplyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionSendMessageWithReplyFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionSendMessageWithReplySyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionSetExitOnCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionSignalSubscribeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionSignalUnsubscribeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionStartMessageProcessingMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionUnexportActionGroupMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionUnexportMenuModelMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionUnregisterObjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusConnectionUnregisterSubtreeMethodInfo-#endif
− GI/Gio/Objects/DBusInterfaceSkeleton.hs 
@@ -1,941 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Abstract base class for D-Bus interfaces on the service side.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusInterfaceSkeleton-    ( ---- * Exported types-    DBusInterfaceSkeleton(..)               ,-    IsDBusInterfaceSkeleton                 ,-    toDBusInterfaceSkeleton                 ,-    noDBusInterfaceSkeleton                 ,--- -- * Methods--- ** export #method:export#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonExportMethodInfo   ,-#endif-    dBusInterfaceSkeletonExport             ,----- ** flush #method:flush#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonFlushMethodInfo    ,-#endif-    dBusInterfaceSkeletonFlush              ,----- ** getConnection #method:getConnection#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonGetConnectionMethodInfo,-#endif-    dBusInterfaceSkeletonGetConnection      ,----- ** getConnections #method:getConnections#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonGetConnectionsMethodInfo,-#endif-    dBusInterfaceSkeletonGetConnections     ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonGetFlagsMethodInfo ,-#endif-    dBusInterfaceSkeletonGetFlags           ,----- ** getInfo #method:getInfo#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonGetInfoMethodInfo  ,-#endif-    dBusInterfaceSkeletonGetInfo            ,----- ** getObjectPath #method:getObjectPath#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonGetObjectPathMethodInfo,-#endif-    dBusInterfaceSkeletonGetObjectPath      ,----- ** getProperties #method:getProperties#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonGetPropertiesMethodInfo,-#endif-    dBusInterfaceSkeletonGetProperties      ,----- ** hasConnection #method:hasConnection#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonHasConnectionMethodInfo,-#endif-    dBusInterfaceSkeletonHasConnection      ,----- ** setFlags #method:setFlags#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonSetFlagsMethodInfo ,-#endif-    dBusInterfaceSkeletonSetFlags           ,----- ** unexport #method:unexport#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonUnexportMethodInfo ,-#endif-    dBusInterfaceSkeletonUnexport           ,----- ** unexportFromConnection #method:unexportFromConnection#--#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonUnexportFromConnectionMethodInfo,-#endif-    dBusInterfaceSkeletonUnexportFromConnection,----- -- * Properties--- ** gFlags #attr:gFlags#-{- | Flags from the 'GI.Gio.Flags.DBusInterfaceSkeletonFlags' enumeration.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonGFlagsPropertyInfo ,-#endif-    constructDBusInterfaceSkeletonGFlags    ,-#if ENABLE_OVERLOADING-    dBusInterfaceSkeletonGFlags             ,-#endif-    getDBusInterfaceSkeletonGFlags          ,-    setDBusInterfaceSkeletonGFlags          ,----- -- * Signals--- ** gAuthorizeMethod #signal:gAuthorizeMethod#--    C_DBusInterfaceSkeletonGAuthorizeMethodCallback,-    DBusInterfaceSkeletonGAuthorizeMethodCallback,-#if ENABLE_OVERLOADING-    DBusInterfaceSkeletonGAuthorizeMethodSignalInfo,-#endif-    afterDBusInterfaceSkeletonGAuthorizeMethod,-    genClosure_DBusInterfaceSkeletonGAuthorizeMethod,-    mk_DBusInterfaceSkeletonGAuthorizeMethodCallback,-    noDBusInterfaceSkeletonGAuthorizeMethodCallback,-    onDBusInterfaceSkeletonGAuthorizeMethod ,-    wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMethodInvocation as Gio.DBusMethodInvocation-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo---- | Memory-managed wrapper type.-newtype DBusInterfaceSkeleton = DBusInterfaceSkeleton (ManagedPtr DBusInterfaceSkeleton)-foreign import ccall "g_dbus_interface_skeleton_get_type"-    c_g_dbus_interface_skeleton_get_type :: IO GType--instance GObject DBusInterfaceSkeleton where-    gobjectType = c_g_dbus_interface_skeleton_get_type-    ---- | Type class for types which can be safely cast to `DBusInterfaceSkeleton`, for instance with `toDBusInterfaceSkeleton`.-class (GObject o, O.IsDescendantOf DBusInterfaceSkeleton o) => IsDBusInterfaceSkeleton o-instance (GObject o, O.IsDescendantOf DBusInterfaceSkeleton o) => IsDBusInterfaceSkeleton o--instance O.HasParentTypes DBusInterfaceSkeleton-type instance O.ParentTypes DBusInterfaceSkeleton = '[GObject.Object.Object, Gio.DBusInterface.DBusInterface]---- | Cast to `DBusInterfaceSkeleton`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusInterfaceSkeleton :: (MonadIO m, IsDBusInterfaceSkeleton o) => o -> m DBusInterfaceSkeleton-toDBusInterfaceSkeleton = liftIO . unsafeCastTo DBusInterfaceSkeleton---- | A convenience alias for `Nothing` :: `Maybe` `DBusInterfaceSkeleton`.-noDBusInterfaceSkeleton :: Maybe DBusInterfaceSkeleton-noDBusInterfaceSkeleton = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusInterfaceSkeletonMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusInterfaceSkeletonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusInterfaceSkeletonMethod "export" o = DBusInterfaceSkeletonExportMethodInfo-    ResolveDBusInterfaceSkeletonMethod "flush" o = DBusInterfaceSkeletonFlushMethodInfo-    ResolveDBusInterfaceSkeletonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusInterfaceSkeletonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusInterfaceSkeletonMethod "hasConnection" o = DBusInterfaceSkeletonHasConnectionMethodInfo-    ResolveDBusInterfaceSkeletonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusInterfaceSkeletonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusInterfaceSkeletonMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusInterfaceSkeletonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusInterfaceSkeletonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusInterfaceSkeletonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "unexport" o = DBusInterfaceSkeletonUnexportMethodInfo-    ResolveDBusInterfaceSkeletonMethod "unexportFromConnection" o = DBusInterfaceSkeletonUnexportFromConnectionMethodInfo-    ResolveDBusInterfaceSkeletonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusInterfaceSkeletonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getConnection" o = DBusInterfaceSkeletonGetConnectionMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getConnections" o = DBusInterfaceSkeletonGetConnectionsMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getFlags" o = DBusInterfaceSkeletonGetFlagsMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getInfo" o = DBusInterfaceSkeletonGetInfoMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getObject" o = Gio.DBusInterface.DBusInterfaceGetObjectMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getObjectPath" o = DBusInterfaceSkeletonGetObjectPathMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getProperties" o = DBusInterfaceSkeletonGetPropertiesMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusInterfaceSkeletonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusInterfaceSkeletonMethod "setFlags" o = DBusInterfaceSkeletonSetFlagsMethodInfo-    ResolveDBusInterfaceSkeletonMethod "setObject" o = Gio.DBusInterface.DBusInterfaceSetObjectMethodInfo-    ResolveDBusInterfaceSkeletonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusInterfaceSkeletonMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, O.MethodInfo info DBusInterfaceSkeleton p) => OL.IsLabel t (DBusInterfaceSkeleton -> 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 DBusInterfaceSkeleton::g-authorize-method-{- |-Emitted when a method is invoked by a remote caller and used to-determine if the method call is authorized.--Note that this signal is emitted in a thread dedicated to-handling the method call so handlers are allowed to perform-blocking IO. This means that it is appropriate to call e.g.-<http://hal.freedesktop.org/docs/polkit/PolkitAuthority.html#polkit-authority-check-authorization-sync polkit_authority_check_authorization_sync()>-with the-<http://hal.freedesktop.org/docs/polkit/PolkitAuthority.html#POLKIT-CHECK-AUTHORIZATION-FLAGS-ALLOW-USER-INTERACTION:CAPS POLKIT_CHECK_AUTHORIZATION_FLAGS_ALLOW_USER_INTERACTION>-flag set.--If 'False' is returned then no further handlers are run and the-signal handler must take a reference to /@invocation@/ and finish-handling the call (e.g. return an error via-@/g_dbus_method_invocation_return_error()/@).--Otherwise, if 'True' is returned, signal emission continues. If no-handlers return 'False', then the method is dispatched. If-/@interface@/ has an enclosing 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton', then the-'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'::@/authorize-method/@ signal handlers run before-the handlers for this signal.--The default class handler just returns 'True'.--Please note that the common case is optimized: if no signals-handlers are connected and the default class handler isn\'t-overridden (for both /@interface@/ and the enclosing-'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton', if any) and 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton':@/g-flags/@ does-not have the-'GI.Gio.Flags.DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread'-flags set, no dedicated thread is ever used and the call will be-handled in the same thread as the object that /@interface@/ belongs-to was exported in.--/Since: 2.30/--}-type DBusInterfaceSkeletonGAuthorizeMethodCallback =-    Gio.DBusMethodInvocation.DBusMethodInvocation-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if the call is authorized, 'False' otherwise. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusInterfaceSkeletonGAuthorizeMethodCallback`@.-noDBusInterfaceSkeletonGAuthorizeMethodCallback :: Maybe DBusInterfaceSkeletonGAuthorizeMethodCallback-noDBusInterfaceSkeletonGAuthorizeMethodCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusInterfaceSkeletonGAuthorizeMethodCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusMethodInvocation.DBusMethodInvocation ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_DBusInterfaceSkeletonGAuthorizeMethodCallback`.-foreign import ccall "wrapper"-    mk_DBusInterfaceSkeletonGAuthorizeMethodCallback :: C_DBusInterfaceSkeletonGAuthorizeMethodCallback -> IO (FunPtr C_DBusInterfaceSkeletonGAuthorizeMethodCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusInterfaceSkeletonGAuthorizeMethod :: MonadIO m => DBusInterfaceSkeletonGAuthorizeMethodCallback -> m (GClosure C_DBusInterfaceSkeletonGAuthorizeMethodCallback)-genClosure_DBusInterfaceSkeletonGAuthorizeMethod cb = liftIO $ do-    let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb-    mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusInterfaceSkeletonGAuthorizeMethodCallback` into a `C_DBusInterfaceSkeletonGAuthorizeMethodCallback`.-wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback ::-    DBusInterfaceSkeletonGAuthorizeMethodCallback ->-    C_DBusInterfaceSkeletonGAuthorizeMethodCallback-wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback _cb _ invocation _ = do-    invocation' <- (newObject Gio.DBusMethodInvocation.DBusMethodInvocation) invocation-    result <- _cb  invocation'-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@g-authorize-method@” 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' dBusInterfaceSkeleton #gAuthorizeMethod callback-@--}-onDBusInterfaceSkeletonGAuthorizeMethod :: (IsDBusInterfaceSkeleton a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId-onDBusInterfaceSkeletonGAuthorizeMethod obj cb = liftIO $ do-    let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb-    cb'' <- mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb'-    connectSignalFunPtr obj "g-authorize-method" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@g-authorize-method@” 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' dBusInterfaceSkeleton #gAuthorizeMethod callback-@--}-afterDBusInterfaceSkeletonGAuthorizeMethod :: (IsDBusInterfaceSkeleton a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId-afterDBusInterfaceSkeletonGAuthorizeMethod obj cb = liftIO $ do-    let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb-    cb'' <- mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb'-    connectSignalFunPtr obj "g-authorize-method" cb'' SignalConnectAfter----- VVV Prop "g-flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeletonFlags"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceSkeleton #gFlags-@--}-getDBusInterfaceSkeletonGFlags :: (MonadIO m, IsDBusInterfaceSkeleton o) => o -> m [Gio.Flags.DBusInterfaceSkeletonFlags]-getDBusInterfaceSkeletonGFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "g-flags"--{- |-Set the value of the “@g-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceSkeleton [ #gFlags 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceSkeletonGFlags :: (MonadIO m, IsDBusInterfaceSkeleton o) => o -> [Gio.Flags.DBusInterfaceSkeletonFlags] -> m ()-setDBusInterfaceSkeletonGFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "g-flags" val--{- |-Construct a `GValueConstruct` with valid value for the “@g-flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusInterfaceSkeletonGFlags :: (IsDBusInterfaceSkeleton o) => [Gio.Flags.DBusInterfaceSkeletonFlags] -> IO (GValueConstruct o)-constructDBusInterfaceSkeletonGFlags val = B.Properties.constructObjectPropertyFlags "g-flags" val--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGFlagsPropertyInfo-instance AttrInfo DBusInterfaceSkeletonGFlagsPropertyInfo where-    type AttrAllowedOps DBusInterfaceSkeletonGFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = (~) [Gio.Flags.DBusInterfaceSkeletonFlags]-    type AttrBaseTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = IsDBusInterfaceSkeleton-    type AttrGetType DBusInterfaceSkeletonGFlagsPropertyInfo = [Gio.Flags.DBusInterfaceSkeletonFlags]-    type AttrLabel DBusInterfaceSkeletonGFlagsPropertyInfo = "g-flags"-    type AttrOrigin DBusInterfaceSkeletonGFlagsPropertyInfo = DBusInterfaceSkeleton-    attrGet _ = getDBusInterfaceSkeletonGFlags-    attrSet _ = setDBusInterfaceSkeletonGFlags-    attrConstruct _ = constructDBusInterfaceSkeletonGFlags-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusInterfaceSkeleton-type instance O.AttributeList DBusInterfaceSkeleton = DBusInterfaceSkeletonAttributeList-type DBusInterfaceSkeletonAttributeList = ('[ '("gFlags", DBusInterfaceSkeletonGFlagsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusInterfaceSkeletonGFlags :: AttrLabelProxy "gFlags"-dBusInterfaceSkeletonGFlags = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo-instance SignalInfo DBusInterfaceSkeletonGAuthorizeMethodSignalInfo where-    type HaskellCallbackType DBusInterfaceSkeletonGAuthorizeMethodSignalInfo = DBusInterfaceSkeletonGAuthorizeMethodCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusInterfaceSkeletonGAuthorizeMethodCallback cb-        cb'' <- mk_DBusInterfaceSkeletonGAuthorizeMethodCallback cb'-        connectSignalFunPtr obj "g-authorize-method" cb'' connectMode--type instance O.SignalList DBusInterfaceSkeleton = DBusInterfaceSkeletonSignalList-type DBusInterfaceSkeletonSignalList = ('[ '("gAuthorizeMethod", DBusInterfaceSkeletonGAuthorizeMethodSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusInterfaceSkeleton::export--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus interface to export.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection to export @interface_ on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The path to export the interface at.", 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 "g_dbus_interface_skeleton_export" g_dbus_interface_skeleton_export :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- object_path : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Exports /@interface_@/ at /@objectPath@/ on /@connection@/.--This can be called multiple times to export the same /@interface_@/-onto multiple connections however the /@objectPath@/ provided must be-the same for all connections.--Use 'GI.Gio.Objects.DBusInterfaceSkeleton.dBusInterfaceSkeletonUnexport' to unexport the object.--/Since: 2.30/--}-dBusInterfaceSkeletonExport ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) =>-    a-    {- ^ /@interface_@/: The D-Bus interface to export. -}-    -> b-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection' to export /@interface_@/ on. -}-    -> T.Text-    {- ^ /@objectPath@/: The path to export the interface at. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusInterfaceSkeletonExport interface_ connection objectPath = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    connection' <- unsafeManagedPtrCastPtr connection-    objectPath' <- textToCString objectPath-    onException (do-        _ <- propagateGError $ g_dbus_interface_skeleton_export interface_' connection' objectPath'-        touchManagedPtr interface_-        touchManagedPtr connection-        freeMem objectPath'-        return ()-     ) (do-        freeMem objectPath'-     )--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonExportMethodInfo-instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonExportMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonExport--#endif---- method DBusInterfaceSkeleton::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_flush" g_dbus_interface_skeleton_flush :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO ()--{- |-If /@interface_@/ has outstanding changes, request for these changes to be-emitted immediately.--For example, an exported D-Bus interface may queue up property-changes and emit the-@org.freedesktop.DBus.Properties.PropertiesChanged@-signal later (e.g. in an idle handler). This technique is useful-for collapsing multiple property changes into one.--/Since: 2.30/--}-dBusInterfaceSkeletonFlush ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m ()-dBusInterfaceSkeletonFlush interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    g_dbus_interface_skeleton_flush interface_'-    touchManagedPtr interface_-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonFlushMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonFlushMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonFlush--#endif---- method DBusInterfaceSkeleton::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_connection" g_dbus_interface_skeleton_get_connection :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Gets the first connection that /@interface_@/ is exported on, if any.--/Since: 2.30/--}-dBusInterfaceSkeletonGetConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusConnection.DBusConnection' or 'Nothing' if /@interface_@/ is-not exported anywhere. Do not free, the object belongs to /@interface_@/. -}-dBusInterfaceSkeletonGetConnection interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    result <- g_dbus_interface_skeleton_get_connection interface_'-    checkUnexpectedReturnNULL "dBusInterfaceSkeletonGetConnection" result-    result' <- (newObject Gio.DBusConnection.DBusConnection) result-    touchManagedPtr interface_-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetConnectionMethodInfo-instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetConnection--#endif---- method DBusInterfaceSkeleton::get_connections--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "DBusConnection"})))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_connections" g_dbus_interface_skeleton_get_connections :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO (Ptr (GList (Ptr Gio.DBusConnection.DBusConnection)))--{- |-Gets a list of the connections that /@interface_@/ is exported on.--/Since: 2.32/--}-dBusInterfaceSkeletonGetConnections ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m [Gio.DBusConnection.DBusConnection]-    {- ^ __Returns:__ A list of-  all the connections that /@interface_@/ is exported on. The returned-  list should be freed with @/g_list_free()/@ after each element has-  been freed with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusInterfaceSkeletonGetConnections interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    result <- g_dbus_interface_skeleton_get_connections interface_'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Gio.DBusConnection.DBusConnection) result'-    g_list_free result-    touchManagedPtr interface_-    return result''--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetConnectionsMethodInfo-instance (signature ~ (m [Gio.DBusConnection.DBusConnection]), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetConnectionsMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetConnections--#endif---- method DBusInterfaceSkeleton::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeletonFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_flags" g_dbus_interface_skeleton_get_flags :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO CUInt--{- |-Gets the 'GI.Gio.Flags.DBusInterfaceSkeletonFlags' that describes what the behavior-of /@interface_@/--/Since: 2.30/--}-dBusInterfaceSkeletonGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m [Gio.Flags.DBusInterfaceSkeletonFlags]-    {- ^ __Returns:__ One or more flags from the 'GI.Gio.Flags.DBusInterfaceSkeletonFlags' enumeration. -}-dBusInterfaceSkeletonGetFlags interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    result <- g_dbus_interface_skeleton_get_flags interface_'-    let result' = wordToGFlags result-    touchManagedPtr interface_-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.DBusInterfaceSkeletonFlags]), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetFlags--#endif---- method DBusInterfaceSkeleton::get_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_info" g_dbus_interface_skeleton_get_info :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo)--{- |-Gets D-Bus introspection information for the D-Bus interface-implemented by /@interface_@/.--/Since: 2.30/--}-dBusInterfaceSkeletonGetInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m Gio.DBusInterfaceInfo.DBusInterfaceInfo-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' (never 'Nothing'). Do not free. -}-dBusInterfaceSkeletonGetInfo interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    result <- g_dbus_interface_skeleton_get_info interface_'-    checkUnexpectedReturnNULL "dBusInterfaceSkeletonGetInfo" result-    result' <- (newBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) result-    touchManagedPtr interface_-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetInfoMethodInfo-instance (signature ~ (m Gio.DBusInterfaceInfo.DBusInterfaceInfo), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetInfoMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetInfo--#endif---- method DBusInterfaceSkeleton::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", 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 "g_dbus_interface_skeleton_get_object_path" g_dbus_interface_skeleton_get_object_path :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO CString--{- |-Gets the object path that /@interface_@/ is exported on, if any.--/Since: 2.30/--}-dBusInterfaceSkeletonGetObjectPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m T.Text-    {- ^ __Returns:__ A string owned by /@interface_@/ or 'Nothing' if /@interface_@/ is not exported-anywhere. Do not free, the string belongs to /@interface_@/. -}-dBusInterfaceSkeletonGetObjectPath interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    result <- g_dbus_interface_skeleton_get_object_path interface_'-    checkUnexpectedReturnNULL "dBusInterfaceSkeletonGetObjectPath" result-    result' <- cstringToText result-    touchManagedPtr interface_-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetObjectPath--#endif---- method DBusInterfaceSkeleton::get_properties--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_get_properties" g_dbus_interface_skeleton_get_properties :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO (Ptr GVariant)--{- |-Gets all D-Bus properties for /@interface_@/.--/Since: 2.30/--}-dBusInterfaceSkeletonGetProperties ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m GVariant-    {- ^ __Returns:__ A 'GVariant' of type-[\'a{sv}\'][G-VARIANT-TYPE-VARDICT:CAPS].-Free with 'GI.GLib.Structs.Variant.variantUnref'. -}-dBusInterfaceSkeletonGetProperties interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    result <- g_dbus_interface_skeleton_get_properties interface_'-    checkUnexpectedReturnNULL "dBusInterfaceSkeletonGetProperties" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr interface_-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetPropertiesMethodInfo-instance (signature ~ (m GVariant), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonGetPropertiesMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonGetProperties--#endif---- method DBusInterfaceSkeleton::has_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", 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 "g_dbus_interface_skeleton_has_connection" g_dbus_interface_skeleton_has_connection :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO CInt--{- |-Checks if /@interface_@/ is exported on /@connection@/.--/Since: 2.32/--}-dBusInterfaceSkeletonHasConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> b-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@interface_@/ is exported on /@connection@/, 'False' otherwise. -}-dBusInterfaceSkeletonHasConnection interface_ connection = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_dbus_interface_skeleton_has_connection interface_' connection'-    let result' = (/= 0) result-    touchManagedPtr interface_-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonHasConnectionMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonHasConnectionMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonHasConnection--#endif---- method DBusInterfaceSkeleton::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeletonFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags from the #GDBusInterfaceSkeletonFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_set_flags" g_dbus_interface_skeleton_set_flags :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeletonFlags"})-    IO ()--{- |-Sets flags describing what the behavior of /@skeleton@/ should be.--/Since: 2.30/--}-dBusInterfaceSkeletonSetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> [Gio.Flags.DBusInterfaceSkeletonFlags]-    {- ^ /@flags@/: Flags from the 'GI.Gio.Flags.DBusInterfaceSkeletonFlags' enumeration. -}-    -> m ()-dBusInterfaceSkeletonSetFlags interface_ flags = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    let flags' = gflagsToWord flags-    g_dbus_interface_skeleton_set_flags interface_' flags'-    touchManagedPtr interface_-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonSetFlagsMethodInfo-instance (signature ~ ([Gio.Flags.DBusInterfaceSkeletonFlags] -> m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonSetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonSetFlags--#endif---- method DBusInterfaceSkeleton::unexport--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_unexport" g_dbus_interface_skeleton_unexport :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO ()--{- |-Stops exporting /@interface_@/ on all connections it is exported on.--To unexport /@interface_@/ from only a single connection, use-'GI.Gio.Objects.DBusInterfaceSkeleton.dBusInterfaceSkeletonUnexportFromConnection'--/Since: 2.30/--}-dBusInterfaceSkeletonUnexport ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m ()-dBusInterfaceSkeletonUnexport interface_ = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    g_dbus_interface_skeleton_unexport interface_'-    touchManagedPtr interface_-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonUnexportMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDBusInterfaceSkeleton a) => O.MethodInfo DBusInterfaceSkeletonUnexportMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonUnexport--#endif---- method DBusInterfaceSkeleton::unexport_from_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_skeleton_unexport_from_connection" g_dbus_interface_skeleton_unexport_from_connection :: -    Ptr DBusInterfaceSkeleton ->            -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO ()--{- |-Stops exporting /@interface_@/ on /@connection@/.--To stop exporting on all connections the interface is exported on,-use 'GI.Gio.Objects.DBusInterfaceSkeleton.dBusInterfaceSkeletonUnexport'.--/Since: 2.32/--}-dBusInterfaceSkeletonUnexportFromConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) =>-    a-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> b-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> m ()-dBusInterfaceSkeletonUnexportFromConnection interface_ connection = liftIO $ do-    interface_' <- unsafeManagedPtrCastPtr interface_-    connection' <- unsafeManagedPtrCastPtr connection-    g_dbus_interface_skeleton_unexport_from_connection interface_' connection'-    touchManagedPtr interface_-    touchManagedPtr connection-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDBusInterfaceSkeleton a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusInterfaceSkeletonUnexportFromConnectionMethodInfo a signature where-    overloadedMethod _ = dBusInterfaceSkeletonUnexportFromConnection--#endif--
− GI/Gio/Objects/DBusInterfaceSkeleton.hs-boot 
@@ -1,71 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusInterfaceSkeleton 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 DBusInterfaceSkeleton = DBusInterfaceSkeleton (ManagedPtr DBusInterfaceSkeleton)-instance GObject DBusInterfaceSkeleton where-class (GObject o, O.IsDescendantOf DBusInterfaceSkeleton o) => IsDBusInterfaceSkeleton o-instance (GObject o, O.IsDescendantOf DBusInterfaceSkeleton o) => IsDBusInterfaceSkeleton o-instance O.HasParentTypes DBusInterfaceSkeleton-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonExportMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonFlushMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetConnectionsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetObjectPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonGetPropertiesMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonHasConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonSetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonUnexportMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo-#endif
− GI/Gio/Objects/DBusMenuModel.hs 
@@ -1,197 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.DBusMenuModel.DBusMenuModel' is an implementation of 'GI.Gio.Objects.MenuModel.MenuModel' that can be used-as a proxy for a menu model that is exported over D-Bus with-'GI.Gio.Objects.DBusConnection.dBusConnectionExportMenuModel'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusMenuModel-    ( ---- * Exported types-    DBusMenuModel(..)                       ,-    IsDBusMenuModel                         ,-    toDBusMenuModel                         ,-    noDBusMenuModel                         ,--- -- * Methods--- ** get #method:get#--    dBusMenuModelGet                        ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.MenuModel as Gio.MenuModel---- | Memory-managed wrapper type.-newtype DBusMenuModel = DBusMenuModel (ManagedPtr DBusMenuModel)-foreign import ccall "g_dbus_menu_model_get_type"-    c_g_dbus_menu_model_get_type :: IO GType--instance GObject DBusMenuModel where-    gobjectType = c_g_dbus_menu_model_get_type-    ---- | Type class for types which can be safely cast to `DBusMenuModel`, for instance with `toDBusMenuModel`.-class (GObject o, O.IsDescendantOf DBusMenuModel o) => IsDBusMenuModel o-instance (GObject o, O.IsDescendantOf DBusMenuModel o) => IsDBusMenuModel o--instance O.HasParentTypes DBusMenuModel-type instance O.ParentTypes DBusMenuModel = '[Gio.MenuModel.MenuModel, GObject.Object.Object]---- | Cast to `DBusMenuModel`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusMenuModel :: (MonadIO m, IsDBusMenuModel o) => o -> m DBusMenuModel-toDBusMenuModel = liftIO . unsafeCastTo DBusMenuModel---- | A convenience alias for `Nothing` :: `Maybe` `DBusMenuModel`.-noDBusMenuModel :: Maybe DBusMenuModel-noDBusMenuModel = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusMenuModelMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusMenuModelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusMenuModelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusMenuModelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusMenuModelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusMenuModelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusMenuModelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusMenuModelMethod "isMutable" o = Gio.MenuModel.MenuModelIsMutableMethodInfo-    ResolveDBusMenuModelMethod "itemsChanged" o = Gio.MenuModel.MenuModelItemsChangedMethodInfo-    ResolveDBusMenuModelMethod "iterateItemAttributes" o = Gio.MenuModel.MenuModelIterateItemAttributesMethodInfo-    ResolveDBusMenuModelMethod "iterateItemLinks" o = Gio.MenuModel.MenuModelIterateItemLinksMethodInfo-    ResolveDBusMenuModelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusMenuModelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusMenuModelMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusMenuModelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusMenuModelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusMenuModelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusMenuModelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusMenuModelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusMenuModelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusMenuModelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusMenuModelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusMenuModelMethod "getItemAttributeValue" o = Gio.MenuModel.MenuModelGetItemAttributeValueMethodInfo-    ResolveDBusMenuModelMethod "getItemLink" o = Gio.MenuModel.MenuModelGetItemLinkMethodInfo-    ResolveDBusMenuModelMethod "getNItems" o = Gio.MenuModel.MenuModelGetNItemsMethodInfo-    ResolveDBusMenuModelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusMenuModelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusMenuModelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusMenuModelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusMenuModelMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusMenuModelMethod t DBusMenuModel, O.MethodInfo info DBusMenuModel p) => OL.IsLabel t (DBusMenuModel -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusMenuModel-type instance O.AttributeList DBusMenuModel = DBusMenuModelAttributeList-type DBusMenuModelAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DBusMenuModel = DBusMenuModelSignalList-type DBusMenuModelSignalList = ('[ '("itemsChanged", Gio.MenuModel.MenuModelItemsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusMenuModel::get--- method type : MemberFunction--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the bus name which exports the menu model\n    or %NULL if @connection is not a message bus connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the object path at which the menu model is exported", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMenuModel"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_menu_model_get" g_dbus_menu_model_get :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- bus_name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusMenuModel)--{- |-Obtains a 'GI.Gio.Objects.DBusMenuModel.DBusMenuModel' for the menu model which is exported-at the given /@busName@/ and /@objectPath@/.--The thread default main context is taken at the time of this call.-All signals on the menu model (and any linked models) are reported-with respect to this context.  All calls on the returned menu model-(and linked models) must also originate from this same context, with-the thread default main context unchanged.--/Since: 2.32/--}-dBusMenuModelGet ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> Maybe (T.Text)-    {- ^ /@busName@/: the bus name which exports the menu model-    or 'Nothing' if /@connection@/ is not a message bus connection -}-    -> T.Text-    {- ^ /@objectPath@/: the object path at which the menu model is exported -}-    -> m DBusMenuModel-    {- ^ __Returns:__ a 'GI.Gio.Objects.DBusMenuModel.DBusMenuModel' object. Free with-    'GI.GObject.Objects.Object.objectUnref'. -}-dBusMenuModelGet connection busName objectPath = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeBusName <- case busName of-        Nothing -> return nullPtr-        Just jBusName -> do-            jBusName' <- textToCString jBusName-            return jBusName'-    objectPath' <- textToCString objectPath-    result <- g_dbus_menu_model_get connection' maybeBusName objectPath'-    checkUnexpectedReturnNULL "dBusMenuModelGet" result-    result' <- (wrapObject DBusMenuModel) result-    touchManagedPtr connection-    freeMem maybeBusName-    freeMem objectPath'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/DBusMenuModel.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusMenuModel 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 DBusMenuModel = DBusMenuModel (ManagedPtr DBusMenuModel)-instance GObject DBusMenuModel where-class (GObject o, O.IsDescendantOf DBusMenuModel o) => IsDBusMenuModel o-instance (GObject o, O.IsDescendantOf DBusMenuModel o) => IsDBusMenuModel o-instance O.HasParentTypes DBusMenuModel
− GI/Gio/Objects/DBusMessage.hs 
@@ -1,2533 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A type for representing D-Bus messages that can be sent or received-on a 'GI.Gio.Objects.DBusConnection.DBusConnection'.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusMessage-    ( ---- * Exported types-    DBusMessage(..)                         ,-    IsDBusMessage                           ,-    toDBusMessage                           ,-    noDBusMessage                           ,--- -- * Methods--- ** bytesNeeded #method:bytesNeeded#--    dBusMessageBytesNeeded                  ,----- ** copy #method:copy#--#if ENABLE_OVERLOADING-    DBusMessageCopyMethodInfo               ,-#endif-    dBusMessageCopy                         ,----- ** getArg0 #method:getArg0#--#if ENABLE_OVERLOADING-    DBusMessageGetArg0MethodInfo            ,-#endif-    dBusMessageGetArg0                      ,----- ** getBody #method:getBody#--#if ENABLE_OVERLOADING-    DBusMessageGetBodyMethodInfo            ,-#endif-    dBusMessageGetBody                      ,----- ** getByteOrder #method:getByteOrder#--#if ENABLE_OVERLOADING-    DBusMessageGetByteOrderMethodInfo       ,-#endif-    dBusMessageGetByteOrder                 ,----- ** getDestination #method:getDestination#--#if ENABLE_OVERLOADING-    DBusMessageGetDestinationMethodInfo     ,-#endif-    dBusMessageGetDestination               ,----- ** getErrorName #method:getErrorName#--#if ENABLE_OVERLOADING-    DBusMessageGetErrorNameMethodInfo       ,-#endif-    dBusMessageGetErrorName                 ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    DBusMessageGetFlagsMethodInfo           ,-#endif-    dBusMessageGetFlags                     ,----- ** getHeader #method:getHeader#--#if ENABLE_OVERLOADING-    DBusMessageGetHeaderMethodInfo          ,-#endif-    dBusMessageGetHeader                    ,----- ** getHeaderFields #method:getHeaderFields#--#if ENABLE_OVERLOADING-    DBusMessageGetHeaderFieldsMethodInfo    ,-#endif-    dBusMessageGetHeaderFields              ,----- ** getInterface #method:getInterface#--#if ENABLE_OVERLOADING-    DBusMessageGetInterfaceMethodInfo       ,-#endif-    dBusMessageGetInterface                 ,----- ** getLocked #method:getLocked#--#if ENABLE_OVERLOADING-    DBusMessageGetLockedMethodInfo          ,-#endif-    dBusMessageGetLocked                    ,----- ** getMember #method:getMember#--#if ENABLE_OVERLOADING-    DBusMessageGetMemberMethodInfo          ,-#endif-    dBusMessageGetMember                    ,----- ** getMessageType #method:getMessageType#--#if ENABLE_OVERLOADING-    DBusMessageGetMessageTypeMethodInfo     ,-#endif-    dBusMessageGetMessageType               ,----- ** getNumUnixFds #method:getNumUnixFds#--#if ENABLE_OVERLOADING-    DBusMessageGetNumUnixFdsMethodInfo      ,-#endif-    dBusMessageGetNumUnixFds                ,----- ** getPath #method:getPath#--#if ENABLE_OVERLOADING-    DBusMessageGetPathMethodInfo            ,-#endif-    dBusMessageGetPath                      ,----- ** getReplySerial #method:getReplySerial#--#if ENABLE_OVERLOADING-    DBusMessageGetReplySerialMethodInfo     ,-#endif-    dBusMessageGetReplySerial               ,----- ** getSender #method:getSender#--#if ENABLE_OVERLOADING-    DBusMessageGetSenderMethodInfo          ,-#endif-    dBusMessageGetSender                    ,----- ** getSerial #method:getSerial#--#if ENABLE_OVERLOADING-    DBusMessageGetSerialMethodInfo          ,-#endif-    dBusMessageGetSerial                    ,----- ** getSignature #method:getSignature#--#if ENABLE_OVERLOADING-    DBusMessageGetSignatureMethodInfo       ,-#endif-    dBusMessageGetSignature                 ,----- ** getUnixFdList #method:getUnixFdList#--#if ENABLE_OVERLOADING-    DBusMessageGetUnixFdListMethodInfo      ,-#endif-    dBusMessageGetUnixFdList                ,----- ** lock #method:lock#--#if ENABLE_OVERLOADING-    DBusMessageLockMethodInfo               ,-#endif-    dBusMessageLock                         ,----- ** new #method:new#--    dBusMessageNew                          ,----- ** newFromBlob #method:newFromBlob#--    dBusMessageNewFromBlob                  ,----- ** newMethodCall #method:newMethodCall#--    dBusMessageNewMethodCall                ,----- ** newMethodErrorLiteral #method:newMethodErrorLiteral#--#if ENABLE_OVERLOADING-    DBusMessageNewMethodErrorLiteralMethodInfo,-#endif-    dBusMessageNewMethodErrorLiteral        ,----- ** newMethodReply #method:newMethodReply#--#if ENABLE_OVERLOADING-    DBusMessageNewMethodReplyMethodInfo     ,-#endif-    dBusMessageNewMethodReply               ,----- ** newSignal #method:newSignal#--    dBusMessageNewSignal                    ,----- ** print #method:print#--#if ENABLE_OVERLOADING-    DBusMessagePrintMethodInfo              ,-#endif-    dBusMessagePrint                        ,----- ** setBody #method:setBody#--#if ENABLE_OVERLOADING-    DBusMessageSetBodyMethodInfo            ,-#endif-    dBusMessageSetBody                      ,----- ** setByteOrder #method:setByteOrder#--#if ENABLE_OVERLOADING-    DBusMessageSetByteOrderMethodInfo       ,-#endif-    dBusMessageSetByteOrder                 ,----- ** setDestination #method:setDestination#--#if ENABLE_OVERLOADING-    DBusMessageSetDestinationMethodInfo     ,-#endif-    dBusMessageSetDestination               ,----- ** setErrorName #method:setErrorName#--#if ENABLE_OVERLOADING-    DBusMessageSetErrorNameMethodInfo       ,-#endif-    dBusMessageSetErrorName                 ,----- ** setFlags #method:setFlags#--#if ENABLE_OVERLOADING-    DBusMessageSetFlagsMethodInfo           ,-#endif-    dBusMessageSetFlags                     ,----- ** setHeader #method:setHeader#--#if ENABLE_OVERLOADING-    DBusMessageSetHeaderMethodInfo          ,-#endif-    dBusMessageSetHeader                    ,----- ** setInterface #method:setInterface#--#if ENABLE_OVERLOADING-    DBusMessageSetInterfaceMethodInfo       ,-#endif-    dBusMessageSetInterface                 ,----- ** setMember #method:setMember#--#if ENABLE_OVERLOADING-    DBusMessageSetMemberMethodInfo          ,-#endif-    dBusMessageSetMember                    ,----- ** setMessageType #method:setMessageType#--#if ENABLE_OVERLOADING-    DBusMessageSetMessageTypeMethodInfo     ,-#endif-    dBusMessageSetMessageType               ,----- ** setNumUnixFds #method:setNumUnixFds#--#if ENABLE_OVERLOADING-    DBusMessageSetNumUnixFdsMethodInfo      ,-#endif-    dBusMessageSetNumUnixFds                ,----- ** setPath #method:setPath#--#if ENABLE_OVERLOADING-    DBusMessageSetPathMethodInfo            ,-#endif-    dBusMessageSetPath                      ,----- ** setReplySerial #method:setReplySerial#--#if ENABLE_OVERLOADING-    DBusMessageSetReplySerialMethodInfo     ,-#endif-    dBusMessageSetReplySerial               ,----- ** setSender #method:setSender#--#if ENABLE_OVERLOADING-    DBusMessageSetSenderMethodInfo          ,-#endif-    dBusMessageSetSender                    ,----- ** setSerial #method:setSerial#--#if ENABLE_OVERLOADING-    DBusMessageSetSerialMethodInfo          ,-#endif-    dBusMessageSetSerial                    ,----- ** setSignature #method:setSignature#--#if ENABLE_OVERLOADING-    DBusMessageSetSignatureMethodInfo       ,-#endif-    dBusMessageSetSignature                 ,----- ** setUnixFdList #method:setUnixFdList#--#if ENABLE_OVERLOADING-    DBusMessageSetUnixFdListMethodInfo      ,-#endif-    dBusMessageSetUnixFdList                ,----- ** toBlob #method:toBlob#--#if ENABLE_OVERLOADING-    DBusMessageToBlobMethodInfo             ,-#endif-    dBusMessageToBlob                       ,----- ** toGerror #method:toGerror#--#if ENABLE_OVERLOADING-    DBusMessageToGerrorMethodInfo           ,-#endif-    dBusMessageToGerror                     ,----- -- * Properties--- ** locked #attr:locked#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    DBusMessageLockedPropertyInfo           ,-#endif-#if ENABLE_OVERLOADING-    dBusMessageLocked                       ,-#endif-    getDBusMessageLocked                    ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Objects.UnixFDList as Gio.UnixFDList---- | Memory-managed wrapper type.-newtype DBusMessage = DBusMessage (ManagedPtr DBusMessage)-foreign import ccall "g_dbus_message_get_type"-    c_g_dbus_message_get_type :: IO GType--instance GObject DBusMessage where-    gobjectType = c_g_dbus_message_get_type-    ---- | Type class for types which can be safely cast to `DBusMessage`, for instance with `toDBusMessage`.-class (GObject o, O.IsDescendantOf DBusMessage o) => IsDBusMessage o-instance (GObject o, O.IsDescendantOf DBusMessage o) => IsDBusMessage o--instance O.HasParentTypes DBusMessage-type instance O.ParentTypes DBusMessage = '[GObject.Object.Object]---- | Cast to `DBusMessage`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusMessage :: (MonadIO m, IsDBusMessage o) => o -> m DBusMessage-toDBusMessage = liftIO . unsafeCastTo DBusMessage---- | A convenience alias for `Nothing` :: `Maybe` `DBusMessage`.-noDBusMessage :: Maybe DBusMessage-noDBusMessage = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusMessageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusMessageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusMessageMethod "copy" o = DBusMessageCopyMethodInfo-    ResolveDBusMessageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusMessageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusMessageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusMessageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusMessageMethod "lock" o = DBusMessageLockMethodInfo-    ResolveDBusMessageMethod "newMethodErrorLiteral" o = DBusMessageNewMethodErrorLiteralMethodInfo-    ResolveDBusMessageMethod "newMethodReply" o = DBusMessageNewMethodReplyMethodInfo-    ResolveDBusMessageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusMessageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusMessageMethod "print" o = DBusMessagePrintMethodInfo-    ResolveDBusMessageMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusMessageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusMessageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusMessageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusMessageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusMessageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusMessageMethod "toBlob" o = DBusMessageToBlobMethodInfo-    ResolveDBusMessageMethod "toGerror" o = DBusMessageToGerrorMethodInfo-    ResolveDBusMessageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusMessageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusMessageMethod "getArg0" o = DBusMessageGetArg0MethodInfo-    ResolveDBusMessageMethod "getBody" o = DBusMessageGetBodyMethodInfo-    ResolveDBusMessageMethod "getByteOrder" o = DBusMessageGetByteOrderMethodInfo-    ResolveDBusMessageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusMessageMethod "getDestination" o = DBusMessageGetDestinationMethodInfo-    ResolveDBusMessageMethod "getErrorName" o = DBusMessageGetErrorNameMethodInfo-    ResolveDBusMessageMethod "getFlags" o = DBusMessageGetFlagsMethodInfo-    ResolveDBusMessageMethod "getHeader" o = DBusMessageGetHeaderMethodInfo-    ResolveDBusMessageMethod "getHeaderFields" o = DBusMessageGetHeaderFieldsMethodInfo-    ResolveDBusMessageMethod "getInterface" o = DBusMessageGetInterfaceMethodInfo-    ResolveDBusMessageMethod "getLocked" o = DBusMessageGetLockedMethodInfo-    ResolveDBusMessageMethod "getMember" o = DBusMessageGetMemberMethodInfo-    ResolveDBusMessageMethod "getMessageType" o = DBusMessageGetMessageTypeMethodInfo-    ResolveDBusMessageMethod "getNumUnixFds" o = DBusMessageGetNumUnixFdsMethodInfo-    ResolveDBusMessageMethod "getPath" o = DBusMessageGetPathMethodInfo-    ResolveDBusMessageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusMessageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusMessageMethod "getReplySerial" o = DBusMessageGetReplySerialMethodInfo-    ResolveDBusMessageMethod "getSender" o = DBusMessageGetSenderMethodInfo-    ResolveDBusMessageMethod "getSerial" o = DBusMessageGetSerialMethodInfo-    ResolveDBusMessageMethod "getSignature" o = DBusMessageGetSignatureMethodInfo-    ResolveDBusMessageMethod "getUnixFdList" o = DBusMessageGetUnixFdListMethodInfo-    ResolveDBusMessageMethod "setBody" o = DBusMessageSetBodyMethodInfo-    ResolveDBusMessageMethod "setByteOrder" o = DBusMessageSetByteOrderMethodInfo-    ResolveDBusMessageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusMessageMethod "setDestination" o = DBusMessageSetDestinationMethodInfo-    ResolveDBusMessageMethod "setErrorName" o = DBusMessageSetErrorNameMethodInfo-    ResolveDBusMessageMethod "setFlags" o = DBusMessageSetFlagsMethodInfo-    ResolveDBusMessageMethod "setHeader" o = DBusMessageSetHeaderMethodInfo-    ResolveDBusMessageMethod "setInterface" o = DBusMessageSetInterfaceMethodInfo-    ResolveDBusMessageMethod "setMember" o = DBusMessageSetMemberMethodInfo-    ResolveDBusMessageMethod "setMessageType" o = DBusMessageSetMessageTypeMethodInfo-    ResolveDBusMessageMethod "setNumUnixFds" o = DBusMessageSetNumUnixFdsMethodInfo-    ResolveDBusMessageMethod "setPath" o = DBusMessageSetPathMethodInfo-    ResolveDBusMessageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusMessageMethod "setReplySerial" o = DBusMessageSetReplySerialMethodInfo-    ResolveDBusMessageMethod "setSender" o = DBusMessageSetSenderMethodInfo-    ResolveDBusMessageMethod "setSerial" o = DBusMessageSetSerialMethodInfo-    ResolveDBusMessageMethod "setSignature" o = DBusMessageSetSignatureMethodInfo-    ResolveDBusMessageMethod "setUnixFdList" o = DBusMessageSetUnixFdListMethodInfo-    ResolveDBusMessageMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusMessageMethod t DBusMessage, O.MethodInfo info DBusMessage p) => OL.IsLabel t (DBusMessage -> 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---- VVV Prop "locked"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@locked@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusMessage #locked-@--}-getDBusMessageLocked :: (MonadIO m, IsDBusMessage o) => o -> m Bool-getDBusMessageLocked obj = liftIO $ B.Properties.getObjectPropertyBool obj "locked"--#if ENABLE_OVERLOADING-data DBusMessageLockedPropertyInfo-instance AttrInfo DBusMessageLockedPropertyInfo where-    type AttrAllowedOps DBusMessageLockedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DBusMessageLockedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusMessageLockedPropertyInfo = IsDBusMessage-    type AttrGetType DBusMessageLockedPropertyInfo = Bool-    type AttrLabel DBusMessageLockedPropertyInfo = "locked"-    type AttrOrigin DBusMessageLockedPropertyInfo = DBusMessage-    attrGet _ = getDBusMessageLocked-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusMessage-type instance O.AttributeList DBusMessage = DBusMessageAttributeList-type DBusMessageAttributeList = ('[ '("locked", DBusMessageLockedPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusMessageLocked :: AttrLabelProxy "locked"-dBusMessageLocked = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DBusMessage = DBusMessageSignalList-type DBusMessageSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusMessage::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_new" g_dbus_message_new :: -    IO (Ptr DBusMessage)--{- |-Creates a new empty 'GI.Gio.Objects.DBusMessage.DBusMessage'.--/Since: 2.26/--}-dBusMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m DBusMessage-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusMessage.DBusMessage'. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusMessageNew  = liftIO $ do-    result <- g_dbus_message_new-    checkUnexpectedReturnNULL "dBusMessageNew" result-    result' <- (wrapObject DBusMessage) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method DBusMessage::new_from_blob--- method type : Constructor--- Args : [Arg {argCName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A blob representing a binary D-Bus message.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The length of @blob.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "capabilities", argType = TInterface (Name {namespace = "Gio", name = "DBusCapabilityFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusCapabilityFlags describing what protocol features are supported.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The length of @blob.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_message_new_from_blob" g_dbus_message_new_from_blob :: -    Ptr Word8 ->                            -- blob : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- blob_len : TBasicType TUInt64-    CUInt ->                                -- capabilities : TInterface (Name {namespace = "Gio", name = "DBusCapabilityFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusMessage)--{- |-Creates a new 'GI.Gio.Objects.DBusMessage.DBusMessage' from the data stored at /@blob@/. The byte-order that the message was in can be retrieved using-'GI.Gio.Objects.DBusMessage.dBusMessageGetByteOrder'.--If the /@blob@/ cannot be parsed, contains invalid fields, or contains invalid-headers, 'GI.Gio.Enums.IOErrorEnumInvalidArgument' will be returned.--/Since: 2.26/--}-dBusMessageNewFromBlob ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@blob@/: A blob representing a binary D-Bus message. -}-    -> [Gio.Flags.DBusCapabilityFlags]-    {- ^ /@capabilities@/: A 'GI.Gio.Flags.DBusCapabilityFlags' describing what protocol features are supported. -}-    -> m DBusMessage-    {- ^ __Returns:__ A new 'GI.Gio.Objects.DBusMessage.DBusMessage' or 'Nothing' if /@error@/ is set. Free with-'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusMessageNewFromBlob blob capabilities = liftIO $ do-    let blobLen = fromIntegral $ B.length blob-    blob' <- packByteString blob-    let capabilities' = gflagsToWord capabilities-    onException (do-        result <- propagateGError $ g_dbus_message_new_from_blob blob' blobLen capabilities'-        checkUnexpectedReturnNULL "dBusMessageNewFromBlob" result-        result' <- (wrapObject DBusMessage) result-        freeMem blob'-        return result'-     ) (do-        freeMem blob'-     )--#if ENABLE_OVERLOADING-#endif---- method DBusMessage::new_method_call--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A valid D-Bus name or %NULL.", 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 "A valid object path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A valid D-Bus interface name or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid method name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_new_method_call" g_dbus_message_new_method_call :: -    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- path : TBasicType TUTF8-    CString ->                              -- interface_ : TBasicType TUTF8-    CString ->                              -- method : TBasicType TUTF8-    IO (Ptr DBusMessage)--{- |-Creates a new 'GI.Gio.Objects.DBusMessage.DBusMessage' for a method call.--/Since: 2.26/--}-dBusMessageNewMethodCall ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@name@/: A valid D-Bus name or 'Nothing'. -}-    -> T.Text-    {- ^ /@path@/: A valid object path. -}-    -> Maybe (T.Text)-    {- ^ /@interface_@/: A valid D-Bus interface name or 'Nothing'. -}-    -> T.Text-    {- ^ /@method@/: A valid method name. -}-    -> m DBusMessage-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusMessage.DBusMessage'. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusMessageNewMethodCall name path interface_ method = liftIO $ do-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    path' <- textToCString path-    maybeInterface_ <- case interface_ of-        Nothing -> return nullPtr-        Just jInterface_ -> do-            jInterface_' <- textToCString jInterface_-            return jInterface_'-    method' <- textToCString method-    result <- g_dbus_message_new_method_call maybeName path' maybeInterface_ method'-    checkUnexpectedReturnNULL "dBusMessageNewMethodCall" result-    result' <- (wrapObject DBusMessage) result-    freeMem maybeName-    freeMem path'-    freeMem maybeInterface_-    freeMem method'-    return result'--#if ENABLE_OVERLOADING-#endif---- method DBusMessage::new_signal--- method type : Constructor--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid object path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid D-Bus interface name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid signal name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_new_signal" g_dbus_message_new_signal :: -    CString ->                              -- path : TBasicType TUTF8-    CString ->                              -- interface_ : TBasicType TUTF8-    CString ->                              -- signal : TBasicType TUTF8-    IO (Ptr DBusMessage)--{- |-Creates a new 'GI.Gio.Objects.DBusMessage.DBusMessage' for a signal emission.--/Since: 2.26/--}-dBusMessageNewSignal ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@path@/: A valid object path. -}-    -> T.Text-    {- ^ /@interface_@/: A valid D-Bus interface name. -}-    -> T.Text-    {- ^ /@signal@/: A valid signal name. -}-    -> m DBusMessage-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusMessage.DBusMessage'. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusMessageNewSignal path interface_ signal = liftIO $ do-    path' <- textToCString path-    interface_' <- textToCString interface_-    signal' <- textToCString signal-    result <- g_dbus_message_new_signal path' interface_' signal'-    checkUnexpectedReturnNULL "dBusMessageNewSignal" result-    result' <- (wrapObject DBusMessage) result-    freeMem path'-    freeMem interface_'-    freeMem signal'-    return result'--#if ENABLE_OVERLOADING-#endif---- method DBusMessage::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_message_copy" g_dbus_message_copy :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusMessage)--{- |-Copies /@message@/. The copy is a deep copy and the returned-'GI.Gio.Objects.DBusMessage.DBusMessage' is completely identical except that it is guaranteed-to not be locked.--This operation can fail if e.g. /@message@/ contains file descriptors-and the per-process or system-wide open files limit is reached.--/Since: 2.26/--}-dBusMessageCopy ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m DBusMessage-    {- ^ __Returns:__ A new 'GI.Gio.Objects.DBusMessage.DBusMessage' or 'Nothing' if /@error@/ is set.-    Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusMessageCopy message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    onException (do-        result <- propagateGError $ g_dbus_message_copy message'-        checkUnexpectedReturnNULL "dBusMessageCopy" result-        result' <- (wrapObject DBusMessage) result-        touchManagedPtr message-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusMessageCopyMethodInfo-instance (signature ~ (m DBusMessage), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageCopyMethodInfo a signature where-    overloadedMethod _ = dBusMessageCopy--#endif---- method DBusMessage::get_arg0--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_arg0" g_dbus_message_get_arg0 :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CString--{- |-Convenience to get the first item in the body of /@message@/.--/Since: 2.26/--}-dBusMessageGetArg0 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m T.Text-    {- ^ __Returns:__ The string item or 'Nothing' if the first item in the body of-/@message@/ is not a string. -}-dBusMessageGetArg0 message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_arg0 message'-    checkUnexpectedReturnNULL "dBusMessageGetArg0" result-    result' <- cstringToText result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetArg0MethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetArg0MethodInfo a signature where-    overloadedMethod _ = dBusMessageGetArg0--#endif---- method DBusMessage::get_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_body" g_dbus_message_get_body :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO (Ptr GVariant)--{- |-Gets the body of a message.--/Since: 2.26/--}-dBusMessageGetBody ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m GVariant-    {- ^ __Returns:__ A 'GVariant' or 'Nothing' if the body is-empty. Do not free, it is owned by /@message@/. -}-dBusMessageGetBody message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_body message'-    checkUnexpectedReturnNULL "dBusMessageGetBody" result-    result' <- B.GVariant.newGVariantFromPtr result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetBodyMethodInfo-instance (signature ~ (m GVariant), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetBodyMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetBody--#endif---- method DBusMessage::get_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessageByteOrder"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_byte_order" g_dbus_message_get_byte_order :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CUInt--{- |-Gets the byte order of /@message@/.--}-dBusMessageGetByteOrder ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m Gio.Enums.DBusMessageByteOrder-    {- ^ __Returns:__ The byte order. -}-dBusMessageGetByteOrder message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_byte_order message'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetByteOrderMethodInfo-instance (signature ~ (m Gio.Enums.DBusMessageByteOrder), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetByteOrderMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetByteOrder--#endif---- method DBusMessage::get_destination--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_destination" g_dbus_message_get_destination :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CString--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldDestination' header field.--/Since: 2.26/--}-dBusMessageGetDestination ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m T.Text-    {- ^ __Returns:__ The value. -}-dBusMessageGetDestination message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_destination message'-    checkUnexpectedReturnNULL "dBusMessageGetDestination" result-    result' <- cstringToText result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetDestinationMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetDestinationMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetDestination--#endif---- method DBusMessage::get_error_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_error_name" g_dbus_message_get_error_name :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CString--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldErrorName' header field.--/Since: 2.26/--}-dBusMessageGetErrorName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m T.Text-    {- ^ __Returns:__ The value. -}-dBusMessageGetErrorName message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_error_name message'-    checkUnexpectedReturnNULL "dBusMessageGetErrorName" result-    result' <- cstringToText result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetErrorNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetErrorNameMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetErrorName--#endif---- method DBusMessage::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessageFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_flags" g_dbus_message_get_flags :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CUInt--{- |-Gets the flags for /@message@/.--/Since: 2.26/--}-dBusMessageGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m [Gio.Flags.DBusMessageFlags]-    {- ^ __Returns:__ Flags that are set (typically values from the 'GI.Gio.Flags.DBusMessageFlags' enumeration bitwise ORed together). -}-dBusMessageGetFlags message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_flags message'-    let result' = wordToGFlags result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.DBusMessageFlags]), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetFlags--#endif---- method DBusMessage::get_header--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header_field", argType = TInterface (Name {namespace = "Gio", name = "DBusMessageHeaderField"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A 8-bit unsigned integer (typically a value from the #GDBusMessageHeaderField enumeration)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_header" g_dbus_message_get_header :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CUInt ->                                -- header_field : TInterface (Name {namespace = "Gio", name = "DBusMessageHeaderField"})-    IO (Ptr GVariant)--{- |-Gets a header field on /@message@/.--The caller is responsible for checking the type of the returned 'GVariant'-matches what is expected.--/Since: 2.26/--}-dBusMessageGetHeader ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Gio.Enums.DBusMessageHeaderField-    {- ^ /@headerField@/: A 8-bit unsigned integer (typically a value from the 'GI.Gio.Enums.DBusMessageHeaderField' enumeration) -}-    -> m (Maybe GVariant)-    {- ^ __Returns:__ A 'GVariant' with the value if the header was found, 'Nothing'-otherwise. Do not free, it is owned by /@message@/. -}-dBusMessageGetHeader message headerField = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    let headerField' = (fromIntegral . fromEnum) headerField-    result <- g_dbus_message_get_header message' headerField'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- B.GVariant.newGVariantFromPtr result'-        return result''-    touchManagedPtr message-    return maybeResult--#if ENABLE_OVERLOADING-data DBusMessageGetHeaderMethodInfo-instance (signature ~ (Gio.Enums.DBusMessageHeaderField -> m (Maybe GVariant)), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetHeaderMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetHeader--#endif---- method DBusMessage::get_header_fields--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUInt8))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_header_fields" g_dbus_message_get_header_fields :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO (Ptr Word8)--{- |-Gets an array of all header fields on /@message@/ that are set.--/Since: 2.26/--}-dBusMessageGetHeaderFields ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m ByteString-    {- ^ __Returns:__ An array of header fields-terminated by 'GI.Gio.Enums.DBusMessageHeaderFieldInvalid'.  Each element-is a @/guchar/@. Free with 'GI.GLib.Functions.free'. -}-dBusMessageGetHeaderFields message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_header_fields message'-    checkUnexpectedReturnNULL "dBusMessageGetHeaderFields" result-    result' <- unpackZeroTerminatedByteString result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetHeaderFieldsMethodInfo-instance (signature ~ (m ByteString), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetHeaderFieldsMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetHeaderFields--#endif---- method DBusMessage::get_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_interface" g_dbus_message_get_interface :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CString--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldInterface' header field.--/Since: 2.26/--}-dBusMessageGetInterface ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m T.Text-    {- ^ __Returns:__ The value. -}-dBusMessageGetInterface message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_interface message'-    checkUnexpectedReturnNULL "dBusMessageGetInterface" result-    result' <- cstringToText result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetInterfaceMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetInterface--#endif---- method DBusMessage::get_locked--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_locked" g_dbus_message_get_locked :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CInt--{- |-Checks whether /@message@/ is locked. To monitor changes to this-value, conncet to the 'GI.GObject.Objects.Object.Object'::@/notify/@ signal to listen for changes-on the 'GI.Gio.Objects.DBusMessage.DBusMessage':@/locked/@ property.--/Since: 2.26/--}-dBusMessageGetLocked ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@message@/ is locked, 'False' otherwise. -}-dBusMessageGetLocked message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_locked message'-    let result' = (/= 0) result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetLockedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetLockedMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetLocked--#endif---- method DBusMessage::get_member--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_member" g_dbus_message_get_member :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CString--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldMember' header field.--/Since: 2.26/--}-dBusMessageGetMember ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m T.Text-    {- ^ __Returns:__ The value. -}-dBusMessageGetMember message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_member message'-    checkUnexpectedReturnNULL "dBusMessageGetMember" result-    result' <- cstringToText result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetMemberMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetMemberMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetMember--#endif---- method DBusMessage::get_message_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessageType"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_message_type" g_dbus_message_get_message_type :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CUInt--{- |-Gets the type of /@message@/.--/Since: 2.26/--}-dBusMessageGetMessageType ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m Gio.Enums.DBusMessageType-    {- ^ __Returns:__ A 8-bit unsigned integer (typically a value from the 'GI.Gio.Enums.DBusMessageType' enumeration). -}-dBusMessageGetMessageType message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_message_type message'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetMessageTypeMethodInfo-instance (signature ~ (m Gio.Enums.DBusMessageType), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetMessageTypeMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetMessageType--#endif---- method DBusMessage::get_num_unix_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_num_unix_fds" g_dbus_message_get_num_unix_fds :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO Word32--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldNumUnixFds' header field.--/Since: 2.26/--}-dBusMessageGetNumUnixFds ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m Word32-    {- ^ __Returns:__ The value. -}-dBusMessageGetNumUnixFds message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_num_unix_fds message'-    touchManagedPtr message-    return result--#if ENABLE_OVERLOADING-data DBusMessageGetNumUnixFdsMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetNumUnixFdsMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetNumUnixFds--#endif---- method DBusMessage::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_path" g_dbus_message_get_path :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CString--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldPath' header field.--/Since: 2.26/--}-dBusMessageGetPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m T.Text-    {- ^ __Returns:__ The value. -}-dBusMessageGetPath message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_path message'-    checkUnexpectedReturnNULL "dBusMessageGetPath" result-    result' <- cstringToText result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetPathMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetPath--#endif---- method DBusMessage::get_reply_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_reply_serial" g_dbus_message_get_reply_serial :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO Word32--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldReplySerial' header field.--/Since: 2.26/--}-dBusMessageGetReplySerial ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m Word32-    {- ^ __Returns:__ The value. -}-dBusMessageGetReplySerial message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_reply_serial message'-    touchManagedPtr message-    return result--#if ENABLE_OVERLOADING-data DBusMessageGetReplySerialMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetReplySerialMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetReplySerial--#endif---- method DBusMessage::get_sender--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_sender" g_dbus_message_get_sender :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CString--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldSender' header field.--/Since: 2.26/--}-dBusMessageGetSender ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m T.Text-    {- ^ __Returns:__ The value. -}-dBusMessageGetSender message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_sender message'-    checkUnexpectedReturnNULL "dBusMessageGetSender" result-    result' <- cstringToText result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetSenderMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetSenderMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetSender--#endif---- method DBusMessage::get_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_serial" g_dbus_message_get_serial :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO Word32--{- |-Gets the serial for /@message@/.--/Since: 2.26/--}-dBusMessageGetSerial ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m Word32-    {- ^ __Returns:__ A @/guint32/@. -}-dBusMessageGetSerial message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_serial message'-    touchManagedPtr message-    return result--#if ENABLE_OVERLOADING-data DBusMessageGetSerialMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetSerialMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetSerial--#endif---- method DBusMessage::get_signature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_get_signature" g_dbus_message_get_signature :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO CString--{- |-Convenience getter for the 'GI.Gio.Enums.DBusMessageHeaderFieldSignature' header field.--/Since: 2.26/--}-dBusMessageGetSignature ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m T.Text-    {- ^ __Returns:__ The value. -}-dBusMessageGetSignature message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_signature message'-    checkUnexpectedReturnNULL "dBusMessageGetSignature" result-    result' <- cstringToText result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetSignatureMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetSignatureMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetSignature--#endif---- method DBusMessage::get_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixFDList"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_get_unix_fd_list" g_dbus_message_get_unix_fd_list :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO (Ptr Gio.UnixFDList.UnixFDList)--{- |-Gets the UNIX file descriptors associated with /@message@/, if any.--This method is only available on UNIX.--/Since: 2.26/--}-dBusMessageGetUnixFdList ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m Gio.UnixFDList.UnixFDList-    {- ^ __Returns:__ A 'GI.Gio.Objects.UnixFDList.UnixFDList' or 'Nothing' if no file descriptors are-associated. Do not free, this object is owned by /@message@/. -}-dBusMessageGetUnixFdList message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_get_unix_fd_list message'-    checkUnexpectedReturnNULL "dBusMessageGetUnixFdList" result-    result' <- (newObject Gio.UnixFDList.UnixFDList) result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessageGetUnixFdListMethodInfo-instance (signature ~ (m Gio.UnixFDList.UnixFDList), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageGetUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusMessageGetUnixFdList--#endif---- method DBusMessage::lock--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_lock" g_dbus_message_lock :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO ()--{- |-If /@message@/ is locked, does nothing. Otherwise locks the message.--/Since: 2.26/--}-dBusMessageLock ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m ()-dBusMessageLock message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    g_dbus_message_lock message'-    touchManagedPtr message-    return ()--#if ENABLE_OVERLOADING-data DBusMessageLockMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageLockMethodInfo a signature where-    overloadedMethod _ = dBusMessageLock--#endif---- method DBusMessage::new_method_error_literal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "method_call_message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A message of type %G_DBUS_MESSAGE_TYPE_METHOD_CALL to\ncreate a reply message to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid D-Bus error name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The D-Bus error message.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_new_method_error_literal" g_dbus_message_new_method_error_literal :: -    Ptr DBusMessage ->                      -- method_call_message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CString ->                              -- error_name : TBasicType TUTF8-    CString ->                              -- error_message : TBasicType TUTF8-    IO (Ptr DBusMessage)--{- |-Creates a new 'GI.Gio.Objects.DBusMessage.DBusMessage' that is an error reply to /@methodCallMessage@/.--/Since: 2.26/--}-dBusMessageNewMethodErrorLiteral ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@methodCallMessage@/: A message of type 'GI.Gio.Enums.DBusMessageTypeMethodCall' to-create a reply message to. -}-    -> T.Text-    {- ^ /@errorName@/: A valid D-Bus error name. -}-    -> T.Text-    {- ^ /@errorMessage@/: The D-Bus error message. -}-    -> m DBusMessage-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusMessage.DBusMessage'. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusMessageNewMethodErrorLiteral methodCallMessage errorName errorMessage = liftIO $ do-    methodCallMessage' <- unsafeManagedPtrCastPtr methodCallMessage-    errorName' <- textToCString errorName-    errorMessage' <- textToCString errorMessage-    result <- g_dbus_message_new_method_error_literal methodCallMessage' errorName' errorMessage'-    checkUnexpectedReturnNULL "dBusMessageNewMethodErrorLiteral" result-    result' <- (wrapObject DBusMessage) result-    touchManagedPtr methodCallMessage-    freeMem errorName'-    freeMem errorMessage'-    return result'--#if ENABLE_OVERLOADING-data DBusMessageNewMethodErrorLiteralMethodInfo-instance (signature ~ (T.Text -> T.Text -> m DBusMessage), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageNewMethodErrorLiteralMethodInfo a signature where-    overloadedMethod _ = dBusMessageNewMethodErrorLiteral--#endif---- method DBusMessage::new_method_reply--- method type : OrdinaryMethod--- Args : [Arg {argCName = "method_call_message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A message of type %G_DBUS_MESSAGE_TYPE_METHOD_CALL to\ncreate a reply message to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_new_method_reply" g_dbus_message_new_method_reply :: -    Ptr DBusMessage ->                      -- method_call_message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    IO (Ptr DBusMessage)--{- |-Creates a new 'GI.Gio.Objects.DBusMessage.DBusMessage' that is a reply to /@methodCallMessage@/.--/Since: 2.26/--}-dBusMessageNewMethodReply ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@methodCallMessage@/: A message of type 'GI.Gio.Enums.DBusMessageTypeMethodCall' to-create a reply message to. -}-    -> m DBusMessage-    {- ^ __Returns:__ 'GI.Gio.Objects.DBusMessage.DBusMessage'. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusMessageNewMethodReply methodCallMessage = liftIO $ do-    methodCallMessage' <- unsafeManagedPtrCastPtr methodCallMessage-    result <- g_dbus_message_new_method_reply methodCallMessage'-    checkUnexpectedReturnNULL "dBusMessageNewMethodReply" result-    result' <- (wrapObject DBusMessage) result-    touchManagedPtr methodCallMessage-    return result'--#if ENABLE_OVERLOADING-data DBusMessageNewMethodReplyMethodInfo-instance (signature ~ (m DBusMessage), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageNewMethodReplyMethodInfo a signature where-    overloadedMethod _ = dBusMessageNewMethodReply--#endif---- method DBusMessage::print--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Indentation level.", 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 "g_dbus_message_print" g_dbus_message_print :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Word32 ->                               -- indent : TBasicType TUInt-    IO CString--{- |-Produces a human-readable multi-line description of /@message@/.--The contents of the description has no ABI guarantees, the contents-and formatting is subject to change at any time. Typical output-looks something like this:->->Flags:   none->Version: 0->Serial:  4->Headers:->  path -> objectpath '/org/gtk/GDBus/TestObject'->  interface -> 'org.gtk.GDBus.TestInterface'->  member -> 'GimmeStdout'->  destination -> ':1.146'->Body: ()->UNIX File Descriptors:->  (none)--or->->Flags:   no-reply-expected->Version: 0->Serial:  477->Headers:->  reply-serial -> uint32 4->  destination -> ':1.159'->  sender -> ':1.146'->  num-unix-fds -> uint32 1->Body: ()->UNIX File Descriptors:->  fd 12: dev=0:10,mode=020620,ino=5,uid=500,gid=5,rdev=136:2,size=0,atime=1273085037,mtime=1273085851,ctime=1272982635---/Since: 2.26/--}-dBusMessagePrint ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Word32-    {- ^ /@indent@/: Indentation level. -}-    -> m T.Text-    {- ^ __Returns:__ A string that should be freed with 'GI.GLib.Functions.free'. -}-dBusMessagePrint message indent = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_dbus_message_print message' indent-    checkUnexpectedReturnNULL "dBusMessagePrint" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data DBusMessagePrintMethodInfo-instance (signature ~ (Word32 -> m T.Text), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessagePrintMethodInfo a signature where-    overloadedMethod _ = dBusMessagePrint--#endif---- method DBusMessage::set_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Either %NULL or a #GVariant that is a tuple.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_body" g_dbus_message_set_body :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Ptr GVariant ->                         -- body : TVariant-    IO ()--{- |-Sets the body /@message@/. As a side-effect the-'GI.Gio.Enums.DBusMessageHeaderFieldSignature' header field is set to the-type string of /@body@/ (or cleared if /@body@/ is 'Nothing').--If /@body@/ is floating, /@message@/ assumes ownership of /@body@/.--/Since: 2.26/--}-dBusMessageSetBody ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> GVariant-    {- ^ /@body@/: Either 'Nothing' or a 'GVariant' that is a tuple. -}-    -> m ()-dBusMessageSetBody message body = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    body' <- unsafeManagedPtrGetPtr body-    g_dbus_message_set_body message' body'-    touchManagedPtr message-    touchManagedPtr body-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetBodyMethodInfo-instance (signature ~ (GVariant -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetBodyMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetBody--#endif---- method DBusMessage::set_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_order", argType = TInterface (Name {namespace = "Gio", name = "DBusMessageByteOrder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The byte order.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_byte_order" g_dbus_message_set_byte_order :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CUInt ->                                -- byte_order : TInterface (Name {namespace = "Gio", name = "DBusMessageByteOrder"})-    IO ()--{- |-Sets the byte order of /@message@/.--}-dBusMessageSetByteOrder ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Gio.Enums.DBusMessageByteOrder-    {- ^ /@byteOrder@/: The byte order. -}-    -> m ()-dBusMessageSetByteOrder message byteOrder = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    let byteOrder' = (fromIntegral . fromEnum) byteOrder-    g_dbus_message_set_byte_order message' byteOrder'-    touchManagedPtr message-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetByteOrderMethodInfo-instance (signature ~ (Gio.Enums.DBusMessageByteOrder -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetByteOrderMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetByteOrder--#endif---- method DBusMessage::set_destination--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_destination" g_dbus_message_set_destination :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldDestination' header field.--/Since: 2.26/--}-dBusMessageSetDestination ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> T.Text-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetDestination message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    value' <- textToCString value-    g_dbus_message_set_destination message' value'-    touchManagedPtr message-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetDestinationMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetDestinationMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetDestination--#endif---- method DBusMessage::set_error_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_error_name" g_dbus_message_set_error_name :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldErrorName' header field.--/Since: 2.26/--}-dBusMessageSetErrorName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> T.Text-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetErrorName message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    value' <- textToCString value-    g_dbus_message_set_error_name message' value'-    touchManagedPtr message-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetErrorNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetErrorNameMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetErrorName--#endif---- method DBusMessage::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusMessageFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags for @message that are set (typically values from the #GDBusMessageFlags\nenumeration bitwise ORed together).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_flags" g_dbus_message_set_flags :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusMessageFlags"})-    IO ()--{- |-Sets the flags to set on /@message@/.--/Since: 2.26/--}-dBusMessageSetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> [Gio.Flags.DBusMessageFlags]-    {- ^ /@flags@/: Flags for /@message@/ that are set (typically values from the 'GI.Gio.Flags.DBusMessageFlags'-enumeration bitwise ORed together). -}-    -> m ()-dBusMessageSetFlags message flags = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    let flags' = gflagsToWord flags-    g_dbus_message_set_flags message' flags'-    touchManagedPtr message-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetFlagsMethodInfo-instance (signature ~ ([Gio.Flags.DBusMessageFlags] -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetFlags--#endif---- method DBusMessage::set_header--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header_field", argType = TInterface (Name {namespace = "Gio", name = "DBusMessageHeaderField"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A 8-bit unsigned integer (typically a value from the #GDBusMessageHeaderField enumeration)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GVariant to set the header field or %NULL to clear the header field.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_header" g_dbus_message_set_header :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CUInt ->                                -- header_field : TInterface (Name {namespace = "Gio", name = "DBusMessageHeaderField"})-    Ptr GVariant ->                         -- value : TVariant-    IO ()--{- |-Sets a header field on /@message@/.--If /@value@/ is floating, /@message@/ assumes ownership of /@value@/.--/Since: 2.26/--}-dBusMessageSetHeader ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Gio.Enums.DBusMessageHeaderField-    {- ^ /@headerField@/: A 8-bit unsigned integer (typically a value from the 'GI.Gio.Enums.DBusMessageHeaderField' enumeration) -}-    -> Maybe (GVariant)-    {- ^ /@value@/: A 'GVariant' to set the header field or 'Nothing' to clear the header field. -}-    -> m ()-dBusMessageSetHeader message headerField value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    let headerField' = (fromIntegral . fromEnum) headerField-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            jValue' <- unsafeManagedPtrGetPtr jValue-            return jValue'-    g_dbus_message_set_header message' headerField' maybeValue-    touchManagedPtr message-    whenJust value touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetHeaderMethodInfo-instance (signature ~ (Gio.Enums.DBusMessageHeaderField -> Maybe (GVariant) -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetHeaderMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetHeader--#endif---- method DBusMessage::set_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_interface" g_dbus_message_set_interface :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldInterface' header field.--/Since: 2.26/--}-dBusMessageSetInterface ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> T.Text-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetInterface message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    value' <- textToCString value-    g_dbus_message_set_interface message' value'-    touchManagedPtr message-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetInterfaceMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetInterface--#endif---- method DBusMessage::set_member--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_member" g_dbus_message_set_member :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldMember' header field.--/Since: 2.26/--}-dBusMessageSetMember ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> T.Text-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetMember message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    value' <- textToCString value-    g_dbus_message_set_member message' value'-    touchManagedPtr message-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetMemberMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetMemberMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetMember--#endif---- method DBusMessage::set_message_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "DBusMessageType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A 8-bit unsigned integer (typically a value from the #GDBusMessageType enumeration).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_message_type" g_dbus_message_set_message_type :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "DBusMessageType"})-    IO ()--{- |-Sets /@message@/ to be of /@type@/.--/Since: 2.26/--}-dBusMessageSetMessageType ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Gio.Enums.DBusMessageType-    {- ^ /@type@/: A 8-bit unsigned integer (typically a value from the 'GI.Gio.Enums.DBusMessageType' enumeration). -}-    -> m ()-dBusMessageSetMessageType message type_ = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    let type_' = (fromIntegral . fromEnum) type_-    g_dbus_message_set_message_type message' type_'-    touchManagedPtr message-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetMessageTypeMethodInfo-instance (signature ~ (Gio.Enums.DBusMessageType -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetMessageTypeMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetMessageType--#endif---- method DBusMessage::set_num_unix_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_num_unix_fds" g_dbus_message_set_num_unix_fds :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Word32 ->                               -- value : TBasicType TUInt32-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldNumUnixFds' header field.--/Since: 2.26/--}-dBusMessageSetNumUnixFds ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Word32-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetNumUnixFds message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    g_dbus_message_set_num_unix_fds message' value-    touchManagedPtr message-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetNumUnixFdsMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetNumUnixFdsMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetNumUnixFds--#endif---- method DBusMessage::set_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_path" g_dbus_message_set_path :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldPath' header field.--/Since: 2.26/--}-dBusMessageSetPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> T.Text-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetPath message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    value' <- textToCString value-    g_dbus_message_set_path message' value'-    touchManagedPtr message-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetPathMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetPath--#endif---- method DBusMessage::set_reply_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_reply_serial" g_dbus_message_set_reply_serial :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Word32 ->                               -- value : TBasicType TUInt32-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldReplySerial' header field.--/Since: 2.26/--}-dBusMessageSetReplySerial ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Word32-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetReplySerial message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    g_dbus_message_set_reply_serial message' value-    touchManagedPtr message-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetReplySerialMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetReplySerialMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetReplySerial--#endif---- method DBusMessage::set_sender--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_sender" g_dbus_message_set_sender :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldSender' header field.--/Since: 2.26/--}-dBusMessageSetSender ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> T.Text-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetSender message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    value' <- textToCString value-    g_dbus_message_set_sender message' value'-    touchManagedPtr message-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetSenderMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetSenderMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetSender--#endif---- method DBusMessage::set_serial--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serial", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #guint32.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_serial" g_dbus_message_set_serial :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Word32 ->                               -- serial : TBasicType TUInt32-    IO ()--{- |-Sets the serial for /@message@/.--/Since: 2.26/--}-dBusMessageSetSerial ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Word32-    {- ^ /@serial@/: A @/guint32/@. -}-    -> m ()-dBusMessageSetSerial message serial = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    g_dbus_message_set_serial message' serial-    touchManagedPtr message-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetSerialMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetSerialMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetSerial--#endif---- method DBusMessage::set_signature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The value to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_signature" g_dbus_message_set_signature :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Convenience setter for the 'GI.Gio.Enums.DBusMessageHeaderFieldSignature' header field.--/Since: 2.26/--}-dBusMessageSetSignature ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> T.Text-    {- ^ /@value@/: The value to set. -}-    -> m ()-dBusMessageSetSignature message value = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    value' <- textToCString value-    g_dbus_message_set_signature message' value'-    touchManagedPtr message-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetSignatureMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageSetSignatureMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetSignature--#endif---- method DBusMessage::set_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GUnixFDList or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_message_set_unix_fd_list" g_dbus_message_set_unix_fd_list :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Ptr Gio.UnixFDList.UnixFDList ->        -- fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    IO ()--{- |-Sets the UNIX file descriptors associated with /@message@/. As a-side-effect the 'GI.Gio.Enums.DBusMessageHeaderFieldNumUnixFds' header-field is set to the number of fds in /@fdList@/ (or cleared if-/@fdList@/ is 'Nothing').--This method is only available on UNIX.--/Since: 2.26/--}-dBusMessageSetUnixFdList ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a, Gio.UnixFDList.IsUnixFDList b) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> Maybe (b)-    {- ^ /@fdList@/: A 'GI.Gio.Objects.UnixFDList.UnixFDList' or 'Nothing'. -}-    -> m ()-dBusMessageSetUnixFdList message fdList = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            jFdList' <- unsafeManagedPtrCastPtr jFdList-            return jFdList'-    g_dbus_message_set_unix_fd_list message' maybeFdList-    touchManagedPtr message-    whenJust fdList touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusMessageSetUnixFdListMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDBusMessage a, Gio.UnixFDList.IsUnixFDList b) => O.MethodInfo DBusMessageSetUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusMessageSetUnixFdList--#endif---- method DBusMessage::to_blob--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for size of generated blob.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "capabilities", argType = TInterface (Name {namespace = "Gio", name = "DBusCapabilityFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusCapabilityFlags describing what protocol features are supported.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "out_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for size of generated blob.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_message_to_blob" g_dbus_message_to_blob :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Ptr Word64 ->                           -- out_size : TBasicType TUInt64-    CUInt ->                                -- capabilities : TInterface (Name {namespace = "Gio", name = "DBusCapabilityFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)--{- |-Serializes /@message@/ to a blob. The byte order returned by-'GI.Gio.Objects.DBusMessage.dBusMessageGetByteOrder' will be used.--/Since: 2.26/--}-dBusMessageToBlob ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> [Gio.Flags.DBusCapabilityFlags]-    {- ^ /@capabilities@/: A 'GI.Gio.Flags.DBusCapabilityFlags' describing what protocol features are supported. -}-    -> m ByteString-    {- ^ __Returns:__ A pointer to a-valid binary D-Bus message of /@outSize@/ bytes generated by /@message@/-or 'Nothing' if /@error@/ is set. Free with 'GI.GLib.Functions.free'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusMessageToBlob message capabilities = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    outSize <- allocMem :: IO (Ptr Word64)-    let capabilities' = gflagsToWord capabilities-    onException (do-        result <- propagateGError $ g_dbus_message_to_blob message' outSize capabilities'-        outSize' <- peek outSize-        checkUnexpectedReturnNULL "dBusMessageToBlob" result-        result' <- (unpackByteStringWithLength outSize') result-        freeMem result-        touchManagedPtr message-        freeMem outSize-        return result'-     ) (do-        freeMem outSize-     )--#if ENABLE_OVERLOADING-data DBusMessageToBlobMethodInfo-instance (signature ~ ([Gio.Flags.DBusCapabilityFlags] -> m ByteString), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageToBlobMethodInfo a signature where-    overloadedMethod _ = dBusMessageToBlob--#endif---- method DBusMessage::to_gerror--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "DBusMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMessage.", 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 "g_dbus_message_to_gerror" g_dbus_message_to_gerror :: -    Ptr DBusMessage ->                      -- message : TInterface (Name {namespace = "Gio", name = "DBusMessage"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-If /@message@/ is not of type 'GI.Gio.Enums.DBusMessageTypeError' does-nothing and returns 'False'.--Otherwise this method encodes the error in /@message@/ as a 'GError'-using @/g_dbus_error_set_dbus_error()/@ using the information in the-'GI.Gio.Enums.DBusMessageHeaderFieldErrorName' header field of /@message@/ as-well as the first string item in /@message@/\'s body.--/Since: 2.26/--}-dBusMessageToGerror ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.DBusMessage.DBusMessage'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusMessageToGerror message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    onException (do-        _ <- propagateGError $ g_dbus_message_to_gerror message'-        touchManagedPtr message-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusMessageToGerrorMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDBusMessage a) => O.MethodInfo DBusMessageToGerrorMethodInfo a signature where-    overloadedMethod _ = dBusMessageToGerror--#endif---- method DBusMessage::bytes_needed--- method type : MemberFunction--- Args : [Arg {argCName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A blob representing a binary D-Bus message.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The length of @blob (must be at least 16).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The length of @blob (must be at least 16).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_dbus_message_bytes_needed" g_dbus_message_bytes_needed :: -    Ptr Word8 ->                            -- blob : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- blob_len : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Utility function to calculate how many bytes are needed to-completely deserialize the D-Bus message stored at /@blob@/.--/Since: 2.26/--}-dBusMessageBytesNeeded ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@blob@/: A blob representing a binary D-Bus message. -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes needed or -1 if /@error@/ is set (e.g. if-/@blob@/ contains invalid data or not enough data is available to-determine the size). /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusMessageBytesNeeded blob = liftIO $ do-    let blobLen = fromIntegral $ B.length blob-    blob' <- packByteString blob-    onException (do-        result <- propagateGError $ g_dbus_message_bytes_needed blob' blobLen-        freeMem blob'-        return result-     ) (do-        freeMem blob'-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/DBusMessage.hs-boot 
@@ -1,158 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusMessage 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 DBusMessage = DBusMessage (ManagedPtr DBusMessage)-instance GObject DBusMessage where-class (GObject o, O.IsDescendantOf DBusMessage o) => IsDBusMessage o-instance (GObject o, O.IsDescendantOf DBusMessage o) => IsDBusMessage o-instance O.HasParentTypes DBusMessage-#if ENABLE_OVERLOADING-data DBusMessageLockedPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetArg0MethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetBodyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetByteOrderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetDestinationMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetErrorNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetHeaderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetHeaderFieldsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetInterfaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetLockedMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetMemberMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetMessageTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetNumUnixFdsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetReplySerialMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetSenderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetSerialMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetSignatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageGetUnixFdListMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageLockMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageNewMethodErrorLiteralMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageNewMethodReplyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessagePrintMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetBodyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetByteOrderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetDestinationMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetErrorNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetHeaderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetInterfaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetMemberMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetMessageTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetNumUnixFdsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetReplySerialMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetSenderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetSerialMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetSignatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageSetUnixFdListMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageToBlobMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMessageToGerrorMethodInfo-#endif
− GI/Gio/Objects/DBusMethodInvocation.hs 
@@ -1,913 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Instances of the 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation' class are used when-handling D-Bus method calls. It provides a way to asynchronously-return results and errors.--The normal way to obtain a 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation' object is to receive-it as an argument to the @/handle_method_call()/@ function in a-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' that was passed to @/g_dbus_connection_register_object()/@.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusMethodInvocation-    ( ---- * Exported types-    DBusMethodInvocation(..)                ,-    IsDBusMethodInvocation                  ,-    toDBusMethodInvocation                  ,-    noDBusMethodInvocation                  ,--- -- * Methods--- ** getConnection #method:getConnection#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetConnectionMethodInfo,-#endif-    dBusMethodInvocationGetConnection       ,----- ** getInterfaceName #method:getInterfaceName#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetInterfaceNameMethodInfo,-#endif-    dBusMethodInvocationGetInterfaceName    ,----- ** getMessage #method:getMessage#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetMessageMethodInfo,-#endif-    dBusMethodInvocationGetMessage          ,----- ** getMethodInfo #method:getMethodInfo#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetMethodInfoMethodInfo,-#endif-    dBusMethodInvocationGetMethodInfo       ,----- ** getMethodName #method:getMethodName#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetMethodNameMethodInfo,-#endif-    dBusMethodInvocationGetMethodName       ,----- ** getObjectPath #method:getObjectPath#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetObjectPathMethodInfo,-#endif-    dBusMethodInvocationGetObjectPath       ,----- ** getParameters #method:getParameters#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetParametersMethodInfo,-#endif-    dBusMethodInvocationGetParameters       ,----- ** getPropertyInfo #method:getPropertyInfo#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetPropertyInfoMethodInfo,-#endif-    dBusMethodInvocationGetPropertyInfo     ,----- ** getSender #method:getSender#--#if ENABLE_OVERLOADING-    DBusMethodInvocationGetSenderMethodInfo ,-#endif-    dBusMethodInvocationGetSender           ,----- ** returnDbusError #method:returnDbusError#--#if ENABLE_OVERLOADING-    DBusMethodInvocationReturnDbusErrorMethodInfo,-#endif-    dBusMethodInvocationReturnDbusError     ,----- ** returnErrorLiteral #method:returnErrorLiteral#--#if ENABLE_OVERLOADING-    DBusMethodInvocationReturnErrorLiteralMethodInfo,-#endif-    dBusMethodInvocationReturnErrorLiteral  ,----- ** returnGerror #method:returnGerror#--#if ENABLE_OVERLOADING-    DBusMethodInvocationReturnGerrorMethodInfo,-#endif-    dBusMethodInvocationReturnGerror        ,----- ** returnValue #method:returnValue#--#if ENABLE_OVERLOADING-    DBusMethodInvocationReturnValueMethodInfo,-#endif-    dBusMethodInvocationReturnValue         ,----- ** returnValueWithUnixFdList #method:returnValueWithUnixFdList#--#if ENABLE_OVERLOADING-    DBusMethodInvocationReturnValueWithUnixFdListMethodInfo,-#endif-    dBusMethodInvocationReturnValueWithUnixFdList,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMessage as Gio.DBusMessage-import {-# SOURCE #-} qualified GI.Gio.Objects.UnixFDList as Gio.UnixFDList-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusMethodInfo as Gio.DBusMethodInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusPropertyInfo as Gio.DBusPropertyInfo---- | Memory-managed wrapper type.-newtype DBusMethodInvocation = DBusMethodInvocation (ManagedPtr DBusMethodInvocation)-foreign import ccall "g_dbus_method_invocation_get_type"-    c_g_dbus_method_invocation_get_type :: IO GType--instance GObject DBusMethodInvocation where-    gobjectType = c_g_dbus_method_invocation_get_type-    ---- | Type class for types which can be safely cast to `DBusMethodInvocation`, for instance with `toDBusMethodInvocation`.-class (GObject o, O.IsDescendantOf DBusMethodInvocation o) => IsDBusMethodInvocation o-instance (GObject o, O.IsDescendantOf DBusMethodInvocation o) => IsDBusMethodInvocation o--instance O.HasParentTypes DBusMethodInvocation-type instance O.ParentTypes DBusMethodInvocation = '[GObject.Object.Object]---- | Cast to `DBusMethodInvocation`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusMethodInvocation :: (MonadIO m, IsDBusMethodInvocation o) => o -> m DBusMethodInvocation-toDBusMethodInvocation = liftIO . unsafeCastTo DBusMethodInvocation---- | A convenience alias for `Nothing` :: `Maybe` `DBusMethodInvocation`.-noDBusMethodInvocation :: Maybe DBusMethodInvocation-noDBusMethodInvocation = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusMethodInvocationMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusMethodInvocationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusMethodInvocationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusMethodInvocationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusMethodInvocationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusMethodInvocationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusMethodInvocationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusMethodInvocationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusMethodInvocationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusMethodInvocationMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusMethodInvocationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusMethodInvocationMethod "returnDbusError" o = DBusMethodInvocationReturnDbusErrorMethodInfo-    ResolveDBusMethodInvocationMethod "returnErrorLiteral" o = DBusMethodInvocationReturnErrorLiteralMethodInfo-    ResolveDBusMethodInvocationMethod "returnGerror" o = DBusMethodInvocationReturnGerrorMethodInfo-    ResolveDBusMethodInvocationMethod "returnValue" o = DBusMethodInvocationReturnValueMethodInfo-    ResolveDBusMethodInvocationMethod "returnValueWithUnixFdList" o = DBusMethodInvocationReturnValueWithUnixFdListMethodInfo-    ResolveDBusMethodInvocationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusMethodInvocationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusMethodInvocationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusMethodInvocationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusMethodInvocationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusMethodInvocationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusMethodInvocationMethod "getConnection" o = DBusMethodInvocationGetConnectionMethodInfo-    ResolveDBusMethodInvocationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusMethodInvocationMethod "getInterfaceName" o = DBusMethodInvocationGetInterfaceNameMethodInfo-    ResolveDBusMethodInvocationMethod "getMessage" o = DBusMethodInvocationGetMessageMethodInfo-    ResolveDBusMethodInvocationMethod "getMethodInfo" o = DBusMethodInvocationGetMethodInfoMethodInfo-    ResolveDBusMethodInvocationMethod "getMethodName" o = DBusMethodInvocationGetMethodNameMethodInfo-    ResolveDBusMethodInvocationMethod "getObjectPath" o = DBusMethodInvocationGetObjectPathMethodInfo-    ResolveDBusMethodInvocationMethod "getParameters" o = DBusMethodInvocationGetParametersMethodInfo-    ResolveDBusMethodInvocationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusMethodInvocationMethod "getPropertyInfo" o = DBusMethodInvocationGetPropertyInfoMethodInfo-    ResolveDBusMethodInvocationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusMethodInvocationMethod "getSender" o = DBusMethodInvocationGetSenderMethodInfo-    ResolveDBusMethodInvocationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusMethodInvocationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusMethodInvocationMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusMethodInvocationMethod t DBusMethodInvocation, O.MethodInfo info DBusMethodInvocation p) => OL.IsLabel t (DBusMethodInvocation -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusMethodInvocation-type instance O.AttributeList DBusMethodInvocation = DBusMethodInvocationAttributeList-type DBusMethodInvocationAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DBusMethodInvocation = DBusMethodInvocationSignalList-type DBusMethodInvocationSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusMethodInvocation::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_get_connection" g_dbus_method_invocation_get_connection :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Gets the 'GI.Gio.Objects.DBusConnection.DBusConnection' the method was invoked on.--/Since: 2.26/--}-dBusMethodInvocationGetConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusConnection.DBusConnection'. Do not free, it is owned by /@invocation@/. -}-dBusMethodInvocationGetConnection invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_connection invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetConnection" result-    result' <- (newObject Gio.DBusConnection.DBusConnection) result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetConnectionMethodInfo-instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetConnection--#endif---- method DBusMethodInvocation::get_interface_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", 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 "g_dbus_method_invocation_get_interface_name" g_dbus_method_invocation_get_interface_name :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO CString--{- |-Gets the name of the D-Bus interface the method was invoked on.--If this method call is a property Get, Set or GetAll call that has-been redirected to the method call handler then-\"org.freedesktop.DBus.Properties\" will be returned.  See-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for more information.--/Since: 2.26/--}-dBusMethodInvocationGetInterfaceName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> m T.Text-    {- ^ __Returns:__ A string. Do not free, it is owned by /@invocation@/. -}-dBusMethodInvocationGetInterfaceName invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_interface_name invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetInterfaceName" result-    result' <- cstringToText result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetInterfaceNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetInterfaceNameMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetInterfaceName--#endif---- method DBusMethodInvocation::get_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_get_message" g_dbus_method_invocation_get_message :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO (Ptr Gio.DBusMessage.DBusMessage)--{- |-Gets the 'GI.Gio.Objects.DBusMessage.DBusMessage' for the method invocation. This is useful if-you need to use low-level protocol features, such as UNIX file-descriptor passing, that cannot be properly expressed in the-'GVariant' API.--See this [server][gdbus-server] and [client][gdbus-unix-fd-client]-for an example of how to use this low-level API to send and receive-UNIX file descriptors.--/Since: 2.26/--}-dBusMethodInvocationGetMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> m Gio.DBusMessage.DBusMessage-    {- ^ __Returns:__ 'GI.Gio.Objects.DBusMessage.DBusMessage'. Do not free, it is owned by /@invocation@/. -}-dBusMethodInvocationGetMessage invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_message invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetMessage" result-    result' <- (newObject Gio.DBusMessage.DBusMessage) result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetMessageMethodInfo-instance (signature ~ (m Gio.DBusMessage.DBusMessage), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetMessageMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetMessage--#endif---- method DBusMethodInvocation::get_method_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMethodInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_get_method_info" g_dbus_method_invocation_get_method_info :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO (Ptr Gio.DBusMethodInfo.DBusMethodInfo)--{- |-Gets information about the method call, if any.--If this method invocation is a property Get, Set or GetAll call that-has been redirected to the method call handler then 'Nothing' will be-returned.  See 'GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetPropertyInfo' and-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for more information.--/Since: 2.26/--}-dBusMethodInvocationGetMethodInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> m Gio.DBusMethodInfo.DBusMethodInfo-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusMethodInfo.DBusMethodInfo' or 'Nothing'. Do not free, it is owned by /@invocation@/. -}-dBusMethodInvocationGetMethodInfo invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_method_info invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetMethodInfo" result-    result' <- (newBoxed Gio.DBusMethodInfo.DBusMethodInfo) result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetMethodInfoMethodInfo-instance (signature ~ (m Gio.DBusMethodInfo.DBusMethodInfo), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetMethodInfoMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetMethodInfo--#endif---- method DBusMethodInvocation::get_method_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", 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 "g_dbus_method_invocation_get_method_name" g_dbus_method_invocation_get_method_name :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO CString--{- |-Gets the name of the method that was invoked.--/Since: 2.26/--}-dBusMethodInvocationGetMethodName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> m T.Text-    {- ^ __Returns:__ A string. Do not free, it is owned by /@invocation@/. -}-dBusMethodInvocationGetMethodName invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_method_name invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetMethodName" result-    result' <- cstringToText result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetMethodNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetMethodNameMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetMethodName--#endif---- method DBusMethodInvocation::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", 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 "g_dbus_method_invocation_get_object_path" g_dbus_method_invocation_get_object_path :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO CString--{- |-Gets the object path the method was invoked on.--/Since: 2.26/--}-dBusMethodInvocationGetObjectPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> m T.Text-    {- ^ __Returns:__ A string. Do not free, it is owned by /@invocation@/. -}-dBusMethodInvocationGetObjectPath invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_object_path invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetObjectPath" result-    result' <- cstringToText result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetObjectPath--#endif---- method DBusMethodInvocation::get_parameters--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_get_parameters" g_dbus_method_invocation_get_parameters :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO (Ptr GVariant)--{- |-Gets the parameters of the method invocation. If there are no input-parameters then this will return a GVariant with 0 children rather than NULL.--/Since: 2.26/--}-dBusMethodInvocationGetParameters ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> m GVariant-    {- ^ __Returns:__ A 'GVariant' tuple. Do not unref this because it is owned by /@invocation@/. -}-dBusMethodInvocationGetParameters invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_parameters invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetParameters" result-    result' <- B.GVariant.newGVariantFromPtr result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetParametersMethodInfo-instance (signature ~ (m GVariant), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetParametersMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetParameters--#endif---- method DBusMethodInvocation::get_property_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusPropertyInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_get_property_info" g_dbus_method_invocation_get_property_info :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO (Ptr Gio.DBusPropertyInfo.DBusPropertyInfo)--{- |-Gets information about the property that this method call is for, if-any.--This will only be set in the case of an invocation in response to a-property Get or Set call that has been directed to the method call-handler for an object on account of its @/property_get()/@ or-@/property_set()/@ vtable pointers being unset.--See 'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for more information.--If the call was GetAll, 'Nothing' will be returned.--/Since: 2.38/--}-dBusMethodInvocationGetPropertyInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation' -}-    -> m Gio.DBusPropertyInfo.DBusPropertyInfo-    {- ^ __Returns:__ a 'GI.Gio.Structs.DBusPropertyInfo.DBusPropertyInfo' or 'Nothing' -}-dBusMethodInvocationGetPropertyInfo invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_property_info invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetPropertyInfo" result-    result' <- (newBoxed Gio.DBusPropertyInfo.DBusPropertyInfo) result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetPropertyInfoMethodInfo-instance (signature ~ (m Gio.DBusPropertyInfo.DBusPropertyInfo), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetPropertyInfoMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetPropertyInfo--#endif---- method DBusMethodInvocation::get_sender--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", 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 "g_dbus_method_invocation_get_sender" g_dbus_method_invocation_get_sender :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    IO CString--{- |-Gets the bus name that invoked the method.--/Since: 2.26/--}-dBusMethodInvocationGetSender ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> m T.Text-    {- ^ __Returns:__ A string. Do not free, it is owned by /@invocation@/. -}-dBusMethodInvocationGetSender invocation = liftIO $ do-    invocation' <- unsafeManagedPtrCastPtr invocation-    result <- g_dbus_method_invocation_get_sender invocation'-    checkUnexpectedReturnNULL "dBusMethodInvocationGetSender" result-    result' <- cstringToText result-    touchManagedPtr invocation-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInvocationGetSenderMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationGetSenderMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationGetSender--#endif---- method DBusMethodInvocation::return_dbus_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid D-Bus error name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid D-Bus error message.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_return_dbus_error" g_dbus_method_invocation_return_dbus_error :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    CString ->                              -- error_name : TBasicType TUTF8-    CString ->                              -- error_message : TBasicType TUTF8-    IO ()--{- |-Finishes handling a D-Bus method call by returning an error.--This method will take ownership of /@invocation@/. See-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for more information about the ownership of-/@invocation@/.--/Since: 2.26/--}-dBusMethodInvocationReturnDbusError ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> T.Text-    {- ^ /@errorName@/: A valid D-Bus error name. -}-    -> T.Text-    {- ^ /@errorMessage@/: A valid D-Bus error message. -}-    -> m ()-dBusMethodInvocationReturnDbusError invocation errorName errorMessage = liftIO $ do-    invocation' <- B.ManagedPtr.disownObject invocation-    errorName' <- textToCString errorName-    errorMessage' <- textToCString errorMessage-    g_dbus_method_invocation_return_dbus_error invocation' errorName' errorMessage'-    touchManagedPtr invocation-    freeMem errorName'-    freeMem errorMessage'-    return ()--#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnDbusErrorMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationReturnDbusErrorMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnDbusError--#endif---- method DBusMethodInvocation::return_error_literal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GQuark for the #GError error domain.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "code", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The error code.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The error message.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_return_error_literal" g_dbus_method_invocation_return_error_literal :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    Word32 ->                               -- domain : TBasicType TUInt32-    Int32 ->                                -- code : TBasicType TInt-    CString ->                              -- message : TBasicType TUTF8-    IO ()--{- |-Like @/g_dbus_method_invocation_return_error()/@ but without @/printf()/@-style formatting.--This method will take ownership of /@invocation@/. See-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for more information about the ownership of-/@invocation@/.--/Since: 2.26/--}-dBusMethodInvocationReturnErrorLiteral ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> Word32-    {- ^ /@domain@/: A @/GQuark/@ for the 'GError' error domain. -}-    -> Int32-    {- ^ /@code@/: The error code. -}-    -> T.Text-    {- ^ /@message@/: The error message. -}-    -> m ()-dBusMethodInvocationReturnErrorLiteral invocation domain code message = liftIO $ do-    invocation' <- B.ManagedPtr.disownObject invocation-    message' <- textToCString message-    g_dbus_method_invocation_return_error_literal invocation' domain code message'-    touchManagedPtr invocation-    freeMem message'-    return ()--#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnErrorLiteralMethodInfo-instance (signature ~ (Word32 -> Int32 -> T.Text -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationReturnErrorLiteralMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnErrorLiteral--#endif---- method DBusMethodInvocation::return_gerror--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GError.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_return_gerror" g_dbus_method_invocation_return_gerror :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    Ptr GError ->                           -- error : TError-    IO ()--{- |-Like @/g_dbus_method_invocation_return_error()/@ but takes a 'GError'-instead of the error domain, error code and message.--This method will take ownership of /@invocation@/. See-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for more information about the ownership of-/@invocation@/.--/Since: 2.26/--}-dBusMethodInvocationReturnGerror ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> GError-    {- ^ /@error@/: A 'GError'. -}-    -> m ()-dBusMethodInvocationReturnGerror invocation error_ = liftIO $ do-    invocation' <- B.ManagedPtr.disownObject invocation-    error_' <- unsafeManagedPtrGetPtr error_-    g_dbus_method_invocation_return_gerror invocation' error_'-    touchManagedPtr invocation-    touchManagedPtr error_-    return ()--#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnGerrorMethodInfo-instance (signature ~ (GError -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationReturnGerrorMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnGerror--#endif---- method DBusMethodInvocation::return_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with out parameters for the method or %NULL if not passing any parameters.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_return_value" g_dbus_method_invocation_return_value :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    Ptr GVariant ->                         -- parameters : TVariant-    IO ()--{- |-Finishes handling a D-Bus method call by returning /@parameters@/.-If the /@parameters@/ GVariant is floating, it is consumed.--It is an error if /@parameters@/ is not of the right format: it must be a tuple-containing the out-parameters of the D-Bus method. Even if the method has a-single out-parameter, it must be contained in a tuple. If the method has no-out-parameters, /@parameters@/ may be 'Nothing' or an empty tuple.---=== /C code/->->GDBusMethodInvocation *invocation = some_invocation;->g_autofree gchar *result_string = NULL;->g_autoptr (GError) error = NULL;->->result_string = calculate_result (&error);->->if (error != NULL)->  g_dbus_method_invocation_return_gerror (invocation, error);->else->  g_dbus_method_invocation_return_value (invocation,->                                         g_variant_new ("(s)", result_string));->->// Do not free @invocation here; returning a value does that---This method will take ownership of /@invocation@/. See-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for more information about the ownership of-/@invocation@/.--Since 2.48, if the method call requested for a reply not to be sent-then this call will sink /@parameters@/ and free /@invocation@/, but-otherwise do nothing (as per the recommendations of the D-Bus-specification).--/Since: 2.26/--}-dBusMethodInvocationReturnValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: A 'GVariant' tuple with out parameters for the method or 'Nothing' if not passing any parameters. -}-    -> m ()-dBusMethodInvocationReturnValue invocation parameters = liftIO $ do-    invocation' <- B.ManagedPtr.disownObject invocation-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    g_dbus_method_invocation_return_value invocation' maybeParameters-    touchManagedPtr invocation-    whenJust parameters touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnValueMethodInfo-instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, IsDBusMethodInvocation a) => O.MethodInfo DBusMethodInvocationReturnValueMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnValue--#endif---- method DBusMethodInvocation::return_value_with_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "invocation", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInvocation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with out parameters for the method or %NULL if not passing any parameters.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GUnixFDList or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_invocation_return_value_with_unix_fd_list" g_dbus_method_invocation_return_value_with_unix_fd_list :: -    Ptr DBusMethodInvocation ->             -- invocation : TInterface (Name {namespace = "Gio", name = "DBusMethodInvocation"})-    Ptr GVariant ->                         -- parameters : TVariant-    Ptr Gio.UnixFDList.UnixFDList ->        -- fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    IO ()--{- |-Like 'GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationReturnValue' but also takes a 'GI.Gio.Objects.UnixFDList.UnixFDList'.--This method is only available on UNIX.--This method will take ownership of /@invocation@/. See-'GI.Gio.Structs.DBusInterfaceVTable.DBusInterfaceVTable' for more information about the ownership of-/@invocation@/.--/Since: 2.30/--}-dBusMethodInvocationReturnValueWithUnixFdList ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusMethodInvocation a, Gio.UnixFDList.IsUnixFDList b) =>-    a-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: A 'GVariant' tuple with out parameters for the method or 'Nothing' if not passing any parameters. -}-    -> Maybe (b)-    {- ^ /@fdList@/: A 'GI.Gio.Objects.UnixFDList.UnixFDList' or 'Nothing'. -}-    -> m ()-dBusMethodInvocationReturnValueWithUnixFdList invocation parameters fdList = liftIO $ do-    invocation' <- B.ManagedPtr.disownObject invocation-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            jFdList' <- unsafeManagedPtrCastPtr jFdList-            return jFdList'-    g_dbus_method_invocation_return_value_with_unix_fd_list invocation' maybeParameters maybeFdList-    touchManagedPtr invocation-    whenJust parameters touchManagedPtr-    whenJust fdList touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnValueWithUnixFdListMethodInfo-instance (signature ~ (Maybe (GVariant) -> Maybe (b) -> m ()), MonadIO m, IsDBusMethodInvocation a, Gio.UnixFDList.IsUnixFDList b) => O.MethodInfo DBusMethodInvocationReturnValueWithUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusMethodInvocationReturnValueWithUnixFdList--#endif--
− GI/Gio/Objects/DBusMethodInvocation.hs-boot 
@@ -1,71 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusMethodInvocation 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 DBusMethodInvocation = DBusMethodInvocation (ManagedPtr DBusMethodInvocation)-instance GObject DBusMethodInvocation where-class (GObject o, O.IsDescendantOf DBusMethodInvocation o) => IsDBusMethodInvocation o-instance (GObject o, O.IsDescendantOf DBusMethodInvocation o) => IsDBusMethodInvocation o-instance O.HasParentTypes DBusMethodInvocation-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetInterfaceNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetMethodInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetMethodNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetObjectPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetParametersMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetPropertyInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationGetSenderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnDbusErrorMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnErrorLiteralMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnGerrorMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInvocationReturnValueWithUnixFdListMethodInfo-#endif
− GI/Gio/Objects/DBusObjectManagerClient.hs 
@@ -1,1586 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' is used to create, monitor and delete object-proxies for remote objects exported by a 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer' (or any-code implementing the-<http://dbus.freedesktop.org/doc/dbus-specification.html#standard-interfaces-objectmanager org.freedesktop.DBus.ObjectManager>-interface).--Once an instance of this type has been created, you can connect to-the 'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'::@/object-added/@ and-'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'::@/object-removed/@ signals and inspect the-'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' objects returned by-'GI.Gio.Interfaces.DBusObjectManager.dBusObjectManagerGetObjects'.--If the name for a 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' is not owned by anyone at-object construction time, the default behavior is to request the-message bus to launch an owner for the name. This behavior can be-disabled using the 'GI.Gio.Flags.DBusObjectManagerClientFlagsDoNotAutoStart'-flag. It\'s also worth noting that this only works if the name of-interest is activatable in the first place. E.g. in some cases it-is not possible to launch an owner for the requested name. In this-case, 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object construction still succeeds but-there will be no object proxies-(e.g. 'GI.Gio.Interfaces.DBusObjectManager.dBusObjectManagerGetObjects' returns the empty list) and-the 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name-owner/@ property is 'Nothing'.--The owner of the requested name can come and go (for example-consider a system service being restarted) – 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'-handles this case too; simply connect to the 'GI.GObject.Objects.Object.Object'::@/notify/@-signal to watch for changes on the 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name-owner/@-property. When the name owner vanishes, the behavior is that-'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name-owner/@ is set to 'Nothing' (this includes-emission of the 'GI.GObject.Objects.Object.Object'::@/notify/@ signal) and then-'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'::@/object-removed/@ signals are synthesized-for all currently existing object proxies. Since-'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name-owner/@ is 'Nothing' when this happens, you can-use this information to disambiguate a synthesized signal from a-genuine signal caused by object removal on the remote-'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'. Similarly, when a new name owner appears,-'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'::@/object-added/@ signals are synthesized-while 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name-owner/@ is still 'Nothing'. Only when all-object proxies have been added, the 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name-owner/@-is set to the new name owner (this includes emission of the-'GI.GObject.Objects.Object.Object'::@/notify/@ signal).  Furthermore, you are guaranteed that-'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name-owner/@ will alternate between a name owner-(e.g. @:1.42@) and 'Nothing' even in the case where-the name of interest is atomically replaced--Ultimately, 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' is used to obtain 'GI.Gio.Objects.DBusProxy.DBusProxy'-instances. All signals (including the-org.freedesktop.DBus.Properties::PropertiesChanged signal)-delivered to 'GI.Gio.Objects.DBusProxy.DBusProxy' instances are guaranteed to originate-from the name owner. This guarantee along with the behavior-described above, means that certain race conditions including the-\"half the proxy is from the old owner and the other half is from-the new owner\" problem cannot happen.--To avoid having the application connect to signals on the returned-'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' and 'GI.Gio.Objects.DBusProxy.DBusProxy' objects, the-'GI.Gio.Interfaces.DBusObject.DBusObject'::@/interface-added/@,-'GI.Gio.Interfaces.DBusObject.DBusObject'::@/interface-removed/@,-'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-properties-changed/@ and-'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-signal/@ signals-are also emitted on the 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' instance managing these-objects. The signals emitted are-'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'::@/interface-added/@,-'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'::@/interface-removed/@,-'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'::@/interface-proxy-properties-changed/@ and-'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'::@/interface-proxy-signal/@.--Note that all callbacks and signals are emitted in the-[thread-default main context][g-main-context-push-thread-default]-that the 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object was constructed-in. Additionally, the 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' and 'GI.Gio.Objects.DBusProxy.DBusProxy' objects-originating from the 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object will be created in-the same context and, consequently, will deliver signals in the-same main loop.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusObjectManagerClient-    ( ---- * Exported types-    DBusObjectManagerClient(..)             ,-    IsDBusObjectManagerClient               ,-    toDBusObjectManagerClient               ,-    noDBusObjectManagerClient               ,--- -- * Methods--- ** getConnection #method:getConnection#--#if ENABLE_OVERLOADING-    DBusObjectManagerClientGetConnectionMethodInfo,-#endif-    dBusObjectManagerClientGetConnection    ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    DBusObjectManagerClientGetFlagsMethodInfo,-#endif-    dBusObjectManagerClientGetFlags         ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    DBusObjectManagerClientGetNameMethodInfo,-#endif-    dBusObjectManagerClientGetName          ,----- ** getNameOwner #method:getNameOwner#--#if ENABLE_OVERLOADING-    DBusObjectManagerClientGetNameOwnerMethodInfo,-#endif-    dBusObjectManagerClientGetNameOwner     ,----- ** new #method:new#--    dBusObjectManagerClientNew              ,----- ** newFinish #method:newFinish#--    dBusObjectManagerClientNewFinish        ,----- ** newForBus #method:newForBus#--    dBusObjectManagerClientNewForBus        ,----- ** newForBusFinish #method:newForBusFinish#--    dBusObjectManagerClientNewForBusFinish  ,----- ** newForBusSync #method:newForBusSync#--    dBusObjectManagerClientNewForBusSync    ,----- ** newSync #method:newSync#--    dBusObjectManagerClientNewSync          ,----- -- * Properties--- ** busType #attr:busType#-{- | If this property is not 'GI.Gio.Enums.BusTypeNone', then-'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/connection/@ must be 'Nothing' and will be set to the-'GI.Gio.Objects.DBusConnection.DBusConnection' obtained by calling 'GI.Gio.Functions.busGet' with the value-of this property.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientBusTypePropertyInfo,-#endif-    constructDBusObjectManagerClientBusType ,-#if ENABLE_OVERLOADING-    dBusObjectManagerClientBusType          ,-#endif----- ** connection #attr:connection#-{- | The 'GI.Gio.Objects.DBusConnection.DBusConnection' to use.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientConnectionPropertyInfo,-#endif-    constructDBusObjectManagerClientConnection,-#if ENABLE_OVERLOADING-    dBusObjectManagerClientConnection       ,-#endif-    getDBusObjectManagerClientConnection    ,----- ** flags #attr:flags#-{- | Flags from the 'GI.Gio.Flags.DBusObjectManagerClientFlags' enumeration.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientFlagsPropertyInfo,-#endif-    constructDBusObjectManagerClientFlags   ,-#if ENABLE_OVERLOADING-    dBusObjectManagerClientFlags            ,-#endif-    getDBusObjectManagerClientFlags         ,----- ** getProxyTypeDestroyNotify #attr:getProxyTypeDestroyNotify#-{- | A 'GI.GLib.Callbacks.DestroyNotify' for the @/gpointer/@ user_data in 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/get-proxy-type-user-data/@.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo,-#endif-    constructDBusObjectManagerClientGetProxyTypeDestroyNotify,-#if ENABLE_OVERLOADING-    dBusObjectManagerClientGetProxyTypeDestroyNotify,-#endif-    getDBusObjectManagerClientGetProxyTypeDestroyNotify,----- ** getProxyTypeFunc #attr:getProxyTypeFunc#-{- | The 'GI.Gio.Callbacks.DBusProxyTypeFunc' to use when determining what 'GType' to-use for interface proxies or 'Nothing'.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientGetProxyTypeFuncPropertyInfo,-#endif-    constructDBusObjectManagerClientGetProxyTypeFunc,-#if ENABLE_OVERLOADING-    dBusObjectManagerClientGetProxyTypeFunc ,-#endif-    getDBusObjectManagerClientGetProxyTypeFunc,----- ** getProxyTypeUserData #attr:getProxyTypeUserData#-{- | The @/gpointer/@ user_data to pass to 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/get-proxy-type-func/@.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo,-#endif-    constructDBusObjectManagerClientGetProxyTypeUserData,-#if ENABLE_OVERLOADING-    dBusObjectManagerClientGetProxyTypeUserData,-#endif-    getDBusObjectManagerClientGetProxyTypeUserData,----- ** name #attr:name#-{- | The well-known name or unique name that the manager is for.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientNamePropertyInfo ,-#endif-    constructDBusObjectManagerClientName    ,-#if ENABLE_OVERLOADING-    dBusObjectManagerClientName             ,-#endif-    getDBusObjectManagerClientName          ,----- ** nameOwner #attr:nameOwner#-{- | The unique name that owns 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name/@ or 'Nothing' if-no-one is currently owning the name. Connect to the-'GI.GObject.Objects.Object.Object'::@/notify/@ signal to track changes to this property.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientNameOwnerPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    dBusObjectManagerClientNameOwner        ,-#endif-    getDBusObjectManagerClientNameOwner     ,----- ** objectPath #attr:objectPath#-{- | The object path the manager is for.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerClientObjectPathPropertyInfo,-#endif-    constructDBusObjectManagerClientObjectPath,-#if ENABLE_OVERLOADING-    dBusObjectManagerClientObjectPath       ,-#endif-    getDBusObjectManagerClientObjectPath    ,----- -- * Signals--- ** interfaceProxyPropertiesChanged #signal:interfaceProxyPropertiesChanged#--    C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,-    DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,-#if ENABLE_OVERLOADING-    DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo,-#endif-    afterDBusObjectManagerClientInterfaceProxyPropertiesChanged,-    genClosure_DBusObjectManagerClientInterfaceProxyPropertiesChanged,-    mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,-    noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,-    onDBusObjectManagerClientInterfaceProxyPropertiesChanged,-    wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback,----- ** interfaceProxySignal #signal:interfaceProxySignal#--    C_DBusObjectManagerClientInterfaceProxySignalCallback,-    DBusObjectManagerClientInterfaceProxySignalCallback,-#if ENABLE_OVERLOADING-    DBusObjectManagerClientInterfaceProxySignalSignalInfo,-#endif-    afterDBusObjectManagerClientInterfaceProxySignal,-    genClosure_DBusObjectManagerClientInterfaceProxySignal,-    mk_DBusObjectManagerClientInterfaceProxySignalCallback,-    noDBusObjectManagerClientInterfaceProxySignalCallback,-    onDBusObjectManagerClientInterfaceProxySignal,-    wrap_DBusObjectManagerClientInterfaceProxySignalCallback,-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObjectManager as Gio.DBusObjectManager-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusObjectProxy as Gio.DBusObjectProxy-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusProxy as Gio.DBusProxy---- | Memory-managed wrapper type.-newtype DBusObjectManagerClient = DBusObjectManagerClient (ManagedPtr DBusObjectManagerClient)-foreign import ccall "g_dbus_object_manager_client_get_type"-    c_g_dbus_object_manager_client_get_type :: IO GType--instance GObject DBusObjectManagerClient where-    gobjectType = c_g_dbus_object_manager_client_get_type-    ---- | Type class for types which can be safely cast to `DBusObjectManagerClient`, for instance with `toDBusObjectManagerClient`.-class (GObject o, O.IsDescendantOf DBusObjectManagerClient o) => IsDBusObjectManagerClient o-instance (GObject o, O.IsDescendantOf DBusObjectManagerClient o) => IsDBusObjectManagerClient o--instance O.HasParentTypes DBusObjectManagerClient-type instance O.ParentTypes DBusObjectManagerClient = '[GObject.Object.Object, Gio.AsyncInitable.AsyncInitable, Gio.DBusObjectManager.DBusObjectManager, Gio.Initable.Initable]---- | Cast to `DBusObjectManagerClient`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusObjectManagerClient :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m DBusObjectManagerClient-toDBusObjectManagerClient = liftIO . unsafeCastTo DBusObjectManagerClient---- | A convenience alias for `Nothing` :: `Maybe` `DBusObjectManagerClient`.-noDBusObjectManagerClient :: Maybe DBusObjectManagerClient-noDBusObjectManagerClient = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusObjectManagerClientMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectManagerClientMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusObjectManagerClientMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectManagerClientMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusObjectManagerClientMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectManagerClientMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusObjectManagerClientMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveDBusObjectManagerClientMethod "initAsync" o = Gio.AsyncInitable.AsyncInitableInitAsyncMethodInfo-    ResolveDBusObjectManagerClientMethod "initFinish" o = Gio.AsyncInitable.AsyncInitableInitFinishMethodInfo-    ResolveDBusObjectManagerClientMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusObjectManagerClientMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusObjectManagerClientMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectManagerClientMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusObjectManagerClientMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusObjectManagerClientMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusObjectManagerClientMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusObjectManagerClientMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusObjectManagerClientMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusObjectManagerClientMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusObjectManagerClientMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusObjectManagerClientMethod "getConnection" o = DBusObjectManagerClientGetConnectionMethodInfo-    ResolveDBusObjectManagerClientMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusObjectManagerClientMethod "getFlags" o = DBusObjectManagerClientGetFlagsMethodInfo-    ResolveDBusObjectManagerClientMethod "getInterface" o = Gio.DBusObjectManager.DBusObjectManagerGetInterfaceMethodInfo-    ResolveDBusObjectManagerClientMethod "getName" o = DBusObjectManagerClientGetNameMethodInfo-    ResolveDBusObjectManagerClientMethod "getNameOwner" o = DBusObjectManagerClientGetNameOwnerMethodInfo-    ResolveDBusObjectManagerClientMethod "getObject" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectMethodInfo-    ResolveDBusObjectManagerClientMethod "getObjectPath" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectPathMethodInfo-    ResolveDBusObjectManagerClientMethod "getObjects" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectsMethodInfo-    ResolveDBusObjectManagerClientMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusObjectManagerClientMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusObjectManagerClientMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusObjectManagerClientMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusObjectManagerClientMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, O.MethodInfo info DBusObjectManagerClient p) => OL.IsLabel t (DBusObjectManagerClient -> 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 DBusObjectManagerClient::interface-proxy-properties-changed-{- |-Emitted when one or more D-Bus properties on proxy changes. The-local cache has already been updated when this signal fires. Note-that both /@changedProperties@/ and /@invalidatedProperties@/ are-guaranteed to never be 'Nothing' (either may be empty though).--This signal exists purely as a convenience to avoid having to-connect signals to all interface proxies managed by /@manager@/.--This signal is emitted in the-[thread-default main context][g-main-context-push-thread-default]-that /@manager@/ was constructed in.--/Since: 2.30/--}-type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback =-    Gio.DBusObjectProxy.DBusObjectProxy-    {- ^ /@objectProxy@/: The 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' on which an interface has properties that are changing. -}-    -> Gio.DBusProxy.DBusProxy-    {- ^ /@interfaceProxy@/: The 'GI.Gio.Objects.DBusProxy.DBusProxy' that has properties that are changing. -}-    -> GVariant-    {- ^ /@changedProperties@/: A 'GVariant' containing the properties that changed (type: @a{sv}@). -}-    -> [T.Text]-    {- ^ /@invalidatedProperties@/: A 'Nothing' terminated-  array of properties that were invalidated. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback`@.-noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: Maybe DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback-noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusObjectProxy.DBusObjectProxy ->-    Ptr Gio.DBusProxy.DBusProxy ->-    Ptr GVariant ->-    Ptr CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> IO (FunPtr C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectManagerClientInterfaceProxyPropertiesChanged :: MonadIO m => DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m (GClosure C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback)-genClosure_DBusObjectManagerClientInterfaceProxyPropertiesChanged cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb-    mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback` into a `C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback`.-wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback ::-    DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback ->-    C_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback-wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback _cb _ objectProxy interfaceProxy changedProperties invalidatedProperties _ = do-    objectProxy' <- (newObject Gio.DBusObjectProxy.DBusObjectProxy) objectProxy-    interfaceProxy' <- (newObject Gio.DBusProxy.DBusProxy) interfaceProxy-    changedProperties' <- B.GVariant.newGVariantFromPtr changedProperties-    invalidatedProperties' <- unpackZeroTerminatedUTF8CArray invalidatedProperties-    _cb  objectProxy' interfaceProxy' changedProperties' invalidatedProperties'---{- |-Connect a signal handler for the “@interface-proxy-properties-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' dBusObjectManagerClient #interfaceProxyPropertiesChanged callback-@--}-onDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (IsDBusObjectManagerClient a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId-onDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb-    cb'' <- mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb'-    connectSignalFunPtr obj "interface-proxy-properties-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@interface-proxy-properties-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' dBusObjectManagerClient #interfaceProxyPropertiesChanged callback-@--}-afterDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (IsDBusObjectManagerClient a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId-afterDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb-    cb'' <- mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb'-    connectSignalFunPtr obj "interface-proxy-properties-changed" cb'' SignalConnectAfter----- signal DBusObjectManagerClient::interface-proxy-signal-{- |-Emitted when a D-Bus signal is received on /@interfaceProxy@/.--This signal exists purely as a convenience to avoid having to-connect signals to all interface proxies managed by /@manager@/.--This signal is emitted in the-[thread-default main context][g-main-context-push-thread-default]-that /@manager@/ was constructed in.--/Since: 2.30/--}-type DBusObjectManagerClientInterfaceProxySignalCallback =-    Gio.DBusObjectProxy.DBusObjectProxy-    {- ^ /@objectProxy@/: The 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' on which an interface is emitting a D-Bus signal. -}-    -> Gio.DBusProxy.DBusProxy-    {- ^ /@interfaceProxy@/: The 'GI.Gio.Objects.DBusProxy.DBusProxy' that is emitting a D-Bus signal. -}-    -> T.Text-    {- ^ /@senderName@/: The sender of the signal or NULL if the connection is not a bus connection. -}-    -> T.Text-    {- ^ /@signalName@/: The signal name. -}-    -> GVariant-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectManagerClientInterfaceProxySignalCallback`@.-noDBusObjectManagerClientInterfaceProxySignalCallback :: Maybe DBusObjectManagerClientInterfaceProxySignalCallback-noDBusObjectManagerClientInterfaceProxySignalCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectManagerClientInterfaceProxySignalCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusObjectProxy.DBusObjectProxy ->-    Ptr Gio.DBusProxy.DBusProxy ->-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusObjectManagerClientInterfaceProxySignalCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectManagerClientInterfaceProxySignalCallback :: C_DBusObjectManagerClientInterfaceProxySignalCallback -> IO (FunPtr C_DBusObjectManagerClientInterfaceProxySignalCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectManagerClientInterfaceProxySignal :: MonadIO m => DBusObjectManagerClientInterfaceProxySignalCallback -> m (GClosure C_DBusObjectManagerClientInterfaceProxySignalCallback)-genClosure_DBusObjectManagerClientInterfaceProxySignal cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb-    mk_DBusObjectManagerClientInterfaceProxySignalCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectManagerClientInterfaceProxySignalCallback` into a `C_DBusObjectManagerClientInterfaceProxySignalCallback`.-wrap_DBusObjectManagerClientInterfaceProxySignalCallback ::-    DBusObjectManagerClientInterfaceProxySignalCallback ->-    C_DBusObjectManagerClientInterfaceProxySignalCallback-wrap_DBusObjectManagerClientInterfaceProxySignalCallback _cb _ objectProxy interfaceProxy senderName signalName parameters _ = do-    objectProxy' <- (newObject Gio.DBusObjectProxy.DBusObjectProxy) objectProxy-    interfaceProxy' <- (newObject Gio.DBusProxy.DBusProxy) interfaceProxy-    senderName' <- cstringToText senderName-    signalName' <- cstringToText signalName-    parameters' <- B.GVariant.newGVariantFromPtr parameters-    _cb  objectProxy' interfaceProxy' senderName' signalName' parameters'---{- |-Connect a signal handler for the “@interface-proxy-signal@” 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' dBusObjectManagerClient #interfaceProxySignal callback-@--}-onDBusObjectManagerClientInterfaceProxySignal :: (IsDBusObjectManagerClient a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId-onDBusObjectManagerClientInterfaceProxySignal obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb-    cb'' <- mk_DBusObjectManagerClientInterfaceProxySignalCallback cb'-    connectSignalFunPtr obj "interface-proxy-signal" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@interface-proxy-signal@” 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' dBusObjectManagerClient #interfaceProxySignal callback-@--}-afterDBusObjectManagerClientInterfaceProxySignal :: (IsDBusObjectManagerClient a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId-afterDBusObjectManagerClientInterfaceProxySignal obj cb = liftIO $ do-    let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb-    cb'' <- mk_DBusObjectManagerClientInterfaceProxySignalCallback cb'-    connectSignalFunPtr obj "interface-proxy-signal" cb'' SignalConnectAfter----- VVV Prop "bus-type"-   -- Type: TInterface (Name {namespace = "Gio", name = "BusType"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@bus-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerClientBusType :: (IsDBusObjectManagerClient o) => Gio.Enums.BusType -> IO (GValueConstruct o)-constructDBusObjectManagerClientBusType val = B.Properties.constructObjectPropertyEnum "bus-type" val--#if ENABLE_OVERLOADING-data DBusObjectManagerClientBusTypePropertyInfo-instance AttrInfo DBusObjectManagerClientBusTypePropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientBusTypePropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = (~) Gio.Enums.BusType-    type AttrBaseTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientBusTypePropertyInfo = ()-    type AttrLabel DBusObjectManagerClientBusTypePropertyInfo = "bus-type"-    type AttrOrigin DBusObjectManagerClientBusTypePropertyInfo = DBusObjectManagerClient-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientBusType-    attrClear _ = undefined-#endif---- VVV Prop "connection"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusConnection"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@connection@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerClient #connection-@--}-getDBusObjectManagerClientConnection :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m Gio.DBusConnection.DBusConnection-getDBusObjectManagerClientConnection obj = liftIO $ checkUnexpectedNothing "getDBusObjectManagerClientConnection" $ B.Properties.getObjectPropertyObject obj "connection" Gio.DBusConnection.DBusConnection--{- |-Construct a `GValueConstruct` with valid value for the “@connection@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerClientConnection :: (IsDBusObjectManagerClient o, Gio.DBusConnection.IsDBusConnection a) => a -> IO (GValueConstruct o)-constructDBusObjectManagerClientConnection val = B.Properties.constructObjectPropertyObject "connection" (Just val)--#if ENABLE_OVERLOADING-data DBusObjectManagerClientConnectionPropertyInfo-instance AttrInfo DBusObjectManagerClientConnectionPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection-    type AttrBaseTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientConnectionPropertyInfo = Gio.DBusConnection.DBusConnection-    type AttrLabel DBusObjectManagerClientConnectionPropertyInfo = "connection"-    type AttrOrigin DBusObjectManagerClientConnectionPropertyInfo = DBusObjectManagerClient-    attrGet _ = getDBusObjectManagerClientConnection-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientConnection-    attrClear _ = undefined-#endif---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerClient #flags-@--}-getDBusObjectManagerClientFlags :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m [Gio.Flags.DBusObjectManagerClientFlags]-getDBusObjectManagerClientFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerClientFlags :: (IsDBusObjectManagerClient o) => [Gio.Flags.DBusObjectManagerClientFlags] -> IO (GValueConstruct o)-constructDBusObjectManagerClientFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data DBusObjectManagerClientFlagsPropertyInfo-instance AttrInfo DBusObjectManagerClientFlagsPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = (~) [Gio.Flags.DBusObjectManagerClientFlags]-    type AttrBaseTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientFlagsPropertyInfo = [Gio.Flags.DBusObjectManagerClientFlags]-    type AttrLabel DBusObjectManagerClientFlagsPropertyInfo = "flags"-    type AttrOrigin DBusObjectManagerClientFlagsPropertyInfo = DBusObjectManagerClient-    attrGet _ = getDBusObjectManagerClientFlags-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientFlags-    attrClear _ = undefined-#endif---- VVV Prop "get-proxy-type-destroy-notify"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@get-proxy-type-destroy-notify@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerClient #getProxyTypeDestroyNotify-@--}-getDBusObjectManagerClientGetProxyTypeDestroyNotify :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())-getDBusObjectManagerClientGetProxyTypeDestroyNotify obj = liftIO $ B.Properties.getObjectPropertyPtr obj "get-proxy-type-destroy-notify"--{- |-Construct a `GValueConstruct` with valid value for the “@get-proxy-type-destroy-notify@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerClientGetProxyTypeDestroyNotify :: (IsDBusObjectManagerClient o) => Ptr () -> IO (GValueConstruct o)-constructDBusObjectManagerClientGetProxyTypeDestroyNotify val = B.Properties.constructObjectPropertyPtr "get-proxy-type-destroy-notify" val--#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo-instance AttrInfo DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (Ptr ())-    type AttrLabel DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = "get-proxy-type-destroy-notify"-    type AttrOrigin DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = DBusObjectManagerClient-    attrGet _ = getDBusObjectManagerClientGetProxyTypeDestroyNotify-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeDestroyNotify-    attrClear _ = undefined-#endif---- VVV Prop "get-proxy-type-func"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@get-proxy-type-func@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerClient #getProxyTypeFunc-@--}-getDBusObjectManagerClientGetProxyTypeFunc :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())-getDBusObjectManagerClientGetProxyTypeFunc obj = liftIO $ B.Properties.getObjectPropertyPtr obj "get-proxy-type-func"--{- |-Construct a `GValueConstruct` with valid value for the “@get-proxy-type-func@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerClientGetProxyTypeFunc :: (IsDBusObjectManagerClient o) => Ptr () -> IO (GValueConstruct o)-constructDBusObjectManagerClientGetProxyTypeFunc val = B.Properties.constructObjectPropertyPtr "get-proxy-type-func" val--#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetProxyTypeFuncPropertyInfo-instance AttrInfo DBusObjectManagerClientGetProxyTypeFuncPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (Ptr ())-    type AttrLabel DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = "get-proxy-type-func"-    type AttrOrigin DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = DBusObjectManagerClient-    attrGet _ = getDBusObjectManagerClientGetProxyTypeFunc-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeFunc-    attrClear _ = undefined-#endif---- VVV Prop "get-proxy-type-user-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@get-proxy-type-user-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerClient #getProxyTypeUserData-@--}-getDBusObjectManagerClientGetProxyTypeUserData :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Ptr ())-getDBusObjectManagerClientGetProxyTypeUserData obj = liftIO $ B.Properties.getObjectPropertyPtr obj "get-proxy-type-user-data"--{- |-Construct a `GValueConstruct` with valid value for the “@get-proxy-type-user-data@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerClientGetProxyTypeUserData :: (IsDBusObjectManagerClient o) => Ptr () -> IO (GValueConstruct o)-constructDBusObjectManagerClientGetProxyTypeUserData val = B.Properties.constructObjectPropertyPtr "get-proxy-type-user-data" val--#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo-instance AttrInfo DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (Ptr ())-    type AttrLabel DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = "get-proxy-type-user-data"-    type AttrOrigin DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = DBusObjectManagerClient-    attrGet _ = getDBusObjectManagerClientGetProxyTypeUserData-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeUserData-    attrClear _ = undefined-#endif---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerClient #name-@--}-getDBusObjectManagerClientName :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m T.Text-getDBusObjectManagerClientName obj = liftIO $ checkUnexpectedNothing "getDBusObjectManagerClientName" $ B.Properties.getObjectPropertyString obj "name"--{- |-Construct a `GValueConstruct` with valid value for the “@name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerClientName :: (IsDBusObjectManagerClient o) => T.Text -> IO (GValueConstruct o)-constructDBusObjectManagerClientName val = B.Properties.constructObjectPropertyString "name" (Just val)--#if ENABLE_OVERLOADING-data DBusObjectManagerClientNamePropertyInfo-instance AttrInfo DBusObjectManagerClientNamePropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerClientNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectManagerClientNamePropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientNamePropertyInfo = T.Text-    type AttrLabel DBusObjectManagerClientNamePropertyInfo = "name"-    type AttrOrigin DBusObjectManagerClientNamePropertyInfo = DBusObjectManagerClient-    attrGet _ = getDBusObjectManagerClientName-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientName-    attrClear _ = undefined-#endif---- VVV Prop "name-owner"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@name-owner@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerClient #nameOwner-@--}-getDBusObjectManagerClientNameOwner :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Maybe T.Text)-getDBusObjectManagerClientNameOwner obj = liftIO $ B.Properties.getObjectPropertyString obj "name-owner"--#if ENABLE_OVERLOADING-data DBusObjectManagerClientNameOwnerPropertyInfo-instance AttrInfo DBusObjectManagerClientNameOwnerPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientNameOwnerPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectManagerClientNameOwnerPropertyInfo = "name-owner"-    type AttrOrigin DBusObjectManagerClientNameOwnerPropertyInfo = DBusObjectManagerClient-    attrGet _ = getDBusObjectManagerClientNameOwner-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@object-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerClient #objectPath-@--}-getDBusObjectManagerClientObjectPath :: (MonadIO m, IsDBusObjectManagerClient o) => o -> m (Maybe T.Text)-getDBusObjectManagerClientObjectPath obj = liftIO $ B.Properties.getObjectPropertyString obj "object-path"--{- |-Construct a `GValueConstruct` with valid value for the “@object-path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerClientObjectPath :: (IsDBusObjectManagerClient o) => T.Text -> IO (GValueConstruct o)-constructDBusObjectManagerClientObjectPath val = B.Properties.constructObjectPropertyString "object-path" (Just val)--#if ENABLE_OVERLOADING-data DBusObjectManagerClientObjectPathPropertyInfo-instance AttrInfo DBusObjectManagerClientObjectPathPropertyInfo where-    type AttrAllowedOps DBusObjectManagerClientObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = IsDBusObjectManagerClient-    type AttrGetType DBusObjectManagerClientObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectManagerClientObjectPathPropertyInfo = "object-path"-    type AttrOrigin DBusObjectManagerClientObjectPathPropertyInfo = DBusObjectManagerClient-    attrGet _ = getDBusObjectManagerClientObjectPath-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerClientObjectPath-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusObjectManagerClient-type instance O.AttributeList DBusObjectManagerClient = DBusObjectManagerClientAttributeList-type DBusObjectManagerClientAttributeList = ('[ '("busType", DBusObjectManagerClientBusTypePropertyInfo), '("connection", DBusObjectManagerClientConnectionPropertyInfo), '("flags", DBusObjectManagerClientFlagsPropertyInfo), '("getProxyTypeDestroyNotify", DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo), '("getProxyTypeFunc", DBusObjectManagerClientGetProxyTypeFuncPropertyInfo), '("getProxyTypeUserData", DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo), '("name", DBusObjectManagerClientNamePropertyInfo), '("nameOwner", DBusObjectManagerClientNameOwnerPropertyInfo), '("objectPath", DBusObjectManagerClientObjectPathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusObjectManagerClientBusType :: AttrLabelProxy "busType"-dBusObjectManagerClientBusType = AttrLabelProxy--dBusObjectManagerClientConnection :: AttrLabelProxy "connection"-dBusObjectManagerClientConnection = AttrLabelProxy--dBusObjectManagerClientFlags :: AttrLabelProxy "flags"-dBusObjectManagerClientFlags = AttrLabelProxy--dBusObjectManagerClientGetProxyTypeDestroyNotify :: AttrLabelProxy "getProxyTypeDestroyNotify"-dBusObjectManagerClientGetProxyTypeDestroyNotify = AttrLabelProxy--dBusObjectManagerClientGetProxyTypeFunc :: AttrLabelProxy "getProxyTypeFunc"-dBusObjectManagerClientGetProxyTypeFunc = AttrLabelProxy--dBusObjectManagerClientGetProxyTypeUserData :: AttrLabelProxy "getProxyTypeUserData"-dBusObjectManagerClientGetProxyTypeUserData = AttrLabelProxy--dBusObjectManagerClientName :: AttrLabelProxy "name"-dBusObjectManagerClientName = AttrLabelProxy--dBusObjectManagerClientNameOwner :: AttrLabelProxy "nameOwner"-dBusObjectManagerClientNameOwner = AttrLabelProxy--dBusObjectManagerClientObjectPath :: AttrLabelProxy "objectPath"-dBusObjectManagerClientObjectPath = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo-instance SignalInfo DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo where-    type HaskellCallbackType DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo = DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb-        cb'' <- mk_DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback cb'-        connectSignalFunPtr obj "interface-proxy-properties-changed" cb'' connectMode--data DBusObjectManagerClientInterfaceProxySignalSignalInfo-instance SignalInfo DBusObjectManagerClientInterfaceProxySignalSignalInfo where-    type HaskellCallbackType DBusObjectManagerClientInterfaceProxySignalSignalInfo = DBusObjectManagerClientInterfaceProxySignalCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectManagerClientInterfaceProxySignalCallback cb-        cb'' <- mk_DBusObjectManagerClientInterfaceProxySignalCallback cb'-        connectSignalFunPtr obj "interface-proxy-signal" cb'' connectMode--type instance O.SignalList DBusObjectManagerClient = DBusObjectManagerClientSignalList-type DBusObjectManagerClientSignalList = ('[ '("interfaceAdded", Gio.DBusObjectManager.DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceProxyPropertiesChanged", DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo), '("interfaceProxySignal", DBusObjectManagerClientInterfaceProxySignalSignalInfo), '("interfaceRemoved", Gio.DBusObjectManager.DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("objectAdded", Gio.DBusObjectManager.DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", Gio.DBusObjectManager.DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)])--#endif---- method DBusObjectManagerClient::new_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to g_dbus_object_manager_client_new().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_object_manager_client_new_finish" g_dbus_object_manager_client_new_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusObjectManagerClient)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNew'.--/Since: 2.30/--}-dBusObjectManagerClientNewFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@res@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed to 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNew'. -}-    -> m DBusObjectManagerClient-    {- ^ __Returns:__ A-  'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object or 'Nothing' if /@error@/ is set. Free-  with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusObjectManagerClientNewFinish res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_object_manager_client_new_finish res'-        checkUnexpectedReturnNULL "dBusObjectManagerClientNewFinish" result-        result' <- (wrapObject DBusObjectManagerClient) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method DBusObjectManagerClient::new_for_bus_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to g_dbus_object_manager_client_new_for_bus().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_object_manager_client_new_for_bus_finish" g_dbus_object_manager_client_new_for_bus_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusObjectManagerClient)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNewForBus'.--/Since: 2.30/--}-dBusObjectManagerClientNewForBusFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@res@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed to 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNewForBus'. -}-    -> m DBusObjectManagerClient-    {- ^ __Returns:__ A-  'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object or 'Nothing' if /@error@/ is set. Free-  with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusObjectManagerClientNewForBusFinish res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_finish res'-        checkUnexpectedReturnNULL "dBusObjectManagerClientNewForBusFinish" result-        result' <- (wrapObject DBusObjectManagerClient) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method DBusObjectManagerClient::new_for_bus_sync--- method type : Constructor--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GBusType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Zero or more flags from the #GDBusObjectManagerClientFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The owner of the control object (unique or well-known name).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path of the control object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface (Name {namespace = "Gio", name = "DBusProxyTypeFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusProxyTypeFunc function or %NULL to always construct #GDBusProxy proxies.", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data to pass to @get_proxy_type_func.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Free function for @get_proxy_type_user_data or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_object_manager_client_new_for_bus_sync" g_dbus_object_manager_client_new_for_bus_sync :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    FunPtr Gio.Callbacks.C_DBusProxyTypeFunc -> -- get_proxy_type_func : TInterface (Name {namespace = "Gio", name = "DBusProxyTypeFunc"})-    Ptr () ->                               -- get_proxy_type_user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- get_proxy_type_destroy_notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusObjectManagerClient)--{- |-Like 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNewSync' but takes a 'GI.Gio.Enums.BusType' instead-of a 'GI.Gio.Objects.DBusConnection.DBusConnection'.--This is a synchronous failable constructor - the calling thread is-blocked until a reply is received. See 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNewForBus'-for the asynchronous version.--/Since: 2.30/--}-dBusObjectManagerClientNewForBusSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: A 'GI.Gio.Enums.BusType'. -}-    -> [Gio.Flags.DBusObjectManagerClientFlags]-    {- ^ /@flags@/: Zero or more flags from the 'GI.Gio.Flags.DBusObjectManagerClientFlags' enumeration. -}-    -> T.Text-    {- ^ /@name@/: The owner of the control object (unique or well-known name). -}-    -> T.Text-    {- ^ /@objectPath@/: The object path of the control object. -}-    -> Maybe (Gio.Callbacks.DBusProxyTypeFunc)-    {- ^ /@getProxyTypeFunc@/: A 'GI.Gio.Callbacks.DBusProxyTypeFunc' function or 'Nothing' to always construct 'GI.Gio.Objects.DBusProxy.DBusProxy' proxies. -}-    -> Maybe (a)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m DBusObjectManagerClient-    {- ^ __Returns:__ A-  'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object or 'Nothing' if /@error@/ is set. Free-  with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusObjectManagerClientNewForBusSync busType flags name objectPath getProxyTypeFunc cancellable = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    let flags' = gflagsToWord flags-    name' <- textToCString name-    objectPath' <- textToCString objectPath-    maybeGetProxyTypeFunc <- case getProxyTypeFunc of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jGetProxyTypeFunc -> do-            jGetProxyTypeFunc' <- Gio.Callbacks.mk_DBusProxyTypeFunc (Gio.Callbacks.wrap_DBusProxyTypeFunc Nothing (Gio.Callbacks.drop_closures_DBusProxyTypeFunc jGetProxyTypeFunc))-            return jGetProxyTypeFunc'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc-    let getProxyTypeDestroyNotify = safeFreeFunPtrPtr-    onException (do-        result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_sync busType' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable-        checkUnexpectedReturnNULL "dBusObjectManagerClientNewForBusSync" result-        result' <- (wrapObject DBusObjectManagerClient) result-        whenJust cancellable touchManagedPtr-        freeMem name'-        freeMem objectPath'-        return result'-     ) (do-        freeMem name'-        freeMem objectPath'-     )--#if ENABLE_OVERLOADING-#endif---- method DBusObjectManagerClient::new_sync--- method type : Constructor--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Zero or more flags from the #GDBusObjectManagerClientFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The owner of the control object (unique or well-known name), or %NULL when not using a message bus connection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path of the control object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface (Name {namespace = "Gio", name = "DBusProxyTypeFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusProxyTypeFunc function or %NULL to always construct #GDBusProxy proxies.", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data to pass to @get_proxy_type_func.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Free function for @get_proxy_type_user_data or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_object_manager_client_new_sync" g_dbus_object_manager_client_new_sync :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    FunPtr Gio.Callbacks.C_DBusProxyTypeFunc -> -- get_proxy_type_func : TInterface (Name {namespace = "Gio", name = "DBusProxyTypeFunc"})-    Ptr () ->                               -- get_proxy_type_user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- get_proxy_type_destroy_notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusObjectManagerClient)--{- |-Creates a new 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object.--This is a synchronous failable constructor - the calling thread is-blocked until a reply is received. See 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNew'-for the asynchronous version.--/Since: 2.30/--}-dBusObjectManagerClientNewSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> [Gio.Flags.DBusObjectManagerClientFlags]-    {- ^ /@flags@/: Zero or more flags from the 'GI.Gio.Flags.DBusObjectManagerClientFlags' enumeration. -}-    -> Maybe (T.Text)-    {- ^ /@name@/: The owner of the control object (unique or well-known name), or 'Nothing' when not using a message bus connection. -}-    -> T.Text-    {- ^ /@objectPath@/: The object path of the control object. -}-    -> Maybe (Gio.Callbacks.DBusProxyTypeFunc)-    {- ^ /@getProxyTypeFunc@/: A 'GI.Gio.Callbacks.DBusProxyTypeFunc' function or 'Nothing' to always construct 'GI.Gio.Objects.DBusProxy.DBusProxy' proxies. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m DBusObjectManagerClient-    {- ^ __Returns:__ A-  'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object or 'Nothing' if /@error@/ is set. Free-  with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusObjectManagerClientNewSync connection flags name objectPath getProxyTypeFunc cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    let flags' = gflagsToWord flags-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    objectPath' <- textToCString objectPath-    maybeGetProxyTypeFunc <- case getProxyTypeFunc of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jGetProxyTypeFunc -> do-            jGetProxyTypeFunc' <- Gio.Callbacks.mk_DBusProxyTypeFunc (Gio.Callbacks.wrap_DBusProxyTypeFunc Nothing (Gio.Callbacks.drop_closures_DBusProxyTypeFunc jGetProxyTypeFunc))-            return jGetProxyTypeFunc'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc-    let getProxyTypeDestroyNotify = safeFreeFunPtrPtr-    onException (do-        result <- propagateGError $ g_dbus_object_manager_client_new_sync connection' flags' maybeName objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable-        checkUnexpectedReturnNULL "dBusObjectManagerClientNewSync" result-        result' <- (wrapObject DBusObjectManagerClient) result-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        freeMem maybeName-        freeMem objectPath'-        return result'-     ) (do-        freeMem maybeName-        freeMem objectPath'-     )--#if ENABLE_OVERLOADING-#endif---- method DBusObjectManagerClient::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_client_get_connection" g_dbus_object_manager_client_get_connection :: -    Ptr DBusObjectManagerClient ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"})-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Gets the 'GI.Gio.Objects.DBusConnection.DBusConnection' used by /@manager@/.--/Since: 2.30/--}-dBusObjectManagerClientGetConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusConnection.DBusConnection' object. Do not free,-  the object belongs to /@manager@/. -}-dBusObjectManagerClientGetConnection manager = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    result <- g_dbus_object_manager_client_get_connection manager'-    checkUnexpectedReturnNULL "dBusObjectManagerClientGetConnection" result-    result' <- (newObject Gio.DBusConnection.DBusConnection) result-    touchManagedPtr manager-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetConnectionMethodInfo-instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusObjectManagerClient a) => O.MethodInfo DBusObjectManagerClientGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerClientGetConnection--#endif---- method DBusObjectManagerClient::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_client_get_flags" g_dbus_object_manager_client_get_flags :: -    Ptr DBusObjectManagerClient ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"})-    IO CUInt--{- |-Gets the flags that /@manager@/ was constructed with.--/Since: 2.30/--}-dBusObjectManagerClientGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' -}-    -> m [Gio.Flags.DBusObjectManagerClientFlags]-    {- ^ __Returns:__ Zero of more flags from the 'GI.Gio.Flags.DBusObjectManagerClientFlags'-enumeration. -}-dBusObjectManagerClientGetFlags manager = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    result <- g_dbus_object_manager_client_get_flags manager'-    let result' = wordToGFlags result-    touchManagedPtr manager-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.DBusObjectManagerClientFlags]), MonadIO m, IsDBusObjectManagerClient a) => O.MethodInfo DBusObjectManagerClientGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerClientGetFlags--#endif---- method DBusObjectManagerClient::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerClient", 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 "g_dbus_object_manager_client_get_name" g_dbus_object_manager_client_get_name :: -    Ptr DBusObjectManagerClient ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"})-    IO CString--{- |-Gets the name that /@manager@/ is for, or 'Nothing' if not a message bus-connection.--/Since: 2.30/--}-dBusObjectManagerClientGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' -}-    -> m T.Text-    {- ^ __Returns:__ A unique or well-known name. Do not free, the string-belongs to /@manager@/. -}-dBusObjectManagerClientGetName manager = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    result <- g_dbus_object_manager_client_get_name manager'-    checkUnexpectedReturnNULL "dBusObjectManagerClientGetName" result-    result' <- cstringToText result-    touchManagedPtr manager-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusObjectManagerClient a) => O.MethodInfo DBusObjectManagerClientGetNameMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerClientGetName--#endif---- method DBusObjectManagerClient::get_name_owner--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerClient.", 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 "g_dbus_object_manager_client_get_name_owner" g_dbus_object_manager_client_get_name_owner :: -    Ptr DBusObjectManagerClient ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClient"})-    IO CString--{- |-The unique name that owns the name that /@manager@/ is for or 'Nothing' if-no-one currently owns that name. You can connect to the-'GI.GObject.Objects.Object.Object'::@/notify/@ signal to track changes to the-'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient':@/name-owner/@ property.--/Since: 2.30/--}-dBusObjectManagerClientGetNameOwner ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerClient a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ The name owner or 'Nothing' if no name owner-exists. Free with 'GI.GLib.Functions.free'. -}-dBusObjectManagerClientGetNameOwner manager = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    result <- g_dbus_object_manager_client_get_name_owner manager'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr manager-    return maybeResult--#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetNameOwnerMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDBusObjectManagerClient a) => O.MethodInfo DBusObjectManagerClientGetNameOwnerMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerClientGetNameOwner--#endif---- method DBusObjectManagerClient::new--- method type : MemberFunction--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Zero or more flags from the #GDBusObjectManagerClientFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The owner of the control object (unique or well-known name).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path of the control object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface (Name {namespace = "Gio", name = "DBusProxyTypeFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusProxyTypeFunc function or %NULL to always construct #GDBusProxy proxies.", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data to pass to @get_proxy_type_func.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Free function for @get_proxy_type_user_data or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, 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 "A #GAsyncReadyCallback to call when the request is satisfied.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 9, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The 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 "g_dbus_object_manager_client_new" g_dbus_object_manager_client_new :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    FunPtr Gio.Callbacks.C_DBusProxyTypeFunc -> -- get_proxy_type_func : TInterface (Name {namespace = "Gio", name = "DBusProxyTypeFunc"})-    Ptr () ->                               -- get_proxy_type_user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- get_proxy_type_destroy_notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    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 creates a new 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' object.--This is an asynchronous failable constructor. When the result is-ready, /@callback@/ will be invoked in the-[thread-default main context][g-main-context-push-thread-default]-of the thread you are calling this method from. You can-then call 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNewFinish' to get the result. See-'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNewSync' for the synchronous version.--/Since: 2.30/--}-dBusObjectManagerClientNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> [Gio.Flags.DBusObjectManagerClientFlags]-    {- ^ /@flags@/: Zero or more flags from the 'GI.Gio.Flags.DBusObjectManagerClientFlags' enumeration. -}-    -> T.Text-    {- ^ /@name@/: The owner of the control object (unique or well-known name). -}-    -> T.Text-    {- ^ /@objectPath@/: The object path of the control object. -}-    -> Maybe (Gio.Callbacks.DBusProxyTypeFunc)-    {- ^ /@getProxyTypeFunc@/: A 'GI.Gio.Callbacks.DBusProxyTypeFunc' function or 'Nothing' to always construct 'GI.Gio.Objects.DBusProxy.DBusProxy' proxies. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: A 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied. -}-    -> m ()-dBusObjectManagerClientNew connection flags name objectPath getProxyTypeFunc cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    let flags' = gflagsToWord flags-    name' <- textToCString name-    objectPath' <- textToCString objectPath-    maybeGetProxyTypeFunc <- case getProxyTypeFunc of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jGetProxyTypeFunc -> do-            jGetProxyTypeFunc' <- Gio.Callbacks.mk_DBusProxyTypeFunc (Gio.Callbacks.wrap_DBusProxyTypeFunc Nothing (Gio.Callbacks.drop_closures_DBusProxyTypeFunc jGetProxyTypeFunc))-            return jGetProxyTypeFunc'-    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 getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc-    let getProxyTypeDestroyNotify = safeFreeFunPtrPtr-    let userData = nullPtr-    g_dbus_object_manager_client_new connection' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable maybeCallback userData-    touchManagedPtr connection-    whenJust cancellable touchManagedPtr-    freeMem name'-    freeMem objectPath'-    return ()--#if ENABLE_OVERLOADING-#endif---- method DBusObjectManagerClient::new_for_bus--- method type : MemberFunction--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GBusType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Zero or more flags from the #GDBusObjectManagerClientFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The owner of the control object (unique or well-known name).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path of the control object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface (Name {namespace = "Gio", name = "DBusProxyTypeFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusProxyTypeFunc function or %NULL to always construct #GDBusProxy proxies.", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User data to pass to @get_proxy_type_func.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Free function for @get_proxy_type_user_data or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, 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 "A #GAsyncReadyCallback to call when the request is satisfied.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 9, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The 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 "g_dbus_object_manager_client_new_for_bus" g_dbus_object_manager_client_new_for_bus :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerClientFlags"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    FunPtr Gio.Callbacks.C_DBusProxyTypeFunc -> -- get_proxy_type_func : TInterface (Name {namespace = "Gio", name = "DBusProxyTypeFunc"})-    Ptr () ->                               -- get_proxy_type_user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- get_proxy_type_destroy_notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    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 ()--{- |-Like 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNew' but takes a 'GI.Gio.Enums.BusType' instead of a-'GI.Gio.Objects.DBusConnection.DBusConnection'.--This is an asynchronous failable constructor. When the result is-ready, /@callback@/ will be invoked in the-[thread-default main loop][g-main-context-push-thread-default]-of the thread you are calling this method from. You can-then call 'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNewForBusFinish' to get the result. See-'GI.Gio.Objects.DBusObjectManagerClient.dBusObjectManagerClientNewForBusSync' for the synchronous version.--/Since: 2.30/--}-dBusObjectManagerClientNewForBus ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: A 'GI.Gio.Enums.BusType'. -}-    -> [Gio.Flags.DBusObjectManagerClientFlags]-    {- ^ /@flags@/: Zero or more flags from the 'GI.Gio.Flags.DBusObjectManagerClientFlags' enumeration. -}-    -> T.Text-    {- ^ /@name@/: The owner of the control object (unique or well-known name). -}-    -> T.Text-    {- ^ /@objectPath@/: The object path of the control object. -}-    -> Maybe (Gio.Callbacks.DBusProxyTypeFunc)-    {- ^ /@getProxyTypeFunc@/: A 'GI.Gio.Callbacks.DBusProxyTypeFunc' function or 'Nothing' to always construct 'GI.Gio.Objects.DBusProxy.DBusProxy' proxies. -}-    -> Maybe (a)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: A 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied. -}-    -> m ()-dBusObjectManagerClientNewForBus busType flags name objectPath getProxyTypeFunc cancellable callback = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    let flags' = gflagsToWord flags-    name' <- textToCString name-    objectPath' <- textToCString objectPath-    maybeGetProxyTypeFunc <- case getProxyTypeFunc of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jGetProxyTypeFunc -> do-            jGetProxyTypeFunc' <- Gio.Callbacks.mk_DBusProxyTypeFunc (Gio.Callbacks.wrap_DBusProxyTypeFunc Nothing (Gio.Callbacks.drop_closures_DBusProxyTypeFunc jGetProxyTypeFunc))-            return jGetProxyTypeFunc'-    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 getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc-    let getProxyTypeDestroyNotify = safeFreeFunPtrPtr-    let userData = nullPtr-    g_dbus_object_manager_client_new_for_bus busType' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable maybeCallback userData-    whenJust cancellable touchManagedPtr-    freeMem name'-    freeMem objectPath'-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/DBusObjectManagerClient.hs-boot 
@@ -1,74 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusObjectManagerClient 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 DBusObjectManagerClient = DBusObjectManagerClient (ManagedPtr DBusObjectManagerClient)-instance GObject DBusObjectManagerClient where-class (GObject o, O.IsDescendantOf DBusObjectManagerClient o) => IsDBusObjectManagerClient o-instance (GObject o, O.IsDescendantOf DBusObjectManagerClient o) => IsDBusObjectManagerClient o-instance O.HasParentTypes DBusObjectManagerClient-#if ENABLE_OVERLOADING-data DBusObjectManagerClientBusTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientConnectionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetProxyTypeFuncPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientNameOwnerPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientObjectPathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientInterfaceProxySignalSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerClientGetNameOwnerMethodInfo-#endif
− GI/Gio/Objects/DBusObjectManagerServer.hs 
@@ -1,653 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer' is used to export 'GI.Gio.Interfaces.DBusObject.DBusObject' instances using-the standardized-<http://dbus.freedesktop.org/doc/dbus-specification.html#standard-interfaces-objectmanager org.freedesktop.DBus.ObjectManager>-interface. For example, remote D-Bus clients can get all objects-and properties in a single call. Additionally, any change in the-object hierarchy is broadcast using signals. This means that D-Bus-clients can keep caches up to date by only listening to D-Bus-signals.--The recommended path to export an object manager at is the path form of the-well-known name of a D-Bus service, or below. For example, if a D-Bus service-is available at the well-known name @net.example.ExampleService1@, the object-manager should typically be exported at @\/net\/example\/ExampleService1@, or-below (to allow for multiple object managers in a service).--It is supported, but not recommended, to export an object manager at the root-path, @\/@.--See 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient' for the client-side code that is-intended to be used with 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer' or any D-Bus-object implementing the org.freedesktop.DBus.ObjectManager-interface.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusObjectManagerServer-    ( ---- * Exported types-    DBusObjectManagerServer(..)             ,-    IsDBusObjectManagerServer               ,-    toDBusObjectManagerServer               ,-    noDBusObjectManagerServer               ,--- -- * Methods--- ** export #method:export#--#if ENABLE_OVERLOADING-    DBusObjectManagerServerExportMethodInfo ,-#endif-    dBusObjectManagerServerExport           ,----- ** exportUniquely #method:exportUniquely#--#if ENABLE_OVERLOADING-    DBusObjectManagerServerExportUniquelyMethodInfo,-#endif-    dBusObjectManagerServerExportUniquely   ,----- ** getConnection #method:getConnection#--#if ENABLE_OVERLOADING-    DBusObjectManagerServerGetConnectionMethodInfo,-#endif-    dBusObjectManagerServerGetConnection    ,----- ** isExported #method:isExported#--#if ENABLE_OVERLOADING-    DBusObjectManagerServerIsExportedMethodInfo,-#endif-    dBusObjectManagerServerIsExported       ,----- ** new #method:new#--    dBusObjectManagerServerNew              ,----- ** setConnection #method:setConnection#--#if ENABLE_OVERLOADING-    DBusObjectManagerServerSetConnectionMethodInfo,-#endif-    dBusObjectManagerServerSetConnection    ,----- ** unexport #method:unexport#--#if ENABLE_OVERLOADING-    DBusObjectManagerServerUnexportMethodInfo,-#endif-    dBusObjectManagerServerUnexport         ,----- -- * Properties--- ** connection #attr:connection#-{- | The 'GI.Gio.Objects.DBusConnection.DBusConnection' to export objects on.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerServerConnectionPropertyInfo,-#endif-    clearDBusObjectManagerServerConnection  ,-    constructDBusObjectManagerServerConnection,-#if ENABLE_OVERLOADING-    dBusObjectManagerServerConnection       ,-#endif-    getDBusObjectManagerServerConnection    ,-    setDBusObjectManagerServerConnection    ,----- ** objectPath #attr:objectPath#-{- | The object path to register the manager object at.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectManagerServerObjectPathPropertyInfo,-#endif-    constructDBusObjectManagerServerObjectPath,-#if ENABLE_OVERLOADING-    dBusObjectManagerServerObjectPath       ,-#endif-    getDBusObjectManagerServerObjectPath    ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObjectManager as Gio.DBusObjectManager-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusObjectSkeleton as Gio.DBusObjectSkeleton---- | Memory-managed wrapper type.-newtype DBusObjectManagerServer = DBusObjectManagerServer (ManagedPtr DBusObjectManagerServer)-foreign import ccall "g_dbus_object_manager_server_get_type"-    c_g_dbus_object_manager_server_get_type :: IO GType--instance GObject DBusObjectManagerServer where-    gobjectType = c_g_dbus_object_manager_server_get_type-    ---- | Type class for types which can be safely cast to `DBusObjectManagerServer`, for instance with `toDBusObjectManagerServer`.-class (GObject o, O.IsDescendantOf DBusObjectManagerServer o) => IsDBusObjectManagerServer o-instance (GObject o, O.IsDescendantOf DBusObjectManagerServer o) => IsDBusObjectManagerServer o--instance O.HasParentTypes DBusObjectManagerServer-type instance O.ParentTypes DBusObjectManagerServer = '[GObject.Object.Object, Gio.DBusObjectManager.DBusObjectManager]---- | Cast to `DBusObjectManagerServer`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusObjectManagerServer :: (MonadIO m, IsDBusObjectManagerServer o) => o -> m DBusObjectManagerServer-toDBusObjectManagerServer = liftIO . unsafeCastTo DBusObjectManagerServer---- | A convenience alias for `Nothing` :: `Maybe` `DBusObjectManagerServer`.-noDBusObjectManagerServer :: Maybe DBusObjectManagerServer-noDBusObjectManagerServer = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusObjectManagerServerMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectManagerServerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusObjectManagerServerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectManagerServerMethod "export" o = DBusObjectManagerServerExportMethodInfo-    ResolveDBusObjectManagerServerMethod "exportUniquely" o = DBusObjectManagerServerExportUniquelyMethodInfo-    ResolveDBusObjectManagerServerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusObjectManagerServerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectManagerServerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusObjectManagerServerMethod "isExported" o = DBusObjectManagerServerIsExportedMethodInfo-    ResolveDBusObjectManagerServerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusObjectManagerServerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusObjectManagerServerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectManagerServerMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusObjectManagerServerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusObjectManagerServerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusObjectManagerServerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusObjectManagerServerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusObjectManagerServerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusObjectManagerServerMethod "unexport" o = DBusObjectManagerServerUnexportMethodInfo-    ResolveDBusObjectManagerServerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusObjectManagerServerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusObjectManagerServerMethod "getConnection" o = DBusObjectManagerServerGetConnectionMethodInfo-    ResolveDBusObjectManagerServerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusObjectManagerServerMethod "getInterface" o = Gio.DBusObjectManager.DBusObjectManagerGetInterfaceMethodInfo-    ResolveDBusObjectManagerServerMethod "getObject" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectMethodInfo-    ResolveDBusObjectManagerServerMethod "getObjectPath" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectPathMethodInfo-    ResolveDBusObjectManagerServerMethod "getObjects" o = Gio.DBusObjectManager.DBusObjectManagerGetObjectsMethodInfo-    ResolveDBusObjectManagerServerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusObjectManagerServerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusObjectManagerServerMethod "setConnection" o = DBusObjectManagerServerSetConnectionMethodInfo-    ResolveDBusObjectManagerServerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusObjectManagerServerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusObjectManagerServerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectManagerServerMethod t DBusObjectManagerServer, O.MethodInfo info DBusObjectManagerServer p) => OL.IsLabel t (DBusObjectManagerServer -> 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---- VVV Prop "connection"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusConnection"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just True)--{- |-Get the value of the “@connection@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerServer #connection-@--}-getDBusObjectManagerServerConnection :: (MonadIO m, IsDBusObjectManagerServer o) => o -> m (Maybe Gio.DBusConnection.DBusConnection)-getDBusObjectManagerServerConnection obj = liftIO $ B.Properties.getObjectPropertyObject obj "connection" Gio.DBusConnection.DBusConnection--{- |-Set the value of the “@connection@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusObjectManagerServer [ #connection 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusObjectManagerServerConnection :: (MonadIO m, IsDBusObjectManagerServer o, Gio.DBusConnection.IsDBusConnection a) => o -> a -> m ()-setDBusObjectManagerServerConnection obj val = liftIO $ B.Properties.setObjectPropertyObject obj "connection" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@connection@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerServerConnection :: (IsDBusObjectManagerServer o, Gio.DBusConnection.IsDBusConnection a) => a -> IO (GValueConstruct o)-constructDBusObjectManagerServerConnection val = B.Properties.constructObjectPropertyObject "connection" (Just val)--{- |-Set the value of the “@connection@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #connection-@--}-clearDBusObjectManagerServerConnection :: (MonadIO m, IsDBusObjectManagerServer o) => o -> m ()-clearDBusObjectManagerServerConnection obj = liftIO $ B.Properties.setObjectPropertyObject obj "connection" (Nothing :: Maybe Gio.DBusConnection.DBusConnection)--#if ENABLE_OVERLOADING-data DBusObjectManagerServerConnectionPropertyInfo-instance AttrInfo DBusObjectManagerServerConnectionPropertyInfo where-    type AttrAllowedOps DBusObjectManagerServerConnectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerServerConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection-    type AttrBaseTypeConstraint DBusObjectManagerServerConnectionPropertyInfo = IsDBusObjectManagerServer-    type AttrGetType DBusObjectManagerServerConnectionPropertyInfo = (Maybe Gio.DBusConnection.DBusConnection)-    type AttrLabel DBusObjectManagerServerConnectionPropertyInfo = "connection"-    type AttrOrigin DBusObjectManagerServerConnectionPropertyInfo = DBusObjectManagerServer-    attrGet _ = getDBusObjectManagerServerConnection-    attrSet _ = setDBusObjectManagerServerConnection-    attrConstruct _ = constructDBusObjectManagerServerConnection-    attrClear _ = clearDBusObjectManagerServerConnection-#endif---- VVV Prop "object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@object-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectManagerServer #objectPath-@--}-getDBusObjectManagerServerObjectPath :: (MonadIO m, IsDBusObjectManagerServer o) => o -> m (Maybe T.Text)-getDBusObjectManagerServerObjectPath obj = liftIO $ B.Properties.getObjectPropertyString obj "object-path"--{- |-Construct a `GValueConstruct` with valid value for the “@object-path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectManagerServerObjectPath :: (IsDBusObjectManagerServer o) => T.Text -> IO (GValueConstruct o)-constructDBusObjectManagerServerObjectPath val = B.Properties.constructObjectPropertyString "object-path" (Just val)--#if ENABLE_OVERLOADING-data DBusObjectManagerServerObjectPathPropertyInfo-instance AttrInfo DBusObjectManagerServerObjectPathPropertyInfo where-    type AttrAllowedOps DBusObjectManagerServerObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectManagerServerObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectManagerServerObjectPathPropertyInfo = IsDBusObjectManagerServer-    type AttrGetType DBusObjectManagerServerObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectManagerServerObjectPathPropertyInfo = "object-path"-    type AttrOrigin DBusObjectManagerServerObjectPathPropertyInfo = DBusObjectManagerServer-    attrGet _ = getDBusObjectManagerServerObjectPath-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectManagerServerObjectPath-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusObjectManagerServer-type instance O.AttributeList DBusObjectManagerServer = DBusObjectManagerServerAttributeList-type DBusObjectManagerServerAttributeList = ('[ '("connection", DBusObjectManagerServerConnectionPropertyInfo), '("objectPath", DBusObjectManagerServerObjectPathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusObjectManagerServerConnection :: AttrLabelProxy "connection"-dBusObjectManagerServerConnection = AttrLabelProxy--dBusObjectManagerServerObjectPath :: AttrLabelProxy "objectPath"-dBusObjectManagerServerObjectPath = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DBusObjectManagerServer = DBusObjectManagerServerSignalList-type DBusObjectManagerServerSignalList = ('[ '("interfaceAdded", Gio.DBusObjectManager.DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceRemoved", Gio.DBusObjectManager.DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("objectAdded", Gio.DBusObjectManager.DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", Gio.DBusObjectManager.DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)])--#endif---- method DBusObjectManagerServer::new--- method type : Constructor--- Args : [Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The object path to export the manager object at.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_server_new" g_dbus_object_manager_server_new :: -    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusObjectManagerServer)--{- |-Creates a new 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer' object.--The returned server isn\'t yet exported on any connection. To do so,-use 'GI.Gio.Objects.DBusObjectManagerServer.dBusObjectManagerServerSetConnection'. Normally you-want to export all of your objects before doing so to avoid-<http://dbus.freedesktop.org/doc/dbus-specification.html#standard-interfaces-objectmanager InterfacesAdded>-signals being emitted.--/Since: 2.30/--}-dBusObjectManagerServerNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@objectPath@/: The object path to export the manager object at. -}-    -> m DBusObjectManagerServer-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer' object. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusObjectManagerServerNew objectPath = liftIO $ do-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_manager_server_new objectPath'-    checkUnexpectedReturnNULL "dBusObjectManagerServerNew" result-    result' <- (wrapObject DBusObjectManagerServer) result-    freeMem objectPath'-    return result'--#if ENABLE_OVERLOADING-#endif---- method DBusObjectManagerServer::export--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerServer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_server_export" g_dbus_object_manager_server_export :: -    Ptr DBusObjectManagerServer ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"})-    Ptr Gio.DBusObjectSkeleton.DBusObjectSkeleton -> -- object : TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"})-    IO ()--{- |-Exports /@object@/ on /@manager@/.--If there is already a 'GI.Gio.Interfaces.DBusObject.DBusObject' exported at the object path,-then the old object is removed.--The object path for /@object@/ must be in the hierarchy rooted by the-object path for /@manager@/.--Note that /@manager@/ will take a reference on /@object@/ for as long as-it is exported.--/Since: 2.30/--}-dBusObjectManagerServerExport ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerServer a, Gio.DBusObjectSkeleton.IsDBusObjectSkeleton b) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer'. -}-    -> b-    {- ^ /@object@/: A 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'. -}-    -> m ()-dBusObjectManagerServerExport manager object = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    object' <- unsafeManagedPtrCastPtr object-    g_dbus_object_manager_server_export manager' object'-    touchManagedPtr manager-    touchManagedPtr object-    return ()--#if ENABLE_OVERLOADING-data DBusObjectManagerServerExportMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDBusObjectManagerServer a, Gio.DBusObjectSkeleton.IsDBusObjectSkeleton b) => O.MethodInfo DBusObjectManagerServerExportMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerExport--#endif---- method DBusObjectManagerServer::export_uniquely--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerServer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_server_export_uniquely" g_dbus_object_manager_server_export_uniquely :: -    Ptr DBusObjectManagerServer ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"})-    Ptr Gio.DBusObjectSkeleton.DBusObjectSkeleton -> -- object : TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"})-    IO ()--{- |-Like 'GI.Gio.Objects.DBusObjectManagerServer.dBusObjectManagerServerExport' but appends a string of-the form _N (with N being a natural number) to /@object@/\'s object path-if an object with the given path already exists. As such, the-'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy':@/g-object-path/@ property of /@object@/ may be modified.--/Since: 2.30/--}-dBusObjectManagerServerExportUniquely ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerServer a, Gio.DBusObjectSkeleton.IsDBusObjectSkeleton b) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer'. -}-    -> b-    {- ^ /@object@/: An object. -}-    -> m ()-dBusObjectManagerServerExportUniquely manager object = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    object' <- unsafeManagedPtrCastPtr object-    g_dbus_object_manager_server_export_uniquely manager' object'-    touchManagedPtr manager-    touchManagedPtr object-    return ()--#if ENABLE_OVERLOADING-data DBusObjectManagerServerExportUniquelyMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDBusObjectManagerServer a, Gio.DBusObjectSkeleton.IsDBusObjectSkeleton b) => O.MethodInfo DBusObjectManagerServerExportUniquelyMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerExportUniquely--#endif---- method DBusObjectManagerServer::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_server_get_connection" g_dbus_object_manager_server_get_connection :: -    Ptr DBusObjectManagerServer ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"})-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Gets the 'GI.Gio.Objects.DBusConnection.DBusConnection' used by /@manager@/.--/Since: 2.30/--}-dBusObjectManagerServerGetConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerServer a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer' -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusConnection.DBusConnection' object or 'Nothing' if-  /@manager@/ isn\'t exported on a connection. The returned object should-  be freed with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusObjectManagerServerGetConnection manager = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    result <- g_dbus_object_manager_server_get_connection manager'-    checkUnexpectedReturnNULL "dBusObjectManagerServerGetConnection" result-    result' <- (wrapObject Gio.DBusConnection.DBusConnection) result-    touchManagedPtr manager-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerServerGetConnectionMethodInfo-instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusObjectManagerServer a) => O.MethodInfo DBusObjectManagerServerGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerGetConnection--#endif---- method DBusObjectManagerServer::is_exported--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerServer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object.", 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 "g_dbus_object_manager_server_is_exported" g_dbus_object_manager_server_is_exported :: -    Ptr DBusObjectManagerServer ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"})-    Ptr Gio.DBusObjectSkeleton.DBusObjectSkeleton -> -- object : TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"})-    IO CInt--{- |-Returns whether /@object@/ is currently exported on /@manager@/.--/Since: 2.34/--}-dBusObjectManagerServerIsExported ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerServer a, Gio.DBusObjectSkeleton.IsDBusObjectSkeleton b) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer'. -}-    -> b-    {- ^ /@object@/: An object. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@object@/ is exported -}-dBusObjectManagerServerIsExported manager object = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    object' <- unsafeManagedPtrCastPtr object-    result <- g_dbus_object_manager_server_is_exported manager' object'-    let result' = (/= 0) result-    touchManagedPtr manager-    touchManagedPtr object-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerServerIsExportedMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsDBusObjectManagerServer a, Gio.DBusObjectSkeleton.IsDBusObjectSkeleton b) => O.MethodInfo DBusObjectManagerServerIsExportedMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerIsExported--#endif---- method DBusObjectManagerServer::set_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerServer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusConnection or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_manager_server_set_connection" g_dbus_object_manager_server_set_connection :: -    Ptr DBusObjectManagerServer ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"})-    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    IO ()--{- |-Exports all objects managed by /@manager@/ on /@connection@/. If-/@connection@/ is 'Nothing', stops exporting objects.--}-dBusObjectManagerServerSetConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerServer a, Gio.DBusConnection.IsDBusConnection b) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer'. -}-    -> Maybe (b)-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection' or 'Nothing'. -}-    -> m ()-dBusObjectManagerServerSetConnection manager connection = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    maybeConnection <- case connection of-        Nothing -> return nullPtr-        Just jConnection -> do-            jConnection' <- unsafeManagedPtrCastPtr jConnection-            return jConnection'-    g_dbus_object_manager_server_set_connection manager' maybeConnection-    touchManagedPtr manager-    whenJust connection touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusObjectManagerServerSetConnectionMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsDBusObjectManagerServer a, Gio.DBusConnection.IsDBusConnection b) => O.MethodInfo DBusObjectManagerServerSetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerSetConnection--#endif---- method DBusObjectManagerServer::unexport--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectManagerServer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object path.", 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 "g_dbus_object_manager_server_unexport" g_dbus_object_manager_server_unexport :: -    Ptr DBusObjectManagerServer ->          -- manager : TInterface (Name {namespace = "Gio", name = "DBusObjectManagerServer"})-    CString ->                              -- object_path : TBasicType TUTF8-    IO CInt--{- |-If /@manager@/ has an object at /@path@/, removes the object. Otherwise-does nothing.--Note that /@objectPath@/ must be in the hierarchy rooted by the-object path for /@manager@/.--/Since: 2.30/--}-dBusObjectManagerServerUnexport ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectManagerServer a) =>-    a-    {- ^ /@manager@/: A 'GI.Gio.Objects.DBusObjectManagerServer.DBusObjectManagerServer'. -}-    -> T.Text-    {- ^ /@objectPath@/: An object path. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if object at /@objectPath@/ was removed, 'False' otherwise. -}-dBusObjectManagerServerUnexport manager objectPath = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_manager_server_unexport manager' objectPath'-    let result' = (/= 0) result-    touchManagedPtr manager-    freeMem objectPath'-    return result'--#if ENABLE_OVERLOADING-data DBusObjectManagerServerUnexportMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDBusObjectManagerServer a) => O.MethodInfo DBusObjectManagerServerUnexportMethodInfo a signature where-    overloadedMethod _ = dBusObjectManagerServerUnexport--#endif--
− GI/Gio/Objects/DBusObjectManagerServer.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusObjectManagerServer 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 DBusObjectManagerServer = DBusObjectManagerServer (ManagedPtr DBusObjectManagerServer)-instance GObject DBusObjectManagerServer where-class (GObject o, O.IsDescendantOf DBusObjectManagerServer o) => IsDBusObjectManagerServer o-instance (GObject o, O.IsDescendantOf DBusObjectManagerServer o) => IsDBusObjectManagerServer o-instance O.HasParentTypes DBusObjectManagerServer-#if ENABLE_OVERLOADING-data DBusObjectManagerServerConnectionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerServerObjectPathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerServerExportMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerServerExportUniquelyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerServerGetConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerServerIsExportedMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerServerSetConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectManagerServerUnexportMethodInfo-#endif
− GI/Gio/Objects/DBusObjectProxy.hs 
@@ -1,340 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' is an object used to represent a remote object-with one or more D-Bus interfaces. Normally, you don\'t instantiate-a 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' yourself - typically 'GI.Gio.Objects.DBusObjectManagerClient.DBusObjectManagerClient'-is used to obtain it.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusObjectProxy-    ( ---- * Exported types-    DBusObjectProxy(..)                     ,-    IsDBusObjectProxy                       ,-    toDBusObjectProxy                       ,-    noDBusObjectProxy                       ,--- -- * Methods--- ** getConnection #method:getConnection#--#if ENABLE_OVERLOADING-    DBusObjectProxyGetConnectionMethodInfo  ,-#endif-    dBusObjectProxyGetConnection            ,----- ** new #method:new#--    dBusObjectProxyNew                      ,----- -- * Properties--- ** gConnection #attr:gConnection#-{- | The connection of the proxy.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectProxyGConnectionPropertyInfo  ,-#endif-    constructDBusObjectProxyGConnection     ,-#if ENABLE_OVERLOADING-    dBusObjectProxyGConnection              ,-#endif-    getDBusObjectProxyGConnection           ,----- ** gObjectPath #attr:gObjectPath#-{- | The object path of the proxy.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectProxyGObjectPathPropertyInfo  ,-#endif-    constructDBusObjectProxyGObjectPath     ,-#if ENABLE_OVERLOADING-    dBusObjectProxyGObjectPath              ,-#endif-    getDBusObjectProxyGObjectPath           ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObject as Gio.DBusObject-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection---- | Memory-managed wrapper type.-newtype DBusObjectProxy = DBusObjectProxy (ManagedPtr DBusObjectProxy)-foreign import ccall "g_dbus_object_proxy_get_type"-    c_g_dbus_object_proxy_get_type :: IO GType--instance GObject DBusObjectProxy where-    gobjectType = c_g_dbus_object_proxy_get_type-    ---- | Type class for types which can be safely cast to `DBusObjectProxy`, for instance with `toDBusObjectProxy`.-class (GObject o, O.IsDescendantOf DBusObjectProxy o) => IsDBusObjectProxy o-instance (GObject o, O.IsDescendantOf DBusObjectProxy o) => IsDBusObjectProxy o--instance O.HasParentTypes DBusObjectProxy-type instance O.ParentTypes DBusObjectProxy = '[GObject.Object.Object, Gio.DBusObject.DBusObject]---- | Cast to `DBusObjectProxy`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusObjectProxy :: (MonadIO m, IsDBusObjectProxy o) => o -> m DBusObjectProxy-toDBusObjectProxy = liftIO . unsafeCastTo DBusObjectProxy---- | A convenience alias for `Nothing` :: `Maybe` `DBusObjectProxy`.-noDBusObjectProxy :: Maybe DBusObjectProxy-noDBusObjectProxy = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusObjectProxyMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectProxyMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusObjectProxyMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectProxyMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusObjectProxyMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectProxyMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusObjectProxyMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusObjectProxyMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusObjectProxyMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectProxyMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusObjectProxyMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusObjectProxyMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusObjectProxyMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusObjectProxyMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusObjectProxyMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusObjectProxyMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusObjectProxyMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusObjectProxyMethod "getConnection" o = DBusObjectProxyGetConnectionMethodInfo-    ResolveDBusObjectProxyMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusObjectProxyMethod "getInterface" o = Gio.DBusObject.DBusObjectGetInterfaceMethodInfo-    ResolveDBusObjectProxyMethod "getInterfaces" o = Gio.DBusObject.DBusObjectGetInterfacesMethodInfo-    ResolveDBusObjectProxyMethod "getObjectPath" o = Gio.DBusObject.DBusObjectGetObjectPathMethodInfo-    ResolveDBusObjectProxyMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusObjectProxyMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusObjectProxyMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusObjectProxyMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusObjectProxyMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectProxyMethod t DBusObjectProxy, O.MethodInfo info DBusObjectProxy p) => OL.IsLabel t (DBusObjectProxy -> 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---- VVV Prop "g-connection"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusConnection"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-connection@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectProxy #gConnection-@--}-getDBusObjectProxyGConnection :: (MonadIO m, IsDBusObjectProxy o) => o -> m (Maybe Gio.DBusConnection.DBusConnection)-getDBusObjectProxyGConnection obj = liftIO $ B.Properties.getObjectPropertyObject obj "g-connection" Gio.DBusConnection.DBusConnection--{- |-Construct a `GValueConstruct` with valid value for the “@g-connection@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectProxyGConnection :: (IsDBusObjectProxy o, Gio.DBusConnection.IsDBusConnection a) => a -> IO (GValueConstruct o)-constructDBusObjectProxyGConnection val = B.Properties.constructObjectPropertyObject "g-connection" (Just val)--#if ENABLE_OVERLOADING-data DBusObjectProxyGConnectionPropertyInfo-instance AttrInfo DBusObjectProxyGConnectionPropertyInfo where-    type AttrAllowedOps DBusObjectProxyGConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectProxyGConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection-    type AttrBaseTypeConstraint DBusObjectProxyGConnectionPropertyInfo = IsDBusObjectProxy-    type AttrGetType DBusObjectProxyGConnectionPropertyInfo = (Maybe Gio.DBusConnection.DBusConnection)-    type AttrLabel DBusObjectProxyGConnectionPropertyInfo = "g-connection"-    type AttrOrigin DBusObjectProxyGConnectionPropertyInfo = DBusObjectProxy-    attrGet _ = getDBusObjectProxyGConnection-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectProxyGConnection-    attrClear _ = undefined-#endif---- VVV Prop "g-object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-object-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectProxy #gObjectPath-@--}-getDBusObjectProxyGObjectPath :: (MonadIO m, IsDBusObjectProxy o) => o -> m (Maybe T.Text)-getDBusObjectProxyGObjectPath obj = liftIO $ B.Properties.getObjectPropertyString obj "g-object-path"--{- |-Construct a `GValueConstruct` with valid value for the “@g-object-path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectProxyGObjectPath :: (IsDBusObjectProxy o) => T.Text -> IO (GValueConstruct o)-constructDBusObjectProxyGObjectPath val = B.Properties.constructObjectPropertyString "g-object-path" (Just val)--#if ENABLE_OVERLOADING-data DBusObjectProxyGObjectPathPropertyInfo-instance AttrInfo DBusObjectProxyGObjectPathPropertyInfo where-    type AttrAllowedOps DBusObjectProxyGObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectProxyGObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectProxyGObjectPathPropertyInfo = IsDBusObjectProxy-    type AttrGetType DBusObjectProxyGObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectProxyGObjectPathPropertyInfo = "g-object-path"-    type AttrOrigin DBusObjectProxyGObjectPathPropertyInfo = DBusObjectProxy-    attrGet _ = getDBusObjectProxyGObjectPath-    attrSet _ = undefined-    attrConstruct _ = constructDBusObjectProxyGObjectPath-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusObjectProxy-type instance O.AttributeList DBusObjectProxy = DBusObjectProxyAttributeList-type DBusObjectProxyAttributeList = ('[ '("gConnection", DBusObjectProxyGConnectionPropertyInfo), '("gObjectPath", DBusObjectProxyGObjectPathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusObjectProxyGConnection :: AttrLabelProxy "gConnection"-dBusObjectProxyGConnection = AttrLabelProxy--dBusObjectProxyGObjectPath :: AttrLabelProxy "gObjectPath"-dBusObjectProxyGObjectPath = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DBusObjectProxy = DBusObjectProxySignalList-type DBusObjectProxySignalList = ('[ '("interfaceAdded", Gio.DBusObject.DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", Gio.DBusObject.DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusObjectProxy::new--- method type : Constructor--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the object path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObjectProxy"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_proxy_new" g_dbus_object_proxy_new :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusObjectProxy)--{- |-Creates a new 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' for the given connection and-object path.--/Since: 2.30/--}-dBusObjectProxyNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.DBusConnection.DBusConnection' -}-    -> T.Text-    {- ^ /@objectPath@/: the object path -}-    -> m DBusObjectProxy-    {- ^ __Returns:__ a new 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' -}-dBusObjectProxyNew connection objectPath = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_proxy_new connection' objectPath'-    checkUnexpectedReturnNULL "dBusObjectProxyNew" result-    result' <- (wrapObject DBusObjectProxy) result-    touchManagedPtr connection-    freeMem objectPath'-    return result'--#if ENABLE_OVERLOADING-#endif---- method DBusObjectProxy::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDBusObjectProxy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_proxy_get_connection" g_dbus_object_proxy_get_connection :: -    Ptr DBusObjectProxy ->                  -- proxy : TInterface (Name {namespace = "Gio", name = "DBusObjectProxy"})-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Gets the connection that /@proxy@/ is for.--/Since: 2.30/--}-dBusObjectProxyGetConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectProxy a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Objects.DBusObjectProxy.DBusObjectProxy' -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusConnection.DBusConnection'. Do not free, the-  object is owned by /@proxy@/. -}-dBusObjectProxyGetConnection proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_object_proxy_get_connection proxy'-    checkUnexpectedReturnNULL "dBusObjectProxyGetConnection" result-    result' <- (newObject Gio.DBusConnection.DBusConnection) result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data DBusObjectProxyGetConnectionMethodInfo-instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusObjectProxy a) => O.MethodInfo DBusObjectProxyGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusObjectProxyGetConnection--#endif--
− GI/Gio/Objects/DBusObjectProxy.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusObjectProxy 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 DBusObjectProxy = DBusObjectProxy (ManagedPtr DBusObjectProxy)-instance GObject DBusObjectProxy where-class (GObject o, O.IsDescendantOf DBusObjectProxy o) => IsDBusObjectProxy o-instance (GObject o, O.IsDescendantOf DBusObjectProxy o) => IsDBusObjectProxy o-instance O.HasParentTypes DBusObjectProxy-#if ENABLE_OVERLOADING-data DBusObjectProxyGConnectionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectProxyGObjectPathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectProxyGetConnectionMethodInfo-#endif
− GI/Gio/Objects/DBusObjectSkeleton.hs 
@@ -1,619 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton' instance is essentially a group of D-Bus-interfaces. The set of exported interfaces on the object may be-dynamic and change at runtime.--This type is intended to be used with 'GI.Gio.Interfaces.DBusObjectManager.DBusObjectManager'.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusObjectSkeleton-    ( ---- * Exported types-    DBusObjectSkeleton(..)                  ,-    IsDBusObjectSkeleton                    ,-    toDBusObjectSkeleton                    ,-    noDBusObjectSkeleton                    ,--- -- * Methods--- ** addInterface #method:addInterface#--#if ENABLE_OVERLOADING-    DBusObjectSkeletonAddInterfaceMethodInfo,-#endif-    dBusObjectSkeletonAddInterface          ,----- ** flush #method:flush#--#if ENABLE_OVERLOADING-    DBusObjectSkeletonFlushMethodInfo       ,-#endif-    dBusObjectSkeletonFlush                 ,----- ** new #method:new#--    dBusObjectSkeletonNew                   ,----- ** removeInterface #method:removeInterface#--#if ENABLE_OVERLOADING-    DBusObjectSkeletonRemoveInterfaceMethodInfo,-#endif-    dBusObjectSkeletonRemoveInterface       ,----- ** removeInterfaceByName #method:removeInterfaceByName#--#if ENABLE_OVERLOADING-    DBusObjectSkeletonRemoveInterfaceByNameMethodInfo,-#endif-    dBusObjectSkeletonRemoveInterfaceByName ,----- ** setObjectPath #method:setObjectPath#--#if ENABLE_OVERLOADING-    DBusObjectSkeletonSetObjectPathMethodInfo,-#endif-    dBusObjectSkeletonSetObjectPath         ,----- -- * Properties--- ** gObjectPath #attr:gObjectPath#-{- | The object path where the object is exported.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    DBusObjectSkeletonGObjectPathPropertyInfo,-#endif-    clearDBusObjectSkeletonGObjectPath      ,-    constructDBusObjectSkeletonGObjectPath  ,-#if ENABLE_OVERLOADING-    dBusObjectSkeletonGObjectPath           ,-#endif-    getDBusObjectSkeletonGObjectPath        ,-    setDBusObjectSkeletonGObjectPath        ,----- -- * Signals--- ** authorizeMethod #signal:authorizeMethod#--    C_DBusObjectSkeletonAuthorizeMethodCallback,-    DBusObjectSkeletonAuthorizeMethodCallback,-#if ENABLE_OVERLOADING-    DBusObjectSkeletonAuthorizeMethodSignalInfo,-#endif-    afterDBusObjectSkeletonAuthorizeMethod  ,-    genClosure_DBusObjectSkeletonAuthorizeMethod,-    mk_DBusObjectSkeletonAuthorizeMethodCallback,-    noDBusObjectSkeletonAuthorizeMethodCallback,-    onDBusObjectSkeletonAuthorizeMethod     ,-    wrap_DBusObjectSkeletonAuthorizeMethodCallback,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusObject as Gio.DBusObject-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusInterfaceSkeleton as Gio.DBusInterfaceSkeleton-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusMethodInvocation as Gio.DBusMethodInvocation---- | Memory-managed wrapper type.-newtype DBusObjectSkeleton = DBusObjectSkeleton (ManagedPtr DBusObjectSkeleton)-foreign import ccall "g_dbus_object_skeleton_get_type"-    c_g_dbus_object_skeleton_get_type :: IO GType--instance GObject DBusObjectSkeleton where-    gobjectType = c_g_dbus_object_skeleton_get_type-    ---- | Type class for types which can be safely cast to `DBusObjectSkeleton`, for instance with `toDBusObjectSkeleton`.-class (GObject o, O.IsDescendantOf DBusObjectSkeleton o) => IsDBusObjectSkeleton o-instance (GObject o, O.IsDescendantOf DBusObjectSkeleton o) => IsDBusObjectSkeleton o--instance O.HasParentTypes DBusObjectSkeleton-type instance O.ParentTypes DBusObjectSkeleton = '[GObject.Object.Object, Gio.DBusObject.DBusObject]---- | Cast to `DBusObjectSkeleton`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusObjectSkeleton :: (MonadIO m, IsDBusObjectSkeleton o) => o -> m DBusObjectSkeleton-toDBusObjectSkeleton = liftIO . unsafeCastTo DBusObjectSkeleton---- | A convenience alias for `Nothing` :: `Maybe` `DBusObjectSkeleton`.-noDBusObjectSkeleton :: Maybe DBusObjectSkeleton-noDBusObjectSkeleton = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusObjectSkeletonMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusObjectSkeletonMethod "addInterface" o = DBusObjectSkeletonAddInterfaceMethodInfo-    ResolveDBusObjectSkeletonMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusObjectSkeletonMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusObjectSkeletonMethod "flush" o = DBusObjectSkeletonFlushMethodInfo-    ResolveDBusObjectSkeletonMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusObjectSkeletonMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusObjectSkeletonMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusObjectSkeletonMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusObjectSkeletonMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusObjectSkeletonMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusObjectSkeletonMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusObjectSkeletonMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusObjectSkeletonMethod "removeInterface" o = DBusObjectSkeletonRemoveInterfaceMethodInfo-    ResolveDBusObjectSkeletonMethod "removeInterfaceByName" o = DBusObjectSkeletonRemoveInterfaceByNameMethodInfo-    ResolveDBusObjectSkeletonMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusObjectSkeletonMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusObjectSkeletonMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusObjectSkeletonMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusObjectSkeletonMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusObjectSkeletonMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusObjectSkeletonMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusObjectSkeletonMethod "getInterface" o = Gio.DBusObject.DBusObjectGetInterfaceMethodInfo-    ResolveDBusObjectSkeletonMethod "getInterfaces" o = Gio.DBusObject.DBusObjectGetInterfacesMethodInfo-    ResolveDBusObjectSkeletonMethod "getObjectPath" o = Gio.DBusObject.DBusObjectGetObjectPathMethodInfo-    ResolveDBusObjectSkeletonMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusObjectSkeletonMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusObjectSkeletonMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusObjectSkeletonMethod "setObjectPath" o = DBusObjectSkeletonSetObjectPathMethodInfo-    ResolveDBusObjectSkeletonMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusObjectSkeletonMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusObjectSkeletonMethod t DBusObjectSkeleton, O.MethodInfo info DBusObjectSkeleton p) => OL.IsLabel t (DBusObjectSkeleton -> 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 DBusObjectSkeleton::authorize-method-{- |-Emitted when a method is invoked by a remote caller and used to-determine if the method call is authorized.--This signal is like 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'\'s-'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'::@/g-authorize-method/@ signal,-except that it is for the enclosing object.--The default class handler just returns 'True'.--/Since: 2.30/--}-type DBusObjectSkeletonAuthorizeMethodCallback =-    Gio.DBusInterfaceSkeleton.DBusInterfaceSkeleton-    {- ^ /@interface@/: The 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton' that /@invocation@/ is for. -}-    -> Gio.DBusMethodInvocation.DBusMethodInvocation-    {- ^ /@invocation@/: A 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if the call is authorized, 'False' otherwise. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusObjectSkeletonAuthorizeMethodCallback`@.-noDBusObjectSkeletonAuthorizeMethodCallback :: Maybe DBusObjectSkeletonAuthorizeMethodCallback-noDBusObjectSkeletonAuthorizeMethodCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusObjectSkeletonAuthorizeMethodCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusInterfaceSkeleton.DBusInterfaceSkeleton ->-    Ptr Gio.DBusMethodInvocation.DBusMethodInvocation ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_DBusObjectSkeletonAuthorizeMethodCallback`.-foreign import ccall "wrapper"-    mk_DBusObjectSkeletonAuthorizeMethodCallback :: C_DBusObjectSkeletonAuthorizeMethodCallback -> IO (FunPtr C_DBusObjectSkeletonAuthorizeMethodCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusObjectSkeletonAuthorizeMethod :: MonadIO m => DBusObjectSkeletonAuthorizeMethodCallback -> m (GClosure C_DBusObjectSkeletonAuthorizeMethodCallback)-genClosure_DBusObjectSkeletonAuthorizeMethod cb = liftIO $ do-    let cb' = wrap_DBusObjectSkeletonAuthorizeMethodCallback cb-    mk_DBusObjectSkeletonAuthorizeMethodCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusObjectSkeletonAuthorizeMethodCallback` into a `C_DBusObjectSkeletonAuthorizeMethodCallback`.-wrap_DBusObjectSkeletonAuthorizeMethodCallback ::-    DBusObjectSkeletonAuthorizeMethodCallback ->-    C_DBusObjectSkeletonAuthorizeMethodCallback-wrap_DBusObjectSkeletonAuthorizeMethodCallback _cb _ interface invocation _ = do-    interface' <- (newObject Gio.DBusInterfaceSkeleton.DBusInterfaceSkeleton) interface-    invocation' <- (newObject Gio.DBusMethodInvocation.DBusMethodInvocation) invocation-    result <- _cb  interface' invocation'-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@authorize-method@” 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' dBusObjectSkeleton #authorizeMethod callback-@--}-onDBusObjectSkeletonAuthorizeMethod :: (IsDBusObjectSkeleton a, MonadIO m) => a -> DBusObjectSkeletonAuthorizeMethodCallback -> m SignalHandlerId-onDBusObjectSkeletonAuthorizeMethod obj cb = liftIO $ do-    let cb' = wrap_DBusObjectSkeletonAuthorizeMethodCallback cb-    cb'' <- mk_DBusObjectSkeletonAuthorizeMethodCallback cb'-    connectSignalFunPtr obj "authorize-method" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@authorize-method@” 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' dBusObjectSkeleton #authorizeMethod callback-@--}-afterDBusObjectSkeletonAuthorizeMethod :: (IsDBusObjectSkeleton a, MonadIO m) => a -> DBusObjectSkeletonAuthorizeMethodCallback -> m SignalHandlerId-afterDBusObjectSkeletonAuthorizeMethod obj cb = liftIO $ do-    let cb' = wrap_DBusObjectSkeletonAuthorizeMethodCallback cb-    cb'' <- mk_DBusObjectSkeletonAuthorizeMethodCallback cb'-    connectSignalFunPtr obj "authorize-method" cb'' SignalConnectAfter----- VVV Prop "g-object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-object-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusObjectSkeleton #gObjectPath-@--}-getDBusObjectSkeletonGObjectPath :: (MonadIO m, IsDBusObjectSkeleton o) => o -> m (Maybe T.Text)-getDBusObjectSkeletonGObjectPath obj = liftIO $ B.Properties.getObjectPropertyString obj "g-object-path"--{- |-Set the value of the “@g-object-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusObjectSkeleton [ #gObjectPath 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusObjectSkeletonGObjectPath :: (MonadIO m, IsDBusObjectSkeleton o) => o -> T.Text -> m ()-setDBusObjectSkeletonGObjectPath obj val = liftIO $ B.Properties.setObjectPropertyString obj "g-object-path" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@g-object-path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusObjectSkeletonGObjectPath :: (IsDBusObjectSkeleton o) => T.Text -> IO (GValueConstruct o)-constructDBusObjectSkeletonGObjectPath val = B.Properties.constructObjectPropertyString "g-object-path" (Just val)--{- |-Set the value of the “@g-object-path@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #gObjectPath-@--}-clearDBusObjectSkeletonGObjectPath :: (MonadIO m, IsDBusObjectSkeleton o) => o -> m ()-clearDBusObjectSkeletonGObjectPath obj = liftIO $ B.Properties.setObjectPropertyString obj "g-object-path" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data DBusObjectSkeletonGObjectPathPropertyInfo-instance AttrInfo DBusObjectSkeletonGObjectPathPropertyInfo where-    type AttrAllowedOps DBusObjectSkeletonGObjectPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusObjectSkeletonGObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusObjectSkeletonGObjectPathPropertyInfo = IsDBusObjectSkeleton-    type AttrGetType DBusObjectSkeletonGObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusObjectSkeletonGObjectPathPropertyInfo = "g-object-path"-    type AttrOrigin DBusObjectSkeletonGObjectPathPropertyInfo = DBusObjectSkeleton-    attrGet _ = getDBusObjectSkeletonGObjectPath-    attrSet _ = setDBusObjectSkeletonGObjectPath-    attrConstruct _ = constructDBusObjectSkeletonGObjectPath-    attrClear _ = clearDBusObjectSkeletonGObjectPath-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusObjectSkeleton-type instance O.AttributeList DBusObjectSkeleton = DBusObjectSkeletonAttributeList-type DBusObjectSkeletonAttributeList = ('[ '("gObjectPath", DBusObjectSkeletonGObjectPathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusObjectSkeletonGObjectPath :: AttrLabelProxy "gObjectPath"-dBusObjectSkeletonGObjectPath = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data DBusObjectSkeletonAuthorizeMethodSignalInfo-instance SignalInfo DBusObjectSkeletonAuthorizeMethodSignalInfo where-    type HaskellCallbackType DBusObjectSkeletonAuthorizeMethodSignalInfo = DBusObjectSkeletonAuthorizeMethodCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusObjectSkeletonAuthorizeMethodCallback cb-        cb'' <- mk_DBusObjectSkeletonAuthorizeMethodCallback cb'-        connectSignalFunPtr obj "authorize-method" cb'' connectMode--type instance O.SignalList DBusObjectSkeleton = DBusObjectSkeletonSignalList-type DBusObjectSkeletonSignalList = ('[ '("authorizeMethod", DBusObjectSkeletonAuthorizeMethodSignalInfo), '("interfaceAdded", Gio.DBusObject.DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", Gio.DBusObject.DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusObjectSkeleton::new--- method type : Constructor--- Args : [Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_skeleton_new" g_dbus_object_skeleton_new :: -    CString ->                              -- object_path : TBasicType TUTF8-    IO (Ptr DBusObjectSkeleton)--{- |-Creates a new 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'.--/Since: 2.30/--}-dBusObjectSkeletonNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@objectPath@/: An object path. -}-    -> m DBusObjectSkeleton-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'. Free with 'GI.GObject.Objects.Object.objectUnref'. -}-dBusObjectSkeletonNew objectPath = liftIO $ do-    objectPath' <- textToCString objectPath-    result <- g_dbus_object_skeleton_new objectPath'-    checkUnexpectedReturnNULL "dBusObjectSkeletonNew" result-    result' <- (wrapObject DBusObjectSkeleton) result-    freeMem objectPath'-    return result'--#if ENABLE_OVERLOADING-#endif---- method DBusObjectSkeleton::add_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_skeleton_add_interface" g_dbus_object_skeleton_add_interface :: -    Ptr DBusObjectSkeleton ->               -- object : TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"})-    Ptr Gio.DBusInterfaceSkeleton.DBusInterfaceSkeleton -> -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO ()--{- |-Adds /@interface_@/ to /@object@/.--If /@object@/ already contains a 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton' with the same-interface name, it is removed before /@interface_@/ is added.--Note that /@object@/ takes its own reference on /@interface_@/ and holds-it until removed.--/Since: 2.30/--}-dBusObjectSkeletonAddInterface ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectSkeleton a, Gio.DBusInterfaceSkeleton.IsDBusInterfaceSkeleton b) =>-    a-    {- ^ /@object@/: A 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'. -}-    -> b-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m ()-dBusObjectSkeletonAddInterface object interface_ = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    interface_' <- unsafeManagedPtrCastPtr interface_-    g_dbus_object_skeleton_add_interface object' interface_'-    touchManagedPtr object-    touchManagedPtr interface_-    return ()--#if ENABLE_OVERLOADING-data DBusObjectSkeletonAddInterfaceMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDBusObjectSkeleton a, Gio.DBusInterfaceSkeleton.IsDBusInterfaceSkeleton b) => O.MethodInfo DBusObjectSkeletonAddInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonAddInterface--#endif---- method DBusObjectSkeleton::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_skeleton_flush" g_dbus_object_skeleton_flush :: -    Ptr DBusObjectSkeleton ->               -- object : TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"})-    IO ()--{- |-This method simply calls 'GI.Gio.Objects.DBusInterfaceSkeleton.dBusInterfaceSkeletonFlush' on all-interfaces belonging to /@object@/. See that method for when flushing-is useful.--/Since: 2.30/--}-dBusObjectSkeletonFlush ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectSkeleton a) =>-    a-    {- ^ /@object@/: A 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'. -}-    -> m ()-dBusObjectSkeletonFlush object = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    g_dbus_object_skeleton_flush object'-    touchManagedPtr object-    return ()--#if ENABLE_OVERLOADING-data DBusObjectSkeletonFlushMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDBusObjectSkeleton a) => O.MethodInfo DBusObjectSkeletonFlushMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonFlush--#endif---- method DBusObjectSkeleton::remove_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_skeleton_remove_interface" g_dbus_object_skeleton_remove_interface :: -    Ptr DBusObjectSkeleton ->               -- object : TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"})-    Ptr Gio.DBusInterfaceSkeleton.DBusInterfaceSkeleton -> -- interface_ : TInterface (Name {namespace = "Gio", name = "DBusInterfaceSkeleton"})-    IO ()--{- |-Removes /@interface_@/ from /@object@/.--/Since: 2.30/--}-dBusObjectSkeletonRemoveInterface ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectSkeleton a, Gio.DBusInterfaceSkeleton.IsDBusInterfaceSkeleton b) =>-    a-    {- ^ /@object@/: A 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'. -}-    -> b-    {- ^ /@interface_@/: A 'GI.Gio.Objects.DBusInterfaceSkeleton.DBusInterfaceSkeleton'. -}-    -> m ()-dBusObjectSkeletonRemoveInterface object interface_ = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    interface_' <- unsafeManagedPtrCastPtr interface_-    g_dbus_object_skeleton_remove_interface object' interface_'-    touchManagedPtr object-    touchManagedPtr interface_-    return ()--#if ENABLE_OVERLOADING-data DBusObjectSkeletonRemoveInterfaceMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsDBusObjectSkeleton a, Gio.DBusInterfaceSkeleton.IsDBusInterfaceSkeleton b) => O.MethodInfo DBusObjectSkeletonRemoveInterfaceMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonRemoveInterface--#endif---- method DBusObjectSkeleton::remove_interface_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus interface name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_skeleton_remove_interface_by_name" g_dbus_object_skeleton_remove_interface_by_name :: -    Ptr DBusObjectSkeleton ->               -- object : TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"})-    CString ->                              -- interface_name : TBasicType TUTF8-    IO ()--{- |-Removes the 'GI.Gio.Interfaces.DBusInterface.DBusInterface' with /@interfaceName@/ from /@object@/.--If no D-Bus interface of the given interface exists, this function-does nothing.--/Since: 2.30/--}-dBusObjectSkeletonRemoveInterfaceByName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectSkeleton a) =>-    a-    {- ^ /@object@/: A 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'. -}-    -> T.Text-    {- ^ /@interfaceName@/: A D-Bus interface name. -}-    -> m ()-dBusObjectSkeletonRemoveInterfaceByName object interfaceName = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    interfaceName' <- textToCString interfaceName-    g_dbus_object_skeleton_remove_interface_by_name object' interfaceName'-    touchManagedPtr object-    freeMem interfaceName'-    return ()--#if ENABLE_OVERLOADING-data DBusObjectSkeletonRemoveInterfaceByNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusObjectSkeleton a) => O.MethodInfo DBusObjectSkeletonRemoveInterfaceByNameMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonRemoveInterfaceByName--#endif---- method DBusObjectSkeleton::set_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusObjectSkeleton.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A valid D-Bus object path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_object_skeleton_set_object_path" g_dbus_object_skeleton_set_object_path :: -    Ptr DBusObjectSkeleton ->               -- object : TInterface (Name {namespace = "Gio", name = "DBusObjectSkeleton"})-    CString ->                              -- object_path : TBasicType TUTF8-    IO ()--{- |-Sets the object path for /@object@/.--/Since: 2.30/--}-dBusObjectSkeletonSetObjectPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusObjectSkeleton a) =>-    a-    {- ^ /@object@/: A 'GI.Gio.Objects.DBusObjectSkeleton.DBusObjectSkeleton'. -}-    -> T.Text-    {- ^ /@objectPath@/: A valid D-Bus object path. -}-    -> m ()-dBusObjectSkeletonSetObjectPath object objectPath = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    objectPath' <- textToCString objectPath-    g_dbus_object_skeleton_set_object_path object' objectPath'-    touchManagedPtr object-    freeMem objectPath'-    return ()--#if ENABLE_OVERLOADING-data DBusObjectSkeletonSetObjectPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsDBusObjectSkeleton a) => O.MethodInfo DBusObjectSkeletonSetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusObjectSkeletonSetObjectPath--#endif--
− GI/Gio/Objects/DBusObjectSkeleton.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusObjectSkeleton 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 DBusObjectSkeleton = DBusObjectSkeleton (ManagedPtr DBusObjectSkeleton)-instance GObject DBusObjectSkeleton where-class (GObject o, O.IsDescendantOf DBusObjectSkeleton o) => IsDBusObjectSkeleton o-instance (GObject o, O.IsDescendantOf DBusObjectSkeleton o) => IsDBusObjectSkeleton o-instance O.HasParentTypes DBusObjectSkeleton-#if ENABLE_OVERLOADING-data DBusObjectSkeletonGObjectPathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectSkeletonAuthorizeMethodSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectSkeletonAddInterfaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectSkeletonFlushMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectSkeletonRemoveInterfaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectSkeletonRemoveInterfaceByNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusObjectSkeletonSetObjectPathMethodInfo-#endif
− GI/Gio/Objects/DBusProxy.hs 
@@ -1,2706 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.DBusProxy.DBusProxy' is a base class used for proxies to access a D-Bus-interface on a remote object. A 'GI.Gio.Objects.DBusProxy.DBusProxy' can be constructed for-both well-known and unique names.--By default, 'GI.Gio.Objects.DBusProxy.DBusProxy' will cache all properties (and listen to-changes) of the remote object, and proxy all signals that get-emitted. This behaviour can be changed by passing suitable-'GI.Gio.Flags.DBusProxyFlags' when the proxy is created. If the proxy is for a-well-known name, the property cache is flushed when the name owner-vanishes and reloaded when a name owner appears.--The unique name owner of the proxy\'s name is tracked and can be read from-'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-name-owner/@. Connect to the 'GI.GObject.Objects.Object.Object'::@/notify/@ signal to-get notified of changes. Additionally, only signals and property-changes emitted from the current name owner are considered and-calls are always sent to the current name owner. This avoids a-number of race conditions when the name is lost by one owner and-claimed by another. However, if no name owner currently exists,-then calls will be sent to the well-known name which may result in-the message bus launching an owner (unless-'GI.Gio.Flags.DBusProxyFlagsDoNotAutoStart' is set).--The generic 'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-properties-changed/@ and-'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-signal/@ signals are not very convenient to work with.-Therefore, the recommended way of working with proxies is to subclass-'GI.Gio.Objects.DBusProxy.DBusProxy', and have more natural properties and signals in your derived-class. This [example][gdbus-example-gdbus-codegen] shows how this can-easily be done using the [gdbus-codegen][gdbus-codegen] tool.--A 'GI.Gio.Objects.DBusProxy.DBusProxy' instance can be used from multiple threads but note-that all signals (e.g. 'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-signal/@, 'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-properties-changed/@-and 'GI.GObject.Objects.Object.Object'::@/notify/@) are emitted in the-[thread-default main context][g-main-context-push-thread-default]-of the thread where the instance was constructed.--An example using a proxy for a well-known name can be found in-<https://git.gnome.org/browse/glib/tree/gio/tests/gdbus-example-watch-proxy.c gdbus-example-watch-proxy.c>--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusProxy-    ( ---- * Exported types-    DBusProxy(..)                           ,-    IsDBusProxy                             ,-    toDBusProxy                             ,-    noDBusProxy                             ,--- -- * Methods--- ** call #method:call#--#if ENABLE_OVERLOADING-    DBusProxyCallMethodInfo                 ,-#endif-    dBusProxyCall                           ,----- ** callFinish #method:callFinish#--#if ENABLE_OVERLOADING-    DBusProxyCallFinishMethodInfo           ,-#endif-    dBusProxyCallFinish                     ,----- ** callSync #method:callSync#--#if ENABLE_OVERLOADING-    DBusProxyCallSyncMethodInfo             ,-#endif-    dBusProxyCallSync                       ,----- ** callWithUnixFdList #method:callWithUnixFdList#--#if ENABLE_OVERLOADING-    DBusProxyCallWithUnixFdListMethodInfo   ,-#endif-    dBusProxyCallWithUnixFdList             ,----- ** callWithUnixFdListFinish #method:callWithUnixFdListFinish#--#if ENABLE_OVERLOADING-    DBusProxyCallWithUnixFdListFinishMethodInfo,-#endif-    dBusProxyCallWithUnixFdListFinish       ,----- ** callWithUnixFdListSync #method:callWithUnixFdListSync#--#if ENABLE_OVERLOADING-    DBusProxyCallWithUnixFdListSyncMethodInfo,-#endif-    dBusProxyCallWithUnixFdListSync         ,----- ** getCachedProperty #method:getCachedProperty#--#if ENABLE_OVERLOADING-    DBusProxyGetCachedPropertyMethodInfo    ,-#endif-    dBusProxyGetCachedProperty              ,----- ** getCachedPropertyNames #method:getCachedPropertyNames#--#if ENABLE_OVERLOADING-    DBusProxyGetCachedPropertyNamesMethodInfo,-#endif-    dBusProxyGetCachedPropertyNames         ,----- ** getConnection #method:getConnection#--#if ENABLE_OVERLOADING-    DBusProxyGetConnectionMethodInfo        ,-#endif-    dBusProxyGetConnection                  ,----- ** getDefaultTimeout #method:getDefaultTimeout#--#if ENABLE_OVERLOADING-    DBusProxyGetDefaultTimeoutMethodInfo    ,-#endif-    dBusProxyGetDefaultTimeout              ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    DBusProxyGetFlagsMethodInfo             ,-#endif-    dBusProxyGetFlags                       ,----- ** getInterfaceInfo #method:getInterfaceInfo#--#if ENABLE_OVERLOADING-    DBusProxyGetInterfaceInfoMethodInfo     ,-#endif-    dBusProxyGetInterfaceInfo               ,----- ** getInterfaceName #method:getInterfaceName#--#if ENABLE_OVERLOADING-    DBusProxyGetInterfaceNameMethodInfo     ,-#endif-    dBusProxyGetInterfaceName               ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    DBusProxyGetNameMethodInfo              ,-#endif-    dBusProxyGetName                        ,----- ** getNameOwner #method:getNameOwner#--#if ENABLE_OVERLOADING-    DBusProxyGetNameOwnerMethodInfo         ,-#endif-    dBusProxyGetNameOwner                   ,----- ** getObjectPath #method:getObjectPath#--#if ENABLE_OVERLOADING-    DBusProxyGetObjectPathMethodInfo        ,-#endif-    dBusProxyGetObjectPath                  ,----- ** new #method:new#--    dBusProxyNew                            ,----- ** newFinish #method:newFinish#--    dBusProxyNewFinish                      ,----- ** newForBus #method:newForBus#--    dBusProxyNewForBus                      ,----- ** newForBusFinish #method:newForBusFinish#--    dBusProxyNewForBusFinish                ,----- ** newForBusSync #method:newForBusSync#--    dBusProxyNewForBusSync                  ,----- ** newSync #method:newSync#--    dBusProxyNewSync                        ,----- ** setCachedProperty #method:setCachedProperty#--#if ENABLE_OVERLOADING-    DBusProxySetCachedPropertyMethodInfo    ,-#endif-    dBusProxySetCachedProperty              ,----- ** setDefaultTimeout #method:setDefaultTimeout#--#if ENABLE_OVERLOADING-    DBusProxySetDefaultTimeoutMethodInfo    ,-#endif-    dBusProxySetDefaultTimeout              ,----- ** setInterfaceInfo #method:setInterfaceInfo#--#if ENABLE_OVERLOADING-    DBusProxySetInterfaceInfoMethodInfo     ,-#endif-    dBusProxySetInterfaceInfo               ,----- -- * Properties--- ** gBusType #attr:gBusType#-{- | If this property is not 'GI.Gio.Enums.BusTypeNone', then-'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-connection/@ must be 'Nothing' and will be set to the-'GI.Gio.Objects.DBusConnection.DBusConnection' obtained by calling 'GI.Gio.Functions.busGet' with the value-of this property.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGBusTypePropertyInfo           ,-#endif-    constructDBusProxyGBusType              ,-#if ENABLE_OVERLOADING-    dBusProxyGBusType                       ,-#endif----- ** gConnection #attr:gConnection#-{- | The 'GI.Gio.Objects.DBusConnection.DBusConnection' the proxy is for.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGConnectionPropertyInfo        ,-#endif-    constructDBusProxyGConnection           ,-#if ENABLE_OVERLOADING-    dBusProxyGConnection                    ,-#endif-    getDBusProxyGConnection                 ,----- ** gDefaultTimeout #attr:gDefaultTimeout#-{- | The timeout to use if -1 (specifying default timeout) is passed-as /@timeoutMsec@/ in the 'GI.Gio.Objects.DBusProxy.dBusProxyCall' and-'GI.Gio.Objects.DBusProxy.dBusProxyCallSync' functions.--This allows applications to set a proxy-wide timeout for all-remote method invocations on the proxy. If this property is -1,-the default timeout (typically 25 seconds) is used. If set to-@/G_MAXINT/@, then no timeout is used.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGDefaultTimeoutPropertyInfo    ,-#endif-    constructDBusProxyGDefaultTimeout       ,-#if ENABLE_OVERLOADING-    dBusProxyGDefaultTimeout                ,-#endif-    getDBusProxyGDefaultTimeout             ,-    setDBusProxyGDefaultTimeout             ,----- ** gFlags #attr:gFlags#-{- | Flags from the 'GI.Gio.Flags.DBusProxyFlags' enumeration.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGFlagsPropertyInfo             ,-#endif-    constructDBusProxyGFlags                ,-#if ENABLE_OVERLOADING-    dBusProxyGFlags                         ,-#endif-    getDBusProxyGFlags                      ,----- ** gInterfaceInfo #attr:gInterfaceInfo#-{- | Ensure that interactions with this proxy conform to the given-interface. This is mainly to ensure that malformed data received-from the other peer is ignored. The given 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' is-said to be the \"expected interface\".--The checks performed are:--* When completing a method call, if the type signature of-the reply message isn\'t what\'s expected, the reply is-discarded and the 'GError' is set to 'GI.Gio.Enums.IOErrorEnumInvalidArgument'.-* Received signals that have a type signature mismatch are dropped and-a warning is logged via @/g_warning()/@.-* Properties received via the initial @GetAll()@ call or via the-@::PropertiesChanged@ signal (on the-<http://dbus.freedesktop.org/doc/dbus-specification.html#standard-interfaces-properties org.freedesktop.DBus.Properties>-interface) or set using 'GI.Gio.Objects.DBusProxy.dBusProxySetCachedProperty'-with a type signature mismatch are ignored and a warning is-logged via @/g_warning()/@.---Note that these checks are never done on methods, signals and-properties that are not referenced in the given-'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo', since extending a D-Bus interface on the-service-side is not considered an ABI break.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGInterfaceInfoPropertyInfo     ,-#endif-    clearDBusProxyGInterfaceInfo            ,-    constructDBusProxyGInterfaceInfo        ,-#if ENABLE_OVERLOADING-    dBusProxyGInterfaceInfo                 ,-#endif-    getDBusProxyGInterfaceInfo              ,-    setDBusProxyGInterfaceInfo              ,----- ** gInterfaceName #attr:gInterfaceName#-{- | The D-Bus interface name the proxy is for.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGInterfaceNamePropertyInfo     ,-#endif-    constructDBusProxyGInterfaceName        ,-#if ENABLE_OVERLOADING-    dBusProxyGInterfaceName                 ,-#endif-    getDBusProxyGInterfaceName              ,----- ** gName #attr:gName#-{- | The well-known or unique name that the proxy is for.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGNamePropertyInfo              ,-#endif-    constructDBusProxyGName                 ,-#if ENABLE_OVERLOADING-    dBusProxyGName                          ,-#endif-    getDBusProxyGName                       ,----- ** gNameOwner #attr:gNameOwner#-{- | The unique name that owns 'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-name/@ or 'Nothing' if no-one-currently owns that name. You may connect to 'GI.GObject.Objects.Object.Object'::@/notify/@ signal to-track changes to this property.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGNameOwnerPropertyInfo         ,-#endif-#if ENABLE_OVERLOADING-    dBusProxyGNameOwner                     ,-#endif-    getDBusProxyGNameOwner                  ,----- ** gObjectPath #attr:gObjectPath#-{- | The object path the proxy is for.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusProxyGObjectPathPropertyInfo        ,-#endif-    constructDBusProxyGObjectPath           ,-#if ENABLE_OVERLOADING-    dBusProxyGObjectPath                    ,-#endif-    getDBusProxyGObjectPath                 ,----- -- * Signals--- ** gPropertiesChanged #signal:gPropertiesChanged#--    C_DBusProxyGPropertiesChangedCallback   ,-    DBusProxyGPropertiesChangedCallback     ,-#if ENABLE_OVERLOADING-    DBusProxyGPropertiesChangedSignalInfo   ,-#endif-    afterDBusProxyGPropertiesChanged        ,-    genClosure_DBusProxyGPropertiesChanged  ,-    mk_DBusProxyGPropertiesChangedCallback  ,-    noDBusProxyGPropertiesChangedCallback   ,-    onDBusProxyGPropertiesChanged           ,-    wrap_DBusProxyGPropertiesChangedCallback,----- ** gSignal #signal:gSignal#--    C_DBusProxyGSignalCallback              ,-    DBusProxyGSignalCallback                ,-#if ENABLE_OVERLOADING-    DBusProxyGSignalSignalInfo              ,-#endif-    afterDBusProxyGSignal                   ,-    genClosure_DBusProxyGSignal             ,-    mk_DBusProxyGSignalCallback             ,-    noDBusProxyGSignalCallback              ,-    onDBusProxyGSignal                      ,-    wrap_DBusProxyGSignalCallback           ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncInitable as Gio.AsyncInitable-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DBusInterface as Gio.DBusInterface-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.UnixFDList as Gio.UnixFDList-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo---- | Memory-managed wrapper type.-newtype DBusProxy = DBusProxy (ManagedPtr DBusProxy)-foreign import ccall "g_dbus_proxy_get_type"-    c_g_dbus_proxy_get_type :: IO GType--instance GObject DBusProxy where-    gobjectType = c_g_dbus_proxy_get_type-    ---- | Type class for types which can be safely cast to `DBusProxy`, for instance with `toDBusProxy`.-class (GObject o, O.IsDescendantOf DBusProxy o) => IsDBusProxy o-instance (GObject o, O.IsDescendantOf DBusProxy o) => IsDBusProxy o--instance O.HasParentTypes DBusProxy-type instance O.ParentTypes DBusProxy = '[GObject.Object.Object, Gio.AsyncInitable.AsyncInitable, Gio.DBusInterface.DBusInterface, Gio.Initable.Initable]---- | Cast to `DBusProxy`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusProxy :: (MonadIO m, IsDBusProxy o) => o -> m DBusProxy-toDBusProxy = liftIO . unsafeCastTo DBusProxy---- | A convenience alias for `Nothing` :: `Maybe` `DBusProxy`.-noDBusProxy :: Maybe DBusProxy-noDBusProxy = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusProxyMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusProxyMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusProxyMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusProxyMethod "call" o = DBusProxyCallMethodInfo-    ResolveDBusProxyMethod "callFinish" o = DBusProxyCallFinishMethodInfo-    ResolveDBusProxyMethod "callSync" o = DBusProxyCallSyncMethodInfo-    ResolveDBusProxyMethod "callWithUnixFdList" o = DBusProxyCallWithUnixFdListMethodInfo-    ResolveDBusProxyMethod "callWithUnixFdListFinish" o = DBusProxyCallWithUnixFdListFinishMethodInfo-    ResolveDBusProxyMethod "callWithUnixFdListSync" o = DBusProxyCallWithUnixFdListSyncMethodInfo-    ResolveDBusProxyMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusProxyMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusProxyMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusProxyMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveDBusProxyMethod "initAsync" o = Gio.AsyncInitable.AsyncInitableInitAsyncMethodInfo-    ResolveDBusProxyMethod "initFinish" o = Gio.AsyncInitable.AsyncInitableInitFinishMethodInfo-    ResolveDBusProxyMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusProxyMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusProxyMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusProxyMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusProxyMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusProxyMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusProxyMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusProxyMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusProxyMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusProxyMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusProxyMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusProxyMethod "getCachedProperty" o = DBusProxyGetCachedPropertyMethodInfo-    ResolveDBusProxyMethod "getCachedPropertyNames" o = DBusProxyGetCachedPropertyNamesMethodInfo-    ResolveDBusProxyMethod "getConnection" o = DBusProxyGetConnectionMethodInfo-    ResolveDBusProxyMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusProxyMethod "getDefaultTimeout" o = DBusProxyGetDefaultTimeoutMethodInfo-    ResolveDBusProxyMethod "getFlags" o = DBusProxyGetFlagsMethodInfo-    ResolveDBusProxyMethod "getInfo" o = Gio.DBusInterface.DBusInterfaceGetInfoMethodInfo-    ResolveDBusProxyMethod "getInterfaceInfo" o = DBusProxyGetInterfaceInfoMethodInfo-    ResolveDBusProxyMethod "getInterfaceName" o = DBusProxyGetInterfaceNameMethodInfo-    ResolveDBusProxyMethod "getName" o = DBusProxyGetNameMethodInfo-    ResolveDBusProxyMethod "getNameOwner" o = DBusProxyGetNameOwnerMethodInfo-    ResolveDBusProxyMethod "getObject" o = Gio.DBusInterface.DBusInterfaceGetObjectMethodInfo-    ResolveDBusProxyMethod "getObjectPath" o = DBusProxyGetObjectPathMethodInfo-    ResolveDBusProxyMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusProxyMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusProxyMethod "setCachedProperty" o = DBusProxySetCachedPropertyMethodInfo-    ResolveDBusProxyMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusProxyMethod "setDefaultTimeout" o = DBusProxySetDefaultTimeoutMethodInfo-    ResolveDBusProxyMethod "setInterfaceInfo" o = DBusProxySetInterfaceInfoMethodInfo-    ResolveDBusProxyMethod "setObject" o = Gio.DBusInterface.DBusInterfaceSetObjectMethodInfo-    ResolveDBusProxyMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusProxyMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusProxyMethod t DBusProxy, O.MethodInfo info DBusProxy p) => OL.IsLabel t (DBusProxy -> 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 DBusProxy::g-properties-changed-{- |-Emitted when one or more D-Bus properties on /@proxy@/ changes. The-local cache has already been updated when this signal fires. Note-that both /@changedProperties@/ and /@invalidatedProperties@/ are-guaranteed to never be 'Nothing' (either may be empty though).--If the proxy has the flag-'GI.Gio.Flags.DBusProxyFlagsGetInvalidatedProperties' set, then-/@invalidatedProperties@/ will always be empty.--This signal corresponds to the-@PropertiesChanged@ D-Bus signal on the-@org.freedesktop.DBus.Properties@ interface.--/Since: 2.26/--}-type DBusProxyGPropertiesChangedCallback =-    GVariant-    {- ^ /@changedProperties@/: A 'GVariant' containing the properties that changed (type: @a{sv}@) -}-    -> [T.Text]-    {- ^ /@invalidatedProperties@/: A 'Nothing' terminated array of properties that was invalidated -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusProxyGPropertiesChangedCallback`@.-noDBusProxyGPropertiesChangedCallback :: Maybe DBusProxyGPropertiesChangedCallback-noDBusProxyGPropertiesChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusProxyGPropertiesChangedCallback =-    Ptr () ->                               -- object-    Ptr GVariant ->-    Ptr CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusProxyGPropertiesChangedCallback`.-foreign import ccall "wrapper"-    mk_DBusProxyGPropertiesChangedCallback :: C_DBusProxyGPropertiesChangedCallback -> IO (FunPtr C_DBusProxyGPropertiesChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusProxyGPropertiesChanged :: MonadIO m => DBusProxyGPropertiesChangedCallback -> m (GClosure C_DBusProxyGPropertiesChangedCallback)-genClosure_DBusProxyGPropertiesChanged cb = liftIO $ do-    let cb' = wrap_DBusProxyGPropertiesChangedCallback cb-    mk_DBusProxyGPropertiesChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusProxyGPropertiesChangedCallback` into a `C_DBusProxyGPropertiesChangedCallback`.-wrap_DBusProxyGPropertiesChangedCallback ::-    DBusProxyGPropertiesChangedCallback ->-    C_DBusProxyGPropertiesChangedCallback-wrap_DBusProxyGPropertiesChangedCallback _cb _ changedProperties invalidatedProperties _ = do-    changedProperties' <- B.GVariant.newGVariantFromPtr changedProperties-    invalidatedProperties' <- unpackZeroTerminatedUTF8CArray invalidatedProperties-    _cb  changedProperties' invalidatedProperties'---{- |-Connect a signal handler for the “@g-properties-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' dBusProxy #gPropertiesChanged callback-@--}-onDBusProxyGPropertiesChanged :: (IsDBusProxy a, MonadIO m) => a -> DBusProxyGPropertiesChangedCallback -> m SignalHandlerId-onDBusProxyGPropertiesChanged obj cb = liftIO $ do-    let cb' = wrap_DBusProxyGPropertiesChangedCallback cb-    cb'' <- mk_DBusProxyGPropertiesChangedCallback cb'-    connectSignalFunPtr obj "g-properties-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@g-properties-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' dBusProxy #gPropertiesChanged callback-@--}-afterDBusProxyGPropertiesChanged :: (IsDBusProxy a, MonadIO m) => a -> DBusProxyGPropertiesChangedCallback -> m SignalHandlerId-afterDBusProxyGPropertiesChanged obj cb = liftIO $ do-    let cb' = wrap_DBusProxyGPropertiesChangedCallback cb-    cb'' <- mk_DBusProxyGPropertiesChangedCallback cb'-    connectSignalFunPtr obj "g-properties-changed" cb'' SignalConnectAfter----- signal DBusProxy::g-signal-{- |-Emitted when a signal from the remote object and interface that /@proxy@/ is for, has been received.--/Since: 2.26/--}-type DBusProxyGSignalCallback =-    Maybe T.Text-    {- ^ /@senderName@/: The sender of the signal or 'Nothing' if the connection is not a bus connection. -}-    -> T.Text-    {- ^ /@signalName@/: The name of the signal. -}-    -> GVariant-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusProxyGSignalCallback`@.-noDBusProxyGSignalCallback :: Maybe DBusProxyGSignalCallback-noDBusProxyGSignalCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusProxyGSignalCallback =-    Ptr () ->                               -- object-    CString ->-    CString ->-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_DBusProxyGSignalCallback`.-foreign import ccall "wrapper"-    mk_DBusProxyGSignalCallback :: C_DBusProxyGSignalCallback -> IO (FunPtr C_DBusProxyGSignalCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusProxyGSignal :: MonadIO m => DBusProxyGSignalCallback -> m (GClosure C_DBusProxyGSignalCallback)-genClosure_DBusProxyGSignal cb = liftIO $ do-    let cb' = wrap_DBusProxyGSignalCallback cb-    mk_DBusProxyGSignalCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusProxyGSignalCallback` into a `C_DBusProxyGSignalCallback`.-wrap_DBusProxyGSignalCallback ::-    DBusProxyGSignalCallback ->-    C_DBusProxyGSignalCallback-wrap_DBusProxyGSignalCallback _cb _ senderName signalName parameters _ = do-    maybeSenderName <--        if senderName == nullPtr-        then return Nothing-        else do-            senderName' <- cstringToText senderName-            return $ Just senderName'-    signalName' <- cstringToText signalName-    parameters' <- B.GVariant.newGVariantFromPtr parameters-    _cb  maybeSenderName signalName' parameters'---{- |-Connect a signal handler for the “@g-signal@” 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' dBusProxy #gSignal callback-@--}-onDBusProxyGSignal :: (IsDBusProxy a, MonadIO m) => a -> DBusProxyGSignalCallback -> m SignalHandlerId-onDBusProxyGSignal obj cb = liftIO $ do-    let cb' = wrap_DBusProxyGSignalCallback cb-    cb'' <- mk_DBusProxyGSignalCallback cb'-    connectSignalFunPtr obj "g-signal" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@g-signal@” 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' dBusProxy #gSignal callback-@--}-afterDBusProxyGSignal :: (IsDBusProxy a, MonadIO m) => a -> DBusProxyGSignalCallback -> m SignalHandlerId-afterDBusProxyGSignal obj cb = liftIO $ do-    let cb' = wrap_DBusProxyGSignalCallback cb-    cb'' <- mk_DBusProxyGSignalCallback cb'-    connectSignalFunPtr obj "g-signal" cb'' SignalConnectAfter----- VVV Prop "g-bus-type"-   -- Type: TInterface (Name {namespace = "Gio", name = "BusType"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@g-bus-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusProxyGBusType :: (IsDBusProxy o) => Gio.Enums.BusType -> IO (GValueConstruct o)-constructDBusProxyGBusType val = B.Properties.constructObjectPropertyEnum "g-bus-type" val--#if ENABLE_OVERLOADING-data DBusProxyGBusTypePropertyInfo-instance AttrInfo DBusProxyGBusTypePropertyInfo where-    type AttrAllowedOps DBusProxyGBusTypePropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint DBusProxyGBusTypePropertyInfo = (~) Gio.Enums.BusType-    type AttrBaseTypeConstraint DBusProxyGBusTypePropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGBusTypePropertyInfo = ()-    type AttrLabel DBusProxyGBusTypePropertyInfo = "g-bus-type"-    type AttrOrigin DBusProxyGBusTypePropertyInfo = DBusProxy-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGBusType-    attrClear _ = undefined-#endif---- VVV Prop "g-connection"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusConnection"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-connection@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusProxy #gConnection-@--}-getDBusProxyGConnection :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe Gio.DBusConnection.DBusConnection)-getDBusProxyGConnection obj = liftIO $ B.Properties.getObjectPropertyObject obj "g-connection" Gio.DBusConnection.DBusConnection--{- |-Construct a `GValueConstruct` with valid value for the “@g-connection@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusProxyGConnection :: (IsDBusProxy o, Gio.DBusConnection.IsDBusConnection a) => a -> IO (GValueConstruct o)-constructDBusProxyGConnection val = B.Properties.constructObjectPropertyObject "g-connection" (Just val)--#if ENABLE_OVERLOADING-data DBusProxyGConnectionPropertyInfo-instance AttrInfo DBusProxyGConnectionPropertyInfo where-    type AttrAllowedOps DBusProxyGConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGConnectionPropertyInfo = Gio.DBusConnection.IsDBusConnection-    type AttrBaseTypeConstraint DBusProxyGConnectionPropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGConnectionPropertyInfo = (Maybe Gio.DBusConnection.DBusConnection)-    type AttrLabel DBusProxyGConnectionPropertyInfo = "g-connection"-    type AttrOrigin DBusProxyGConnectionPropertyInfo = DBusProxy-    attrGet _ = getDBusProxyGConnection-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGConnection-    attrClear _ = undefined-#endif---- VVV Prop "g-default-timeout"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-default-timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusProxy #gDefaultTimeout-@--}-getDBusProxyGDefaultTimeout :: (MonadIO m, IsDBusProxy o) => o -> m Int32-getDBusProxyGDefaultTimeout obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "g-default-timeout"--{- |-Set the value of the “@g-default-timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusProxy [ #gDefaultTimeout 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusProxyGDefaultTimeout :: (MonadIO m, IsDBusProxy o) => o -> Int32 -> m ()-setDBusProxyGDefaultTimeout obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "g-default-timeout" val--{- |-Construct a `GValueConstruct` with valid value for the “@g-default-timeout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusProxyGDefaultTimeout :: (IsDBusProxy o) => Int32 -> IO (GValueConstruct o)-constructDBusProxyGDefaultTimeout val = B.Properties.constructObjectPropertyInt32 "g-default-timeout" val--#if ENABLE_OVERLOADING-data DBusProxyGDefaultTimeoutPropertyInfo-instance AttrInfo DBusProxyGDefaultTimeoutPropertyInfo where-    type AttrAllowedOps DBusProxyGDefaultTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGDefaultTimeoutPropertyInfo = Int32-    type AttrLabel DBusProxyGDefaultTimeoutPropertyInfo = "g-default-timeout"-    type AttrOrigin DBusProxyGDefaultTimeoutPropertyInfo = DBusProxy-    attrGet _ = getDBusProxyGDefaultTimeout-    attrSet _ = setDBusProxyGDefaultTimeout-    attrConstruct _ = constructDBusProxyGDefaultTimeout-    attrClear _ = undefined-#endif---- VVV Prop "g-flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusProxy #gFlags-@--}-getDBusProxyGFlags :: (MonadIO m, IsDBusProxy o) => o -> m [Gio.Flags.DBusProxyFlags]-getDBusProxyGFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "g-flags"--{- |-Construct a `GValueConstruct` with valid value for the “@g-flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusProxyGFlags :: (IsDBusProxy o) => [Gio.Flags.DBusProxyFlags] -> IO (GValueConstruct o)-constructDBusProxyGFlags val = B.Properties.constructObjectPropertyFlags "g-flags" val--#if ENABLE_OVERLOADING-data DBusProxyGFlagsPropertyInfo-instance AttrInfo DBusProxyGFlagsPropertyInfo where-    type AttrAllowedOps DBusProxyGFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusProxyGFlagsPropertyInfo = (~) [Gio.Flags.DBusProxyFlags]-    type AttrBaseTypeConstraint DBusProxyGFlagsPropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGFlagsPropertyInfo = [Gio.Flags.DBusProxyFlags]-    type AttrLabel DBusProxyGFlagsPropertyInfo = "g-flags"-    type AttrOrigin DBusProxyGFlagsPropertyInfo = DBusProxy-    attrGet _ = getDBusProxyGFlags-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGFlags-    attrClear _ = undefined-#endif---- VVV Prop "g-interface-info"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-interface-info@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusProxy #gInterfaceInfo-@--}-getDBusProxyGInterfaceInfo :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)-getDBusProxyGInterfaceInfo obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "g-interface-info" Gio.DBusInterfaceInfo.DBusInterfaceInfo--{- |-Set the value of the “@g-interface-info@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusProxy [ #gInterfaceInfo 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusProxyGInterfaceInfo :: (MonadIO m, IsDBusProxy o) => o -> Gio.DBusInterfaceInfo.DBusInterfaceInfo -> m ()-setDBusProxyGInterfaceInfo obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "g-interface-info" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@g-interface-info@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusProxyGInterfaceInfo :: (IsDBusProxy o) => Gio.DBusInterfaceInfo.DBusInterfaceInfo -> IO (GValueConstruct o)-constructDBusProxyGInterfaceInfo val = B.Properties.constructObjectPropertyBoxed "g-interface-info" (Just val)--{- |-Set the value of the “@g-interface-info@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #gInterfaceInfo-@--}-clearDBusProxyGInterfaceInfo :: (MonadIO m, IsDBusProxy o) => o -> m ()-clearDBusProxyGInterfaceInfo obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "g-interface-info" (Nothing :: Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)--#if ENABLE_OVERLOADING-data DBusProxyGInterfaceInfoPropertyInfo-instance AttrInfo DBusProxyGInterfaceInfoPropertyInfo where-    type AttrAllowedOps DBusProxyGInterfaceInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = (~) Gio.DBusInterfaceInfo.DBusInterfaceInfo-    type AttrBaseTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGInterfaceInfoPropertyInfo = (Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)-    type AttrLabel DBusProxyGInterfaceInfoPropertyInfo = "g-interface-info"-    type AttrOrigin DBusProxyGInterfaceInfoPropertyInfo = DBusProxy-    attrGet _ = getDBusProxyGInterfaceInfo-    attrSet _ = setDBusProxyGInterfaceInfo-    attrConstruct _ = constructDBusProxyGInterfaceInfo-    attrClear _ = clearDBusProxyGInterfaceInfo-#endif---- VVV Prop "g-interface-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-interface-name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusProxy #gInterfaceName-@--}-getDBusProxyGInterfaceName :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe T.Text)-getDBusProxyGInterfaceName obj = liftIO $ B.Properties.getObjectPropertyString obj "g-interface-name"--{- |-Construct a `GValueConstruct` with valid value for the “@g-interface-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusProxyGInterfaceName :: (IsDBusProxy o) => T.Text -> IO (GValueConstruct o)-constructDBusProxyGInterfaceName val = B.Properties.constructObjectPropertyString "g-interface-name" (Just val)--#if ENABLE_OVERLOADING-data DBusProxyGInterfaceNamePropertyInfo-instance AttrInfo DBusProxyGInterfaceNamePropertyInfo where-    type AttrAllowedOps DBusProxyGInterfaceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGInterfaceNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusProxyGInterfaceNamePropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGInterfaceNamePropertyInfo = (Maybe T.Text)-    type AttrLabel DBusProxyGInterfaceNamePropertyInfo = "g-interface-name"-    type AttrOrigin DBusProxyGInterfaceNamePropertyInfo = DBusProxy-    attrGet _ = getDBusProxyGInterfaceName-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGInterfaceName-    attrClear _ = undefined-#endif---- VVV Prop "g-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusProxy #gName-@--}-getDBusProxyGName :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe T.Text)-getDBusProxyGName obj = liftIO $ B.Properties.getObjectPropertyString obj "g-name"--{- |-Construct a `GValueConstruct` with valid value for the “@g-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusProxyGName :: (IsDBusProxy o) => T.Text -> IO (GValueConstruct o)-constructDBusProxyGName val = B.Properties.constructObjectPropertyString "g-name" (Just val)--#if ENABLE_OVERLOADING-data DBusProxyGNamePropertyInfo-instance AttrInfo DBusProxyGNamePropertyInfo where-    type AttrAllowedOps DBusProxyGNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusProxyGNamePropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGNamePropertyInfo = (Maybe T.Text)-    type AttrLabel DBusProxyGNamePropertyInfo = "g-name"-    type AttrOrigin DBusProxyGNamePropertyInfo = DBusProxy-    attrGet _ = getDBusProxyGName-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGName-    attrClear _ = undefined-#endif---- VVV Prop "g-name-owner"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-name-owner@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusProxy #gNameOwner-@--}-getDBusProxyGNameOwner :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe T.Text)-getDBusProxyGNameOwner obj = liftIO $ B.Properties.getObjectPropertyString obj "g-name-owner"--#if ENABLE_OVERLOADING-data DBusProxyGNameOwnerPropertyInfo-instance AttrInfo DBusProxyGNameOwnerPropertyInfo where-    type AttrAllowedOps DBusProxyGNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGNameOwnerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusProxyGNameOwnerPropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGNameOwnerPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusProxyGNameOwnerPropertyInfo = "g-name-owner"-    type AttrOrigin DBusProxyGNameOwnerPropertyInfo = DBusProxy-    attrGet _ = getDBusProxyGNameOwner-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "g-object-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@g-object-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusProxy #gObjectPath-@--}-getDBusProxyGObjectPath :: (MonadIO m, IsDBusProxy o) => o -> m (Maybe T.Text)-getDBusProxyGObjectPath obj = liftIO $ B.Properties.getObjectPropertyString obj "g-object-path"--{- |-Construct a `GValueConstruct` with valid value for the “@g-object-path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusProxyGObjectPath :: (IsDBusProxy o) => T.Text -> IO (GValueConstruct o)-constructDBusProxyGObjectPath val = B.Properties.constructObjectPropertyString "g-object-path" (Just val)--#if ENABLE_OVERLOADING-data DBusProxyGObjectPathPropertyInfo-instance AttrInfo DBusProxyGObjectPathPropertyInfo where-    type AttrAllowedOps DBusProxyGObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusProxyGObjectPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusProxyGObjectPathPropertyInfo = IsDBusProxy-    type AttrGetType DBusProxyGObjectPathPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusProxyGObjectPathPropertyInfo = "g-object-path"-    type AttrOrigin DBusProxyGObjectPathPropertyInfo = DBusProxy-    attrGet _ = getDBusProxyGObjectPath-    attrSet _ = undefined-    attrConstruct _ = constructDBusProxyGObjectPath-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusProxy-type instance O.AttributeList DBusProxy = DBusProxyAttributeList-type DBusProxyAttributeList = ('[ '("gBusType", DBusProxyGBusTypePropertyInfo), '("gConnection", DBusProxyGConnectionPropertyInfo), '("gDefaultTimeout", DBusProxyGDefaultTimeoutPropertyInfo), '("gFlags", DBusProxyGFlagsPropertyInfo), '("gInterfaceInfo", DBusProxyGInterfaceInfoPropertyInfo), '("gInterfaceName", DBusProxyGInterfaceNamePropertyInfo), '("gName", DBusProxyGNamePropertyInfo), '("gNameOwner", DBusProxyGNameOwnerPropertyInfo), '("gObjectPath", DBusProxyGObjectPathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusProxyGBusType :: AttrLabelProxy "gBusType"-dBusProxyGBusType = AttrLabelProxy--dBusProxyGConnection :: AttrLabelProxy "gConnection"-dBusProxyGConnection = AttrLabelProxy--dBusProxyGDefaultTimeout :: AttrLabelProxy "gDefaultTimeout"-dBusProxyGDefaultTimeout = AttrLabelProxy--dBusProxyGFlags :: AttrLabelProxy "gFlags"-dBusProxyGFlags = AttrLabelProxy--dBusProxyGInterfaceInfo :: AttrLabelProxy "gInterfaceInfo"-dBusProxyGInterfaceInfo = AttrLabelProxy--dBusProxyGInterfaceName :: AttrLabelProxy "gInterfaceName"-dBusProxyGInterfaceName = AttrLabelProxy--dBusProxyGName :: AttrLabelProxy "gName"-dBusProxyGName = AttrLabelProxy--dBusProxyGNameOwner :: AttrLabelProxy "gNameOwner"-dBusProxyGNameOwner = AttrLabelProxy--dBusProxyGObjectPath :: AttrLabelProxy "gObjectPath"-dBusProxyGObjectPath = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data DBusProxyGPropertiesChangedSignalInfo-instance SignalInfo DBusProxyGPropertiesChangedSignalInfo where-    type HaskellCallbackType DBusProxyGPropertiesChangedSignalInfo = DBusProxyGPropertiesChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusProxyGPropertiesChangedCallback cb-        cb'' <- mk_DBusProxyGPropertiesChangedCallback cb'-        connectSignalFunPtr obj "g-properties-changed" cb'' connectMode--data DBusProxyGSignalSignalInfo-instance SignalInfo DBusProxyGSignalSignalInfo where-    type HaskellCallbackType DBusProxyGSignalSignalInfo = DBusProxyGSignalCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusProxyGSignalCallback cb-        cb'' <- mk_DBusProxyGSignalCallback cb'-        connectSignalFunPtr obj "g-signal" cb'' connectMode--type instance O.SignalList DBusProxy = DBusProxySignalList-type DBusProxySignalList = ('[ '("gPropertiesChanged", DBusProxyGPropertiesChangedSignalInfo), '("gSignal", DBusProxyGSignalSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusProxy::new_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult obtained from the #GAsyncReadyCallback function passed to g_dbus_proxy_new().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusProxy"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_new_finish" g_dbus_proxy_new_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusProxy)--{- |-Finishes creating a 'GI.Gio.Objects.DBusProxy.DBusProxy'.--/Since: 2.26/--}-dBusProxyNewFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@res@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' function passed to 'GI.Gio.Objects.DBusProxy.dBusProxyNew'. -}-    -> m DBusProxy-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusProxy.DBusProxy' or 'Nothing' if /@error@/ is set.-   Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusProxyNewFinish res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_proxy_new_finish res'-        checkUnexpectedReturnNULL "dBusProxyNewFinish" result-        result' <- (wrapObject DBusProxy) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method DBusProxy::new_for_bus_finish--- method type : Constructor--- Args : [Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult obtained from the #GAsyncReadyCallback function passed to g_dbus_proxy_new_for_bus().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusProxy"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_new_for_bus_finish" g_dbus_proxy_new_for_bus_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusProxy)--{- |-Finishes creating a 'GI.Gio.Objects.DBusProxy.DBusProxy'.--/Since: 2.26/--}-dBusProxyNewForBusFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@res@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' function passed to 'GI.Gio.Objects.DBusProxy.dBusProxyNewForBus'. -}-    -> m DBusProxy-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusProxy.DBusProxy' or 'Nothing' if /@error@/ is set.-   Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusProxyNewForBusFinish res = liftIO $ do-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_proxy_new_for_bus_finish res'-        checkUnexpectedReturnNULL "dBusProxyNewForBusFinish" result-        result' <- (wrapObject DBusProxy) result-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method DBusProxy::new_for_bus_sync--- method type : Constructor--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GBusType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags used when constructing the proxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo specifying the minimal interface\n       that @proxy conforms to or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A bus name (well-known or unique).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus interface name.", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusProxy"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_new_for_bus_sync" g_dbus_proxy_new_for_bus_sync :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"})-    Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo -> -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusProxy)--{- |-Like 'GI.Gio.Objects.DBusProxy.dBusProxyNewSync' but takes a 'GI.Gio.Enums.BusType' instead of a 'GI.Gio.Objects.DBusConnection.DBusConnection'.--'GI.Gio.Objects.DBusProxy.DBusProxy' is used in this [example][gdbus-wellknown-proxy].--/Since: 2.26/--}-dBusProxyNewForBusSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: A 'GI.Gio.Enums.BusType'. -}-    -> [Gio.Flags.DBusProxyFlags]-    {- ^ /@flags@/: Flags used when constructing the proxy. -}-    -> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' specifying the minimal interface-       that /@proxy@/ conforms to or 'Nothing'. -}-    -> T.Text-    {- ^ /@name@/: A bus name (well-known or unique). -}-    -> T.Text-    {- ^ /@objectPath@/: An object path. -}-    -> T.Text-    {- ^ /@interfaceName@/: A D-Bus interface name. -}-    -> Maybe (a)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> m DBusProxy-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusProxy.DBusProxy' or 'Nothing' if error is set.-   Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusProxyNewForBusSync busType flags info name objectPath interfaceName cancellable = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    let flags' = gflagsToWord flags-    maybeInfo <- case info of-        Nothing -> return nullPtr-        Just jInfo -> do-            jInfo' <- unsafeManagedPtrGetPtr jInfo-            return jInfo'-    name' <- textToCString name-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_proxy_new_for_bus_sync busType' flags' maybeInfo name' objectPath' interfaceName' maybeCancellable-        checkUnexpectedReturnNULL "dBusProxyNewForBusSync" result-        result' <- (wrapObject DBusProxy) result-        whenJust info touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem name'-        freeMem objectPath'-        freeMem interfaceName'-        return result'-     ) (do-        freeMem name'-        freeMem objectPath'-        freeMem interfaceName'-     )--#if ENABLE_OVERLOADING-#endif---- method DBusProxy::new_sync--- method type : Constructor--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags used when constructing the proxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo specifying the minimal interface that @proxy conforms to or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A bus name (well-known or unique) or %NULL if @connection is not a message bus connection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus interface name.", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusProxy"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_new_sync" g_dbus_proxy_new_sync :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"})-    Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo -> -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusProxy)--{- |-Creates a proxy for accessing /@interfaceName@/ on the remote object-at /@objectPath@/ owned by /@name@/ at /@connection@/ and synchronously-loads D-Bus properties unless the-'GI.Gio.Flags.DBusProxyFlagsDoNotLoadProperties' flag is used.--If the 'GI.Gio.Flags.DBusProxyFlagsDoNotConnectSignals' flag is not set, also sets up-match rules for signals. Connect to the 'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-signal/@ signal-to handle signals from the remote object.--If both 'GI.Gio.Flags.DBusProxyFlagsDoNotLoadProperties' and-'GI.Gio.Flags.DBusProxyFlagsDoNotConnectSignals' are set, this constructor is-guaranteed to return immediately without blocking.--If /@name@/ is a well-known name and the-'GI.Gio.Flags.DBusProxyFlagsDoNotAutoStart' and 'GI.Gio.Flags.DBusProxyFlagsDoNotAutoStartAtConstruction'-flags aren\'t set and no name owner currently exists, the message bus-will be requested to launch a name owner for the name.--This is a synchronous failable constructor. See 'GI.Gio.Objects.DBusProxy.dBusProxyNew'-and 'GI.Gio.Objects.DBusProxy.dBusProxyNewFinish' for the asynchronous version.--'GI.Gio.Objects.DBusProxy.DBusProxy' is used in this [example][gdbus-wellknown-proxy].--/Since: 2.26/--}-dBusProxyNewSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> [Gio.Flags.DBusProxyFlags]-    {- ^ /@flags@/: Flags used when constructing the proxy. -}-    -> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' specifying the minimal interface that /@proxy@/ conforms to or 'Nothing'. -}-    -> Maybe (T.Text)-    {- ^ /@name@/: A bus name (well-known or unique) or 'Nothing' if /@connection@/ is not a message bus connection. -}-    -> T.Text-    {- ^ /@objectPath@/: An object path. -}-    -> T.Text-    {- ^ /@interfaceName@/: A D-Bus interface name. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> m DBusProxy-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusProxy.DBusProxy' or 'Nothing' if error is set.-   Free with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusProxyNewSync connection flags info name objectPath interfaceName cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    let flags' = gflagsToWord flags-    maybeInfo <- case info of-        Nothing -> return nullPtr-        Just jInfo -> do-            jInfo' <- unsafeManagedPtrGetPtr jInfo-            return jInfo'-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_proxy_new_sync connection' flags' maybeInfo maybeName objectPath' interfaceName' maybeCancellable-        checkUnexpectedReturnNULL "dBusProxyNewSync" result-        result' <- (wrapObject DBusProxy) result-        touchManagedPtr connection-        whenJust info touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem maybeName-        freeMem objectPath'-        freeMem interfaceName'-        return result'-     ) (do-        freeMem maybeName-        freeMem objectPath'-        freeMem interfaceName'-     )--#if ENABLE_OVERLOADING-#endif---- method DBusProxy::call--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Name of method to invoke.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with parameters for the signal or %NULL if not passing parameters.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusCallFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags from the #GDBusCallFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The timeout in milliseconds (with %G_MAXINT meaning\n               \"infinite\") or -1 to use the proxy default timeout.", 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 "A #GAsyncReadyCallback to call when the request is satisfied or %NULL if you don't\ncare about the result of the method invocation.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The 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 "g_dbus_proxy_call" g_dbus_proxy_call :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusCallFlags"})-    Int32 ->                                -- timeout_msec : 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 invokes the /@methodName@/ method on /@proxy@/.--If /@methodName@/ contains any dots, then /@name@/ is split into interface and-method name parts. This allows using /@proxy@/ for invoking methods on-other interfaces.--If the 'GI.Gio.Objects.DBusConnection.DBusConnection' associated with /@proxy@/ is closed then-the operation will fail with 'GI.Gio.Enums.IOErrorEnumClosed'. If-/@cancellable@/ is canceled, the operation will fail with-'GI.Gio.Enums.IOErrorEnumCancelled'. If /@parameters@/ contains a value not-compatible with the D-Bus protocol, the operation fails with-'GI.Gio.Enums.IOErrorEnumInvalidArgument'.--If the /@parameters@/ 'GVariant' is floating, it is consumed. This allows-convenient \'inline\' use of @/g_variant_new()/@, e.g.:--=== /C code/->-> g_dbus_proxy_call (proxy,->                    "TwoStrings",->                    g_variant_new ("(ss)",->                                   "Thing One",->                                   "Thing Two"),->                    G_DBUS_CALL_FLAGS_NONE,->                    -1,->                    NULL,->                    (GAsyncReadyCallback) two_strings_done,->                    &data);---If /@proxy@/ has an expected interface (see-'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-interface-info/@) and /@methodName@/ is referenced by it,-then the return value is checked against the return type.--This is an asynchronous method. When the operation is finished,-/@callback@/ will be invoked in the-[thread-default main context][g-main-context-push-thread-default]-of the thread you are calling this method from.-You can then call 'GI.Gio.Objects.DBusProxy.dBusProxyCallFinish' to get the result of-the operation. See 'GI.Gio.Objects.DBusProxy.dBusProxyCallSync' for the synchronous-version of this method.--If /@callback@/ is 'Nothing' then the D-Bus method call message will be sent with-the 'GI.Gio.Flags.DBusMessageFlagsNoReplyExpected' flag set.--/Since: 2.26/--}-dBusProxyCall ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> T.Text-    {- ^ /@methodName@/: Name of method to invoke. -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal or 'Nothing' if not passing parameters. -}-    -> [Gio.Flags.DBusCallFlags]-    {- ^ /@flags@/: Flags from the 'GI.Gio.Flags.DBusCallFlags' enumeration. -}-    -> Int32-    {- ^ /@timeoutMsec@/: The timeout in milliseconds (with @/G_MAXINT/@ meaning-               \"infinite\") or -1 to use the proxy default timeout. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: A 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied or 'Nothing' if you don\'t-care about the result of the method invocation. -}-    -> m ()-dBusProxyCall proxy methodName parameters flags timeoutMsec cancellable callback = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    let flags' = gflagsToWord flags-    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-    g_dbus_proxy_call proxy' methodName' maybeParameters flags' timeoutMsec maybeCancellable maybeCallback userData-    touchManagedPtr proxy-    whenJust parameters touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem methodName'-    return ()--#if ENABLE_OVERLOADING-data DBusProxyCallMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDBusProxy a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DBusProxyCallMethodInfo a signature where-    overloadedMethod _ = dBusProxyCall--#endif---- method DBusProxy::call_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to g_dbus_proxy_call().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_call_finish" g_dbus_proxy_call_finish :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusProxy.dBusProxyCall'.--/Since: 2.26/--}-dBusProxyCallFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> b-    {- ^ /@res@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed to 'GI.Gio.Objects.DBusProxy.dBusProxyCall'. -}-    -> m GVariant-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set. Otherwise a 'GVariant' tuple with-return values. Free with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusProxyCallFinish proxy res = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_proxy_call_finish proxy' res'-        checkUnexpectedReturnNULL "dBusProxyCallFinish" result-        result' <- B.GVariant.wrapGVariantPtr result-        touchManagedPtr proxy-        touchManagedPtr res-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DBusProxyCallFinishMethodInfo-instance (signature ~ (b -> m GVariant), MonadIO m, IsDBusProxy a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DBusProxyCallFinishMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallFinish--#endif---- method DBusProxy::call_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Name of method to invoke.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with parameters for the signal\n             or %NULL if not passing parameters.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusCallFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags from the #GDBusCallFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The timeout in milliseconds (with %G_MAXINT meaning\n               \"infinite\") or -1 to use the proxy default timeout.", 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}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_call_sync" g_dbus_proxy_call_sync :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusCallFlags"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Synchronously invokes the /@methodName@/ method on /@proxy@/.--If /@methodName@/ contains any dots, then /@name@/ is split into interface and-method name parts. This allows using /@proxy@/ for invoking methods on-other interfaces.--If the 'GI.Gio.Objects.DBusConnection.DBusConnection' associated with /@proxy@/ is disconnected then-the operation will fail with 'GI.Gio.Enums.IOErrorEnumClosed'. If-/@cancellable@/ is canceled, the operation will fail with-'GI.Gio.Enums.IOErrorEnumCancelled'. If /@parameters@/ contains a value not-compatible with the D-Bus protocol, the operation fails with-'GI.Gio.Enums.IOErrorEnumInvalidArgument'.--If the /@parameters@/ 'GVariant' is floating, it is consumed. This allows-convenient \'inline\' use of @/g_variant_new()/@, e.g.:--=== /C code/->-> g_dbus_proxy_call_sync (proxy,->                         "TwoStrings",->                         g_variant_new ("(ss)",->                                        "Thing One",->                                        "Thing Two"),->                         G_DBUS_CALL_FLAGS_NONE,->                         -1,->                         NULL,->                         &error);---The calling thread is blocked until a reply is received. See-'GI.Gio.Objects.DBusProxy.dBusProxyCall' for the asynchronous version of this-method.--If /@proxy@/ has an expected interface (see-'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-interface-info/@) and /@methodName@/ is referenced by it,-then the return value is checked against the return type.--/Since: 2.26/--}-dBusProxyCallSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> T.Text-    {- ^ /@methodName@/: Name of method to invoke. -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal-             or 'Nothing' if not passing parameters. -}-    -> [Gio.Flags.DBusCallFlags]-    {- ^ /@flags@/: Flags from the 'GI.Gio.Flags.DBusCallFlags' enumeration. -}-    -> Int32-    {- ^ /@timeoutMsec@/: The timeout in milliseconds (with @/G_MAXINT/@ meaning-               \"infinite\") or -1 to use the proxy default timeout. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> m GVariant-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set. Otherwise a 'GVariant' tuple with-return values. Free with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusProxyCallSync proxy methodName parameters flags timeoutMsec cancellable = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_proxy_call_sync proxy' methodName' maybeParameters flags' timeoutMsec maybeCancellable-        checkUnexpectedReturnNULL "dBusProxyCallSync" result-        result' <- B.GVariant.wrapGVariantPtr result-        touchManagedPtr proxy-        whenJust parameters touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem methodName'-        return result'-     ) (do-        freeMem methodName'-     )--#if ENABLE_OVERLOADING-data DBusProxyCallSyncMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> m GVariant), MonadIO m, IsDBusProxy a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DBusProxyCallSyncMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallSync--#endif---- method DBusProxy::call_with_unix_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Name of method to invoke.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with parameters for the signal or %NULL if not passing parameters.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusCallFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags from the #GDBusCallFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The timeout in milliseconds (with %G_MAXINT meaning\n               \"infinite\") or -1 to use the proxy default timeout.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GUnixFDList or %NULL.", 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 "A #GAsyncReadyCallback to call when the request is satisfied or %NULL if you don't\ncare about the result of the method invocation.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The 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 "g_dbus_proxy_call_with_unix_fd_list" g_dbus_proxy_call_with_unix_fd_list :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusCallFlags"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Gio.UnixFDList.UnixFDList ->        -- fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    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 ()--{- |-Like 'GI.Gio.Objects.DBusProxy.dBusProxyCall' but also takes a 'GI.Gio.Objects.UnixFDList.UnixFDList' object.--This method is only available on UNIX.--/Since: 2.30/--}-dBusProxyCallWithUnixFdList ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> T.Text-    {- ^ /@methodName@/: Name of method to invoke. -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal or 'Nothing' if not passing parameters. -}-    -> [Gio.Flags.DBusCallFlags]-    {- ^ /@flags@/: Flags from the 'GI.Gio.Flags.DBusCallFlags' enumeration. -}-    -> Int32-    {- ^ /@timeoutMsec@/: The timeout in milliseconds (with @/G_MAXINT/@ meaning-               \"infinite\") or -1 to use the proxy default timeout. -}-    -> Maybe (b)-    {- ^ /@fdList@/: A 'GI.Gio.Objects.UnixFDList.UnixFDList' or 'Nothing'. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: A 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied or 'Nothing' if you don\'t-care about the result of the method invocation. -}-    -> m ()-dBusProxyCallWithUnixFdList proxy methodName parameters flags timeoutMsec fdList cancellable callback = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    let flags' = gflagsToWord flags-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            jFdList' <- unsafeManagedPtrCastPtr jFdList-            return jFdList'-    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-    g_dbus_proxy_call_with_unix_fd_list proxy' methodName' maybeParameters flags' timeoutMsec maybeFdList maybeCancellable maybeCallback userData-    touchManagedPtr proxy-    whenJust parameters touchManagedPtr-    whenJust fdList touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem methodName'-    return ()--#if ENABLE_OVERLOADING-data DBusProxyCallWithUnixFdListMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDBusProxy a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DBusProxyCallWithUnixFdListMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallWithUnixFdList--#endif---- method DBusProxy::call_with_unix_fd_list_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for a #GUnixFDList or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "res", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult obtained from the #GAsyncReadyCallback passed to g_dbus_proxy_call_with_unix_fd_list().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_call_with_unix_fd_list_finish" g_dbus_proxy_call_with_unix_fd_list_finish :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    Ptr (Ptr Gio.UnixFDList.UnixFDList) ->  -- out_fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- res : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Finishes an operation started with 'GI.Gio.Objects.DBusProxy.dBusProxyCallWithUnixFdList'.--/Since: 2.30/--}-dBusProxyCallWithUnixFdListFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> b-    {- ^ /@res@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' obtained from the 'GI.Gio.Callbacks.AsyncReadyCallback' passed to 'GI.Gio.Objects.DBusProxy.dBusProxyCallWithUnixFdList'. -}-    -> m ((GVariant, Gio.UnixFDList.UnixFDList))-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set. Otherwise a 'GVariant' tuple with-return values. Free with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusProxyCallWithUnixFdListFinish proxy res = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    outFdList <- allocMem :: IO (Ptr (Ptr Gio.UnixFDList.UnixFDList))-    res' <- unsafeManagedPtrCastPtr res-    onException (do-        result <- propagateGError $ g_dbus_proxy_call_with_unix_fd_list_finish proxy' outFdList res'-        checkUnexpectedReturnNULL "dBusProxyCallWithUnixFdListFinish" result-        result' <- B.GVariant.wrapGVariantPtr result-        outFdList' <- peek outFdList-        outFdList'' <- (wrapObject Gio.UnixFDList.UnixFDList) outFdList'-        touchManagedPtr proxy-        touchManagedPtr res-        freeMem outFdList-        return (result', outFdList'')-     ) (do-        freeMem outFdList-     )--#if ENABLE_OVERLOADING-data DBusProxyCallWithUnixFdListFinishMethodInfo-instance (signature ~ (b -> m ((GVariant, Gio.UnixFDList.UnixFDList))), MonadIO m, IsDBusProxy a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DBusProxyCallWithUnixFdListFinishMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallWithUnixFdListFinish--#endif---- method DBusProxy::call_with_unix_fd_list_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Name of method to invoke.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GVariant tuple with parameters for the signal\n             or %NULL if not passing parameters.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusCallFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags from the #GDBusCallFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The timeout in milliseconds (with %G_MAXINT meaning\n               \"infinite\") or -1 to use the proxy default timeout.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GUnixFDList or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Return location for a #GUnixFDList or %NULL.", 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 "A #GCancellable or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "g_dbus_proxy_call_with_unix_fd_list_sync" g_dbus_proxy_call_with_unix_fd_list_sync :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- parameters : TVariant-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusCallFlags"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    Ptr Gio.UnixFDList.UnixFDList ->        -- fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Ptr (Ptr Gio.UnixFDList.UnixFDList) ->  -- out_fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Like 'GI.Gio.Objects.DBusProxy.dBusProxyCallSync' but also takes and returns 'GI.Gio.Objects.UnixFDList.UnixFDList' objects.--This method is only available on UNIX.--/Since: 2.30/--}-dBusProxyCallWithUnixFdListSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> T.Text-    {- ^ /@methodName@/: Name of method to invoke. -}-    -> Maybe (GVariant)-    {- ^ /@parameters@/: A 'GVariant' tuple with parameters for the signal-             or 'Nothing' if not passing parameters. -}-    -> [Gio.Flags.DBusCallFlags]-    {- ^ /@flags@/: Flags from the 'GI.Gio.Flags.DBusCallFlags' enumeration. -}-    -> Int32-    {- ^ /@timeoutMsec@/: The timeout in milliseconds (with @/G_MAXINT/@ meaning-               \"infinite\") or -1 to use the proxy default timeout. -}-    -> Maybe (b)-    {- ^ /@fdList@/: A 'GI.Gio.Objects.UnixFDList.UnixFDList' or 'Nothing'. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> m ((GVariant, Gio.UnixFDList.UnixFDList))-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set. Otherwise a 'GVariant' tuple with-return values. Free with 'GI.GLib.Structs.Variant.variantUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusProxyCallWithUnixFdListSync proxy methodName parameters flags timeoutMsec fdList cancellable = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    methodName' <- textToCString methodName-    maybeParameters <- case parameters of-        Nothing -> return nullPtr-        Just jParameters -> do-            jParameters' <- unsafeManagedPtrGetPtr jParameters-            return jParameters'-    let flags' = gflagsToWord flags-    maybeFdList <- case fdList of-        Nothing -> return nullPtr-        Just jFdList -> do-            jFdList' <- unsafeManagedPtrCastPtr jFdList-            return jFdList'-    outFdList <- allocMem :: IO (Ptr (Ptr Gio.UnixFDList.UnixFDList))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_proxy_call_with_unix_fd_list_sync proxy' methodName' maybeParameters flags' timeoutMsec maybeFdList outFdList maybeCancellable-        checkUnexpectedReturnNULL "dBusProxyCallWithUnixFdListSync" result-        result' <- B.GVariant.wrapGVariantPtr result-        outFdList' <- peek outFdList-        outFdList'' <- (wrapObject Gio.UnixFDList.UnixFDList) outFdList'-        touchManagedPtr proxy-        whenJust parameters touchManagedPtr-        whenJust fdList touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem methodName'-        freeMem outFdList-        return (result', outFdList'')-     ) (do-        freeMem methodName'-        freeMem outFdList-     )--#if ENABLE_OVERLOADING-data DBusProxyCallWithUnixFdListSyncMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> [Gio.Flags.DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> m ((GVariant, Gio.UnixFDList.UnixFDList))), MonadIO m, IsDBusProxy a, Gio.UnixFDList.IsUnixFDList b, Gio.Cancellable.IsCancellable c) => O.MethodInfo DBusProxyCallWithUnixFdListSyncMethodInfo a signature where-    overloadedMethod _ = dBusProxyCallWithUnixFdListSync--#endif---- method DBusProxy::get_cached_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Property name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_get_cached_property" g_dbus_proxy_get_cached_property :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    CString ->                              -- property_name : TBasicType TUTF8-    IO (Ptr GVariant)--{- |-Looks up the value for a property from the cache. This call does no-blocking IO.--If /@proxy@/ has an expected interface (see-'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-interface-info/@) and /@propertyName@/ is referenced by-it, then /@value@/ is checked against the type of the property.--/Since: 2.26/--}-dBusProxyGetCachedProperty ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> T.Text-    {- ^ /@propertyName@/: Property name. -}-    -> m (Maybe GVariant)-    {- ^ __Returns:__ A reference to the 'GVariant' instance-   that holds the value for /@propertyName@/ or 'Nothing' if the value is not in-   the cache. The returned reference must be freed with 'GI.GLib.Structs.Variant.variantUnref'. -}-dBusProxyGetCachedProperty proxy propertyName = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    propertyName' <- textToCString propertyName-    result <- g_dbus_proxy_get_cached_property proxy' propertyName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- B.GVariant.wrapGVariantPtr result'-        return result''-    touchManagedPtr proxy-    freeMem propertyName'-    return maybeResult--#if ENABLE_OVERLOADING-data DBusProxyGetCachedPropertyMethodInfo-instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetCachedPropertyMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetCachedProperty--#endif---- method DBusProxy::get_cached_property_names--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_get_cached_property_names" g_dbus_proxy_get_cached_property_names :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO (Ptr CString)--{- |-Gets the names of all cached properties on /@proxy@/.--/Since: 2.26/--}-dBusProxyGetCachedPropertyNames ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> m (Maybe [T.Text])-    {- ^ __Returns:__ A-         'Nothing'-terminated array of strings or 'Nothing' if-         /@proxy@/ has no cached properties. Free the returned array with-         'GI.GLib.Functions.strfreev'. -}-dBusProxyGetCachedPropertyNames proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_cached_property_names proxy'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- unpackZeroTerminatedUTF8CArray result'-        mapZeroTerminatedCArray freeMem result'-        freeMem result'-        return result''-    touchManagedPtr proxy-    return maybeResult--#if ENABLE_OVERLOADING-data DBusProxyGetCachedPropertyNamesMethodInfo-instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetCachedPropertyNamesMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetCachedPropertyNames--#endif---- method DBusProxy::get_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_get_connection" g_dbus_proxy_get_connection :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO (Ptr Gio.DBusConnection.DBusConnection)--{- |-Gets the connection /@proxy@/ is for.--/Since: 2.26/--}-dBusProxyGetConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> m Gio.DBusConnection.DBusConnection-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusConnection.DBusConnection' owned by /@proxy@/. Do not free. -}-dBusProxyGetConnection proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_connection proxy'-    checkUnexpectedReturnNULL "dBusProxyGetConnection" result-    result' <- (newObject Gio.DBusConnection.DBusConnection) result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data DBusProxyGetConnectionMethodInfo-instance (signature ~ (m Gio.DBusConnection.DBusConnection), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetConnectionMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetConnection--#endif---- method DBusProxy::get_default_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", 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 "g_dbus_proxy_get_default_timeout" g_dbus_proxy_get_default_timeout :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO Int32--{- |-Gets the timeout to use if -1 (specifying default timeout) is-passed as /@timeoutMsec@/ in the 'GI.Gio.Objects.DBusProxy.dBusProxyCall' and-'GI.Gio.Objects.DBusProxy.dBusProxyCallSync' functions.--See the 'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-default-timeout/@ property for more details.--/Since: 2.26/--}-dBusProxyGetDefaultTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> m Int32-    {- ^ __Returns:__ Timeout to use for /@proxy@/. -}-dBusProxyGetDefaultTimeout proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_default_timeout proxy'-    touchManagedPtr proxy-    return result--#if ENABLE_OVERLOADING-data DBusProxyGetDefaultTimeoutMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetDefaultTimeoutMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetDefaultTimeout--#endif---- method DBusProxy::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_get_flags" g_dbus_proxy_get_flags :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO CUInt--{- |-Gets the flags that /@proxy@/ was constructed with.--/Since: 2.26/--}-dBusProxyGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> m [Gio.Flags.DBusProxyFlags]-    {- ^ __Returns:__ Flags from the 'GI.Gio.Flags.DBusProxyFlags' enumeration. -}-dBusProxyGetFlags proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_flags proxy'-    let result' = wordToGFlags result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data DBusProxyGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.DBusProxyFlags]), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetFlags--#endif---- method DBusProxy::get_interface_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_get_interface_info" g_dbus_proxy_get_interface_info :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo)--{- |-Returns the 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo', if any, specifying the interface-that /@proxy@/ conforms to. See the 'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-interface-info/@-property for more details.--/Since: 2.26/--}-dBusProxyGetInterfaceInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy' -}-    -> m (Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' or 'Nothing'.-   Do not unref the returned object, it is owned by /@proxy@/. -}-dBusProxyGetInterfaceInfo proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_interface_info proxy'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) result'-        return result''-    touchManagedPtr proxy-    return maybeResult--#if ENABLE_OVERLOADING-data DBusProxyGetInterfaceInfoMethodInfo-instance (signature ~ (m (Maybe Gio.DBusInterfaceInfo.DBusInterfaceInfo)), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetInterfaceInfoMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetInterfaceInfo--#endif---- method DBusProxy::get_interface_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", 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 "g_dbus_proxy_get_interface_name" g_dbus_proxy_get_interface_name :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO CString--{- |-Gets the D-Bus interface name /@proxy@/ is for.--/Since: 2.26/--}-dBusProxyGetInterfaceName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> m T.Text-    {- ^ __Returns:__ A string owned by /@proxy@/. Do not free. -}-dBusProxyGetInterfaceName proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_interface_name proxy'-    checkUnexpectedReturnNULL "dBusProxyGetInterfaceName" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data DBusProxyGetInterfaceNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetInterfaceNameMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetInterfaceName--#endif---- method DBusProxy::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", 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 "g_dbus_proxy_get_name" g_dbus_proxy_get_name :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO CString--{- |-Gets the name that /@proxy@/ was constructed for.--/Since: 2.26/--}-dBusProxyGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> m T.Text-    {- ^ __Returns:__ A string owned by /@proxy@/. Do not free. -}-dBusProxyGetName proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_name proxy'-    checkUnexpectedReturnNULL "dBusProxyGetName" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data DBusProxyGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetNameMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetName--#endif---- method DBusProxy::get_name_owner--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", 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 "g_dbus_proxy_get_name_owner" g_dbus_proxy_get_name_owner :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO CString--{- |-The unique name that owns the name that /@proxy@/ is for or 'Nothing' if-no-one currently owns that name. You may connect to the-'GI.GObject.Objects.Object.Object'::@/notify/@ signal to track changes to the-'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-name-owner/@ property.--/Since: 2.26/--}-dBusProxyGetNameOwner ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ The name owner or 'Nothing' if no name-   owner exists. Free with 'GI.GLib.Functions.free'. -}-dBusProxyGetNameOwner proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_name_owner proxy'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr proxy-    return maybeResult--#if ENABLE_OVERLOADING-data DBusProxyGetNameOwnerMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetNameOwnerMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetNameOwner--#endif---- method DBusProxy::get_object_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", 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 "g_dbus_proxy_get_object_path" g_dbus_proxy_get_object_path :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    IO CString--{- |-Gets the object path /@proxy@/ is for.--/Since: 2.26/--}-dBusProxyGetObjectPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> m T.Text-    {- ^ __Returns:__ A string owned by /@proxy@/. Do not free. -}-dBusProxyGetObjectPath proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_dbus_proxy_get_object_path proxy'-    checkUnexpectedReturnNULL "dBusProxyGetObjectPath" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data DBusProxyGetObjectPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxyGetObjectPathMethodInfo a signature where-    overloadedMethod _ = dBusProxyGetObjectPath--#endif---- method DBusProxy::set_cached_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Property name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Value for the property or %NULL to remove it from the cache.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_set_cached_property" g_dbus_proxy_set_cached_property :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    CString ->                              -- property_name : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO ()--{- |-If /@value@/ is not 'Nothing', sets the cached value for the property with-name /@propertyName@/ to the value in /@value@/.--If /@value@/ is 'Nothing', then the cached value is removed from the-property cache.--If /@proxy@/ has an expected interface (see-'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-interface-info/@) and /@propertyName@/ is referenced by-it, then /@value@/ is checked against the type of the property.--If the /@value@/ 'GVariant' is floating, it is consumed. This allows-convenient \'inline\' use of @/g_variant_new()/@, e.g.--=== /C code/->-> g_dbus_proxy_set_cached_property (proxy,->                                   "SomeProperty",->                                   g_variant_new ("(si)",->                                                 "A String",->                                                 42));---Normally you will not need to use this method since /@proxy@/-is tracking changes using the-@org.freedesktop.DBus.Properties.PropertiesChanged@-D-Bus signal. However, for performance reasons an object may-decide to not use this signal for some properties and instead-use a proprietary out-of-band mechanism to transmit changes.--As a concrete example, consider an object with a property-@ChatroomParticipants@ which is an array of strings. Instead of-transmitting the same (long) array every time the property changes,-it is more efficient to only transmit the delta using e.g. signals-@ChatroomParticipantJoined(String name)@ and-@ChatroomParticipantParted(String name)@.--/Since: 2.26/--}-dBusProxySetCachedProperty ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy' -}-    -> T.Text-    {- ^ /@propertyName@/: Property name. -}-    -> Maybe (GVariant)-    {- ^ /@value@/: Value for the property or 'Nothing' to remove it from the cache. -}-    -> m ()-dBusProxySetCachedProperty proxy propertyName value = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    propertyName' <- textToCString propertyName-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            jValue' <- unsafeManagedPtrGetPtr jValue-            return jValue'-    g_dbus_proxy_set_cached_property proxy' propertyName' maybeValue-    touchManagedPtr proxy-    whenJust value touchManagedPtr-    freeMem propertyName'-    return ()--#if ENABLE_OVERLOADING-data DBusProxySetCachedPropertyMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxySetCachedPropertyMethodInfo a signature where-    overloadedMethod _ = dBusProxySetCachedProperty--#endif---- method DBusProxy::set_default_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Timeout in milliseconds.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_set_default_timeout" g_dbus_proxy_set_default_timeout :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    Int32 ->                                -- timeout_msec : TBasicType TInt-    IO ()--{- |-Sets the timeout to use if -1 (specifying default timeout) is-passed as /@timeoutMsec@/ in the 'GI.Gio.Objects.DBusProxy.dBusProxyCall' and-'GI.Gio.Objects.DBusProxy.dBusProxyCallSync' functions.--See the 'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-default-timeout/@ property for more details.--/Since: 2.26/--}-dBusProxySetDefaultTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy'. -}-    -> Int32-    {- ^ /@timeoutMsec@/: Timeout in milliseconds. -}-    -> m ()-dBusProxySetDefaultTimeout proxy timeoutMsec = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    g_dbus_proxy_set_default_timeout proxy' timeoutMsec-    touchManagedPtr proxy-    return ()--#if ENABLE_OVERLOADING-data DBusProxySetDefaultTimeoutMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxySetDefaultTimeoutMethodInfo a signature where-    overloadedMethod _ = dBusProxySetDefaultTimeout--#endif---- method DBusProxy::set_interface_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "DBusProxy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusProxy", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Minimum interface this proxy conforms to\n   or %NULL to unset.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_proxy_set_interface_info" g_dbus_proxy_set_interface_info :: -    Ptr DBusProxy ->                        -- proxy : TInterface (Name {namespace = "Gio", name = "DBusProxy"})-    Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo -> -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    IO ()--{- |-Ensure that interactions with /@proxy@/ conform to the given-interface. See the 'GI.Gio.Objects.DBusProxy.DBusProxy':@/g-interface-info/@ property for more-details.--/Since: 2.26/--}-dBusProxySetInterfaceInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusProxy a) =>-    a-    {- ^ /@proxy@/: A 'GI.Gio.Objects.DBusProxy.DBusProxy' -}-    -> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)-    {- ^ /@info@/: Minimum interface this proxy conforms to-   or 'Nothing' to unset. -}-    -> m ()-dBusProxySetInterfaceInfo proxy info = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    maybeInfo <- case info of-        Nothing -> return nullPtr-        Just jInfo -> do-            jInfo' <- unsafeManagedPtrGetPtr jInfo-            return jInfo'-    g_dbus_proxy_set_interface_info proxy' maybeInfo-    touchManagedPtr proxy-    whenJust info touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DBusProxySetInterfaceInfoMethodInfo-instance (signature ~ (Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo) -> m ()), MonadIO m, IsDBusProxy a) => O.MethodInfo DBusProxySetInterfaceInfoMethodInfo a signature where-    overloadedMethod _ = dBusProxySetInterfaceInfo--#endif---- method DBusProxy::new--- method type : MemberFunction--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "DBusConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusConnection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags used when constructing the proxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo specifying the minimal interface that @proxy conforms to or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A bus name (well-known or unique) or %NULL if @connection is not a message bus connection.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus interface name.", 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 "Callback function to invoke when the proxy is ready.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User 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 "g_dbus_proxy_new" g_dbus_proxy_new :: -    Ptr Gio.DBusConnection.DBusConnection -> -- connection : TInterface (Name {namespace = "Gio", name = "DBusConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"})-    Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo -> -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    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 ()--{- |-Creates a proxy for accessing /@interfaceName@/ on the remote object-at /@objectPath@/ owned by /@name@/ at /@connection@/ and asynchronously-loads D-Bus properties unless the-'GI.Gio.Flags.DBusProxyFlagsDoNotLoadProperties' flag is used. Connect to-the 'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-properties-changed/@ signal to get notified about-property changes.--If the 'GI.Gio.Flags.DBusProxyFlagsDoNotConnectSignals' flag is not set, also sets up-match rules for signals. Connect to the 'GI.Gio.Objects.DBusProxy.DBusProxy'::@/g-signal/@ signal-to handle signals from the remote object.--If both 'GI.Gio.Flags.DBusProxyFlagsDoNotLoadProperties' and-'GI.Gio.Flags.DBusProxyFlagsDoNotConnectSignals' are set, this constructor is-guaranteed to complete immediately without blocking.--If /@name@/ is a well-known name and the-'GI.Gio.Flags.DBusProxyFlagsDoNotAutoStart' and 'GI.Gio.Flags.DBusProxyFlagsDoNotAutoStartAtConstruction'-flags aren\'t set and no name owner currently exists, the message bus-will be requested to launch a name owner for the name.--This is a failable asynchronous constructor - when the proxy is-ready, /@callback@/ will be invoked and you can use-'GI.Gio.Objects.DBusProxy.dBusProxyNewFinish' to get the result.--See 'GI.Gio.Objects.DBusProxy.dBusProxyNewSync' and for a synchronous version of this constructor.--'GI.Gio.Objects.DBusProxy.DBusProxy' is used in this [example][gdbus-wellknown-proxy].--/Since: 2.26/--}-dBusProxyNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusConnection.IsDBusConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection'. -}-    -> [Gio.Flags.DBusProxyFlags]-    {- ^ /@flags@/: Flags used when constructing the proxy. -}-    -> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' specifying the minimal interface that /@proxy@/ conforms to or 'Nothing'. -}-    -> Maybe (T.Text)-    {- ^ /@name@/: A bus name (well-known or unique) or 'Nothing' if /@connection@/ is not a message bus connection. -}-    -> T.Text-    {- ^ /@objectPath@/: An object path. -}-    -> T.Text-    {- ^ /@interfaceName@/: A D-Bus interface name. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: Callback function to invoke when the proxy is ready. -}-    -> m ()-dBusProxyNew connection flags info name objectPath interfaceName cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    let flags' = gflagsToWord flags-    maybeInfo <- case info of-        Nothing -> return nullPtr-        Just jInfo -> do-            jInfo' <- unsafeManagedPtrGetPtr jInfo-            return jInfo'-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    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-    g_dbus_proxy_new connection' flags' maybeInfo maybeName objectPath' interfaceName' maybeCancellable maybeCallback userData-    touchManagedPtr connection-    whenJust info touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem maybeName-    freeMem objectPath'-    freeMem interfaceName'-    return ()--#if ENABLE_OVERLOADING-#endif---- method DBusProxy::new_for_bus--- method type : MemberFunction--- Args : [Arg {argCName = "bus_type", argType = TInterface (Name {namespace = "Gio", name = "BusType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GBusType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags used when constructing the proxy.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo specifying the minimal interface that @proxy conforms to or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A bus name (well-known or unique).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "An object path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus interface name.", 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 "Callback function to invoke when the proxy is ready.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "User 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 "g_dbus_proxy_new_for_bus" g_dbus_proxy_new_for_bus :: -    CInt ->                                 -- bus_type : TInterface (Name {namespace = "Gio", name = "BusType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusProxyFlags"})-    Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo -> -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- object_path : TBasicType TUTF8-    CString ->                              -- interface_name : TBasicType TUTF8-    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 ()--{- |-Like 'GI.Gio.Objects.DBusProxy.dBusProxyNew' but takes a 'GI.Gio.Enums.BusType' instead of a 'GI.Gio.Objects.DBusConnection.DBusConnection'.--'GI.Gio.Objects.DBusProxy.DBusProxy' is used in this [example][gdbus-wellknown-proxy].--/Since: 2.26/--}-dBusProxyNewForBus ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Cancellable.IsCancellable a) =>-    Gio.Enums.BusType-    {- ^ /@busType@/: A 'GI.Gio.Enums.BusType'. -}-    -> [Gio.Flags.DBusProxyFlags]-    {- ^ /@flags@/: Flags used when constructing the proxy. -}-    -> Maybe (Gio.DBusInterfaceInfo.DBusInterfaceInfo)-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' specifying the minimal interface that /@proxy@/ conforms to or 'Nothing'. -}-    -> T.Text-    {- ^ /@name@/: A bus name (well-known or unique). -}-    -> T.Text-    {- ^ /@objectPath@/: An object path. -}-    -> T.Text-    {- ^ /@interfaceName@/: A D-Bus interface name. -}-    -> Maybe (a)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: Callback function to invoke when the proxy is ready. -}-    -> m ()-dBusProxyNewForBus busType flags info name objectPath interfaceName cancellable callback = liftIO $ do-    let busType' = (fromIntegral . fromEnum) busType-    let flags' = gflagsToWord flags-    maybeInfo <- case info of-        Nothing -> return nullPtr-        Just jInfo -> do-            jInfo' <- unsafeManagedPtrGetPtr jInfo-            return jInfo'-    name' <- textToCString name-    objectPath' <- textToCString objectPath-    interfaceName' <- textToCString interfaceName-    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-    g_dbus_proxy_new_for_bus busType' flags' maybeInfo name' objectPath' interfaceName' maybeCancellable maybeCallback userData-    whenJust info touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem name'-    freeMem objectPath'-    freeMem interfaceName'-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/DBusProxy.hs-boot 
@@ -1,119 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusProxy 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 DBusProxy = DBusProxy (ManagedPtr DBusProxy)-instance GObject DBusProxy where-class (GObject o, O.IsDescendantOf DBusProxy o) => IsDBusProxy o-instance (GObject o, O.IsDescendantOf DBusProxy o) => IsDBusProxy o-instance O.HasParentTypes DBusProxy-#if ENABLE_OVERLOADING-data DBusProxyGBusTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGConnectionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGDefaultTimeoutPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGInterfaceInfoPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGInterfaceNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGNameOwnerPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGObjectPathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGPropertiesChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGSignalSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyCallMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyCallFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyCallSyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyCallWithUnixFdListMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyCallWithUnixFdListFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyCallWithUnixFdListSyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetCachedPropertyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetCachedPropertyNamesMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetDefaultTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetInterfaceInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetInterfaceNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetNameOwnerMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxyGetObjectPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxySetCachedPropertyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxySetDefaultTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusProxySetInterfaceInfoMethodInfo-#endif
− GI/Gio/Objects/DBusServer.hs 
@@ -1,947 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.DBusServer.DBusServer' is a helper for listening to and accepting D-Bus-connections. This can be used to create a new D-Bus server, allowing two-peers to use the D-Bus protocol for their own specialized communication.-A server instance provided in this way will not perform message routing or-implement the org.freedesktop.DBus interface.--To just export an object on a well-known name on a message bus, such as the-session or system bus, you should instead use @/g_bus_own_name()/@.--An example of peer-to-peer communication with G-DBus can be found-in <https://git.gnome.org/browse/glib/tree/gio/tests/gdbus-example-peer.c gdbus-example-peer.c>.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DBusServer-    ( ---- * Exported types-    DBusServer(..)                          ,-    IsDBusServer                            ,-    toDBusServer                            ,-    noDBusServer                            ,--- -- * Methods--- ** getClientAddress #method:getClientAddress#--#if ENABLE_OVERLOADING-    DBusServerGetClientAddressMethodInfo    ,-#endif-    dBusServerGetClientAddress              ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    DBusServerGetFlagsMethodInfo            ,-#endif-    dBusServerGetFlags                      ,----- ** getGuid #method:getGuid#--#if ENABLE_OVERLOADING-    DBusServerGetGuidMethodInfo             ,-#endif-    dBusServerGetGuid                       ,----- ** isActive #method:isActive#--#if ENABLE_OVERLOADING-    DBusServerIsActiveMethodInfo            ,-#endif-    dBusServerIsActive                      ,----- ** newSync #method:newSync#--    dBusServerNewSync                       ,----- ** start #method:start#--#if ENABLE_OVERLOADING-    DBusServerStartMethodInfo               ,-#endif-    dBusServerStart                         ,----- ** stop #method:stop#--#if ENABLE_OVERLOADING-    DBusServerStopMethodInfo                ,-#endif-    dBusServerStop                          ,----- -- * Properties--- ** active #attr:active#-{- | Whether the server is currently active.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusServerActivePropertyInfo            ,-#endif-#if ENABLE_OVERLOADING-    dBusServerActive                        ,-#endif-    getDBusServerActive                     ,----- ** address #attr:address#-{- | The D-Bus address to listen on.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusServerAddressPropertyInfo           ,-#endif-    constructDBusServerAddress              ,-#if ENABLE_OVERLOADING-    dBusServerAddress                       ,-#endif-    getDBusServerAddress                    ,----- ** authenticationObserver #attr:authenticationObserver#-{- | A 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' object to assist in the authentication process or 'Nothing'.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusServerAuthenticationObserverPropertyInfo,-#endif-    constructDBusServerAuthenticationObserver,-#if ENABLE_OVERLOADING-    dBusServerAuthenticationObserver        ,-#endif-    getDBusServerAuthenticationObserver     ,----- ** clientAddress #attr:clientAddress#-{- | The D-Bus address that clients can use.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusServerClientAddressPropertyInfo     ,-#endif-#if ENABLE_OVERLOADING-    dBusServerClientAddress                 ,-#endif-    getDBusServerClientAddress              ,----- ** flags #attr:flags#-{- | Flags from the 'GI.Gio.Flags.DBusServerFlags' enumeration.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusServerFlagsPropertyInfo             ,-#endif-    constructDBusServerFlags                ,-#if ENABLE_OVERLOADING-    dBusServerFlags                         ,-#endif-    getDBusServerFlags                      ,----- ** guid #attr:guid#-{- | The guid of the server.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    DBusServerGuidPropertyInfo              ,-#endif-    constructDBusServerGuid                 ,-#if ENABLE_OVERLOADING-    dBusServerGuid                          ,-#endif-    getDBusServerGuid                       ,----- -- * Signals--- ** newConnection #signal:newConnection#--    C_DBusServerNewConnectionCallback       ,-    DBusServerNewConnectionCallback         ,-#if ENABLE_OVERLOADING-    DBusServerNewConnectionSignalInfo       ,-#endif-    afterDBusServerNewConnection            ,-    genClosure_DBusServerNewConnection      ,-    mk_DBusServerNewConnectionCallback      ,-    noDBusServerNewConnectionCallback       ,-    onDBusServerNewConnection               ,-    wrap_DBusServerNewConnectionCallback    ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusAuthObserver as Gio.DBusAuthObserver-import {-# SOURCE #-} qualified GI.Gio.Objects.DBusConnection as Gio.DBusConnection---- | Memory-managed wrapper type.-newtype DBusServer = DBusServer (ManagedPtr DBusServer)-foreign import ccall "g_dbus_server_get_type"-    c_g_dbus_server_get_type :: IO GType--instance GObject DBusServer where-    gobjectType = c_g_dbus_server_get_type-    ---- | Type class for types which can be safely cast to `DBusServer`, for instance with `toDBusServer`.-class (GObject o, O.IsDescendantOf DBusServer o) => IsDBusServer o-instance (GObject o, O.IsDescendantOf DBusServer o) => IsDBusServer o--instance O.HasParentTypes DBusServer-type instance O.ParentTypes DBusServer = '[GObject.Object.Object, Gio.Initable.Initable]---- | Cast to `DBusServer`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDBusServer :: (MonadIO m, IsDBusServer o) => o -> m DBusServer-toDBusServer = liftIO . unsafeCastTo DBusServer---- | A convenience alias for `Nothing` :: `Maybe` `DBusServer`.-noDBusServer :: Maybe DBusServer-noDBusServer = Nothing--#if ENABLE_OVERLOADING-type family ResolveDBusServerMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusServerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDBusServerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDBusServerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDBusServerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDBusServerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDBusServerMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveDBusServerMethod "isActive" o = DBusServerIsActiveMethodInfo-    ResolveDBusServerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDBusServerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDBusServerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDBusServerMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDBusServerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDBusServerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDBusServerMethod "start" o = DBusServerStartMethodInfo-    ResolveDBusServerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDBusServerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDBusServerMethod "stop" o = DBusServerStopMethodInfo-    ResolveDBusServerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDBusServerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDBusServerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDBusServerMethod "getClientAddress" o = DBusServerGetClientAddressMethodInfo-    ResolveDBusServerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDBusServerMethod "getFlags" o = DBusServerGetFlagsMethodInfo-    ResolveDBusServerMethod "getGuid" o = DBusServerGetGuidMethodInfo-    ResolveDBusServerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDBusServerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDBusServerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDBusServerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDBusServerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusServerMethod t DBusServer, O.MethodInfo info DBusServer p) => OL.IsLabel t (DBusServer -> 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 DBusServer::new-connection-{- |-Emitted when a new authenticated connection has been made. Use-'GI.Gio.Objects.DBusConnection.dBusConnectionGetPeerCredentials' to figure out what-identity (if any), was authenticated.--If you want to accept the connection, take a reference to the-/@connection@/ object and return 'True'. When you are done with the-connection call 'GI.Gio.Objects.DBusConnection.dBusConnectionClose' and give up your-reference. Note that the other peer may disconnect at any time --a typical thing to do when accepting a connection is to listen to-the 'GI.Gio.Objects.DBusConnection.DBusConnection'::@/closed/@ signal.--If 'GI.Gio.Objects.DBusServer.DBusServer':@/flags/@ contains 'GI.Gio.Flags.DBusServerFlagsRunInThread'-then the signal is emitted in a new thread dedicated to the-connection. Otherwise the signal is emitted in the-[thread-default main context][g-main-context-push-thread-default]-of the thread that /@server@/ was constructed in.--You are guaranteed that signal handlers for this signal runs-before incoming messages on /@connection@/ are processed. This means-that it\'s suitable to call @/g_dbus_connection_register_object()/@ or-similar from the signal handler.--/Since: 2.26/--}-type DBusServerNewConnectionCallback =-    Gio.DBusConnection.DBusConnection-    {- ^ /@connection@/: A 'GI.Gio.Objects.DBusConnection.DBusConnection' for the new connection. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' to claim /@connection@/, 'False' to let other handlers-run. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `DBusServerNewConnectionCallback`@.-noDBusServerNewConnectionCallback :: Maybe DBusServerNewConnectionCallback-noDBusServerNewConnectionCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_DBusServerNewConnectionCallback =-    Ptr () ->                               -- object-    Ptr Gio.DBusConnection.DBusConnection ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_DBusServerNewConnectionCallback`.-foreign import ccall "wrapper"-    mk_DBusServerNewConnectionCallback :: C_DBusServerNewConnectionCallback -> IO (FunPtr C_DBusServerNewConnectionCallback)---- | Wrap the callback into a `GClosure`.-genClosure_DBusServerNewConnection :: MonadIO m => DBusServerNewConnectionCallback -> m (GClosure C_DBusServerNewConnectionCallback)-genClosure_DBusServerNewConnection cb = liftIO $ do-    let cb' = wrap_DBusServerNewConnectionCallback cb-    mk_DBusServerNewConnectionCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `DBusServerNewConnectionCallback` into a `C_DBusServerNewConnectionCallback`.-wrap_DBusServerNewConnectionCallback ::-    DBusServerNewConnectionCallback ->-    C_DBusServerNewConnectionCallback-wrap_DBusServerNewConnectionCallback _cb _ connection _ = do-    connection' <- (newObject Gio.DBusConnection.DBusConnection) connection-    result <- _cb  connection'-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@new-connection@” 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' dBusServer #newConnection callback-@--}-onDBusServerNewConnection :: (IsDBusServer a, MonadIO m) => a -> DBusServerNewConnectionCallback -> m SignalHandlerId-onDBusServerNewConnection obj cb = liftIO $ do-    let cb' = wrap_DBusServerNewConnectionCallback cb-    cb'' <- mk_DBusServerNewConnectionCallback cb'-    connectSignalFunPtr obj "new-connection" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@new-connection@” 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' dBusServer #newConnection callback-@--}-afterDBusServerNewConnection :: (IsDBusServer a, MonadIO m) => a -> DBusServerNewConnectionCallback -> m SignalHandlerId-afterDBusServerNewConnection obj cb = liftIO $ do-    let cb' = wrap_DBusServerNewConnectionCallback cb-    cb'' <- mk_DBusServerNewConnectionCallback cb'-    connectSignalFunPtr obj "new-connection" cb'' SignalConnectAfter----- VVV Prop "active"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@active@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusServer #active-@--}-getDBusServerActive :: (MonadIO m, IsDBusServer o) => o -> m Bool-getDBusServerActive obj = liftIO $ B.Properties.getObjectPropertyBool obj "active"--#if ENABLE_OVERLOADING-data DBusServerActivePropertyInfo-instance AttrInfo DBusServerActivePropertyInfo where-    type AttrAllowedOps DBusServerActivePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DBusServerActivePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusServerActivePropertyInfo = IsDBusServer-    type AttrGetType DBusServerActivePropertyInfo = Bool-    type AttrLabel DBusServerActivePropertyInfo = "active"-    type AttrOrigin DBusServerActivePropertyInfo = DBusServer-    attrGet _ = getDBusServerActive-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "address"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusServer #address-@--}-getDBusServerAddress :: (MonadIO m, IsDBusServer o) => o -> m (Maybe T.Text)-getDBusServerAddress obj = liftIO $ B.Properties.getObjectPropertyString obj "address"--{- |-Construct a `GValueConstruct` with valid value for the “@address@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusServerAddress :: (IsDBusServer o) => T.Text -> IO (GValueConstruct o)-constructDBusServerAddress val = B.Properties.constructObjectPropertyString "address" (Just val)--#if ENABLE_OVERLOADING-data DBusServerAddressPropertyInfo-instance AttrInfo DBusServerAddressPropertyInfo where-    type AttrAllowedOps DBusServerAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusServerAddressPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusServerAddressPropertyInfo = IsDBusServer-    type AttrGetType DBusServerAddressPropertyInfo = (Maybe T.Text)-    type AttrLabel DBusServerAddressPropertyInfo = "address"-    type AttrOrigin DBusServerAddressPropertyInfo = DBusServer-    attrGet _ = getDBusServerAddress-    attrSet _ = undefined-    attrConstruct _ = constructDBusServerAddress-    attrClear _ = undefined-#endif---- VVV Prop "authentication-observer"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@authentication-observer@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusServer #authenticationObserver-@--}-getDBusServerAuthenticationObserver :: (MonadIO m, IsDBusServer o) => o -> m (Maybe Gio.DBusAuthObserver.DBusAuthObserver)-getDBusServerAuthenticationObserver obj = liftIO $ B.Properties.getObjectPropertyObject obj "authentication-observer" Gio.DBusAuthObserver.DBusAuthObserver--{- |-Construct a `GValueConstruct` with valid value for the “@authentication-observer@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusServerAuthenticationObserver :: (IsDBusServer o, Gio.DBusAuthObserver.IsDBusAuthObserver a) => a -> IO (GValueConstruct o)-constructDBusServerAuthenticationObserver val = B.Properties.constructObjectPropertyObject "authentication-observer" (Just val)--#if ENABLE_OVERLOADING-data DBusServerAuthenticationObserverPropertyInfo-instance AttrInfo DBusServerAuthenticationObserverPropertyInfo where-    type AttrAllowedOps DBusServerAuthenticationObserverPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusServerAuthenticationObserverPropertyInfo = Gio.DBusAuthObserver.IsDBusAuthObserver-    type AttrBaseTypeConstraint DBusServerAuthenticationObserverPropertyInfo = IsDBusServer-    type AttrGetType DBusServerAuthenticationObserverPropertyInfo = (Maybe Gio.DBusAuthObserver.DBusAuthObserver)-    type AttrLabel DBusServerAuthenticationObserverPropertyInfo = "authentication-observer"-    type AttrOrigin DBusServerAuthenticationObserverPropertyInfo = DBusServer-    attrGet _ = getDBusServerAuthenticationObserver-    attrSet _ = undefined-    attrConstruct _ = constructDBusServerAuthenticationObserver-    attrClear _ = undefined-#endif---- VVV Prop "client-address"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@client-address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusServer #clientAddress-@--}-getDBusServerClientAddress :: (MonadIO m, IsDBusServer o) => o -> m T.Text-getDBusServerClientAddress obj = liftIO $ checkUnexpectedNothing "getDBusServerClientAddress" $ B.Properties.getObjectPropertyString obj "client-address"--#if ENABLE_OVERLOADING-data DBusServerClientAddressPropertyInfo-instance AttrInfo DBusServerClientAddressPropertyInfo where-    type AttrAllowedOps DBusServerClientAddressPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusServerClientAddressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DBusServerClientAddressPropertyInfo = IsDBusServer-    type AttrGetType DBusServerClientAddressPropertyInfo = T.Text-    type AttrLabel DBusServerClientAddressPropertyInfo = "client-address"-    type AttrOrigin DBusServerClientAddressPropertyInfo = DBusServer-    attrGet _ = getDBusServerClientAddress-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "DBusServerFlags"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusServer #flags-@--}-getDBusServerFlags :: (MonadIO m, IsDBusServer o) => o -> m [Gio.Flags.DBusServerFlags]-getDBusServerFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusServerFlags :: (IsDBusServer o) => [Gio.Flags.DBusServerFlags] -> IO (GValueConstruct o)-constructDBusServerFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data DBusServerFlagsPropertyInfo-instance AttrInfo DBusServerFlagsPropertyInfo where-    type AttrAllowedOps DBusServerFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DBusServerFlagsPropertyInfo = (~) [Gio.Flags.DBusServerFlags]-    type AttrBaseTypeConstraint DBusServerFlagsPropertyInfo = IsDBusServer-    type AttrGetType DBusServerFlagsPropertyInfo = [Gio.Flags.DBusServerFlags]-    type AttrLabel DBusServerFlagsPropertyInfo = "flags"-    type AttrOrigin DBusServerFlagsPropertyInfo = DBusServer-    attrGet _ = getDBusServerFlags-    attrSet _ = undefined-    attrConstruct _ = constructDBusServerFlags-    attrClear _ = undefined-#endif---- VVV Prop "guid"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@guid@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusServer #guid-@--}-getDBusServerGuid :: (MonadIO m, IsDBusServer o) => o -> m T.Text-getDBusServerGuid obj = liftIO $ checkUnexpectedNothing "getDBusServerGuid" $ B.Properties.getObjectPropertyString obj "guid"--{- |-Construct a `GValueConstruct` with valid value for the “@guid@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDBusServerGuid :: (IsDBusServer o) => T.Text -> IO (GValueConstruct o)-constructDBusServerGuid val = B.Properties.constructObjectPropertyString "guid" (Just val)--#if ENABLE_OVERLOADING-data DBusServerGuidPropertyInfo-instance AttrInfo DBusServerGuidPropertyInfo where-    type AttrAllowedOps DBusServerGuidPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusServerGuidPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DBusServerGuidPropertyInfo = IsDBusServer-    type AttrGetType DBusServerGuidPropertyInfo = T.Text-    type AttrLabel DBusServerGuidPropertyInfo = "guid"-    type AttrOrigin DBusServerGuidPropertyInfo = DBusServer-    attrGet _ = getDBusServerGuid-    attrSet _ = undefined-    attrConstruct _ = constructDBusServerGuid-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusServer-type instance O.AttributeList DBusServer = DBusServerAttributeList-type DBusServerAttributeList = ('[ '("active", DBusServerActivePropertyInfo), '("address", DBusServerAddressPropertyInfo), '("authenticationObserver", DBusServerAuthenticationObserverPropertyInfo), '("clientAddress", DBusServerClientAddressPropertyInfo), '("flags", DBusServerFlagsPropertyInfo), '("guid", DBusServerGuidPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dBusServerActive :: AttrLabelProxy "active"-dBusServerActive = AttrLabelProxy--dBusServerAddress :: AttrLabelProxy "address"-dBusServerAddress = AttrLabelProxy--dBusServerAuthenticationObserver :: AttrLabelProxy "authenticationObserver"-dBusServerAuthenticationObserver = AttrLabelProxy--dBusServerClientAddress :: AttrLabelProxy "clientAddress"-dBusServerClientAddress = AttrLabelProxy--dBusServerFlags :: AttrLabelProxy "flags"-dBusServerFlags = AttrLabelProxy--dBusServerGuid :: AttrLabelProxy "guid"-dBusServerGuid = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data DBusServerNewConnectionSignalInfo-instance SignalInfo DBusServerNewConnectionSignalInfo where-    type HaskellCallbackType DBusServerNewConnectionSignalInfo = DBusServerNewConnectionCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_DBusServerNewConnectionCallback cb-        cb'' <- mk_DBusServerNewConnectionCallback cb'-        connectSignalFunPtr obj "new-connection" cb'' connectMode--type instance O.SignalList DBusServer = DBusServerSignalList-type DBusServerSignalList = ('[ '("newConnection", DBusServerNewConnectionSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DBusServer::new_sync--- method type : Constructor--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus address.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "DBusServerFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags from the #GDBusServerFlags enumeration.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus GUID.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GDBusAuthObserver or %NULL.", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusServer"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_server_new_sync" g_dbus_server_new_sync :: -    CString ->                              -- address : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "DBusServerFlags"})-    CString ->                              -- guid : TBasicType TUTF8-    Ptr Gio.DBusAuthObserver.DBusAuthObserver -> -- observer : TInterface (Name {namespace = "Gio", name = "DBusAuthObserver"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusServer)--{- |-Creates a new D-Bus server that listens on the first address in-/@address@/ that works.--Once constructed, you can use 'GI.Gio.Objects.DBusServer.dBusServerGetClientAddress' to-get a D-Bus address string that clients can use to connect.--Connect to the 'GI.Gio.Objects.DBusServer.DBusServer'::@/new-connection/@ signal to handle-incoming connections.--The returned 'GI.Gio.Objects.DBusServer.DBusServer' isn\'t active - you have to start it with-'GI.Gio.Objects.DBusServer.dBusServerStart'.--'GI.Gio.Objects.DBusServer.DBusServer' is used in this [example][gdbus-peer-to-peer].--This is a synchronous failable constructor. See-@/g_dbus_server_new()/@ for the asynchronous version.--/Since: 2.26/--}-dBusServerNewSync ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.DBusAuthObserver.IsDBusAuthObserver a, Gio.Cancellable.IsCancellable b) =>-    T.Text-    {- ^ /@address@/: A D-Bus address. -}-    -> [Gio.Flags.DBusServerFlags]-    {- ^ /@flags@/: Flags from the 'GI.Gio.Flags.DBusServerFlags' enumeration. -}-    -> T.Text-    {- ^ /@guid@/: A D-Bus GUID. -}-    -> Maybe (a)-    {- ^ /@observer@/: A 'GI.Gio.Objects.DBusAuthObserver.DBusAuthObserver' or 'Nothing'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> m DBusServer-    {- ^ __Returns:__ A 'GI.Gio.Objects.DBusServer.DBusServer' or 'Nothing' if /@error@/ is set. Free with-'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusServerNewSync address flags guid observer cancellable = liftIO $ do-    address' <- textToCString address-    let flags' = gflagsToWord flags-    guid' <- textToCString guid-    maybeObserver <- case observer of-        Nothing -> return nullPtr-        Just jObserver -> do-            jObserver' <- unsafeManagedPtrCastPtr jObserver-            return jObserver'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_dbus_server_new_sync address' flags' guid' maybeObserver maybeCancellable-        checkUnexpectedReturnNULL "dBusServerNewSync" result-        result' <- (wrapObject DBusServer) result-        whenJust observer touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem address'-        freeMem guid'-        return result'-     ) (do-        freeMem address'-        freeMem guid'-     )--#if ENABLE_OVERLOADING-#endif---- method DBusServer::get_client_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Gio", name = "DBusServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusServer.", 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 "g_dbus_server_get_client_address" g_dbus_server_get_client_address :: -    Ptr DBusServer ->                       -- server : TInterface (Name {namespace = "Gio", name = "DBusServer"})-    IO CString--{- |-Gets a-<https://dbus.freedesktop.org/doc/dbus-specification.html#addresses D-Bus address>-string that can be used by clients to connect to /@server@/.--/Since: 2.26/--}-dBusServerGetClientAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusServer a) =>-    a-    {- ^ /@server@/: A 'GI.Gio.Objects.DBusServer.DBusServer'. -}-    -> m T.Text-    {- ^ __Returns:__ A D-Bus address string. Do not free, the string is owned-by /@server@/. -}-dBusServerGetClientAddress server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- g_dbus_server_get_client_address server'-    checkUnexpectedReturnNULL "dBusServerGetClientAddress" result-    result' <- cstringToText result-    touchManagedPtr server-    return result'--#if ENABLE_OVERLOADING-data DBusServerGetClientAddressMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusServer a) => O.MethodInfo DBusServerGetClientAddressMethodInfo a signature where-    overloadedMethod _ = dBusServerGetClientAddress--#endif---- method DBusServer::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Gio", name = "DBusServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusServer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusServerFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_server_get_flags" g_dbus_server_get_flags :: -    Ptr DBusServer ->                       -- server : TInterface (Name {namespace = "Gio", name = "DBusServer"})-    IO CUInt--{- |-Gets the flags for /@server@/.--/Since: 2.26/--}-dBusServerGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusServer a) =>-    a-    {- ^ /@server@/: A 'GI.Gio.Objects.DBusServer.DBusServer'. -}-    -> m [Gio.Flags.DBusServerFlags]-    {- ^ __Returns:__ A set of flags from the 'GI.Gio.Flags.DBusServerFlags' enumeration. -}-dBusServerGetFlags server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- g_dbus_server_get_flags server'-    let result' = wordToGFlags result-    touchManagedPtr server-    return result'--#if ENABLE_OVERLOADING-data DBusServerGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.DBusServerFlags]), MonadIO m, IsDBusServer a) => O.MethodInfo DBusServerGetFlagsMethodInfo a signature where-    overloadedMethod _ = dBusServerGetFlags--#endif---- method DBusServer::get_guid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Gio", name = "DBusServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusServer.", 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 "g_dbus_server_get_guid" g_dbus_server_get_guid :: -    Ptr DBusServer ->                       -- server : TInterface (Name {namespace = "Gio", name = "DBusServer"})-    IO CString--{- |-Gets the GUID for /@server@/.--/Since: 2.26/--}-dBusServerGetGuid ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusServer a) =>-    a-    {- ^ /@server@/: A 'GI.Gio.Objects.DBusServer.DBusServer'. -}-    -> m T.Text-    {- ^ __Returns:__ A D-Bus GUID. Do not free this string, it is owned by /@server@/. -}-dBusServerGetGuid server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- g_dbus_server_get_guid server'-    checkUnexpectedReturnNULL "dBusServerGetGuid" result-    result' <- cstringToText result-    touchManagedPtr server-    return result'--#if ENABLE_OVERLOADING-data DBusServerGetGuidMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDBusServer a) => O.MethodInfo DBusServerGetGuidMethodInfo a signature where-    overloadedMethod _ = dBusServerGetGuid--#endif---- method DBusServer::is_active--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Gio", name = "DBusServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusServer.", 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 "g_dbus_server_is_active" g_dbus_server_is_active :: -    Ptr DBusServer ->                       -- server : TInterface (Name {namespace = "Gio", name = "DBusServer"})-    IO CInt--{- |-Gets whether /@server@/ is active.--/Since: 2.26/--}-dBusServerIsActive ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusServer a) =>-    a-    {- ^ /@server@/: A 'GI.Gio.Objects.DBusServer.DBusServer'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if server is active, 'False' otherwise. -}-dBusServerIsActive server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- g_dbus_server_is_active server'-    let result' = (/= 0) result-    touchManagedPtr server-    return result'--#if ENABLE_OVERLOADING-data DBusServerIsActiveMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDBusServer a) => O.MethodInfo DBusServerIsActiveMethodInfo a signature where-    overloadedMethod _ = dBusServerIsActive--#endif---- method DBusServer::start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Gio", name = "DBusServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusServer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_server_start" g_dbus_server_start :: -    Ptr DBusServer ->                       -- server : TInterface (Name {namespace = "Gio", name = "DBusServer"})-    IO ()--{- |-Starts /@server@/.--/Since: 2.26/--}-dBusServerStart ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusServer a) =>-    a-    {- ^ /@server@/: A 'GI.Gio.Objects.DBusServer.DBusServer'. -}-    -> m ()-dBusServerStart server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    g_dbus_server_start server'-    touchManagedPtr server-    return ()--#if ENABLE_OVERLOADING-data DBusServerStartMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDBusServer a) => O.MethodInfo DBusServerStartMethodInfo a signature where-    overloadedMethod _ = dBusServerStart--#endif---- method DBusServer::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Gio", name = "DBusServer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusServer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_server_stop" g_dbus_server_stop :: -    Ptr DBusServer ->                       -- server : TInterface (Name {namespace = "Gio", name = "DBusServer"})-    IO ()--{- |-Stops /@server@/.--/Since: 2.26/--}-dBusServerStop ::-    (B.CallStack.HasCallStack, MonadIO m, IsDBusServer a) =>-    a-    {- ^ /@server@/: A 'GI.Gio.Objects.DBusServer.DBusServer'. -}-    -> m ()-dBusServerStop server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    g_dbus_server_stop server'-    touchManagedPtr server-    return ()--#if ENABLE_OVERLOADING-data DBusServerStopMethodInfo-instance (signature ~ (m ()), MonadIO m, IsDBusServer a) => O.MethodInfo DBusServerStopMethodInfo a signature where-    overloadedMethod _ = dBusServerStop--#endif--
− GI/Gio/Objects/DBusServer.hs-boot 
@@ -1,68 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DBusServer 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 DBusServer = DBusServer (ManagedPtr DBusServer)-instance GObject DBusServer where-class (GObject o, O.IsDescendantOf DBusServer o) => IsDBusServer o-instance (GObject o, O.IsDescendantOf DBusServer o) => IsDBusServer o-instance O.HasParentTypes DBusServer-#if ENABLE_OVERLOADING-data DBusServerActivePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerAuthenticationObserverPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerClientAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerGuidPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerNewConnectionSignalInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerGetClientAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerGetGuidMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerIsActiveMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerStartMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusServerStopMethodInfo-#endif
− GI/Gio/Objects/DataInputStream.hs 
@@ -1,1820 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Data input stream implements 'GI.Gio.Objects.InputStream.InputStream' and includes functions for-reading structured data directly from a binary input stream.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DataInputStream-    ( ---- * Exported types-    DataInputStream(..)                     ,-    IsDataInputStream                       ,-    toDataInputStream                       ,-    noDataInputStream                       ,--- -- * Methods--- ** getByteOrder #method:getByteOrder#--#if ENABLE_OVERLOADING-    DataInputStreamGetByteOrderMethodInfo   ,-#endif-    dataInputStreamGetByteOrder             ,----- ** getNewlineType #method:getNewlineType#--#if ENABLE_OVERLOADING-    DataInputStreamGetNewlineTypeMethodInfo ,-#endif-    dataInputStreamGetNewlineType           ,----- ** new #method:new#--    dataInputStreamNew                      ,----- ** readByte #method:readByte#--#if ENABLE_OVERLOADING-    DataInputStreamReadByteMethodInfo       ,-#endif-    dataInputStreamReadByte                 ,----- ** readInt16 #method:readInt16#--#if ENABLE_OVERLOADING-    DataInputStreamReadInt16MethodInfo      ,-#endif-    dataInputStreamReadInt16                ,----- ** readInt32 #method:readInt32#--#if ENABLE_OVERLOADING-    DataInputStreamReadInt32MethodInfo      ,-#endif-    dataInputStreamReadInt32                ,----- ** readInt64 #method:readInt64#--#if ENABLE_OVERLOADING-    DataInputStreamReadInt64MethodInfo      ,-#endif-    dataInputStreamReadInt64                ,----- ** readLine #method:readLine#--#if ENABLE_OVERLOADING-    DataInputStreamReadLineMethodInfo       ,-#endif-    dataInputStreamReadLine                 ,----- ** readLineAsync #method:readLineAsync#--#if ENABLE_OVERLOADING-    DataInputStreamReadLineAsyncMethodInfo  ,-#endif-    dataInputStreamReadLineAsync            ,----- ** readLineFinish #method:readLineFinish#--#if ENABLE_OVERLOADING-    DataInputStreamReadLineFinishMethodInfo ,-#endif-    dataInputStreamReadLineFinish           ,----- ** readLineFinishUtf8 #method:readLineFinishUtf8#--#if ENABLE_OVERLOADING-    DataInputStreamReadLineFinishUtf8MethodInfo,-#endif-    dataInputStreamReadLineFinishUtf8       ,----- ** readLineUtf8 #method:readLineUtf8#--#if ENABLE_OVERLOADING-    DataInputStreamReadLineUtf8MethodInfo   ,-#endif-    dataInputStreamReadLineUtf8             ,----- ** readUint16 #method:readUint16#--#if ENABLE_OVERLOADING-    DataInputStreamReadUint16MethodInfo     ,-#endif-    dataInputStreamReadUint16               ,----- ** readUint32 #method:readUint32#--#if ENABLE_OVERLOADING-    DataInputStreamReadUint32MethodInfo     ,-#endif-    dataInputStreamReadUint32               ,----- ** readUint64 #method:readUint64#--#if ENABLE_OVERLOADING-    DataInputStreamReadUint64MethodInfo     ,-#endif-    dataInputStreamReadUint64               ,----- ** readUntil #method:readUntil#--#if ENABLE_OVERLOADING-    DataInputStreamReadUntilMethodInfo      ,-#endif-    dataInputStreamReadUntil                ,----- ** readUntilAsync #method:readUntilAsync#--#if ENABLE_OVERLOADING-    DataInputStreamReadUntilAsyncMethodInfo ,-#endif-    dataInputStreamReadUntilAsync           ,----- ** readUntilFinish #method:readUntilFinish#--#if ENABLE_OVERLOADING-    DataInputStreamReadUntilFinishMethodInfo,-#endif-    dataInputStreamReadUntilFinish          ,----- ** readUpto #method:readUpto#--#if ENABLE_OVERLOADING-    DataInputStreamReadUptoMethodInfo       ,-#endif-    dataInputStreamReadUpto                 ,----- ** readUptoAsync #method:readUptoAsync#--#if ENABLE_OVERLOADING-    DataInputStreamReadUptoAsyncMethodInfo  ,-#endif-    dataInputStreamReadUptoAsync            ,----- ** readUptoFinish #method:readUptoFinish#--#if ENABLE_OVERLOADING-    DataInputStreamReadUptoFinishMethodInfo ,-#endif-    dataInputStreamReadUptoFinish           ,----- ** setByteOrder #method:setByteOrder#--#if ENABLE_OVERLOADING-    DataInputStreamSetByteOrderMethodInfo   ,-#endif-    dataInputStreamSetByteOrder             ,----- ** setNewlineType #method:setNewlineType#--#if ENABLE_OVERLOADING-    DataInputStreamSetNewlineTypeMethodInfo ,-#endif-    dataInputStreamSetNewlineType           ,----- -- * Properties--- ** byteOrder #attr:byteOrder#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    DataInputStreamByteOrderPropertyInfo    ,-#endif-    constructDataInputStreamByteOrder       ,-#if ENABLE_OVERLOADING-    dataInputStreamByteOrder                ,-#endif-    getDataInputStreamByteOrder             ,-    setDataInputStreamByteOrder             ,----- ** newlineType #attr:newlineType#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    DataInputStreamNewlineTypePropertyInfo  ,-#endif-    constructDataInputStreamNewlineType     ,-#if ENABLE_OVERLOADING-    dataInputStreamNewlineType              ,-#endif-    getDataInputStreamNewlineType           ,-    setDataInputStreamNewlineType           ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.BufferedInputStream as Gio.BufferedInputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.FilterInputStream as Gio.FilterInputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype DataInputStream = DataInputStream (ManagedPtr DataInputStream)-foreign import ccall "g_data_input_stream_get_type"-    c_g_data_input_stream_get_type :: IO GType--instance GObject DataInputStream where-    gobjectType = c_g_data_input_stream_get_type-    ---- | Type class for types which can be safely cast to `DataInputStream`, for instance with `toDataInputStream`.-class (GObject o, O.IsDescendantOf DataInputStream o) => IsDataInputStream o-instance (GObject o, O.IsDescendantOf DataInputStream o) => IsDataInputStream o--instance O.HasParentTypes DataInputStream-type instance O.ParentTypes DataInputStream = '[Gio.BufferedInputStream.BufferedInputStream, Gio.FilterInputStream.FilterInputStream, Gio.InputStream.InputStream, GObject.Object.Object, Gio.Seekable.Seekable]---- | Cast to `DataInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDataInputStream :: (MonadIO m, IsDataInputStream o) => o -> m DataInputStream-toDataInputStream = liftIO . unsafeCastTo DataInputStream---- | A convenience alias for `Nothing` :: `Maybe` `DataInputStream`.-noDataInputStream :: Maybe DataInputStream-noDataInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveDataInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveDataInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDataInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDataInputStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveDataInputStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveDataInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolveDataInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolveDataInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolveDataInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolveDataInputStreamMethod "fill" o = Gio.BufferedInputStream.BufferedInputStreamFillMethodInfo-    ResolveDataInputStreamMethod "fillAsync" o = Gio.BufferedInputStream.BufferedInputStreamFillAsyncMethodInfo-    ResolveDataInputStreamMethod "fillFinish" o = Gio.BufferedInputStream.BufferedInputStreamFillFinishMethodInfo-    ResolveDataInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDataInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDataInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDataInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolveDataInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolveDataInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDataInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDataInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDataInputStreamMethod "peek" o = Gio.BufferedInputStream.BufferedInputStreamPeekMethodInfo-    ResolveDataInputStreamMethod "peekBuffer" o = Gio.BufferedInputStream.BufferedInputStreamPeekBufferMethodInfo-    ResolveDataInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolveDataInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolveDataInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolveDataInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolveDataInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolveDataInputStreamMethod "readByte" o = DataInputStreamReadByteMethodInfo-    ResolveDataInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolveDataInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolveDataInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolveDataInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolveDataInputStreamMethod "readInt16" o = DataInputStreamReadInt16MethodInfo-    ResolveDataInputStreamMethod "readInt32" o = DataInputStreamReadInt32MethodInfo-    ResolveDataInputStreamMethod "readInt64" o = DataInputStreamReadInt64MethodInfo-    ResolveDataInputStreamMethod "readLine" o = DataInputStreamReadLineMethodInfo-    ResolveDataInputStreamMethod "readLineAsync" o = DataInputStreamReadLineAsyncMethodInfo-    ResolveDataInputStreamMethod "readLineFinish" o = DataInputStreamReadLineFinishMethodInfo-    ResolveDataInputStreamMethod "readLineFinishUtf8" o = DataInputStreamReadLineFinishUtf8MethodInfo-    ResolveDataInputStreamMethod "readLineUtf8" o = DataInputStreamReadLineUtf8MethodInfo-    ResolveDataInputStreamMethod "readUint16" o = DataInputStreamReadUint16MethodInfo-    ResolveDataInputStreamMethod "readUint32" o = DataInputStreamReadUint32MethodInfo-    ResolveDataInputStreamMethod "readUint64" o = DataInputStreamReadUint64MethodInfo-    ResolveDataInputStreamMethod "readUntil" o = DataInputStreamReadUntilMethodInfo-    ResolveDataInputStreamMethod "readUntilAsync" o = DataInputStreamReadUntilAsyncMethodInfo-    ResolveDataInputStreamMethod "readUntilFinish" o = DataInputStreamReadUntilFinishMethodInfo-    ResolveDataInputStreamMethod "readUpto" o = DataInputStreamReadUptoMethodInfo-    ResolveDataInputStreamMethod "readUptoAsync" o = DataInputStreamReadUptoAsyncMethodInfo-    ResolveDataInputStreamMethod "readUptoFinish" o = DataInputStreamReadUptoFinishMethodInfo-    ResolveDataInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDataInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDataInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDataInputStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveDataInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolveDataInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolveDataInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolveDataInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDataInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDataInputStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveDataInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDataInputStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveDataInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDataInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDataInputStreamMethod "getAvailable" o = Gio.BufferedInputStream.BufferedInputStreamGetAvailableMethodInfo-    ResolveDataInputStreamMethod "getBaseStream" o = Gio.FilterInputStream.FilterInputStreamGetBaseStreamMethodInfo-    ResolveDataInputStreamMethod "getBufferSize" o = Gio.BufferedInputStream.BufferedInputStreamGetBufferSizeMethodInfo-    ResolveDataInputStreamMethod "getByteOrder" o = DataInputStreamGetByteOrderMethodInfo-    ResolveDataInputStreamMethod "getCloseBaseStream" o = Gio.FilterInputStream.FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveDataInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDataInputStreamMethod "getNewlineType" o = DataInputStreamGetNewlineTypeMethodInfo-    ResolveDataInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDataInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDataInputStreamMethod "setBufferSize" o = Gio.BufferedInputStream.BufferedInputStreamSetBufferSizeMethodInfo-    ResolveDataInputStreamMethod "setByteOrder" o = DataInputStreamSetByteOrderMethodInfo-    ResolveDataInputStreamMethod "setCloseBaseStream" o = Gio.FilterInputStream.FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveDataInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDataInputStreamMethod "setNewlineType" o = DataInputStreamSetNewlineTypeMethodInfo-    ResolveDataInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolveDataInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDataInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDataInputStreamMethod t DataInputStream, O.MethodInfo info DataInputStream p) => OL.IsLabel t (DataInputStream -> 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---- VVV Prop "byte-order"-   -- Type: TInterface (Name {namespace = "Gio", name = "DataStreamByteOrder"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@byte-order@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dataInputStream #byteOrder-@--}-getDataInputStreamByteOrder :: (MonadIO m, IsDataInputStream o) => o -> m Gio.Enums.DataStreamByteOrder-getDataInputStreamByteOrder obj = liftIO $ B.Properties.getObjectPropertyEnum obj "byte-order"--{- |-Set the value of the “@byte-order@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dataInputStream [ #byteOrder 'Data.GI.Base.Attributes.:=' value ]-@--}-setDataInputStreamByteOrder :: (MonadIO m, IsDataInputStream o) => o -> Gio.Enums.DataStreamByteOrder -> m ()-setDataInputStreamByteOrder obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "byte-order" val--{- |-Construct a `GValueConstruct` with valid value for the “@byte-order@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDataInputStreamByteOrder :: (IsDataInputStream o) => Gio.Enums.DataStreamByteOrder -> IO (GValueConstruct o)-constructDataInputStreamByteOrder val = B.Properties.constructObjectPropertyEnum "byte-order" val--#if ENABLE_OVERLOADING-data DataInputStreamByteOrderPropertyInfo-instance AttrInfo DataInputStreamByteOrderPropertyInfo where-    type AttrAllowedOps DataInputStreamByteOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DataInputStreamByteOrderPropertyInfo = (~) Gio.Enums.DataStreamByteOrder-    type AttrBaseTypeConstraint DataInputStreamByteOrderPropertyInfo = IsDataInputStream-    type AttrGetType DataInputStreamByteOrderPropertyInfo = Gio.Enums.DataStreamByteOrder-    type AttrLabel DataInputStreamByteOrderPropertyInfo = "byte-order"-    type AttrOrigin DataInputStreamByteOrderPropertyInfo = DataInputStream-    attrGet _ = getDataInputStreamByteOrder-    attrSet _ = setDataInputStreamByteOrder-    attrConstruct _ = constructDataInputStreamByteOrder-    attrClear _ = undefined-#endif---- VVV Prop "newline-type"-   -- Type: TInterface (Name {namespace = "Gio", name = "DataStreamNewlineType"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@newline-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dataInputStream #newlineType-@--}-getDataInputStreamNewlineType :: (MonadIO m, IsDataInputStream o) => o -> m Gio.Enums.DataStreamNewlineType-getDataInputStreamNewlineType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "newline-type"--{- |-Set the value of the “@newline-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dataInputStream [ #newlineType 'Data.GI.Base.Attributes.:=' value ]-@--}-setDataInputStreamNewlineType :: (MonadIO m, IsDataInputStream o) => o -> Gio.Enums.DataStreamNewlineType -> m ()-setDataInputStreamNewlineType obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "newline-type" val--{- |-Construct a `GValueConstruct` with valid value for the “@newline-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDataInputStreamNewlineType :: (IsDataInputStream o) => Gio.Enums.DataStreamNewlineType -> IO (GValueConstruct o)-constructDataInputStreamNewlineType val = B.Properties.constructObjectPropertyEnum "newline-type" val--#if ENABLE_OVERLOADING-data DataInputStreamNewlineTypePropertyInfo-instance AttrInfo DataInputStreamNewlineTypePropertyInfo where-    type AttrAllowedOps DataInputStreamNewlineTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DataInputStreamNewlineTypePropertyInfo = (~) Gio.Enums.DataStreamNewlineType-    type AttrBaseTypeConstraint DataInputStreamNewlineTypePropertyInfo = IsDataInputStream-    type AttrGetType DataInputStreamNewlineTypePropertyInfo = Gio.Enums.DataStreamNewlineType-    type AttrLabel DataInputStreamNewlineTypePropertyInfo = "newline-type"-    type AttrOrigin DataInputStreamNewlineTypePropertyInfo = DataInputStream-    attrGet _ = getDataInputStreamNewlineType-    attrSet _ = setDataInputStreamNewlineType-    attrConstruct _ = constructDataInputStreamNewlineType-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DataInputStream-type instance O.AttributeList DataInputStream = DataInputStreamAttributeList-type DataInputStreamAttributeList = ('[ '("baseStream", Gio.FilterInputStream.FilterInputStreamBaseStreamPropertyInfo), '("bufferSize", Gio.BufferedInputStream.BufferedInputStreamBufferSizePropertyInfo), '("byteOrder", DataInputStreamByteOrderPropertyInfo), '("closeBaseStream", Gio.FilterInputStream.FilterInputStreamCloseBaseStreamPropertyInfo), '("newlineType", DataInputStreamNewlineTypePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dataInputStreamByteOrder :: AttrLabelProxy "byteOrder"-dataInputStreamByteOrder = AttrLabelProxy--dataInputStreamNewlineType :: AttrLabelProxy "newlineType"-dataInputStreamNewlineType = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DataInputStream = DataInputStreamSignalList-type DataInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DataInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DataInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_new" g_data_input_stream_new :: -    Ptr Gio.InputStream.InputStream ->      -- base_stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    IO (Ptr DataInputStream)--{- |-Creates a new data input stream for the /@baseStream@/.--}-dataInputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a) =>-    a-    {- ^ /@baseStream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> m DataInputStream-    {- ^ __Returns:__ a new 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-dataInputStreamNew baseStream = liftIO $ do-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    result <- g_data_input_stream_new baseStream'-    checkUnexpectedReturnNULL "dataInputStreamNew" result-    result' <- (wrapObject DataInputStream) result-    touchManagedPtr baseStream-    return result'--#if ENABLE_OVERLOADING-#endif---- method DataInputStream::get_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DataStreamByteOrder"}))--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_get_byte_order" g_data_input_stream_get_byte_order :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    IO CUInt--{- |-Gets the byte order for the data input stream.--}-dataInputStreamGetByteOrder ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> m Gio.Enums.DataStreamByteOrder-    {- ^ __Returns:__ the /@stream@/\'s current 'GI.Gio.Enums.DataStreamByteOrder'. -}-dataInputStreamGetByteOrder stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_data_input_stream_get_byte_order stream'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data DataInputStreamGetByteOrderMethodInfo-instance (signature ~ (m Gio.Enums.DataStreamByteOrder), MonadIO m, IsDataInputStream a) => O.MethodInfo DataInputStreamGetByteOrderMethodInfo a signature where-    overloadedMethod _ = dataInputStreamGetByteOrder--#endif---- method DataInputStream::get_newline_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DataStreamNewlineType"}))--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_get_newline_type" g_data_input_stream_get_newline_type :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    IO CUInt--{- |-Gets the current newline type for the /@stream@/.--}-dataInputStreamGetNewlineType ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> m Gio.Enums.DataStreamNewlineType-    {- ^ __Returns:__ 'GI.Gio.Enums.DataStreamNewlineType' for the given /@stream@/. -}-dataInputStreamGetNewlineType stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_data_input_stream_get_newline_type stream'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data DataInputStreamGetNewlineTypeMethodInfo-instance (signature ~ (m Gio.Enums.DataStreamNewlineType), MonadIO m, IsDataInputStream a) => O.MethodInfo DataInputStreamGetNewlineTypeMethodInfo a signature where-    overloadedMethod _ = dataInputStreamGetNewlineType--#endif---- method DataInputStream::read_byte--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt8)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_byte" g_data_input_stream_read_byte :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Word8--{- |-Reads an unsigned 8-bit\/1-byte value from /@stream@/.--}-dataInputStreamReadByte ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Word8-    {- ^ __Returns:__ an unsigned 8-bit\/1-byte value read from the /@stream@/ or @0@-if an error occurred. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadByte stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_byte stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadByteMethodInfo-instance (signature ~ (Maybe (b) -> m Word8), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadByteMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadByte--#endif---- method DataInputStream::read_int16--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt16)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_int16" g_data_input_stream_read_int16 :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int16--{- |-Reads a 16-bit\/2-byte value from /@stream@/.--In order to get the correct byte order for this read operation,-see 'GI.Gio.Objects.DataInputStream.dataInputStreamGetByteOrder' and 'GI.Gio.Objects.DataInputStream.dataInputStreamSetByteOrder'.--}-dataInputStreamReadInt16 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Int16-    {- ^ __Returns:__ a signed 16-bit\/2-byte value read from /@stream@/ or @0@ if-an error occurred. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadInt16 stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_int16 stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadInt16MethodInfo-instance (signature ~ (Maybe (b) -> m Int16), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadInt16MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadInt16--#endif---- method DataInputStream::read_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt32)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_int32" g_data_input_stream_read_int32 :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Reads a signed 32-bit\/4-byte value from /@stream@/.--In order to get the correct byte order for this read operation,-see 'GI.Gio.Objects.DataInputStream.dataInputStreamGetByteOrder' and 'GI.Gio.Objects.DataInputStream.dataInputStreamSetByteOrder'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-dataInputStreamReadInt32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Int32-    {- ^ __Returns:__ a signed 32-bit\/4-byte value read from the /@stream@/ or @0@ if-an error occurred. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadInt32 stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_int32 stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadInt32MethodInfo-instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadInt32MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadInt32--#endif---- method DataInputStream::read_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_int64" g_data_input_stream_read_int64 :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Reads a 64-bit\/8-byte value from /@stream@/.--In order to get the correct byte order for this read operation,-see 'GI.Gio.Objects.DataInputStream.dataInputStreamGetByteOrder' and 'GI.Gio.Objects.DataInputStream.dataInputStreamSetByteOrder'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-dataInputStreamReadInt64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Int64-    {- ^ __Returns:__ a signed 64-bit\/8-byte value read from /@stream@/ or @0@ if-an error occurred. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadInt64 stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_int64 stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadInt64MethodInfo-instance (signature ~ (Maybe (b) -> m Int64), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadInt64MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadInt64--#endif---- method DataInputStream::read_line--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the length of the data read in.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUInt8))--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_line" g_data_input_stream_read_line :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)--{- |-Reads a line from the data input stream.  Note that no encoding-checks or conversion is performed; the input is not guaranteed to-be UTF-8, and may in fact have embedded NUL characters.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-dataInputStreamReadLine ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ((Maybe ByteString, Word64))-    {- ^ __Returns:__ - a NUL terminated byte array with the line that was read in- (without the newlines).  Set /@length@/ to a @/gsize/@ to get the length- of the read line.  On an error, it will return 'Nothing' and /@error@/- will be set. If there\'s no content to read, it will still return- 'Nothing', but /@error@/ won\'t be set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadLine stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    length_ <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_line stream' length_ maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- unpackZeroTerminatedByteString result'-            freeMem result'-            return result''-        length_' <- peek length_-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem length_-        return (maybeResult, length_')-     ) (do-        freeMem length_-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadLineMethodInfo-instance (signature ~ (Maybe (b) -> m ((Maybe ByteString, Word64))), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadLineMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLine--#endif---- method DataInputStream::read_line_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_read_line_async" g_data_input_stream_read_line_async :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    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 ()--{- |-The asynchronous version of 'GI.Gio.Objects.DataInputStream.dataInputStreamReadLine'.  It is-an error to have two outstanding calls to this function.--When the operation is finished, /@callback@/ will be called. You-can then call 'GI.Gio.Objects.DataInputStream.dataInputStreamReadLineFinish' to get-the result of the operation.--/Since: 2.20/--}-dataInputStreamReadLineAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied. -}-    -> m ()-dataInputStreamReadLineAsync stream ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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-    g_data_input_stream_read_line_async stream' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data DataInputStreamReadLineAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadLineAsyncMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLineAsync--#endif---- method DataInputStream::read_line_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "the #GAsyncResult that was provided to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the length of the data read in.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUInt8))--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_line_finish" g_data_input_stream_read_line_finish :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Word8)--{- |-Finish an asynchronous call started by-'GI.Gio.Objects.DataInputStream.dataInputStreamReadLineAsync'.  Note the warning about-string encoding in 'GI.Gio.Objects.DataInputStream.dataInputStreamReadLine' applies here as-well.--/Since: 2.20/--}-dataInputStreamReadLineFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' that was provided to the callback. -}-    -> m ((Maybe ByteString, Word64))-    {- ^ __Returns:__ - a NUL-terminated byte array with the line that was read in- (without the newlines).  Set /@length@/ to a @/gsize/@ to get the length- of the read line.  On an error, it will return 'Nothing' and /@error@/- will be set. If there\'s no content to read, it will still return- 'Nothing', but /@error@/ won\'t be set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadLineFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_data_input_stream_read_line_finish stream' result_' length_-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- unpackZeroTerminatedByteString result'-            freeMem result'-            return result''-        length_' <- peek length_-        touchManagedPtr stream-        touchManagedPtr result_-        freeMem length_-        return (maybeResult, length_')-     ) (do-        freeMem length_-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadLineFinishMethodInfo-instance (signature ~ (b -> m ((Maybe ByteString, Word64))), MonadIO m, IsDataInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DataInputStreamReadLineFinishMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLineFinish--#endif---- method DataInputStream::read_line_finish_utf8--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "the #GAsyncResult that was provided to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the length of the data read in.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_line_finish_utf8" g_data_input_stream_read_line_finish_utf8 :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString--{- |-Finish an asynchronous call started by-'GI.Gio.Objects.DataInputStream.dataInputStreamReadLineAsync'.--/Since: 2.30/--}-dataInputStreamReadLineFinishUtf8 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' that was provided to the callback. -}-    -> m ((Maybe T.Text, Word64))-    {- ^ __Returns:__ a string with the line that- was read in (without the newlines).  Set /@length@/ to a @/gsize/@ to- get the length of the read line.  On an error, it will return- 'Nothing' and /@error@/ will be set. For UTF-8 conversion errors, the set- error domain is @/G_CONVERT_ERROR/@.  If there\'s no content to read,- it will still return 'Nothing', but /@error@/ won\'t be set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadLineFinishUtf8 stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_data_input_stream_read_line_finish_utf8 stream' result_' length_-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- cstringToText result'-            freeMem result'-            return result''-        length_' <- peek length_-        touchManagedPtr stream-        touchManagedPtr result_-        freeMem length_-        return (maybeResult, length_')-     ) (do-        freeMem length_-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadLineFinishUtf8MethodInfo-instance (signature ~ (b -> m ((Maybe T.Text, Word64))), MonadIO m, IsDataInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DataInputStreamReadLineFinishUtf8MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLineFinishUtf8--#endif---- method DataInputStream::read_line_utf8--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the length of the data read in.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_line_utf8" g_data_input_stream_read_line_utf8 :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CString--{- |-Reads a UTF-8 encoded line from the data input stream.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--/Since: 2.30/--}-dataInputStreamReadLineUtf8 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ((Maybe T.Text, Word64))-    {- ^ __Returns:__ a NUL terminated UTF-8 string- with the line that was read in (without the newlines).  Set- /@length@/ to a @/gsize/@ to get the length of the read line.  On an- error, it will return 'Nothing' and /@error@/ will be set.  For UTF-8- conversion errors, the set error domain is @/G_CONVERT_ERROR/@.  If- there\'s no content to read, it will still return 'Nothing', but /@error@/- won\'t be set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadLineUtf8 stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    length_ <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_line_utf8 stream' length_ maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- cstringToText result'-            freeMem result'-            return result''-        length_' <- peek length_-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem length_-        return (maybeResult, length_')-     ) (do-        freeMem length_-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadLineUtf8MethodInfo-instance (signature ~ (Maybe (b) -> m ((Maybe T.Text, Word64))), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadLineUtf8MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadLineUtf8--#endif---- method DataInputStream::read_uint16--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_uint16" g_data_input_stream_read_uint16 :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Word16--{- |-Reads an unsigned 16-bit\/2-byte value from /@stream@/.--In order to get the correct byte order for this read operation,-see 'GI.Gio.Objects.DataInputStream.dataInputStreamGetByteOrder' and 'GI.Gio.Objects.DataInputStream.dataInputStreamSetByteOrder'.--}-dataInputStreamReadUint16 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Word16-    {- ^ __Returns:__ an unsigned 16-bit\/2-byte value read from the /@stream@/ or @0@ if-an error occurred. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadUint16 stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_uint16 stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadUint16MethodInfo-instance (signature ~ (Maybe (b) -> m Word16), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadUint16MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUint16--#endif---- method DataInputStream::read_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_uint32" g_data_input_stream_read_uint32 :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Word32--{- |-Reads an unsigned 32-bit\/4-byte value from /@stream@/.--In order to get the correct byte order for this read operation,-see 'GI.Gio.Objects.DataInputStream.dataInputStreamGetByteOrder' and 'GI.Gio.Objects.DataInputStream.dataInputStreamSetByteOrder'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-dataInputStreamReadUint32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Word32-    {- ^ __Returns:__ an unsigned 32-bit\/4-byte value read from the /@stream@/ or @0@ if-an error occurred. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadUint32 stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_uint32 stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadUint32MethodInfo-instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadUint32MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUint32--#endif---- method DataInputStream::read_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_uint64" g_data_input_stream_read_uint64 :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Word64--{- |-Reads an unsigned 64-bit\/8-byte value from /@stream@/.--In order to get the correct byte order for this read operation,-see 'GI.Gio.Objects.DataInputStream.dataInputStreamGetByteOrder'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-dataInputStreamReadUint64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Word64-    {- ^ __Returns:__ an unsigned 64-bit\/8-byte read from /@stream@/ or @0@ if-an error occurred. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadUint64 stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_uint64 stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadUint64MethodInfo-instance (signature ~ (Maybe (b) -> m Word64), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadUint64MethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUint64--#endif---- method DataInputStream::read_until--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "characters to terminate the read.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the length of the data read in.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_until" g_data_input_stream_read_until :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    CString ->                              -- stop_chars : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CString--{-# DEPRECATED dataInputStreamReadUntil ["(Since version 2.56)","Use 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUpto' instead, which has more","    consistent behaviour regarding the stop character."] #-}-{- |-Reads a string from the data input stream, up to the first-occurrence of any of the stop characters.--Note that, in contrast to 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntilAsync',-this function consumes the stop character that it finds.--Don\'t use this function in new code.  Its functionality is-inconsistent with 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntilAsync'.  Both-functions will be marked as deprecated in a future release.  Use-'GI.Gio.Objects.DataInputStream.dataInputStreamReadUpto' instead, but note that that function-does not consume the stop character.--}-dataInputStreamReadUntil ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> T.Text-    {- ^ /@stopChars@/: characters to terminate the read. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ((T.Text, Word64))-    {- ^ __Returns:__ a string with the data that was read-    before encountering any of the stop characters. Set /@length@/ to-    a @/gsize/@ to get the length of the string. This function will-    return 'Nothing' on an error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadUntil stream stopChars cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    stopChars' <- textToCString stopChars-    length_ <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_until stream' stopChars' length_ maybeCancellable-        checkUnexpectedReturnNULL "dataInputStreamReadUntil" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem stopChars'-        freeMem length_-        return (result', length_')-     ) (do-        freeMem stopChars'-        freeMem length_-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadUntilMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m ((T.Text, Word64))), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadUntilMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUntil--#endif---- method DataInputStream::read_until_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "characters to terminate the read.", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied.", 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 "the data to pass to callback function.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_read_until_async" g_data_input_stream_read_until_async :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    CString ->                              -- stop_chars : TBasicType TUTF8-    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 ()--{-# DEPRECATED dataInputStreamReadUntilAsync ["(Since version 2.56)","Use 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUptoAsync' instead, which","    has more consistent behaviour regarding the stop character."] #-}-{- |-The asynchronous version of 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntil'.-It is an error to have two outstanding calls to this function.--Note that, in contrast to 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntil',-this function does not consume the stop character that it finds.  You-must read it for yourself.--When the operation is finished, /@callback@/ will be called. You-can then call 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntilFinish' to get-the result of the operation.--Don\'t use this function in new code.  Its functionality is-inconsistent with 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntil'.  Both functions-will be marked as deprecated in a future release.  Use-'GI.Gio.Objects.DataInputStream.dataInputStreamReadUptoAsync' instead.--/Since: 2.20/--}-dataInputStreamReadUntilAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> T.Text-    {- ^ /@stopChars@/: characters to terminate the read. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied. -}-    -> m ()-dataInputStreamReadUntilAsync stream stopChars ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    stopChars' <- textToCString stopChars-    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-    g_data_input_stream_read_until_async stream' stopChars' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem stopChars'-    return ()--#if ENABLE_OVERLOADING-data DataInputStreamReadUntilAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadUntilAsyncMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUntilAsync--#endif---- method DataInputStream::read_until_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", 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 "the #GAsyncResult that was provided to the callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the length of the data read in.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_until_finish" g_data_input_stream_read_until_finish :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString--{-# DEPRECATED dataInputStreamReadUntilFinish ["(Since version 2.56)","Use 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUptoFinish' instead, which","    has more consistent behaviour regarding the stop character."] #-}-{- |-Finish an asynchronous call started by-'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntilAsync'.--/Since: 2.20/--}-dataInputStreamReadUntilFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' that was provided to the callback. -}-    -> m ((T.Text, Word64))-    {- ^ __Returns:__ a string with the data that was read-    before encountering any of the stop characters. Set /@length@/ to-    a @/gsize/@ to get the length of the string. This function will-    return 'Nothing' on an error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadUntilFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_data_input_stream_read_until_finish stream' result_' length_-        checkUnexpectedReturnNULL "dataInputStreamReadUntilFinish" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr stream-        touchManagedPtr result_-        freeMem length_-        return (result', length_')-     ) (do-        freeMem length_-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadUntilFinishMethodInfo-instance (signature ~ (b -> m ((T.Text, Word64))), MonadIO m, IsDataInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DataInputStreamReadUntilFinishMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUntilFinish--#endif---- method DataInputStream::read_upto--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "characters to terminate the read", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @stop_chars. May be -1 if @stop_chars is\n    nul-terminated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the length of the data read in", 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 "optional #GCancellable object, %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_upto" g_data_input_stream_read_upto :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    CString ->                              -- stop_chars : TBasicType TUTF8-    Int64 ->                                -- stop_chars_len : TBasicType TInt64-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CString--{- |-Reads a string from the data input stream, up to the first-occurrence of any of the stop characters.--In contrast to 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntil', this function-does not consume the stop character. You have to use-'GI.Gio.Objects.DataInputStream.dataInputStreamReadByte' to get it before calling-'GI.Gio.Objects.DataInputStream.dataInputStreamReadUpto' again.--Note that /@stopChars@/ may contain \'\\0\' if /@stopCharsLen@/ is-specified.--The returned string will always be nul-terminated on success.--/Since: 2.26/--}-dataInputStreamReadUpto ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataInputStream.DataInputStream' -}-    -> T.Text-    {- ^ /@stopChars@/: characters to terminate the read -}-    -> Int64-    {- ^ /@stopCharsLen@/: length of /@stopChars@/. May be -1 if /@stopChars@/ is-    nul-terminated -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m ((T.Text, Word64))-    {- ^ __Returns:__ a string with the data that was read-    before encountering any of the stop characters. Set /@length@/ to-    a @/gsize/@ to get the length of the string. This function will-    return 'Nothing' on an error /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadUpto stream stopChars stopCharsLen cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    stopChars' <- textToCString stopChars-    length_ <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_data_input_stream_read_upto stream' stopChars' stopCharsLen length_ maybeCancellable-        checkUnexpectedReturnNULL "dataInputStreamReadUpto" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem stopChars'-        freeMem length_-        return (result', length_')-     ) (do-        freeMem stopChars'-        freeMem length_-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadUptoMethodInfo-instance (signature ~ (T.Text -> Int64 -> Maybe (b) -> m ((T.Text, Word64))), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadUptoMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUpto--#endif---- method DataInputStream::read_upto_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "characters to terminate the read", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @stop_chars. May be -1 if @stop_chars is\n    nul-terminated", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_read_upto_async" g_data_input_stream_read_upto_async :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    CString ->                              -- stop_chars : TBasicType TUTF8-    Int64 ->                                -- stop_chars_len : TBasicType TInt64-    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 ()--{- |-The asynchronous version of 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUpto'.-It is an error to have two outstanding calls to this function.--In contrast to 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUntil', this function-does not consume the stop character. You have to use-'GI.Gio.Objects.DataInputStream.dataInputStreamReadByte' to get it before calling-'GI.Gio.Objects.DataInputStream.dataInputStreamReadUpto' again.--Note that /@stopChars@/ may contain \'\\0\' if /@stopCharsLen@/ is-specified.--When the operation is finished, /@callback@/ will be called. You-can then call 'GI.Gio.Objects.DataInputStream.dataInputStreamReadUptoFinish' to get-the result of the operation.--/Since: 2.26/--}-dataInputStreamReadUptoAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataInputStream.DataInputStream' -}-    -> T.Text-    {- ^ /@stopChars@/: characters to terminate the read -}-    -> Int64-    {- ^ /@stopCharsLen@/: length of /@stopChars@/. May be -1 if /@stopChars@/ is-    nul-terminated -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-dataInputStreamReadUptoAsync stream stopChars stopCharsLen ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    stopChars' <- textToCString stopChars-    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-    g_data_input_stream_read_upto_async stream' stopChars' stopCharsLen ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem stopChars'-    return ()--#if ENABLE_OVERLOADING-data DataInputStreamReadUptoAsyncMethodInfo-instance (signature ~ (T.Text -> Int64 -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsDataInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataInputStreamReadUptoAsyncMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUptoAsync--#endif---- method DataInputStream::read_upto_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataInputStream", 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 "the #GAsyncResult that was provided to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gsize to get the length of the data read in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_data_input_stream_read_upto_finish" g_data_input_stream_read_upto_finish :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CString--{- |-Finish an asynchronous call started by-'GI.Gio.Objects.DataInputStream.dataInputStreamReadUptoAsync'.--Note that this function does not consume the stop character. You-have to use 'GI.Gio.Objects.DataInputStream.dataInputStreamReadByte' to get it before calling-'GI.Gio.Objects.DataInputStream.dataInputStreamReadUptoAsync' again.--The returned string will always be nul-terminated on success.--/Since: 2.24/--}-dataInputStreamReadUptoFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataInputStream.DataInputStream' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' that was provided to the callback -}-    -> m ((T.Text, Word64))-    {- ^ __Returns:__ a string with the data that was read-    before encountering any of the stop characters. Set /@length@/ to-    a @/gsize/@ to get the length of the string. This function will-    return 'Nothing' on an error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataInputStreamReadUptoFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    length_ <- allocMem :: IO (Ptr Word64)-    onException (do-        result <- propagateGError $ g_data_input_stream_read_upto_finish stream' result_' length_-        checkUnexpectedReturnNULL "dataInputStreamReadUptoFinish" result-        result' <- cstringToText result-        freeMem result-        length_' <- peek length_-        touchManagedPtr stream-        touchManagedPtr result_-        freeMem length_-        return (result', length_')-     ) (do-        freeMem length_-     )--#if ENABLE_OVERLOADING-data DataInputStreamReadUptoFinishMethodInfo-instance (signature ~ (b -> m ((T.Text, Word64))), MonadIO m, IsDataInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo DataInputStreamReadUptoFinishMethodInfo a signature where-    overloadedMethod _ = dataInputStreamReadUptoFinish--#endif---- method DataInputStream::set_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a given #GDataInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface (Name {namespace = "Gio", name = "DataStreamByteOrder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataStreamByteOrder to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_set_byte_order" g_data_input_stream_set_byte_order :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    CUInt ->                                -- order : TInterface (Name {namespace = "Gio", name = "DataStreamByteOrder"})-    IO ()--{- |-This function sets the byte order for the given /@stream@/. All subsequent-reads from the /@stream@/ will be read in the given /@order@/.--}-dataInputStreamSetByteOrder ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a) =>-    a-    {- ^ /@stream@/: a given 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Gio.Enums.DataStreamByteOrder-    {- ^ /@order@/: a 'GI.Gio.Enums.DataStreamByteOrder' to set. -}-    -> m ()-dataInputStreamSetByteOrder stream order = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    let order' = (fromIntegral . fromEnum) order-    g_data_input_stream_set_byte_order stream' order'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data DataInputStreamSetByteOrderMethodInfo-instance (signature ~ (Gio.Enums.DataStreamByteOrder -> m ()), MonadIO m, IsDataInputStream a) => O.MethodInfo DataInputStreamSetByteOrderMethodInfo a signature where-    overloadedMethod _ = dataInputStreamSetByteOrder--#endif---- method DataInputStream::set_newline_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "DataStreamNewlineType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of new line return as #GDataStreamNewlineType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_data_input_stream_set_newline_type" g_data_input_stream_set_newline_type :: -    Ptr DataInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "DataInputStream"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "DataStreamNewlineType"})-    IO ()--{- |-Sets the newline type for the /@stream@/.--Note that using G_DATA_STREAM_NEWLINE_TYPE_ANY is slightly unsafe. If a read-chunk ends in \"CR\" we must read an additional byte to know if this is \"CR\" or-\"CR LF\", and this might block if there is no more data available.--}-dataInputStreamSetNewlineType ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataInputStream.DataInputStream'. -}-    -> Gio.Enums.DataStreamNewlineType-    {- ^ /@type@/: the type of new line return as 'GI.Gio.Enums.DataStreamNewlineType'. -}-    -> m ()-dataInputStreamSetNewlineType stream type_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    let type_' = (fromIntegral . fromEnum) type_-    g_data_input_stream_set_newline_type stream' type_'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data DataInputStreamSetNewlineTypeMethodInfo-instance (signature ~ (Gio.Enums.DataStreamNewlineType -> m ()), MonadIO m, IsDataInputStream a) => O.MethodInfo DataInputStreamSetNewlineTypeMethodInfo a signature where-    overloadedMethod _ = dataInputStreamSetNewlineType--#endif--
− GI/Gio/Objects/DataInputStream.hs-boot 
@@ -1,101 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DataInputStream 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 DataInputStream = DataInputStream (ManagedPtr DataInputStream)-instance GObject DataInputStream where-class (GObject o, O.IsDescendantOf DataInputStream o) => IsDataInputStream o-instance (GObject o, O.IsDescendantOf DataInputStream o) => IsDataInputStream o-instance O.HasParentTypes DataInputStream-#if ENABLE_OVERLOADING-data DataInputStreamByteOrderPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamNewlineTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamGetByteOrderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamGetNewlineTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadByteMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadInt16MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadInt32MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadInt64MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadLineMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadLineAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadLineFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadLineFinishUtf8MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadLineUtf8MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUint16MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUint32MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUint64MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUntilMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUntilAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUntilFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUptoMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUptoAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamReadUptoFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamSetByteOrderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataInputStreamSetNewlineTypeMethodInfo-#endif
− GI/Gio/Objects/DataOutputStream.hs 
@@ -1,845 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Data output stream implements 'GI.Gio.Objects.OutputStream.OutputStream' and includes functions for-writing data directly to an output stream.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DataOutputStream-    ( ---- * Exported types-    DataOutputStream(..)                    ,-    IsDataOutputStream                      ,-    toDataOutputStream                      ,-    noDataOutputStream                      ,--- -- * Methods--- ** getByteOrder #method:getByteOrder#--#if ENABLE_OVERLOADING-    DataOutputStreamGetByteOrderMethodInfo  ,-#endif-    dataOutputStreamGetByteOrder            ,----- ** new #method:new#--    dataOutputStreamNew                     ,----- ** putByte #method:putByte#--#if ENABLE_OVERLOADING-    DataOutputStreamPutByteMethodInfo       ,-#endif-    dataOutputStreamPutByte                 ,----- ** putInt16 #method:putInt16#--#if ENABLE_OVERLOADING-    DataOutputStreamPutInt16MethodInfo      ,-#endif-    dataOutputStreamPutInt16                ,----- ** putInt32 #method:putInt32#--#if ENABLE_OVERLOADING-    DataOutputStreamPutInt32MethodInfo      ,-#endif-    dataOutputStreamPutInt32                ,----- ** putInt64 #method:putInt64#--#if ENABLE_OVERLOADING-    DataOutputStreamPutInt64MethodInfo      ,-#endif-    dataOutputStreamPutInt64                ,----- ** putString #method:putString#--#if ENABLE_OVERLOADING-    DataOutputStreamPutStringMethodInfo     ,-#endif-    dataOutputStreamPutString               ,----- ** putUint16 #method:putUint16#--#if ENABLE_OVERLOADING-    DataOutputStreamPutUint16MethodInfo     ,-#endif-    dataOutputStreamPutUint16               ,----- ** putUint32 #method:putUint32#--#if ENABLE_OVERLOADING-    DataOutputStreamPutUint32MethodInfo     ,-#endif-    dataOutputStreamPutUint32               ,----- ** putUint64 #method:putUint64#--#if ENABLE_OVERLOADING-    DataOutputStreamPutUint64MethodInfo     ,-#endif-    dataOutputStreamPutUint64               ,----- ** setByteOrder #method:setByteOrder#--#if ENABLE_OVERLOADING-    DataOutputStreamSetByteOrderMethodInfo  ,-#endif-    dataOutputStreamSetByteOrder            ,----- -- * Properties--- ** byteOrder #attr:byteOrder#-{- | Determines the byte ordering that is used when writing-multi-byte entities (such as integers) to the stream.--}-#if ENABLE_OVERLOADING-    DataOutputStreamByteOrderPropertyInfo   ,-#endif-    constructDataOutputStreamByteOrder      ,-#if ENABLE_OVERLOADING-    dataOutputStreamByteOrder               ,-#endif-    getDataOutputStreamByteOrder            ,-    setDataOutputStreamByteOrder            ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.FilterOutputStream as Gio.FilterOutputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype DataOutputStream = DataOutputStream (ManagedPtr DataOutputStream)-foreign import ccall "g_data_output_stream_get_type"-    c_g_data_output_stream_get_type :: IO GType--instance GObject DataOutputStream where-    gobjectType = c_g_data_output_stream_get_type-    ---- | Type class for types which can be safely cast to `DataOutputStream`, for instance with `toDataOutputStream`.-class (GObject o, O.IsDescendantOf DataOutputStream o) => IsDataOutputStream o-instance (GObject o, O.IsDescendantOf DataOutputStream o) => IsDataOutputStream o--instance O.HasParentTypes DataOutputStream-type instance O.ParentTypes DataOutputStream = '[Gio.FilterOutputStream.FilterOutputStream, Gio.OutputStream.OutputStream, GObject.Object.Object, Gio.Seekable.Seekable]---- | Cast to `DataOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDataOutputStream :: (MonadIO m, IsDataOutputStream o) => o -> m DataOutputStream-toDataOutputStream = liftIO . unsafeCastTo DataOutputStream---- | A convenience alias for `Nothing` :: `Maybe` `DataOutputStream`.-noDataOutputStream :: Maybe DataOutputStream-noDataOutputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveDataOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveDataOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDataOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDataOutputStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveDataOutputStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveDataOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo-    ResolveDataOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo-    ResolveDataOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo-    ResolveDataOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo-    ResolveDataOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo-    ResolveDataOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo-    ResolveDataOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo-    ResolveDataOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDataOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDataOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDataOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo-    ResolveDataOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo-    ResolveDataOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo-    ResolveDataOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDataOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDataOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDataOutputStreamMethod "putByte" o = DataOutputStreamPutByteMethodInfo-    ResolveDataOutputStreamMethod "putInt16" o = DataOutputStreamPutInt16MethodInfo-    ResolveDataOutputStreamMethod "putInt32" o = DataOutputStreamPutInt32MethodInfo-    ResolveDataOutputStreamMethod "putInt64" o = DataOutputStreamPutInt64MethodInfo-    ResolveDataOutputStreamMethod "putString" o = DataOutputStreamPutStringMethodInfo-    ResolveDataOutputStreamMethod "putUint16" o = DataOutputStreamPutUint16MethodInfo-    ResolveDataOutputStreamMethod "putUint32" o = DataOutputStreamPutUint32MethodInfo-    ResolveDataOutputStreamMethod "putUint64" o = DataOutputStreamPutUint64MethodInfo-    ResolveDataOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDataOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDataOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDataOutputStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveDataOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo-    ResolveDataOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo-    ResolveDataOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo-    ResolveDataOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDataOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDataOutputStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveDataOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDataOutputStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveDataOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDataOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDataOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo-    ResolveDataOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo-    ResolveDataOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo-    ResolveDataOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo-    ResolveDataOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo-    ResolveDataOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo-    ResolveDataOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo-    ResolveDataOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo-    ResolveDataOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo-    ResolveDataOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo-    ResolveDataOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo-    ResolveDataOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo-    ResolveDataOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo-    ResolveDataOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo-    ResolveDataOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo-    ResolveDataOutputStreamMethod "getBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamGetBaseStreamMethodInfo-    ResolveDataOutputStreamMethod "getByteOrder" o = DataOutputStreamGetByteOrderMethodInfo-    ResolveDataOutputStreamMethod "getCloseBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamGetCloseBaseStreamMethodInfo-    ResolveDataOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDataOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDataOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDataOutputStreamMethod "setByteOrder" o = DataOutputStreamSetByteOrderMethodInfo-    ResolveDataOutputStreamMethod "setCloseBaseStream" o = Gio.FilterOutputStream.FilterOutputStreamSetCloseBaseStreamMethodInfo-    ResolveDataOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDataOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo-    ResolveDataOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDataOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDataOutputStreamMethod t DataOutputStream, O.MethodInfo info DataOutputStream p) => OL.IsLabel t (DataOutputStream -> 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---- VVV Prop "byte-order"-   -- Type: TInterface (Name {namespace = "Gio", name = "DataStreamByteOrder"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@byte-order@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dataOutputStream #byteOrder-@--}-getDataOutputStreamByteOrder :: (MonadIO m, IsDataOutputStream o) => o -> m Gio.Enums.DataStreamByteOrder-getDataOutputStreamByteOrder obj = liftIO $ B.Properties.getObjectPropertyEnum obj "byte-order"--{- |-Set the value of the “@byte-order@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dataOutputStream [ #byteOrder 'Data.GI.Base.Attributes.:=' value ]-@--}-setDataOutputStreamByteOrder :: (MonadIO m, IsDataOutputStream o) => o -> Gio.Enums.DataStreamByteOrder -> m ()-setDataOutputStreamByteOrder obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "byte-order" val--{- |-Construct a `GValueConstruct` with valid value for the “@byte-order@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDataOutputStreamByteOrder :: (IsDataOutputStream o) => Gio.Enums.DataStreamByteOrder -> IO (GValueConstruct o)-constructDataOutputStreamByteOrder val = B.Properties.constructObjectPropertyEnum "byte-order" val--#if ENABLE_OVERLOADING-data DataOutputStreamByteOrderPropertyInfo-instance AttrInfo DataOutputStreamByteOrderPropertyInfo where-    type AttrAllowedOps DataOutputStreamByteOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DataOutputStreamByteOrderPropertyInfo = (~) Gio.Enums.DataStreamByteOrder-    type AttrBaseTypeConstraint DataOutputStreamByteOrderPropertyInfo = IsDataOutputStream-    type AttrGetType DataOutputStreamByteOrderPropertyInfo = Gio.Enums.DataStreamByteOrder-    type AttrLabel DataOutputStreamByteOrderPropertyInfo = "byte-order"-    type AttrOrigin DataOutputStreamByteOrderPropertyInfo = DataOutputStream-    attrGet _ = getDataOutputStreamByteOrder-    attrSet _ = setDataOutputStreamByteOrder-    attrConstruct _ = constructDataOutputStreamByteOrder-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DataOutputStream-type instance O.AttributeList DataOutputStream = DataOutputStreamAttributeList-type DataOutputStreamAttributeList = ('[ '("baseStream", Gio.FilterOutputStream.FilterOutputStreamBaseStreamPropertyInfo), '("byteOrder", DataOutputStreamByteOrderPropertyInfo), '("closeBaseStream", Gio.FilterOutputStream.FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-dataOutputStreamByteOrder :: AttrLabelProxy "byteOrder"-dataOutputStreamByteOrder = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DataOutputStream = DataOutputStreamSignalList-type DataOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DataOutputStream::new--- method type : Constructor--- Args : [Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DataOutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_data_output_stream_new" g_data_output_stream_new :: -    Ptr Gio.OutputStream.OutputStream ->    -- base_stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    IO (Ptr DataOutputStream)--{- |-Creates a new data output stream for /@baseStream@/.--}-dataOutputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.OutputStream.IsOutputStream a) =>-    a-    {- ^ /@baseStream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> m DataOutputStream-    {- ^ __Returns:__ 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-dataOutputStreamNew baseStream = liftIO $ do-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    result <- g_data_output_stream_new baseStream'-    checkUnexpectedReturnNULL "dataOutputStreamNew" result-    result' <- (wrapObject DataOutputStream) result-    touchManagedPtr baseStream-    return result'--#if ENABLE_OVERLOADING-#endif---- method DataOutputStream::get_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DataStreamByteOrder"}))--- throws : False--- Skip return : False--foreign import ccall "g_data_output_stream_get_byte_order" g_data_output_stream_get_byte_order :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    IO CUInt--{- |-Gets the byte order for the stream.--}-dataOutputStreamGetByteOrder ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> m Gio.Enums.DataStreamByteOrder-    {- ^ __Returns:__ the 'GI.Gio.Enums.DataStreamByteOrder' for the /@stream@/. -}-dataOutputStreamGetByteOrder stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_data_output_stream_get_byte_order stream'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data DataOutputStreamGetByteOrderMethodInfo-instance (signature ~ (m Gio.Enums.DataStreamByteOrder), MonadIO m, IsDataOutputStream a) => O.MethodInfo DataOutputStreamGetByteOrderMethodInfo a signature where-    overloadedMethod _ = dataOutputStreamGetByteOrder--#endif---- method DataOutputStream::put_byte--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #guchar.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_data_output_stream_put_byte" g_data_output_stream_put_byte :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    Word8 ->                                -- data : TBasicType TUInt8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Puts a byte into the output stream.--}-dataOutputStreamPutByte ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> Word8-    {- ^ /@data@/: a @/guchar/@. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataOutputStreamPutByte stream data_ cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_byte stream' data_ maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataOutputStreamPutByteMethodInfo-instance (signature ~ (Word8 -> Maybe (b) -> m ()), MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataOutputStreamPutByteMethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutByte--#endif---- method DataOutputStream::put_int16--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gint16.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_data_output_stream_put_int16" g_data_output_stream_put_int16 :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    Int16 ->                                -- data : TBasicType TInt16-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Puts a signed 16-bit integer into the output stream.--}-dataOutputStreamPutInt16 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> Int16-    {- ^ /@data@/: a @/gint16/@. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataOutputStreamPutInt16 stream data_ cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_int16 stream' data_ maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataOutputStreamPutInt16MethodInfo-instance (signature ~ (Int16 -> Maybe (b) -> m ()), MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataOutputStreamPutInt16MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutInt16--#endif---- method DataOutputStream::put_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gint32.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_data_output_stream_put_int32" g_data_output_stream_put_int32 :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    Int32 ->                                -- data : TBasicType TInt32-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Puts a signed 32-bit integer into the output stream.--}-dataOutputStreamPutInt32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> Int32-    {- ^ /@data@/: a @/gint32/@. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataOutputStreamPutInt32 stream data_ cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_int32 stream' data_ maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataOutputStreamPutInt32MethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> m ()), MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataOutputStreamPutInt32MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutInt32--#endif---- method DataOutputStream::put_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gint64.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_data_output_stream_put_int64" g_data_output_stream_put_int64 :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    Int64 ->                                -- data : TBasicType TInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Puts a signed 64-bit integer into the stream.--}-dataOutputStreamPutInt64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> Int64-    {- ^ /@data@/: a @/gint64/@. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataOutputStreamPutInt64 stream data_ cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_int64 stream' data_ maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataOutputStreamPutInt64MethodInfo-instance (signature ~ (Int64 -> Maybe (b) -> m ()), MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataOutputStreamPutInt64MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutInt64--#endif---- method DataOutputStream::put_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_data_output_stream_put_string" g_data_output_stream_put_string :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    CString ->                              -- str : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Puts a string into the output stream.--}-dataOutputStreamPutString ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> T.Text-    {- ^ /@str@/: a string. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataOutputStreamPutString stream str cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    str' <- textToCString str-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_string stream' str' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem str'-        return ()-     ) (do-        freeMem str'-     )--#if ENABLE_OVERLOADING-data DataOutputStreamPutStringMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataOutputStreamPutStringMethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutString--#endif---- method DataOutputStream::put_uint16--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #guint16.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_data_output_stream_put_uint16" g_data_output_stream_put_uint16 :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    Word16 ->                               -- data : TBasicType TUInt16-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Puts an unsigned 16-bit integer into the output stream.--}-dataOutputStreamPutUint16 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> Word16-    {- ^ /@data@/: a @/guint16/@. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataOutputStreamPutUint16 stream data_ cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_uint16 stream' data_ maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataOutputStreamPutUint16MethodInfo-instance (signature ~ (Word16 -> Maybe (b) -> m ()), MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataOutputStreamPutUint16MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutUint16--#endif---- method DataOutputStream::put_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #guint32.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_data_output_stream_put_uint32" g_data_output_stream_put_uint32 :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    Word32 ->                               -- data : TBasicType TUInt32-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Puts an unsigned 32-bit integer into the stream.--}-dataOutputStreamPutUint32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> Word32-    {- ^ /@data@/: a @/guint32/@. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataOutputStreamPutUint32 stream data_ cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_uint32 stream' data_ maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataOutputStreamPutUint32MethodInfo-instance (signature ~ (Word32 -> Maybe (b) -> m ()), MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataOutputStreamPutUint32MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutUint32--#endif---- method DataOutputStream::put_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #guint64.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_data_output_stream_put_uint64" g_data_output_stream_put_uint64 :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    Word64 ->                               -- data : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Puts an unsigned 64-bit integer into the stream.--}-dataOutputStreamPutUint64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> Word64-    {- ^ /@data@/: a @/guint64/@. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-dataOutputStreamPutUint64 stream data_ cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_data_output_stream_put_uint64 stream' data_ maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data DataOutputStreamPutUint64MethodInfo-instance (signature ~ (Word64 -> Maybe (b) -> m ()), MonadIO m, IsDataOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo DataOutputStreamPutUint64MethodInfo a signature where-    overloadedMethod _ = dataOutputStreamPutUint64--#endif---- method DataOutputStream::set_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "DataOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDataOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface (Name {namespace = "Gio", name = "DataStreamByteOrder"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %GDataStreamByteOrder.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_data_output_stream_set_byte_order" g_data_output_stream_set_byte_order :: -    Ptr DataOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "DataOutputStream"})-    CUInt ->                                -- order : TInterface (Name {namespace = "Gio", name = "DataStreamByteOrder"})-    IO ()--{- |-Sets the byte order of the data output stream to /@order@/.--}-dataOutputStreamSetByteOrder ::-    (B.CallStack.HasCallStack, MonadIO m, IsDataOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.DataOutputStream.DataOutputStream'. -}-    -> Gio.Enums.DataStreamByteOrder-    {- ^ /@order@/: a @/GDataStreamByteOrder/@. -}-    -> m ()-dataOutputStreamSetByteOrder stream order = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    let order' = (fromIntegral . fromEnum) order-    g_data_output_stream_set_byte_order stream' order'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data DataOutputStreamSetByteOrderMethodInfo-instance (signature ~ (Gio.Enums.DataStreamByteOrder -> m ()), MonadIO m, IsDataOutputStream a) => O.MethodInfo DataOutputStreamSetByteOrderMethodInfo a signature where-    overloadedMethod _ = dataOutputStreamSetByteOrder--#endif--
− GI/Gio/Objects/DataOutputStream.hs-boot 
@@ -1,62 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DataOutputStream 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 DataOutputStream = DataOutputStream (ManagedPtr DataOutputStream)-instance GObject DataOutputStream where-class (GObject o, O.IsDescendantOf DataOutputStream o) => IsDataOutputStream o-instance (GObject o, O.IsDescendantOf DataOutputStream o) => IsDataOutputStream o-instance O.HasParentTypes DataOutputStream-#if ENABLE_OVERLOADING-data DataOutputStreamByteOrderPropertyInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamGetByteOrderMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamPutByteMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamPutInt16MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamPutInt32MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamPutInt64MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamPutStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamPutUint16MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamPutUint32MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamPutUint64MethodInfo-#endif-#if ENABLE_OVERLOADING-data DataOutputStreamSetByteOrderMethodInfo-#endif
− GI/Gio/Objects/DesktopAppInfo.hs 
@@ -1,1366 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' is an implementation of 'GI.Gio.Interfaces.AppInfo.AppInfo' based on-desktop files.--Note that @\<gio\/gdesktopappinfo.h>@ belongs to the UNIX-specific-GIO interfaces, thus you have to use the @gio-unix-2.0.pc@ pkg-config-file when using it.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.DesktopAppInfo-    ( -#if ENABLE_OVERLOADING-    DesktopAppInfoLaunchUrisAsManagerMethodInfo,-#endif-#if ENABLE_OVERLOADING-    DesktopAppInfoLaunchUrisAsManagerWithFdsMethodInfo,-#endif---- * Exported types-    DesktopAppInfo(..)                      ,-    IsDesktopAppInfo                        ,-    toDesktopAppInfo                        ,-    noDesktopAppInfo                        ,--- -- * Methods--- ** getActionName #method:getActionName#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetActionNameMethodInfo   ,-#endif-    desktopAppInfoGetActionName             ,----- ** getBoolean #method:getBoolean#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetBooleanMethodInfo      ,-#endif-    desktopAppInfoGetBoolean                ,----- ** getCategories #method:getCategories#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetCategoriesMethodInfo   ,-#endif-    desktopAppInfoGetCategories             ,----- ** getFilename #method:getFilename#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetFilenameMethodInfo     ,-#endif-    desktopAppInfoGetFilename               ,----- ** getGenericName #method:getGenericName#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetGenericNameMethodInfo  ,-#endif-    desktopAppInfoGetGenericName            ,----- ** getImplementations #method:getImplementations#--    desktopAppInfoGetImplementations        ,----- ** getIsHidden #method:getIsHidden#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetIsHiddenMethodInfo     ,-#endif-    desktopAppInfoGetIsHidden               ,----- ** getKeywords #method:getKeywords#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetKeywordsMethodInfo     ,-#endif-    desktopAppInfoGetKeywords               ,----- ** getLocaleString #method:getLocaleString#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetLocaleStringMethodInfo ,-#endif-    desktopAppInfoGetLocaleString           ,----- ** getNodisplay #method:getNodisplay#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetNodisplayMethodInfo    ,-#endif-    desktopAppInfoGetNodisplay              ,----- ** getShowIn #method:getShowIn#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetShowInMethodInfo       ,-#endif-    desktopAppInfoGetShowIn                 ,----- ** getStartupWmClass #method:getStartupWmClass#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetStartupWmClassMethodInfo,-#endif-    desktopAppInfoGetStartupWmClass         ,----- ** getString #method:getString#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetStringMethodInfo       ,-#endif-    desktopAppInfoGetString                 ,----- ** getStringList #method:getStringList#--#if ENABLE_OVERLOADING-    DesktopAppInfoGetStringListMethodInfo   ,-#endif-    desktopAppInfoGetStringList             ,----- ** hasKey #method:hasKey#--#if ENABLE_OVERLOADING-    DesktopAppInfoHasKeyMethodInfo          ,-#endif-    desktopAppInfoHasKey                    ,----- ** launchAction #method:launchAction#--#if ENABLE_OVERLOADING-    DesktopAppInfoLaunchActionMethodInfo    ,-#endif-    desktopAppInfoLaunchAction              ,----- ** listActions #method:listActions#--#if ENABLE_OVERLOADING-    DesktopAppInfoListActionsMethodInfo     ,-#endif-    desktopAppInfoListActions               ,----- ** new #method:new#--    desktopAppInfoNew                       ,----- ** newFromFilename #method:newFromFilename#--    desktopAppInfoNewFromFilename           ,----- ** newFromKeyfile #method:newFromKeyfile#--    desktopAppInfoNewFromKeyfile            ,----- ** search #method:search#--    desktopAppInfoSearch                    ,----- ** setDesktopEnv #method:setDesktopEnv#--    desktopAppInfoSetDesktopEnv             ,----- -- * Properties--- ** filename #attr:filename#-{- | The origin filename of this 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo'--}-#if ENABLE_OVERLOADING-    DesktopAppInfoFilenamePropertyInfo      ,-#endif-    constructDesktopAppInfoFilename         ,-#if ENABLE_OVERLOADING-    desktopAppInfoFilename                  ,-#endif-    getDesktopAppInfoFilename               ,-----    ) 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.KeyFile as GLib.KeyFile-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AppInfo as Gio.AppInfo-import {-# SOURCE #-} qualified GI.Gio.Objects.AppLaunchContext as Gio.AppLaunchContext---- | Memory-managed wrapper type.-newtype DesktopAppInfo = DesktopAppInfo (ManagedPtr DesktopAppInfo)-foreign import ccall "g_desktop_app_info_get_type"-    c_g_desktop_app_info_get_type :: IO GType--instance GObject DesktopAppInfo where-    gobjectType = c_g_desktop_app_info_get_type-    ---- | Type class for types which can be safely cast to `DesktopAppInfo`, for instance with `toDesktopAppInfo`.-class (GObject o, O.IsDescendantOf DesktopAppInfo o) => IsDesktopAppInfo o-instance (GObject o, O.IsDescendantOf DesktopAppInfo o) => IsDesktopAppInfo o--instance O.HasParentTypes DesktopAppInfo-type instance O.ParentTypes DesktopAppInfo = '[GObject.Object.Object, Gio.AppInfo.AppInfo]---- | Cast to `DesktopAppInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toDesktopAppInfo :: (MonadIO m, IsDesktopAppInfo o) => o -> m DesktopAppInfo-toDesktopAppInfo = liftIO . unsafeCastTo DesktopAppInfo---- | A convenience alias for `Nothing` :: `Maybe` `DesktopAppInfo`.-noDesktopAppInfo :: Maybe DesktopAppInfo-noDesktopAppInfo = Nothing--#if ENABLE_OVERLOADING-type family ResolveDesktopAppInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDesktopAppInfoMethod "addSupportsType" o = Gio.AppInfo.AppInfoAddSupportsTypeMethodInfo-    ResolveDesktopAppInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveDesktopAppInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveDesktopAppInfoMethod "canDelete" o = Gio.AppInfo.AppInfoCanDeleteMethodInfo-    ResolveDesktopAppInfoMethod "canRemoveSupportsType" o = Gio.AppInfo.AppInfoCanRemoveSupportsTypeMethodInfo-    ResolveDesktopAppInfoMethod "delete" o = Gio.AppInfo.AppInfoDeleteMethodInfo-    ResolveDesktopAppInfoMethod "dup" o = Gio.AppInfo.AppInfoDupMethodInfo-    ResolveDesktopAppInfoMethod "equal" o = Gio.AppInfo.AppInfoEqualMethodInfo-    ResolveDesktopAppInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveDesktopAppInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveDesktopAppInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveDesktopAppInfoMethod "hasKey" o = DesktopAppInfoHasKeyMethodInfo-    ResolveDesktopAppInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveDesktopAppInfoMethod "launch" o = Gio.AppInfo.AppInfoLaunchMethodInfo-    ResolveDesktopAppInfoMethod "launchAction" o = DesktopAppInfoLaunchActionMethodInfo-    ResolveDesktopAppInfoMethod "launchUris" o = Gio.AppInfo.AppInfoLaunchUrisMethodInfo-    ResolveDesktopAppInfoMethod "launchUrisAsManager" o = DesktopAppInfoLaunchUrisAsManagerMethodInfo-    ResolveDesktopAppInfoMethod "launchUrisAsManagerWithFds" o = DesktopAppInfoLaunchUrisAsManagerWithFdsMethodInfo-    ResolveDesktopAppInfoMethod "launchUrisAsync" o = Gio.AppInfo.AppInfoLaunchUrisAsyncMethodInfo-    ResolveDesktopAppInfoMethod "launchUrisFinish" o = Gio.AppInfo.AppInfoLaunchUrisFinishMethodInfo-    ResolveDesktopAppInfoMethod "listActions" o = DesktopAppInfoListActionsMethodInfo-    ResolveDesktopAppInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveDesktopAppInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveDesktopAppInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveDesktopAppInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveDesktopAppInfoMethod "removeSupportsType" o = Gio.AppInfo.AppInfoRemoveSupportsTypeMethodInfo-    ResolveDesktopAppInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveDesktopAppInfoMethod "shouldShow" o = Gio.AppInfo.AppInfoShouldShowMethodInfo-    ResolveDesktopAppInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveDesktopAppInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveDesktopAppInfoMethod "supportsFiles" o = Gio.AppInfo.AppInfoSupportsFilesMethodInfo-    ResolveDesktopAppInfoMethod "supportsUris" o = Gio.AppInfo.AppInfoSupportsUrisMethodInfo-    ResolveDesktopAppInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveDesktopAppInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveDesktopAppInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveDesktopAppInfoMethod "getActionName" o = DesktopAppInfoGetActionNameMethodInfo-    ResolveDesktopAppInfoMethod "getBoolean" o = DesktopAppInfoGetBooleanMethodInfo-    ResolveDesktopAppInfoMethod "getCategories" o = DesktopAppInfoGetCategoriesMethodInfo-    ResolveDesktopAppInfoMethod "getCommandline" o = Gio.AppInfo.AppInfoGetCommandlineMethodInfo-    ResolveDesktopAppInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveDesktopAppInfoMethod "getDescription" o = Gio.AppInfo.AppInfoGetDescriptionMethodInfo-    ResolveDesktopAppInfoMethod "getDisplayName" o = Gio.AppInfo.AppInfoGetDisplayNameMethodInfo-    ResolveDesktopAppInfoMethod "getExecutable" o = Gio.AppInfo.AppInfoGetExecutableMethodInfo-    ResolveDesktopAppInfoMethod "getFilename" o = DesktopAppInfoGetFilenameMethodInfo-    ResolveDesktopAppInfoMethod "getGenericName" o = DesktopAppInfoGetGenericNameMethodInfo-    ResolveDesktopAppInfoMethod "getIcon" o = Gio.AppInfo.AppInfoGetIconMethodInfo-    ResolveDesktopAppInfoMethod "getId" o = Gio.AppInfo.AppInfoGetIdMethodInfo-    ResolveDesktopAppInfoMethod "getIsHidden" o = DesktopAppInfoGetIsHiddenMethodInfo-    ResolveDesktopAppInfoMethod "getKeywords" o = DesktopAppInfoGetKeywordsMethodInfo-    ResolveDesktopAppInfoMethod "getLocaleString" o = DesktopAppInfoGetLocaleStringMethodInfo-    ResolveDesktopAppInfoMethod "getName" o = Gio.AppInfo.AppInfoGetNameMethodInfo-    ResolveDesktopAppInfoMethod "getNodisplay" o = DesktopAppInfoGetNodisplayMethodInfo-    ResolveDesktopAppInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveDesktopAppInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveDesktopAppInfoMethod "getShowIn" o = DesktopAppInfoGetShowInMethodInfo-    ResolveDesktopAppInfoMethod "getStartupWmClass" o = DesktopAppInfoGetStartupWmClassMethodInfo-    ResolveDesktopAppInfoMethod "getString" o = DesktopAppInfoGetStringMethodInfo-    ResolveDesktopAppInfoMethod "getStringList" o = DesktopAppInfoGetStringListMethodInfo-    ResolveDesktopAppInfoMethod "getSupportedTypes" o = Gio.AppInfo.AppInfoGetSupportedTypesMethodInfo-    ResolveDesktopAppInfoMethod "setAsDefaultForExtension" o = Gio.AppInfo.AppInfoSetAsDefaultForExtensionMethodInfo-    ResolveDesktopAppInfoMethod "setAsDefaultForType" o = Gio.AppInfo.AppInfoSetAsDefaultForTypeMethodInfo-    ResolveDesktopAppInfoMethod "setAsLastUsedForType" o = Gio.AppInfo.AppInfoSetAsLastUsedForTypeMethodInfo-    ResolveDesktopAppInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveDesktopAppInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveDesktopAppInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDesktopAppInfoMethod t DesktopAppInfo, O.MethodInfo info DesktopAppInfo p) => OL.IsLabel t (DesktopAppInfo -> 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---- VVV Prop "filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@filename@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' desktopAppInfo #filename-@--}-getDesktopAppInfoFilename :: (MonadIO m, IsDesktopAppInfo o) => o -> m (Maybe T.Text)-getDesktopAppInfoFilename obj = liftIO $ B.Properties.getObjectPropertyString obj "filename"--{- |-Construct a `GValueConstruct` with valid value for the “@filename@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructDesktopAppInfoFilename :: (IsDesktopAppInfo o) => T.Text -> IO (GValueConstruct o)-constructDesktopAppInfoFilename val = B.Properties.constructObjectPropertyString "filename" (Just val)--#if ENABLE_OVERLOADING-data DesktopAppInfoFilenamePropertyInfo-instance AttrInfo DesktopAppInfoFilenamePropertyInfo where-    type AttrAllowedOps DesktopAppInfoFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DesktopAppInfoFilenamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DesktopAppInfoFilenamePropertyInfo = IsDesktopAppInfo-    type AttrGetType DesktopAppInfoFilenamePropertyInfo = (Maybe T.Text)-    type AttrLabel DesktopAppInfoFilenamePropertyInfo = "filename"-    type AttrOrigin DesktopAppInfoFilenamePropertyInfo = DesktopAppInfo-    attrGet _ = getDesktopAppInfoFilename-    attrSet _ = undefined-    attrConstruct _ = constructDesktopAppInfoFilename-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList DesktopAppInfo-type instance O.AttributeList DesktopAppInfo = DesktopAppInfoAttributeList-type DesktopAppInfoAttributeList = ('[ '("filename", DesktopAppInfoFilenamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-desktopAppInfoFilename :: AttrLabelProxy "filename"-desktopAppInfoFilename = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList DesktopAppInfo = DesktopAppInfoSignalList-type DesktopAppInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method DesktopAppInfo::new--- method type : Constructor--- Args : [Arg {argCName = "desktop_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the desktop file id", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_new" g_desktop_app_info_new :: -    CString ->                              -- desktop_id : TBasicType TUTF8-    IO (Ptr DesktopAppInfo)--{- |-Creates a new 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' based on a desktop file id.--A desktop file id is the basename of the desktop file, including the-.desktop extension. GIO is looking for a desktop file with this name-in the @applications@ subdirectories of the XDG-data directories (i.e. the directories specified in the @XDG_DATA_HOME@-and @XDG_DATA_DIRS@ environment variables). GIO also supports the-prefix-to-subdirectory mapping that is described in the-<http://standards.freedesktop.org/menu-spec/latest/ Menu Spec>-(i.e. a desktop id of kde-foo.desktop will match-@\/usr\/share\/applications\/kde\/foo.desktop@).--}-desktopAppInfoNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@desktopId@/: the desktop file id -}-    -> m (Maybe DesktopAppInfo)-    {- ^ __Returns:__ a new 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo', or 'Nothing' if no desktop-    file with that id exists. -}-desktopAppInfoNew desktopId = liftIO $ do-    desktopId' <- textToCString desktopId-    result <- g_desktop_app_info_new desktopId'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject DesktopAppInfo) result'-        return result''-    freeMem desktopId'-    return maybeResult--#if ENABLE_OVERLOADING-#endif---- method DesktopAppInfo::new_from_filename--- method type : Constructor--- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path of a desktop file, in the GLib\n     filename encoding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_new_from_filename" g_desktop_app_info_new_from_filename :: -    CString ->                              -- filename : TBasicType TFileName-    IO (Ptr DesktopAppInfo)--{- |-Creates a new 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo'.--}-desktopAppInfoNewFromFilename ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@filename@/: the path of a desktop file, in the GLib-     filename encoding -}-    -> m (Maybe DesktopAppInfo)-    {- ^ __Returns:__ a new 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' or 'Nothing' on error. -}-desktopAppInfoNewFromFilename filename = liftIO $ do-    filename' <- stringToCString filename-    result <- g_desktop_app_info_new_from_filename filename'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject DesktopAppInfo) result'-        return result''-    freeMem filename'-    return maybeResult--#if ENABLE_OVERLOADING-#endif---- method DesktopAppInfo::new_from_keyfile--- method type : Constructor--- Args : [Arg {argCName = "key_file", argType = TInterface (Name {namespace = "GLib", name = "KeyFile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an opened #GKeyFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_new_from_keyfile" g_desktop_app_info_new_from_keyfile :: -    Ptr GLib.KeyFile.KeyFile ->             -- key_file : TInterface (Name {namespace = "GLib", name = "KeyFile"})-    IO (Ptr DesktopAppInfo)--{- |-Creates a new 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo'.--/Since: 2.18/--}-desktopAppInfoNewFromKeyfile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GLib.KeyFile.KeyFile-    {- ^ /@keyFile@/: an opened 'GI.GLib.Structs.KeyFile.KeyFile' -}-    -> m (Maybe DesktopAppInfo)-    {- ^ __Returns:__ a new 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' or 'Nothing' on error. -}-desktopAppInfoNewFromKeyfile keyFile = liftIO $ do-    keyFile' <- unsafeManagedPtrGetPtr keyFile-    result <- g_desktop_app_info_new_from_keyfile keyFile'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject DesktopAppInfo) result'-        return result''-    touchManagedPtr keyFile-    return maybeResult--#if ENABLE_OVERLOADING-#endif---- method DesktopAppInfo::get_action_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action as from\n  g_desktop_app_info_list_actions()", 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 "g_desktop_app_info_get_action_name" g_desktop_app_info_get_action_name :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO CString--{- |-Gets the user-visible display name of the \"additional application-action\" specified by /@actionName@/.--This corresponds to the \"Name\" key within the keyfile group for the-action.--/Since: 2.38/--}-desktopAppInfoGetActionName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action as from-  'GI.Gio.Objects.DesktopAppInfo.desktopAppInfoListActions' -}-    -> m T.Text-    {- ^ __Returns:__ the locale-specific action name -}-desktopAppInfoGetActionName info actionName = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    actionName' <- textToCString actionName-    result <- g_desktop_app_info_get_action_name info' actionName'-    checkUnexpectedReturnNULL "desktopAppInfoGetActionName" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr info-    freeMem actionName'-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetActionNameMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetActionNameMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetActionName--#endif---- method DesktopAppInfo::get_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", 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 "the key to look up", 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 "g_desktop_app_info_get_boolean" g_desktop_app_info_get_boolean :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    CString ->                              -- key : TBasicType TUTF8-    IO CInt--{- |-Looks up a boolean value in the keyfile backing /@info@/.--The /@key@/ is looked up in the \"Desktop Entry\" group.--/Since: 2.36/--}-desktopAppInfoGetBoolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> T.Text-    {- ^ /@key@/: the key to look up -}-    -> m Bool-    {- ^ __Returns:__ the boolean value, or 'False' if the key-    is not found -}-desktopAppInfoGetBoolean info key = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    key' <- textToCString key-    result <- g_desktop_app_info_get_boolean info' key'-    let result' = (/= 0) result-    touchManagedPtr info-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetBooleanMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetBooleanMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetBoolean--#endif---- method DesktopAppInfo::get_categories--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", 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 "g_desktop_app_info_get_categories" g_desktop_app_info_get_categories :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    IO CString--{- |-Gets the categories from the desktop file.--}-desktopAppInfoGetCategories ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> m T.Text-    {- ^ __Returns:__ The unparsed Categories key from the desktop file;-    i.e. no attempt is made to split it by \';\' or validate it. -}-desktopAppInfoGetCategories info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_desktop_app_info_get_categories info'-    checkUnexpectedReturnNULL "desktopAppInfoGetCategories" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetCategoriesMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetCategoriesMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetCategories--#endif---- method DesktopAppInfo::get_filename--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_get_filename" g_desktop_app_info_get_filename :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    IO CString--{- |-When /@info@/ was created from a known filename, return it.  In some-situations such as the 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' returned from-'GI.Gio.Objects.DesktopAppInfo.desktopAppInfoNewFromKeyfile', this function will return 'Nothing'.--/Since: 2.24/--}-desktopAppInfoGetFilename ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> m [Char]-    {- ^ __Returns:__ The full path to the file for /@info@/,-    or 'Nothing' if not known. -}-desktopAppInfoGetFilename info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_desktop_app_info_get_filename info'-    checkUnexpectedReturnNULL "desktopAppInfoGetFilename" result-    result' <- cstringToString result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetFilenameMethodInfo-instance (signature ~ (m [Char]), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetFilenameMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetFilename--#endif---- method DesktopAppInfo::get_generic_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", 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 "g_desktop_app_info_get_generic_name" g_desktop_app_info_get_generic_name :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    IO CString--{- |-Gets the generic name from the destkop file.--}-desktopAppInfoGetGenericName ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> m T.Text-    {- ^ __Returns:__ The value of the GenericName key -}-desktopAppInfoGetGenericName info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_desktop_app_info_get_generic_name info'-    checkUnexpectedReturnNULL "desktopAppInfoGetGenericName" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetGenericNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetGenericNameMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetGenericName--#endif---- method DesktopAppInfo::get_is_hidden--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo.", 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 "g_desktop_app_info_get_is_hidden" g_desktop_app_info_get_is_hidden :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    IO CInt--{- |-A desktop file is hidden if the Hidden key in it is-set to True.--}-desktopAppInfoGetIsHidden ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if hidden, 'False' otherwise. -}-desktopAppInfoGetIsHidden info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_desktop_app_info_get_is_hidden info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetIsHiddenMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetIsHiddenMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetIsHidden--#endif---- method DesktopAppInfo::get_keywords--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_get_keywords" g_desktop_app_info_get_keywords :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    IO (Ptr CString)--{- |-Gets the keywords from the desktop file.--/Since: 2.32/--}-desktopAppInfoGetKeywords ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> m [T.Text]-    {- ^ __Returns:__ The value of the Keywords key -}-desktopAppInfoGetKeywords info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_desktop_app_info_get_keywords info'-    checkUnexpectedReturnNULL "desktopAppInfoGetKeywords" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetKeywordsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetKeywordsMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetKeywords--#endif---- method DesktopAppInfo::get_locale_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", 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 "the key to look up", 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 "g_desktop_app_info_get_locale_string" g_desktop_app_info_get_locale_string :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    CString ->                              -- key : TBasicType TUTF8-    IO CString--{- |-Looks up a localized string value in the keyfile backing /@info@/-translated to the current locale.--The /@key@/ is looked up in the \"Desktop Entry\" group.--/Since: 2.56/--}-desktopAppInfoGetLocaleString ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> T.Text-    {- ^ /@key@/: the key to look up -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ a newly allocated string, or 'Nothing' if the key-    is not found -}-desktopAppInfoGetLocaleString info key = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    key' <- textToCString key-    result <- g_desktop_app_info_get_locale_string info' key'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr info-    freeMem key'-    return maybeResult--#if ENABLE_OVERLOADING-data DesktopAppInfoGetLocaleStringMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetLocaleStringMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetLocaleString--#endif---- method DesktopAppInfo::get_nodisplay--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", 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 "g_desktop_app_info_get_nodisplay" g_desktop_app_info_get_nodisplay :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    IO CInt--{- |-Gets the value of the NoDisplay key, which helps determine if the-application info should be shown in menus. See-'GI.GLib.Constants.KEY_FILE_DESKTOP_KEY_NO_DISPLAY' and 'GI.Gio.Interfaces.AppInfo.appInfoShouldShow'.--/Since: 2.30/--}-desktopAppInfoGetNodisplay ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> m Bool-    {- ^ __Returns:__ The value of the NoDisplay key -}-desktopAppInfoGetNodisplay info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_desktop_app_info_get_nodisplay info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetNodisplayMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetNodisplayMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetNodisplay--#endif---- method DesktopAppInfo::get_show_in--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a string specifying a desktop name", 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 "g_desktop_app_info_get_show_in" g_desktop_app_info_get_show_in :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    CString ->                              -- desktop_env : TBasicType TUTF8-    IO CInt--{- |-Checks if the application info should be shown in menus that list available-applications for a specific name of the desktop, based on the-@OnlyShowIn@ and @NotShowIn@ keys.--/@desktopEnv@/ should typically be given as 'Nothing', in which case the-@XDG_CURRENT_DESKTOP@ environment variable is consulted.  If you want-to override the default mechanism then you may specify /@desktopEnv@/,-but this is not recommended.--Note that 'GI.Gio.Interfaces.AppInfo.appInfoShouldShow' for /@info@/ will include this check (with-'Nothing' for /@desktopEnv@/) as well as additional checks.--/Since: 2.30/--}-desktopAppInfoGetShowIn ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> Maybe (T.Text)-    {- ^ /@desktopEnv@/: a string specifying a desktop name -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@info@/ should be shown in /@desktopEnv@/ according to the-@OnlyShowIn@ and @NotShowIn@ keys, 'False'-otherwise. -}-desktopAppInfoGetShowIn info desktopEnv = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    maybeDesktopEnv <- case desktopEnv of-        Nothing -> return nullPtr-        Just jDesktopEnv -> do-            jDesktopEnv' <- textToCString jDesktopEnv-            return jDesktopEnv'-    result <- g_desktop_app_info_get_show_in info' maybeDesktopEnv-    let result' = (/= 0) result-    touchManagedPtr info-    freeMem maybeDesktopEnv-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetShowInMethodInfo-instance (signature ~ (Maybe (T.Text) -> m Bool), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetShowInMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetShowIn--#endif---- method DesktopAppInfo::get_startup_wm_class--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo that supports startup notify", 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 "g_desktop_app_info_get_startup_wm_class" g_desktop_app_info_get_startup_wm_class :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    IO CString--{- |-Retrieves the StartupWMClass field from /@info@/. This represents the-WM_CLASS property of the main window of the application, if launched-through /@info@/.--/Since: 2.34/--}-desktopAppInfoGetStartupWmClass ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' that supports startup notify -}-    -> m T.Text-    {- ^ __Returns:__ the startup WM class, or 'Nothing' if none is set-in the desktop file. -}-desktopAppInfoGetStartupWmClass info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_desktop_app_info_get_startup_wm_class info'-    checkUnexpectedReturnNULL "desktopAppInfoGetStartupWmClass" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetStartupWmClassMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetStartupWmClassMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetStartupWmClass--#endif---- method DesktopAppInfo::get_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", 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 "the key to look up", 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 "g_desktop_app_info_get_string" g_desktop_app_info_get_string :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    CString ->                              -- key : TBasicType TUTF8-    IO CString--{- |-Looks up a string value in the keyfile backing /@info@/.--The /@key@/ is looked up in the \"Desktop Entry\" group.--/Since: 2.36/--}-desktopAppInfoGetString ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> T.Text-    {- ^ /@key@/: the key to look up -}-    -> m T.Text-    {- ^ __Returns:__ a newly allocated string, or 'Nothing' if the key-    is not found -}-desktopAppInfoGetString info key = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    key' <- textToCString key-    result <- g_desktop_app_info_get_string info' key'-    checkUnexpectedReturnNULL "desktopAppInfoGetString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr info-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoGetStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetStringMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetString--#endif---- method DesktopAppInfo::get_string_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", 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 "the key to look up", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the number of returned strings, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TCArray True (-1) 2 (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_get_string_list" g_desktop_app_info_get_string_list :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    CString ->                              -- key : TBasicType TUTF8-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    IO (Ptr CString)--{- |-Looks up a string list value in the keyfile backing /@info@/.--The /@key@/ is looked up in the \"Desktop Entry\" group.--/Since: 2.60.0/--}-desktopAppInfoGetStringList ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> T.Text-    {- ^ /@key@/: the key to look up -}-    -> m (([T.Text], Word64))-    {- ^ __Returns:__ - a 'Nothing'-terminated string array or 'Nothing' if the specified- key cannot be found. The array should be freed with 'GI.GLib.Functions.strfreev'. -}-desktopAppInfoGetStringList info key = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    key' <- textToCString key-    length_ <- allocMem :: IO (Ptr Word64)-    result <- g_desktop_app_info_get_string_list info' key' length_-    checkUnexpectedReturnNULL "desktopAppInfoGetStringList" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    length_' <- peek length_-    touchManagedPtr info-    freeMem key'-    freeMem length_-    return (result', length_')--#if ENABLE_OVERLOADING-data DesktopAppInfoGetStringListMethodInfo-instance (signature ~ (T.Text -> m (([T.Text], Word64))), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoGetStringListMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoGetStringList--#endif---- method DesktopAppInfo::has_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", 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 "the key to look up", 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 "g_desktop_app_info_has_key" g_desktop_app_info_has_key :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    CString ->                              -- key : TBasicType TUTF8-    IO CInt--{- |-Returns whether /@key@/ exists in the \"Desktop Entry\" group-of the keyfile backing /@info@/.--/Since: 2.36/--}-desktopAppInfoHasKey ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> T.Text-    {- ^ /@key@/: the key to look up -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@key@/ exists -}-desktopAppInfoHasKey info key = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    key' <- textToCString key-    result <- g_desktop_app_info_has_key info' key'-    let result' = (/= 0) result-    touchManagedPtr info-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoHasKeyMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoHasKeyMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoHasKey--#endif---- method DesktopAppInfo::launch_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action as from\n  g_desktop_app_info_list_actions()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface (Name {namespace = "Gio", name = "AppLaunchContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAppLaunchContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_launch_action" g_desktop_app_info_launch_action :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    CString ->                              -- action_name : TBasicType TUTF8-    Ptr Gio.AppLaunchContext.AppLaunchContext -> -- launch_context : TInterface (Name {namespace = "Gio", name = "AppLaunchContext"})-    IO ()--{- |-Activates the named application action.--You may only call this function on action names that were-returned from 'GI.Gio.Objects.DesktopAppInfo.desktopAppInfoListActions'.--Note that if the main entry of the desktop file indicates that the-application supports startup notification, and /@launchContext@/ is-non-'Nothing', then startup notification will be used when activating the-action (and as such, invocation of the action on the receiving side-must signal the end of startup notification when it is completed).-This is the expected behaviour of applications declaring additional-actions, as per the desktop file specification.--As with 'GI.Gio.Interfaces.AppInfo.appInfoLaunch' there is no way to detect failures that-occur while using this function.--/Since: 2.38/--}-desktopAppInfoLaunchAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a, Gio.AppLaunchContext.IsAppLaunchContext b) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action as from-  'GI.Gio.Objects.DesktopAppInfo.desktopAppInfoListActions' -}-    -> Maybe (b)-    {- ^ /@launchContext@/: a 'GI.Gio.Objects.AppLaunchContext.AppLaunchContext' -}-    -> m ()-desktopAppInfoLaunchAction info actionName launchContext = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    actionName' <- textToCString actionName-    maybeLaunchContext <- case launchContext of-        Nothing -> return nullPtr-        Just jLaunchContext -> do-            jLaunchContext' <- unsafeManagedPtrCastPtr jLaunchContext-            return jLaunchContext'-    g_desktop_app_info_launch_action info' actionName' maybeLaunchContext-    touchManagedPtr info-    whenJust launchContext touchManagedPtr-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data DesktopAppInfoLaunchActionMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, IsDesktopAppInfo a, Gio.AppLaunchContext.IsAppLaunchContext b) => O.MethodInfo DesktopAppInfoLaunchActionMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoLaunchAction--#endif---- XXX Could not generate method DesktopAppInfo::launch_uris_as_manager--- Error was : Bad introspection data: "Closure not found! Callable\n  { returnType = Just (TBasicType TBoolean)\n  , returnMayBeNull = False\n  , returnTransfer = TransferNothing\n  , returnDocumentation =\n      Documentation\n        { rawDocText = Just \"%TRUE on successful launch, %FALSE otherwise.\"\n        , sinceVersion = Nothing\n        }\n  , args =\n      [ Arg\n          { argCName = \"appinfo\"\n          , argType =\n              TInterface Name { namespace = \"Gio\" , name = \"DesktopAppInfo\" }\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"a #GDesktopAppInfo\" , sinceVersion = Nothing }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"uris\"\n          , argType = TGList (TBasicType TUTF8)\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"List of URIs\" , sinceVersion = Nothing }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"launch_context\"\n          , argType =\n              TInterface Name { namespace = \"Gio\" , name = \"AppLaunchContext\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"a #GAppLaunchContext\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"spawn_flags\"\n          , argType =\n              TInterface Name { namespace = \"GLib\" , name = \"SpawnFlags\" }\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"#GSpawnFlags, used for each process\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"user_setup\"\n          , argType =\n              TInterface\n                Name { namespace = \"GLib\" , name = \"SpawnChildSetupFunc\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just \"a #GSpawnChildSetupFunc, used once\\n    for each process.\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeAsync\n          , argClosure = 5\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"user_setup_data\"\n          , argType = TBasicType TPtr\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"User data for @user_setup\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = 4\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"pid_callback\"\n          , argType =\n              TInterface\n                Name { namespace = \"Gio\" , name = \"DesktopAppLaunchCallback\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"Callback for child processes\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeCall\n          , argClosure = 7\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"pid_callback_data\"\n          , argType = TBasicType TPtr\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"User data for @callback\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = 6\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      ]\n  , skipReturn = False\n  , callableThrows = True\n  , callableDeprecated = Nothing\n  , callableDocumentation =\n      Documentation\n        { rawDocText =\n            Just\n              \"This function performs the equivalent of g_app_info_launch_uris(),\\nbut is intended primarily for operating system components that\\nlaunch applications.  Ordinary applications should use\\ng_app_info_launch_uris().\\n\\nIf the application is launched via GSpawn, then @spawn_flags, @user_setup\\nand @user_setup_data are used for the call to g_spawn_async().\\nAdditionally, @pid_callback (with @pid_callback_data) will be called to\\ninform about the PID of the created process. See g_spawn_async_with_pipes()\\nfor information on certain parameter conditions that can enable an\\noptimized posix_spawn() codepath to be used.\\n\\nIf application launching occurs via some other mechanism (eg: D-Bus\\nactivation) then @spawn_flags, @user_setup, @user_setup_data,\\n@pid_callback and @pid_callback_data are ignored.\"\n        , sinceVersion = Nothing\n        }\n  }\nfromList\n  [ ( 5\n    , Arg\n        { argCName = \"user_setup\"\n        , argType =\n            TInterface\n              Name { namespace = \"GLib\" , name = \"SpawnChildSetupFunc\" }\n        , direction = DirectionIn\n        , mayBeNull = True\n        , argDoc =\n            Documentation\n              { rawDocText =\n                  Just \"a #GSpawnChildSetupFunc, used once\\n    for each process.\"\n              , sinceVersion = Nothing\n              }\n        , argScope = ScopeTypeAsync\n        , argClosure = 5\n        , argDestroy = -1\n        , argCallerAllocates = False\n        , transfer = TransferNothing\n        }\n    )\n  , ( 7\n    , Arg\n        { argCName = \"pid_callback\"\n        , argType =\n            TInterface\n              Name { namespace = \"Gio\" , name = \"DesktopAppLaunchCallback\" }\n        , direction = DirectionIn\n        , mayBeNull = True\n        , argDoc =\n            Documentation\n              { rawDocText = Just \"Callback for child processes\"\n              , sinceVersion = Nothing\n              }\n        , argScope = ScopeTypeCall\n        , argClosure = 7\n        , argDestroy = -1\n        , argCallerAllocates = False\n        , transfer = TransferNothing\n        }\n    )\n  ]\n4"-#if ENABLE_OVERLOADING--- XXX: Dummy instance, since code generation failed.--- Please file a bug at http://github.com/haskell-gi/haskell-gi.-data DesktopAppInfoLaunchUrisAsManagerMethodInfo-instance (p ~ (), o ~ O.MethodResolutionFailed "launchUrisAsManager" DesktopAppInfo) => O.MethodInfo DesktopAppInfoLaunchUrisAsManagerMethodInfo o p where-    overloadedMethod _ = undefined-#endif---- XXX Could not generate method DesktopAppInfo::launch_uris_as_manager_with_fds--- Error was : Bad introspection data: "Closure not found! Callable\n  { returnType = Just (TBasicType TBoolean)\n  , returnMayBeNull = False\n  , returnTransfer = TransferNothing\n  , returnDocumentation =\n      Documentation\n        { rawDocText = Just \"%TRUE on successful launch, %FALSE otherwise.\"\n        , sinceVersion = Nothing\n        }\n  , args =\n      [ Arg\n          { argCName = \"appinfo\"\n          , argType =\n              TInterface Name { namespace = \"Gio\" , name = \"DesktopAppInfo\" }\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"a #GDesktopAppInfo\" , sinceVersion = Nothing }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"uris\"\n          , argType = TGList (TBasicType TUTF8)\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"List of URIs\" , sinceVersion = Nothing }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"launch_context\"\n          , argType =\n              TInterface Name { namespace = \"Gio\" , name = \"AppLaunchContext\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"a #GAppLaunchContext\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"spawn_flags\"\n          , argType =\n              TInterface Name { namespace = \"GLib\" , name = \"SpawnFlags\" }\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"#GSpawnFlags, used for each process\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"user_setup\"\n          , argType =\n              TInterface\n                Name { namespace = \"GLib\" , name = \"SpawnChildSetupFunc\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just \"a #GSpawnChildSetupFunc, used once\\n    for each process.\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeAsync\n          , argClosure = 5\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"user_setup_data\"\n          , argType = TBasicType TPtr\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"User data for @user_setup\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = 4\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"pid_callback\"\n          , argType =\n              TInterface\n                Name { namespace = \"Gio\" , name = \"DesktopAppLaunchCallback\" }\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"Callback for child processes\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeCall\n          , argClosure = 7\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"pid_callback_data\"\n          , argType = TBasicType TPtr\n          , direction = DirectionIn\n          , mayBeNull = True\n          , argDoc =\n              Documentation\n                { rawDocText = Just \"User data for @callback\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = 6\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"stdin_fd\"\n          , argType = TBasicType TInt\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just \"file descriptor to use for child's stdin, or -1\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"stdout_fd\"\n          , argType = TBasicType TInt\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just \"file descriptor to use for child's stdout, or -1\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      , Arg\n          { argCName = \"stderr_fd\"\n          , argType = TBasicType TInt\n          , direction = DirectionIn\n          , mayBeNull = False\n          , argDoc =\n              Documentation\n                { rawDocText =\n                    Just \"file descriptor to use for child's stderr, or -1\"\n                , sinceVersion = Nothing\n                }\n          , argScope = ScopeTypeInvalid\n          , argClosure = -1\n          , argDestroy = -1\n          , argCallerAllocates = False\n          , transfer = TransferNothing\n          }\n      ]\n  , skipReturn = False\n  , callableThrows = True\n  , callableDeprecated = Nothing\n  , callableDocumentation =\n      Documentation\n        { rawDocText =\n            Just\n              \"Equivalent to g_desktop_app_info_launch_uris_as_manager() but allows\\nyou to pass in file descriptors for the stdin, stdout and stderr streams\\nof the launched process.\\n\\nIf application launching occurs via some non-spawn mechanism (e.g. D-Bus\\nactivation) then @stdin_fd, @stdout_fd and @stderr_fd are ignored.\"\n        , sinceVersion = Just \"2.58\"\n        }\n  }\nfromList\n  [ ( 5\n    , Arg\n        { argCName = \"user_setup\"\n        , argType =\n            TInterface\n              Name { namespace = \"GLib\" , name = \"SpawnChildSetupFunc\" }\n        , direction = DirectionIn\n        , mayBeNull = True\n        , argDoc =\n            Documentation\n              { rawDocText =\n                  Just \"a #GSpawnChildSetupFunc, used once\\n    for each process.\"\n              , sinceVersion = Nothing\n              }\n        , argScope = ScopeTypeAsync\n        , argClosure = 5\n        , argDestroy = -1\n        , argCallerAllocates = False\n        , transfer = TransferNothing\n        }\n    )\n  , ( 7\n    , Arg\n        { argCName = \"pid_callback\"\n        , argType =\n            TInterface\n              Name { namespace = \"Gio\" , name = \"DesktopAppLaunchCallback\" }\n        , direction = DirectionIn\n        , mayBeNull = True\n        , argDoc =\n            Documentation\n              { rawDocText = Just \"Callback for child processes\"\n              , sinceVersion = Nothing\n              }\n        , argScope = ScopeTypeCall\n        , argClosure = 7\n        , argDestroy = -1\n        , argCallerAllocates = False\n        , transfer = TransferNothing\n        }\n    )\n  ]\n4"-#if ENABLE_OVERLOADING--- XXX: Dummy instance, since code generation failed.--- Please file a bug at http://github.com/haskell-gi/haskell-gi.-data DesktopAppInfoLaunchUrisAsManagerWithFdsMethodInfo-instance (p ~ (), o ~ O.MethodResolutionFailed "launchUrisAsManagerWithFds" DesktopAppInfo) => O.MethodInfo DesktopAppInfoLaunchUrisAsManagerWithFdsMethodInfo o p where-    overloadedMethod _ = undefined-#endif---- method DesktopAppInfo::list_actions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDesktopAppInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_list_actions" g_desktop_app_info_list_actions :: -    Ptr DesktopAppInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})-    IO (Ptr CString)--{- |-Returns the list of \"additional application actions\" supported on the-desktop file, as per the desktop file specification.--As per the specification, this is the list of actions that are-explicitly listed in the \"Actions\" key of the [Desktop Entry] group.--/Since: 2.38/--}-desktopAppInfoListActions ::-    (B.CallStack.HasCallStack, MonadIO m, IsDesktopAppInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo' -}-    -> m [T.Text]-    {- ^ __Returns:__ a list of strings, always non-'Nothing' -}-desktopAppInfoListActions info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_desktop_app_info_list_actions info'-    checkUnexpectedReturnNULL "desktopAppInfoListActions" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DesktopAppInfoListActionsMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsDesktopAppInfo a) => O.MethodInfo DesktopAppInfoListActionsMethodInfo a signature where-    overloadedMethod _ = desktopAppInfoListActions--#endif---- method DesktopAppInfo::get_implementations--- method type : MemberFunction--- Args : [Arg {argCName = "interface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the interface", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "DesktopAppInfo"})))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_get_implementations" g_desktop_app_info_get_implementations :: -    CString ->                              -- interface : TBasicType TUTF8-    IO (Ptr (GList (Ptr DesktopAppInfo)))--{- |-Gets all applications that implement /@interface@/.--An application implements an interface if that interface is listed in-the Implements= line of the desktop file of the application.--/Since: 2.42/--}-desktopAppInfoGetImplementations ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@interface@/: the name of the interface -}-    -> m [DesktopAppInfo]-    {- ^ __Returns:__ a list of 'GI.Gio.Objects.DesktopAppInfo.DesktopAppInfo'-objects. -}-desktopAppInfoGetImplementations interface = liftIO $ do-    interface' <- textToCString interface-    result <- g_desktop_app_info_get_implementations interface'-    result' <- unpackGList result-    result'' <- mapM (wrapObject DesktopAppInfo) result'-    g_list_free result-    freeMem interface'-    return result''--#if ENABLE_OVERLOADING-#endif---- method DesktopAppInfo::search--- method type : MemberFunction--- Args : [Arg {argCName = "search_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the search string to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TCArray True (-1) (-1) (TBasicType TUTF8)))--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_search" g_desktop_app_info_search :: -    CString ->                              -- search_string : TBasicType TUTF8-    IO (Ptr (Ptr CString))--{- |-Searches desktop files for ones that match /@searchString@/.--The return value is an array of strvs.  Each strv contains a list of-applications that matched /@searchString@/ with an equal score.  The-outer list is sorted by score so that the first strv contains the-best-matching applications, and so on.-The algorithm for determining matches is undefined and may change at-any time.--}-desktopAppInfoSearch ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@searchString@/: the search string to use -}-    -> m [[T.Text]]-    {- ^ __Returns:__ a-  list of strvs.  Free each item with 'GI.GLib.Functions.strfreev' and free the outer-  list with 'GI.GLib.Functions.free'. -}-desktopAppInfoSearch searchString = liftIO $ do-    searchString' <- textToCString searchString-    result <- g_desktop_app_info_search searchString'-    checkUnexpectedReturnNULL "desktopAppInfoSearch" result-    result' <- unpackZeroTerminatedPtrArray result-    result'' <- mapM unpackZeroTerminatedUTF8CArray result'-    let freeElemOfResult e = mapZeroTerminatedCArray freeMem e >> freeMem e-    mapZeroTerminatedCArray freeElemOfResult result-    freeMem result-    freeMem searchString'-    return result''--#if ENABLE_OVERLOADING-#endif---- method DesktopAppInfo::set_desktop_env--- method type : MemberFunction--- Args : [Arg {argCName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string specifying what desktop this is", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_desktop_app_info_set_desktop_env" g_desktop_app_info_set_desktop_env :: -    CString ->                              -- desktop_env : TBasicType TUTF8-    IO ()--{-# DEPRECATED desktopAppInfoSetDesktopEnv ["(Since version 2.42)","do not use this API.  Since 2.42 the value of the","@XDG_CURRENT_DESKTOP@ environment variable will be used."] #-}-{- |-Sets the name of the desktop that the application is running in.-This is used by 'GI.Gio.Interfaces.AppInfo.appInfoShouldShow' and-'GI.Gio.Objects.DesktopAppInfo.desktopAppInfoGetShowIn' to evaluate the-@OnlyShowIn@ and @NotShowIn@-desktop entry fields.--Should be called only once; subsequent calls are ignored.--}-desktopAppInfoSetDesktopEnv ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@desktopEnv@/: a string specifying what desktop this is -}-    -> m ()-desktopAppInfoSetDesktopEnv desktopEnv = liftIO $ do-    desktopEnv' <- textToCString desktopEnv-    g_desktop_app_info_set_desktop_env desktopEnv'-    freeMem desktopEnv'-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/DesktopAppInfo.hs-boot 
@@ -1,86 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.DesktopAppInfo 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 DesktopAppInfo = DesktopAppInfo (ManagedPtr DesktopAppInfo)-instance GObject DesktopAppInfo where-class (GObject o, O.IsDescendantOf DesktopAppInfo o) => IsDesktopAppInfo o-instance (GObject o, O.IsDescendantOf DesktopAppInfo o) => IsDesktopAppInfo o-instance O.HasParentTypes DesktopAppInfo-#if ENABLE_OVERLOADING-data DesktopAppInfoFilenamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetActionNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetBooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetCategoriesMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetFilenameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetGenericNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetIsHiddenMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetKeywordsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetLocaleStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetNodisplayMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetShowInMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetStartupWmClassMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoGetStringListMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoHasKeyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoLaunchActionMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoLaunchUrisAsManagerMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoLaunchUrisAsManagerWithFdsMethodInfo-#endif-#if ENABLE_OVERLOADING-data DesktopAppInfoListActionsMethodInfo-#endif
− GI/Gio/Objects/Emblem.hs 
@@ -1,419 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.Emblem.Emblem' is an implementation of 'GI.Gio.Interfaces.Icon.Icon' that supports-having an emblem, which is an icon with additional properties.-It can than be added to a 'GI.Gio.Objects.EmblemedIcon.EmblemedIcon'.--Currently, only metainformation about the emblem\'s origin is-supported. More may be added in the future.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Emblem-    ( ---- * Exported types-    Emblem(..)                              ,-    IsEmblem                                ,-    toEmblem                                ,-    noEmblem                                ,--- -- * Methods--- ** getIcon #method:getIcon#--#if ENABLE_OVERLOADING-    EmblemGetIconMethodInfo                 ,-#endif-    emblemGetIcon                           ,----- ** getOrigin #method:getOrigin#--#if ENABLE_OVERLOADING-    EmblemGetOriginMethodInfo               ,-#endif-    emblemGetOrigin                         ,----- ** new #method:new#--    emblemNew                               ,----- ** newWithOrigin #method:newWithOrigin#--    emblemNewWithOrigin                     ,----- -- * Properties--- ** icon #attr:icon#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    EmblemIconPropertyInfo                  ,-#endif-    constructEmblemIcon                     ,-#if ENABLE_OVERLOADING-    emblemIcon                              ,-#endif-    getEmblemIcon                           ,----- ** origin #attr:origin#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    EmblemOriginPropertyInfo                ,-#endif-    constructEmblemOrigin                   ,-#if ENABLE_OVERLOADING-    emblemOrigin                            ,-#endif-    getEmblemOrigin                         ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon---- | Memory-managed wrapper type.-newtype Emblem = Emblem (ManagedPtr Emblem)-foreign import ccall "g_emblem_get_type"-    c_g_emblem_get_type :: IO GType--instance GObject Emblem where-    gobjectType = c_g_emblem_get_type-    ---- | Type class for types which can be safely cast to `Emblem`, for instance with `toEmblem`.-class (GObject o, O.IsDescendantOf Emblem o) => IsEmblem o-instance (GObject o, O.IsDescendantOf Emblem o) => IsEmblem o--instance O.HasParentTypes Emblem-type instance O.ParentTypes Emblem = '[GObject.Object.Object, Gio.Icon.Icon]---- | Cast to `Emblem`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toEmblem :: (MonadIO m, IsEmblem o) => o -> m Emblem-toEmblem = liftIO . unsafeCastTo Emblem---- | A convenience alias for `Nothing` :: `Maybe` `Emblem`.-noEmblem :: Maybe Emblem-noEmblem = Nothing--#if ENABLE_OVERLOADING-type family ResolveEmblemMethod (t :: Symbol) (o :: *) :: * where-    ResolveEmblemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveEmblemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveEmblemMethod "equal" o = Gio.Icon.IconEqualMethodInfo-    ResolveEmblemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveEmblemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveEmblemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveEmblemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveEmblemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveEmblemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveEmblemMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveEmblemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveEmblemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveEmblemMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo-    ResolveEmblemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveEmblemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveEmblemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveEmblemMethod "toString" o = Gio.Icon.IconToStringMethodInfo-    ResolveEmblemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveEmblemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveEmblemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveEmblemMethod "getIcon" o = EmblemGetIconMethodInfo-    ResolveEmblemMethod "getOrigin" o = EmblemGetOriginMethodInfo-    ResolveEmblemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveEmblemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveEmblemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveEmblemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveEmblemMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveEmblemMethod t Emblem, O.MethodInfo info Emblem p) => OL.IsLabel t (Emblem -> 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---- VVV Prop "icon"-   -- Type: TInterface (Name {namespace = "GObject", name = "Object"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@icon@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' emblem #icon-@--}-getEmblemIcon :: (MonadIO m, IsEmblem o) => o -> m (Maybe GObject.Object.Object)-getEmblemIcon obj = liftIO $ B.Properties.getObjectPropertyObject obj "icon" GObject.Object.Object--{- |-Construct a `GValueConstruct` with valid value for the “@icon@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructEmblemIcon :: (IsEmblem o, GObject.Object.IsObject a) => a -> IO (GValueConstruct o)-constructEmblemIcon val = B.Properties.constructObjectPropertyObject "icon" (Just val)--#if ENABLE_OVERLOADING-data EmblemIconPropertyInfo-instance AttrInfo EmblemIconPropertyInfo where-    type AttrAllowedOps EmblemIconPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EmblemIconPropertyInfo = GObject.Object.IsObject-    type AttrBaseTypeConstraint EmblemIconPropertyInfo = IsEmblem-    type AttrGetType EmblemIconPropertyInfo = (Maybe GObject.Object.Object)-    type AttrLabel EmblemIconPropertyInfo = "icon"-    type AttrOrigin EmblemIconPropertyInfo = Emblem-    attrGet _ = getEmblemIcon-    attrSet _ = undefined-    attrConstruct _ = constructEmblemIcon-    attrClear _ = undefined-#endif---- VVV Prop "origin"-   -- Type: TInterface (Name {namespace = "Gio", name = "EmblemOrigin"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@origin@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' emblem #origin-@--}-getEmblemOrigin :: (MonadIO m, IsEmblem o) => o -> m Gio.Enums.EmblemOrigin-getEmblemOrigin obj = liftIO $ B.Properties.getObjectPropertyEnum obj "origin"--{- |-Construct a `GValueConstruct` with valid value for the “@origin@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructEmblemOrigin :: (IsEmblem o) => Gio.Enums.EmblemOrigin -> IO (GValueConstruct o)-constructEmblemOrigin val = B.Properties.constructObjectPropertyEnum "origin" val--#if ENABLE_OVERLOADING-data EmblemOriginPropertyInfo-instance AttrInfo EmblemOriginPropertyInfo where-    type AttrAllowedOps EmblemOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint EmblemOriginPropertyInfo = (~) Gio.Enums.EmblemOrigin-    type AttrBaseTypeConstraint EmblemOriginPropertyInfo = IsEmblem-    type AttrGetType EmblemOriginPropertyInfo = Gio.Enums.EmblemOrigin-    type AttrLabel EmblemOriginPropertyInfo = "origin"-    type AttrOrigin EmblemOriginPropertyInfo = Emblem-    attrGet _ = getEmblemOrigin-    attrSet _ = undefined-    attrConstruct _ = constructEmblemOrigin-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Emblem-type instance O.AttributeList Emblem = EmblemAttributeList-type EmblemAttributeList = ('[ '("icon", EmblemIconPropertyInfo), '("origin", EmblemOriginPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-emblemIcon :: AttrLabelProxy "icon"-emblemIcon = AttrLabelProxy--emblemOrigin :: AttrLabelProxy "origin"-emblemOrigin = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Emblem = EmblemSignalList-type EmblemSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Emblem::new--- method type : Constructor--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a GIcon containing the icon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Emblem"}))--- throws : False--- Skip return : False--foreign import ccall "g_emblem_new" g_emblem_new :: -    Ptr Gio.Icon.Icon ->                    -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    IO (Ptr Emblem)--{- |-Creates a new emblem for /@icon@/.--/Since: 2.18/--}-emblemNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a) =>-    a-    {- ^ /@icon@/: a GIcon containing the icon. -}-    -> m Emblem-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Emblem.Emblem'. -}-emblemNew icon = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    result <- g_emblem_new icon'-    checkUnexpectedReturnNULL "emblemNew" result-    result' <- (wrapObject Emblem) result-    touchManagedPtr icon-    return result'--#if ENABLE_OVERLOADING-#endif---- method Emblem::new_with_origin--- method type : Constructor--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a GIcon containing the icon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TInterface (Name {namespace = "Gio", name = "EmblemOrigin"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a GEmblemOrigin enum defining the emblem's origin", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Emblem"}))--- throws : False--- Skip return : False--foreign import ccall "g_emblem_new_with_origin" g_emblem_new_with_origin :: -    Ptr Gio.Icon.Icon ->                    -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    CUInt ->                                -- origin : TInterface (Name {namespace = "Gio", name = "EmblemOrigin"})-    IO (Ptr Emblem)--{- |-Creates a new emblem for /@icon@/.--/Since: 2.18/--}-emblemNewWithOrigin ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a) =>-    a-    {- ^ /@icon@/: a GIcon containing the icon. -}-    -> Gio.Enums.EmblemOrigin-    {- ^ /@origin@/: a GEmblemOrigin enum defining the emblem\'s origin -}-    -> m Emblem-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Emblem.Emblem'. -}-emblemNewWithOrigin icon origin = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    let origin' = (fromIntegral . fromEnum) origin-    result <- g_emblem_new_with_origin icon' origin'-    checkUnexpectedReturnNULL "emblemNewWithOrigin" result-    result' <- (wrapObject Emblem) result-    touchManagedPtr icon-    return result'--#if ENABLE_OVERLOADING-#endif---- method Emblem::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "emblem", argType = TInterface (Name {namespace = "Gio", name = "Emblem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GEmblem from which the icon should be extracted.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_emblem_get_icon" g_emblem_get_icon :: -    Ptr Emblem ->                           -- emblem : TInterface (Name {namespace = "Gio", name = "Emblem"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gives back the icon from /@emblem@/.--/Since: 2.18/--}-emblemGetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsEmblem a) =>-    a-    {- ^ /@emblem@/: a 'GI.Gio.Objects.Emblem.Emblem' from which the icon should be extracted. -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon'. The returned object belongs to-         the emblem and should not be modified or freed. -}-emblemGetIcon emblem = liftIO $ do-    emblem' <- unsafeManagedPtrCastPtr emblem-    result <- g_emblem_get_icon emblem'-    checkUnexpectedReturnNULL "emblemGetIcon" result-    result' <- (newObject Gio.Icon.Icon) result-    touchManagedPtr emblem-    return result'--#if ENABLE_OVERLOADING-data EmblemGetIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsEmblem a) => O.MethodInfo EmblemGetIconMethodInfo a signature where-    overloadedMethod _ = emblemGetIcon--#endif---- method Emblem::get_origin--- method type : OrdinaryMethod--- Args : [Arg {argCName = "emblem", argType = TInterface (Name {namespace = "Gio", name = "Emblem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GEmblem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "EmblemOrigin"}))--- throws : False--- Skip return : False--foreign import ccall "g_emblem_get_origin" g_emblem_get_origin :: -    Ptr Emblem ->                           -- emblem : TInterface (Name {namespace = "Gio", name = "Emblem"})-    IO CUInt--{- |-Gets the origin of the emblem.--/Since: 2.18/--}-emblemGetOrigin ::-    (B.CallStack.HasCallStack, MonadIO m, IsEmblem a) =>-    a-    {- ^ /@emblem@/: a 'GI.Gio.Objects.Emblem.Emblem' -}-    -> m Gio.Enums.EmblemOrigin-    {- ^ __Returns:__ the origin of the emblem -}-emblemGetOrigin emblem = liftIO $ do-    emblem' <- unsafeManagedPtrCastPtr emblem-    result <- g_emblem_get_origin emblem'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr emblem-    return result'--#if ENABLE_OVERLOADING-data EmblemGetOriginMethodInfo-instance (signature ~ (m Gio.Enums.EmblemOrigin), MonadIO m, IsEmblem a) => O.MethodInfo EmblemGetOriginMethodInfo a signature where-    overloadedMethod _ = emblemGetOrigin--#endif--
− GI/Gio/Objects/Emblem.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Emblem 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 Emblem = Emblem (ManagedPtr Emblem)-instance GObject Emblem where-class (GObject o, O.IsDescendantOf Emblem o) => IsEmblem o-instance (GObject o, O.IsDescendantOf Emblem o) => IsEmblem o-instance O.HasParentTypes Emblem-#if ENABLE_OVERLOADING-data EmblemIconPropertyInfo-#endif-#if ENABLE_OVERLOADING-data EmblemOriginPropertyInfo-#endif-#if ENABLE_OVERLOADING-data EmblemGetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data EmblemGetOriginMethodInfo-#endif
− GI/Gio/Objects/EmblemedIcon.hs 
@@ -1,426 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.EmblemedIcon.EmblemedIcon' is an implementation of 'GI.Gio.Interfaces.Icon.Icon' that supports-adding an emblem to an icon. Adding multiple emblems to an-icon is ensured via 'GI.Gio.Objects.EmblemedIcon.emblemedIconAddEmblem'.--Note that 'GI.Gio.Objects.EmblemedIcon.EmblemedIcon' allows no control over the position-of the emblems. See also 'GI.Gio.Objects.Emblem.Emblem' for more information.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.EmblemedIcon-    ( ---- * Exported types-    EmblemedIcon(..)                        ,-    IsEmblemedIcon                          ,-    toEmblemedIcon                          ,-    noEmblemedIcon                          ,--- -- * Methods--- ** addEmblem #method:addEmblem#--#if ENABLE_OVERLOADING-    EmblemedIconAddEmblemMethodInfo         ,-#endif-    emblemedIconAddEmblem                   ,----- ** clearEmblems #method:clearEmblems#--#if ENABLE_OVERLOADING-    EmblemedIconClearEmblemsMethodInfo      ,-#endif-    emblemedIconClearEmblems                ,----- ** getEmblems #method:getEmblems#--#if ENABLE_OVERLOADING-    EmblemedIconGetEmblemsMethodInfo        ,-#endif-    emblemedIconGetEmblems                  ,----- ** getIcon #method:getIcon#--#if ENABLE_OVERLOADING-    EmblemedIconGetIconMethodInfo           ,-#endif-    emblemedIconGetIcon                     ,----- ** new #method:new#--    emblemedIconNew                         ,----- -- * Properties--- ** gicon #attr:gicon#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    EmblemedIconGiconPropertyInfo           ,-#endif-    constructEmblemedIconGicon              ,-#if ENABLE_OVERLOADING-    emblemedIconGicon                       ,-#endif-    getEmblemedIconGicon                    ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Objects.Emblem as Gio.Emblem---- | Memory-managed wrapper type.-newtype EmblemedIcon = EmblemedIcon (ManagedPtr EmblemedIcon)-foreign import ccall "g_emblemed_icon_get_type"-    c_g_emblemed_icon_get_type :: IO GType--instance GObject EmblemedIcon where-    gobjectType = c_g_emblemed_icon_get_type-    ---- | Type class for types which can be safely cast to `EmblemedIcon`, for instance with `toEmblemedIcon`.-class (GObject o, O.IsDescendantOf EmblemedIcon o) => IsEmblemedIcon o-instance (GObject o, O.IsDescendantOf EmblemedIcon o) => IsEmblemedIcon o--instance O.HasParentTypes EmblemedIcon-type instance O.ParentTypes EmblemedIcon = '[GObject.Object.Object, Gio.Icon.Icon]---- | Cast to `EmblemedIcon`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toEmblemedIcon :: (MonadIO m, IsEmblemedIcon o) => o -> m EmblemedIcon-toEmblemedIcon = liftIO . unsafeCastTo EmblemedIcon---- | A convenience alias for `Nothing` :: `Maybe` `EmblemedIcon`.-noEmblemedIcon :: Maybe EmblemedIcon-noEmblemedIcon = Nothing--#if ENABLE_OVERLOADING-type family ResolveEmblemedIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveEmblemedIconMethod "addEmblem" o = EmblemedIconAddEmblemMethodInfo-    ResolveEmblemedIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveEmblemedIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveEmblemedIconMethod "clearEmblems" o = EmblemedIconClearEmblemsMethodInfo-    ResolveEmblemedIconMethod "equal" o = Gio.Icon.IconEqualMethodInfo-    ResolveEmblemedIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveEmblemedIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveEmblemedIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveEmblemedIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveEmblemedIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveEmblemedIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveEmblemedIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveEmblemedIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveEmblemedIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveEmblemedIconMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo-    ResolveEmblemedIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveEmblemedIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveEmblemedIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveEmblemedIconMethod "toString" o = Gio.Icon.IconToStringMethodInfo-    ResolveEmblemedIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveEmblemedIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveEmblemedIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveEmblemedIconMethod "getEmblems" o = EmblemedIconGetEmblemsMethodInfo-    ResolveEmblemedIconMethod "getIcon" o = EmblemedIconGetIconMethodInfo-    ResolveEmblemedIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveEmblemedIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveEmblemedIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveEmblemedIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveEmblemedIconMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveEmblemedIconMethod t EmblemedIcon, O.MethodInfo info EmblemedIcon p) => OL.IsLabel t (EmblemedIcon -> 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---- VVV Prop "gicon"-   -- Type: TInterface (Name {namespace = "Gio", name = "Icon"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@gicon@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' emblemedIcon #gicon-@--}-getEmblemedIconGicon :: (MonadIO m, IsEmblemedIcon o) => o -> m (Maybe Gio.Icon.Icon)-getEmblemedIconGicon obj = liftIO $ B.Properties.getObjectPropertyObject obj "gicon" Gio.Icon.Icon--{- |-Construct a `GValueConstruct` with valid value for the “@gicon@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructEmblemedIconGicon :: (IsEmblemedIcon o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o)-constructEmblemedIconGicon val = B.Properties.constructObjectPropertyObject "gicon" (Just val)--#if ENABLE_OVERLOADING-data EmblemedIconGiconPropertyInfo-instance AttrInfo EmblemedIconGiconPropertyInfo where-    type AttrAllowedOps EmblemedIconGiconPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EmblemedIconGiconPropertyInfo = Gio.Icon.IsIcon-    type AttrBaseTypeConstraint EmblemedIconGiconPropertyInfo = IsEmblemedIcon-    type AttrGetType EmblemedIconGiconPropertyInfo = (Maybe Gio.Icon.Icon)-    type AttrLabel EmblemedIconGiconPropertyInfo = "gicon"-    type AttrOrigin EmblemedIconGiconPropertyInfo = EmblemedIcon-    attrGet _ = getEmblemedIconGicon-    attrSet _ = undefined-    attrConstruct _ = constructEmblemedIconGicon-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList EmblemedIcon-type instance O.AttributeList EmblemedIcon = EmblemedIconAttributeList-type EmblemedIconAttributeList = ('[ '("gicon", EmblemedIconGiconPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-emblemedIconGicon :: AttrLabelProxy "gicon"-emblemedIconGicon = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList EmblemedIcon = EmblemedIconSignalList-type EmblemedIconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method EmblemedIcon::new--- method type : Constructor--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "emblem", argType = TInterface (Name {namespace = "Gio", name = "Emblem"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GEmblem, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "EmblemedIcon"}))--- throws : False--- Skip return : False--foreign import ccall "g_emblemed_icon_new" g_emblemed_icon_new :: -    Ptr Gio.Icon.Icon ->                    -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    Ptr Gio.Emblem.Emblem ->                -- emblem : TInterface (Name {namespace = "Gio", name = "Emblem"})-    IO (Ptr EmblemedIcon)--{- |-Creates a new emblemed icon for /@icon@/ with the emblem /@emblem@/.--/Since: 2.18/--}-emblemedIconNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a, Gio.Emblem.IsEmblem b) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon' -}-    -> Maybe (b)-    {- ^ /@emblem@/: a 'GI.Gio.Objects.Emblem.Emblem', or 'Nothing' -}-    -> m EmblemedIcon-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.Icon.Icon' -}-emblemedIconNew icon emblem = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    maybeEmblem <- case emblem of-        Nothing -> return nullPtr-        Just jEmblem -> do-            jEmblem' <- unsafeManagedPtrCastPtr jEmblem-            return jEmblem'-    result <- g_emblemed_icon_new icon' maybeEmblem-    checkUnexpectedReturnNULL "emblemedIconNew" result-    result' <- (wrapObject EmblemedIcon) result-    touchManagedPtr icon-    whenJust emblem touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-#endif---- method EmblemedIcon::add_emblem--- method type : OrdinaryMethod--- Args : [Arg {argCName = "emblemed", argType = TInterface (Name {namespace = "Gio", name = "EmblemedIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GEmblemedIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "emblem", argType = TInterface (Name {namespace = "Gio", name = "Emblem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GEmblem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_emblemed_icon_add_emblem" g_emblemed_icon_add_emblem :: -    Ptr EmblemedIcon ->                     -- emblemed : TInterface (Name {namespace = "Gio", name = "EmblemedIcon"})-    Ptr Gio.Emblem.Emblem ->                -- emblem : TInterface (Name {namespace = "Gio", name = "Emblem"})-    IO ()--{- |-Adds /@emblem@/ to the 'GI.GLib.Structs.List.List' of @/GEmblems/@.--/Since: 2.18/--}-emblemedIconAddEmblem ::-    (B.CallStack.HasCallStack, MonadIO m, IsEmblemedIcon a, Gio.Emblem.IsEmblem b) =>-    a-    {- ^ /@emblemed@/: a 'GI.Gio.Objects.EmblemedIcon.EmblemedIcon' -}-    -> b-    {- ^ /@emblem@/: a 'GI.Gio.Objects.Emblem.Emblem' -}-    -> m ()-emblemedIconAddEmblem emblemed emblem = liftIO $ do-    emblemed' <- unsafeManagedPtrCastPtr emblemed-    emblem' <- unsafeManagedPtrCastPtr emblem-    g_emblemed_icon_add_emblem emblemed' emblem'-    touchManagedPtr emblemed-    touchManagedPtr emblem-    return ()--#if ENABLE_OVERLOADING-data EmblemedIconAddEmblemMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsEmblemedIcon a, Gio.Emblem.IsEmblem b) => O.MethodInfo EmblemedIconAddEmblemMethodInfo a signature where-    overloadedMethod _ = emblemedIconAddEmblem--#endif---- method EmblemedIcon::clear_emblems--- method type : OrdinaryMethod--- Args : [Arg {argCName = "emblemed", argType = TInterface (Name {namespace = "Gio", name = "EmblemedIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GEmblemedIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_emblemed_icon_clear_emblems" g_emblemed_icon_clear_emblems :: -    Ptr EmblemedIcon ->                     -- emblemed : TInterface (Name {namespace = "Gio", name = "EmblemedIcon"})-    IO ()--{- |-Removes all the emblems from /@icon@/.--/Since: 2.28/--}-emblemedIconClearEmblems ::-    (B.CallStack.HasCallStack, MonadIO m, IsEmblemedIcon a) =>-    a-    {- ^ /@emblemed@/: a 'GI.Gio.Objects.EmblemedIcon.EmblemedIcon' -}-    -> m ()-emblemedIconClearEmblems emblemed = liftIO $ do-    emblemed' <- unsafeManagedPtrCastPtr emblemed-    g_emblemed_icon_clear_emblems emblemed'-    touchManagedPtr emblemed-    return ()--#if ENABLE_OVERLOADING-data EmblemedIconClearEmblemsMethodInfo-instance (signature ~ (m ()), MonadIO m, IsEmblemedIcon a) => O.MethodInfo EmblemedIconClearEmblemsMethodInfo a signature where-    overloadedMethod _ = emblemedIconClearEmblems--#endif---- method EmblemedIcon::get_emblems--- method type : OrdinaryMethod--- Args : [Arg {argCName = "emblemed", argType = TInterface (Name {namespace = "Gio", name = "EmblemedIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GEmblemedIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "Emblem"})))--- throws : False--- Skip return : False--foreign import ccall "g_emblemed_icon_get_emblems" g_emblemed_icon_get_emblems :: -    Ptr EmblemedIcon ->                     -- emblemed : TInterface (Name {namespace = "Gio", name = "EmblemedIcon"})-    IO (Ptr (GList (Ptr Gio.Emblem.Emblem)))--{- |-Gets the list of emblems for the /@icon@/.--/Since: 2.18/--}-emblemedIconGetEmblems ::-    (B.CallStack.HasCallStack, MonadIO m, IsEmblemedIcon a) =>-    a-    {- ^ /@emblemed@/: a 'GI.Gio.Objects.EmblemedIcon.EmblemedIcon' -}-    -> m [Gio.Emblem.Emblem]-    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of-    @/GEmblems/@ that is owned by /@emblemed@/ -}-emblemedIconGetEmblems emblemed = liftIO $ do-    emblemed' <- unsafeManagedPtrCastPtr emblemed-    result <- g_emblemed_icon_get_emblems emblemed'-    result' <- unpackGList result-    result'' <- mapM (newObject Gio.Emblem.Emblem) result'-    touchManagedPtr emblemed-    return result''--#if ENABLE_OVERLOADING-data EmblemedIconGetEmblemsMethodInfo-instance (signature ~ (m [Gio.Emblem.Emblem]), MonadIO m, IsEmblemedIcon a) => O.MethodInfo EmblemedIconGetEmblemsMethodInfo a signature where-    overloadedMethod _ = emblemedIconGetEmblems--#endif---- method EmblemedIcon::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "emblemed", argType = TInterface (Name {namespace = "Gio", name = "EmblemedIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GEmblemedIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_emblemed_icon_get_icon" g_emblemed_icon_get_icon :: -    Ptr EmblemedIcon ->                     -- emblemed : TInterface (Name {namespace = "Gio", name = "EmblemedIcon"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the main icon for /@emblemed@/.--/Since: 2.18/--}-emblemedIconGetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsEmblemedIcon a) =>-    a-    {- ^ /@emblemed@/: a 'GI.Gio.Objects.EmblemedIcon.EmblemedIcon' -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon' that is owned by /@emblemed@/ -}-emblemedIconGetIcon emblemed = liftIO $ do-    emblemed' <- unsafeManagedPtrCastPtr emblemed-    result <- g_emblemed_icon_get_icon emblemed'-    checkUnexpectedReturnNULL "emblemedIconGetIcon" result-    result' <- (newObject Gio.Icon.Icon) result-    touchManagedPtr emblemed-    return result'--#if ENABLE_OVERLOADING-data EmblemedIconGetIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsEmblemedIcon a) => O.MethodInfo EmblemedIconGetIconMethodInfo a signature where-    overloadedMethod _ = emblemedIconGetIcon--#endif--
− GI/Gio/Objects/EmblemedIcon.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.EmblemedIcon 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 EmblemedIcon = EmblemedIcon (ManagedPtr EmblemedIcon)-instance GObject EmblemedIcon where-class (GObject o, O.IsDescendantOf EmblemedIcon o) => IsEmblemedIcon o-instance (GObject o, O.IsDescendantOf EmblemedIcon o) => IsEmblemedIcon o-instance O.HasParentTypes EmblemedIcon-#if ENABLE_OVERLOADING-data EmblemedIconGiconPropertyInfo-#endif-#if ENABLE_OVERLOADING-data EmblemedIconAddEmblemMethodInfo-#endif-#if ENABLE_OVERLOADING-data EmblemedIconClearEmblemsMethodInfo-#endif-#if ENABLE_OVERLOADING-data EmblemedIconGetEmblemsMethodInfo-#endif-#if ENABLE_OVERLOADING-data EmblemedIconGetIconMethodInfo-#endif
− GI/Gio/Objects/FileEnumerator.hs 
@@ -1,962 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.FileEnumerator.FileEnumerator' allows you to operate on a set of @/GFiles/@,-returning a 'GI.Gio.Objects.FileInfo.FileInfo' structure for each file enumerated (e.g.-'GI.Gio.Interfaces.File.fileEnumerateChildren' will return a 'GI.Gio.Objects.FileEnumerator.FileEnumerator' for each-of the children within a directory).--To get the next file\'s information from a 'GI.Gio.Objects.FileEnumerator.FileEnumerator', use-'GI.Gio.Objects.FileEnumerator.fileEnumeratorNextFile' or its asynchronous version,-'GI.Gio.Objects.FileEnumerator.fileEnumeratorNextFilesAsync'. Note that the asynchronous-version will return a list of @/GFileInfos/@, whereas the-synchronous will only return the next file in the enumerator.--The ordering of returned files is unspecified for non-Unix-platforms; for more information, see 'GI.GLib.Structs.Dir.dirReadName'.  On Unix,-when operating on local files, returned files will be sorted by-inode number.  Effectively you can assume that the ordering of-returned files will be stable between successive calls (and-applications) assuming the directory is unchanged.--If your application needs a specific ordering, such as by name or-modification time, you will have to implement that in your-application code.--To close a 'GI.Gio.Objects.FileEnumerator.FileEnumerator', use 'GI.Gio.Objects.FileEnumerator.fileEnumeratorClose', or-its asynchronous version, 'GI.Gio.Objects.FileEnumerator.fileEnumeratorCloseAsync'. Once-a 'GI.Gio.Objects.FileEnumerator.FileEnumerator' is closed, no further actions may be performed-on it, and it should be freed with 'GI.GObject.Objects.Object.objectUnref'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FileEnumerator-    ( ---- * Exported types-    FileEnumerator(..)                      ,-    IsFileEnumerator                        ,-    toFileEnumerator                        ,-    noFileEnumerator                        ,--- -- * Methods--- ** close #method:close#--#if ENABLE_OVERLOADING-    FileEnumeratorCloseMethodInfo           ,-#endif-    fileEnumeratorClose                     ,----- ** closeAsync #method:closeAsync#--#if ENABLE_OVERLOADING-    FileEnumeratorCloseAsyncMethodInfo      ,-#endif-    fileEnumeratorCloseAsync                ,----- ** closeFinish #method:closeFinish#--#if ENABLE_OVERLOADING-    FileEnumeratorCloseFinishMethodInfo     ,-#endif-    fileEnumeratorCloseFinish               ,----- ** getChild #method:getChild#--#if ENABLE_OVERLOADING-    FileEnumeratorGetChildMethodInfo        ,-#endif-    fileEnumeratorGetChild                  ,----- ** getContainer #method:getContainer#--#if ENABLE_OVERLOADING-    FileEnumeratorGetContainerMethodInfo    ,-#endif-    fileEnumeratorGetContainer              ,----- ** hasPending #method:hasPending#--#if ENABLE_OVERLOADING-    FileEnumeratorHasPendingMethodInfo      ,-#endif-    fileEnumeratorHasPending                ,----- ** isClosed #method:isClosed#--#if ENABLE_OVERLOADING-    FileEnumeratorIsClosedMethodInfo        ,-#endif-    fileEnumeratorIsClosed                  ,----- ** iterate #method:iterate#--#if ENABLE_OVERLOADING-    FileEnumeratorIterateMethodInfo         ,-#endif-    fileEnumeratorIterate                   ,----- ** nextFile #method:nextFile#--#if ENABLE_OVERLOADING-    FileEnumeratorNextFileMethodInfo        ,-#endif-    fileEnumeratorNextFile                  ,----- ** nextFilesAsync #method:nextFilesAsync#--#if ENABLE_OVERLOADING-    FileEnumeratorNextFilesAsyncMethodInfo  ,-#endif-    fileEnumeratorNextFilesAsync            ,----- ** nextFilesFinish #method:nextFilesFinish#--#if ENABLE_OVERLOADING-    FileEnumeratorNextFilesFinishMethodInfo ,-#endif-    fileEnumeratorNextFilesFinish           ,----- ** setPending #method:setPending#--#if ENABLE_OVERLOADING-    FileEnumeratorSetPendingMethodInfo      ,-#endif-    fileEnumeratorSetPending                ,----- -- * Properties--- ** container #attr:container#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    FileEnumeratorContainerPropertyInfo     ,-#endif-    constructFileEnumeratorContainer        ,-#if ENABLE_OVERLOADING-    fileEnumeratorContainer                 ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo---- | Memory-managed wrapper type.-newtype FileEnumerator = FileEnumerator (ManagedPtr FileEnumerator)-foreign import ccall "g_file_enumerator_get_type"-    c_g_file_enumerator_get_type :: IO GType--instance GObject FileEnumerator where-    gobjectType = c_g_file_enumerator_get_type-    ---- | Type class for types which can be safely cast to `FileEnumerator`, for instance with `toFileEnumerator`.-class (GObject o, O.IsDescendantOf FileEnumerator o) => IsFileEnumerator o-instance (GObject o, O.IsDescendantOf FileEnumerator o) => IsFileEnumerator o--instance O.HasParentTypes FileEnumerator-type instance O.ParentTypes FileEnumerator = '[GObject.Object.Object]---- | Cast to `FileEnumerator`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFileEnumerator :: (MonadIO m, IsFileEnumerator o) => o -> m FileEnumerator-toFileEnumerator = liftIO . unsafeCastTo FileEnumerator---- | A convenience alias for `Nothing` :: `Maybe` `FileEnumerator`.-noFileEnumerator :: Maybe FileEnumerator-noFileEnumerator = Nothing--#if ENABLE_OVERLOADING-type family ResolveFileEnumeratorMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileEnumeratorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileEnumeratorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileEnumeratorMethod "close" o = FileEnumeratorCloseMethodInfo-    ResolveFileEnumeratorMethod "closeAsync" o = FileEnumeratorCloseAsyncMethodInfo-    ResolveFileEnumeratorMethod "closeFinish" o = FileEnumeratorCloseFinishMethodInfo-    ResolveFileEnumeratorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileEnumeratorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileEnumeratorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileEnumeratorMethod "hasPending" o = FileEnumeratorHasPendingMethodInfo-    ResolveFileEnumeratorMethod "isClosed" o = FileEnumeratorIsClosedMethodInfo-    ResolveFileEnumeratorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileEnumeratorMethod "iterate" o = FileEnumeratorIterateMethodInfo-    ResolveFileEnumeratorMethod "nextFile" o = FileEnumeratorNextFileMethodInfo-    ResolveFileEnumeratorMethod "nextFilesAsync" o = FileEnumeratorNextFilesAsyncMethodInfo-    ResolveFileEnumeratorMethod "nextFilesFinish" o = FileEnumeratorNextFilesFinishMethodInfo-    ResolveFileEnumeratorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileEnumeratorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileEnumeratorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileEnumeratorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileEnumeratorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileEnumeratorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileEnumeratorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileEnumeratorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileEnumeratorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileEnumeratorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileEnumeratorMethod "getChild" o = FileEnumeratorGetChildMethodInfo-    ResolveFileEnumeratorMethod "getContainer" o = FileEnumeratorGetContainerMethodInfo-    ResolveFileEnumeratorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileEnumeratorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileEnumeratorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileEnumeratorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileEnumeratorMethod "setPending" o = FileEnumeratorSetPendingMethodInfo-    ResolveFileEnumeratorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileEnumeratorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileEnumeratorMethod t FileEnumerator, O.MethodInfo info FileEnumerator p) => OL.IsLabel t (FileEnumerator -> 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---- VVV Prop "container"-   -- Type: TInterface (Name {namespace = "Gio", name = "File"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@container@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructFileEnumeratorContainer :: (IsFileEnumerator o, Gio.File.IsFile a) => a -> IO (GValueConstruct o)-constructFileEnumeratorContainer val = B.Properties.constructObjectPropertyObject "container" (Just val)--#if ENABLE_OVERLOADING-data FileEnumeratorContainerPropertyInfo-instance AttrInfo FileEnumeratorContainerPropertyInfo where-    type AttrAllowedOps FileEnumeratorContainerPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint FileEnumeratorContainerPropertyInfo = Gio.File.IsFile-    type AttrBaseTypeConstraint FileEnumeratorContainerPropertyInfo = IsFileEnumerator-    type AttrGetType FileEnumeratorContainerPropertyInfo = ()-    type AttrLabel FileEnumeratorContainerPropertyInfo = "container"-    type AttrOrigin FileEnumeratorContainerPropertyInfo = FileEnumerator-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructFileEnumeratorContainer-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList FileEnumerator-type instance O.AttributeList FileEnumerator = FileEnumeratorAttributeList-type FileEnumeratorAttributeList = ('[ '("container", FileEnumeratorContainerPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-fileEnumeratorContainer :: AttrLabelProxy "container"-fileEnumeratorContainer = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList FileEnumerator = FileEnumeratorSignalList-type FileEnumeratorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FileEnumerator::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_file_enumerator_close" g_file_enumerator_close :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Releases all resources used by this enumerator, making the-enumerator return 'GI.Gio.Enums.IOErrorEnumClosed' on all calls.--This will be automatically called when the last reference-is dropped, but you might want to call this function to make-sure resources are released as early as possible.--}-fileEnumeratorClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEnumeratorClose enumerator cancellable = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_enumerator_close enumerator' maybeCancellable-        touchManagedPtr enumerator-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileEnumeratorCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileEnumeratorCloseMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorClose--#endif---- method FileEnumerator::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_enumerator_close_async" g_file_enumerator_close_async :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    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 closes the file enumerator.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned in-'GI.Gio.Objects.FileEnumerator.fileEnumeratorCloseFinish'.--}-fileEnumeratorCloseAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-fileEnumeratorCloseAsync enumerator ioPriority cancellable callback = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    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-    g_file_enumerator_close_async enumerator' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr enumerator-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileEnumeratorCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileEnumeratorCloseAsyncMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorCloseAsync--#endif---- method FileEnumerator::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", 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 "a #GAsyncResult.", 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 "g_file_enumerator_close_finish" g_file_enumerator_close_finish :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes closing a file enumerator, started from 'GI.Gio.Objects.FileEnumerator.fileEnumeratorCloseAsync'.--If the file enumerator was already closed when 'GI.Gio.Objects.FileEnumerator.fileEnumeratorCloseAsync'-was called, then this function will report 'GI.Gio.Enums.IOErrorEnumClosed' in /@error@/, and-return 'False'. If the file enumerator had pending operation when the close-operation was started, then this function will report 'GI.Gio.Enums.IOErrorEnumPending', and-return 'False'.  If /@cancellable@/ was not 'Nothing', then the operation may have been-cancelled by triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be set, and 'False' will be-returned.--}-fileEnumeratorCloseFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEnumeratorCloseFinish enumerator result_ = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_file_enumerator_close_finish enumerator' result_'-        touchManagedPtr enumerator-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileEnumeratorCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFileEnumerator a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileEnumeratorCloseFinishMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorCloseFinish--#endif---- method FileEnumerator::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo gotten from g_file_enumerator_next_file()\n  or the async equivalents.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_enumerator_get_child" g_file_enumerator_get_child :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    Ptr Gio.FileInfo.FileInfo ->            -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO (Ptr Gio.File.File)--{- |-Return a new 'GI.Gio.Interfaces.File.File' which refers to the file named by /@info@/ in the source-directory of /@enumerator@/.  This function is primarily intended to be used-inside loops with 'GI.Gio.Objects.FileEnumerator.fileEnumeratorNextFile'.--This is a convenience method that\'s equivalent to:--=== /C code/->->  gchar *name = g_file_info_get_name (info);->  GFile *child = g_file_get_child (g_file_enumerator_get_container (enumr),->                                   name);---/Since: 2.36/--}-fileEnumeratorGetChild ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a, Gio.FileInfo.IsFileInfo b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator' -}-    -> b-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo' gotten from 'GI.Gio.Objects.FileEnumerator.fileEnumeratorNextFile'-  or the async equivalents. -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' for the 'GI.Gio.Objects.FileInfo.FileInfo' passed it. -}-fileEnumeratorGetChild enumerator info = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_enumerator_get_child enumerator' info'-    checkUnexpectedReturnNULL "fileEnumeratorGetChild" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr enumerator-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileEnumeratorGetChildMethodInfo-instance (signature ~ (b -> m Gio.File.File), MonadIO m, IsFileEnumerator a, Gio.FileInfo.IsFileInfo b) => O.MethodInfo FileEnumeratorGetChildMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorGetChild--#endif---- method FileEnumerator::get_container--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_enumerator_get_container" g_file_enumerator_get_container :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    IO (Ptr Gio.File.File)--{- |-Get the 'GI.Gio.Interfaces.File.File' container which is being enumerated.--/Since: 2.18/--}-fileEnumeratorGetContainer ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator' -}-    -> m Gio.File.File-    {- ^ __Returns:__ the 'GI.Gio.Interfaces.File.File' which is being enumerated. -}-fileEnumeratorGetContainer enumerator = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    result <- g_file_enumerator_get_container enumerator'-    checkUnexpectedReturnNULL "fileEnumeratorGetContainer" result-    result' <- (newObject Gio.File.File) result-    touchManagedPtr enumerator-    return result'--#if ENABLE_OVERLOADING-data FileEnumeratorGetContainerMethodInfo-instance (signature ~ (m Gio.File.File), MonadIO m, IsFileEnumerator a) => O.MethodInfo FileEnumeratorGetContainerMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorGetContainer--#endif---- method FileEnumerator::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", 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 "g_file_enumerator_has_pending" g_file_enumerator_has_pending :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    IO CInt--{- |-Checks if the file enumerator has pending operations.--}-fileEnumeratorHasPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@enumerator@/ has pending operations. -}-fileEnumeratorHasPending enumerator = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    result <- g_file_enumerator_has_pending enumerator'-    let result' = (/= 0) result-    touchManagedPtr enumerator-    return result'--#if ENABLE_OVERLOADING-data FileEnumeratorHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFileEnumerator a) => O.MethodInfo FileEnumeratorHasPendingMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorHasPending--#endif---- method FileEnumerator::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", 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 "g_file_enumerator_is_closed" g_file_enumerator_is_closed :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    IO CInt--{- |-Checks if the file enumerator has been closed.--}-fileEnumeratorIsClosed ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the /@enumerator@/ is closed. -}-fileEnumeratorIsClosed enumerator = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    result <- g_file_enumerator_is_closed enumerator'-    let result' = (/= 0) result-    touchManagedPtr enumerator-    return result'--#if ENABLE_OVERLOADING-data FileEnumeratorIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFileEnumerator a) => O.MethodInfo FileEnumeratorIsClosedMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorIsClosed--#endif---- method FileEnumerator::iterate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "direnum", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an open #GFileEnumerator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Output location for the next #GFileInfo, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_child", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Output location for the next #GFile, or %NULL", 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", 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 "g_file_enumerator_iterate" g_file_enumerator_iterate :: -    Ptr FileEnumerator ->                   -- direnum : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    Ptr (Ptr Gio.FileInfo.FileInfo) ->      -- out_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Ptr (Ptr Gio.File.File) ->              -- out_child : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-This is a version of 'GI.Gio.Objects.FileEnumerator.fileEnumeratorNextFile' that\'s easier to-use correctly from C programs.  With 'GI.Gio.Objects.FileEnumerator.fileEnumeratorNextFile',-the gboolean return value signifies \"end of iteration or error\", which-requires allocation of a temporary 'GError'.--In contrast, with this function, a 'False' return from-'GI.Gio.Objects.FileEnumerator.fileEnumeratorIterate' *always* means-\"error\".  End of iteration is signaled by /@outInfo@/ or /@outChild@/ being 'Nothing'.--Another crucial difference is that the references for /@outInfo@/ and-/@outChild@/ are owned by /@direnum@/ (they are cached as hidden-properties).  You must not unref them in your own code.  This makes-memory management significantly easier for C code in combination-with loops.--Finally, this function optionally allows retrieving a 'GI.Gio.Interfaces.File.File' as-well.--You must specify at least one of /@outInfo@/ or /@outChild@/.--The code pattern for correctly using 'GI.Gio.Objects.FileEnumerator.fileEnumeratorIterate' from C-is:-->->direnum = g_file_enumerate_children (file, ...);->while (TRUE)->  {->    GFileInfo *info;->    if (!g_file_enumerator_iterate (direnum, &info, NULL, cancellable, error))->      goto out;->    if (!info)->      break;->    ... do stuff with "info"; do not unref it! ...->  }->->out:->  g_object_unref (direnum); // Note: frees the last @info---/Since: 2.44/--}-fileEnumeratorIterate ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@direnum@/: an open 'GI.Gio.Objects.FileEnumerator.FileEnumerator' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m ((Gio.FileInfo.FileInfo, Gio.File.File))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEnumeratorIterate direnum cancellable = liftIO $ do-    direnum' <- unsafeManagedPtrCastPtr direnum-    outInfo <- allocMem :: IO (Ptr (Ptr Gio.FileInfo.FileInfo))-    outChild <- allocMem :: IO (Ptr (Ptr Gio.File.File))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_file_enumerator_iterate direnum' outInfo outChild maybeCancellable-        outInfo' <- peek outInfo-        outInfo'' <- (newObject Gio.FileInfo.FileInfo) outInfo'-        outChild' <- peek outChild-        outChild'' <- (newObject Gio.File.File) outChild'-        touchManagedPtr direnum-        whenJust cancellable touchManagedPtr-        freeMem outInfo-        freeMem outChild-        return (outInfo'', outChild'')-     ) (do-        freeMem outInfo-        freeMem outChild-     )--#if ENABLE_OVERLOADING-data FileEnumeratorIterateMethodInfo-instance (signature ~ (Maybe (b) -> m ((Gio.FileInfo.FileInfo, Gio.File.File))), MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileEnumeratorIterateMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorIterate--#endif---- method FileEnumerator::next_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_enumerator_next_file" g_file_enumerator_next_file :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Returns information for the next file in the enumerated object.-Will block until the information is available. The 'GI.Gio.Objects.FileInfo.FileInfo'-returned from this function will contain attributes that match the-attribute string that was passed when the 'GI.Gio.Objects.FileEnumerator.FileEnumerator' was created.--See the documentation of 'GI.Gio.Objects.FileEnumerator.FileEnumerator' for information about the-order of returned files.--On error, returns 'Nothing' and sets /@error@/ to the error. If the-enumerator is at the end, 'Nothing' will be returned and /@error@/ will-be unset.--}-fileEnumeratorNextFile ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m (Maybe Gio.FileInfo.FileInfo)-    {- ^ __Returns:__ A 'GI.Gio.Objects.FileInfo.FileInfo' or 'Nothing' on error-   or end of enumerator.  Free the returned object with-   'GI.GObject.Objects.Object.objectUnref' when no longer needed. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEnumeratorNextFile enumerator cancellable = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_enumerator_next_file enumerator' maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- (wrapObject Gio.FileInfo.FileInfo) result'-            return result''-        touchManagedPtr enumerator-        whenJust cancellable touchManagedPtr-        return maybeResult-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileEnumeratorNextFileMethodInfo-instance (signature ~ (Maybe (b) -> m (Maybe Gio.FileInfo.FileInfo)), MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileEnumeratorNextFileMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorNextFile--#endif---- method FileEnumerator::next_files_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of file info objects to request", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_enumerator_next_files_async" g_file_enumerator_next_files_async :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    Int32 ->                                -- num_files : TBasicType TInt-    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 ()--{- |-Request information for a number of files from the enumerator asynchronously.-When all i\/o for the operation is finished the /@callback@/ will be called with-the requested information.--See the documentation of 'GI.Gio.Objects.FileEnumerator.FileEnumerator' for information about the-order of returned files.--The callback can be called with less than /@numFiles@/ files in case of error-or at the end of the enumerator. In case of a partial error the callback will-be called with any succeeding items and no error, and on the next request the-error will be reported. If a request is cancelled the callback will be called-with 'GI.Gio.Enums.IOErrorEnumCancelled'.--During an async request no other sync and async calls are allowed, and will-result in 'GI.Gio.Enums.IOErrorEnumPending' errors.--Any outstanding i\/o request with higher priority (lower numerical value) will-be executed before an outstanding request with lower priority. Default-priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--}-fileEnumeratorNextFilesAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> Int32-    {- ^ /@numFiles@/: the number of file info objects to request -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-fileEnumeratorNextFilesAsync enumerator numFiles ioPriority cancellable callback = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    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-    g_file_enumerator_next_files_async enumerator' numFiles ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr enumerator-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data FileEnumeratorNextFilesAsyncMethodInfo-instance (signature ~ (Int32 -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFileEnumerator a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileEnumeratorNextFilesAsyncMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorNextFilesAsync--#endif---- method FileEnumerator::next_files_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "FileInfo"})))--- throws : True--- Skip return : False--foreign import ccall "g_file_enumerator_next_files_finish" g_file_enumerator_next_files_finish :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.FileInfo.FileInfo)))--{- |-Finishes the asynchronous operation started with 'GI.Gio.Objects.FileEnumerator.fileEnumeratorNextFilesAsync'.--}-fileEnumeratorNextFilesFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m [Gio.FileInfo.FileInfo]-    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of @/GFileInfos/@. You must free the list with-    @/g_list_free()/@ and unref the infos with 'GI.GObject.Objects.Object.objectUnref' when you\'re-    done with them. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileEnumeratorNextFilesFinish enumerator result_ = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_enumerator_next_files_finish enumerator' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapObject Gio.FileInfo.FileInfo) result'-        g_list_free result-        touchManagedPtr enumerator-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileEnumeratorNextFilesFinishMethodInfo-instance (signature ~ (b -> m [Gio.FileInfo.FileInfo]), MonadIO m, IsFileEnumerator a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileEnumeratorNextFilesFinishMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorNextFilesFinish--#endif---- method FileEnumerator::set_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "FileEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileEnumerator.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pending", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a boolean value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_enumerator_set_pending" g_file_enumerator_set_pending :: -    Ptr FileEnumerator ->                   -- enumerator : TInterface (Name {namespace = "Gio", name = "FileEnumerator"})-    CInt ->                                 -- pending : TBasicType TBoolean-    IO ()--{- |-Sets the file enumerator as having pending operations.--}-fileEnumeratorSetPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileEnumerator a) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.FileEnumerator.FileEnumerator'. -}-    -> Bool-    {- ^ /@pending@/: a boolean value. -}-    -> m ()-fileEnumeratorSetPending enumerator pending = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    let pending' = (fromIntegral . fromEnum) pending-    g_file_enumerator_set_pending enumerator' pending'-    touchManagedPtr enumerator-    return ()--#if ENABLE_OVERLOADING-data FileEnumeratorSetPendingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsFileEnumerator a) => O.MethodInfo FileEnumeratorSetPendingMethodInfo a signature where-    overloadedMethod _ = fileEnumeratorSetPending--#endif--
− GI/Gio/Objects/FileEnumerator.hs-boot 
@@ -1,68 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FileEnumerator 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 FileEnumerator = FileEnumerator (ManagedPtr FileEnumerator)-instance GObject FileEnumerator where-class (GObject o, O.IsDescendantOf FileEnumerator o) => IsFileEnumerator o-instance (GObject o, O.IsDescendantOf FileEnumerator o) => IsFileEnumerator o-instance O.HasParentTypes FileEnumerator-#if ENABLE_OVERLOADING-data FileEnumeratorContainerPropertyInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorCloseAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorCloseFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorGetChildMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorGetContainerMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorHasPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorIsClosedMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorIterateMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorNextFileMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorNextFilesAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorNextFilesFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileEnumeratorSetPendingMethodInfo-#endif
− GI/Gio/Objects/FileIOStream.hs 
@@ -1,434 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--GFileIOStream provides io streams that both read and write to the same-file handle.--GFileIOStream implements 'GI.Gio.Interfaces.Seekable.Seekable', which allows the io-stream to jump to arbitrary positions in the file and to truncate-the file, provided the filesystem of the file supports these-operations.--To find the position of a file io stream, use-'GI.Gio.Interfaces.Seekable.seekableTell'.--To find out if a file io stream supports seeking, use 'GI.Gio.Interfaces.Seekable.seekableCanSeek'.-To position a file io stream, use 'GI.Gio.Interfaces.Seekable.seekableSeek'.-To find out if a file io stream supports truncating, use-'GI.Gio.Interfaces.Seekable.seekableCanTruncate'. To truncate a file io-stream, use 'GI.Gio.Interfaces.Seekable.seekableTruncate'.--The default implementation of all the 'GI.Gio.Objects.FileIOStream.FileIOStream' operations-and the implementation of 'GI.Gio.Interfaces.Seekable.Seekable' just call into the same operations-on the output stream.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FileIOStream-    ( ---- * Exported types-    FileIOStream(..)                        ,-    IsFileIOStream                          ,-    toFileIOStream                          ,-    noFileIOStream                          ,--- -- * Methods--- ** getEtag #method:getEtag#--#if ENABLE_OVERLOADING-    FileIOStreamGetEtagMethodInfo           ,-#endif-    fileIOStreamGetEtag                     ,----- ** queryInfo #method:queryInfo#--#if ENABLE_OVERLOADING-    FileIOStreamQueryInfoMethodInfo         ,-#endif-    fileIOStreamQueryInfo                   ,----- ** queryInfoAsync #method:queryInfoAsync#--#if ENABLE_OVERLOADING-    FileIOStreamQueryInfoAsyncMethodInfo    ,-#endif-    fileIOStreamQueryInfoAsync              ,----- ** queryInfoFinish #method:queryInfoFinish#--#if ENABLE_OVERLOADING-    FileIOStreamQueryInfoFinishMethodInfo   ,-#endif-    fileIOStreamQueryInfoFinish             ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream---- | Memory-managed wrapper type.-newtype FileIOStream = FileIOStream (ManagedPtr FileIOStream)-foreign import ccall "g_file_io_stream_get_type"-    c_g_file_io_stream_get_type :: IO GType--instance GObject FileIOStream where-    gobjectType = c_g_file_io_stream_get_type-    ---- | Type class for types which can be safely cast to `FileIOStream`, for instance with `toFileIOStream`.-class (GObject o, O.IsDescendantOf FileIOStream o) => IsFileIOStream o-instance (GObject o, O.IsDescendantOf FileIOStream o) => IsFileIOStream o--instance O.HasParentTypes FileIOStream-type instance O.ParentTypes FileIOStream = '[Gio.IOStream.IOStream, GObject.Object.Object, Gio.Seekable.Seekable]---- | Cast to `FileIOStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFileIOStream :: (MonadIO m, IsFileIOStream o) => o -> m FileIOStream-toFileIOStream = liftIO . unsafeCastTo FileIOStream---- | A convenience alias for `Nothing` :: `Maybe` `FileIOStream`.-noFileIOStream :: Maybe FileIOStream-noFileIOStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveFileIOStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileIOStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileIOStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileIOStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveFileIOStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveFileIOStreamMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveFileIOStreamMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveFileIOStreamMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveFileIOStreamMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveFileIOStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileIOStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileIOStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileIOStreamMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveFileIOStreamMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveFileIOStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileIOStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileIOStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileIOStreamMethod "queryInfo" o = FileIOStreamQueryInfoMethodInfo-    ResolveFileIOStreamMethod "queryInfoAsync" o = FileIOStreamQueryInfoAsyncMethodInfo-    ResolveFileIOStreamMethod "queryInfoFinish" o = FileIOStreamQueryInfoFinishMethodInfo-    ResolveFileIOStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileIOStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileIOStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileIOStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveFileIOStreamMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveFileIOStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileIOStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileIOStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveFileIOStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileIOStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveFileIOStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileIOStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileIOStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileIOStreamMethod "getEtag" o = FileIOStreamGetEtagMethodInfo-    ResolveFileIOStreamMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveFileIOStreamMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveFileIOStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileIOStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileIOStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileIOStreamMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveFileIOStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileIOStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileIOStreamMethod t FileIOStream, O.MethodInfo info FileIOStream p) => OL.IsLabel t (FileIOStream -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList FileIOStream-type instance O.AttributeList FileIOStream = FileIOStreamAttributeList-type FileIOStreamAttributeList = ('[ '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("inputStream", Gio.IOStream.IOStreamInputStreamPropertyInfo), '("outputStream", Gio.IOStream.IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList FileIOStream = FileIOStreamSignalList-type FileIOStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FileIOStream::get_etag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileIOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileIOStream.", 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 "g_file_io_stream_get_etag" g_file_io_stream_get_etag :: -    Ptr FileIOStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "FileIOStream"})-    IO CString--{- |-Gets the entity tag for the file when it has been written.-This must be called after the stream has been written-and closed, as the etag can change while writing.--/Since: 2.22/--}-fileIOStreamGetEtag ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileIOStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileIOStream.FileIOStream'. -}-    -> m T.Text-    {- ^ __Returns:__ the entity tag for the stream. -}-fileIOStreamGetEtag stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_file_io_stream_get_etag stream'-    checkUnexpectedReturnNULL "fileIOStreamGetEtag" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data FileIOStreamGetEtagMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFileIOStream a) => O.MethodInfo FileIOStreamGetEtagMethodInfo a signature where-    overloadedMethod _ = fileIOStreamGetEtag--#endif---- method FileIOStream::query_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileIOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileIOStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute query string.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_io_stream_query_info" g_file_io_stream_query_info :: -    Ptr FileIOStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "FileIOStream"})-    CString ->                              -- attributes : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Queries a file io stream for the given /@attributes@/.-This function blocks while querying the stream. For the asynchronous-version of this function, see 'GI.Gio.Objects.FileIOStream.fileIOStreamQueryInfoAsync'.-While the stream is blocked, the stream will set the pending flag-internally, and any other operations on the stream will fail with-'GI.Gio.Enums.IOErrorEnumPending'.--Can fail if the stream was already closed (with /@error@/ being set to-'GI.Gio.Enums.IOErrorEnumClosed'), the stream has pending operations (with /@error@/ being-set to 'GI.Gio.Enums.IOErrorEnumPending'), or if querying info is not supported for-the stream\'s interface (with /@error@/ being set to 'GI.Gio.Enums.IOErrorEnumNotSupported'). I-all cases of failure, 'Nothing' will be returned.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be set, and 'Nothing' will-be returned.--/Since: 2.22/--}-fileIOStreamQueryInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileIOStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileIOStream.FileIOStream'. -}-    -> T.Text-    {- ^ /@attributes@/: a file attribute query string. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInfo.FileInfo' for the /@stream@/, or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileIOStreamQueryInfo stream attributes cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_io_stream_query_info stream' attributes' maybeCancellable-        checkUnexpectedReturnNULL "fileIOStreamQueryInfo" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--#if ENABLE_OVERLOADING-data FileIOStreamQueryInfoMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m Gio.FileInfo.FileInfo), MonadIO m, IsFileIOStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileIOStreamQueryInfoMethodInfo a signature where-    overloadedMethod _ = fileIOStreamQueryInfo--#endif---- method FileIOStream::query_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileIOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileIOStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute query string.", 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 "the [I/O priority][gio-GIOScheduler] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_io_stream_query_info_async" g_file_io_stream_query_info_async :: -    Ptr FileIOStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "FileIOStream"})-    CString ->                              -- attributes : TBasicType TUTF8-    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 queries the /@stream@/ for a 'GI.Gio.Objects.FileInfo.FileInfo'. When completed,-/@callback@/ will be called with a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' which can be used to-finish the operation with 'GI.Gio.Objects.FileIOStream.fileIOStreamQueryInfoFinish'.--For the synchronous version of this function, see-'GI.Gio.Objects.FileIOStream.fileIOStreamQueryInfo'.--/Since: 2.22/--}-fileIOStreamQueryInfoAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileIOStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileIOStream.FileIOStream'. -}-    -> T.Text-    {- ^ /@attributes@/: a file attribute query string. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][gio-GIOScheduler] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-fileIOStreamQueryInfoAsync stream attributes ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    attributes' <- textToCString attributes-    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-    g_file_io_stream_query_info_async stream' attributes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--#if ENABLE_OVERLOADING-data FileIOStreamQueryInfoAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFileIOStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileIOStreamQueryInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileIOStreamQueryInfoAsync--#endif---- method FileIOStream::query_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileIOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileIOStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_io_stream_query_info_finish" g_file_io_stream_query_info_finish :: -    Ptr FileIOStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "FileIOStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Finalizes the asynchronous query started-by 'GI.Gio.Objects.FileIOStream.fileIOStreamQueryInfoAsync'.--/Since: 2.22/--}-fileIOStreamQueryInfoFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileIOStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileIOStream.FileIOStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ A 'GI.Gio.Objects.FileInfo.FileInfo' for the finished query. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileIOStreamQueryInfoFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_io_stream_query_info_finish stream' result_'-        checkUnexpectedReturnNULL "fileIOStreamQueryInfoFinish" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr stream-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileIOStreamQueryInfoFinishMethodInfo-instance (signature ~ (b -> m Gio.FileInfo.FileInfo), MonadIO m, IsFileIOStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileIOStreamQueryInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileIOStreamQueryInfoFinish--#endif--
− GI/Gio/Objects/FileIOStream.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FileIOStream 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 FileIOStream = FileIOStream (ManagedPtr FileIOStream)-instance GObject FileIOStream where-class (GObject o, O.IsDescendantOf FileIOStream o) => IsFileIOStream o-instance (GObject o, O.IsDescendantOf FileIOStream o) => IsFileIOStream o-instance O.HasParentTypes FileIOStream-#if ENABLE_OVERLOADING-data FileIOStreamGetEtagMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileIOStreamQueryInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileIOStreamQueryInfoAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileIOStreamQueryInfoFinishMethodInfo-#endif
− GI/Gio/Objects/FileIcon.hs 
@@ -1,273 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.FileIcon.FileIcon' specifies an icon by pointing to an image file-to be used as icon.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FileIcon-    ( ---- * Exported types-    FileIcon(..)                            ,-    IsFileIcon                              ,-    toFileIcon                              ,-    noFileIcon                              ,--- -- * Methods--- ** getFile #method:getFile#--#if ENABLE_OVERLOADING-    FileIconGetFileMethodInfo               ,-#endif-    fileIconGetFile                         ,----- ** new #method:new#--    fileIconNew                             ,----- -- * Properties--- ** file #attr:file#-{- | The file containing the icon.--}-#if ENABLE_OVERLOADING-    FileIconFilePropertyInfo                ,-#endif-    constructFileIconFile                   ,-#if ENABLE_OVERLOADING-    fileIconFile                            ,-#endif-    getFileIconFile                         ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Interfaces.LoadableIcon as Gio.LoadableIcon---- | Memory-managed wrapper type.-newtype FileIcon = FileIcon (ManagedPtr FileIcon)-foreign import ccall "g_file_icon_get_type"-    c_g_file_icon_get_type :: IO GType--instance GObject FileIcon where-    gobjectType = c_g_file_icon_get_type-    ---- | Type class for types which can be safely cast to `FileIcon`, for instance with `toFileIcon`.-class (GObject o, O.IsDescendantOf FileIcon o) => IsFileIcon o-instance (GObject o, O.IsDescendantOf FileIcon o) => IsFileIcon o--instance O.HasParentTypes FileIcon-type instance O.ParentTypes FileIcon = '[GObject.Object.Object, Gio.Icon.Icon, Gio.LoadableIcon.LoadableIcon]---- | Cast to `FileIcon`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFileIcon :: (MonadIO m, IsFileIcon o) => o -> m FileIcon-toFileIcon = liftIO . unsafeCastTo FileIcon---- | A convenience alias for `Nothing` :: `Maybe` `FileIcon`.-noFileIcon :: Maybe FileIcon-noFileIcon = Nothing--#if ENABLE_OVERLOADING-type family ResolveFileIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileIconMethod "equal" o = Gio.Icon.IconEqualMethodInfo-    ResolveFileIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileIconMethod "load" o = Gio.LoadableIcon.LoadableIconLoadMethodInfo-    ResolveFileIconMethod "loadAsync" o = Gio.LoadableIcon.LoadableIconLoadAsyncMethodInfo-    ResolveFileIconMethod "loadFinish" o = Gio.LoadableIcon.LoadableIconLoadFinishMethodInfo-    ResolveFileIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileIconMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo-    ResolveFileIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileIconMethod "toString" o = Gio.Icon.IconToStringMethodInfo-    ResolveFileIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileIconMethod "getFile" o = FileIconGetFileMethodInfo-    ResolveFileIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileIconMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileIconMethod t FileIcon, O.MethodInfo info FileIcon p) => OL.IsLabel t (FileIcon -> 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---- VVV Prop "file"-   -- Type: TInterface (Name {namespace = "Gio", name = "File"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@file@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' fileIcon #file-@--}-getFileIconFile :: (MonadIO m, IsFileIcon o) => o -> m Gio.File.File-getFileIconFile obj = liftIO $ checkUnexpectedNothing "getFileIconFile" $ B.Properties.getObjectPropertyObject obj "file" Gio.File.File--{- |-Construct a `GValueConstruct` with valid value for the “@file@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructFileIconFile :: (IsFileIcon o, Gio.File.IsFile a) => a -> IO (GValueConstruct o)-constructFileIconFile val = B.Properties.constructObjectPropertyObject "file" (Just val)--#if ENABLE_OVERLOADING-data FileIconFilePropertyInfo-instance AttrInfo FileIconFilePropertyInfo where-    type AttrAllowedOps FileIconFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FileIconFilePropertyInfo = Gio.File.IsFile-    type AttrBaseTypeConstraint FileIconFilePropertyInfo = IsFileIcon-    type AttrGetType FileIconFilePropertyInfo = Gio.File.File-    type AttrLabel FileIconFilePropertyInfo = "file"-    type AttrOrigin FileIconFilePropertyInfo = FileIcon-    attrGet _ = getFileIconFile-    attrSet _ = undefined-    attrConstruct _ = constructFileIconFile-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList FileIcon-type instance O.AttributeList FileIcon = FileIconAttributeList-type FileIconAttributeList = ('[ '("file", FileIconFilePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-fileIconFile :: AttrLabelProxy "file"-fileIconFile = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList FileIcon = FileIconSignalList-type FileIconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FileIcon::new--- method type : Constructor--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileIcon"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_icon_new" g_file_icon_new :: -    Ptr Gio.File.File ->                    -- file : TInterface (Name {namespace = "Gio", name = "File"})-    IO (Ptr FileIcon)--{- |-Creates a new icon for a file.--}-fileIconNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a) =>-    a-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File'. -}-    -> m FileIcon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon' for the given-  /@file@/, or 'Nothing' on error. -}-fileIconNew file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- g_file_icon_new file'-    checkUnexpectedReturnNULL "fileIconNew" result-    result' <- (wrapObject FileIcon) result-    touchManagedPtr file-    return result'--#if ENABLE_OVERLOADING-#endif---- method FileIcon::get_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "FileIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_icon_get_file" g_file_icon_get_file :: -    Ptr FileIcon ->                         -- icon : TInterface (Name {namespace = "Gio", name = "FileIcon"})-    IO (Ptr Gio.File.File)--{- |-Gets the 'GI.Gio.Interfaces.File.File' associated with the given /@icon@/.--}-fileIconGetFile ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileIcon a) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon'. -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File', or 'Nothing'. -}-fileIconGetFile icon = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    result <- g_file_icon_get_file icon'-    checkUnexpectedReturnNULL "fileIconGetFile" result-    result' <- (newObject Gio.File.File) result-    touchManagedPtr icon-    return result'--#if ENABLE_OVERLOADING-data FileIconGetFileMethodInfo-instance (signature ~ (m Gio.File.File), MonadIO m, IsFileIcon a) => O.MethodInfo FileIconGetFileMethodInfo a signature where-    overloadedMethod _ = fileIconGetFile--#endif--
− GI/Gio/Objects/FileIcon.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FileIcon 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 FileIcon = FileIcon (ManagedPtr FileIcon)-instance GObject FileIcon where-class (GObject o, O.IsDescendantOf FileIcon o) => IsFileIcon o-instance (GObject o, O.IsDescendantOf FileIcon o) => IsFileIcon o-instance O.HasParentTypes FileIcon-#if ENABLE_OVERLOADING-data FileIconFilePropertyInfo-#endif-#if ENABLE_OVERLOADING-data FileIconGetFileMethodInfo-#endif
− GI/Gio/Objects/FileInfo.hs 
@@ -1,3225 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Functionality for manipulating basic metadata for files. 'GI.Gio.Objects.FileInfo.FileInfo'-implements methods for getting information that all files should-contain, and allows for manipulation of extended attributes.--See [GFileAttribute][gio-GFileAttribute] for more information on how-GIO handles file attributes.--To obtain a 'GI.Gio.Objects.FileInfo.FileInfo' for a 'GI.Gio.Interfaces.File.File', use 'GI.Gio.Interfaces.File.fileQueryInfo' (or its-async variant). To obtain a 'GI.Gio.Objects.FileInfo.FileInfo' for a file input or output-stream, use 'GI.Gio.Objects.FileInputStream.fileInputStreamQueryInfo' or-'GI.Gio.Objects.FileOutputStream.fileOutputStreamQueryInfo' (or their async variants).--To change the actual attributes of a file, you should then set the-attribute in the 'GI.Gio.Objects.FileInfo.FileInfo' and call 'GI.Gio.Interfaces.File.fileSetAttributesFromInfo'-or 'GI.Gio.Interfaces.File.fileSetAttributesAsync' on a GFile.--However, not all attributes can be changed in the file. For instance,-the actual size of a file cannot be changed via 'GI.Gio.Objects.FileInfo.fileInfoSetSize'.-You may call 'GI.Gio.Interfaces.File.fileQuerySettableAttributes' and-'GI.Gio.Interfaces.File.fileQueryWritableNamespaces' to discover the settable attributes-of a particular file at runtime.--'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher' allows for searching through a 'GI.Gio.Objects.FileInfo.FileInfo' for-attributes.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FileInfo-    ( ---- * Exported types-    FileInfo(..)                            ,-    IsFileInfo                              ,-    toFileInfo                              ,-    noFileInfo                              ,--- -- * Methods--- ** clearStatus #method:clearStatus#--#if ENABLE_OVERLOADING-    FileInfoClearStatusMethodInfo           ,-#endif-    fileInfoClearStatus                     ,----- ** copyInto #method:copyInto#--#if ENABLE_OVERLOADING-    FileInfoCopyIntoMethodInfo              ,-#endif-    fileInfoCopyInto                        ,----- ** dup #method:dup#--#if ENABLE_OVERLOADING-    FileInfoDupMethodInfo                   ,-#endif-    fileInfoDup                             ,----- ** getAttributeAsString #method:getAttributeAsString#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeAsStringMethodInfo  ,-#endif-    fileInfoGetAttributeAsString            ,----- ** getAttributeBoolean #method:getAttributeBoolean#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeBooleanMethodInfo   ,-#endif-    fileInfoGetAttributeBoolean             ,----- ** getAttributeByteString #method:getAttributeByteString#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeByteStringMethodInfo,-#endif-    fileInfoGetAttributeByteString          ,----- ** getAttributeData #method:getAttributeData#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeDataMethodInfo      ,-#endif-    fileInfoGetAttributeData                ,----- ** getAttributeInt32 #method:getAttributeInt32#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeInt32MethodInfo     ,-#endif-    fileInfoGetAttributeInt32               ,----- ** getAttributeInt64 #method:getAttributeInt64#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeInt64MethodInfo     ,-#endif-    fileInfoGetAttributeInt64               ,----- ** getAttributeObject #method:getAttributeObject#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeObjectMethodInfo    ,-#endif-    fileInfoGetAttributeObject              ,----- ** getAttributeStatus #method:getAttributeStatus#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeStatusMethodInfo    ,-#endif-    fileInfoGetAttributeStatus              ,----- ** getAttributeString #method:getAttributeString#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeStringMethodInfo    ,-#endif-    fileInfoGetAttributeString              ,----- ** getAttributeStringv #method:getAttributeStringv#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeStringvMethodInfo   ,-#endif-    fileInfoGetAttributeStringv             ,----- ** getAttributeType #method:getAttributeType#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeTypeMethodInfo      ,-#endif-    fileInfoGetAttributeType                ,----- ** getAttributeUint32 #method:getAttributeUint32#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeUint32MethodInfo    ,-#endif-    fileInfoGetAttributeUint32              ,----- ** getAttributeUint64 #method:getAttributeUint64#--#if ENABLE_OVERLOADING-    FileInfoGetAttributeUint64MethodInfo    ,-#endif-    fileInfoGetAttributeUint64              ,----- ** getContentType #method:getContentType#--#if ENABLE_OVERLOADING-    FileInfoGetContentTypeMethodInfo        ,-#endif-    fileInfoGetContentType                  ,----- ** getDeletionDate #method:getDeletionDate#--#if ENABLE_OVERLOADING-    FileInfoGetDeletionDateMethodInfo       ,-#endif-    fileInfoGetDeletionDate                 ,----- ** getDisplayName #method:getDisplayName#--#if ENABLE_OVERLOADING-    FileInfoGetDisplayNameMethodInfo        ,-#endif-    fileInfoGetDisplayName                  ,----- ** getEditName #method:getEditName#--#if ENABLE_OVERLOADING-    FileInfoGetEditNameMethodInfo           ,-#endif-    fileInfoGetEditName                     ,----- ** getEtag #method:getEtag#--#if ENABLE_OVERLOADING-    FileInfoGetEtagMethodInfo               ,-#endif-    fileInfoGetEtag                         ,----- ** getFileType #method:getFileType#--#if ENABLE_OVERLOADING-    FileInfoGetFileTypeMethodInfo           ,-#endif-    fileInfoGetFileType                     ,----- ** getIcon #method:getIcon#--#if ENABLE_OVERLOADING-    FileInfoGetIconMethodInfo               ,-#endif-    fileInfoGetIcon                         ,----- ** getIsBackup #method:getIsBackup#--#if ENABLE_OVERLOADING-    FileInfoGetIsBackupMethodInfo           ,-#endif-    fileInfoGetIsBackup                     ,----- ** getIsHidden #method:getIsHidden#--#if ENABLE_OVERLOADING-    FileInfoGetIsHiddenMethodInfo           ,-#endif-    fileInfoGetIsHidden                     ,----- ** getIsSymlink #method:getIsSymlink#--#if ENABLE_OVERLOADING-    FileInfoGetIsSymlinkMethodInfo          ,-#endif-    fileInfoGetIsSymlink                    ,----- ** getModificationTime #method:getModificationTime#--#if ENABLE_OVERLOADING-    FileInfoGetModificationTimeMethodInfo   ,-#endif-    fileInfoGetModificationTime             ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    FileInfoGetNameMethodInfo               ,-#endif-    fileInfoGetName                         ,----- ** getSize #method:getSize#--#if ENABLE_OVERLOADING-    FileInfoGetSizeMethodInfo               ,-#endif-    fileInfoGetSize                         ,----- ** getSortOrder #method:getSortOrder#--#if ENABLE_OVERLOADING-    FileInfoGetSortOrderMethodInfo          ,-#endif-    fileInfoGetSortOrder                    ,----- ** getSymbolicIcon #method:getSymbolicIcon#--#if ENABLE_OVERLOADING-    FileInfoGetSymbolicIconMethodInfo       ,-#endif-    fileInfoGetSymbolicIcon                 ,----- ** getSymlinkTarget #method:getSymlinkTarget#--#if ENABLE_OVERLOADING-    FileInfoGetSymlinkTargetMethodInfo      ,-#endif-    fileInfoGetSymlinkTarget                ,----- ** hasAttribute #method:hasAttribute#--#if ENABLE_OVERLOADING-    FileInfoHasAttributeMethodInfo          ,-#endif-    fileInfoHasAttribute                    ,----- ** hasNamespace #method:hasNamespace#--#if ENABLE_OVERLOADING-    FileInfoHasNamespaceMethodInfo          ,-#endif-    fileInfoHasNamespace                    ,----- ** listAttributes #method:listAttributes#--#if ENABLE_OVERLOADING-    FileInfoListAttributesMethodInfo        ,-#endif-    fileInfoListAttributes                  ,----- ** new #method:new#--    fileInfoNew                             ,----- ** removeAttribute #method:removeAttribute#--#if ENABLE_OVERLOADING-    FileInfoRemoveAttributeMethodInfo       ,-#endif-    fileInfoRemoveAttribute                 ,----- ** setAttribute #method:setAttribute#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeMethodInfo          ,-#endif-    fileInfoSetAttribute                    ,----- ** setAttributeBoolean #method:setAttributeBoolean#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeBooleanMethodInfo   ,-#endif-    fileInfoSetAttributeBoolean             ,----- ** setAttributeByteString #method:setAttributeByteString#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeByteStringMethodInfo,-#endif-    fileInfoSetAttributeByteString          ,----- ** setAttributeInt32 #method:setAttributeInt32#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeInt32MethodInfo     ,-#endif-    fileInfoSetAttributeInt32               ,----- ** setAttributeInt64 #method:setAttributeInt64#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeInt64MethodInfo     ,-#endif-    fileInfoSetAttributeInt64               ,----- ** setAttributeMask #method:setAttributeMask#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeMaskMethodInfo      ,-#endif-    fileInfoSetAttributeMask                ,----- ** setAttributeObject #method:setAttributeObject#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeObjectMethodInfo    ,-#endif-    fileInfoSetAttributeObject              ,----- ** setAttributeStatus #method:setAttributeStatus#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeStatusMethodInfo    ,-#endif-    fileInfoSetAttributeStatus              ,----- ** setAttributeString #method:setAttributeString#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeStringMethodInfo    ,-#endif-    fileInfoSetAttributeString              ,----- ** setAttributeStringv #method:setAttributeStringv#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeStringvMethodInfo   ,-#endif-    fileInfoSetAttributeStringv             ,----- ** setAttributeUint32 #method:setAttributeUint32#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeUint32MethodInfo    ,-#endif-    fileInfoSetAttributeUint32              ,----- ** setAttributeUint64 #method:setAttributeUint64#--#if ENABLE_OVERLOADING-    FileInfoSetAttributeUint64MethodInfo    ,-#endif-    fileInfoSetAttributeUint64              ,----- ** setContentType #method:setContentType#--#if ENABLE_OVERLOADING-    FileInfoSetContentTypeMethodInfo        ,-#endif-    fileInfoSetContentType                  ,----- ** setDisplayName #method:setDisplayName#--#if ENABLE_OVERLOADING-    FileInfoSetDisplayNameMethodInfo        ,-#endif-    fileInfoSetDisplayName                  ,----- ** setEditName #method:setEditName#--#if ENABLE_OVERLOADING-    FileInfoSetEditNameMethodInfo           ,-#endif-    fileInfoSetEditName                     ,----- ** setFileType #method:setFileType#--#if ENABLE_OVERLOADING-    FileInfoSetFileTypeMethodInfo           ,-#endif-    fileInfoSetFileType                     ,----- ** setIcon #method:setIcon#--#if ENABLE_OVERLOADING-    FileInfoSetIconMethodInfo               ,-#endif-    fileInfoSetIcon                         ,----- ** setIsHidden #method:setIsHidden#--#if ENABLE_OVERLOADING-    FileInfoSetIsHiddenMethodInfo           ,-#endif-    fileInfoSetIsHidden                     ,----- ** setIsSymlink #method:setIsSymlink#--#if ENABLE_OVERLOADING-    FileInfoSetIsSymlinkMethodInfo          ,-#endif-    fileInfoSetIsSymlink                    ,----- ** setModificationTime #method:setModificationTime#--#if ENABLE_OVERLOADING-    FileInfoSetModificationTimeMethodInfo   ,-#endif-    fileInfoSetModificationTime             ,----- ** setName #method:setName#--#if ENABLE_OVERLOADING-    FileInfoSetNameMethodInfo               ,-#endif-    fileInfoSetName                         ,----- ** setSize #method:setSize#--#if ENABLE_OVERLOADING-    FileInfoSetSizeMethodInfo               ,-#endif-    fileInfoSetSize                         ,----- ** setSortOrder #method:setSortOrder#--#if ENABLE_OVERLOADING-    FileInfoSetSortOrderMethodInfo          ,-#endif-    fileInfoSetSortOrder                    ,----- ** setSymbolicIcon #method:setSymbolicIcon#--#if ENABLE_OVERLOADING-    FileInfoSetSymbolicIconMethodInfo       ,-#endif-    fileInfoSetSymbolicIcon                 ,----- ** setSymlinkTarget #method:setSymlinkTarget#--#if ENABLE_OVERLOADING-    FileInfoSetSymlinkTargetMethodInfo      ,-#endif-    fileInfoSetSymlinkTarget                ,----- ** unsetAttributeMask #method:unsetAttributeMask#--#if ENABLE_OVERLOADING-    FileInfoUnsetAttributeMaskMethodInfo    ,-#endif-    fileInfoUnsetAttributeMask              ,-----    ) 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.DateTime as GLib.DateTime-import qualified GI.GLib.Structs.TimeVal as GLib.TimeVal-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeMatcher as Gio.FileAttributeMatcher---- | Memory-managed wrapper type.-newtype FileInfo = FileInfo (ManagedPtr FileInfo)-foreign import ccall "g_file_info_get_type"-    c_g_file_info_get_type :: IO GType--instance GObject FileInfo where-    gobjectType = c_g_file_info_get_type-    ---- | Type class for types which can be safely cast to `FileInfo`, for instance with `toFileInfo`.-class (GObject o, O.IsDescendantOf FileInfo o) => IsFileInfo o-instance (GObject o, O.IsDescendantOf FileInfo o) => IsFileInfo o--instance O.HasParentTypes FileInfo-type instance O.ParentTypes FileInfo = '[GObject.Object.Object]---- | Cast to `FileInfo`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFileInfo :: (MonadIO m, IsFileInfo o) => o -> m FileInfo-toFileInfo = liftIO . unsafeCastTo FileInfo---- | A convenience alias for `Nothing` :: `Maybe` `FileInfo`.-noFileInfo :: Maybe FileInfo-noFileInfo = Nothing--#if ENABLE_OVERLOADING-type family ResolveFileInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileInfoMethod "clearStatus" o = FileInfoClearStatusMethodInfo-    ResolveFileInfoMethod "copyInto" o = FileInfoCopyIntoMethodInfo-    ResolveFileInfoMethod "dup" o = FileInfoDupMethodInfo-    ResolveFileInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileInfoMethod "hasAttribute" o = FileInfoHasAttributeMethodInfo-    ResolveFileInfoMethod "hasNamespace" o = FileInfoHasNamespaceMethodInfo-    ResolveFileInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileInfoMethod "listAttributes" o = FileInfoListAttributesMethodInfo-    ResolveFileInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileInfoMethod "removeAttribute" o = FileInfoRemoveAttributeMethodInfo-    ResolveFileInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileInfoMethod "unsetAttributeMask" o = FileInfoUnsetAttributeMaskMethodInfo-    ResolveFileInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileInfoMethod "getAttributeAsString" o = FileInfoGetAttributeAsStringMethodInfo-    ResolveFileInfoMethod "getAttributeBoolean" o = FileInfoGetAttributeBooleanMethodInfo-    ResolveFileInfoMethod "getAttributeByteString" o = FileInfoGetAttributeByteStringMethodInfo-    ResolveFileInfoMethod "getAttributeData" o = FileInfoGetAttributeDataMethodInfo-    ResolveFileInfoMethod "getAttributeInt32" o = FileInfoGetAttributeInt32MethodInfo-    ResolveFileInfoMethod "getAttributeInt64" o = FileInfoGetAttributeInt64MethodInfo-    ResolveFileInfoMethod "getAttributeObject" o = FileInfoGetAttributeObjectMethodInfo-    ResolveFileInfoMethod "getAttributeStatus" o = FileInfoGetAttributeStatusMethodInfo-    ResolveFileInfoMethod "getAttributeString" o = FileInfoGetAttributeStringMethodInfo-    ResolveFileInfoMethod "getAttributeStringv" o = FileInfoGetAttributeStringvMethodInfo-    ResolveFileInfoMethod "getAttributeType" o = FileInfoGetAttributeTypeMethodInfo-    ResolveFileInfoMethod "getAttributeUint32" o = FileInfoGetAttributeUint32MethodInfo-    ResolveFileInfoMethod "getAttributeUint64" o = FileInfoGetAttributeUint64MethodInfo-    ResolveFileInfoMethod "getContentType" o = FileInfoGetContentTypeMethodInfo-    ResolveFileInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileInfoMethod "getDeletionDate" o = FileInfoGetDeletionDateMethodInfo-    ResolveFileInfoMethod "getDisplayName" o = FileInfoGetDisplayNameMethodInfo-    ResolveFileInfoMethod "getEditName" o = FileInfoGetEditNameMethodInfo-    ResolveFileInfoMethod "getEtag" o = FileInfoGetEtagMethodInfo-    ResolveFileInfoMethod "getFileType" o = FileInfoGetFileTypeMethodInfo-    ResolveFileInfoMethod "getIcon" o = FileInfoGetIconMethodInfo-    ResolveFileInfoMethod "getIsBackup" o = FileInfoGetIsBackupMethodInfo-    ResolveFileInfoMethod "getIsHidden" o = FileInfoGetIsHiddenMethodInfo-    ResolveFileInfoMethod "getIsSymlink" o = FileInfoGetIsSymlinkMethodInfo-    ResolveFileInfoMethod "getModificationTime" o = FileInfoGetModificationTimeMethodInfo-    ResolveFileInfoMethod "getName" o = FileInfoGetNameMethodInfo-    ResolveFileInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileInfoMethod "getSize" o = FileInfoGetSizeMethodInfo-    ResolveFileInfoMethod "getSortOrder" o = FileInfoGetSortOrderMethodInfo-    ResolveFileInfoMethod "getSymbolicIcon" o = FileInfoGetSymbolicIconMethodInfo-    ResolveFileInfoMethod "getSymlinkTarget" o = FileInfoGetSymlinkTargetMethodInfo-    ResolveFileInfoMethod "setAttribute" o = FileInfoSetAttributeMethodInfo-    ResolveFileInfoMethod "setAttributeBoolean" o = FileInfoSetAttributeBooleanMethodInfo-    ResolveFileInfoMethod "setAttributeByteString" o = FileInfoSetAttributeByteStringMethodInfo-    ResolveFileInfoMethod "setAttributeInt32" o = FileInfoSetAttributeInt32MethodInfo-    ResolveFileInfoMethod "setAttributeInt64" o = FileInfoSetAttributeInt64MethodInfo-    ResolveFileInfoMethod "setAttributeMask" o = FileInfoSetAttributeMaskMethodInfo-    ResolveFileInfoMethod "setAttributeObject" o = FileInfoSetAttributeObjectMethodInfo-    ResolveFileInfoMethod "setAttributeStatus" o = FileInfoSetAttributeStatusMethodInfo-    ResolveFileInfoMethod "setAttributeString" o = FileInfoSetAttributeStringMethodInfo-    ResolveFileInfoMethod "setAttributeStringv" o = FileInfoSetAttributeStringvMethodInfo-    ResolveFileInfoMethod "setAttributeUint32" o = FileInfoSetAttributeUint32MethodInfo-    ResolveFileInfoMethod "setAttributeUint64" o = FileInfoSetAttributeUint64MethodInfo-    ResolveFileInfoMethod "setContentType" o = FileInfoSetContentTypeMethodInfo-    ResolveFileInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileInfoMethod "setDisplayName" o = FileInfoSetDisplayNameMethodInfo-    ResolveFileInfoMethod "setEditName" o = FileInfoSetEditNameMethodInfo-    ResolveFileInfoMethod "setFileType" o = FileInfoSetFileTypeMethodInfo-    ResolveFileInfoMethod "setIcon" o = FileInfoSetIconMethodInfo-    ResolveFileInfoMethod "setIsHidden" o = FileInfoSetIsHiddenMethodInfo-    ResolveFileInfoMethod "setIsSymlink" o = FileInfoSetIsSymlinkMethodInfo-    ResolveFileInfoMethod "setModificationTime" o = FileInfoSetModificationTimeMethodInfo-    ResolveFileInfoMethod "setName" o = FileInfoSetNameMethodInfo-    ResolveFileInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileInfoMethod "setSize" o = FileInfoSetSizeMethodInfo-    ResolveFileInfoMethod "setSortOrder" o = FileInfoSetSortOrderMethodInfo-    ResolveFileInfoMethod "setSymbolicIcon" o = FileInfoSetSymbolicIconMethodInfo-    ResolveFileInfoMethod "setSymlinkTarget" o = FileInfoSetSymlinkTargetMethodInfo-    ResolveFileInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileInfoMethod t FileInfo, O.MethodInfo info FileInfo p) => OL.IsLabel t (FileInfo -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList FileInfo-type instance O.AttributeList FileInfo = FileInfoAttributeList-type FileInfoAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList FileInfo = FileInfoSignalList-type FileInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FileInfo::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_new" g_file_info_new :: -    IO (Ptr FileInfo)--{- |-Creates a new file info structure.--}-fileInfoNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m FileInfo-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-fileInfoNew  = liftIO $ do-    result <- g_file_info_new-    checkUnexpectedReturnNULL "fileInfoNew" result-    result' <- (wrapObject FileInfo) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method FileInfo::clear_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_clear_status" g_file_info_clear_status :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO ()--{- |-Clears the status information from /@info@/.--}-fileInfoClearStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m ()-fileInfoClearStatus info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    g_file_info_clear_status info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data FileInfoClearStatusMethodInfo-instance (signature ~ (m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoClearStatusMethodInfo a signature where-    overloadedMethod _ = fileInfoClearStatus--#endif---- method FileInfo::copy_into--- method type : OrdinaryMethod--- Args : [Arg {argCName = "src_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "source to copy attributes from.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destination to copy attributes to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_copy_into" g_file_info_copy_into :: -    Ptr FileInfo ->                         -- src_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Ptr FileInfo ->                         -- dest_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO ()--{- |-First clears all of the [GFileAttribute][gio-GFileAttribute] of /@destInfo@/,-and then copies all of the file attributes from /@srcInfo@/ to /@destInfo@/.--}-fileInfoCopyInto ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a, IsFileInfo b) =>-    a-    {- ^ /@srcInfo@/: source to copy attributes from. -}-    -> b-    {- ^ /@destInfo@/: destination to copy attributes to. -}-    -> m ()-fileInfoCopyInto srcInfo destInfo = liftIO $ do-    srcInfo' <- unsafeManagedPtrCastPtr srcInfo-    destInfo' <- unsafeManagedPtrCastPtr destInfo-    g_file_info_copy_into srcInfo' destInfo'-    touchManagedPtr srcInfo-    touchManagedPtr destInfo-    return ()--#if ENABLE_OVERLOADING-data FileInfoCopyIntoMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFileInfo a, IsFileInfo b) => O.MethodInfo FileInfoCopyIntoMethodInfo a signature where-    overloadedMethod _ = fileInfoCopyInto--#endif---- method FileInfo::dup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "other", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_dup" g_file_info_dup :: -    Ptr FileInfo ->                         -- other : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO (Ptr FileInfo)--{- |-Duplicates a file info structure.--}-fileInfoDup ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@other@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m FileInfo-    {- ^ __Returns:__ a duplicate 'GI.Gio.Objects.FileInfo.FileInfo' of /@other@/. -}-fileInfoDup other = liftIO $ do-    other' <- unsafeManagedPtrCastPtr other-    result <- g_file_info_dup other'-    checkUnexpectedReturnNULL "fileInfoDup" result-    result' <- (wrapObject FileInfo) result-    touchManagedPtr other-    return result'--#if ENABLE_OVERLOADING-data FileInfoDupMethodInfo-instance (signature ~ (m FileInfo), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoDupMethodInfo a signature where-    overloadedMethod _ = fileInfoDup--#endif---- method FileInfo::get_attribute_as_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", 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 "g_file_info_get_attribute_as_string" g_file_info_get_attribute_as_string :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CString--{- |-Gets the value of a attribute, formated as a string.-This escapes things as needed to make the string valid-utf8.--}-fileInfoGetAttributeAsString ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m T.Text-    {- ^ __Returns:__ a UTF-8 string associated with the given /@attribute@/.-   When you\'re done with the string it must be freed with 'GI.GLib.Functions.free'. -}-fileInfoGetAttributeAsString info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_as_string info' attribute'-    checkUnexpectedReturnNULL "fileInfoGetAttributeAsString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetAttributeAsStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeAsStringMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeAsString--#endif---- method FileInfo::get_attribute_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", 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 "g_file_info_get_attribute_boolean" g_file_info_get_attribute_boolean :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CInt--{- |-Gets the value of a boolean attribute. If the attribute does not-contain a boolean value, 'False' will be returned.--}-fileInfoGetAttributeBoolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Bool-    {- ^ __Returns:__ the boolean value contained within the attribute. -}-fileInfoGetAttributeBoolean info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_boolean info' attribute'-    let result' = (/= 0) result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetAttributeBooleanMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeBooleanMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeBoolean--#endif---- method FileInfo::get_attribute_byte_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", 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 "g_file_info_get_attribute_byte_string" g_file_info_get_attribute_byte_string :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CString--{- |-Gets the value of a byte string attribute. If the attribute does-not contain a byte string, 'Nothing' will be returned.--}-fileInfoGetAttributeByteString ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m T.Text-    {- ^ __Returns:__ the contents of the /@attribute@/ value as a byte string, or-'Nothing' otherwise. -}-fileInfoGetAttributeByteString info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_byte_string info' attribute'-    checkUnexpectedReturnNULL "fileInfoGetAttributeByteString" result-    result' <- cstringToText result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetAttributeByteStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeByteStringMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeByteString--#endif---- method FileInfo::get_attribute_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the attribute type, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "value_pp", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the\n   attribute value, or %NULL; the attribute value will not be %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeStatus"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the attribute status, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_data" g_file_info_get_attribute_data :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr CUInt ->                            -- type : TInterface (Name {namespace = "Gio", name = "FileAttributeType"})-    Ptr (Ptr ()) ->                         -- value_pp : TBasicType TPtr-    Ptr CUInt ->                            -- status : TInterface (Name {namespace = "Gio", name = "FileAttributeStatus"})-    IO CInt--{- |-Gets the attribute type, value and status for an attribute key.--}-fileInfoGetAttributeData ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo' -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key -}-    -> m ((Bool, Gio.Enums.FileAttributeType, Ptr (), Gio.Enums.FileAttributeStatus))-    {- ^ __Returns:__ 'True' if /@info@/ has an attribute named /@attribute@/,-     'False' otherwise. -}-fileInfoGetAttributeData info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    type_ <- allocMem :: IO (Ptr CUInt)-    valuePp <- allocMem :: IO (Ptr (Ptr ()))-    status <- allocMem :: IO (Ptr CUInt)-    result <- g_file_info_get_attribute_data info' attribute' type_ valuePp status-    let result' = (/= 0) result-    type_' <- peek type_-    let type_'' = (toEnum . fromIntegral) type_'-    valuePp' <- peek valuePp-    status' <- peek status-    let status'' = (toEnum . fromIntegral) status'-    touchManagedPtr info-    freeMem attribute'-    freeMem type_-    freeMem valuePp-    freeMem status-    return (result', type_'', valuePp', status'')--#if ENABLE_OVERLOADING-data FileInfoGetAttributeDataMethodInfo-instance (signature ~ (T.Text -> m ((Bool, Gio.Enums.FileAttributeType, Ptr (), Gio.Enums.FileAttributeStatus))), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeDataMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeData--#endif---- method FileInfo::get_attribute_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt32)--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_int32" g_file_info_get_attribute_int32 :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO Int32--{- |-Gets a signed 32-bit integer contained within the attribute. If the-attribute does not contain a signed 32-bit integer, or is invalid,-0 will be returned.--}-fileInfoGetAttributeInt32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Int32-    {- ^ __Returns:__ a signed 32-bit integer from the attribute. -}-fileInfoGetAttributeInt32 info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_int32 info' attribute'-    touchManagedPtr info-    freeMem attribute'-    return result--#if ENABLE_OVERLOADING-data FileInfoGetAttributeInt32MethodInfo-instance (signature ~ (T.Text -> m Int32), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeInt32MethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeInt32--#endif---- method FileInfo::get_attribute_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_int64" g_file_info_get_attribute_int64 :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO Int64--{- |-Gets a signed 64-bit integer contained within the attribute. If the-attribute does not contain an signed 64-bit integer, or is invalid,-0 will be returned.--}-fileInfoGetAttributeInt64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Int64-    {- ^ __Returns:__ a signed 64-bit integer from the attribute. -}-fileInfoGetAttributeInt64 info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_int64 info' attribute'-    touchManagedPtr info-    freeMem attribute'-    return result--#if ENABLE_OVERLOADING-data FileInfoGetAttributeInt64MethodInfo-instance (signature ~ (T.Text -> m Int64), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeInt64MethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeInt64--#endif---- method FileInfo::get_attribute_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GObject", name = "Object"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_object" g_file_info_get_attribute_object :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO (Ptr GObject.Object.Object)--{- |-Gets the value of a 'GI.GObject.Objects.Object.Object' attribute. If the attribute does-not contain a 'GI.GObject.Objects.Object.Object', 'Nothing' will be returned.--}-fileInfoGetAttributeObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m GObject.Object.Object-    {- ^ __Returns:__ a 'GI.GObject.Objects.Object.Object' associated with the given /@attribute@/, or-'Nothing' otherwise. -}-fileInfoGetAttributeObject info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_object info' attribute'-    checkUnexpectedReturnNULL "fileInfoGetAttributeObject" result-    result' <- (newObject GObject.Object.Object) result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetAttributeObjectMethodInfo-instance (signature ~ (T.Text -> m GObject.Object.Object), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeObjectMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeObject--#endif---- method FileInfo::get_attribute_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeStatus"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_status" g_file_info_get_attribute_status :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CUInt--{- |-Gets the attribute status for an attribute key.--}-fileInfoGetAttributeStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo' -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key -}-    -> m Gio.Enums.FileAttributeStatus-    {- ^ __Returns:__ a 'GI.Gio.Enums.FileAttributeStatus' for the given /@attribute@/, or-   'GI.Gio.Enums.FileAttributeStatusUnset' if the key is invalid. -}-fileInfoGetAttributeStatus info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_status info' attribute'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetAttributeStatusMethodInfo-instance (signature ~ (T.Text -> m Gio.Enums.FileAttributeStatus), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeStatusMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeStatus--#endif---- method FileInfo::get_attribute_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", 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 "g_file_info_get_attribute_string" g_file_info_get_attribute_string :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CString--{- |-Gets the value of a string attribute. If the attribute does-not contain a string, 'Nothing' will be returned.--}-fileInfoGetAttributeString ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m T.Text-    {- ^ __Returns:__ the contents of the /@attribute@/ value as a UTF-8 string, or-'Nothing' otherwise. -}-fileInfoGetAttributeString info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_string info' attribute'-    checkUnexpectedReturnNULL "fileInfoGetAttributeString" result-    result' <- cstringToText result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetAttributeStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeStringMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeString--#endif---- method FileInfo::get_attribute_stringv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_stringv" g_file_info_get_attribute_stringv :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO (Ptr CString)--{- |-Gets the value of a stringv attribute. If the attribute does-not contain a stringv, 'Nothing' will be returned.--/Since: 2.22/--}-fileInfoGetAttributeStringv ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m [T.Text]-    {- ^ __Returns:__ the contents of the /@attribute@/ value as a stringv, or-'Nothing' otherwise. Do not free. These returned strings are UTF-8. -}-fileInfoGetAttributeStringv info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_stringv info' attribute'-    checkUnexpectedReturnNULL "fileInfoGetAttributeStringv" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetAttributeStringvMethodInfo-instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeStringvMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeStringv--#endif---- method FileInfo::get_attribute_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeType"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_type" g_file_info_get_attribute_type :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CUInt--{- |-Gets the attribute type for an attribute key.--}-fileInfoGetAttributeType ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Gio.Enums.FileAttributeType-    {- ^ __Returns:__ a 'GI.Gio.Enums.FileAttributeType' for the given /@attribute@/, or-'GI.Gio.Enums.FileAttributeTypeInvalid' if the key is not set. -}-fileInfoGetAttributeType info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_type info' attribute'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetAttributeTypeMethodInfo-instance (signature ~ (T.Text -> m Gio.Enums.FileAttributeType), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeType--#endif---- method FileInfo::get_attribute_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_attribute_uint32" g_file_info_get_attribute_uint32 :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO Word32--{- |-Gets an unsigned 32-bit integer contained within the attribute. If the-attribute does not contain an unsigned 32-bit integer, or is invalid,-0 will be returned.--}-fileInfoGetAttributeUint32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Word32-    {- ^ __Returns:__ an unsigned 32-bit integer from the attribute. -}-fileInfoGetAttributeUint32 info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_uint32 info' attribute'-    touchManagedPtr info-    freeMem attribute'-    return result--#if ENABLE_OVERLOADING-data FileInfoGetAttributeUint32MethodInfo-instance (signature ~ (T.Text -> m Word32), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeUint32MethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeUint32--#endif---- method FileInfo::get_attribute_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", 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 "g_file_info_get_attribute_uint64" g_file_info_get_attribute_uint64 :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO Word64--{- |-Gets a unsigned 64-bit integer contained within the attribute. If the-attribute does not contain an unsigned 64-bit integer, or is invalid,-0 will be returned.--}-fileInfoGetAttributeUint64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Word64-    {- ^ __Returns:__ a unsigned 64-bit integer from the attribute. -}-fileInfoGetAttributeUint64 info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_get_attribute_uint64 info' attribute'-    touchManagedPtr info-    freeMem attribute'-    return result--#if ENABLE_OVERLOADING-data FileInfoGetAttributeUint64MethodInfo-instance (signature ~ (T.Text -> m Word64), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetAttributeUint64MethodInfo a signature where-    overloadedMethod _ = fileInfoGetAttributeUint64--#endif---- method FileInfo::get_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", 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 "g_file_info_get_content_type" g_file_info_get_content_type :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CString--{- |-Gets the file\'s content type.--}-fileInfoGetContentType ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the file\'s content type. -}-fileInfoGetContentType info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_content_type info'-    checkUnexpectedReturnNULL "fileInfoGetContentType" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetContentTypeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetContentTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetContentType--#endif---- method FileInfo::get_deletion_date--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "DateTime"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_deletion_date" g_file_info_get_deletion_date :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO (Ptr GLib.DateTime.DateTime)--{- |-Returns the 'GI.GLib.Structs.DateTime.DateTime' representing the deletion date of the file, as-available in G_FILE_ATTRIBUTE_TRASH_DELETION_DATE. If the-G_FILE_ATTRIBUTE_TRASH_DELETION_DATE attribute is unset, 'Nothing' is returned.--/Since: 2.36/--}-fileInfoGetDeletionDate ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m GLib.DateTime.DateTime-    {- ^ __Returns:__ a 'GI.GLib.Structs.DateTime.DateTime', or 'Nothing'. -}-fileInfoGetDeletionDate info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_deletion_date info'-    checkUnexpectedReturnNULL "fileInfoGetDeletionDate" result-    result' <- (wrapBoxed GLib.DateTime.DateTime) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetDeletionDateMethodInfo-instance (signature ~ (m GLib.DateTime.DateTime), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetDeletionDateMethodInfo a signature where-    overloadedMethod _ = fileInfoGetDeletionDate--#endif---- method FileInfo::get_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", 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 "g_file_info_get_display_name" g_file_info_get_display_name :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CString--{- |-Gets a display name for a file.--}-fileInfoGetDisplayName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the display name. -}-fileInfoGetDisplayName info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_display_name info'-    checkUnexpectedReturnNULL "fileInfoGetDisplayName" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetDisplayNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetDisplayNameMethodInfo a signature where-    overloadedMethod _ = fileInfoGetDisplayName--#endif---- method FileInfo::get_edit_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", 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 "g_file_info_get_edit_name" g_file_info_get_edit_name :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CString--{- |-Gets the edit name for a file.--}-fileInfoGetEditName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the edit name. -}-fileInfoGetEditName info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_edit_name info'-    checkUnexpectedReturnNULL "fileInfoGetEditName" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetEditNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetEditNameMethodInfo a signature where-    overloadedMethod _ = fileInfoGetEditName--#endif---- method FileInfo::get_etag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", 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 "g_file_info_get_etag" g_file_info_get_etag :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CString--{- |-Gets the [entity tag][gfile-etag] for a given-'GI.Gio.Objects.FileInfo.FileInfo'. See 'GI.Gio.Constants.FILE_ATTRIBUTE_ETAG_VALUE'.--}-fileInfoGetEtag ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the value of the \"etag:value\" attribute. -}-fileInfoGetEtag info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_etag info'-    checkUnexpectedReturnNULL "fileInfoGetEtag" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetEtagMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetEtagMethodInfo a signature where-    overloadedMethod _ = fileInfoGetEtag--#endif---- method FileInfo::get_file_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileType"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_file_type" g_file_info_get_file_type :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CUInt--{- |-Gets a file\'s type (whether it is a regular file, symlink, etc).-This is different from the file\'s content type, see 'GI.Gio.Objects.FileInfo.fileInfoGetContentType'.--}-fileInfoGetFileType ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m Gio.Enums.FileType-    {- ^ __Returns:__ a 'GI.Gio.Enums.FileType' for the given file. -}-fileInfoGetFileType info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_file_type info'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetFileTypeMethodInfo-instance (signature ~ (m Gio.Enums.FileType), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetFileTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetFileType--#endif---- method FileInfo::get_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_icon" g_file_info_get_icon :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the icon for a file.--}-fileInfoGetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ 'GI.Gio.Interfaces.Icon.Icon' for the given /@info@/. -}-fileInfoGetIcon info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_icon info'-    checkUnexpectedReturnNULL "fileInfoGetIcon" result-    result' <- (newObject Gio.Icon.Icon) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetIconMethodInfo a signature where-    overloadedMethod _ = fileInfoGetIcon--#endif---- method FileInfo::get_is_backup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", 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 "g_file_info_get_is_backup" g_file_info_get_is_backup :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CInt--{- |-Checks if a file is a backup file.--}-fileInfoGetIsBackup ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if file is a backup file, 'False' otherwise. -}-fileInfoGetIsBackup info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_is_backup info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetIsBackupMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetIsBackupMethodInfo a signature where-    overloadedMethod _ = fileInfoGetIsBackup--#endif---- method FileInfo::get_is_hidden--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", 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 "g_file_info_get_is_hidden" g_file_info_get_is_hidden :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CInt--{- |-Checks if a file is hidden.--}-fileInfoGetIsHidden ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the file is a hidden file, 'False' otherwise. -}-fileInfoGetIsHidden info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_is_hidden info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetIsHiddenMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetIsHiddenMethodInfo a signature where-    overloadedMethod _ = fileInfoGetIsHidden--#endif---- method FileInfo::get_is_symlink--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", 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 "g_file_info_get_is_symlink" g_file_info_get_is_symlink :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CInt--{- |-Checks if a file is a symlink.--}-fileInfoGetIsSymlink ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the given /@info@/ is a symlink. -}-fileInfoGetIsSymlink info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_is_symlink info'-    let result' = (/= 0) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetIsSymlinkMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetIsSymlinkMethodInfo a signature where-    overloadedMethod _ = fileInfoGetIsSymlink--#endif---- method FileInfo::get_modification_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "GLib", name = "TimeVal"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTimeVal.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_modification_time" g_file_info_get_modification_time :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Ptr GLib.TimeVal.TimeVal ->             -- result : TInterface (Name {namespace = "GLib", name = "TimeVal"})-    IO ()--{- |-Gets the modification time of the current /@info@/ and sets it-in /@result@/.--}-fileInfoGetModificationTime ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m (GLib.TimeVal.TimeVal)-fileInfoGetModificationTime info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result_ <- callocBytes 16 :: IO (Ptr GLib.TimeVal.TimeVal)-    g_file_info_get_modification_time info' result_-    result_' <- (wrapPtr GLib.TimeVal.TimeVal) result_-    touchManagedPtr info-    return result_'--#if ENABLE_OVERLOADING-data FileInfoGetModificationTimeMethodInfo-instance (signature ~ (m (GLib.TimeVal.TimeVal)), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetModificationTimeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetModificationTime--#endif---- method FileInfo::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_name" g_file_info_get_name :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CString--{- |-Gets the name for a file.--}-fileInfoGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m [Char]-    {- ^ __Returns:__ a string containing the file name. -}-fileInfoGetName info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_name info'-    checkUnexpectedReturnNULL "fileInfoGetName" result-    result' <- cstringToString result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetNameMethodInfo-instance (signature ~ (m [Char]), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetNameMethodInfo a signature where-    overloadedMethod _ = fileInfoGetName--#endif---- method FileInfo::get_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_size" g_file_info_get_size :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO Int64--{- |-Gets the file\'s size.--}-fileInfoGetSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m Int64-    {- ^ __Returns:__ a @/goffset/@ containing the file\'s size. -}-fileInfoGetSize info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_size info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data FileInfoGetSizeMethodInfo-instance (signature ~ (m Int64), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetSizeMethodInfo a signature where-    overloadedMethod _ = fileInfoGetSize--#endif---- method FileInfo::get_sort_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt32)--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_sort_order" g_file_info_get_sort_order :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO Int32--{- |-Gets the value of the sort_order attribute from the 'GI.Gio.Objects.FileInfo.FileInfo'.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_SORT_ORDER'.--}-fileInfoGetSortOrder ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m Int32-    {- ^ __Returns:__ a @/gint32/@ containing the value of the \"standard::sort_order\" attribute. -}-fileInfoGetSortOrder info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_sort_order info'-    touchManagedPtr info-    return result--#if ENABLE_OVERLOADING-data FileInfoGetSortOrderMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetSortOrderMethodInfo a signature where-    overloadedMethod _ = fileInfoGetSortOrder--#endif---- method FileInfo::get_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_get_symbolic_icon" g_file_info_get_symbolic_icon :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO (Ptr Gio.Icon.Icon)--{- |-Gets the symbolic icon for a file.--/Since: 2.34/--}-fileInfoGetSymbolicIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ 'GI.Gio.Interfaces.Icon.Icon' for the given /@info@/. -}-fileInfoGetSymbolicIcon info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_symbolic_icon info'-    checkUnexpectedReturnNULL "fileInfoGetSymbolicIcon" result-    result' <- (newObject Gio.Icon.Icon) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetSymbolicIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = fileInfoGetSymbolicIcon--#endif---- method FileInfo::get_symlink_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", 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 "g_file_info_get_symlink_target" g_file_info_get_symlink_target :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO CString--{- |-Gets the symlink target for a given 'GI.Gio.Objects.FileInfo.FileInfo'.--}-fileInfoGetSymlinkTarget ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the symlink target. -}-fileInfoGetSymlinkTarget info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    result <- g_file_info_get_symlink_target info'-    checkUnexpectedReturnNULL "fileInfoGetSymlinkTarget" result-    result' <- cstringToText result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data FileInfoGetSymlinkTargetMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoGetSymlinkTargetMethodInfo a signature where-    overloadedMethod _ = fileInfoGetSymlinkTarget--#endif---- method FileInfo::has_attribute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", 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 "g_file_info_has_attribute" g_file_info_has_attribute :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CInt--{- |-Checks if a file info structure has an attribute named /@attribute@/.--}-fileInfoHasAttribute ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@ginfo@/ has an attribute named /@attribute@/,-    'False' otherwise. -}-fileInfoHasAttribute info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    result <- g_file_info_has_attribute info' attribute'-    let result' = (/= 0) result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoHasAttributeMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoHasAttributeMethodInfo a signature where-    overloadedMethod _ = fileInfoHasAttribute--#endif---- method FileInfo::has_namespace--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute namespace.", 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 "g_file_info_has_namespace" g_file_info_has_namespace :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- name_space : TBasicType TUTF8-    IO CInt--{- |-Checks if a file info structure has an attribute in the-specified /@nameSpace@/.--/Since: 2.22/--}-fileInfoHasNamespace ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@nameSpace@/: a file attribute namespace. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@ginfo@/ has an attribute in /@nameSpace@/,-    'False' otherwise. -}-fileInfoHasNamespace info nameSpace = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    nameSpace' <- textToCString nameSpace-    result <- g_file_info_has_namespace info' nameSpace'-    let result' = (/= 0) result-    touchManagedPtr info-    freeMem nameSpace'-    return result'--#if ENABLE_OVERLOADING-data FileInfoHasNamespaceMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoHasNamespaceMethodInfo a signature where-    overloadedMethod _ = fileInfoHasNamespace--#endif---- method FileInfo::list_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a file attribute key's namespace, or %NULL to list\n  all attributes.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_file_info_list_attributes" g_file_info_list_attributes :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- name_space : TBasicType TUTF8-    IO (Ptr CString)--{- |-Lists the file info structure\'s attributes.--}-fileInfoListAttributes ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> Maybe (T.Text)-    {- ^ /@nameSpace@/: a file attribute key\'s namespace, or 'Nothing' to list-  all attributes. -}-    -> m (Maybe [T.Text])-    {- ^ __Returns:__ a-null-terminated array of strings of all of the possible attribute-types for the given /@nameSpace@/, or 'Nothing' on error. -}-fileInfoListAttributes info nameSpace = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    maybeNameSpace <- case nameSpace of-        Nothing -> return nullPtr-        Just jNameSpace -> do-            jNameSpace' <- textToCString jNameSpace-            return jNameSpace'-    result <- g_file_info_list_attributes info' maybeNameSpace-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- unpackZeroTerminatedUTF8CArray result'-        mapZeroTerminatedCArray freeMem result'-        freeMem result'-        return result''-    touchManagedPtr info-    freeMem maybeNameSpace-    return maybeResult--#if ENABLE_OVERLOADING-data FileInfoListAttributesMethodInfo-instance (signature ~ (Maybe (T.Text) -> m (Maybe [T.Text])), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoListAttributesMethodInfo a signature where-    overloadedMethod _ = fileInfoListAttributes--#endif---- method FileInfo::remove_attribute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_remove_attribute" g_file_info_remove_attribute :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO ()--{- |-Removes all cases of /@attribute@/ from /@info@/ if it exists.--}-fileInfoRemoveAttribute ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m ()-fileInfoRemoveAttribute info attribute = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    g_file_info_remove_attribute info' attribute'-    touchManagedPtr info-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data FileInfoRemoveAttributeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoRemoveAttributeMethodInfo a signature where-    overloadedMethod _ = fileInfoRemoveAttribute--#endif---- method FileInfo::set_attribute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value_p", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute" g_file_info_set_attribute :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "FileAttributeType"})-    Ptr () ->                               -- value_p : TBasicType TPtr-    IO ()--{- |-Sets the /@attribute@/ to contain the given value, if possible. To unset the-attribute, use 'GI.Gio.Enums.FileAttributeTypeInvalid' for /@type@/.--}-fileInfoSetAttribute ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> Gio.Enums.FileAttributeType-    {- ^ /@type@/: a 'GI.Gio.Enums.FileAttributeType' -}-    -> Ptr ()-    {- ^ /@valueP@/: pointer to the value -}-    -> m ()-fileInfoSetAttribute info attribute type_ valueP = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    let type_' = (fromIntegral . fromEnum) type_-    g_file_info_set_attribute info' attribute' type_' valueP-    touchManagedPtr info-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeMethodInfo-instance (signature ~ (T.Text -> Gio.Enums.FileAttributeType -> Ptr () -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttribute--#endif---- method FileInfo::set_attribute_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a boolean value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_boolean" g_file_info_set_attribute_boolean :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    CInt ->                                 -- attr_value : TBasicType TBoolean-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--}-fileInfoSetAttributeBoolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> Bool-    {- ^ /@attrValue@/: a boolean value. -}-    -> m ()-fileInfoSetAttributeBoolean info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    let attrValue' = (fromIntegral . fromEnum) attrValue-    g_file_info_set_attribute_boolean info' attribute' attrValue'-    touchManagedPtr info-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeBooleanMethodInfo-instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeBooleanMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeBoolean--#endif---- method FileInfo::set_attribute_byte_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a byte string.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_byte_string" g_file_info_set_attribute_byte_string :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    CString ->                              -- attr_value : TBasicType TUTF8-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--}-fileInfoSetAttributeByteString ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> T.Text-    {- ^ /@attrValue@/: a byte string. -}-    -> m ()-fileInfoSetAttributeByteString info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    attrValue' <- textToCString attrValue-    g_file_info_set_attribute_byte_string info' attribute' attrValue'-    touchManagedPtr info-    freeMem attribute'-    freeMem attrValue'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeByteStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeByteStringMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeByteString--#endif---- method FileInfo::set_attribute_int32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a signed 32-bit integer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_int32" g_file_info_set_attribute_int32 :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    Int32 ->                                -- attr_value : TBasicType TInt32-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--}-fileInfoSetAttributeInt32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> Int32-    {- ^ /@attrValue@/: a signed 32-bit integer -}-    -> m ()-fileInfoSetAttributeInt32 info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    g_file_info_set_attribute_int32 info' attribute' attrValue-    touchManagedPtr info-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeInt32MethodInfo-instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeInt32MethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeInt32--#endif---- method FileInfo::set_attribute_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "attribute name to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "int64 value to set attribute to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_int64" g_file_info_set_attribute_int64 :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    Int64 ->                                -- attr_value : TBasicType TInt64-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--}-fileInfoSetAttributeInt64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: attribute name to set. -}-    -> Int64-    {- ^ /@attrValue@/: int64 value to set attribute to. -}-    -> m ()-fileInfoSetAttributeInt64 info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    g_file_info_set_attribute_int64 info' attribute' attrValue-    touchManagedPtr info-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeInt64MethodInfo-instance (signature ~ (T.Text -> Int64 -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeInt64MethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeInt64--#endif---- method FileInfo::set_attribute_mask--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeMatcher.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_mask" g_file_info_set_attribute_mask :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Ptr Gio.FileAttributeMatcher.FileAttributeMatcher -> -- mask : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    IO ()--{- |-Sets /@mask@/ on /@info@/ to match specific attribute types.--}-fileInfoSetAttributeMask ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> Gio.FileAttributeMatcher.FileAttributeMatcher-    {- ^ /@mask@/: a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-    -> m ()-fileInfoSetAttributeMask info mask = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    mask' <- unsafeManagedPtrGetPtr mask-    g_file_info_set_attribute_mask info' mask'-    touchManagedPtr info-    touchManagedPtr mask-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeMaskMethodInfo-instance (signature ~ (Gio.FileAttributeMatcher.FileAttributeMatcher -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeMaskMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeMask--#endif---- method FileInfo::set_attribute_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_object" g_file_info_set_attribute_object :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr GObject.Object.Object ->            -- attr_value : TInterface (Name {namespace = "GObject", name = "Object"})-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--}-fileInfoSetAttributeObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a, GObject.Object.IsObject b) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> b-    {- ^ /@attrValue@/: a 'GI.GObject.Objects.Object.Object'. -}-    -> m ()-fileInfoSetAttributeObject info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    attrValue' <- unsafeManagedPtrCastPtr attrValue-    g_file_info_set_attribute_object info' attribute' attrValue'-    touchManagedPtr info-    touchManagedPtr attrValue-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeObjectMethodInfo-instance (signature ~ (T.Text -> b -> m ()), MonadIO m, IsFileInfo a, GObject.Object.IsObject b) => O.MethodInfo FileInfoSetAttributeObjectMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeObject--#endif---- method FileInfo::set_attribute_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeStatus"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeStatus", 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 "g_file_info_set_attribute_status" g_file_info_set_attribute_status :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    CUInt ->                                -- status : TInterface (Name {namespace = "Gio", name = "FileAttributeStatus"})-    IO CInt--{- |-Sets the attribute status for an attribute key. This is only-needed by external code that implement 'GI.Gio.Interfaces.File.fileSetAttributesFromInfo'-or similar functions.--The attribute must exist in /@info@/ for this to work. Otherwise 'False'-is returned and /@info@/ is unchanged.--/Since: 2.22/--}-fileInfoSetAttributeStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo' -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key -}-    -> Gio.Enums.FileAttributeStatus-    {- ^ /@status@/: a 'GI.Gio.Enums.FileAttributeStatus' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the status was changed, 'False' if the key was not set. -}-fileInfoSetAttributeStatus info attribute status = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    let status' = (fromIntegral . fromEnum) status-    result <- g_file_info_set_attribute_status info' attribute' status'-    let result' = (/= 0) result-    touchManagedPtr info-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileInfoSetAttributeStatusMethodInfo-instance (signature ~ (T.Text -> Gio.Enums.FileAttributeStatus -> m Bool), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeStatusMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeStatus--#endif---- method FileInfo::set_attribute_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a UTF-8 string.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_string" g_file_info_set_attribute_string :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    CString ->                              -- attr_value : TBasicType TUTF8-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--}-fileInfoSetAttributeString ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> T.Text-    {- ^ /@attrValue@/: a UTF-8 string. -}-    -> m ()-fileInfoSetAttributeString info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    attrValue' <- textToCString attrValue-    g_file_info_set_attribute_string info' attribute' attrValue'-    touchManagedPtr info-    freeMem attribute'-    freeMem attrValue'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeStringMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeString--#endif---- method FileInfo::set_attribute_stringv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %NULL\n  terminated array of UTF-8 strings.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_stringv" g_file_info_set_attribute_stringv :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr CString ->                          -- attr_value : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--Sinze: 2.22--}-fileInfoSetAttributeStringv ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key -}-    -> [T.Text]-    {- ^ /@attrValue@/: a 'Nothing'-  terminated array of UTF-8 strings. -}-    -> m ()-fileInfoSetAttributeStringv info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    attrValue' <- packZeroTerminatedUTF8CArray attrValue-    g_file_info_set_attribute_stringv info' attribute' attrValue'-    touchManagedPtr info-    freeMem attribute'-    mapZeroTerminatedCArray freeMem attrValue'-    freeMem attrValue'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeStringvMethodInfo-instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeStringvMethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeStringv--#endif---- method FileInfo::set_attribute_uint32--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an unsigned 32-bit integer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_uint32" g_file_info_set_attribute_uint32 :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    Word32 ->                               -- attr_value : TBasicType TUInt32-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--}-fileInfoSetAttributeUint32 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> Word32-    {- ^ /@attrValue@/: an unsigned 32-bit integer. -}-    -> m ()-fileInfoSetAttributeUint32 info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    g_file_info_set_attribute_uint32 info' attribute' attrValue-    touchManagedPtr info-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeUint32MethodInfo-instance (signature ~ (T.Text -> Word32 -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeUint32MethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeUint32--#endif---- method FileInfo::set_attribute_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an unsigned 64-bit integer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_attribute_uint64" g_file_info_set_attribute_uint64 :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- attribute : TBasicType TUTF8-    Word64 ->                               -- attr_value : TBasicType TUInt64-    IO ()--{- |-Sets the /@attribute@/ to contain the given /@attrValue@/,-if possible.--}-fileInfoSetAttributeUint64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> Word64-    {- ^ /@attrValue@/: an unsigned 64-bit integer. -}-    -> m ()-fileInfoSetAttributeUint64 info attribute attrValue = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    attribute' <- textToCString attribute-    g_file_info_set_attribute_uint64 info' attribute' attrValue-    touchManagedPtr info-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetAttributeUint64MethodInfo-instance (signature ~ (T.Text -> Word64 -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetAttributeUint64MethodInfo a signature where-    overloadedMethod _ = fileInfoSetAttributeUint64--#endif---- method FileInfo::set_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a content type. See [GContentType][gio-GContentType]", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_content_type" g_file_info_set_content_type :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- content_type : TBasicType TUTF8-    IO ()--{- |-Sets the content type attribute for a given 'GI.Gio.Objects.FileInfo.FileInfo'.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_CONTENT_TYPE'.--}-fileInfoSetContentType ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@contentType@/: a content type. See [GContentType][gio-GContentType] -}-    -> m ()-fileInfoSetContentType info contentType = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    contentType' <- textToCString contentType-    g_file_info_set_content_type info' contentType'-    touchManagedPtr info-    freeMem contentType'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetContentTypeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetContentTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetContentType--#endif---- method FileInfo::set_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing a display name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_display_name" g_file_info_set_display_name :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- display_name : TBasicType TUTF8-    IO ()--{- |-Sets the display name for the current 'GI.Gio.Objects.FileInfo.FileInfo'.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME'.--}-fileInfoSetDisplayName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@displayName@/: a string containing a display name. -}-    -> m ()-fileInfoSetDisplayName info displayName = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    displayName' <- textToCString displayName-    g_file_info_set_display_name info' displayName'-    touchManagedPtr info-    freeMem displayName'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetDisplayNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetDisplayNameMethodInfo a signature where-    overloadedMethod _ = fileInfoSetDisplayName--#endif---- method FileInfo::set_edit_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edit_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing an edit name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_edit_name" g_file_info_set_edit_name :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- edit_name : TBasicType TUTF8-    IO ()--{- |-Sets the edit name for the current file.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_EDIT_NAME'.--}-fileInfoSetEditName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@editName@/: a string containing an edit name. -}-    -> m ()-fileInfoSetEditName info editName = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    editName' <- textToCString editName-    g_file_info_set_edit_name info' editName'-    touchManagedPtr info-    freeMem editName'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetEditNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetEditNameMethodInfo a signature where-    overloadedMethod _ = fileInfoSetEditName--#endif---- method FileInfo::set_file_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "FileType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileType.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_file_type" g_file_info_set_file_type :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "FileType"})-    IO ()--{- |-Sets the file type in a 'GI.Gio.Objects.FileInfo.FileInfo' to /@type@/.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_TYPE'.--}-fileInfoSetFileType ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> Gio.Enums.FileType-    {- ^ /@type@/: a 'GI.Gio.Enums.FileType'. -}-    -> m ()-fileInfoSetFileType info type_ = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    let type_' = (fromIntegral . fromEnum) type_-    g_file_info_set_file_type info' type_'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetFileTypeMethodInfo-instance (signature ~ (Gio.Enums.FileType -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetFileTypeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetFileType--#endif---- method FileInfo::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_icon" g_file_info_set_icon :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Ptr Gio.Icon.Icon ->                    -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    IO ()--{- |-Sets the icon for a given 'GI.Gio.Objects.FileInfo.FileInfo'.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_ICON'.--}-fileInfoSetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a, Gio.Icon.IsIcon b) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> b-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon'. -}-    -> m ()-fileInfoSetIcon info icon = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    icon' <- unsafeManagedPtrCastPtr icon-    g_file_info_set_icon info' icon'-    touchManagedPtr info-    touchManagedPtr icon-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetIconMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFileInfo a, Gio.Icon.IsIcon b) => O.MethodInfo FileInfoSetIconMethodInfo a signature where-    overloadedMethod _ = fileInfoSetIcon--#endif---- method FileInfo::set_is_hidden--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gboolean.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_is_hidden" g_file_info_set_is_hidden :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CInt ->                                 -- is_hidden : TBasicType TBoolean-    IO ()--{- |-Sets the \"is_hidden\" attribute in a 'GI.Gio.Objects.FileInfo.FileInfo' according to /@isHidden@/.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_IS_HIDDEN'.--}-fileInfoSetIsHidden ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> Bool-    {- ^ /@isHidden@/: a 'Bool'. -}-    -> m ()-fileInfoSetIsHidden info isHidden = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    let isHidden' = (fromIntegral . fromEnum) isHidden-    g_file_info_set_is_hidden info' isHidden'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetIsHiddenMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetIsHiddenMethodInfo a signature where-    overloadedMethod _ = fileInfoSetIsHidden--#endif---- method FileInfo::set_is_symlink--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_symlink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gboolean.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_is_symlink" g_file_info_set_is_symlink :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CInt ->                                 -- is_symlink : TBasicType TBoolean-    IO ()--{- |-Sets the \"is_symlink\" attribute in a 'GI.Gio.Objects.FileInfo.FileInfo' according to /@isSymlink@/.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_IS_SYMLINK'.--}-fileInfoSetIsSymlink ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> Bool-    {- ^ /@isSymlink@/: a 'Bool'. -}-    -> m ()-fileInfoSetIsSymlink info isSymlink = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    let isSymlink' = (fromIntegral . fromEnum) isSymlink-    g_file_info_set_is_symlink info' isSymlink'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetIsSymlinkMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetIsSymlinkMethodInfo a signature where-    overloadedMethod _ = fileInfoSetIsSymlink--#endif---- method FileInfo::set_modification_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mtime", argType = TInterface (Name {namespace = "GLib", name = "TimeVal"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTimeVal.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_modification_time" g_file_info_set_modification_time :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Ptr GLib.TimeVal.TimeVal ->             -- mtime : TInterface (Name {namespace = "GLib", name = "TimeVal"})-    IO ()--{- |-Sets the 'GI.Gio.Constants.FILE_ATTRIBUTE_TIME_MODIFIED' attribute in the file-info to the given time value.--}-fileInfoSetModificationTime ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> GLib.TimeVal.TimeVal-    {- ^ /@mtime@/: a 'GI.GLib.Structs.TimeVal.TimeVal'. -}-    -> m ()-fileInfoSetModificationTime info mtime = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    mtime' <- unsafeManagedPtrGetPtr mtime-    g_file_info_set_modification_time info' mtime'-    touchManagedPtr info-    touchManagedPtr mtime-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetModificationTimeMethodInfo-instance (signature ~ (GLib.TimeVal.TimeVal -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetModificationTimeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetModificationTime--#endif---- method FileInfo::set_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing a name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_name" g_file_info_set_name :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- name : TBasicType TFileName-    IO ()--{- |-Sets the name attribute for the current 'GI.Gio.Objects.FileInfo.FileInfo'.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_NAME'.--}-fileInfoSetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> [Char]-    {- ^ /@name@/: a string containing a name. -}-    -> m ()-fileInfoSetName info name = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    name' <- stringToCString name-    g_file_info_set_name info' name'-    touchManagedPtr info-    freeMem name'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetNameMethodInfo-instance (signature ~ ([Char] -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetNameMethodInfo a signature where-    overloadedMethod _ = fileInfoSetName--#endif---- method FileInfo::set_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #goffset containing the file's size.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_size" g_file_info_set_size :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Int64 ->                                -- size : TBasicType TInt64-    IO ()--{- |-Sets the 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_SIZE' attribute in the file info-to the given size.--}-fileInfoSetSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> Int64-    {- ^ /@size@/: a @/goffset/@ containing the file\'s size. -}-    -> m ()-fileInfoSetSize info size = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    g_file_info_set_size info' size-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetSizeMethodInfo-instance (signature ~ (Int64 -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetSizeMethodInfo a signature where-    overloadedMethod _ = fileInfoSetSize--#endif---- method FileInfo::set_sort_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_order", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a sort order integer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_sort_order" g_file_info_set_sort_order :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Int32 ->                                -- sort_order : TBasicType TInt32-    IO ()--{- |-Sets the sort order attribute in the file info structure. See-'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_SORT_ORDER'.--}-fileInfoSetSortOrder ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> Int32-    {- ^ /@sortOrder@/: a sort order integer. -}-    -> m ()-fileInfoSetSortOrder info sortOrder = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    g_file_info_set_sort_order info' sortOrder-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetSortOrderMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetSortOrderMethodInfo a signature where-    overloadedMethod _ = fileInfoSetSortOrder--#endif---- method FileInfo::set_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_symbolic_icon" g_file_info_set_symbolic_icon :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    Ptr Gio.Icon.Icon ->                    -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    IO ()--{- |-Sets the symbolic icon for a given 'GI.Gio.Objects.FileInfo.FileInfo'.-See 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_SYMBOLIC_ICON'.--/Since: 2.34/--}-fileInfoSetSymbolicIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a, Gio.Icon.IsIcon b) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> b-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon'. -}-    -> m ()-fileInfoSetSymbolicIcon info icon = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    icon' <- unsafeManagedPtrCastPtr icon-    g_file_info_set_symbolic_icon info' icon'-    touchManagedPtr info-    touchManagedPtr icon-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetSymbolicIconMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsFileInfo a, Gio.Icon.IsIcon b) => O.MethodInfo FileInfoSetSymbolicIconMethodInfo a signature where-    overloadedMethod _ = fileInfoSetSymbolicIcon--#endif---- method FileInfo::set_symlink_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symlink_target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a static string containing a path to a symlink target.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_set_symlink_target" g_file_info_set_symlink_target :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    CString ->                              -- symlink_target : TBasicType TUTF8-    IO ()--{- |-Sets the 'GI.Gio.Constants.FILE_ATTRIBUTE_STANDARD_SYMLINK_TARGET' attribute in the file info-to the given symlink target.--}-fileInfoSetSymlinkTarget ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: a 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> T.Text-    {- ^ /@symlinkTarget@/: a static string containing a path to a symlink target. -}-    -> m ()-fileInfoSetSymlinkTarget info symlinkTarget = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    symlinkTarget' <- textToCString symlinkTarget-    g_file_info_set_symlink_target info' symlinkTarget'-    touchManagedPtr info-    freeMem symlinkTarget'-    return ()--#if ENABLE_OVERLOADING-data FileInfoSetSymlinkTargetMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoSetSymlinkTargetMethodInfo a signature where-    overloadedMethod _ = fileInfoSetSymlinkTarget--#endif---- method FileInfo::unset_attribute_mask--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "FileInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFileInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_info_unset_attribute_mask" g_file_info_unset_attribute_mask :: -    Ptr FileInfo ->                         -- info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO ()--{- |-Unsets a mask set by 'GI.Gio.Objects.FileInfo.fileInfoSetAttributeMask', if one-is set.--}-fileInfoUnsetAttributeMask ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInfo a) =>-    a-    {- ^ /@info@/: 'GI.Gio.Objects.FileInfo.FileInfo'. -}-    -> m ()-fileInfoUnsetAttributeMask info = liftIO $ do-    info' <- unsafeManagedPtrCastPtr info-    g_file_info_unset_attribute_mask info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data FileInfoUnsetAttributeMaskMethodInfo-instance (signature ~ (m ()), MonadIO m, IsFileInfo a) => O.MethodInfo FileInfoUnsetAttributeMaskMethodInfo a signature where-    overloadedMethod _ = fileInfoUnsetAttributeMask--#endif--
− GI/Gio/Objects/FileInfo.hs-boot 
@@ -1,215 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FileInfo 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 FileInfo = FileInfo (ManagedPtr FileInfo)-instance GObject FileInfo where-class (GObject o, O.IsDescendantOf FileInfo o) => IsFileInfo o-instance (GObject o, O.IsDescendantOf FileInfo o) => IsFileInfo o-instance O.HasParentTypes FileInfo-#if ENABLE_OVERLOADING-data FileInfoClearStatusMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoCopyIntoMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoDupMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeAsStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeBooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeByteStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeInt32MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeInt64MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeObjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeStatusMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeStringvMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeUint32MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetAttributeUint64MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetContentTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetDeletionDateMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetDisplayNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetEditNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetEtagMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetFileTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetIsBackupMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetIsHiddenMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetIsSymlinkMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetModificationTimeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetSortOrderMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetSymbolicIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoGetSymlinkTargetMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoHasAttributeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoHasNamespaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoListAttributesMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoRemoveAttributeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeBooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeByteStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeInt32MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeInt64MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeMaskMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeObjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeStatusMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeStringvMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeUint32MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetAttributeUint64MethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetContentTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetDisplayNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetEditNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetFileTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetIsHiddenMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetIsSymlinkMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetModificationTimeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetSortOrderMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetSymbolicIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoSetSymlinkTargetMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInfoUnsetAttributeMaskMethodInfo-#endif
− GI/Gio/Objects/FileInputStream.hs 
@@ -1,366 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--GFileInputStream provides input streams that take their-content from a file.--GFileInputStream implements 'GI.Gio.Interfaces.Seekable.Seekable', which allows the input-stream to jump to arbitrary positions in the file, provided the-filesystem of the file allows it. To find the position of a file-input stream, use 'GI.Gio.Interfaces.Seekable.seekableTell'. To find out if a file input-stream supports seeking, use 'GI.Gio.Interfaces.Seekable.seekableCanSeek'.-To position a file input stream, use 'GI.Gio.Interfaces.Seekable.seekableSeek'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FileInputStream-    ( ---- * Exported types-    FileInputStream(..)                     ,-    IsFileInputStream                       ,-    toFileInputStream                       ,-    noFileInputStream                       ,--- -- * Methods--- ** queryInfo #method:queryInfo#--#if ENABLE_OVERLOADING-    FileInputStreamQueryInfoMethodInfo      ,-#endif-    fileInputStreamQueryInfo                ,----- ** queryInfoAsync #method:queryInfoAsync#--#if ENABLE_OVERLOADING-    FileInputStreamQueryInfoAsyncMethodInfo ,-#endif-    fileInputStreamQueryInfoAsync           ,----- ** queryInfoFinish #method:queryInfoFinish#--#if ENABLE_OVERLOADING-    FileInputStreamQueryInfoFinishMethodInfo,-#endif-    fileInputStreamQueryInfoFinish          ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype FileInputStream = FileInputStream (ManagedPtr FileInputStream)-foreign import ccall "g_file_input_stream_get_type"-    c_g_file_input_stream_get_type :: IO GType--instance GObject FileInputStream where-    gobjectType = c_g_file_input_stream_get_type-    ---- | Type class for types which can be safely cast to `FileInputStream`, for instance with `toFileInputStream`.-class (GObject o, O.IsDescendantOf FileInputStream o) => IsFileInputStream o-instance (GObject o, O.IsDescendantOf FileInputStream o) => IsFileInputStream o--instance O.HasParentTypes FileInputStream-type instance O.ParentTypes FileInputStream = '[Gio.InputStream.InputStream, GObject.Object.Object, Gio.Seekable.Seekable]---- | Cast to `FileInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFileInputStream :: (MonadIO m, IsFileInputStream o) => o -> m FileInputStream-toFileInputStream = liftIO . unsafeCastTo FileInputStream---- | A convenience alias for `Nothing` :: `Maybe` `FileInputStream`.-noFileInputStream :: Maybe FileInputStream-noFileInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveFileInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileInputStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveFileInputStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveFileInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolveFileInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolveFileInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolveFileInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolveFileInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolveFileInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolveFileInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileInputStreamMethod "queryInfo" o = FileInputStreamQueryInfoMethodInfo-    ResolveFileInputStreamMethod "queryInfoAsync" o = FileInputStreamQueryInfoAsyncMethodInfo-    ResolveFileInputStreamMethod "queryInfoFinish" o = FileInputStreamQueryInfoFinishMethodInfo-    ResolveFileInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolveFileInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolveFileInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolveFileInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolveFileInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolveFileInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolveFileInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolveFileInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolveFileInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolveFileInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileInputStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveFileInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolveFileInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolveFileInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolveFileInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileInputStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveFileInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileInputStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveFileInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolveFileInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileInputStreamMethod t FileInputStream, O.MethodInfo info FileInputStream p) => OL.IsLabel t (FileInputStream -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList FileInputStream-type instance O.AttributeList FileInputStream = FileInputStreamAttributeList-type FileInputStreamAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList FileInputStream = FileInputStreamSignalList-type FileInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FileInputStream::query_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute query string.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_input_stream_query_info" g_file_input_stream_query_info :: -    Ptr FileInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "FileInputStream"})-    CString ->                              -- attributes : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Queries a file input stream the given /@attributes@/. This function blocks-while querying the stream. For the asynchronous (non-blocking) version-of this function, see 'GI.Gio.Objects.FileInputStream.fileInputStreamQueryInfoAsync'. While the-stream is blocked, the stream will set the pending flag internally, and-any other operations on the stream will fail with 'GI.Gio.Enums.IOErrorEnumPending'.--}-fileInputStreamQueryInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileInputStream.FileInputStream'. -}-    -> T.Text-    {- ^ /@attributes@/: a file attribute query string. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInfo.FileInfo', or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileInputStreamQueryInfo stream attributes cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_input_stream_query_info stream' attributes' maybeCancellable-        checkUnexpectedReturnNULL "fileInputStreamQueryInfo" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--#if ENABLE_OVERLOADING-data FileInputStreamQueryInfoMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m Gio.FileInfo.FileInfo), MonadIO m, IsFileInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileInputStreamQueryInfoMethodInfo a signature where-    overloadedMethod _ = fileInputStreamQueryInfo--#endif---- method FileInputStream::query_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute query string.", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_input_stream_query_info_async" g_file_input_stream_query_info_async :: -    Ptr FileInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "FileInputStream"})-    CString ->                              -- attributes : TBasicType TUTF8-    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 ()--{- |-Queries the stream information asynchronously.-When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.FileInputStream.fileInputStreamQueryInfoFinish'-to get the result of the operation.--For the synchronous version of this function,-see 'GI.Gio.Objects.FileInputStream.fileInputStreamQueryInfo'.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be set--}-fileInputStreamQueryInfoAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileInputStream.FileInputStream'. -}-    -> T.Text-    {- ^ /@attributes@/: a file attribute query string. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-fileInputStreamQueryInfoAsync stream attributes ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    attributes' <- textToCString attributes-    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-    g_file_input_stream_query_info_async stream' attributes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--#if ENABLE_OVERLOADING-data FileInputStreamQueryInfoAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFileInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileInputStreamQueryInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileInputStreamQueryInfoAsync--#endif---- method FileInputStream::query_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileInputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_input_stream_query_info_finish" g_file_input_stream_query_info_finish :: -    Ptr FileInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "FileInputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Finishes an asynchronous info query operation.--}-fileInputStreamQueryInfoFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileInputStream.FileInputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ 'GI.Gio.Objects.FileInfo.FileInfo'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileInputStreamQueryInfoFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_input_stream_query_info_finish stream' result_'-        checkUnexpectedReturnNULL "fileInputStreamQueryInfoFinish" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr stream-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileInputStreamQueryInfoFinishMethodInfo-instance (signature ~ (b -> m Gio.FileInfo.FileInfo), MonadIO m, IsFileInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileInputStreamQueryInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileInputStreamQueryInfoFinish--#endif--
− GI/Gio/Objects/FileInputStream.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FileInputStream 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 FileInputStream = FileInputStream (ManagedPtr FileInputStream)-instance GObject FileInputStream where-class (GObject o, O.IsDescendantOf FileInputStream o) => IsFileInputStream o-instance (GObject o, O.IsDescendantOf FileInputStream o) => IsFileInputStream o-instance O.HasParentTypes FileInputStream-#if ENABLE_OVERLOADING-data FileInputStreamQueryInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInputStreamQueryInfoAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileInputStreamQueryInfoFinishMethodInfo-#endif
− GI/Gio/Objects/FileMonitor.hs 
@@ -1,585 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Monitors a file or directory for changes.--To obtain a 'GI.Gio.Objects.FileMonitor.FileMonitor' for a file or directory, use-'GI.Gio.Interfaces.File.fileMonitor', 'GI.Gio.Interfaces.File.fileMonitorFile', or-'GI.Gio.Interfaces.File.fileMonitorDirectory'.--To get informed about changes to the file or directory you are-monitoring, connect to the 'GI.Gio.Objects.FileMonitor.FileMonitor'::@/changed/@ signal. The-signal will be emitted in the-[thread-default main context][g-main-context-push-thread-default]-of the thread that the monitor was created in-(though if the global default main context is blocked, this may-cause notifications to be blocked even if the thread-default-context is still running).--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FileMonitor-    ( ---- * Exported types-    FileMonitor(..)                         ,-    IsFileMonitor                           ,-    toFileMonitor                           ,-    noFileMonitor                           ,--- -- * Methods--- ** cancel #method:cancel#--#if ENABLE_OVERLOADING-    FileMonitorCancelMethodInfo             ,-#endif-    fileMonitorCancel                       ,----- ** emitEvent #method:emitEvent#--#if ENABLE_OVERLOADING-    FileMonitorEmitEventMethodInfo          ,-#endif-    fileMonitorEmitEvent                    ,----- ** isCancelled #method:isCancelled#--#if ENABLE_OVERLOADING-    FileMonitorIsCancelledMethodInfo        ,-#endif-    fileMonitorIsCancelled                  ,----- ** setRateLimit #method:setRateLimit#--#if ENABLE_OVERLOADING-    FileMonitorSetRateLimitMethodInfo       ,-#endif-    fileMonitorSetRateLimit                 ,----- -- * Properties--- ** cancelled #attr:cancelled#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    FileMonitorCancelledPropertyInfo        ,-#endif-#if ENABLE_OVERLOADING-    fileMonitorCancelled                    ,-#endif-    getFileMonitorCancelled                 ,----- ** rateLimit #attr:rateLimit#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    FileMonitorRateLimitPropertyInfo        ,-#endif-    constructFileMonitorRateLimit           ,-#if ENABLE_OVERLOADING-    fileMonitorRateLimit                    ,-#endif-    getFileMonitorRateLimit                 ,-    setFileMonitorRateLimit                 ,----- -- * Signals--- ** changed #signal:changed#--    C_FileMonitorChangedCallback            ,-    FileMonitorChangedCallback              ,-#if ENABLE_OVERLOADING-    FileMonitorChangedSignalInfo            ,-#endif-    afterFileMonitorChanged                 ,-    genClosure_FileMonitorChanged           ,-    mk_FileMonitorChangedCallback           ,-    noFileMonitorChangedCallback            ,-    onFileMonitorChanged                    ,-    wrap_FileMonitorChangedCallback         ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File---- | Memory-managed wrapper type.-newtype FileMonitor = FileMonitor (ManagedPtr FileMonitor)-foreign import ccall "g_file_monitor_get_type"-    c_g_file_monitor_get_type :: IO GType--instance GObject FileMonitor where-    gobjectType = c_g_file_monitor_get_type-    ---- | Type class for types which can be safely cast to `FileMonitor`, for instance with `toFileMonitor`.-class (GObject o, O.IsDescendantOf FileMonitor o) => IsFileMonitor o-instance (GObject o, O.IsDescendantOf FileMonitor o) => IsFileMonitor o--instance O.HasParentTypes FileMonitor-type instance O.ParentTypes FileMonitor = '[GObject.Object.Object]---- | Cast to `FileMonitor`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFileMonitor :: (MonadIO m, IsFileMonitor o) => o -> m FileMonitor-toFileMonitor = liftIO . unsafeCastTo FileMonitor---- | A convenience alias for `Nothing` :: `Maybe` `FileMonitor`.-noFileMonitor :: Maybe FileMonitor-noFileMonitor = Nothing--#if ENABLE_OVERLOADING-type family ResolveFileMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileMonitorMethod "cancel" o = FileMonitorCancelMethodInfo-    ResolveFileMonitorMethod "emitEvent" o = FileMonitorEmitEventMethodInfo-    ResolveFileMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileMonitorMethod "isCancelled" o = FileMonitorIsCancelledMethodInfo-    ResolveFileMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileMonitorMethod "setRateLimit" o = FileMonitorSetRateLimitMethodInfo-    ResolveFileMonitorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileMonitorMethod t FileMonitor, O.MethodInfo info FileMonitor p) => OL.IsLabel t (FileMonitor -> 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 FileMonitor::changed-{- |-Emitted when /@file@/ has been changed.--If using 'GI.Gio.Flags.FileMonitorFlagsWatchMoves' on a directory monitor, and-the information is available (and if supported by the backend),-/@eventType@/ may be 'GI.Gio.Enums.FileMonitorEventRenamed',-'GI.Gio.Enums.FileMonitorEventMovedIn' or 'GI.Gio.Enums.FileMonitorEventMovedOut'.--In all cases /@file@/ will be a child of the monitored directory.  For-renames, /@file@/ will be the old name and /@otherFile@/ is the new-name.  For \"moved in\" events, /@file@/ is the name of the file that-appeared and /@otherFile@/ is the old name that it was moved from (in-another directory).  For \"moved out\" events, /@file@/ is the name of-the file that used to be in this directory and /@otherFile@/ is the-name of the file at its new location.--It makes sense to treat 'GI.Gio.Enums.FileMonitorEventMovedIn' as-equivalent to 'GI.Gio.Enums.FileMonitorEventCreated' and-'GI.Gio.Enums.FileMonitorEventMovedOut' as equivalent to-'GI.Gio.Enums.FileMonitorEventDeleted', with extra information.-'GI.Gio.Enums.FileMonitorEventRenamed' is equivalent to a delete\/create-pair.  This is exactly how the events will be reported in the case-that the 'GI.Gio.Flags.FileMonitorFlagsWatchMoves' flag is not in use.--If using the deprecated flag 'GI.Gio.Flags.FileMonitorFlagsSendMoved' flag and /@eventType@/ is-@/G_FILE_MONITOR_EVENT_MOVED/@, /@file@/ will be set to a 'GI.Gio.Interfaces.File.File' containing the-old path, and /@otherFile@/ will be set to a 'GI.Gio.Interfaces.File.File' containing the new path.--In all the other cases, /@otherFile@/ will be set to @/NULL/@.--}-type FileMonitorChangedCallback =-    Gio.File.File-    {- ^ /@file@/: a 'GI.Gio.Interfaces.File.File'. -}-    -> Maybe Gio.File.File-    {- ^ /@otherFile@/: a 'GI.Gio.Interfaces.File.File' or @/NULL/@. -}-    -> Gio.Enums.FileMonitorEvent-    {- ^ /@eventType@/: a 'GI.Gio.Enums.FileMonitorEvent'. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `FileMonitorChangedCallback`@.-noFileMonitorChangedCallback :: Maybe FileMonitorChangedCallback-noFileMonitorChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_FileMonitorChangedCallback =-    Ptr () ->                               -- object-    Ptr Gio.File.File ->-    Ptr Gio.File.File ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_FileMonitorChangedCallback`.-foreign import ccall "wrapper"-    mk_FileMonitorChangedCallback :: C_FileMonitorChangedCallback -> IO (FunPtr C_FileMonitorChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_FileMonitorChanged :: MonadIO m => FileMonitorChangedCallback -> m (GClosure C_FileMonitorChangedCallback)-genClosure_FileMonitorChanged cb = liftIO $ do-    let cb' = wrap_FileMonitorChangedCallback cb-    mk_FileMonitorChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `FileMonitorChangedCallback` into a `C_FileMonitorChangedCallback`.-wrap_FileMonitorChangedCallback ::-    FileMonitorChangedCallback ->-    C_FileMonitorChangedCallback-wrap_FileMonitorChangedCallback _cb _ file otherFile eventType _ = do-    file' <- (newObject Gio.File.File) file-    maybeOtherFile <--        if otherFile == nullPtr-        then return Nothing-        else do-            otherFile' <- (newObject Gio.File.File) otherFile-            return $ Just otherFile'-    let eventType' = (toEnum . fromIntegral) eventType-    _cb  file' maybeOtherFile eventType'---{- |-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' fileMonitor #changed callback-@--}-onFileMonitorChanged :: (IsFileMonitor a, MonadIO m) => a -> FileMonitorChangedCallback -> m SignalHandlerId-onFileMonitorChanged obj cb = liftIO $ do-    let cb' = wrap_FileMonitorChangedCallback cb-    cb'' <- mk_FileMonitorChangedCallback 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' fileMonitor #changed callback-@--}-afterFileMonitorChanged :: (IsFileMonitor a, MonadIO m) => a -> FileMonitorChangedCallback -> m SignalHandlerId-afterFileMonitorChanged obj cb = liftIO $ do-    let cb' = wrap_FileMonitorChangedCallback cb-    cb'' <- mk_FileMonitorChangedCallback cb'-    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter----- VVV Prop "cancelled"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@cancelled@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' fileMonitor #cancelled-@--}-getFileMonitorCancelled :: (MonadIO m, IsFileMonitor o) => o -> m Bool-getFileMonitorCancelled obj = liftIO $ B.Properties.getObjectPropertyBool obj "cancelled"--#if ENABLE_OVERLOADING-data FileMonitorCancelledPropertyInfo-instance AttrInfo FileMonitorCancelledPropertyInfo where-    type AttrAllowedOps FileMonitorCancelledPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint FileMonitorCancelledPropertyInfo = (~) ()-    type AttrBaseTypeConstraint FileMonitorCancelledPropertyInfo = IsFileMonitor-    type AttrGetType FileMonitorCancelledPropertyInfo = Bool-    type AttrLabel FileMonitorCancelledPropertyInfo = "cancelled"-    type AttrOrigin FileMonitorCancelledPropertyInfo = FileMonitor-    attrGet _ = getFileMonitorCancelled-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "rate-limit"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just False)--{- |-Get the value of the “@rate-limit@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' fileMonitor #rateLimit-@--}-getFileMonitorRateLimit :: (MonadIO m, IsFileMonitor o) => o -> m Int32-getFileMonitorRateLimit obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "rate-limit"--{- |-Set the value of the “@rate-limit@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' fileMonitor [ #rateLimit 'Data.GI.Base.Attributes.:=' value ]-@--}-setFileMonitorRateLimit :: (MonadIO m, IsFileMonitor o) => o -> Int32 -> m ()-setFileMonitorRateLimit obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "rate-limit" val--{- |-Construct a `GValueConstruct` with valid value for the “@rate-limit@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructFileMonitorRateLimit :: (IsFileMonitor o) => Int32 -> IO (GValueConstruct o)-constructFileMonitorRateLimit val = B.Properties.constructObjectPropertyInt32 "rate-limit" val--#if ENABLE_OVERLOADING-data FileMonitorRateLimitPropertyInfo-instance AttrInfo FileMonitorRateLimitPropertyInfo where-    type AttrAllowedOps FileMonitorRateLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint FileMonitorRateLimitPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint FileMonitorRateLimitPropertyInfo = IsFileMonitor-    type AttrGetType FileMonitorRateLimitPropertyInfo = Int32-    type AttrLabel FileMonitorRateLimitPropertyInfo = "rate-limit"-    type AttrOrigin FileMonitorRateLimitPropertyInfo = FileMonitor-    attrGet _ = getFileMonitorRateLimit-    attrSet _ = setFileMonitorRateLimit-    attrConstruct _ = constructFileMonitorRateLimit-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList FileMonitor-type instance O.AttributeList FileMonitor = FileMonitorAttributeList-type FileMonitorAttributeList = ('[ '("cancelled", FileMonitorCancelledPropertyInfo), '("rateLimit", FileMonitorRateLimitPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-fileMonitorCancelled :: AttrLabelProxy "cancelled"-fileMonitorCancelled = AttrLabelProxy--fileMonitorRateLimit :: AttrLabelProxy "rateLimit"-fileMonitorRateLimit = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data FileMonitorChangedSignalInfo-instance SignalInfo FileMonitorChangedSignalInfo where-    type HaskellCallbackType FileMonitorChangedSignalInfo = FileMonitorChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_FileMonitorChangedCallback cb-        cb'' <- mk_FileMonitorChangedCallback cb'-        connectSignalFunPtr obj "changed" cb'' connectMode--type instance O.SignalList FileMonitor = FileMonitorSignalList-type FileMonitorSignalList = ('[ '("changed", FileMonitorChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FileMonitor::cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "FileMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileMonitor.", 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 "g_file_monitor_cancel" g_file_monitor_cancel :: -    Ptr FileMonitor ->                      -- monitor : TInterface (Name {namespace = "Gio", name = "FileMonitor"})-    IO CInt--{- |-Cancels a file monitor.--}-fileMonitorCancel ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileMonitor a) =>-    a-    {- ^ /@monitor@/: a 'GI.Gio.Objects.FileMonitor.FileMonitor'. -}-    -> m Bool-    {- ^ __Returns:__ always 'True' -}-fileMonitorCancel monitor = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    result <- g_file_monitor_cancel monitor'-    let result' = (/= 0) result-    touchManagedPtr monitor-    return result'--#if ENABLE_OVERLOADING-data FileMonitorCancelMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFileMonitor a) => O.MethodInfo FileMonitorCancelMethodInfo a signature where-    overloadedMethod _ = fileMonitorCancel--#endif---- method FileMonitor::emit_event--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "FileMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileMonitor.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_file", argType = TInterface (Name {namespace = "Gio", name = "File"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFile.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_type", argType = TInterface (Name {namespace = "Gio", name = "FileMonitorEvent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GFileMonitorEvent flags.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_monitor_emit_event" g_file_monitor_emit_event :: -    Ptr FileMonitor ->                      -- monitor : TInterface (Name {namespace = "Gio", name = "FileMonitor"})-    Ptr Gio.File.File ->                    -- child : TInterface (Name {namespace = "Gio", name = "File"})-    Ptr Gio.File.File ->                    -- other_file : TInterface (Name {namespace = "Gio", name = "File"})-    CUInt ->                                -- event_type : TInterface (Name {namespace = "Gio", name = "FileMonitorEvent"})-    IO ()--{- |-Emits the 'GI.Gio.Objects.FileMonitor.FileMonitor'::@/changed/@ signal if a change-has taken place. Should be called from file monitor-implementations only.--Implementations are responsible to call this method from the-[thread-default main context][g-main-context-push-thread-default] of the-thread that the monitor was created in.--}-fileMonitorEmitEvent ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileMonitor a, Gio.File.IsFile b, Gio.File.IsFile c) =>-    a-    {- ^ /@monitor@/: a 'GI.Gio.Objects.FileMonitor.FileMonitor'. -}-    -> b-    {- ^ /@child@/: a 'GI.Gio.Interfaces.File.File'. -}-    -> c-    {- ^ /@otherFile@/: a 'GI.Gio.Interfaces.File.File'. -}-    -> Gio.Enums.FileMonitorEvent-    {- ^ /@eventType@/: a set of 'GI.Gio.Enums.FileMonitorEvent' flags. -}-    -> m ()-fileMonitorEmitEvent monitor child otherFile eventType = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    child' <- unsafeManagedPtrCastPtr child-    otherFile' <- unsafeManagedPtrCastPtr otherFile-    let eventType' = (fromIntegral . fromEnum) eventType-    g_file_monitor_emit_event monitor' child' otherFile' eventType'-    touchManagedPtr monitor-    touchManagedPtr child-    touchManagedPtr otherFile-    return ()--#if ENABLE_OVERLOADING-data FileMonitorEmitEventMethodInfo-instance (signature ~ (b -> c -> Gio.Enums.FileMonitorEvent -> m ()), MonadIO m, IsFileMonitor a, Gio.File.IsFile b, Gio.File.IsFile c) => O.MethodInfo FileMonitorEmitEventMethodInfo a signature where-    overloadedMethod _ = fileMonitorEmitEvent--#endif---- method FileMonitor::is_cancelled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "FileMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileMonitor", 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 "g_file_monitor_is_cancelled" g_file_monitor_is_cancelled :: -    Ptr FileMonitor ->                      -- monitor : TInterface (Name {namespace = "Gio", name = "FileMonitor"})-    IO CInt--{- |-Returns whether the monitor is canceled.--}-fileMonitorIsCancelled ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileMonitor a) =>-    a-    {- ^ /@monitor@/: a 'GI.Gio.Objects.FileMonitor.FileMonitor' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if monitor is canceled. 'False' otherwise. -}-fileMonitorIsCancelled monitor = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    result <- g_file_monitor_is_cancelled monitor'-    let result' = (/= 0) result-    touchManagedPtr monitor-    return result'--#if ENABLE_OVERLOADING-data FileMonitorIsCancelledMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFileMonitor a) => O.MethodInfo FileMonitorIsCancelledMethodInfo a signature where-    overloadedMethod _ = fileMonitorIsCancelled--#endif---- method FileMonitor::set_rate_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "monitor", argType = TInterface (Name {namespace = "Gio", name = "FileMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileMonitor.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit_msecs", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a non-negative integer with the limit in milliseconds\n    to poll for changes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_monitor_set_rate_limit" g_file_monitor_set_rate_limit :: -    Ptr FileMonitor ->                      -- monitor : TInterface (Name {namespace = "Gio", name = "FileMonitor"})-    Int32 ->                                -- limit_msecs : TBasicType TInt-    IO ()--{- |-Sets the rate limit to which the /@monitor@/ will report-consecutive change events to the same file.--}-fileMonitorSetRateLimit ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileMonitor a) =>-    a-    {- ^ /@monitor@/: a 'GI.Gio.Objects.FileMonitor.FileMonitor'. -}-    -> Int32-    {- ^ /@limitMsecs@/: a non-negative integer with the limit in milliseconds-    to poll for changes -}-    -> m ()-fileMonitorSetRateLimit monitor limitMsecs = liftIO $ do-    monitor' <- unsafeManagedPtrCastPtr monitor-    g_file_monitor_set_rate_limit monitor' limitMsecs-    touchManagedPtr monitor-    return ()--#if ENABLE_OVERLOADING-data FileMonitorSetRateLimitMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsFileMonitor a) => O.MethodInfo FileMonitorSetRateLimitMethodInfo a signature where-    overloadedMethod _ = fileMonitorSetRateLimit--#endif--
− GI/Gio/Objects/FileMonitor.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FileMonitor 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 FileMonitor = FileMonitor (ManagedPtr FileMonitor)-instance GObject FileMonitor where-class (GObject o, O.IsDescendantOf FileMonitor o) => IsFileMonitor o-instance (GObject o, O.IsDescendantOf FileMonitor o) => IsFileMonitor o-instance O.HasParentTypes FileMonitor-#if ENABLE_OVERLOADING-data FileMonitorCancelledPropertyInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorRateLimitPropertyInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorCancelMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorEmitEventMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorIsCancelledMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileMonitorSetRateLimitMethodInfo-#endif
− GI/Gio/Objects/FileOutputStream.hs 
@@ -1,437 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--GFileOutputStream provides output streams that write their-content to a file.--GFileOutputStream implements 'GI.Gio.Interfaces.Seekable.Seekable', which allows the output-stream to jump to arbitrary positions in the file and to truncate-the file, provided the filesystem of the file supports these-operations.--To find the position of a file output stream, use 'GI.Gio.Interfaces.Seekable.seekableTell'.-To find out if a file output stream supports seeking, use-'GI.Gio.Interfaces.Seekable.seekableCanSeek'.To position a file output stream, use-'GI.Gio.Interfaces.Seekable.seekableSeek'. To find out if a file output stream supports-truncating, use 'GI.Gio.Interfaces.Seekable.seekableCanTruncate'. To truncate a file output-stream, use 'GI.Gio.Interfaces.Seekable.seekableTruncate'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FileOutputStream-    ( ---- * Exported types-    FileOutputStream(..)                    ,-    IsFileOutputStream                      ,-    toFileOutputStream                      ,-    noFileOutputStream                      ,--- -- * Methods--- ** getEtag #method:getEtag#--#if ENABLE_OVERLOADING-    FileOutputStreamGetEtagMethodInfo       ,-#endif-    fileOutputStreamGetEtag                 ,----- ** queryInfo #method:queryInfo#--#if ENABLE_OVERLOADING-    FileOutputStreamQueryInfoMethodInfo     ,-#endif-    fileOutputStreamQueryInfo               ,----- ** queryInfoAsync #method:queryInfoAsync#--#if ENABLE_OVERLOADING-    FileOutputStreamQueryInfoAsyncMethodInfo,-#endif-    fileOutputStreamQueryInfoAsync          ,----- ** queryInfoFinish #method:queryInfoFinish#--#if ENABLE_OVERLOADING-    FileOutputStreamQueryInfoFinishMethodInfo,-#endif-    fileOutputStreamQueryInfoFinish         ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype FileOutputStream = FileOutputStream (ManagedPtr FileOutputStream)-foreign import ccall "g_file_output_stream_get_type"-    c_g_file_output_stream_get_type :: IO GType--instance GObject FileOutputStream where-    gobjectType = c_g_file_output_stream_get_type-    ---- | Type class for types which can be safely cast to `FileOutputStream`, for instance with `toFileOutputStream`.-class (GObject o, O.IsDescendantOf FileOutputStream o) => IsFileOutputStream o-instance (GObject o, O.IsDescendantOf FileOutputStream o) => IsFileOutputStream o--instance O.HasParentTypes FileOutputStream-type instance O.ParentTypes FileOutputStream = '[Gio.OutputStream.OutputStream, GObject.Object.Object, Gio.Seekable.Seekable]---- | Cast to `FileOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFileOutputStream :: (MonadIO m, IsFileOutputStream o) => o -> m FileOutputStream-toFileOutputStream = liftIO . unsafeCastTo FileOutputStream---- | A convenience alias for `Nothing` :: `Maybe` `FileOutputStream`.-noFileOutputStream :: Maybe FileOutputStream-noFileOutputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveFileOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFileOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFileOutputStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveFileOutputStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveFileOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo-    ResolveFileOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo-    ResolveFileOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo-    ResolveFileOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo-    ResolveFileOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo-    ResolveFileOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo-    ResolveFileOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo-    ResolveFileOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFileOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFileOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFileOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo-    ResolveFileOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo-    ResolveFileOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo-    ResolveFileOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFileOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFileOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFileOutputStreamMethod "queryInfo" o = FileOutputStreamQueryInfoMethodInfo-    ResolveFileOutputStreamMethod "queryInfoAsync" o = FileOutputStreamQueryInfoAsyncMethodInfo-    ResolveFileOutputStreamMethod "queryInfoFinish" o = FileOutputStreamQueryInfoFinishMethodInfo-    ResolveFileOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFileOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFileOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFileOutputStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveFileOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo-    ResolveFileOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo-    ResolveFileOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo-    ResolveFileOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFileOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFileOutputStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveFileOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFileOutputStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveFileOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFileOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFileOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo-    ResolveFileOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo-    ResolveFileOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo-    ResolveFileOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo-    ResolveFileOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo-    ResolveFileOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo-    ResolveFileOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo-    ResolveFileOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo-    ResolveFileOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo-    ResolveFileOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo-    ResolveFileOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo-    ResolveFileOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo-    ResolveFileOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo-    ResolveFileOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo-    ResolveFileOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo-    ResolveFileOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFileOutputStreamMethod "getEtag" o = FileOutputStreamGetEtagMethodInfo-    ResolveFileOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFileOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFileOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFileOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo-    ResolveFileOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFileOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileOutputStreamMethod t FileOutputStream, O.MethodInfo info FileOutputStream p) => OL.IsLabel t (FileOutputStream -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList FileOutputStream-type instance O.AttributeList FileOutputStream = FileOutputStreamAttributeList-type FileOutputStreamAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList FileOutputStream = FileOutputStreamSignalList-type FileOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FileOutputStream::get_etag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileOutputStream.", 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 "g_file_output_stream_get_etag" g_file_output_stream_get_etag :: -    Ptr FileOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "FileOutputStream"})-    IO CString--{- |-Gets the entity tag for the file when it has been written.-This must be called after the stream has been written-and closed, as the etag can change while writing.--}-fileOutputStreamGetEtag ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileOutputStream.FileOutputStream'. -}-    -> m T.Text-    {- ^ __Returns:__ the entity tag for the stream. -}-fileOutputStreamGetEtag stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_file_output_stream_get_etag stream'-    checkUnexpectedReturnNULL "fileOutputStreamGetEtag" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data FileOutputStreamGetEtagMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsFileOutputStream a) => O.MethodInfo FileOutputStreamGetEtagMethodInfo a signature where-    overloadedMethod _ = fileOutputStreamGetEtag--#endif---- method FileOutputStream::query_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute query string.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_output_stream_query_info" g_file_output_stream_query_info :: -    Ptr FileOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "FileOutputStream"})-    CString ->                              -- attributes : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Queries a file output stream for the given /@attributes@/.-This function blocks while querying the stream. For the asynchronous-version of this function, see 'GI.Gio.Objects.FileOutputStream.fileOutputStreamQueryInfoAsync'.-While the stream is blocked, the stream will set the pending flag-internally, and any other operations on the stream will fail with-'GI.Gio.Enums.IOErrorEnumPending'.--Can fail if the stream was already closed (with /@error@/ being set to-'GI.Gio.Enums.IOErrorEnumClosed'), the stream has pending operations (with /@error@/ being-set to 'GI.Gio.Enums.IOErrorEnumPending'), or if querying info is not supported for-the stream\'s interface (with /@error@/ being set to 'GI.Gio.Enums.IOErrorEnumNotSupported'). In-all cases of failure, 'Nothing' will be returned.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be set, and 'Nothing' will-be returned.--}-fileOutputStreamQueryInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileOutputStream.FileOutputStream'. -}-    -> T.Text-    {- ^ /@attributes@/: a file attribute query string. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInfo.FileInfo' for the /@stream@/, or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileOutputStreamQueryInfo stream attributes cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    attributes' <- textToCString attributes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_file_output_stream_query_info stream' attributes' maybeCancellable-        checkUnexpectedReturnNULL "fileOutputStreamQueryInfo" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem attributes'-        return result'-     ) (do-        freeMem attributes'-     )--#if ENABLE_OVERLOADING-data FileOutputStreamQueryInfoMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m Gio.FileInfo.FileInfo), MonadIO m, IsFileOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileOutputStreamQueryInfoMethodInfo a signature where-    overloadedMethod _ = fileOutputStreamQueryInfo--#endif---- method FileOutputStream::query_info_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute query string.", 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 "the [I/O priority][gio-GIOScheduler] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_output_stream_query_info_async" g_file_output_stream_query_info_async :: -    Ptr FileOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "FileOutputStream"})-    CString ->                              -- attributes : TBasicType TUTF8-    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 queries the /@stream@/ for a 'GI.Gio.Objects.FileInfo.FileInfo'. When completed,-/@callback@/ will be called with a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' which can be used to-finish the operation with 'GI.Gio.Objects.FileOutputStream.fileOutputStreamQueryInfoFinish'.--For the synchronous version of this function, see-'GI.Gio.Objects.FileOutputStream.fileOutputStreamQueryInfo'.--}-fileOutputStreamQueryInfoAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileOutputStream.FileOutputStream'. -}-    -> T.Text-    {- ^ /@attributes@/: a file attribute query string. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][gio-GIOScheduler] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-fileOutputStreamQueryInfoAsync stream attributes ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    attributes' <- textToCString attributes-    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-    g_file_output_stream_query_info_async stream' attributes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem attributes'-    return ()--#if ENABLE_OVERLOADING-data FileOutputStreamQueryInfoAsyncMethodInfo-instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsFileOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo FileOutputStreamQueryInfoAsyncMethodInfo a signature where-    overloadedMethod _ = fileOutputStreamQueryInfoAsync--#endif---- method FileOutputStream::query_info_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FileOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileOutputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_file_output_stream_query_info_finish" g_file_output_stream_query_info_finish :: -    Ptr FileOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "FileOutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Finalizes the asynchronous query started-by 'GI.Gio.Objects.FileOutputStream.fileOutputStreamQueryInfoAsync'.--}-fileOutputStreamQueryInfoFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsFileOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FileOutputStream.FileOutputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ A 'GI.Gio.Objects.FileInfo.FileInfo' for the finished query. /(Can throw 'Data.GI.Base.GError.GError')/ -}-fileOutputStreamQueryInfoFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_file_output_stream_query_info_finish stream' result_'-        checkUnexpectedReturnNULL "fileOutputStreamQueryInfoFinish" result-        result' <- (wrapObject Gio.FileInfo.FileInfo) result-        touchManagedPtr stream-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data FileOutputStreamQueryInfoFinishMethodInfo-instance (signature ~ (b -> m Gio.FileInfo.FileInfo), MonadIO m, IsFileOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo FileOutputStreamQueryInfoFinishMethodInfo a signature where-    overloadedMethod _ = fileOutputStreamQueryInfoFinish--#endif--
− GI/Gio/Objects/FileOutputStream.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FileOutputStream 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 FileOutputStream = FileOutputStream (ManagedPtr FileOutputStream)-instance GObject FileOutputStream where-class (GObject o, O.IsDescendantOf FileOutputStream o) => IsFileOutputStream o-instance (GObject o, O.IsDescendantOf FileOutputStream o) => IsFileOutputStream o-instance O.HasParentTypes FileOutputStream-#if ENABLE_OVERLOADING-data FileOutputStreamGetEtagMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileOutputStreamQueryInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileOutputStreamQueryInfoAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileOutputStreamQueryInfoFinishMethodInfo-#endif
− GI/Gio/Objects/FilenameCompleter.hs 
@@ -1,402 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Completes partial file and directory names given a partial string by-looking in the file system for clues. Can return a list of possible-completion strings for widget implementations.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FilenameCompleter-    ( ---- * Exported types-    FilenameCompleter(..)                   ,-    IsFilenameCompleter                     ,-    toFilenameCompleter                     ,-    noFilenameCompleter                     ,--- -- * Methods--- ** getCompletionSuffix #method:getCompletionSuffix#--#if ENABLE_OVERLOADING-    FilenameCompleterGetCompletionSuffixMethodInfo,-#endif-    filenameCompleterGetCompletionSuffix    ,----- ** getCompletions #method:getCompletions#--#if ENABLE_OVERLOADING-    FilenameCompleterGetCompletionsMethodInfo,-#endif-    filenameCompleterGetCompletions         ,----- ** new #method:new#--    filenameCompleterNew                    ,----- ** setDirsOnly #method:setDirsOnly#--#if ENABLE_OVERLOADING-    FilenameCompleterSetDirsOnlyMethodInfo  ,-#endif-    filenameCompleterSetDirsOnly            ,----- -- * Signals--- ** gotCompletionData #signal:gotCompletionData#--    C_FilenameCompleterGotCompletionDataCallback,-    FilenameCompleterGotCompletionDataCallback,-#if ENABLE_OVERLOADING-    FilenameCompleterGotCompletionDataSignalInfo,-#endif-    afterFilenameCompleterGotCompletionData ,-    genClosure_FilenameCompleterGotCompletionData,-    mk_FilenameCompleterGotCompletionDataCallback,-    noFilenameCompleterGotCompletionDataCallback,-    onFilenameCompleterGotCompletionData    ,-    wrap_FilenameCompleterGotCompletionDataCallback,-----    ) 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 FilenameCompleter = FilenameCompleter (ManagedPtr FilenameCompleter)-foreign import ccall "g_filename_completer_get_type"-    c_g_filename_completer_get_type :: IO GType--instance GObject FilenameCompleter where-    gobjectType = c_g_filename_completer_get_type-    ---- | Type class for types which can be safely cast to `FilenameCompleter`, for instance with `toFilenameCompleter`.-class (GObject o, O.IsDescendantOf FilenameCompleter o) => IsFilenameCompleter o-instance (GObject o, O.IsDescendantOf FilenameCompleter o) => IsFilenameCompleter o--instance O.HasParentTypes FilenameCompleter-type instance O.ParentTypes FilenameCompleter = '[GObject.Object.Object]---- | Cast to `FilenameCompleter`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFilenameCompleter :: (MonadIO m, IsFilenameCompleter o) => o -> m FilenameCompleter-toFilenameCompleter = liftIO . unsafeCastTo FilenameCompleter---- | A convenience alias for `Nothing` :: `Maybe` `FilenameCompleter`.-noFilenameCompleter :: Maybe FilenameCompleter-noFilenameCompleter = Nothing--#if ENABLE_OVERLOADING-type family ResolveFilenameCompleterMethod (t :: Symbol) (o :: *) :: * where-    ResolveFilenameCompleterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFilenameCompleterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFilenameCompleterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFilenameCompleterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFilenameCompleterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFilenameCompleterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFilenameCompleterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFilenameCompleterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFilenameCompleterMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFilenameCompleterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFilenameCompleterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFilenameCompleterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFilenameCompleterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFilenameCompleterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFilenameCompleterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFilenameCompleterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFilenameCompleterMethod "getCompletionSuffix" o = FilenameCompleterGetCompletionSuffixMethodInfo-    ResolveFilenameCompleterMethod "getCompletions" o = FilenameCompleterGetCompletionsMethodInfo-    ResolveFilenameCompleterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFilenameCompleterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFilenameCompleterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFilenameCompleterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFilenameCompleterMethod "setDirsOnly" o = FilenameCompleterSetDirsOnlyMethodInfo-    ResolveFilenameCompleterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFilenameCompleterMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFilenameCompleterMethod t FilenameCompleter, O.MethodInfo info FilenameCompleter p) => OL.IsLabel t (FilenameCompleter -> 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 FilenameCompleter::got-completion-data-{- |-Emitted when the file name completion information comes available.--}-type FilenameCompleterGotCompletionDataCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `FilenameCompleterGotCompletionDataCallback`@.-noFilenameCompleterGotCompletionDataCallback :: Maybe FilenameCompleterGotCompletionDataCallback-noFilenameCompleterGotCompletionDataCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_FilenameCompleterGotCompletionDataCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_FilenameCompleterGotCompletionDataCallback`.-foreign import ccall "wrapper"-    mk_FilenameCompleterGotCompletionDataCallback :: C_FilenameCompleterGotCompletionDataCallback -> IO (FunPtr C_FilenameCompleterGotCompletionDataCallback)---- | Wrap the callback into a `GClosure`.-genClosure_FilenameCompleterGotCompletionData :: MonadIO m => FilenameCompleterGotCompletionDataCallback -> m (GClosure C_FilenameCompleterGotCompletionDataCallback)-genClosure_FilenameCompleterGotCompletionData cb = liftIO $ do-    let cb' = wrap_FilenameCompleterGotCompletionDataCallback cb-    mk_FilenameCompleterGotCompletionDataCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `FilenameCompleterGotCompletionDataCallback` into a `C_FilenameCompleterGotCompletionDataCallback`.-wrap_FilenameCompleterGotCompletionDataCallback ::-    FilenameCompleterGotCompletionDataCallback ->-    C_FilenameCompleterGotCompletionDataCallback-wrap_FilenameCompleterGotCompletionDataCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@got-completion-data@” 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' filenameCompleter #gotCompletionData callback-@--}-onFilenameCompleterGotCompletionData :: (IsFilenameCompleter a, MonadIO m) => a -> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId-onFilenameCompleterGotCompletionData obj cb = liftIO $ do-    let cb' = wrap_FilenameCompleterGotCompletionDataCallback cb-    cb'' <- mk_FilenameCompleterGotCompletionDataCallback cb'-    connectSignalFunPtr obj "got-completion-data" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@got-completion-data@” 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' filenameCompleter #gotCompletionData callback-@--}-afterFilenameCompleterGotCompletionData :: (IsFilenameCompleter a, MonadIO m) => a -> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId-afterFilenameCompleterGotCompletionData obj cb = liftIO $ do-    let cb' = wrap_FilenameCompleterGotCompletionDataCallback cb-    cb'' <- mk_FilenameCompleterGotCompletionDataCallback cb'-    connectSignalFunPtr obj "got-completion-data" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList FilenameCompleter-type instance O.AttributeList FilenameCompleter = FilenameCompleterAttributeList-type FilenameCompleterAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data FilenameCompleterGotCompletionDataSignalInfo-instance SignalInfo FilenameCompleterGotCompletionDataSignalInfo where-    type HaskellCallbackType FilenameCompleterGotCompletionDataSignalInfo = FilenameCompleterGotCompletionDataCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_FilenameCompleterGotCompletionDataCallback cb-        cb'' <- mk_FilenameCompleterGotCompletionDataCallback cb'-        connectSignalFunPtr obj "got-completion-data" cb'' connectMode--type instance O.SignalList FilenameCompleter = FilenameCompleterSignalList-type FilenameCompleterSignalList = ('[ '("gotCompletionData", FilenameCompleterGotCompletionDataSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FilenameCompleter::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FilenameCompleter"}))--- throws : False--- Skip return : False--foreign import ccall "g_filename_completer_new" g_filename_completer_new :: -    IO (Ptr FilenameCompleter)--{- |-Creates a new filename completer.--}-filenameCompleterNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m FilenameCompleter-    {- ^ __Returns:__ a 'GI.Gio.Objects.FilenameCompleter.FilenameCompleter'. -}-filenameCompleterNew  = liftIO $ do-    result <- g_filename_completer_new-    checkUnexpectedReturnNULL "filenameCompleterNew" result-    result' <- (wrapObject FilenameCompleter) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method FilenameCompleter::get_completion_suffix--- method type : OrdinaryMethod--- Args : [Arg {argCName = "completer", argType = TInterface (Name {namespace = "Gio", name = "FilenameCompleter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename completer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "text to be completed.", 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 "g_filename_completer_get_completion_suffix" g_filename_completer_get_completion_suffix :: -    Ptr FilenameCompleter ->                -- completer : TInterface (Name {namespace = "Gio", name = "FilenameCompleter"})-    CString ->                              -- initial_text : TBasicType TUTF8-    IO CString--{- |-Obtains a completion for /@initialText@/ from /@completer@/.--}-filenameCompleterGetCompletionSuffix ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilenameCompleter a) =>-    a-    {- ^ /@completer@/: the filename completer. -}-    -> T.Text-    {- ^ /@initialText@/: text to be completed. -}-    -> m T.Text-    {- ^ __Returns:__ a completed string, or 'Nothing' if no completion exists.-    This string is not owned by GIO, so remember to 'GI.GLib.Functions.free' it-    when finished. -}-filenameCompleterGetCompletionSuffix completer initialText = liftIO $ do-    completer' <- unsafeManagedPtrCastPtr completer-    initialText' <- textToCString initialText-    result <- g_filename_completer_get_completion_suffix completer' initialText'-    checkUnexpectedReturnNULL "filenameCompleterGetCompletionSuffix" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr completer-    freeMem initialText'-    return result'--#if ENABLE_OVERLOADING-data FilenameCompleterGetCompletionSuffixMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsFilenameCompleter a) => O.MethodInfo FilenameCompleterGetCompletionSuffixMethodInfo a signature where-    overloadedMethod _ = filenameCompleterGetCompletionSuffix--#endif---- method FilenameCompleter::get_completions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "completer", argType = TInterface (Name {namespace = "Gio", name = "FilenameCompleter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename completer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "text to be completed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_filename_completer_get_completions" g_filename_completer_get_completions :: -    Ptr FilenameCompleter ->                -- completer : TInterface (Name {namespace = "Gio", name = "FilenameCompleter"})-    CString ->                              -- initial_text : TBasicType TUTF8-    IO (Ptr CString)--{- |-Gets an array of completion strings for a given initial text.--}-filenameCompleterGetCompletions ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilenameCompleter a) =>-    a-    {- ^ /@completer@/: the filename completer. -}-    -> T.Text-    {- ^ /@initialText@/: text to be completed. -}-    -> m [T.Text]-    {- ^ __Returns:__ array of strings with possible completions for /@initialText@/.-This array must be freed by 'GI.GLib.Functions.strfreev' when finished. -}-filenameCompleterGetCompletions completer initialText = liftIO $ do-    completer' <- unsafeManagedPtrCastPtr completer-    initialText' <- textToCString initialText-    result <- g_filename_completer_get_completions completer' initialText'-    checkUnexpectedReturnNULL "filenameCompleterGetCompletions" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr completer-    freeMem initialText'-    return result'--#if ENABLE_OVERLOADING-data FilenameCompleterGetCompletionsMethodInfo-instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsFilenameCompleter a) => O.MethodInfo FilenameCompleterGetCompletionsMethodInfo a signature where-    overloadedMethod _ = filenameCompleterGetCompletions--#endif---- method FilenameCompleter::set_dirs_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "completer", argType = TInterface (Name {namespace = "Gio", name = "FilenameCompleter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename completer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dirs_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gboolean.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_filename_completer_set_dirs_only" g_filename_completer_set_dirs_only :: -    Ptr FilenameCompleter ->                -- completer : TInterface (Name {namespace = "Gio", name = "FilenameCompleter"})-    CInt ->                                 -- dirs_only : TBasicType TBoolean-    IO ()--{- |-If /@dirsOnly@/ is 'True', /@completer@/ will only-complete directory names, and not file names.--}-filenameCompleterSetDirsOnly ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilenameCompleter a) =>-    a-    {- ^ /@completer@/: the filename completer. -}-    -> Bool-    {- ^ /@dirsOnly@/: a 'Bool'. -}-    -> m ()-filenameCompleterSetDirsOnly completer dirsOnly = liftIO $ do-    completer' <- unsafeManagedPtrCastPtr completer-    let dirsOnly' = (fromIntegral . fromEnum) dirsOnly-    g_filename_completer_set_dirs_only completer' dirsOnly'-    touchManagedPtr completer-    return ()--#if ENABLE_OVERLOADING-data FilenameCompleterSetDirsOnlyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsFilenameCompleter a) => O.MethodInfo FilenameCompleterSetDirsOnlyMethodInfo a signature where-    overloadedMethod _ = filenameCompleterSetDirsOnly--#endif--
− GI/Gio/Objects/FilenameCompleter.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FilenameCompleter 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 FilenameCompleter = FilenameCompleter (ManagedPtr FilenameCompleter)-instance GObject FilenameCompleter where-class (GObject o, O.IsDescendantOf FilenameCompleter o) => IsFilenameCompleter o-instance (GObject o, O.IsDescendantOf FilenameCompleter o) => IsFilenameCompleter o-instance O.HasParentTypes FilenameCompleter-#if ENABLE_OVERLOADING-data FilenameCompleterGotCompletionDataSignalInfo-#endif-#if ENABLE_OVERLOADING-data FilenameCompleterGetCompletionSuffixMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilenameCompleterGetCompletionsMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilenameCompleterSetDirsOnlyMethodInfo-#endif
− GI/Gio/Objects/FilterInputStream.hs 
@@ -1,404 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Base class for input stream implementations that perform some-kind of filtering operation on a base stream. Typical examples-of filtering operations are character set conversion, compression-and byte order flipping.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FilterInputStream-    ( ---- * Exported types-    FilterInputStream(..)                   ,-    IsFilterInputStream                     ,-    toFilterInputStream                     ,-    noFilterInputStream                     ,--- -- * Methods--- ** getBaseStream #method:getBaseStream#--#if ENABLE_OVERLOADING-    FilterInputStreamGetBaseStreamMethodInfo,-#endif-    filterInputStreamGetBaseStream          ,----- ** getCloseBaseStream #method:getCloseBaseStream#--#if ENABLE_OVERLOADING-    FilterInputStreamGetCloseBaseStreamMethodInfo,-#endif-    filterInputStreamGetCloseBaseStream     ,----- ** setCloseBaseStream #method:setCloseBaseStream#--#if ENABLE_OVERLOADING-    FilterInputStreamSetCloseBaseStreamMethodInfo,-#endif-    filterInputStreamSetCloseBaseStream     ,----- -- * Properties--- ** baseStream #attr:baseStream#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    FilterInputStreamBaseStreamPropertyInfo ,-#endif-    constructFilterInputStreamBaseStream    ,-#if ENABLE_OVERLOADING-    filterInputStreamBaseStream             ,-#endif-    getFilterInputStreamBaseStream          ,----- ** closeBaseStream #attr:closeBaseStream#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    FilterInputStreamCloseBaseStreamPropertyInfo,-#endif-    constructFilterInputStreamCloseBaseStream,-#if ENABLE_OVERLOADING-    filterInputStreamCloseBaseStream        ,-#endif-    getFilterInputStreamCloseBaseStream     ,-    setFilterInputStreamCloseBaseStream     ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype FilterInputStream = FilterInputStream (ManagedPtr FilterInputStream)-foreign import ccall "g_filter_input_stream_get_type"-    c_g_filter_input_stream_get_type :: IO GType--instance GObject FilterInputStream where-    gobjectType = c_g_filter_input_stream_get_type-    ---- | Type class for types which can be safely cast to `FilterInputStream`, for instance with `toFilterInputStream`.-class (GObject o, O.IsDescendantOf FilterInputStream o) => IsFilterInputStream o-instance (GObject o, O.IsDescendantOf FilterInputStream o) => IsFilterInputStream o--instance O.HasParentTypes FilterInputStream-type instance O.ParentTypes FilterInputStream = '[Gio.InputStream.InputStream, GObject.Object.Object]---- | Cast to `FilterInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFilterInputStream :: (MonadIO m, IsFilterInputStream o) => o -> m FilterInputStream-toFilterInputStream = liftIO . unsafeCastTo FilterInputStream---- | A convenience alias for `Nothing` :: `Maybe` `FilterInputStream`.-noFilterInputStream :: Maybe FilterInputStream-noFilterInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveFilterInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFilterInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFilterInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFilterInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolveFilterInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolveFilterInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolveFilterInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolveFilterInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFilterInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFilterInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFilterInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolveFilterInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolveFilterInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFilterInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFilterInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFilterInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolveFilterInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolveFilterInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolveFilterInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolveFilterInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolveFilterInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolveFilterInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolveFilterInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolveFilterInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolveFilterInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFilterInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFilterInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFilterInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolveFilterInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolveFilterInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolveFilterInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFilterInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFilterInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFilterInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFilterInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFilterInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo-    ResolveFilterInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveFilterInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFilterInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFilterInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFilterInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveFilterInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFilterInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolveFilterInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFilterInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFilterInputStreamMethod t FilterInputStream, O.MethodInfo info FilterInputStream p) => OL.IsLabel t (FilterInputStream -> 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---- VVV Prop "base-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "InputStream"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@base-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' filterInputStream #baseStream-@--}-getFilterInputStreamBaseStream :: (MonadIO m, IsFilterInputStream o) => o -> m Gio.InputStream.InputStream-getFilterInputStreamBaseStream obj = liftIO $ checkUnexpectedNothing "getFilterInputStreamBaseStream" $ B.Properties.getObjectPropertyObject obj "base-stream" Gio.InputStream.InputStream--{- |-Construct a `GValueConstruct` with valid value for the “@base-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructFilterInputStreamBaseStream :: (IsFilterInputStream o, Gio.InputStream.IsInputStream a) => a -> IO (GValueConstruct o)-constructFilterInputStreamBaseStream val = B.Properties.constructObjectPropertyObject "base-stream" (Just val)--#if ENABLE_OVERLOADING-data FilterInputStreamBaseStreamPropertyInfo-instance AttrInfo FilterInputStreamBaseStreamPropertyInfo where-    type AttrAllowedOps FilterInputStreamBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FilterInputStreamBaseStreamPropertyInfo = Gio.InputStream.IsInputStream-    type AttrBaseTypeConstraint FilterInputStreamBaseStreamPropertyInfo = IsFilterInputStream-    type AttrGetType FilterInputStreamBaseStreamPropertyInfo = Gio.InputStream.InputStream-    type AttrLabel FilterInputStreamBaseStreamPropertyInfo = "base-stream"-    type AttrOrigin FilterInputStreamBaseStreamPropertyInfo = FilterInputStream-    attrGet _ = getFilterInputStreamBaseStream-    attrSet _ = undefined-    attrConstruct _ = constructFilterInputStreamBaseStream-    attrClear _ = undefined-#endif---- VVV Prop "close-base-stream"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@close-base-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' filterInputStream #closeBaseStream-@--}-getFilterInputStreamCloseBaseStream :: (MonadIO m, IsFilterInputStream o) => o -> m Bool-getFilterInputStreamCloseBaseStream obj = liftIO $ B.Properties.getObjectPropertyBool obj "close-base-stream"--{- |-Set the value of the “@close-base-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' filterInputStream [ #closeBaseStream 'Data.GI.Base.Attributes.:=' value ]-@--}-setFilterInputStreamCloseBaseStream :: (MonadIO m, IsFilterInputStream o) => o -> Bool -> m ()-setFilterInputStreamCloseBaseStream obj val = liftIO $ B.Properties.setObjectPropertyBool obj "close-base-stream" val--{- |-Construct a `GValueConstruct` with valid value for the “@close-base-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructFilterInputStreamCloseBaseStream :: (IsFilterInputStream o) => Bool -> IO (GValueConstruct o)-constructFilterInputStreamCloseBaseStream val = B.Properties.constructObjectPropertyBool "close-base-stream" val--#if ENABLE_OVERLOADING-data FilterInputStreamCloseBaseStreamPropertyInfo-instance AttrInfo FilterInputStreamCloseBaseStreamPropertyInfo where-    type AttrAllowedOps FilterInputStreamCloseBaseStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = IsFilterInputStream-    type AttrGetType FilterInputStreamCloseBaseStreamPropertyInfo = Bool-    type AttrLabel FilterInputStreamCloseBaseStreamPropertyInfo = "close-base-stream"-    type AttrOrigin FilterInputStreamCloseBaseStreamPropertyInfo = FilterInputStream-    attrGet _ = getFilterInputStreamCloseBaseStream-    attrSet _ = setFilterInputStreamCloseBaseStream-    attrConstruct _ = constructFilterInputStreamCloseBaseStream-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList FilterInputStream-type instance O.AttributeList FilterInputStream = FilterInputStreamAttributeList-type FilterInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-filterInputStreamBaseStream :: AttrLabelProxy "baseStream"-filterInputStreamBaseStream = AttrLabelProxy--filterInputStreamCloseBaseStream :: AttrLabelProxy "closeBaseStream"-filterInputStreamCloseBaseStream = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList FilterInputStream = FilterInputStreamSignalList-type FilterInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FilterInputStream::get_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FilterInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFilterInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_filter_input_stream_get_base_stream" g_filter_input_stream_get_base_stream :: -    Ptr FilterInputStream ->                -- stream : TInterface (Name {namespace = "Gio", name = "FilterInputStream"})-    IO (Ptr Gio.InputStream.InputStream)--{- |-Gets the base stream for the filter stream.--}-filterInputStreamGetBaseStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilterInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FilterInputStream.FilterInputStream'. -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream'. -}-filterInputStreamGetBaseStream stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_filter_input_stream_get_base_stream stream'-    checkUnexpectedReturnNULL "filterInputStreamGetBaseStream" result-    result' <- (newObject Gio.InputStream.InputStream) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data FilterInputStreamGetBaseStreamMethodInfo-instance (signature ~ (m Gio.InputStream.InputStream), MonadIO m, IsFilterInputStream a) => O.MethodInfo FilterInputStreamGetBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterInputStreamGetBaseStream--#endif---- method FilterInputStream::get_close_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FilterInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFilterInputStream.", 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 "g_filter_input_stream_get_close_base_stream" g_filter_input_stream_get_close_base_stream :: -    Ptr FilterInputStream ->                -- stream : TInterface (Name {namespace = "Gio", name = "FilterInputStream"})-    IO CInt--{- |-Returns whether the base stream will be closed when /@stream@/ is-closed.--}-filterInputStreamGetCloseBaseStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilterInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FilterInputStream.FilterInputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the base stream will be closed. -}-filterInputStreamGetCloseBaseStream stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_filter_input_stream_get_close_base_stream stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data FilterInputStreamGetCloseBaseStreamMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFilterInputStream a) => O.MethodInfo FilterInputStreamGetCloseBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterInputStreamGetCloseBaseStream--#endif---- method FilterInputStream::set_close_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FilterInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFilterInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to close the base stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_filter_input_stream_set_close_base_stream" g_filter_input_stream_set_close_base_stream :: -    Ptr FilterInputStream ->                -- stream : TInterface (Name {namespace = "Gio", name = "FilterInputStream"})-    CInt ->                                 -- close_base : TBasicType TBoolean-    IO ()--{- |-Sets whether the base stream will be closed when /@stream@/ is closed.--}-filterInputStreamSetCloseBaseStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilterInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FilterInputStream.FilterInputStream'. -}-    -> Bool-    {- ^ /@closeBase@/: 'True' to close the base stream. -}-    -> m ()-filterInputStreamSetCloseBaseStream stream closeBase = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    let closeBase' = (fromIntegral . fromEnum) closeBase-    g_filter_input_stream_set_close_base_stream stream' closeBase'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data FilterInputStreamSetCloseBaseStreamMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsFilterInputStream a) => O.MethodInfo FilterInputStreamSetCloseBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterInputStreamSetCloseBaseStream--#endif--
− GI/Gio/Objects/FilterInputStream.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FilterInputStream 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 FilterInputStream = FilterInputStream (ManagedPtr FilterInputStream)-instance GObject FilterInputStream where-class (GObject o, O.IsDescendantOf FilterInputStream o) => IsFilterInputStream o-instance (GObject o, O.IsDescendantOf FilterInputStream o) => IsFilterInputStream o-instance O.HasParentTypes FilterInputStream-#if ENABLE_OVERLOADING-data FilterInputStreamBaseStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data FilterInputStreamCloseBaseStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data FilterInputStreamGetBaseStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilterInputStreamGetCloseBaseStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilterInputStreamSetCloseBaseStreamMethodInfo-#endif
− GI/Gio/Objects/FilterOutputStream.hs 
@@ -1,402 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Base class for output stream implementations that perform some-kind of filtering operation on a base stream. Typical examples-of filtering operations are character set conversion, compression-and byte order flipping.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.FilterOutputStream-    ( ---- * Exported types-    FilterOutputStream(..)                  ,-    IsFilterOutputStream                    ,-    toFilterOutputStream                    ,-    noFilterOutputStream                    ,--- -- * Methods--- ** getBaseStream #method:getBaseStream#--#if ENABLE_OVERLOADING-    FilterOutputStreamGetBaseStreamMethodInfo,-#endif-    filterOutputStreamGetBaseStream         ,----- ** getCloseBaseStream #method:getCloseBaseStream#--#if ENABLE_OVERLOADING-    FilterOutputStreamGetCloseBaseStreamMethodInfo,-#endif-    filterOutputStreamGetCloseBaseStream    ,----- ** setCloseBaseStream #method:setCloseBaseStream#--#if ENABLE_OVERLOADING-    FilterOutputStreamSetCloseBaseStreamMethodInfo,-#endif-    filterOutputStreamSetCloseBaseStream    ,----- -- * Properties--- ** baseStream #attr:baseStream#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    FilterOutputStreamBaseStreamPropertyInfo,-#endif-    constructFilterOutputStreamBaseStream   ,-#if ENABLE_OVERLOADING-    filterOutputStreamBaseStream            ,-#endif-    getFilterOutputStreamBaseStream         ,----- ** closeBaseStream #attr:closeBaseStream#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    FilterOutputStreamCloseBaseStreamPropertyInfo,-#endif-    constructFilterOutputStreamCloseBaseStream,-#if ENABLE_OVERLOADING-    filterOutputStreamCloseBaseStream       ,-#endif-    getFilterOutputStreamCloseBaseStream    ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype FilterOutputStream = FilterOutputStream (ManagedPtr FilterOutputStream)-foreign import ccall "g_filter_output_stream_get_type"-    c_g_filter_output_stream_get_type :: IO GType--instance GObject FilterOutputStream where-    gobjectType = c_g_filter_output_stream_get_type-    ---- | Type class for types which can be safely cast to `FilterOutputStream`, for instance with `toFilterOutputStream`.-class (GObject o, O.IsDescendantOf FilterOutputStream o) => IsFilterOutputStream o-instance (GObject o, O.IsDescendantOf FilterOutputStream o) => IsFilterOutputStream o--instance O.HasParentTypes FilterOutputStream-type instance O.ParentTypes FilterOutputStream = '[Gio.OutputStream.OutputStream, GObject.Object.Object]---- | Cast to `FilterOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toFilterOutputStream :: (MonadIO m, IsFilterOutputStream o) => o -> m FilterOutputStream-toFilterOutputStream = liftIO . unsafeCastTo FilterOutputStream---- | A convenience alias for `Nothing` :: `Maybe` `FilterOutputStream`.-noFilterOutputStream :: Maybe FilterOutputStream-noFilterOutputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveFilterOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveFilterOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveFilterOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveFilterOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo-    ResolveFilterOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo-    ResolveFilterOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo-    ResolveFilterOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo-    ResolveFilterOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo-    ResolveFilterOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo-    ResolveFilterOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo-    ResolveFilterOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveFilterOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveFilterOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveFilterOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo-    ResolveFilterOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo-    ResolveFilterOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo-    ResolveFilterOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveFilterOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveFilterOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveFilterOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveFilterOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveFilterOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveFilterOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo-    ResolveFilterOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo-    ResolveFilterOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo-    ResolveFilterOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveFilterOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveFilterOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveFilterOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveFilterOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveFilterOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo-    ResolveFilterOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo-    ResolveFilterOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo-    ResolveFilterOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo-    ResolveFilterOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo-    ResolveFilterOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo-    ResolveFilterOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo-    ResolveFilterOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo-    ResolveFilterOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo-    ResolveFilterOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo-    ResolveFilterOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo-    ResolveFilterOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo-    ResolveFilterOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo-    ResolveFilterOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo-    ResolveFilterOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo-    ResolveFilterOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo-    ResolveFilterOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo-    ResolveFilterOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveFilterOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveFilterOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveFilterOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo-    ResolveFilterOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveFilterOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo-    ResolveFilterOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveFilterOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFilterOutputStreamMethod t FilterOutputStream, O.MethodInfo info FilterOutputStream p) => OL.IsLabel t (FilterOutputStream -> 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---- VVV Prop "base-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "OutputStream"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@base-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' filterOutputStream #baseStream-@--}-getFilterOutputStreamBaseStream :: (MonadIO m, IsFilterOutputStream o) => o -> m Gio.OutputStream.OutputStream-getFilterOutputStreamBaseStream obj = liftIO $ checkUnexpectedNothing "getFilterOutputStreamBaseStream" $ B.Properties.getObjectPropertyObject obj "base-stream" Gio.OutputStream.OutputStream--{- |-Construct a `GValueConstruct` with valid value for the “@base-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructFilterOutputStreamBaseStream :: (IsFilterOutputStream o, Gio.OutputStream.IsOutputStream a) => a -> IO (GValueConstruct o)-constructFilterOutputStreamBaseStream val = B.Properties.constructObjectPropertyObject "base-stream" (Just val)--#if ENABLE_OVERLOADING-data FilterOutputStreamBaseStreamPropertyInfo-instance AttrInfo FilterOutputStreamBaseStreamPropertyInfo where-    type AttrAllowedOps FilterOutputStreamBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = Gio.OutputStream.IsOutputStream-    type AttrBaseTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = IsFilterOutputStream-    type AttrGetType FilterOutputStreamBaseStreamPropertyInfo = Gio.OutputStream.OutputStream-    type AttrLabel FilterOutputStreamBaseStreamPropertyInfo = "base-stream"-    type AttrOrigin FilterOutputStreamBaseStreamPropertyInfo = FilterOutputStream-    attrGet _ = getFilterOutputStreamBaseStream-    attrSet _ = undefined-    attrConstruct _ = constructFilterOutputStreamBaseStream-    attrClear _ = undefined-#endif---- VVV Prop "close-base-stream"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@close-base-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' filterOutputStream #closeBaseStream-@--}-getFilterOutputStreamCloseBaseStream :: (MonadIO m, IsFilterOutputStream o) => o -> m Bool-getFilterOutputStreamCloseBaseStream obj = liftIO $ B.Properties.getObjectPropertyBool obj "close-base-stream"--{- |-Construct a `GValueConstruct` with valid value for the “@close-base-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructFilterOutputStreamCloseBaseStream :: (IsFilterOutputStream o) => Bool -> IO (GValueConstruct o)-constructFilterOutputStreamCloseBaseStream val = B.Properties.constructObjectPropertyBool "close-base-stream" val--#if ENABLE_OVERLOADING-data FilterOutputStreamCloseBaseStreamPropertyInfo-instance AttrInfo FilterOutputStreamCloseBaseStreamPropertyInfo where-    type AttrAllowedOps FilterOutputStreamCloseBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = IsFilterOutputStream-    type AttrGetType FilterOutputStreamCloseBaseStreamPropertyInfo = Bool-    type AttrLabel FilterOutputStreamCloseBaseStreamPropertyInfo = "close-base-stream"-    type AttrOrigin FilterOutputStreamCloseBaseStreamPropertyInfo = FilterOutputStream-    attrGet _ = getFilterOutputStreamCloseBaseStream-    attrSet _ = undefined-    attrConstruct _ = constructFilterOutputStreamCloseBaseStream-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList FilterOutputStream-type instance O.AttributeList FilterOutputStream = FilterOutputStreamAttributeList-type FilterOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-filterOutputStreamBaseStream :: AttrLabelProxy "baseStream"-filterOutputStreamBaseStream = AttrLabelProxy--filterOutputStreamCloseBaseStream :: AttrLabelProxy "closeBaseStream"-filterOutputStreamCloseBaseStream = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList FilterOutputStream = FilterOutputStreamSignalList-type FilterOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method FilterOutputStream::get_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FilterOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFilterOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "OutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_filter_output_stream_get_base_stream" g_filter_output_stream_get_base_stream :: -    Ptr FilterOutputStream ->               -- stream : TInterface (Name {namespace = "Gio", name = "FilterOutputStream"})-    IO (Ptr Gio.OutputStream.OutputStream)--{- |-Gets the base stream for the filter stream.--}-filterOutputStreamGetBaseStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilterOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FilterOutputStream.FilterOutputStream'. -}-    -> m Gio.OutputStream.OutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-filterOutputStreamGetBaseStream stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_filter_output_stream_get_base_stream stream'-    checkUnexpectedReturnNULL "filterOutputStreamGetBaseStream" result-    result' <- (newObject Gio.OutputStream.OutputStream) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data FilterOutputStreamGetBaseStreamMethodInfo-instance (signature ~ (m Gio.OutputStream.OutputStream), MonadIO m, IsFilterOutputStream a) => O.MethodInfo FilterOutputStreamGetBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterOutputStreamGetBaseStream--#endif---- method FilterOutputStream::get_close_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FilterOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFilterOutputStream.", 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 "g_filter_output_stream_get_close_base_stream" g_filter_output_stream_get_close_base_stream :: -    Ptr FilterOutputStream ->               -- stream : TInterface (Name {namespace = "Gio", name = "FilterOutputStream"})-    IO CInt--{- |-Returns whether the base stream will be closed when /@stream@/ is-closed.--}-filterOutputStreamGetCloseBaseStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilterOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FilterOutputStream.FilterOutputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the base stream will be closed. -}-filterOutputStreamGetCloseBaseStream stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_filter_output_stream_get_close_base_stream stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data FilterOutputStreamGetCloseBaseStreamMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsFilterOutputStream a) => O.MethodInfo FilterOutputStreamGetCloseBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterOutputStreamGetCloseBaseStream--#endif---- method FilterOutputStream::set_close_base_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "FilterOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFilterOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to close the base stream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_filter_output_stream_set_close_base_stream" g_filter_output_stream_set_close_base_stream :: -    Ptr FilterOutputStream ->               -- stream : TInterface (Name {namespace = "Gio", name = "FilterOutputStream"})-    CInt ->                                 -- close_base : TBasicType TBoolean-    IO ()--{- |-Sets whether the base stream will be closed when /@stream@/ is closed.--}-filterOutputStreamSetCloseBaseStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsFilterOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.FilterOutputStream.FilterOutputStream'. -}-    -> Bool-    {- ^ /@closeBase@/: 'True' to close the base stream. -}-    -> m ()-filterOutputStreamSetCloseBaseStream stream closeBase = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    let closeBase' = (fromIntegral . fromEnum) closeBase-    g_filter_output_stream_set_close_base_stream stream' closeBase'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data FilterOutputStreamSetCloseBaseStreamMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsFilterOutputStream a) => O.MethodInfo FilterOutputStreamSetCloseBaseStreamMethodInfo a signature where-    overloadedMethod _ = filterOutputStreamSetCloseBaseStream--#endif--
− GI/Gio/Objects/FilterOutputStream.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.FilterOutputStream 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 FilterOutputStream = FilterOutputStream (ManagedPtr FilterOutputStream)-instance GObject FilterOutputStream where-class (GObject o, O.IsDescendantOf FilterOutputStream o) => IsFilterOutputStream o-instance (GObject o, O.IsDescendantOf FilterOutputStream o) => IsFilterOutputStream o-instance O.HasParentTypes FilterOutputStream-#if ENABLE_OVERLOADING-data FilterOutputStreamBaseStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data FilterOutputStreamCloseBaseStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data FilterOutputStreamGetBaseStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilterOutputStreamGetCloseBaseStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data FilterOutputStreamSetCloseBaseStreamMethodInfo-#endif
− GI/Gio/Objects/IOStream.hs 
@@ -1,952 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--GIOStream represents an object that has both read and write streams.-Generally the two streams act as separate input and output streams,-but they share some common resources and state. For instance, for-seekable streams, both streams may use the same position.--Examples of 'GI.Gio.Objects.IOStream.IOStream' objects are 'GI.Gio.Objects.SocketConnection.SocketConnection', which represents-a two-way network connection; and 'GI.Gio.Objects.FileIOStream.FileIOStream', which represents a-file handle opened in read-write mode.--To do the actual reading and writing you need to get the substreams-with 'GI.Gio.Objects.IOStream.iOStreamGetInputStream' and 'GI.Gio.Objects.IOStream.iOStreamGetOutputStream'.--The 'GI.Gio.Objects.IOStream.IOStream' object owns the input and the output streams, not the other-way around, so keeping the substreams alive will not keep the 'GI.Gio.Objects.IOStream.IOStream'-object alive. If the 'GI.Gio.Objects.IOStream.IOStream' object is freed it will be closed, thus-closing the substreams, so even if the substreams stay alive they will-always return 'GI.Gio.Enums.IOErrorEnumClosed' for all operations.--To close a stream use 'GI.Gio.Objects.IOStream.iOStreamClose' which will close the common-stream object and also the individual substreams. You can also close-the substreams themselves. In most cases this only marks the-substream as closed, so further I\/O on it fails but common state in the-'GI.Gio.Objects.IOStream.IOStream' may still be open. However, some streams may support-\"half-closed\" states where one direction of the stream is actually shut down.--Operations on @/GIOStreams/@ cannot be started while another operation on the-'GI.Gio.Objects.IOStream.IOStream' or its substreams is in progress. Specifically, an application can-read from the 'GI.Gio.Objects.InputStream.InputStream' and write to the 'GI.Gio.Objects.OutputStream.OutputStream' simultaneously-(either in separate threads, or as asynchronous operations in the same-thread), but an application cannot start any 'GI.Gio.Objects.IOStream.IOStream' operation while there-is a 'GI.Gio.Objects.IOStream.IOStream', 'GI.Gio.Objects.InputStream.InputStream' or 'GI.Gio.Objects.OutputStream.OutputStream' operation in progress, and-an application can’t start any 'GI.Gio.Objects.InputStream.InputStream' or 'GI.Gio.Objects.OutputStream.OutputStream' operation-while there is a 'GI.Gio.Objects.IOStream.IOStream' operation in progress.--This is a product of individual stream operations being associated with a-given 'GI.GLib.Structs.MainContext.MainContext' (the thread-default context at the time the operation was-started), rather than entire streams being associated with a single-'GI.GLib.Structs.MainContext.MainContext'.--GIO may run operations on @/GIOStreams/@ from other (worker) threads, and this-may be exposed to application code in the behaviour of wrapper streams, such-as 'GI.Gio.Objects.BufferedInputStream.BufferedInputStream' or 'GI.Gio.Objects.TlsConnection.TlsConnection'. With such wrapper APIs,-application code may only run operations on the base (wrapped) stream when-the wrapper stream is idle. Note that the semantics of such operations may-not be well-defined due to the state the wrapper stream leaves the base-stream in (though they are guaranteed not to crash).--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.IOStream-    ( ---- * Exported types-    IOStream(..)                            ,-    IsIOStream                              ,-    toIOStream                              ,-    noIOStream                              ,--- -- * Methods--- ** clearPending #method:clearPending#--#if ENABLE_OVERLOADING-    IOStreamClearPendingMethodInfo          ,-#endif-    iOStreamClearPending                    ,----- ** close #method:close#--#if ENABLE_OVERLOADING-    IOStreamCloseMethodInfo                 ,-#endif-    iOStreamClose                           ,----- ** closeAsync #method:closeAsync#--#if ENABLE_OVERLOADING-    IOStreamCloseAsyncMethodInfo            ,-#endif-    iOStreamCloseAsync                      ,----- ** closeFinish #method:closeFinish#--#if ENABLE_OVERLOADING-    IOStreamCloseFinishMethodInfo           ,-#endif-    iOStreamCloseFinish                     ,----- ** getInputStream #method:getInputStream#--#if ENABLE_OVERLOADING-    IOStreamGetInputStreamMethodInfo        ,-#endif-    iOStreamGetInputStream                  ,----- ** getOutputStream #method:getOutputStream#--#if ENABLE_OVERLOADING-    IOStreamGetOutputStreamMethodInfo       ,-#endif-    iOStreamGetOutputStream                 ,----- ** hasPending #method:hasPending#--#if ENABLE_OVERLOADING-    IOStreamHasPendingMethodInfo            ,-#endif-    iOStreamHasPending                      ,----- ** isClosed #method:isClosed#--#if ENABLE_OVERLOADING-    IOStreamIsClosedMethodInfo              ,-#endif-    iOStreamIsClosed                        ,----- ** setPending #method:setPending#--#if ENABLE_OVERLOADING-    IOStreamSetPendingMethodInfo            ,-#endif-    iOStreamSetPending                      ,----- ** spliceAsync #method:spliceAsync#--#if ENABLE_OVERLOADING-    IOStreamSpliceAsyncMethodInfo           ,-#endif-    iOStreamSpliceAsync                     ,----- ** spliceFinish #method:spliceFinish#--    iOStreamSpliceFinish                    ,----- -- * Properties--- ** closed #attr:closed#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    IOStreamClosedPropertyInfo              ,-#endif-    getIOStreamClosed                       ,-#if ENABLE_OVERLOADING-    iOStreamClosed                          ,-#endif----- ** inputStream #attr:inputStream#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    IOStreamInputStreamPropertyInfo         ,-#endif-    getIOStreamInputStream                  ,-#if ENABLE_OVERLOADING-    iOStreamInputStream                     ,-#endif----- ** outputStream #attr:outputStream#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    IOStreamOutputStreamPropertyInfo        ,-#endif-    getIOStreamOutputStream                 ,-#if ENABLE_OVERLOADING-    iOStreamOutputStream                    ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype IOStream = IOStream (ManagedPtr IOStream)-foreign import ccall "g_io_stream_get_type"-    c_g_io_stream_get_type :: IO GType--instance GObject IOStream where-    gobjectType = c_g_io_stream_get_type-    ---- | Type class for types which can be safely cast to `IOStream`, for instance with `toIOStream`.-class (GObject o, O.IsDescendantOf IOStream o) => IsIOStream o-instance (GObject o, O.IsDescendantOf IOStream o) => IsIOStream o--instance O.HasParentTypes IOStream-type instance O.ParentTypes IOStream = '[GObject.Object.Object]---- | Cast to `IOStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toIOStream :: (MonadIO m, IsIOStream o) => o -> m IOStream-toIOStream = liftIO . unsafeCastTo IOStream---- | A convenience alias for `Nothing` :: `Maybe` `IOStream`.-noIOStream :: Maybe IOStream-noIOStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveIOStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveIOStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveIOStreamMethod "clearPending" o = IOStreamClearPendingMethodInfo-    ResolveIOStreamMethod "close" o = IOStreamCloseMethodInfo-    ResolveIOStreamMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo-    ResolveIOStreamMethod "closeFinish" o = IOStreamCloseFinishMethodInfo-    ResolveIOStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveIOStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveIOStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveIOStreamMethod "hasPending" o = IOStreamHasPendingMethodInfo-    ResolveIOStreamMethod "isClosed" o = IOStreamIsClosedMethodInfo-    ResolveIOStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveIOStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveIOStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveIOStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveIOStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveIOStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveIOStreamMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo-    ResolveIOStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveIOStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveIOStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveIOStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveIOStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveIOStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveIOStreamMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo-    ResolveIOStreamMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo-    ResolveIOStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveIOStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveIOStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveIOStreamMethod "setPending" o = IOStreamSetPendingMethodInfo-    ResolveIOStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveIOStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveIOStreamMethod t IOStream, O.MethodInfo info IOStream p) => OL.IsLabel t (IOStream -> 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---- VVV Prop "closed"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@closed@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' iOStream #closed-@--}-getIOStreamClosed :: (MonadIO m, IsIOStream o) => o -> m Bool-getIOStreamClosed obj = liftIO $ B.Properties.getObjectPropertyBool obj "closed"--#if ENABLE_OVERLOADING-data IOStreamClosedPropertyInfo-instance AttrInfo IOStreamClosedPropertyInfo where-    type AttrAllowedOps IOStreamClosedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint IOStreamClosedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint IOStreamClosedPropertyInfo = IsIOStream-    type AttrGetType IOStreamClosedPropertyInfo = Bool-    type AttrLabel IOStreamClosedPropertyInfo = "closed"-    type AttrOrigin IOStreamClosedPropertyInfo = IOStream-    attrGet _ = getIOStreamClosed-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "input-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "InputStream"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@input-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' iOStream #inputStream-@--}-getIOStreamInputStream :: (MonadIO m, IsIOStream o) => o -> m Gio.InputStream.InputStream-getIOStreamInputStream obj = liftIO $ checkUnexpectedNothing "getIOStreamInputStream" $ B.Properties.getObjectPropertyObject obj "input-stream" Gio.InputStream.InputStream--#if ENABLE_OVERLOADING-data IOStreamInputStreamPropertyInfo-instance AttrInfo IOStreamInputStreamPropertyInfo where-    type AttrAllowedOps IOStreamInputStreamPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint IOStreamInputStreamPropertyInfo = (~) ()-    type AttrBaseTypeConstraint IOStreamInputStreamPropertyInfo = IsIOStream-    type AttrGetType IOStreamInputStreamPropertyInfo = Gio.InputStream.InputStream-    type AttrLabel IOStreamInputStreamPropertyInfo = "input-stream"-    type AttrOrigin IOStreamInputStreamPropertyInfo = IOStream-    attrGet _ = getIOStreamInputStream-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "output-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "OutputStream"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@output-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' iOStream #outputStream-@--}-getIOStreamOutputStream :: (MonadIO m, IsIOStream o) => o -> m Gio.OutputStream.OutputStream-getIOStreamOutputStream obj = liftIO $ checkUnexpectedNothing "getIOStreamOutputStream" $ B.Properties.getObjectPropertyObject obj "output-stream" Gio.OutputStream.OutputStream--#if ENABLE_OVERLOADING-data IOStreamOutputStreamPropertyInfo-instance AttrInfo IOStreamOutputStreamPropertyInfo where-    type AttrAllowedOps IOStreamOutputStreamPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint IOStreamOutputStreamPropertyInfo = (~) ()-    type AttrBaseTypeConstraint IOStreamOutputStreamPropertyInfo = IsIOStream-    type AttrGetType IOStreamOutputStreamPropertyInfo = Gio.OutputStream.OutputStream-    type AttrLabel IOStreamOutputStreamPropertyInfo = "output-stream"-    type AttrOrigin IOStreamOutputStreamPropertyInfo = IOStream-    attrGet _ = getIOStreamOutputStream-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList IOStream-type instance O.AttributeList IOStream = IOStreamAttributeList-type IOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-iOStreamClosed :: AttrLabelProxy "closed"-iOStreamClosed = AttrLabelProxy--iOStreamInputStream :: AttrLabelProxy "inputStream"-iOStreamInputStream = AttrLabelProxy--iOStreamOutputStream :: AttrLabelProxy "outputStream"-iOStreamOutputStream = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList IOStream = IOStreamSignalList-type IOStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method IOStream::clear_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_stream_clear_pending" g_io_stream_clear_pending :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    IO ()--{- |-Clears the pending flag on /@stream@/.--/Since: 2.22/--}-iOStreamClearPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> m ()-iOStreamClearPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    g_io_stream_clear_pending stream'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data IOStreamClearPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, IsIOStream a) => O.MethodInfo IOStreamClearPendingMethodInfo a signature where-    overloadedMethod _ = iOStreamClearPending--#endif---- method IOStream::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", 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 "optional #GCancellable object, %NULL to ignore", 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 "g_io_stream_close" g_io_stream_close :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Closes the stream, releasing resources related to it. This will also-close the individual input and output streams, if they are not already-closed.--Once the stream is closed, all other operations will return-'GI.Gio.Enums.IOErrorEnumClosed'. Closing a stream multiple times will not-return an error.--Closing a stream will automatically flush any outstanding buffers-in the stream.--Streams will be automatically closed when the last reference-is dropped, but you might want to call this function to make sure-resources are released as early as possible.--Some streams might keep the backing store of the stream (e.g. a file-descriptor) open after the stream is closed. See the documentation for-the individual stream for details.--On failure the first error that happened will be reported, but the-close operation will finish as much as possible. A stream that failed-to close will still return 'GI.Gio.Enums.IOErrorEnumClosed' for all operations.-Still, it is important to check and report the error to the user,-otherwise there might be a loss of data as all data might not be written.--If /@cancellable@/ is not NULL, then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.-Cancelling a close will still leave the stream closed, but some streams-can use a faster close that doesn\'t block to e.g. check errors.--The default implementation of this method just calls close on the-individual input\/output streams.--/Since: 2.22/--}-iOStreamClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-iOStreamClose stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_io_stream_close stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data IOStreamCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsIOStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo IOStreamCloseMethodInfo a signature where-    overloadedMethod _ = iOStreamClose--#endif---- method IOStream::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", 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 "the io priority of the request", 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 "optional cancellable object", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_stream_close_async" g_io_stream_close_async :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    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 ()--{- |-Requests an asynchronous close of the stream, releasing resources-related to it. When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.IOStream.iOStreamCloseFinish' to get-the result of the operation.--For behaviour details see 'GI.Gio.Objects.IOStream.iOStreamClose'.--The asynchronous methods have a default fallback that uses threads-to implement asynchronicity, so they are optional for inheriting-classes. However, if you override one you must override all.--/Since: 2.22/--}-iOStreamCloseAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> Int32-    {- ^ /@ioPriority@/: the io priority of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional cancellable object -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-iOStreamCloseAsync stream ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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-    g_io_stream_close_async stream' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data IOStreamCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsIOStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo IOStreamCloseAsyncMethodInfo a signature where-    overloadedMethod _ = iOStreamCloseAsync--#endif---- method IOStream::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", 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 "a #GAsyncResult", 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 "g_io_stream_close_finish" g_io_stream_close_finish :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Closes a stream.--/Since: 2.22/--}-iOStreamCloseFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-iOStreamCloseFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_io_stream_close_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data IOStreamCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsIOStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo IOStreamCloseFinishMethodInfo a signature where-    overloadedMethod _ = iOStreamCloseFinish--#endif---- method IOStream::get_input_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_io_stream_get_input_stream" g_io_stream_get_input_stream :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    IO (Ptr Gio.InputStream.InputStream)--{- |-Gets the input stream for this object. This is used-for reading.--/Since: 2.22/--}-iOStreamGetInputStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream', owned by the 'GI.Gio.Objects.IOStream.IOStream'.-Do not free. -}-iOStreamGetInputStream stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_io_stream_get_input_stream stream'-    checkUnexpectedReturnNULL "iOStreamGetInputStream" result-    result' <- (newObject Gio.InputStream.InputStream) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data IOStreamGetInputStreamMethodInfo-instance (signature ~ (m Gio.InputStream.InputStream), MonadIO m, IsIOStream a) => O.MethodInfo IOStreamGetInputStreamMethodInfo a signature where-    overloadedMethod _ = iOStreamGetInputStream--#endif---- method IOStream::get_output_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "OutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_io_stream_get_output_stream" g_io_stream_get_output_stream :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    IO (Ptr Gio.OutputStream.OutputStream)--{- |-Gets the output stream for this object. This is used for-writing.--/Since: 2.22/--}-iOStreamGetOutputStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> m Gio.OutputStream.OutputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.OutputStream.OutputStream', owned by the 'GI.Gio.Objects.IOStream.IOStream'.-Do not free. -}-iOStreamGetOutputStream stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_io_stream_get_output_stream stream'-    checkUnexpectedReturnNULL "iOStreamGetOutputStream" result-    result' <- (newObject Gio.OutputStream.OutputStream) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data IOStreamGetOutputStreamMethodInfo-instance (signature ~ (m Gio.OutputStream.OutputStream), MonadIO m, IsIOStream a) => O.MethodInfo IOStreamGetOutputStreamMethodInfo a signature where-    overloadedMethod _ = iOStreamGetOutputStream--#endif---- method IOStream::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", 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 "g_io_stream_has_pending" g_io_stream_has_pending :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    IO CInt--{- |-Checks if a stream has pending actions.--/Since: 2.22/--}-iOStreamHasPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ has pending actions. -}-iOStreamHasPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_io_stream_has_pending stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data IOStreamHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsIOStream a) => O.MethodInfo IOStreamHasPendingMethodInfo a signature where-    overloadedMethod _ = iOStreamHasPending--#endif---- method IOStream::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", 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 "g_io_stream_is_closed" g_io_stream_is_closed :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    IO CInt--{- |-Checks if a stream is closed.--/Since: 2.22/--}-iOStreamIsClosed ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the stream is closed. -}-iOStreamIsClosed stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_io_stream_is_closed stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data IOStreamIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsIOStream a) => O.MethodInfo IOStreamIsClosedMethodInfo a signature where-    overloadedMethod _ = iOStreamIsClosed--#endif---- method IOStream::set_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", 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 "g_io_stream_set_pending" g_io_stream_set_pending :: -    Ptr IOStream ->                         -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@stream@/ to have actions pending. If the pending flag is-already set or /@stream@/ is closed, it will return 'False' and set-/@error@/.--/Since: 2.22/--}-iOStreamSetPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-iOStreamSetPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    onException (do-        _ <- propagateGError $ g_io_stream_set_pending stream'-        touchManagedPtr stream-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data IOStreamSetPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, IsIOStream a) => O.MethodInfo IOStreamSetPendingMethodInfo a signature where-    overloadedMethod _ = iOStreamSetPending--#endif---- method IOStream::splice_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream1", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream2", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "IOStreamSpliceFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GIOStreamSpliceFlags.", 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 "the io priority of the request.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed 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 "g_io_stream_splice_async" g_io_stream_splice_async :: -    Ptr IOStream ->                         -- stream1 : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr IOStream ->                         -- stream2 : TInterface (Name {namespace = "Gio", name = "IOStream"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "IOStreamSpliceFlags"})-    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 ()--{- |-Asyncronously splice the output stream of /@stream1@/ to the input stream of-/@stream2@/, and splice the output stream of /@stream2@/ to the input stream of-/@stream1@/.--When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.IOStream.iOStreamSpliceFinish' to get the-result of the operation.--/Since: 2.28/--}-iOStreamSpliceAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsIOStream a, IsIOStream b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@stream1@/: a 'GI.Gio.Objects.IOStream.IOStream'. -}-    -> b-    {- ^ /@stream2@/: a 'GI.Gio.Objects.IOStream.IOStream'. -}-    -> [Gio.Flags.IOStreamSpliceFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.IOStreamSpliceFlags'. -}-    -> Int32-    {- ^ /@ioPriority@/: the io priority of the request. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback'. -}-    -> m ()-iOStreamSpliceAsync stream1 stream2 flags ioPriority cancellable callback = liftIO $ do-    stream1' <- unsafeManagedPtrCastPtr stream1-    stream2' <- unsafeManagedPtrCastPtr stream2-    let flags' = gflagsToWord flags-    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-    g_io_stream_splice_async stream1' stream2' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream1-    touchManagedPtr stream2-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data IOStreamSpliceAsyncMethodInfo-instance (signature ~ (b -> [Gio.Flags.IOStreamSpliceFlags] -> Int32 -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsIOStream a, IsIOStream b, Gio.Cancellable.IsCancellable c) => O.MethodInfo IOStreamSpliceAsyncMethodInfo a signature where-    overloadedMethod _ = iOStreamSpliceAsync--#endif---- method IOStream::splice_finish--- method type : MemberFunction--- Args : [Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult.", 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 "g_io_stream_splice_finish" g_io_stream_splice_finish :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous io stream splice operation.--/Since: 2.28/--}-iOStreamSpliceFinish ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a) =>-    a-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-iOStreamSpliceFinish result_ = liftIO $ do-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_io_stream_splice_finish result_'-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/IOStream.hs-boot 
@@ -1,68 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.IOStream 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 IOStream = IOStream (ManagedPtr IOStream)-instance GObject IOStream where-class (GObject o, O.IsDescendantOf IOStream o) => IsIOStream o-instance (GObject o, O.IsDescendantOf IOStream o) => IsIOStream o-instance O.HasParentTypes IOStream-#if ENABLE_OVERLOADING-data IOStreamClosedPropertyInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamInputStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamOutputStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamClearPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamCloseAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamCloseFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamGetInputStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamGetOutputStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamHasPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamIsClosedMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamSetPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOStreamSpliceAsyncMethodInfo-#endif
− GI/Gio/Objects/InetAddress.hs 
@@ -1,1556 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.InetAddress.InetAddress' represents an IPv4 or IPv6 internet address. Use-'GI.Gio.Objects.Resolver.resolverLookupByName' or 'GI.Gio.Objects.Resolver.resolverLookupByNameAsync' to-look up the 'GI.Gio.Objects.InetAddress.InetAddress' for a hostname. Use-'GI.Gio.Objects.Resolver.resolverLookupByAddress' or-'GI.Gio.Objects.Resolver.resolverLookupByAddressAsync' to look up the hostname for a-'GI.Gio.Objects.InetAddress.InetAddress'.--To actually connect to a remote host, you will need a-'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' (which includes a 'GI.Gio.Objects.InetAddress.InetAddress' as well as a-port number).--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.InetAddress-    ( ---- * Exported types-    InetAddress(..)                         ,-    IsInetAddress                           ,-    toInetAddress                           ,-    noInetAddress                           ,--- -- * Methods--- ** equal #method:equal#--#if ENABLE_OVERLOADING-    InetAddressEqualMethodInfo              ,-#endif-    inetAddressEqual                        ,----- ** getFamily #method:getFamily#--#if ENABLE_OVERLOADING-    InetAddressGetFamilyMethodInfo          ,-#endif-    inetAddressGetFamily                    ,----- ** getIsAny #method:getIsAny#--#if ENABLE_OVERLOADING-    InetAddressGetIsAnyMethodInfo           ,-#endif-    inetAddressGetIsAny                     ,----- ** getIsLinkLocal #method:getIsLinkLocal#--#if ENABLE_OVERLOADING-    InetAddressGetIsLinkLocalMethodInfo     ,-#endif-    inetAddressGetIsLinkLocal               ,----- ** getIsLoopback #method:getIsLoopback#--#if ENABLE_OVERLOADING-    InetAddressGetIsLoopbackMethodInfo      ,-#endif-    inetAddressGetIsLoopback                ,----- ** getIsMcGlobal #method:getIsMcGlobal#--#if ENABLE_OVERLOADING-    InetAddressGetIsMcGlobalMethodInfo      ,-#endif-    inetAddressGetIsMcGlobal                ,----- ** getIsMcLinkLocal #method:getIsMcLinkLocal#--#if ENABLE_OVERLOADING-    InetAddressGetIsMcLinkLocalMethodInfo   ,-#endif-    inetAddressGetIsMcLinkLocal             ,----- ** getIsMcNodeLocal #method:getIsMcNodeLocal#--#if ENABLE_OVERLOADING-    InetAddressGetIsMcNodeLocalMethodInfo   ,-#endif-    inetAddressGetIsMcNodeLocal             ,----- ** getIsMcOrgLocal #method:getIsMcOrgLocal#--#if ENABLE_OVERLOADING-    InetAddressGetIsMcOrgLocalMethodInfo    ,-#endif-    inetAddressGetIsMcOrgLocal              ,----- ** getIsMcSiteLocal #method:getIsMcSiteLocal#--#if ENABLE_OVERLOADING-    InetAddressGetIsMcSiteLocalMethodInfo   ,-#endif-    inetAddressGetIsMcSiteLocal             ,----- ** getIsMulticast #method:getIsMulticast#--#if ENABLE_OVERLOADING-    InetAddressGetIsMulticastMethodInfo     ,-#endif-    inetAddressGetIsMulticast               ,----- ** getIsSiteLocal #method:getIsSiteLocal#--#if ENABLE_OVERLOADING-    InetAddressGetIsSiteLocalMethodInfo     ,-#endif-    inetAddressGetIsSiteLocal               ,----- ** getNativeSize #method:getNativeSize#--#if ENABLE_OVERLOADING-    InetAddressGetNativeSizeMethodInfo      ,-#endif-    inetAddressGetNativeSize                ,----- ** newAny #method:newAny#--    inetAddressNewAny                       ,----- ** newFromBytes #method:newFromBytes#--    inetAddressNewFromBytes                 ,----- ** newFromString #method:newFromString#--    inetAddressNewFromString                ,----- ** newLoopback #method:newLoopback#--    inetAddressNewLoopback                  ,----- ** toString #method:toString#--#if ENABLE_OVERLOADING-    InetAddressToStringMethodInfo           ,-#endif-    inetAddressToString                     ,----- -- * Properties--- ** bytes #attr:bytes#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    InetAddressBytesPropertyInfo            ,-#endif-    constructInetAddressBytes               ,-    getInetAddressBytes                     ,-#if ENABLE_OVERLOADING-    inetAddressBytes                        ,-#endif----- ** family #attr:family#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    InetAddressFamilyPropertyInfo           ,-#endif-    constructInetAddressFamily              ,-    getInetAddressFamily                    ,-#if ENABLE_OVERLOADING-    inetAddressFamily                       ,-#endif----- ** isAny #attr:isAny#-{- | Whether this is the \"any\" address for its family.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsAny'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsAnyPropertyInfo            ,-#endif-    getInetAddressIsAny                     ,-#if ENABLE_OVERLOADING-    inetAddressIsAny                        ,-#endif----- ** isLinkLocal #attr:isLinkLocal#-{- | Whether this is a link-local address.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsLinkLocal'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsLinkLocalPropertyInfo      ,-#endif-    getInetAddressIsLinkLocal               ,-#if ENABLE_OVERLOADING-    inetAddressIsLinkLocal                  ,-#endif----- ** isLoopback #attr:isLoopback#-{- | Whether this is the loopback address for its family.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsLoopback'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsLoopbackPropertyInfo       ,-#endif-    getInetAddressIsLoopback                ,-#if ENABLE_OVERLOADING-    inetAddressIsLoopback                   ,-#endif----- ** isMcGlobal #attr:isMcGlobal#-{- | Whether this is a global multicast address.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsMcGlobal'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsMcGlobalPropertyInfo       ,-#endif-    getInetAddressIsMcGlobal                ,-#if ENABLE_OVERLOADING-    inetAddressIsMcGlobal                   ,-#endif----- ** isMcLinkLocal #attr:isMcLinkLocal#-{- | Whether this is a link-local multicast address.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsMcLinkLocal'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsMcLinkLocalPropertyInfo    ,-#endif-    getInetAddressIsMcLinkLocal             ,-#if ENABLE_OVERLOADING-    inetAddressIsMcLinkLocal                ,-#endif----- ** isMcNodeLocal #attr:isMcNodeLocal#-{- | Whether this is a node-local multicast address.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsMcNodeLocal'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsMcNodeLocalPropertyInfo    ,-#endif-    getInetAddressIsMcNodeLocal             ,-#if ENABLE_OVERLOADING-    inetAddressIsMcNodeLocal                ,-#endif----- ** isMcOrgLocal #attr:isMcOrgLocal#-{- | Whether this is an organization-local multicast address.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsMcOrgLocal'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsMcOrgLocalPropertyInfo     ,-#endif-    getInetAddressIsMcOrgLocal              ,-#if ENABLE_OVERLOADING-    inetAddressIsMcOrgLocal                 ,-#endif----- ** isMcSiteLocal #attr:isMcSiteLocal#-{- | Whether this is a site-local multicast address.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsMcSiteLocal'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsMcSiteLocalPropertyInfo    ,-#endif-    getInetAddressIsMcSiteLocal             ,-#if ENABLE_OVERLOADING-    inetAddressIsMcSiteLocal                ,-#endif----- ** isMulticast #attr:isMulticast#-{- | Whether this is a multicast address.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsMulticast'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsMulticastPropertyInfo      ,-#endif-    getInetAddressIsMulticast               ,-#if ENABLE_OVERLOADING-    inetAddressIsMulticast                  ,-#endif----- ** isSiteLocal #attr:isSiteLocal#-{- | Whether this is a site-local address.-See 'GI.Gio.Objects.InetAddress.inetAddressGetIsLoopback'.--/Since: 2.22/--}-#if ENABLE_OVERLOADING-    InetAddressIsSiteLocalPropertyInfo      ,-#endif-    getInetAddressIsSiteLocal               ,-#if ENABLE_OVERLOADING-    inetAddressIsSiteLocal                  ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums---- | Memory-managed wrapper type.-newtype InetAddress = InetAddress (ManagedPtr InetAddress)-foreign import ccall "g_inet_address_get_type"-    c_g_inet_address_get_type :: IO GType--instance GObject InetAddress where-    gobjectType = c_g_inet_address_get_type-    ---- | Type class for types which can be safely cast to `InetAddress`, for instance with `toInetAddress`.-class (GObject o, O.IsDescendantOf InetAddress o) => IsInetAddress o-instance (GObject o, O.IsDescendantOf InetAddress o) => IsInetAddress o--instance O.HasParentTypes InetAddress-type instance O.ParentTypes InetAddress = '[GObject.Object.Object]---- | Cast to `InetAddress`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toInetAddress :: (MonadIO m, IsInetAddress o) => o -> m InetAddress-toInetAddress = liftIO . unsafeCastTo InetAddress---- | A convenience alias for `Nothing` :: `Maybe` `InetAddress`.-noInetAddress :: Maybe InetAddress-noInetAddress = Nothing--#if ENABLE_OVERLOADING-type family ResolveInetAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveInetAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveInetAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveInetAddressMethod "equal" o = InetAddressEqualMethodInfo-    ResolveInetAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveInetAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveInetAddressMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveInetAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveInetAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveInetAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveInetAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveInetAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveInetAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveInetAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveInetAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveInetAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveInetAddressMethod "toString" o = InetAddressToStringMethodInfo-    ResolveInetAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveInetAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveInetAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveInetAddressMethod "getFamily" o = InetAddressGetFamilyMethodInfo-    ResolveInetAddressMethod "getIsAny" o = InetAddressGetIsAnyMethodInfo-    ResolveInetAddressMethod "getIsLinkLocal" o = InetAddressGetIsLinkLocalMethodInfo-    ResolveInetAddressMethod "getIsLoopback" o = InetAddressGetIsLoopbackMethodInfo-    ResolveInetAddressMethod "getIsMcGlobal" o = InetAddressGetIsMcGlobalMethodInfo-    ResolveInetAddressMethod "getIsMcLinkLocal" o = InetAddressGetIsMcLinkLocalMethodInfo-    ResolveInetAddressMethod "getIsMcNodeLocal" o = InetAddressGetIsMcNodeLocalMethodInfo-    ResolveInetAddressMethod "getIsMcOrgLocal" o = InetAddressGetIsMcOrgLocalMethodInfo-    ResolveInetAddressMethod "getIsMcSiteLocal" o = InetAddressGetIsMcSiteLocalMethodInfo-    ResolveInetAddressMethod "getIsMulticast" o = InetAddressGetIsMulticastMethodInfo-    ResolveInetAddressMethod "getIsSiteLocal" o = InetAddressGetIsSiteLocalMethodInfo-    ResolveInetAddressMethod "getNativeSize" o = InetAddressGetNativeSizeMethodInfo-    ResolveInetAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveInetAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveInetAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveInetAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveInetAddressMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveInetAddressMethod t InetAddress, O.MethodInfo info InetAddress p) => OL.IsLabel t (InetAddress -> 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---- VVV Prop "bytes"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@bytes@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #bytes-@--}-getInetAddressBytes :: (MonadIO m, IsInetAddress o) => o -> m (Ptr ())-getInetAddressBytes obj = liftIO $ B.Properties.getObjectPropertyPtr obj "bytes"--{- |-Construct a `GValueConstruct` with valid value for the “@bytes@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructInetAddressBytes :: (IsInetAddress o) => Ptr () -> IO (GValueConstruct o)-constructInetAddressBytes val = B.Properties.constructObjectPropertyPtr "bytes" val--#if ENABLE_OVERLOADING-data InetAddressBytesPropertyInfo-instance AttrInfo InetAddressBytesPropertyInfo where-    type AttrAllowedOps InetAddressBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetAddressBytesPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint InetAddressBytesPropertyInfo = IsInetAddress-    type AttrGetType InetAddressBytesPropertyInfo = (Ptr ())-    type AttrLabel InetAddressBytesPropertyInfo = "bytes"-    type AttrOrigin InetAddressBytesPropertyInfo = InetAddress-    attrGet _ = getInetAddressBytes-    attrSet _ = undefined-    attrConstruct _ = constructInetAddressBytes-    attrClear _ = undefined-#endif---- VVV Prop "family"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketFamily"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@family@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #family-@--}-getInetAddressFamily :: (MonadIO m, IsInetAddress o) => o -> m Gio.Enums.SocketFamily-getInetAddressFamily obj = liftIO $ B.Properties.getObjectPropertyEnum obj "family"--{- |-Construct a `GValueConstruct` with valid value for the “@family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructInetAddressFamily :: (IsInetAddress o) => Gio.Enums.SocketFamily -> IO (GValueConstruct o)-constructInetAddressFamily val = B.Properties.constructObjectPropertyEnum "family" val--#if ENABLE_OVERLOADING-data InetAddressFamilyPropertyInfo-instance AttrInfo InetAddressFamilyPropertyInfo where-    type AttrAllowedOps InetAddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetAddressFamilyPropertyInfo = (~) Gio.Enums.SocketFamily-    type AttrBaseTypeConstraint InetAddressFamilyPropertyInfo = IsInetAddress-    type AttrGetType InetAddressFamilyPropertyInfo = Gio.Enums.SocketFamily-    type AttrLabel InetAddressFamilyPropertyInfo = "family"-    type AttrOrigin InetAddressFamilyPropertyInfo = InetAddress-    attrGet _ = getInetAddressFamily-    attrSet _ = undefined-    attrConstruct _ = constructInetAddressFamily-    attrClear _ = undefined-#endif---- VVV Prop "is-any"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-any@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isAny-@--}-getInetAddressIsAny :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsAny obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-any"--#if ENABLE_OVERLOADING-data InetAddressIsAnyPropertyInfo-instance AttrInfo InetAddressIsAnyPropertyInfo where-    type AttrAllowedOps InetAddressIsAnyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsAnyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsAnyPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsAnyPropertyInfo = Bool-    type AttrLabel InetAddressIsAnyPropertyInfo = "is-any"-    type AttrOrigin InetAddressIsAnyPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsAny-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-link-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-link-local@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isLinkLocal-@--}-getInetAddressIsLinkLocal :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsLinkLocal obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-link-local"--#if ENABLE_OVERLOADING-data InetAddressIsLinkLocalPropertyInfo-instance AttrInfo InetAddressIsLinkLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsLinkLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsLinkLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsLinkLocalPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsLinkLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsLinkLocalPropertyInfo = "is-link-local"-    type AttrOrigin InetAddressIsLinkLocalPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsLinkLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-loopback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-loopback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isLoopback-@--}-getInetAddressIsLoopback :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsLoopback obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-loopback"--#if ENABLE_OVERLOADING-data InetAddressIsLoopbackPropertyInfo-instance AttrInfo InetAddressIsLoopbackPropertyInfo where-    type AttrAllowedOps InetAddressIsLoopbackPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsLoopbackPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsLoopbackPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsLoopbackPropertyInfo = Bool-    type AttrLabel InetAddressIsLoopbackPropertyInfo = "is-loopback"-    type AttrOrigin InetAddressIsLoopbackPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsLoopback-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-mc-global"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-mc-global@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isMcGlobal-@--}-getInetAddressIsMcGlobal :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsMcGlobal obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-mc-global"--#if ENABLE_OVERLOADING-data InetAddressIsMcGlobalPropertyInfo-instance AttrInfo InetAddressIsMcGlobalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcGlobalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcGlobalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcGlobalPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsMcGlobalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcGlobalPropertyInfo = "is-mc-global"-    type AttrOrigin InetAddressIsMcGlobalPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsMcGlobal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-mc-link-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-mc-link-local@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isMcLinkLocal-@--}-getInetAddressIsMcLinkLocal :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsMcLinkLocal obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-mc-link-local"--#if ENABLE_OVERLOADING-data InetAddressIsMcLinkLocalPropertyInfo-instance AttrInfo InetAddressIsMcLinkLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcLinkLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcLinkLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcLinkLocalPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsMcLinkLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcLinkLocalPropertyInfo = "is-mc-link-local"-    type AttrOrigin InetAddressIsMcLinkLocalPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsMcLinkLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-mc-node-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-mc-node-local@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isMcNodeLocal-@--}-getInetAddressIsMcNodeLocal :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsMcNodeLocal obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-mc-node-local"--#if ENABLE_OVERLOADING-data InetAddressIsMcNodeLocalPropertyInfo-instance AttrInfo InetAddressIsMcNodeLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcNodeLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcNodeLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcNodeLocalPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsMcNodeLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcNodeLocalPropertyInfo = "is-mc-node-local"-    type AttrOrigin InetAddressIsMcNodeLocalPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsMcNodeLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-mc-org-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-mc-org-local@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isMcOrgLocal-@--}-getInetAddressIsMcOrgLocal :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsMcOrgLocal obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-mc-org-local"--#if ENABLE_OVERLOADING-data InetAddressIsMcOrgLocalPropertyInfo-instance AttrInfo InetAddressIsMcOrgLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcOrgLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcOrgLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcOrgLocalPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsMcOrgLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcOrgLocalPropertyInfo = "is-mc-org-local"-    type AttrOrigin InetAddressIsMcOrgLocalPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsMcOrgLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-mc-site-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-mc-site-local@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isMcSiteLocal-@--}-getInetAddressIsMcSiteLocal :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsMcSiteLocal obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-mc-site-local"--#if ENABLE_OVERLOADING-data InetAddressIsMcSiteLocalPropertyInfo-instance AttrInfo InetAddressIsMcSiteLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsMcSiteLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMcSiteLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMcSiteLocalPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsMcSiteLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsMcSiteLocalPropertyInfo = "is-mc-site-local"-    type AttrOrigin InetAddressIsMcSiteLocalPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsMcSiteLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-multicast"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-multicast@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isMulticast-@--}-getInetAddressIsMulticast :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsMulticast obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-multicast"--#if ENABLE_OVERLOADING-data InetAddressIsMulticastPropertyInfo-instance AttrInfo InetAddressIsMulticastPropertyInfo where-    type AttrAllowedOps InetAddressIsMulticastPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsMulticastPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsMulticastPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsMulticastPropertyInfo = Bool-    type AttrLabel InetAddressIsMulticastPropertyInfo = "is-multicast"-    type AttrOrigin InetAddressIsMulticastPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsMulticast-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-site-local"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@is-site-local@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddress #isSiteLocal-@--}-getInetAddressIsSiteLocal :: (MonadIO m, IsInetAddress o) => o -> m Bool-getInetAddressIsSiteLocal obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-site-local"--#if ENABLE_OVERLOADING-data InetAddressIsSiteLocalPropertyInfo-instance AttrInfo InetAddressIsSiteLocalPropertyInfo where-    type AttrAllowedOps InetAddressIsSiteLocalPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressIsSiteLocalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressIsSiteLocalPropertyInfo = IsInetAddress-    type AttrGetType InetAddressIsSiteLocalPropertyInfo = Bool-    type AttrLabel InetAddressIsSiteLocalPropertyInfo = "is-site-local"-    type AttrOrigin InetAddressIsSiteLocalPropertyInfo = InetAddress-    attrGet _ = getInetAddressIsSiteLocal-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList InetAddress-type instance O.AttributeList InetAddress = InetAddressAttributeList-type InetAddressAttributeList = ('[ '("bytes", InetAddressBytesPropertyInfo), '("family", InetAddressFamilyPropertyInfo), '("isAny", InetAddressIsAnyPropertyInfo), '("isLinkLocal", InetAddressIsLinkLocalPropertyInfo), '("isLoopback", InetAddressIsLoopbackPropertyInfo), '("isMcGlobal", InetAddressIsMcGlobalPropertyInfo), '("isMcLinkLocal", InetAddressIsMcLinkLocalPropertyInfo), '("isMcNodeLocal", InetAddressIsMcNodeLocalPropertyInfo), '("isMcOrgLocal", InetAddressIsMcOrgLocalPropertyInfo), '("isMcSiteLocal", InetAddressIsMcSiteLocalPropertyInfo), '("isMulticast", InetAddressIsMulticastPropertyInfo), '("isSiteLocal", InetAddressIsSiteLocalPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-inetAddressBytes :: AttrLabelProxy "bytes"-inetAddressBytes = AttrLabelProxy--inetAddressFamily :: AttrLabelProxy "family"-inetAddressFamily = AttrLabelProxy--inetAddressIsAny :: AttrLabelProxy "isAny"-inetAddressIsAny = AttrLabelProxy--inetAddressIsLinkLocal :: AttrLabelProxy "isLinkLocal"-inetAddressIsLinkLocal = AttrLabelProxy--inetAddressIsLoopback :: AttrLabelProxy "isLoopback"-inetAddressIsLoopback = AttrLabelProxy--inetAddressIsMcGlobal :: AttrLabelProxy "isMcGlobal"-inetAddressIsMcGlobal = AttrLabelProxy--inetAddressIsMcLinkLocal :: AttrLabelProxy "isMcLinkLocal"-inetAddressIsMcLinkLocal = AttrLabelProxy--inetAddressIsMcNodeLocal :: AttrLabelProxy "isMcNodeLocal"-inetAddressIsMcNodeLocal = AttrLabelProxy--inetAddressIsMcOrgLocal :: AttrLabelProxy "isMcOrgLocal"-inetAddressIsMcOrgLocal = AttrLabelProxy--inetAddressIsMcSiteLocal :: AttrLabelProxy "isMcSiteLocal"-inetAddressIsMcSiteLocal = AttrLabelProxy--inetAddressIsMulticast :: AttrLabelProxy "isMulticast"-inetAddressIsMulticast = AttrLabelProxy--inetAddressIsSiteLocal :: AttrLabelProxy "isSiteLocal"-inetAddressIsSiteLocal = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList InetAddress = InetAddressSignalList-type InetAddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method InetAddress::new_any--- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface (Name {namespace = "Gio", name = "SocketFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the address family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_new_any" g_inet_address_new_any :: -    CUInt ->                                -- family : TInterface (Name {namespace = "Gio", name = "SocketFamily"})-    IO (Ptr InetAddress)--{- |-Creates a 'GI.Gio.Objects.InetAddress.InetAddress' for the \"any\" address (unassigned\/\"don\'t-care\") for /@family@/.--/Since: 2.22/--}-inetAddressNewAny ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Enums.SocketFamily-    {- ^ /@family@/: the address family -}-    -> m InetAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InetAddress.InetAddress' corresponding to the \"any\" address-for /@family@/.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-inetAddressNewAny family = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    result <- g_inet_address_new_any family'-    checkUnexpectedReturnNULL "inetAddressNewAny" result-    result' <- (wrapObject InetAddress) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method InetAddress::new_from_bytes--- method type : Constructor--- Args : [Arg {argCName = "bytes", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "raw address data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface (Name {namespace = "Gio", name = "SocketFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the address family of @bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_new_from_bytes" g_inet_address_new_from_bytes :: -    Ptr Word8 ->                            -- bytes : TCArray False (-1) (-1) (TBasicType TUInt8)-    CUInt ->                                -- family : TInterface (Name {namespace = "Gio", name = "SocketFamily"})-    IO (Ptr InetAddress)--{- |-Creates a new 'GI.Gio.Objects.InetAddress.InetAddress' from the given /@family@/ and /@bytes@/.-/@bytes@/ should be 4 bytes for 'GI.Gio.Enums.SocketFamilyIpv4' and 16 bytes for-'GI.Gio.Enums.SocketFamilyIpv6'.--/Since: 2.22/--}-inetAddressNewFromBytes ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Ptr Word8-    {- ^ /@bytes@/: raw address data -}-    -> Gio.Enums.SocketFamily-    {- ^ /@family@/: the address family of /@bytes@/ -}-    -> m InetAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InetAddress.InetAddress' corresponding to /@family@/ and /@bytes@/.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-inetAddressNewFromBytes bytes family = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    result <- g_inet_address_new_from_bytes bytes family'-    checkUnexpectedReturnNULL "inetAddressNewFromBytes" result-    result' <- (wrapObject InetAddress) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method InetAddress::new_from_string--- method type : Constructor--- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string representation of an IP address", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_new_from_string" g_inet_address_new_from_string :: -    CString ->                              -- string : TBasicType TUTF8-    IO (Ptr InetAddress)--{- |-Parses /@string@/ as an IP address and creates a new 'GI.Gio.Objects.InetAddress.InetAddress'.--/Since: 2.22/--}-inetAddressNewFromString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@string@/: a string representation of an IP address -}-    -> m InetAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InetAddress.InetAddress' corresponding to /@string@/, or 'Nothing' if-/@string@/ could not be parsed.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-inetAddressNewFromString string = liftIO $ do-    string' <- textToCString string-    result <- g_inet_address_new_from_string string'-    checkUnexpectedReturnNULL "inetAddressNewFromString" result-    result' <- (wrapObject InetAddress) result-    freeMem string'-    return result'--#if ENABLE_OVERLOADING-#endif---- method InetAddress::new_loopback--- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface (Name {namespace = "Gio", name = "SocketFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the address family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_new_loopback" g_inet_address_new_loopback :: -    CUInt ->                                -- family : TInterface (Name {namespace = "Gio", name = "SocketFamily"})-    IO (Ptr InetAddress)--{- |-Creates a 'GI.Gio.Objects.InetAddress.InetAddress' for the loopback address for /@family@/.--/Since: 2.22/--}-inetAddressNewLoopback ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Enums.SocketFamily-    {- ^ /@family@/: the address family -}-    -> m InetAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InetAddress.InetAddress' corresponding to the loopback address-for /@family@/.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-inetAddressNewLoopback family = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    result <- g_inet_address_new_loopback family'-    checkUnexpectedReturnNULL "inetAddressNewLoopback" result-    result' <- (wrapObject InetAddress) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method InetAddress::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GInetAddress.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Another #GInetAddress.", 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 "g_inet_address_equal" g_inet_address_equal :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    Ptr InetAddress ->                      -- other_address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Checks if two 'GI.Gio.Objects.InetAddress.InetAddress' instances are equal, e.g. the same address.--/Since: 2.30/--}-inetAddressEqual ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a, IsInetAddress b) =>-    a-    {- ^ /@address@/: A 'GI.Gio.Objects.InetAddress.InetAddress'. -}-    -> b-    {- ^ /@otherAddress@/: Another 'GI.Gio.Objects.InetAddress.InetAddress'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ and /@otherAddress@/ are equal, 'False' otherwise. -}-inetAddressEqual address otherAddress = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    otherAddress' <- unsafeManagedPtrCastPtr otherAddress-    result <- g_inet_address_equal address' otherAddress'-    let result' = (/= 0) result-    touchManagedPtr address-    touchManagedPtr otherAddress-    return result'--#if ENABLE_OVERLOADING-data InetAddressEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsInetAddress a, IsInetAddress b) => O.MethodInfo InetAddressEqualMethodInfo a signature where-    overloadedMethod _ = inetAddressEqual--#endif---- method InetAddress::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketFamily"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_get_family" g_inet_address_get_family :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CUInt--{- |-Gets /@address@/\'s family--/Since: 2.22/--}-inetAddressGetFamily ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Gio.Enums.SocketFamily-    {- ^ __Returns:__ /@address@/\'s family -}-inetAddressGetFamily address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_family address'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetFamilyMethodInfo-instance (signature ~ (m Gio.Enums.SocketFamily), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetFamilyMethodInfo a signature where-    overloadedMethod _ = inetAddressGetFamily--#endif---- method InetAddress::get_is_any--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_any" g_inet_address_get_is_any :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is the \"any\" address for its family.--/Since: 2.22/--}-inetAddressGetIsAny ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is the \"any\" address for its family. -}-inetAddressGetIsAny address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_any address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsAnyMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsAnyMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsAny--#endif---- method InetAddress::get_is_link_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_link_local" g_inet_address_get_is_link_local :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is a link-local address (that is, if it-identifies a host on a local network that is not connected to the-Internet).--/Since: 2.22/--}-inetAddressGetIsLinkLocal ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is a link-local address. -}-inetAddressGetIsLinkLocal address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_link_local address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsLinkLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsLinkLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsLinkLocal--#endif---- method InetAddress::get_is_loopback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_loopback" g_inet_address_get_is_loopback :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is the loopback address for its family.--/Since: 2.22/--}-inetAddressGetIsLoopback ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is the loopback address for its family. -}-inetAddressGetIsLoopback address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_loopback address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsLoopbackMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsLoopbackMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsLoopback--#endif---- method InetAddress::get_is_mc_global--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_mc_global" g_inet_address_get_is_mc_global :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is a global multicast address.--/Since: 2.22/--}-inetAddressGetIsMcGlobal ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is a global multicast address. -}-inetAddressGetIsMcGlobal address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_mc_global address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsMcGlobalMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsMcGlobalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcGlobal--#endif---- method InetAddress::get_is_mc_link_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_mc_link_local" g_inet_address_get_is_mc_link_local :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is a link-local multicast address.--/Since: 2.22/--}-inetAddressGetIsMcLinkLocal ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is a link-local multicast address. -}-inetAddressGetIsMcLinkLocal address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_mc_link_local address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsMcLinkLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsMcLinkLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcLinkLocal--#endif---- method InetAddress::get_is_mc_node_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_mc_node_local" g_inet_address_get_is_mc_node_local :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is a node-local multicast address.--/Since: 2.22/--}-inetAddressGetIsMcNodeLocal ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is a node-local multicast address. -}-inetAddressGetIsMcNodeLocal address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_mc_node_local address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsMcNodeLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsMcNodeLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcNodeLocal--#endif---- method InetAddress::get_is_mc_org_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_mc_org_local" g_inet_address_get_is_mc_org_local :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is an organization-local multicast address.--/Since: 2.22/--}-inetAddressGetIsMcOrgLocal ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is an organization-local multicast address. -}-inetAddressGetIsMcOrgLocal address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_mc_org_local address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsMcOrgLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsMcOrgLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcOrgLocal--#endif---- method InetAddress::get_is_mc_site_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_mc_site_local" g_inet_address_get_is_mc_site_local :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is a site-local multicast address.--/Since: 2.22/--}-inetAddressGetIsMcSiteLocal ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is a site-local multicast address. -}-inetAddressGetIsMcSiteLocal address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_mc_site_local address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsMcSiteLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsMcSiteLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMcSiteLocal--#endif---- method InetAddress::get_is_multicast--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_multicast" g_inet_address_get_is_multicast :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is a multicast address.--/Since: 2.22/--}-inetAddressGetIsMulticast ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is a multicast address. -}-inetAddressGetIsMulticast address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_multicast address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsMulticastMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsMulticastMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsMulticast--#endif---- method InetAddress::get_is_site_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_is_site_local" g_inet_address_get_is_site_local :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests whether /@address@/ is a site-local address such as 10.0.0.1-(that is, the address identifies a host on a local network that can-not be reached directly from the Internet, but which may have-outgoing Internet connectivity via a NAT or firewall).--/Since: 2.22/--}-inetAddressGetIsSiteLocal ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@address@/ is a site-local address. -}-inetAddressGetIsSiteLocal address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_is_site_local address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressGetIsSiteLocalMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetIsSiteLocalMethodInfo a signature where-    overloadedMethod _ = inetAddressGetIsSiteLocal--#endif---- method InetAddress::get_native_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_get_native_size" g_inet_address_get_native_size :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO Word64--{- |-Gets the size of the native raw binary address for /@address@/. This-is the size of the data that you get from @/g_inet_address_to_bytes()/@.--/Since: 2.22/--}-inetAddressGetNativeSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Word64-    {- ^ __Returns:__ the number of bytes used for the native version of /@address@/. -}-inetAddressGetNativeSize address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_get_native_size address'-    touchManagedPtr address-    return result--#if ENABLE_OVERLOADING-data InetAddressGetNativeSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressGetNativeSizeMethodInfo a signature where-    overloadedMethod _ = inetAddressGetNativeSize--#endif---- method InetAddress::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_to_string" g_inet_address_to_string :: -    Ptr InetAddress ->                      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CString--{- |-Converts /@address@/ to string form.--/Since: 2.22/--}-inetAddressToString ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m T.Text-    {- ^ __Returns:__ a representation of /@address@/ as a string, which should be-freed after use. -}-inetAddressToString address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_to_string address'-    checkUnexpectedReturnNULL "inetAddressToString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsInetAddress a) => O.MethodInfo InetAddressToStringMethodInfo a signature where-    overloadedMethod _ = inetAddressToString--#endif--
− GI/Gio/Objects/InetAddress.hs-boot 
@@ -1,107 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.InetAddress 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 InetAddress = InetAddress (ManagedPtr InetAddress)-instance GObject InetAddress where-class (GObject o, O.IsDescendantOf InetAddress o) => IsInetAddress o-instance (GObject o, O.IsDescendantOf InetAddress o) => IsInetAddress o-instance O.HasParentTypes InetAddress-#if ENABLE_OVERLOADING-data InetAddressBytesPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressFamilyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsAnyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsLinkLocalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsLoopbackPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsMcGlobalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsMcLinkLocalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsMcNodeLocalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsMcOrgLocalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsMcSiteLocalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsMulticastPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressIsSiteLocalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetFamilyMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsAnyMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsLinkLocalMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsLoopbackMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsMcGlobalMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsMcLinkLocalMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsMcNodeLocalMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsMcOrgLocalMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsMcSiteLocalMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsMulticastMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetIsSiteLocalMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressGetNativeSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressToStringMethodInfo-#endif
− GI/Gio/Objects/InetAddressMask.hs 
@@ -1,709 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.InetAddressMask.InetAddressMask' represents a range of IPv4 or IPv6 addresses-described by a base address and a length indicating how many bits-of the base address are relevant for matching purposes. These are-often given in string form. Eg, \"10.0.0.0\/8\", or \"fe80::\/10\".--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.InetAddressMask-    ( ---- * Exported types-    InetAddressMask(..)                     ,-    IsInetAddressMask                       ,-    toInetAddressMask                       ,-    noInetAddressMask                       ,--- -- * Methods--- ** equal #method:equal#--#if ENABLE_OVERLOADING-    InetAddressMaskEqualMethodInfo          ,-#endif-    inetAddressMaskEqual                    ,----- ** getAddress #method:getAddress#--#if ENABLE_OVERLOADING-    InetAddressMaskGetAddressMethodInfo     ,-#endif-    inetAddressMaskGetAddress               ,----- ** getFamily #method:getFamily#--#if ENABLE_OVERLOADING-    InetAddressMaskGetFamilyMethodInfo      ,-#endif-    inetAddressMaskGetFamily                ,----- ** getLength #method:getLength#--#if ENABLE_OVERLOADING-    InetAddressMaskGetLengthMethodInfo      ,-#endif-    inetAddressMaskGetLength                ,----- ** matches #method:matches#--#if ENABLE_OVERLOADING-    InetAddressMaskMatchesMethodInfo        ,-#endif-    inetAddressMaskMatches                  ,----- ** new #method:new#--    inetAddressMaskNew                      ,----- ** newFromString #method:newFromString#--    inetAddressMaskNewFromString            ,----- ** toString #method:toString#--#if ENABLE_OVERLOADING-    InetAddressMaskToStringMethodInfo       ,-#endif-    inetAddressMaskToString                 ,----- -- * Properties--- ** address #attr:address#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    InetAddressMaskAddressPropertyInfo      ,-#endif-    clearInetAddressMaskAddress             ,-    constructInetAddressMaskAddress         ,-    getInetAddressMaskAddress               ,-#if ENABLE_OVERLOADING-    inetAddressMaskAddress                  ,-#endif-    setInetAddressMaskAddress               ,----- ** family #attr:family#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    InetAddressMaskFamilyPropertyInfo       ,-#endif-    getInetAddressMaskFamily                ,-#if ENABLE_OVERLOADING-    inetAddressMaskFamily                   ,-#endif----- ** length #attr:length#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    InetAddressMaskLengthPropertyInfo       ,-#endif-    constructInetAddressMaskLength          ,-    getInetAddressMaskLength                ,-#if ENABLE_OVERLOADING-    inetAddressMaskLength                   ,-#endif-    setInetAddressMaskLength                ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Gio.Objects.InetAddress as Gio.InetAddress---- | Memory-managed wrapper type.-newtype InetAddressMask = InetAddressMask (ManagedPtr InetAddressMask)-foreign import ccall "g_inet_address_mask_get_type"-    c_g_inet_address_mask_get_type :: IO GType--instance GObject InetAddressMask where-    gobjectType = c_g_inet_address_mask_get_type-    ---- | Type class for types which can be safely cast to `InetAddressMask`, for instance with `toInetAddressMask`.-class (GObject o, O.IsDescendantOf InetAddressMask o) => IsInetAddressMask o-instance (GObject o, O.IsDescendantOf InetAddressMask o) => IsInetAddressMask o--instance O.HasParentTypes InetAddressMask-type instance O.ParentTypes InetAddressMask = '[GObject.Object.Object, Gio.Initable.Initable]---- | Cast to `InetAddressMask`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toInetAddressMask :: (MonadIO m, IsInetAddressMask o) => o -> m InetAddressMask-toInetAddressMask = liftIO . unsafeCastTo InetAddressMask---- | A convenience alias for `Nothing` :: `Maybe` `InetAddressMask`.-noInetAddressMask :: Maybe InetAddressMask-noInetAddressMask = Nothing--#if ENABLE_OVERLOADING-type family ResolveInetAddressMaskMethod (t :: Symbol) (o :: *) :: * where-    ResolveInetAddressMaskMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveInetAddressMaskMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveInetAddressMaskMethod "equal" o = InetAddressMaskEqualMethodInfo-    ResolveInetAddressMaskMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveInetAddressMaskMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveInetAddressMaskMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveInetAddressMaskMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveInetAddressMaskMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveInetAddressMaskMethod "matches" o = InetAddressMaskMatchesMethodInfo-    ResolveInetAddressMaskMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveInetAddressMaskMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveInetAddressMaskMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveInetAddressMaskMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveInetAddressMaskMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveInetAddressMaskMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveInetAddressMaskMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveInetAddressMaskMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveInetAddressMaskMethod "toString" o = InetAddressMaskToStringMethodInfo-    ResolveInetAddressMaskMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveInetAddressMaskMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveInetAddressMaskMethod "getAddress" o = InetAddressMaskGetAddressMethodInfo-    ResolveInetAddressMaskMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveInetAddressMaskMethod "getFamily" o = InetAddressMaskGetFamilyMethodInfo-    ResolveInetAddressMaskMethod "getLength" o = InetAddressMaskGetLengthMethodInfo-    ResolveInetAddressMaskMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveInetAddressMaskMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveInetAddressMaskMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveInetAddressMaskMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveInetAddressMaskMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveInetAddressMaskMethod t InetAddressMask, O.MethodInfo info InetAddressMask p) => OL.IsLabel t (InetAddressMask -> 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---- VVV Prop "address"-   -- Type: TInterface (Name {namespace = "Gio", name = "InetAddress"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddressMask #address-@--}-getInetAddressMaskAddress :: (MonadIO m, IsInetAddressMask o) => o -> m Gio.InetAddress.InetAddress-getInetAddressMaskAddress obj = liftIO $ checkUnexpectedNothing "getInetAddressMaskAddress" $ B.Properties.getObjectPropertyObject obj "address" Gio.InetAddress.InetAddress--{- |-Set the value of the “@address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inetAddressMask [ #address 'Data.GI.Base.Attributes.:=' value ]-@--}-setInetAddressMaskAddress :: (MonadIO m, IsInetAddressMask o, Gio.InetAddress.IsInetAddress a) => o -> a -> m ()-setInetAddressMaskAddress obj val = liftIO $ B.Properties.setObjectPropertyObject obj "address" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@address@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructInetAddressMaskAddress :: (IsInetAddressMask o, Gio.InetAddress.IsInetAddress a) => a -> IO (GValueConstruct o)-constructInetAddressMaskAddress val = B.Properties.constructObjectPropertyObject "address" (Just val)--{- |-Set the value of the “@address@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #address-@--}-clearInetAddressMaskAddress :: (MonadIO m, IsInetAddressMask o) => o -> m ()-clearInetAddressMaskAddress obj = liftIO $ B.Properties.setObjectPropertyObject obj "address" (Nothing :: Maybe Gio.InetAddress.InetAddress)--#if ENABLE_OVERLOADING-data InetAddressMaskAddressPropertyInfo-instance AttrInfo InetAddressMaskAddressPropertyInfo where-    type AttrAllowedOps InetAddressMaskAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint InetAddressMaskAddressPropertyInfo = Gio.InetAddress.IsInetAddress-    type AttrBaseTypeConstraint InetAddressMaskAddressPropertyInfo = IsInetAddressMask-    type AttrGetType InetAddressMaskAddressPropertyInfo = Gio.InetAddress.InetAddress-    type AttrLabel InetAddressMaskAddressPropertyInfo = "address"-    type AttrOrigin InetAddressMaskAddressPropertyInfo = InetAddressMask-    attrGet _ = getInetAddressMaskAddress-    attrSet _ = setInetAddressMaskAddress-    attrConstruct _ = constructInetAddressMaskAddress-    attrClear _ = clearInetAddressMaskAddress-#endif---- VVV Prop "family"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketFamily"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@family@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddressMask #family-@--}-getInetAddressMaskFamily :: (MonadIO m, IsInetAddressMask o) => o -> m Gio.Enums.SocketFamily-getInetAddressMaskFamily obj = liftIO $ B.Properties.getObjectPropertyEnum obj "family"--#if ENABLE_OVERLOADING-data InetAddressMaskFamilyPropertyInfo-instance AttrInfo InetAddressMaskFamilyPropertyInfo where-    type AttrAllowedOps InetAddressMaskFamilyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint InetAddressMaskFamilyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint InetAddressMaskFamilyPropertyInfo = IsInetAddressMask-    type AttrGetType InetAddressMaskFamilyPropertyInfo = Gio.Enums.SocketFamily-    type AttrLabel InetAddressMaskFamilyPropertyInfo = "family"-    type AttrOrigin InetAddressMaskFamilyPropertyInfo = InetAddressMask-    attrGet _ = getInetAddressMaskFamily-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "length"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@length@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetAddressMask #length-@--}-getInetAddressMaskLength :: (MonadIO m, IsInetAddressMask o) => o -> m Word32-getInetAddressMaskLength obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "length"--{- |-Set the value of the “@length@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inetAddressMask [ #length 'Data.GI.Base.Attributes.:=' value ]-@--}-setInetAddressMaskLength :: (MonadIO m, IsInetAddressMask o) => o -> Word32 -> m ()-setInetAddressMaskLength obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "length" val--{- |-Construct a `GValueConstruct` with valid value for the “@length@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructInetAddressMaskLength :: (IsInetAddressMask o) => Word32 -> IO (GValueConstruct o)-constructInetAddressMaskLength val = B.Properties.constructObjectPropertyUInt32 "length" val--#if ENABLE_OVERLOADING-data InetAddressMaskLengthPropertyInfo-instance AttrInfo InetAddressMaskLengthPropertyInfo where-    type AttrAllowedOps InetAddressMaskLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetAddressMaskLengthPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint InetAddressMaskLengthPropertyInfo = IsInetAddressMask-    type AttrGetType InetAddressMaskLengthPropertyInfo = Word32-    type AttrLabel InetAddressMaskLengthPropertyInfo = "length"-    type AttrOrigin InetAddressMaskLengthPropertyInfo = InetAddressMask-    attrGet _ = getInetAddressMaskLength-    attrSet _ = setInetAddressMaskLength-    attrConstruct _ = constructInetAddressMaskLength-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList InetAddressMask-type instance O.AttributeList InetAddressMask = InetAddressMaskAttributeList-type InetAddressMaskAttributeList = ('[ '("address", InetAddressMaskAddressPropertyInfo), '("family", InetAddressMaskFamilyPropertyInfo), '("length", InetAddressMaskLengthPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-inetAddressMaskAddress :: AttrLabelProxy "address"-inetAddressMaskAddress = AttrLabelProxy--inetAddressMaskFamily :: AttrLabelProxy "family"-inetAddressMaskFamily = AttrLabelProxy--inetAddressMaskLength :: AttrLabelProxy "length"-inetAddressMaskLength = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList InetAddressMask = InetAddressMaskSignalList-type InetAddressMaskSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method InetAddressMask::new--- method type : Constructor--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of bits of @addr to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetAddressMask"}))--- throws : True--- Skip return : False--foreign import ccall "g_inet_address_mask_new" g_inet_address_mask_new :: -    Ptr Gio.InetAddress.InetAddress ->      -- addr : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    Word32 ->                               -- length : TBasicType TUInt-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr InetAddressMask)--{- |-Creates a new 'GI.Gio.Objects.InetAddressMask.InetAddressMask' representing all addresses whose-first /@length@/ bits match /@addr@/.--/Since: 2.32/--}-inetAddressMaskNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InetAddress.IsInetAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> Word32-    {- ^ /@length@/: number of bits of /@addr@/ to use -}-    -> m InetAddressMask-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InetAddressMask.InetAddressMask', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-inetAddressMaskNew addr length_ = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    onException (do-        result <- propagateGError $ g_inet_address_mask_new addr' length_-        checkUnexpectedReturnNULL "inetAddressMaskNew" result-        result' <- (wrapObject InetAddressMask) result-        touchManagedPtr addr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method InetAddressMask::new_from_string--- method type : Constructor--- Args : [Arg {argCName = "mask_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an IP address or address/length string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetAddressMask"}))--- throws : True--- Skip return : False--foreign import ccall "g_inet_address_mask_new_from_string" g_inet_address_mask_new_from_string :: -    CString ->                              -- mask_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr InetAddressMask)--{- |-Parses /@maskString@/ as an IP address and (optional) length, and-creates a new 'GI.Gio.Objects.InetAddressMask.InetAddressMask'. The length, if present, is-delimited by a \"\/\". If it is not present, then the length is-assumed to be the full length of the address.--/Since: 2.32/--}-inetAddressMaskNewFromString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@maskString@/: an IP address or address\/length string -}-    -> m InetAddressMask-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InetAddressMask.InetAddressMask' corresponding to /@string@/, or 'Nothing'-on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-inetAddressMaskNewFromString maskString = liftIO $ do-    maskString' <- textToCString maskString-    onException (do-        result <- propagateGError $ g_inet_address_mask_new_from_string maskString'-        checkUnexpectedReturnNULL "inetAddressMaskNewFromString" result-        result' <- (wrapObject InetAddressMask) result-        freeMem maskString'-        return result'-     ) (do-        freeMem maskString'-     )--#if ENABLE_OVERLOADING-#endif---- method InetAddressMask::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gio", name = "InetAddressMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddressMask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask2", argType = TInterface (Name {namespace = "Gio", name = "InetAddressMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "another #GInetAddressMask", 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 "g_inet_address_mask_equal" g_inet_address_mask_equal :: -    Ptr InetAddressMask ->                  -- mask : TInterface (Name {namespace = "Gio", name = "InetAddressMask"})-    Ptr InetAddressMask ->                  -- mask2 : TInterface (Name {namespace = "Gio", name = "InetAddressMask"})-    IO CInt--{- |-Tests if /@mask@/ and /@mask2@/ are the same mask.--/Since: 2.32/--}-inetAddressMaskEqual ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddressMask a, IsInetAddressMask b) =>-    a-    {- ^ /@mask@/: a 'GI.Gio.Objects.InetAddressMask.InetAddressMask' -}-    -> b-    {- ^ /@mask2@/: another 'GI.Gio.Objects.InetAddressMask.InetAddressMask' -}-    -> m Bool-    {- ^ __Returns:__ whether /@mask@/ and /@mask2@/ are the same mask -}-inetAddressMaskEqual mask mask2 = liftIO $ do-    mask' <- unsafeManagedPtrCastPtr mask-    mask2' <- unsafeManagedPtrCastPtr mask2-    result <- g_inet_address_mask_equal mask' mask2'-    let result' = (/= 0) result-    touchManagedPtr mask-    touchManagedPtr mask2-    return result'--#if ENABLE_OVERLOADING-data InetAddressMaskEqualMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsInetAddressMask a, IsInetAddressMask b) => O.MethodInfo InetAddressMaskEqualMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskEqual--#endif---- method InetAddressMask::get_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gio", name = "InetAddressMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddressMask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_mask_get_address" g_inet_address_mask_get_address :: -    Ptr InetAddressMask ->                  -- mask : TInterface (Name {namespace = "Gio", name = "InetAddressMask"})-    IO (Ptr Gio.InetAddress.InetAddress)--{- |-Gets /@mask@/\'s base address--/Since: 2.32/--}-inetAddressMaskGetAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddressMask a) =>-    a-    {- ^ /@mask@/: a 'GI.Gio.Objects.InetAddressMask.InetAddressMask' -}-    -> m Gio.InetAddress.InetAddress-    {- ^ __Returns:__ /@mask@/\'s base address -}-inetAddressMaskGetAddress mask = liftIO $ do-    mask' <- unsafeManagedPtrCastPtr mask-    result <- g_inet_address_mask_get_address mask'-    checkUnexpectedReturnNULL "inetAddressMaskGetAddress" result-    result' <- (newObject Gio.InetAddress.InetAddress) result-    touchManagedPtr mask-    return result'--#if ENABLE_OVERLOADING-data InetAddressMaskGetAddressMethodInfo-instance (signature ~ (m Gio.InetAddress.InetAddress), MonadIO m, IsInetAddressMask a) => O.MethodInfo InetAddressMaskGetAddressMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskGetAddress--#endif---- method InetAddressMask::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gio", name = "InetAddressMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddressMask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketFamily"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_address_mask_get_family" g_inet_address_mask_get_family :: -    Ptr InetAddressMask ->                  -- mask : TInterface (Name {namespace = "Gio", name = "InetAddressMask"})-    IO CUInt--{- |-Gets the 'GI.Gio.Enums.SocketFamily' of /@mask@/\'s address--/Since: 2.32/--}-inetAddressMaskGetFamily ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddressMask a) =>-    a-    {- ^ /@mask@/: a 'GI.Gio.Objects.InetAddressMask.InetAddressMask' -}-    -> m Gio.Enums.SocketFamily-    {- ^ __Returns:__ the 'GI.Gio.Enums.SocketFamily' of /@mask@/\'s address -}-inetAddressMaskGetFamily mask = liftIO $ do-    mask' <- unsafeManagedPtrCastPtr mask-    result <- g_inet_address_mask_get_family mask'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr mask-    return result'--#if ENABLE_OVERLOADING-data InetAddressMaskGetFamilyMethodInfo-instance (signature ~ (m Gio.Enums.SocketFamily), MonadIO m, IsInetAddressMask a) => O.MethodInfo InetAddressMaskGetFamilyMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskGetFamily--#endif---- method InetAddressMask::get_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gio", name = "InetAddressMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddressMask", 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 "g_inet_address_mask_get_length" g_inet_address_mask_get_length :: -    Ptr InetAddressMask ->                  -- mask : TInterface (Name {namespace = "Gio", name = "InetAddressMask"})-    IO Word32--{- |-Gets /@mask@/\'s length--/Since: 2.32/--}-inetAddressMaskGetLength ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddressMask a) =>-    a-    {- ^ /@mask@/: a 'GI.Gio.Objects.InetAddressMask.InetAddressMask' -}-    -> m Word32-    {- ^ __Returns:__ /@mask@/\'s length -}-inetAddressMaskGetLength mask = liftIO $ do-    mask' <- unsafeManagedPtrCastPtr mask-    result <- g_inet_address_mask_get_length mask'-    touchManagedPtr mask-    return result--#if ENABLE_OVERLOADING-data InetAddressMaskGetLengthMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsInetAddressMask a) => O.MethodInfo InetAddressMaskGetLengthMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskGetLength--#endif---- method InetAddressMask::matches--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gio", name = "InetAddressMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddressMask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", 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 "g_inet_address_mask_matches" g_inet_address_mask_matches :: -    Ptr InetAddressMask ->                  -- mask : TInterface (Name {namespace = "Gio", name = "InetAddressMask"})-    Ptr Gio.InetAddress.InetAddress ->      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    IO CInt--{- |-Tests if /@address@/ falls within the range described by /@mask@/.--/Since: 2.32/--}-inetAddressMaskMatches ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddressMask a, Gio.InetAddress.IsInetAddress b) =>-    a-    {- ^ /@mask@/: a 'GI.Gio.Objects.InetAddressMask.InetAddressMask' -}-    -> b-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Bool-    {- ^ __Returns:__ whether /@address@/ falls within the range described by-/@mask@/. -}-inetAddressMaskMatches mask address = liftIO $ do-    mask' <- unsafeManagedPtrCastPtr mask-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_address_mask_matches mask' address'-    let result' = (/= 0) result-    touchManagedPtr mask-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetAddressMaskMatchesMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsInetAddressMask a, Gio.InetAddress.IsInetAddress b) => O.MethodInfo InetAddressMaskMatchesMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskMatches--#endif---- method InetAddressMask::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gio", name = "InetAddressMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddressMask", 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 "g_inet_address_mask_to_string" g_inet_address_mask_to_string :: -    Ptr InetAddressMask ->                  -- mask : TInterface (Name {namespace = "Gio", name = "InetAddressMask"})-    IO CString--{- |-Converts /@mask@/ back to its corresponding string form.--/Since: 2.32/--}-inetAddressMaskToString ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetAddressMask a) =>-    a-    {- ^ /@mask@/: a 'GI.Gio.Objects.InetAddressMask.InetAddressMask' -}-    -> m T.Text-    {- ^ __Returns:__ a string corresponding to /@mask@/. -}-inetAddressMaskToString mask = liftIO $ do-    mask' <- unsafeManagedPtrCastPtr mask-    result <- g_inet_address_mask_to_string mask'-    checkUnexpectedReturnNULL "inetAddressMaskToString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr mask-    return result'--#if ENABLE_OVERLOADING-data InetAddressMaskToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsInetAddressMask a) => O.MethodInfo InetAddressMaskToStringMethodInfo a signature where-    overloadedMethod _ = inetAddressMaskToString--#endif--
− GI/Gio/Objects/InetAddressMask.hs-boot 
@@ -1,56 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.InetAddressMask 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 InetAddressMask = InetAddressMask (ManagedPtr InetAddressMask)-instance GObject InetAddressMask where-class (GObject o, O.IsDescendantOf InetAddressMask o) => IsInetAddressMask o-instance (GObject o, O.IsDescendantOf InetAddressMask o) => IsInetAddressMask o-instance O.HasParentTypes InetAddressMask-#if ENABLE_OVERLOADING-data InetAddressMaskAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressMaskFamilyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressMaskLengthPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressMaskEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressMaskGetAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressMaskGetFamilyMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressMaskGetLengthMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressMaskMatchesMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetAddressMaskToStringMethodInfo-#endif
− GI/Gio/Objects/InetSocketAddress.hs 
@@ -1,624 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--An IPv4 or IPv6 socket address; that is, the combination of a-'GI.Gio.Objects.InetAddress.InetAddress' and a port number.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.InetSocketAddress-    ( ---- * Exported types-    InetSocketAddress(..)                   ,-    IsInetSocketAddress                     ,-    toInetSocketAddress                     ,-    noInetSocketAddress                     ,--- -- * Methods--- ** getAddress #method:getAddress#--#if ENABLE_OVERLOADING-    InetSocketAddressGetAddressMethodInfo   ,-#endif-    inetSocketAddressGetAddress             ,----- ** getFlowinfo #method:getFlowinfo#--#if ENABLE_OVERLOADING-    InetSocketAddressGetFlowinfoMethodInfo  ,-#endif-    inetSocketAddressGetFlowinfo            ,----- ** getPort #method:getPort#--#if ENABLE_OVERLOADING-    InetSocketAddressGetPortMethodInfo      ,-#endif-    inetSocketAddressGetPort                ,----- ** getScopeId #method:getScopeId#--#if ENABLE_OVERLOADING-    InetSocketAddressGetScopeIdMethodInfo   ,-#endif-    inetSocketAddressGetScopeId             ,----- ** new #method:new#--    inetSocketAddressNew                    ,----- ** newFromString #method:newFromString#--    inetSocketAddressNewFromString          ,----- -- * Properties--- ** address #attr:address#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    InetSocketAddressAddressPropertyInfo    ,-#endif-    constructInetSocketAddressAddress       ,-    getInetSocketAddressAddress             ,-#if ENABLE_OVERLOADING-    inetSocketAddressAddress                ,-#endif----- ** flowinfo #attr:flowinfo#-{- | The @sin6_flowinfo@ field, for IPv6 addresses.--/Since: 2.32/--}-#if ENABLE_OVERLOADING-    InetSocketAddressFlowinfoPropertyInfo   ,-#endif-    constructInetSocketAddressFlowinfo      ,-    getInetSocketAddressFlowinfo            ,-#if ENABLE_OVERLOADING-    inetSocketAddressFlowinfo               ,-#endif----- ** port #attr:port#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    InetSocketAddressPortPropertyInfo       ,-#endif-    constructInetSocketAddressPort          ,-    getInetSocketAddressPort                ,-#if ENABLE_OVERLOADING-    inetSocketAddressPort                   ,-#endif----- ** scopeId #attr:scopeId#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    InetSocketAddressScopeIdPropertyInfo    ,-#endif-    constructInetSocketAddressScopeId       ,-    getInetSocketAddressScopeId             ,-#if ENABLE_OVERLOADING-    inetSocketAddressScopeId                ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import {-# SOURCE #-} qualified GI.Gio.Objects.InetAddress as Gio.InetAddress-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress---- | Memory-managed wrapper type.-newtype InetSocketAddress = InetSocketAddress (ManagedPtr InetSocketAddress)-foreign import ccall "g_inet_socket_address_get_type"-    c_g_inet_socket_address_get_type :: IO GType--instance GObject InetSocketAddress where-    gobjectType = c_g_inet_socket_address_get_type-    ---- | Type class for types which can be safely cast to `InetSocketAddress`, for instance with `toInetSocketAddress`.-class (GObject o, O.IsDescendantOf InetSocketAddress o) => IsInetSocketAddress o-instance (GObject o, O.IsDescendantOf InetSocketAddress o) => IsInetSocketAddress o--instance O.HasParentTypes InetSocketAddress-type instance O.ParentTypes InetSocketAddress = '[Gio.SocketAddress.SocketAddress, GObject.Object.Object, Gio.SocketConnectable.SocketConnectable]---- | Cast to `InetSocketAddress`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toInetSocketAddress :: (MonadIO m, IsInetSocketAddress o) => o -> m InetSocketAddress-toInetSocketAddress = liftIO . unsafeCastTo InetSocketAddress---- | A convenience alias for `Nothing` :: `Maybe` `InetSocketAddress`.-noInetSocketAddress :: Maybe InetSocketAddress-noInetSocketAddress = Nothing--#if ENABLE_OVERLOADING-type family ResolveInetSocketAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveInetSocketAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveInetSocketAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveInetSocketAddressMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo-    ResolveInetSocketAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveInetSocketAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveInetSocketAddressMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveInetSocketAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveInetSocketAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveInetSocketAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveInetSocketAddressMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo-    ResolveInetSocketAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveInetSocketAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveInetSocketAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveInetSocketAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveInetSocketAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveInetSocketAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveInetSocketAddressMethod "toNative" o = Gio.SocketAddress.SocketAddressToNativeMethodInfo-    ResolveInetSocketAddressMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo-    ResolveInetSocketAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveInetSocketAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveInetSocketAddressMethod "getAddress" o = InetSocketAddressGetAddressMethodInfo-    ResolveInetSocketAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveInetSocketAddressMethod "getFamily" o = Gio.SocketAddress.SocketAddressGetFamilyMethodInfo-    ResolveInetSocketAddressMethod "getFlowinfo" o = InetSocketAddressGetFlowinfoMethodInfo-    ResolveInetSocketAddressMethod "getNativeSize" o = Gio.SocketAddress.SocketAddressGetNativeSizeMethodInfo-    ResolveInetSocketAddressMethod "getPort" o = InetSocketAddressGetPortMethodInfo-    ResolveInetSocketAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveInetSocketAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveInetSocketAddressMethod "getScopeId" o = InetSocketAddressGetScopeIdMethodInfo-    ResolveInetSocketAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveInetSocketAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveInetSocketAddressMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveInetSocketAddressMethod t InetSocketAddress, O.MethodInfo info InetSocketAddress p) => OL.IsLabel t (InetSocketAddress -> 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---- VVV Prop "address"-   -- Type: TInterface (Name {namespace = "Gio", name = "InetAddress"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetSocketAddress #address-@--}-getInetSocketAddressAddress :: (MonadIO m, IsInetSocketAddress o) => o -> m Gio.InetAddress.InetAddress-getInetSocketAddressAddress obj = liftIO $ checkUnexpectedNothing "getInetSocketAddressAddress" $ B.Properties.getObjectPropertyObject obj "address" Gio.InetAddress.InetAddress--{- |-Construct a `GValueConstruct` with valid value for the “@address@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructInetSocketAddressAddress :: (IsInetSocketAddress o, Gio.InetAddress.IsInetAddress a) => a -> IO (GValueConstruct o)-constructInetSocketAddressAddress val = B.Properties.constructObjectPropertyObject "address" (Just val)--#if ENABLE_OVERLOADING-data InetSocketAddressAddressPropertyInfo-instance AttrInfo InetSocketAddressAddressPropertyInfo where-    type AttrAllowedOps InetSocketAddressAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint InetSocketAddressAddressPropertyInfo = Gio.InetAddress.IsInetAddress-    type AttrBaseTypeConstraint InetSocketAddressAddressPropertyInfo = IsInetSocketAddress-    type AttrGetType InetSocketAddressAddressPropertyInfo = Gio.InetAddress.InetAddress-    type AttrLabel InetSocketAddressAddressPropertyInfo = "address"-    type AttrOrigin InetSocketAddressAddressPropertyInfo = InetSocketAddress-    attrGet _ = getInetSocketAddressAddress-    attrSet _ = undefined-    attrConstruct _ = constructInetSocketAddressAddress-    attrClear _ = undefined-#endif---- VVV Prop "flowinfo"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@flowinfo@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetSocketAddress #flowinfo-@--}-getInetSocketAddressFlowinfo :: (MonadIO m, IsInetSocketAddress o) => o -> m Word32-getInetSocketAddressFlowinfo obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "flowinfo"--{- |-Construct a `GValueConstruct` with valid value for the “@flowinfo@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructInetSocketAddressFlowinfo :: (IsInetSocketAddress o) => Word32 -> IO (GValueConstruct o)-constructInetSocketAddressFlowinfo val = B.Properties.constructObjectPropertyUInt32 "flowinfo" val--#if ENABLE_OVERLOADING-data InetSocketAddressFlowinfoPropertyInfo-instance AttrInfo InetSocketAddressFlowinfoPropertyInfo where-    type AttrAllowedOps InetSocketAddressFlowinfoPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetSocketAddressFlowinfoPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint InetSocketAddressFlowinfoPropertyInfo = IsInetSocketAddress-    type AttrGetType InetSocketAddressFlowinfoPropertyInfo = Word32-    type AttrLabel InetSocketAddressFlowinfoPropertyInfo = "flowinfo"-    type AttrOrigin InetSocketAddressFlowinfoPropertyInfo = InetSocketAddress-    attrGet _ = getInetSocketAddressFlowinfo-    attrSet _ = undefined-    attrConstruct _ = constructInetSocketAddressFlowinfo-    attrClear _ = undefined-#endif---- VVV Prop "port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@port@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetSocketAddress #port-@--}-getInetSocketAddressPort :: (MonadIO m, IsInetSocketAddress o) => o -> m Word32-getInetSocketAddressPort obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "port"--{- |-Construct a `GValueConstruct` with valid value for the “@port@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructInetSocketAddressPort :: (IsInetSocketAddress o) => Word32 -> IO (GValueConstruct o)-constructInetSocketAddressPort val = B.Properties.constructObjectPropertyUInt32 "port" val--#if ENABLE_OVERLOADING-data InetSocketAddressPortPropertyInfo-instance AttrInfo InetSocketAddressPortPropertyInfo where-    type AttrAllowedOps InetSocketAddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetSocketAddressPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint InetSocketAddressPortPropertyInfo = IsInetSocketAddress-    type AttrGetType InetSocketAddressPortPropertyInfo = Word32-    type AttrLabel InetSocketAddressPortPropertyInfo = "port"-    type AttrOrigin InetSocketAddressPortPropertyInfo = InetSocketAddress-    attrGet _ = getInetSocketAddressPort-    attrSet _ = undefined-    attrConstruct _ = constructInetSocketAddressPort-    attrClear _ = undefined-#endif---- VVV Prop "scope-id"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@scope-id@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inetSocketAddress #scopeId-@--}-getInetSocketAddressScopeId :: (MonadIO m, IsInetSocketAddress o) => o -> m Word32-getInetSocketAddressScopeId obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "scope-id"--{- |-Construct a `GValueConstruct` with valid value for the “@scope-id@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructInetSocketAddressScopeId :: (IsInetSocketAddress o) => Word32 -> IO (GValueConstruct o)-constructInetSocketAddressScopeId val = B.Properties.constructObjectPropertyUInt32 "scope-id" val--#if ENABLE_OVERLOADING-data InetSocketAddressScopeIdPropertyInfo-instance AttrInfo InetSocketAddressScopeIdPropertyInfo where-    type AttrAllowedOps InetSocketAddressScopeIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint InetSocketAddressScopeIdPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint InetSocketAddressScopeIdPropertyInfo = IsInetSocketAddress-    type AttrGetType InetSocketAddressScopeIdPropertyInfo = Word32-    type AttrLabel InetSocketAddressScopeIdPropertyInfo = "scope-id"-    type AttrOrigin InetSocketAddressScopeIdPropertyInfo = InetSocketAddress-    attrGet _ = getInetSocketAddressScopeId-    attrSet _ = undefined-    attrConstruct _ = constructInetSocketAddressScopeId-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList InetSocketAddress-type instance O.AttributeList InetSocketAddress = InetSocketAddressAttributeList-type InetSocketAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("family", Gio.SocketAddress.SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("scopeId", InetSocketAddressScopeIdPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-inetSocketAddressAddress :: AttrLabelProxy "address"-inetSocketAddressAddress = AttrLabelProxy--inetSocketAddressFlowinfo :: AttrLabelProxy "flowinfo"-inetSocketAddressFlowinfo = AttrLabelProxy--inetSocketAddressPort :: AttrLabelProxy "port"-inetSocketAddressPort = AttrLabelProxy--inetSocketAddressScopeId :: AttrLabelProxy "scopeId"-inetSocketAddressScopeId = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList InetSocketAddress = InetSocketAddressSignalList-type InetSocketAddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method InetSocketAddress::new--- method type : Constructor--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a port number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetSocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_socket_address_new" g_inet_socket_address_new :: -    Ptr Gio.InetAddress.InetAddress ->      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    Word16 ->                               -- port : TBasicType TUInt16-    IO (Ptr InetSocketAddress)--{- |-Creates a new 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' for /@address@/ and /@port@/.--/Since: 2.22/--}-inetSocketAddressNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InetAddress.IsInetAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> Word16-    {- ^ /@port@/: a port number -}-    -> m InetSocketAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' -}-inetSocketAddressNew address port = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_socket_address_new address' port-    checkUnexpectedReturnNULL "inetSocketAddressNew" result-    result' <- (wrapObject InetSocketAddress) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-#endif---- method InetSocketAddress::new_from_string--- method type : Constructor--- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the string form of an IP address", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a port number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetSocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_socket_address_new_from_string" g_inet_socket_address_new_from_string :: -    CString ->                              -- address : TBasicType TUTF8-    Word32 ->                               -- port : TBasicType TUInt-    IO (Ptr InetSocketAddress)--{- |-Creates a new 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' for /@address@/ and /@port@/.--If /@address@/ is an IPv6 address, it can also contain a scope ID-(separated from the address by a @%@).--/Since: 2.40/--}-inetSocketAddressNewFromString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@address@/: the string form of an IP address -}-    -> Word32-    {- ^ /@port@/: a port number -}-    -> m InetSocketAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress', or 'Nothing' if /@address@/ cannot be-parsed. -}-inetSocketAddressNewFromString address port = liftIO $ do-    address' <- textToCString address-    result <- g_inet_socket_address_new_from_string address' port-    checkUnexpectedReturnNULL "inetSocketAddressNewFromString" result-    result' <- (wrapObject InetSocketAddress) result-    freeMem address'-    return result'--#if ENABLE_OVERLOADING-#endif---- method InetSocketAddress::get_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetSocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetSocketAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InetAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_inet_socket_address_get_address" g_inet_socket_address_get_address :: -    Ptr InetSocketAddress ->                -- address : TInterface (Name {namespace = "Gio", name = "InetSocketAddress"})-    IO (Ptr Gio.InetAddress.InetAddress)--{- |-Gets /@address@/\'s 'GI.Gio.Objects.InetAddress.InetAddress'.--/Since: 2.22/--}-inetSocketAddressGetAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' -}-    -> m Gio.InetAddress.InetAddress-    {- ^ __Returns:__ the 'GI.Gio.Objects.InetAddress.InetAddress' for /@address@/, which must be-'GI.GObject.Objects.Object.objectRef'\'d if it will be stored -}-inetSocketAddressGetAddress address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_socket_address_get_address address'-    checkUnexpectedReturnNULL "inetSocketAddressGetAddress" result-    result' <- (newObject Gio.InetAddress.InetAddress) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data InetSocketAddressGetAddressMethodInfo-instance (signature ~ (m Gio.InetAddress.InetAddress), MonadIO m, IsInetSocketAddress a) => O.MethodInfo InetSocketAddressGetAddressMethodInfo a signature where-    overloadedMethod _ = inetSocketAddressGetAddress--#endif---- method InetSocketAddress::get_flowinfo--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetSocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %G_SOCKET_FAMILY_IPV6 #GInetSocketAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "g_inet_socket_address_get_flowinfo" g_inet_socket_address_get_flowinfo :: -    Ptr InetSocketAddress ->                -- address : TInterface (Name {namespace = "Gio", name = "InetSocketAddress"})-    IO Word32--{- |-Gets the @sin6_flowinfo@ field from /@address@/,-which must be an IPv6 address.--/Since: 2.32/--}-inetSocketAddressGetFlowinfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Enums.SocketFamilyIpv6' 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' -}-    -> m Word32-    {- ^ __Returns:__ the flowinfo field -}-inetSocketAddressGetFlowinfo address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_socket_address_get_flowinfo address'-    touchManagedPtr address-    return result--#if ENABLE_OVERLOADING-data InetSocketAddressGetFlowinfoMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsInetSocketAddress a) => O.MethodInfo InetSocketAddressGetFlowinfoMethodInfo a signature where-    overloadedMethod _ = inetSocketAddressGetFlowinfo--#endif---- method InetSocketAddress::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetSocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetSocketAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : False--- Skip return : False--foreign import ccall "g_inet_socket_address_get_port" g_inet_socket_address_get_port :: -    Ptr InetSocketAddress ->                -- address : TInterface (Name {namespace = "Gio", name = "InetSocketAddress"})-    IO Word16--{- |-Gets /@address@/\'s port.--/Since: 2.22/--}-inetSocketAddressGetPort ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' -}-    -> m Word16-    {- ^ __Returns:__ the port for /@address@/ -}-inetSocketAddressGetPort address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_socket_address_get_port address'-    touchManagedPtr address-    return result--#if ENABLE_OVERLOADING-data InetSocketAddressGetPortMethodInfo-instance (signature ~ (m Word16), MonadIO m, IsInetSocketAddress a) => O.MethodInfo InetSocketAddressGetPortMethodInfo a signature where-    overloadedMethod _ = inetSocketAddressGetPort--#endif---- method InetSocketAddress::get_scope_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetSocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %G_SOCKET_FAMILY_IPV6 #GInetAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "g_inet_socket_address_get_scope_id" g_inet_socket_address_get_scope_id :: -    Ptr InetSocketAddress ->                -- address : TInterface (Name {namespace = "Gio", name = "InetSocketAddress"})-    IO Word32--{- |-Gets the @sin6_scope_id@ field from /@address@/,-which must be an IPv6 address.--/Since: 2.32/--}-inetSocketAddressGetScopeId ::-    (B.CallStack.HasCallStack, MonadIO m, IsInetSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Enums.SocketFamilyIpv6' 'GI.Gio.Objects.InetAddress.InetAddress' -}-    -> m Word32-    {- ^ __Returns:__ the scope id field -}-inetSocketAddressGetScopeId address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_inet_socket_address_get_scope_id address'-    touchManagedPtr address-    return result--#if ENABLE_OVERLOADING-data InetSocketAddressGetScopeIdMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsInetSocketAddress a) => O.MethodInfo InetSocketAddressGetScopeIdMethodInfo a signature where-    overloadedMethod _ = inetSocketAddressGetScopeId--#endif--
− GI/Gio/Objects/InetSocketAddress.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.InetSocketAddress 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 InetSocketAddress = InetSocketAddress (ManagedPtr InetSocketAddress)-instance GObject InetSocketAddress where-class (GObject o, O.IsDescendantOf InetSocketAddress o) => IsInetSocketAddress o-instance (GObject o, O.IsDescendantOf InetSocketAddress o) => IsInetSocketAddress o-instance O.HasParentTypes InetSocketAddress-#if ENABLE_OVERLOADING-data InetSocketAddressAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetSocketAddressFlowinfoPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetSocketAddressPortPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetSocketAddressScopeIdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data InetSocketAddressGetAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetSocketAddressGetFlowinfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetSocketAddressGetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data InetSocketAddressGetScopeIdMethodInfo-#endif
− GI/Gio/Objects/InputStream.hs 
@@ -1,1457 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.InputStream.InputStream' has functions to read from a stream ('GI.Gio.Objects.InputStream.inputStreamRead'),-to close a stream ('GI.Gio.Objects.InputStream.inputStreamClose') and to skip some content-('GI.Gio.Objects.InputStream.inputStreamSkip').--To copy the content of an input stream to an output stream without-manually handling the reads and writes, use 'GI.Gio.Objects.OutputStream.outputStreamSplice'.--See the documentation for 'GI.Gio.Objects.IOStream.IOStream' for details of thread safety of-streaming APIs.--All of these functions have async variants too.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.InputStream-    ( ---- * Exported types-    InputStream(..)                         ,-    IsInputStream                           ,-    toInputStream                           ,-    noInputStream                           ,--- -- * Methods--- ** clearPending #method:clearPending#--#if ENABLE_OVERLOADING-    InputStreamClearPendingMethodInfo       ,-#endif-    inputStreamClearPending                 ,----- ** close #method:close#--#if ENABLE_OVERLOADING-    InputStreamCloseMethodInfo              ,-#endif-    inputStreamClose                        ,----- ** closeAsync #method:closeAsync#--#if ENABLE_OVERLOADING-    InputStreamCloseAsyncMethodInfo         ,-#endif-    inputStreamCloseAsync                   ,----- ** closeFinish #method:closeFinish#--#if ENABLE_OVERLOADING-    InputStreamCloseFinishMethodInfo        ,-#endif-    inputStreamCloseFinish                  ,----- ** hasPending #method:hasPending#--#if ENABLE_OVERLOADING-    InputStreamHasPendingMethodInfo         ,-#endif-    inputStreamHasPending                   ,----- ** isClosed #method:isClosed#--#if ENABLE_OVERLOADING-    InputStreamIsClosedMethodInfo           ,-#endif-    inputStreamIsClosed                     ,----- ** read #method:read#--#if ENABLE_OVERLOADING-    InputStreamReadMethodInfo               ,-#endif-    inputStreamRead                         ,----- ** readAll #method:readAll#--#if ENABLE_OVERLOADING-    InputStreamReadAllMethodInfo            ,-#endif-    inputStreamReadAll                      ,----- ** readAllAsync #method:readAllAsync#--#if ENABLE_OVERLOADING-    InputStreamReadAllAsyncMethodInfo       ,-#endif-    inputStreamReadAllAsync                 ,----- ** readAllFinish #method:readAllFinish#--#if ENABLE_OVERLOADING-    InputStreamReadAllFinishMethodInfo      ,-#endif-    inputStreamReadAllFinish                ,----- ** readAsync #method:readAsync#--#if ENABLE_OVERLOADING-    InputStreamReadAsyncMethodInfo          ,-#endif-    inputStreamReadAsync                    ,----- ** readBytes #method:readBytes#--#if ENABLE_OVERLOADING-    InputStreamReadBytesMethodInfo          ,-#endif-    inputStreamReadBytes                    ,----- ** readBytesAsync #method:readBytesAsync#--#if ENABLE_OVERLOADING-    InputStreamReadBytesAsyncMethodInfo     ,-#endif-    inputStreamReadBytesAsync               ,----- ** readBytesFinish #method:readBytesFinish#--#if ENABLE_OVERLOADING-    InputStreamReadBytesFinishMethodInfo    ,-#endif-    inputStreamReadBytesFinish              ,----- ** readFinish #method:readFinish#--#if ENABLE_OVERLOADING-    InputStreamReadFinishMethodInfo         ,-#endif-    inputStreamReadFinish                   ,----- ** setPending #method:setPending#--#if ENABLE_OVERLOADING-    InputStreamSetPendingMethodInfo         ,-#endif-    inputStreamSetPending                   ,----- ** skip #method:skip#--#if ENABLE_OVERLOADING-    InputStreamSkipMethodInfo               ,-#endif-    inputStreamSkip                         ,----- ** skipAsync #method:skipAsync#--#if ENABLE_OVERLOADING-    InputStreamSkipAsyncMethodInfo          ,-#endif-    inputStreamSkipAsync                    ,----- ** skipFinish #method:skipFinish#--#if ENABLE_OVERLOADING-    InputStreamSkipFinishMethodInfo         ,-#endif-    inputStreamSkipFinish                   ,-----    ) 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.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- | Memory-managed wrapper type.-newtype InputStream = InputStream (ManagedPtr InputStream)-foreign import ccall "g_input_stream_get_type"-    c_g_input_stream_get_type :: IO GType--instance GObject InputStream where-    gobjectType = c_g_input_stream_get_type-    ---- | Type class for types which can be safely cast to `InputStream`, for instance with `toInputStream`.-class (GObject o, O.IsDescendantOf InputStream o) => IsInputStream o-instance (GObject o, O.IsDescendantOf InputStream o) => IsInputStream o--instance O.HasParentTypes InputStream-type instance O.ParentTypes InputStream = '[GObject.Object.Object]---- | Cast to `InputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toInputStream :: (MonadIO m, IsInputStream o) => o -> m InputStream-toInputStream = liftIO . unsafeCastTo InputStream---- | A convenience alias for `Nothing` :: `Maybe` `InputStream`.-noInputStream :: Maybe InputStream-noInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo-    ResolveInputStreamMethod "close" o = InputStreamCloseMethodInfo-    ResolveInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo-    ResolveInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo-    ResolveInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo-    ResolveInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo-    ResolveInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveInputStreamMethod "read" o = InputStreamReadMethodInfo-    ResolveInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo-    ResolveInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo-    ResolveInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo-    ResolveInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo-    ResolveInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo-    ResolveInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo-    ResolveInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo-    ResolveInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo-    ResolveInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveInputStreamMethod "skip" o = InputStreamSkipMethodInfo-    ResolveInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo-    ResolveInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo-    ResolveInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo-    ResolveInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveInputStreamMethod t InputStream, O.MethodInfo info InputStream p) => OL.IsLabel t (InputStream -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList InputStream-type instance O.AttributeList InputStream = InputStreamAttributeList-type InputStreamAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList InputStream = InputStreamSignalList-type InputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method InputStream::clear_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_input_stream_clear_pending" g_input_stream_clear_pending :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    IO ()--{- |-Clears the pending flag on /@stream@/.--}-inputStreamClearPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a) =>-    a-    {- ^ /@stream@/: input stream -}-    -> m ()-inputStreamClearPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    g_input_stream_clear_pending stream'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data InputStreamClearPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, IsInputStream a) => O.MethodInfo InputStreamClearPendingMethodInfo a signature where-    overloadedMethod _ = inputStreamClearPending--#endif---- method InputStream::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GInputStream.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_input_stream_close" g_input_stream_close :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Closes the stream, releasing resources related to it.--Once the stream is closed, all other operations will return 'GI.Gio.Enums.IOErrorEnumClosed'.-Closing a stream multiple times will not return an error.--Streams will be automatically closed when the last reference-is dropped, but you might want to call this function to make sure-resources are released as early as possible.--Some streams might keep the backing store of the stream (e.g. a file descriptor)-open after the stream is closed. See the documentation for the individual-stream for details.--On failure the first error that happened will be reported, but the close-operation will finish as much as possible. A stream that failed to-close will still return 'GI.Gio.Enums.IOErrorEnumClosed' for all operations. Still, it-is important to check and report the error to the user.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.-Cancelling a close will still leave the stream closed, but some streams-can use a faster close that doesn\'t block to e.g. check errors.--}-inputStreamClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamClose stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_input_stream_close stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InputStreamCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamCloseMethodInfo a signature where-    overloadedMethod _ = inputStreamClose--#endif---- method InputStream::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GInputStream.", 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 "the [I/O priority][io-priority] of the request", 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 "optional cancellable object", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_input_stream_close_async" g_input_stream_close_async :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    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 ()--{- |-Requests an asynchronous closes of the stream, releasing resources related to it.-When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.InputStream.inputStreamCloseFinish' to get the result of the-operation.--For behaviour details see 'GI.Gio.Objects.InputStream.inputStreamClose'.--The asynchronous methods have a default fallback that uses threads to implement-asynchronicity, so they are optional for inheriting classes. However, if you-override one you must override all.--}-inputStreamCloseAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional cancellable object -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-inputStreamCloseAsync stream ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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-    g_input_stream_close_async stream' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data InputStreamCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamCloseAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamCloseAsync--#endif---- method InputStream::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", 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 "a #GAsyncResult.", 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 "g_input_stream_close_finish" g_input_stream_close_finish :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes closing a stream asynchronously, started from 'GI.Gio.Objects.InputStream.inputStreamCloseAsync'.--}-inputStreamCloseFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamCloseFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_input_stream_close_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InputStreamCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo InputStreamCloseFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamCloseFinish--#endif---- method InputStream::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input stream.", 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 "g_input_stream_has_pending" g_input_stream_has_pending :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    IO CInt--{- |-Checks if an input stream has pending actions.--}-inputStreamHasPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a) =>-    a-    {- ^ /@stream@/: input stream. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ has pending actions. -}-inputStreamHasPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_input_stream_has_pending stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data InputStreamHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInputStream a) => O.MethodInfo InputStreamHasPendingMethodInfo a signature where-    overloadedMethod _ = inputStreamHasPending--#endif---- method InputStream::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input stream.", 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 "g_input_stream_is_closed" g_input_stream_is_closed :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    IO CInt--{- |-Checks if an input stream is closed.--}-inputStreamIsClosed ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a) =>-    a-    {- ^ /@stream@/: input stream. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the stream is closed. -}-inputStreamIsClosed stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_input_stream_is_closed stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data InputStreamIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsInputStream a) => O.MethodInfo InputStreamIsClosedMethodInfo a signature where-    overloadedMethod _ = inputStreamIsClosed--#endif---- method InputStream::read--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a buffer to\n    read data into (which should be at least count bytes long).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_read" g_input_stream_read :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Tries to read /@count@/ bytes from the stream into the buffer starting at-/@buffer@/. Will block during this read.--If count is zero returns zero and does nothing. A value of /@count@/-larger than @/G_MAXSSIZE/@ will cause a 'GI.Gio.Enums.IOErrorEnumInvalidArgument' error.--On success, the number of bytes read into the buffer is returned.-It is not an error if this is not the same as the requested size, as it-can happen e.g. near the end of a file. Zero is returned on end of file-(or if /@count@/ is zero),  but never otherwise.--The returned /@buffer@/ is not a nul-terminated string, it can contain nul bytes-at any position, and this function doesn\'t nul-terminate the /@buffer@/.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If an-operation was partially finished when the operation was cancelled the-partial result will be returned, without an error.--On error -1 is returned and /@error@/ is set accordingly.--}-inputStreamRead ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> ByteString-    {- ^ /@buffer@/: a buffer to-    read data into (which should be at least count bytes long). -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes read, or -1 on error, or 0 on end of file. /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamRead stream buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_input_stream_read stream' buffer' count maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--#if ENABLE_OVERLOADING-data InputStreamReadMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamReadMethodInfo a signature where-    overloadedMethod _ = inputStreamRead--#endif---- method InputStream::read_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a buffer to\n    read data into (which should be at least count bytes long).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that was read from the 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_read_all" g_input_stream_read_all :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Tries to read /@count@/ bytes from the stream into the buffer starting at-/@buffer@/. Will block during this read.--This function is similar to 'GI.Gio.Objects.InputStream.inputStreamRead', except it tries to-read as many bytes as requested, only stopping on an error or end of stream.--On a successful read of /@count@/ bytes, or if we reached the end of the-stream,  'True' is returned, and /@bytesRead@/ is set to the number of bytes-read into /@buffer@/.--If there is an error during the operation 'False' is returned and /@error@/-is set to indicate the error status.--As a special exception to the normal conventions for functions that-use 'GError', if this function returns 'False' (and sets /@error@/) then-/@bytesRead@/ will be set to the number of bytes that were successfully-read before the error was encountered.  This functionality is only-available from C.  If you need it from another language then you must-write your own loop around 'GI.Gio.Objects.InputStream.inputStreamRead'.--}-inputStreamReadAll ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> ByteString-    {- ^ /@buffer@/: a buffer to-    read data into (which should be at least count bytes long). -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamReadAll stream buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    bytesRead <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_input_stream_read_all stream' buffer' count bytesRead maybeCancellable-        bytesRead' <- peek bytesRead-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem bytesRead-        return bytesRead'-     ) (do-        freeMem buffer'-        freeMem bytesRead-     )--#if ENABLE_OVERLOADING-data InputStreamReadAllMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m (Word64)), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamReadAllMethodInfo a signature where-    overloadedMethod _ = inputStreamReadAll--#endif---- method InputStream::read_all_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a buffer to\n    read data into (which should be at least count bytes long)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_input_stream_read_all_async" g_input_stream_read_all_async :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    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 ()--{- |-Request an asynchronous read of /@count@/ bytes from the stream into the-buffer starting at /@buffer@/.--This is the asynchronous equivalent of 'GI.Gio.Objects.InputStream.inputStreamReadAll'.--Call 'GI.Gio.Objects.InputStream.inputStreamReadAllFinish' to collect the result.--Any outstanding I\/O request with higher priority (lower numerical-value) will be executed before an outstanding request with lower-priority. Default priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--/Since: 2.44/--}-inputStreamReadAllAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.InputStream.InputStream' -}-    -> ByteString-    {- ^ /@buffer@/: a buffer to-    read data into (which should be at least count bytes long) -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-inputStreamReadAllAsync stream buffer ioPriority cancellable callback = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    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-    g_input_stream_read_all_async stream' buffer' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem buffer'-    return ()--#if ENABLE_OVERLOADING-data InputStreamReadAllAsyncMethodInfo-instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamReadAllAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamReadAllAsync--#endif---- method InputStream::read_all_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that was read from the stream", 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 "g_input_stream_read_all_finish" g_input_stream_read_all_finish :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- bytes_read : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous stream read operation started with-'GI.Gio.Objects.InputStream.inputStreamReadAllAsync'.--As a special exception to the normal conventions for functions that-use 'GError', if this function returns 'False' (and sets /@error@/) then-/@bytesRead@/ will be set to the number of bytes that were successfully-read before the error was encountered.  This functionality is only-available from C.  If you need it from another language then you must-write your own loop around 'GI.Gio.Objects.InputStream.inputStreamReadAsync'.--/Since: 2.44/--}-inputStreamReadAllFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamReadAllFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    bytesRead <- allocMem :: IO (Ptr Word64)-    onException (do-        _ <- propagateGError $ g_input_stream_read_all_finish stream' result_' bytesRead-        bytesRead' <- peek bytesRead-        touchManagedPtr stream-        touchManagedPtr result_-        freeMem bytesRead-        return bytesRead'-     ) (do-        freeMem bytesRead-     )--#if ENABLE_OVERLOADING-data InputStreamReadAllFinishMethodInfo-instance (signature ~ (b -> m (Word64)), MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo InputStreamReadAllFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamReadAllFinish--#endif---- method InputStream::read_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a buffer to\n    read data into (which should be at least count bytes long).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", 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 "the [I/O priority][io-priority]\nof the request.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_input_stream_read_async" g_input_stream_read_async :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    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 ()--{- |-Request an asynchronous read of /@count@/ bytes from the stream into the buffer-starting at /@buffer@/. When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.InputStream.inputStreamReadFinish' to get the result of the-operation.--During an async request no other sync and async calls are allowed on /@stream@/, and will-result in 'GI.Gio.Enums.IOErrorEnumPending' errors.--A value of /@count@/ larger than @/G_MAXSSIZE/@ will cause a 'GI.Gio.Enums.IOErrorEnumInvalidArgument' error.--On success, the number of bytes read into the buffer will be passed to the-callback. It is not an error if this is not the same as the requested size, as it-can happen e.g. near the end of a file, but generally we try to read-as many bytes as requested. Zero is returned on end of file-(or if /@count@/ is zero),  but never otherwise.--Any outstanding i\/o request with higher priority (lower numerical value) will-be executed before an outstanding request with lower priority. Default-priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--The asynchronous methods have a default fallback that uses threads to implement-asynchronicity, so they are optional for inheriting classes. However, if you-override one you must override all.--}-inputStreamReadAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> Maybe (ByteString)-    {- ^ /@buffer@/: a buffer to-    read data into (which should be at least count bytes long). -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority]-of the request. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-inputStreamReadAsync stream buffer ioPriority cancellable callback = liftIO $ do-    let count = case buffer of-            Nothing -> 0-            Just jBuffer -> fromIntegral $ B.length jBuffer-    stream' <- unsafeManagedPtrCastPtr stream-    maybeBuffer <- case buffer of-        Nothing -> return nullPtr-        Just jBuffer -> do-            jBuffer' <- packByteString jBuffer-            return jBuffer'-    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-    g_input_stream_read_async stream' maybeBuffer count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem maybeBuffer-    return ()--#if ENABLE_OVERLOADING-data InputStreamReadAsyncMethodInfo-instance (signature ~ (Maybe (ByteString) -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamReadAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamReadAsync--#endif---- method InputStream::read_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "maximum number of bytes that will be read from the stream. Common\nvalues include 4096 and 8192.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_read_bytes" g_input_stream_read_bytes :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes.Bytes)--{- |-Like 'GI.Gio.Objects.InputStream.inputStreamRead', this tries to read /@count@/ bytes from-the stream in a blocking fashion. However, rather than reading into-a user-supplied buffer, this will create a new 'GI.GLib.Structs.Bytes.Bytes' containing-the data that was read. This may be easier to use from language-bindings.--If count is zero, returns a zero-length 'GI.GLib.Structs.Bytes.Bytes' and does nothing. A-value of /@count@/ larger than @/G_MAXSSIZE/@ will cause a-'GI.Gio.Enums.IOErrorEnumInvalidArgument' error.--On success, a new 'GI.GLib.Structs.Bytes.Bytes' is returned. It is not an error if the-size of this object is not the same as the requested size, as it-can happen e.g. near the end of a file. A zero-length 'GI.GLib.Structs.Bytes.Bytes' is-returned on end of file (or if /@count@/ is zero), but never-otherwise.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If an-operation was partially finished when the operation was cancelled the-partial result will be returned, without an error.--On error 'Nothing' is returned and /@error@/ is set accordingly.--/Since: 2.34/--}-inputStreamReadBytes ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> Word64-    {- ^ /@count@/: maximum number of bytes that will be read from the stream. Common-values include 4096 and 8192. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m GLib.Bytes.Bytes-    {- ^ __Returns:__ a new 'GI.GLib.Structs.Bytes.Bytes', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamReadBytes stream count cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_input_stream_read_bytes stream' count maybeCancellable-        checkUnexpectedReturnNULL "inputStreamReadBytes" result-        result' <- (wrapBoxed GLib.Bytes.Bytes) result-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InputStreamReadBytesMethodInfo-instance (signature ~ (Word64 -> Maybe (b) -> m GLib.Bytes.Bytes), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamReadBytesMethodInfo a signature where-    overloadedMethod _ = inputStreamReadBytes--#endif---- method InputStream::read_bytes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be read from the stream", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_input_stream_read_bytes_async" g_input_stream_read_bytes_async :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Word64 ->                               -- count : TBasicType TUInt64-    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 ()--{- |-Request an asynchronous read of /@count@/ bytes from the stream into a-new 'GI.GLib.Structs.Bytes.Bytes'. When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.InputStream.inputStreamReadBytesFinish' to get the-result of the operation.--During an async request no other sync and async calls are allowed-on /@stream@/, and will result in 'GI.Gio.Enums.IOErrorEnumPending' errors.--A value of /@count@/ larger than @/G_MAXSSIZE/@ will cause a-'GI.Gio.Enums.IOErrorEnumInvalidArgument' error.--On success, the new 'GI.GLib.Structs.Bytes.Bytes' will be passed to the callback. It is-not an error if this is smaller than the requested size, as it can-happen e.g. near the end of a file, but generally we try to read as-many bytes as requested. Zero is returned on end of file (or if-/@count@/ is zero), but never otherwise.--Any outstanding I\/O request with higher priority (lower numerical-value) will be executed before an outstanding request with lower-priority. Default priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--/Since: 2.34/--}-inputStreamReadBytesAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> Word64-    {- ^ /@count@/: the number of bytes that will be read from the stream -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-inputStreamReadBytesAsync stream count ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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-    g_input_stream_read_bytes_async stream' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data InputStreamReadBytesAsyncMethodInfo-instance (signature ~ (Word64 -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamReadBytesAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamReadBytesAsync--#endif---- method InputStream::read_bytes_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_read_bytes_finish" g_input_stream_read_bytes_finish :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes.Bytes)--{- |-Finishes an asynchronous stream read-into-'GI.GLib.Structs.Bytes.Bytes' operation.--/Since: 2.34/--}-inputStreamReadBytesFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m GLib.Bytes.Bytes-    {- ^ __Returns:__ the newly-allocated 'GI.GLib.Structs.Bytes.Bytes', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamReadBytesFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_input_stream_read_bytes_finish stream' result_'-        checkUnexpectedReturnNULL "inputStreamReadBytesFinish" result-        result' <- (wrapBoxed GLib.Bytes.Bytes) result-        touchManagedPtr stream-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InputStreamReadBytesFinishMethodInfo-instance (signature ~ (b -> m GLib.Bytes.Bytes), MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo InputStreamReadBytesFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamReadBytesFinish--#endif---- method InputStream::read_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_read_finish" g_input_stream_read_finish :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Finishes an asynchronous stream read operation.--}-inputStreamReadFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Int64-    {- ^ __Returns:__ number of bytes read in, or -1 on error, or 0 on end of file. /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamReadFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_input_stream_read_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InputStreamReadFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo InputStreamReadFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamReadFinish--#endif---- method InputStream::set_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input stream", 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 "g_input_stream_set_pending" g_input_stream_set_pending :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@stream@/ to have actions pending. If the pending flag is-already set or /@stream@/ is closed, it will return 'False' and set-/@error@/.--}-inputStreamSetPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a) =>-    a-    {- ^ /@stream@/: input stream -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamSetPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    onException (do-        _ <- propagateGError $ g_input_stream_set_pending stream'-        touchManagedPtr stream-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InputStreamSetPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, IsInputStream a) => O.MethodInfo InputStreamSetPendingMethodInfo a signature where-    overloadedMethod _ = inputStreamSetPending--#endif---- method InputStream::skip--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be skipped from the stream", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_skip" g_input_stream_skip :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Tries to skip /@count@/ bytes from the stream. Will block during the operation.--This is identical to 'GI.Gio.Objects.InputStream.inputStreamRead', from a behaviour standpoint,-but the bytes that are skipped are not returned to the user. Some-streams have an implementation that is more efficient than reading the data.--This function is optional for inherited classes, as the default implementation-emulates it using read.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If an-operation was partially finished when the operation was cancelled the-partial result will be returned, without an error.--}-inputStreamSkip ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> Word64-    {- ^ /@count@/: the number of bytes that will be skipped from the stream -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes skipped, or -1 on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamSkip stream count cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_input_stream_skip stream' count maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InputStreamSkipMethodInfo-instance (signature ~ (Word64 -> Maybe (b) -> m Int64), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamSkipMethodInfo a signature where-    overloadedMethod _ = inputStreamSkip--#endif---- method InputStream::skip_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes that will be skipped from the stream", 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 "the [I/O priority][io-priority] of the request", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_input_stream_skip_async" g_input_stream_skip_async :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Word64 ->                               -- count : TBasicType TUInt64-    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 ()--{- |-Request an asynchronous skip of /@count@/ bytes from the stream.-When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.InputStream.inputStreamSkipFinish' to get the result-of the operation.--During an async request no other sync and async calls are allowed,-and will result in 'GI.Gio.Enums.IOErrorEnumPending' errors.--A value of /@count@/ larger than @/G_MAXSSIZE/@ will cause a 'GI.Gio.Enums.IOErrorEnumInvalidArgument' error.--On success, the number of bytes skipped will be passed to the callback.-It is not an error if this is not the same as the requested size, as it-can happen e.g. near the end of a file, but generally we try to skip-as many bytes as requested. Zero is returned on end of file-(or if /@count@/ is zero), but never otherwise.--Any outstanding i\/o request with higher priority (lower numerical value)-will be executed before an outstanding request with lower priority.-Default priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--The asynchronous methods have a default fallback that uses threads to-implement asynchronicity, so they are optional for inheriting classes.-However, if you override one, you must override all.--}-inputStreamSkipAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> Word64-    {- ^ /@count@/: the number of bytes that will be skipped from the stream -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-inputStreamSkipAsync stream count ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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-    g_input_stream_skip_async stream' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data InputStreamSkipAsyncMethodInfo-instance (signature ~ (Word64 -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo InputStreamSkipAsyncMethodInfo a signature where-    overloadedMethod _ = inputStreamSkipAsync--#endif---- method InputStream::skip_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_input_stream_skip_finish" g_input_stream_skip_finish :: -    Ptr InputStream ->                      -- stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Finishes a stream skip operation.--}-inputStreamSkipFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Int64-    {- ^ __Returns:__ the size of the bytes skipped, or %-1 on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-inputStreamSkipFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_input_stream_skip_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data InputStreamSkipFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, IsInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo InputStreamSkipFinishMethodInfo a signature where-    overloadedMethod _ = inputStreamSkipFinish--#endif--
− GI/Gio/Objects/InputStream.hs-boot 
@@ -1,86 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.InputStream 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 InputStream = InputStream (ManagedPtr InputStream)-instance GObject InputStream where-class (GObject o, O.IsDescendantOf InputStream o) => IsInputStream o-instance (GObject o, O.IsDescendantOf InputStream o) => IsInputStream o-instance O.HasParentTypes InputStream-#if ENABLE_OVERLOADING-data InputStreamClearPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamCloseAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamCloseFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamHasPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamIsClosedMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadAllMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadAllAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadAllFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadBytesMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadBytesAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadBytesFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamReadFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamSetPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamSkipMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamSkipAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data InputStreamSkipFinishMethodInfo-#endif
− GI/Gio/Objects/ListStore.hs 
@@ -1,626 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.ListStore.ListStore' is a simple implementation of 'GI.Gio.Interfaces.ListModel.ListModel' that stores all-items in memory.--It provides insertions, deletions, and lookups in logarithmic time-with a fast path for the common case of iterating the list linearly.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ListStore-    ( ---- * Exported types-    ListStore(..)                           ,-    IsListStore                             ,-    toListStore                             ,-    noListStore                             ,--- -- * Methods--- ** append #method:append#--#if ENABLE_OVERLOADING-    ListStoreAppendMethodInfo               ,-#endif-    listStoreAppend                         ,----- ** insert #method:insert#--#if ENABLE_OVERLOADING-    ListStoreInsertMethodInfo               ,-#endif-    listStoreInsert                         ,----- ** insertSorted #method:insertSorted#--#if ENABLE_OVERLOADING-    ListStoreInsertSortedMethodInfo         ,-#endif-    listStoreInsertSorted                   ,----- ** new #method:new#--    listStoreNew                            ,----- ** remove #method:remove#--#if ENABLE_OVERLOADING-    ListStoreRemoveMethodInfo               ,-#endif-    listStoreRemove                         ,----- ** removeAll #method:removeAll#--#if ENABLE_OVERLOADING-    ListStoreRemoveAllMethodInfo            ,-#endif-    listStoreRemoveAll                      ,----- ** sort #method:sort#--#if ENABLE_OVERLOADING-    ListStoreSortMethodInfo                 ,-#endif-    listStoreSort                           ,----- ** splice #method:splice#--#if ENABLE_OVERLOADING-    ListStoreSpliceMethodInfo               ,-#endif-    listStoreSplice                         ,----- -- * Properties--- ** itemType #attr:itemType#-{- | The type of items contained in this list store. Items must be-subclasses of 'GI.GObject.Objects.Object.Object'.--/Since: 2.44/--}-#if ENABLE_OVERLOADING-    ListStoreItemTypePropertyInfo           ,-#endif-    constructListStoreItemType              ,-    getListStoreItemType                    ,-#if ENABLE_OVERLOADING-    listStoreItemType                       ,-#endif-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.ListModel as Gio.ListModel---- | Memory-managed wrapper type.-newtype ListStore = ListStore (ManagedPtr ListStore)-foreign import ccall "g_list_store_get_type"-    c_g_list_store_get_type :: IO GType--instance GObject ListStore where-    gobjectType = c_g_list_store_get_type-    ---- | Type class for types which can be safely cast to `ListStore`, for instance with `toListStore`.-class (GObject o, O.IsDescendantOf ListStore o) => IsListStore o-instance (GObject o, O.IsDescendantOf ListStore o) => IsListStore o--instance O.HasParentTypes ListStore-type instance O.ParentTypes ListStore = '[GObject.Object.Object, Gio.ListModel.ListModel]---- | Cast to `ListStore`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toListStore :: (MonadIO m, IsListStore o) => o -> m ListStore-toListStore = liftIO . unsafeCastTo ListStore---- | A convenience alias for `Nothing` :: `Maybe` `ListStore`.-noListStore :: Maybe ListStore-noListStore = Nothing--#if ENABLE_OVERLOADING-type family ResolveListStoreMethod (t :: Symbol) (o :: *) :: * where-    ResolveListStoreMethod "append" o = ListStoreAppendMethodInfo-    ResolveListStoreMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveListStoreMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveListStoreMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveListStoreMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveListStoreMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveListStoreMethod "insert" o = ListStoreInsertMethodInfo-    ResolveListStoreMethod "insertSorted" o = ListStoreInsertSortedMethodInfo-    ResolveListStoreMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveListStoreMethod "itemsChanged" o = Gio.ListModel.ListModelItemsChangedMethodInfo-    ResolveListStoreMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveListStoreMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveListStoreMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveListStoreMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveListStoreMethod "remove" o = ListStoreRemoveMethodInfo-    ResolveListStoreMethod "removeAll" o = ListStoreRemoveAllMethodInfo-    ResolveListStoreMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveListStoreMethod "sort" o = ListStoreSortMethodInfo-    ResolveListStoreMethod "splice" o = ListStoreSpliceMethodInfo-    ResolveListStoreMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveListStoreMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveListStoreMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveListStoreMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveListStoreMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveListStoreMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveListStoreMethod "getItem" o = Gio.ListModel.ListModelGetItemMethodInfo-    ResolveListStoreMethod "getItemType" o = Gio.ListModel.ListModelGetItemTypeMethodInfo-    ResolveListStoreMethod "getNItems" o = Gio.ListModel.ListModelGetNItemsMethodInfo-    ResolveListStoreMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveListStoreMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveListStoreMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveListStoreMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveListStoreMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveListStoreMethod t ListStore, O.MethodInfo info ListStore p) => OL.IsLabel t (ListStore -> 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---- VVV Prop "item-type"-   -- Type: TBasicType TGType-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@item-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' listStore #itemType-@--}-getListStoreItemType :: (MonadIO m, IsListStore o) => o -> m GType-getListStoreItemType obj = liftIO $ B.Properties.getObjectPropertyGType obj "item-type"--{- |-Construct a `GValueConstruct` with valid value for the “@item-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructListStoreItemType :: (IsListStore o) => GType -> IO (GValueConstruct o)-constructListStoreItemType val = B.Properties.constructObjectPropertyGType "item-type" val--#if ENABLE_OVERLOADING-data ListStoreItemTypePropertyInfo-instance AttrInfo ListStoreItemTypePropertyInfo where-    type AttrAllowedOps ListStoreItemTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ListStoreItemTypePropertyInfo = (~) GType-    type AttrBaseTypeConstraint ListStoreItemTypePropertyInfo = IsListStore-    type AttrGetType ListStoreItemTypePropertyInfo = GType-    type AttrLabel ListStoreItemTypePropertyInfo = "item-type"-    type AttrOrigin ListStoreItemTypePropertyInfo = ListStore-    attrGet _ = getListStoreItemType-    attrSet _ = undefined-    attrConstruct _ = constructListStoreItemType-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ListStore-type instance O.AttributeList ListStore = ListStoreAttributeList-type ListStoreAttributeList = ('[ '("itemType", ListStoreItemTypePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-listStoreItemType :: AttrLabelProxy "itemType"-listStoreItemType = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ListStore = ListStoreSignalList-type ListStoreSignalList = ('[ '("itemsChanged", Gio.ListModel.ListModelItemsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ListStore::new--- method type : Constructor--- Args : [Arg {argCName = "item_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of items in the list", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ListStore"}))--- throws : False--- Skip return : False--foreign import ccall "g_list_store_new" g_list_store_new :: -    CGType ->                               -- item_type : TBasicType TGType-    IO (Ptr ListStore)--{- |-Creates a new 'GI.Gio.Objects.ListStore.ListStore' with items of type /@itemType@/. /@itemType@/-must be a subclass of 'GI.GObject.Objects.Object.Object'.--/Since: 2.44/--}-listStoreNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GType-    {- ^ /@itemType@/: the 'GType' of items in the list -}-    -> m ListStore-    {- ^ __Returns:__ a new 'GI.Gio.Objects.ListStore.ListStore' -}-listStoreNew itemType = liftIO $ do-    let itemType' = gtypeToCGType itemType-    result <- g_list_store_new itemType'-    checkUnexpectedReturnNULL "listStoreNew" result-    result' <- (wrapObject ListStore) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method ListStore::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "Gio", name = "ListStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_list_store_append" g_list_store_append :: -    Ptr ListStore ->                        -- store : TInterface (Name {namespace = "Gio", name = "ListStore"})-    Ptr GObject.Object.Object ->            -- item : TInterface (Name {namespace = "GObject", name = "Object"})-    IO ()--{- |-Appends /@item@/ to /@store@/. /@item@/ must be of type 'GI.Gio.Objects.ListStore.ListStore':@/item-type/@.--This function takes a ref on /@item@/.--Use 'GI.Gio.Objects.ListStore.listStoreSplice' to append multiple items at the same time-efficiently.--/Since: 2.44/--}-listStoreAppend ::-    (B.CallStack.HasCallStack, MonadIO m, IsListStore a, GObject.Object.IsObject b) =>-    a-    {- ^ /@store@/: a 'GI.Gio.Objects.ListStore.ListStore' -}-    -> b-    {- ^ /@item@/: the new item -}-    -> m ()-listStoreAppend store item = liftIO $ do-    store' <- unsafeManagedPtrCastPtr store-    item' <- unsafeManagedPtrCastPtr item-    g_list_store_append store' item'-    touchManagedPtr store-    touchManagedPtr item-    return ()--#if ENABLE_OVERLOADING-data ListStoreAppendMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsListStore a, GObject.Object.IsObject b) => O.MethodInfo ListStoreAppendMethodInfo a signature where-    overloadedMethod _ = listStoreAppend--#endif---- method ListStore::insert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "Gio", name = "ListStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position at which to insert the new item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_list_store_insert" g_list_store_insert :: -    Ptr ListStore ->                        -- store : TInterface (Name {namespace = "Gio", name = "ListStore"})-    Word32 ->                               -- position : TBasicType TUInt-    Ptr GObject.Object.Object ->            -- item : TInterface (Name {namespace = "GObject", name = "Object"})-    IO ()--{- |-Inserts /@item@/ into /@store@/ at /@position@/. /@item@/ must be of type-'GI.Gio.Objects.ListStore.ListStore':@/item-type/@ or derived from it. /@position@/ must be smaller-than the length of the list, or equal to it to append.--This function takes a ref on /@item@/.--Use 'GI.Gio.Objects.ListStore.listStoreSplice' to insert multiple items at the same time-efficiently.--/Since: 2.44/--}-listStoreInsert ::-    (B.CallStack.HasCallStack, MonadIO m, IsListStore a, GObject.Object.IsObject b) =>-    a-    {- ^ /@store@/: a 'GI.Gio.Objects.ListStore.ListStore' -}-    -> Word32-    {- ^ /@position@/: the position at which to insert the new item -}-    -> b-    {- ^ /@item@/: the new item -}-    -> m ()-listStoreInsert store position item = liftIO $ do-    store' <- unsafeManagedPtrCastPtr store-    item' <- unsafeManagedPtrCastPtr item-    g_list_store_insert store' position item'-    touchManagedPtr store-    touchManagedPtr item-    return ()--#if ENABLE_OVERLOADING-data ListStoreInsertMethodInfo-instance (signature ~ (Word32 -> b -> m ()), MonadIO m, IsListStore a, GObject.Object.IsObject b) => O.MethodInfo ListStoreInsertMethodInfo a signature where-    overloadedMethod _ = listStoreInsert--#endif---- method ListStore::insert_sorted--- method type : OrdinaryMethod--- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "Gio", name = "ListStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_func", argType = TInterface (Name {namespace = "GLib", name = "CompareDataFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pairwise comparison function for sorting", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for @compare_func", 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 "g_list_store_insert_sorted" g_list_store_insert_sorted :: -    Ptr ListStore ->                        -- store : TInterface (Name {namespace = "Gio", name = "ListStore"})-    Ptr GObject.Object.Object ->            -- item : TInterface (Name {namespace = "GObject", name = "Object"})-    FunPtr GLib.Callbacks.C_CompareDataFunc -> -- compare_func : TInterface (Name {namespace = "GLib", name = "CompareDataFunc"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO Word32--{- |-Inserts /@item@/ into /@store@/ at a position to be determined by the-/@compareFunc@/.--The list must already be sorted before calling this function or the-result is undefined.  Usually you would approach this by only ever-inserting items by way of this function.--This function takes a ref on /@item@/.--/Since: 2.44/--}-listStoreInsertSorted ::-    (B.CallStack.HasCallStack, MonadIO m, IsListStore a, GObject.Object.IsObject b) =>-    a-    {- ^ /@store@/: a 'GI.Gio.Objects.ListStore.ListStore' -}-    -> b-    {- ^ /@item@/: the new item -}-    -> GLib.Callbacks.CompareDataFunc-    {- ^ /@compareFunc@/: pairwise comparison function for sorting -}-    -> m Word32-    {- ^ __Returns:__ the position at which /@item@/ was inserted -}-listStoreInsertSorted store item compareFunc = liftIO $ do-    store' <- unsafeManagedPtrCastPtr store-    item' <- unsafeManagedPtrCastPtr item-    compareFunc' <- GLib.Callbacks.mk_CompareDataFunc (GLib.Callbacks.wrap_CompareDataFunc Nothing (GLib.Callbacks.drop_closures_CompareDataFunc compareFunc))-    let userData = nullPtr-    result <- g_list_store_insert_sorted store' item' compareFunc' userData-    safeFreeFunPtr $ castFunPtrToPtr compareFunc'-    touchManagedPtr store-    touchManagedPtr item-    return result--#if ENABLE_OVERLOADING-data ListStoreInsertSortedMethodInfo-instance (signature ~ (b -> GLib.Callbacks.CompareDataFunc -> m Word32), MonadIO m, IsListStore a, GObject.Object.IsObject b) => O.MethodInfo ListStoreInsertSortedMethodInfo a signature where-    overloadedMethod _ = listStoreInsertSorted--#endif---- method ListStore::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "Gio", name = "ListStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position of the item that is to be removed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_list_store_remove" g_list_store_remove :: -    Ptr ListStore ->                        -- store : TInterface (Name {namespace = "Gio", name = "ListStore"})-    Word32 ->                               -- position : TBasicType TUInt-    IO ()--{- |-Removes the item from /@store@/ that is at /@position@/. /@position@/ must be-smaller than the current length of the list.--Use 'GI.Gio.Objects.ListStore.listStoreSplice' to remove multiple items at the same time-efficiently.--/Since: 2.44/--}-listStoreRemove ::-    (B.CallStack.HasCallStack, MonadIO m, IsListStore a) =>-    a-    {- ^ /@store@/: a 'GI.Gio.Objects.ListStore.ListStore' -}-    -> Word32-    {- ^ /@position@/: the position of the item that is to be removed -}-    -> m ()-listStoreRemove store position = liftIO $ do-    store' <- unsafeManagedPtrCastPtr store-    g_list_store_remove store' position-    touchManagedPtr store-    return ()--#if ENABLE_OVERLOADING-data ListStoreRemoveMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsListStore a) => O.MethodInfo ListStoreRemoveMethodInfo a signature where-    overloadedMethod _ = listStoreRemove--#endif---- method ListStore::remove_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "Gio", name = "ListStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_list_store_remove_all" g_list_store_remove_all :: -    Ptr ListStore ->                        -- store : TInterface (Name {namespace = "Gio", name = "ListStore"})-    IO ()--{- |-Removes all items from /@store@/.--/Since: 2.44/--}-listStoreRemoveAll ::-    (B.CallStack.HasCallStack, MonadIO m, IsListStore a) =>-    a-    {- ^ /@store@/: a 'GI.Gio.Objects.ListStore.ListStore' -}-    -> m ()-listStoreRemoveAll store = liftIO $ do-    store' <- unsafeManagedPtrCastPtr store-    g_list_store_remove_all store'-    touchManagedPtr store-    return ()--#if ENABLE_OVERLOADING-data ListStoreRemoveAllMethodInfo-instance (signature ~ (m ()), MonadIO m, IsListStore a) => O.MethodInfo ListStoreRemoveAllMethodInfo a signature where-    overloadedMethod _ = listStoreRemoveAll--#endif---- method ListStore::sort--- method type : OrdinaryMethod--- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "Gio", name = "ListStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_func", argType = TInterface (Name {namespace = "GLib", name = "CompareDataFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pairwise comparison function for sorting", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for @compare_func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_list_store_sort" g_list_store_sort :: -    Ptr ListStore ->                        -- store : TInterface (Name {namespace = "Gio", name = "ListStore"})-    FunPtr GLib.Callbacks.C_CompareDataFunc -> -- compare_func : TInterface (Name {namespace = "GLib", name = "CompareDataFunc"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Sort the items in /@store@/ according to /@compareFunc@/.--/Since: 2.46/--}-listStoreSort ::-    (B.CallStack.HasCallStack, MonadIO m, IsListStore a) =>-    a-    {- ^ /@store@/: a 'GI.Gio.Objects.ListStore.ListStore' -}-    -> GLib.Callbacks.CompareDataFunc-    {- ^ /@compareFunc@/: pairwise comparison function for sorting -}-    -> m ()-listStoreSort store compareFunc = liftIO $ do-    store' <- unsafeManagedPtrCastPtr store-    compareFunc' <- GLib.Callbacks.mk_CompareDataFunc (GLib.Callbacks.wrap_CompareDataFunc Nothing (GLib.Callbacks.drop_closures_CompareDataFunc compareFunc))-    let userData = nullPtr-    g_list_store_sort store' compareFunc' userData-    safeFreeFunPtr $ castFunPtrToPtr compareFunc'-    touchManagedPtr store-    return ()--#if ENABLE_OVERLOADING-data ListStoreSortMethodInfo-instance (signature ~ (GLib.Callbacks.CompareDataFunc -> m ()), MonadIO m, IsListStore a) => O.MethodInfo ListStoreSortMethodInfo a signature where-    overloadedMethod _ = listStoreSort--#endif---- method ListStore::splice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "store", argType = TInterface (Name {namespace = "Gio", name = "ListStore"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GListStore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position at which to make the change", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_removals", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items to remove", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "additions", argType = TCArray False (-1) 4 (TInterface (Name {namespace = "GObject", name = "Object"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the items to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_additions", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_additions", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_list_store_splice" g_list_store_splice :: -    Ptr ListStore ->                        -- store : TInterface (Name {namespace = "Gio", name = "ListStore"})-    Word32 ->                               -- position : TBasicType TUInt-    Word32 ->                               -- n_removals : TBasicType TUInt-    Ptr (Ptr GObject.Object.Object) ->      -- additions : TCArray False (-1) 4 (TInterface (Name {namespace = "GObject", name = "Object"}))-    Word32 ->                               -- n_additions : TBasicType TUInt-    IO ()--{- |-Changes /@store@/ by removing /@nRemovals@/ items and adding /@nAdditions@/-items to it. /@additions@/ must contain /@nAdditions@/ items of type-'GI.Gio.Objects.ListStore.ListStore':@/item-type/@.  'Nothing' is not permitted.--This function is more efficient than 'GI.Gio.Objects.ListStore.listStoreInsert' and-'GI.Gio.Objects.ListStore.listStoreRemove', because it only emits-'GI.Gio.Interfaces.ListModel.ListModel'::@/items-changed/@ once for the change.--This function takes a ref on each item in /@additions@/.--The parameters /@position@/ and /@nRemovals@/ must be correct (ie:-/@position@/ + /@nRemovals@/ must be less than or equal to the length of-the list at the time this function is called).--/Since: 2.44/--}-listStoreSplice ::-    (B.CallStack.HasCallStack, MonadIO m, IsListStore a) =>-    a-    {- ^ /@store@/: a 'GI.Gio.Objects.ListStore.ListStore' -}-    -> Word32-    {- ^ /@position@/: the position at which to make the change -}-    -> Word32-    {- ^ /@nRemovals@/: the number of items to remove -}-    -> [GObject.Object.Object]-    {- ^ /@additions@/: the items to add -}-    -> m ()-listStoreSplice store position nRemovals additions = liftIO $ do-    let nAdditions = fromIntegral $ length additions-    store' <- unsafeManagedPtrCastPtr store-    additions' <- mapM unsafeManagedPtrCastPtr additions-    additions'' <- packPtrArray additions'-    g_list_store_splice store' position nRemovals additions'' nAdditions-    touchManagedPtr store-    mapM_ touchManagedPtr additions-    freeMem additions''-    return ()--#if ENABLE_OVERLOADING-data ListStoreSpliceMethodInfo-instance (signature ~ (Word32 -> Word32 -> [GObject.Object.Object] -> m ()), MonadIO m, IsListStore a) => O.MethodInfo ListStoreSpliceMethodInfo a signature where-    overloadedMethod _ = listStoreSplice--#endif--
− GI/Gio/Objects/ListStore.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ListStore 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 ListStore = ListStore (ManagedPtr ListStore)-instance GObject ListStore where-class (GObject o, O.IsDescendantOf ListStore o) => IsListStore o-instance (GObject o, O.IsDescendantOf ListStore o) => IsListStore o-instance O.HasParentTypes ListStore-#if ENABLE_OVERLOADING-data ListStoreItemTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ListStoreAppendMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListStoreInsertMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListStoreInsertSortedMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListStoreRemoveMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListStoreRemoveAllMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListStoreSortMethodInfo-#endif-#if ENABLE_OVERLOADING-data ListStoreSpliceMethodInfo-#endif
− GI/Gio/Objects/MemoryInputStream.hs 
@@ -1,387 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.MemoryInputStream.MemoryInputStream' is a class for using arbitrary-memory chunks as input for GIO streaming input operations.--As of GLib 2.34, 'GI.Gio.Objects.MemoryInputStream.MemoryInputStream' implements-'GI.Gio.Interfaces.PollableInputStream.PollableInputStream'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.MemoryInputStream-    ( ---- * Exported types-    MemoryInputStream(..)                   ,-    IsMemoryInputStream                     ,-    toMemoryInputStream                     ,-    noMemoryInputStream                     ,--- -- * Methods--- ** addBytes #method:addBytes#--#if ENABLE_OVERLOADING-    MemoryInputStreamAddBytesMethodInfo     ,-#endif-    memoryInputStreamAddBytes               ,----- ** addData #method:addData#--#if ENABLE_OVERLOADING-    MemoryInputStreamAddDataMethodInfo      ,-#endif-    memoryInputStreamAddData                ,----- ** new #method:new#--    memoryInputStreamNew                    ,----- ** newFromBytes #method:newFromBytes#--    memoryInputStreamNewFromBytes           ,----- ** newFromData #method:newFromData#--    memoryInputStreamNewFromData            ,-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GLib.Structs.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.PollableInputStream as Gio.PollableInputStream-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype MemoryInputStream = MemoryInputStream (ManagedPtr MemoryInputStream)-foreign import ccall "g_memory_input_stream_get_type"-    c_g_memory_input_stream_get_type :: IO GType--instance GObject MemoryInputStream where-    gobjectType = c_g_memory_input_stream_get_type-    ---- | Type class for types which can be safely cast to `MemoryInputStream`, for instance with `toMemoryInputStream`.-class (GObject o, O.IsDescendantOf MemoryInputStream o) => IsMemoryInputStream o-instance (GObject o, O.IsDescendantOf MemoryInputStream o) => IsMemoryInputStream o--instance O.HasParentTypes MemoryInputStream-type instance O.ParentTypes MemoryInputStream = '[Gio.InputStream.InputStream, GObject.Object.Object, Gio.PollableInputStream.PollableInputStream, Gio.Seekable.Seekable]---- | Cast to `MemoryInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMemoryInputStream :: (MonadIO m, IsMemoryInputStream o) => o -> m MemoryInputStream-toMemoryInputStream = liftIO . unsafeCastTo MemoryInputStream---- | A convenience alias for `Nothing` :: `Maybe` `MemoryInputStream`.-noMemoryInputStream :: Maybe MemoryInputStream-noMemoryInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveMemoryInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveMemoryInputStreamMethod "addBytes" o = MemoryInputStreamAddBytesMethodInfo-    ResolveMemoryInputStreamMethod "addData" o = MemoryInputStreamAddDataMethodInfo-    ResolveMemoryInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMemoryInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMemoryInputStreamMethod "canPoll" o = Gio.PollableInputStream.PollableInputStreamCanPollMethodInfo-    ResolveMemoryInputStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveMemoryInputStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveMemoryInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolveMemoryInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolveMemoryInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolveMemoryInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolveMemoryInputStreamMethod "createSource" o = Gio.PollableInputStream.PollableInputStreamCreateSourceMethodInfo-    ResolveMemoryInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMemoryInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMemoryInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMemoryInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolveMemoryInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolveMemoryInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMemoryInputStreamMethod "isReadable" o = Gio.PollableInputStream.PollableInputStreamIsReadableMethodInfo-    ResolveMemoryInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMemoryInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMemoryInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolveMemoryInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolveMemoryInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolveMemoryInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolveMemoryInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolveMemoryInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolveMemoryInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolveMemoryInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolveMemoryInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolveMemoryInputStreamMethod "readNonblocking" o = Gio.PollableInputStream.PollableInputStreamReadNonblockingMethodInfo-    ResolveMemoryInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMemoryInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMemoryInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMemoryInputStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveMemoryInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolveMemoryInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolveMemoryInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolveMemoryInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMemoryInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMemoryInputStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveMemoryInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMemoryInputStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveMemoryInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMemoryInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMemoryInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMemoryInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMemoryInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMemoryInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMemoryInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolveMemoryInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMemoryInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMemoryInputStreamMethod t MemoryInputStream, O.MethodInfo info MemoryInputStream p) => OL.IsLabel t (MemoryInputStream -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList MemoryInputStream-type instance O.AttributeList MemoryInputStream = MemoryInputStreamAttributeList-type MemoryInputStreamAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList MemoryInputStream = MemoryInputStreamSignalList-type MemoryInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method MemoryInputStream::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MemoryInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_memory_input_stream_new" g_memory_input_stream_new :: -    IO (Ptr MemoryInputStream)--{- |-Creates a new empty 'GI.Gio.Objects.MemoryInputStream.MemoryInputStream'.--}-memoryInputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m MemoryInputStream-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InputStream.InputStream' -}-memoryInputStreamNew  = liftIO $ do-    result <- g_memory_input_stream_new-    checkUnexpectedReturnNULL "memoryInputStreamNew" result-    result' <- (wrapObject MemoryInputStream) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method MemoryInputStream::new_from_bytes--- method type : Constructor--- Args : [Arg {argCName = "bytes", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GBytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MemoryInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_memory_input_stream_new_from_bytes" g_memory_input_stream_new_from_bytes :: -    Ptr GLib.Bytes.Bytes ->                 -- bytes : TInterface (Name {namespace = "GLib", name = "Bytes"})-    IO (Ptr MemoryInputStream)--{- |-Creates a new 'GI.Gio.Objects.MemoryInputStream.MemoryInputStream' with data from the given /@bytes@/.--/Since: 2.34/--}-memoryInputStreamNewFromBytes ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GLib.Bytes.Bytes-    {- ^ /@bytes@/: a 'GI.GLib.Structs.Bytes.Bytes' -}-    -> m MemoryInputStream-    {- ^ __Returns:__ new 'GI.Gio.Objects.InputStream.InputStream' read from /@bytes@/ -}-memoryInputStreamNewFromBytes bytes = liftIO $ do-    bytes' <- unsafeManagedPtrGetPtr bytes-    result <- g_memory_input_stream_new_from_bytes bytes'-    checkUnexpectedReturnNULL "memoryInputStreamNewFromBytes" result-    result' <- (wrapObject MemoryInputStream) result-    touchManagedPtr bytes-    return result'--#if ENABLE_OVERLOADING-#endif---- method MemoryInputStream::new_from_data--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of the data, may be -1 if @data is a nul-terminated string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "function that is called to free @data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of the data, may be -1 if @data is a nul-terminated string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MemoryInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_memory_input_stream_new_from_data" g_memory_input_stream_new_from_data :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Int64 ->                                -- len : TBasicType TInt64-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO (Ptr MemoryInputStream)--{- |-Creates a new 'GI.Gio.Objects.MemoryInputStream.MemoryInputStream' with data in memory of a given size.--}-memoryInputStreamNewFromData ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@data@/: input data -}-    -> Maybe (GLib.Callbacks.DestroyNotify)-    {- ^ /@destroy@/: function that is called to free /@data@/, or 'Nothing' -}-    -> m MemoryInputStream-    {- ^ __Returns:__ new 'GI.Gio.Objects.InputStream.InputStream' read from /@data@/ of /@len@/ bytes. -}-memoryInputStreamNewFromData data_ destroy = liftIO $ do-    let len = fromIntegral $ B.length data_-    data_' <- packByteString data_-    maybeDestroy <- case destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jDestroy -> do-            ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))-            jDestroy' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptrdestroy) jDestroy)-            poke ptrdestroy jDestroy'-            return jDestroy'-    result <- g_memory_input_stream_new_from_data data_' len maybeDestroy-    checkUnexpectedReturnNULL "memoryInputStreamNewFromData" result-    result' <- (wrapObject MemoryInputStream) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method MemoryInputStream::add_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "MemoryInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMemoryInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_memory_input_stream_add_bytes" g_memory_input_stream_add_bytes :: -    Ptr MemoryInputStream ->                -- stream : TInterface (Name {namespace = "Gio", name = "MemoryInputStream"})-    Ptr GLib.Bytes.Bytes ->                 -- bytes : TInterface (Name {namespace = "GLib", name = "Bytes"})-    IO ()--{- |-Appends /@bytes@/ to data that can be read from the input stream.--/Since: 2.34/--}-memoryInputStreamAddBytes ::-    (B.CallStack.HasCallStack, MonadIO m, IsMemoryInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.MemoryInputStream.MemoryInputStream' -}-    -> GLib.Bytes.Bytes-    {- ^ /@bytes@/: input data -}-    -> m ()-memoryInputStreamAddBytes stream bytes = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    bytes' <- unsafeManagedPtrGetPtr bytes-    g_memory_input_stream_add_bytes stream' bytes'-    touchManagedPtr stream-    touchManagedPtr bytes-    return ()--#if ENABLE_OVERLOADING-data MemoryInputStreamAddBytesMethodInfo-instance (signature ~ (GLib.Bytes.Bytes -> m ()), MonadIO m, IsMemoryInputStream a) => O.MethodInfo MemoryInputStreamAddBytesMethodInfo a signature where-    overloadedMethod _ = memoryInputStreamAddBytes--#endif---- method MemoryInputStream::add_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "MemoryInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMemoryInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of the data, may be -1 if @data is a nul-terminated string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "function that is called to free @data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of the data, may be -1 if @data is a nul-terminated string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_memory_input_stream_add_data" g_memory_input_stream_add_data :: -    Ptr MemoryInputStream ->                -- stream : TInterface (Name {namespace = "Gio", name = "MemoryInputStream"})-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Int64 ->                                -- len : TBasicType TInt64-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Appends /@data@/ to data that can be read from the input stream--}-memoryInputStreamAddData ::-    (B.CallStack.HasCallStack, MonadIO m, IsMemoryInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.MemoryInputStream.MemoryInputStream' -}-    -> ByteString-    {- ^ /@data@/: input data -}-    -> Maybe (GLib.Callbacks.DestroyNotify)-    {- ^ /@destroy@/: function that is called to free /@data@/, or 'Nothing' -}-    -> m ()-memoryInputStreamAddData stream data_ destroy = liftIO $ do-    let len = fromIntegral $ B.length data_-    stream' <- unsafeManagedPtrCastPtr stream-    data_' <- packByteString data_-    maybeDestroy <- case destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jDestroy -> do-            ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))-            jDestroy' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptrdestroy) jDestroy)-            poke ptrdestroy jDestroy'-            return jDestroy'-    g_memory_input_stream_add_data stream' data_' len maybeDestroy-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data MemoryInputStreamAddDataMethodInfo-instance (signature ~ (ByteString -> Maybe (GLib.Callbacks.DestroyNotify) -> m ()), MonadIO m, IsMemoryInputStream a) => O.MethodInfo MemoryInputStreamAddDataMethodInfo a signature where-    overloadedMethod _ = memoryInputStreamAddData--#endif--
− GI/Gio/Objects/MemoryInputStream.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.MemoryInputStream 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 MemoryInputStream = MemoryInputStream (ManagedPtr MemoryInputStream)-instance GObject MemoryInputStream where-class (GObject o, O.IsDescendantOf MemoryInputStream o) => IsMemoryInputStream o-instance (GObject o, O.IsDescendantOf MemoryInputStream o) => IsMemoryInputStream o-instance O.HasParentTypes MemoryInputStream-#if ENABLE_OVERLOADING-data MemoryInputStreamAddBytesMethodInfo-#endif-#if ENABLE_OVERLOADING-data MemoryInputStreamAddDataMethodInfo-#endif
− GI/Gio/Objects/MemoryOutputStream.hs 
@@ -1,613 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream' is a class for using arbitrary-memory chunks as output for GIO streaming output operations.--As of GLib 2.34, 'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream' trivially implements-'GI.Gio.Interfaces.PollableOutputStream.PollableOutputStream': it always polls as ready.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.MemoryOutputStream-    ( ---- * Exported types-    MemoryOutputStream(..)                  ,-    IsMemoryOutputStream                    ,-    toMemoryOutputStream                    ,-    noMemoryOutputStream                    ,--- -- * Methods--- ** getData #method:getData#--#if ENABLE_OVERLOADING-    MemoryOutputStreamGetDataMethodInfo     ,-#endif-    memoryOutputStreamGetData               ,----- ** getDataSize #method:getDataSize#--#if ENABLE_OVERLOADING-    MemoryOutputStreamGetDataSizeMethodInfo ,-#endif-    memoryOutputStreamGetDataSize           ,----- ** getSize #method:getSize#--#if ENABLE_OVERLOADING-    MemoryOutputStreamGetSizeMethodInfo     ,-#endif-    memoryOutputStreamGetSize               ,----- ** newResizable #method:newResizable#--    memoryOutputStreamNewResizable          ,----- ** stealAsBytes #method:stealAsBytes#--#if ENABLE_OVERLOADING-    MemoryOutputStreamStealAsBytesMethodInfo,-#endif-    memoryOutputStreamStealAsBytes          ,----- ** stealData #method:stealData#--#if ENABLE_OVERLOADING-    MemoryOutputStreamStealDataMethodInfo   ,-#endif-    memoryOutputStreamStealData             ,----- -- * Properties--- ** data #attr:data#-{- | Pointer to buffer where data will be written.--/Since: 2.24/--}-#if ENABLE_OVERLOADING-    MemoryOutputStreamDataPropertyInfo      ,-#endif-    constructMemoryOutputStreamData         ,-    getMemoryOutputStreamData               ,-#if ENABLE_OVERLOADING-    memoryOutputStreamData                  ,-#endif----- ** dataSize #attr:dataSize#-{- | Size of data written to the buffer.--/Since: 2.24/--}-#if ENABLE_OVERLOADING-    MemoryOutputStreamDataSizePropertyInfo  ,-#endif-    getMemoryOutputStreamDataSize           ,-#if ENABLE_OVERLOADING-    memoryOutputStreamDataSize              ,-#endif----- ** size #attr:size#-{- | Current size of the data buffer.--/Since: 2.24/--}-#if ENABLE_OVERLOADING-    MemoryOutputStreamSizePropertyInfo      ,-#endif-    constructMemoryOutputStreamSize         ,-    getMemoryOutputStreamSize               ,-#if ENABLE_OVERLOADING-    memoryOutputStreamSize                  ,-#endif-----    ) 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.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.PollableOutputStream as Gio.PollableOutputStream-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Seekable as Gio.Seekable-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype MemoryOutputStream = MemoryOutputStream (ManagedPtr MemoryOutputStream)-foreign import ccall "g_memory_output_stream_get_type"-    c_g_memory_output_stream_get_type :: IO GType--instance GObject MemoryOutputStream where-    gobjectType = c_g_memory_output_stream_get_type-    ---- | Type class for types which can be safely cast to `MemoryOutputStream`, for instance with `toMemoryOutputStream`.-class (GObject o, O.IsDescendantOf MemoryOutputStream o) => IsMemoryOutputStream o-instance (GObject o, O.IsDescendantOf MemoryOutputStream o) => IsMemoryOutputStream o--instance O.HasParentTypes MemoryOutputStream-type instance O.ParentTypes MemoryOutputStream = '[Gio.OutputStream.OutputStream, GObject.Object.Object, Gio.PollableOutputStream.PollableOutputStream, Gio.Seekable.Seekable]---- | Cast to `MemoryOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMemoryOutputStream :: (MonadIO m, IsMemoryOutputStream o) => o -> m MemoryOutputStream-toMemoryOutputStream = liftIO . unsafeCastTo MemoryOutputStream---- | A convenience alias for `Nothing` :: `Maybe` `MemoryOutputStream`.-noMemoryOutputStream :: Maybe MemoryOutputStream-noMemoryOutputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveMemoryOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveMemoryOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMemoryOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMemoryOutputStreamMethod "canPoll" o = Gio.PollableOutputStream.PollableOutputStreamCanPollMethodInfo-    ResolveMemoryOutputStreamMethod "canSeek" o = Gio.Seekable.SeekableCanSeekMethodInfo-    ResolveMemoryOutputStreamMethod "canTruncate" o = Gio.Seekable.SeekableCanTruncateMethodInfo-    ResolveMemoryOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo-    ResolveMemoryOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo-    ResolveMemoryOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo-    ResolveMemoryOutputStreamMethod "createSource" o = Gio.PollableOutputStream.PollableOutputStreamCreateSourceMethodInfo-    ResolveMemoryOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo-    ResolveMemoryOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo-    ResolveMemoryOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMemoryOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMemoryOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMemoryOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo-    ResolveMemoryOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo-    ResolveMemoryOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo-    ResolveMemoryOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMemoryOutputStreamMethod "isWritable" o = Gio.PollableOutputStream.PollableOutputStreamIsWritableMethodInfo-    ResolveMemoryOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMemoryOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMemoryOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMemoryOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMemoryOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMemoryOutputStreamMethod "seek" o = Gio.Seekable.SeekableSeekMethodInfo-    ResolveMemoryOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo-    ResolveMemoryOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo-    ResolveMemoryOutputStreamMethod "stealAsBytes" o = MemoryOutputStreamStealAsBytesMethodInfo-    ResolveMemoryOutputStreamMethod "stealData" o = MemoryOutputStreamStealDataMethodInfo-    ResolveMemoryOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMemoryOutputStreamMethod "tell" o = Gio.Seekable.SeekableTellMethodInfo-    ResolveMemoryOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMemoryOutputStreamMethod "truncate" o = Gio.Seekable.SeekableTruncateMethodInfo-    ResolveMemoryOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMemoryOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMemoryOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo-    ResolveMemoryOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo-    ResolveMemoryOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo-    ResolveMemoryOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo-    ResolveMemoryOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo-    ResolveMemoryOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo-    ResolveMemoryOutputStreamMethod "writeNonblocking" o = Gio.PollableOutputStream.PollableOutputStreamWriteNonblockingMethodInfo-    ResolveMemoryOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo-    ResolveMemoryOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo-    ResolveMemoryOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo-    ResolveMemoryOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo-    ResolveMemoryOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo-    ResolveMemoryOutputStreamMethod "writevNonblocking" o = Gio.PollableOutputStream.PollableOutputStreamWritevNonblockingMethodInfo-    ResolveMemoryOutputStreamMethod "getData" o = MemoryOutputStreamGetDataMethodInfo-    ResolveMemoryOutputStreamMethod "getDataSize" o = MemoryOutputStreamGetDataSizeMethodInfo-    ResolveMemoryOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMemoryOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMemoryOutputStreamMethod "getSize" o = MemoryOutputStreamGetSizeMethodInfo-    ResolveMemoryOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMemoryOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo-    ResolveMemoryOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMemoryOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMemoryOutputStreamMethod t MemoryOutputStream, O.MethodInfo info MemoryOutputStream p) => OL.IsLabel t (MemoryOutputStream -> 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---- VVV Prop "data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' memoryOutputStream #data-@--}-getMemoryOutputStreamData :: (MonadIO m, IsMemoryOutputStream o) => o -> m (Ptr ())-getMemoryOutputStreamData obj = liftIO $ B.Properties.getObjectPropertyPtr obj "data"--{- |-Construct a `GValueConstruct` with valid value for the “@data@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMemoryOutputStreamData :: (IsMemoryOutputStream o) => Ptr () -> IO (GValueConstruct o)-constructMemoryOutputStreamData val = B.Properties.constructObjectPropertyPtr "data" val--#if ENABLE_OVERLOADING-data MemoryOutputStreamDataPropertyInfo-instance AttrInfo MemoryOutputStreamDataPropertyInfo where-    type AttrAllowedOps MemoryOutputStreamDataPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MemoryOutputStreamDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint MemoryOutputStreamDataPropertyInfo = IsMemoryOutputStream-    type AttrGetType MemoryOutputStreamDataPropertyInfo = (Ptr ())-    type AttrLabel MemoryOutputStreamDataPropertyInfo = "data"-    type AttrOrigin MemoryOutputStreamDataPropertyInfo = MemoryOutputStream-    attrGet _ = getMemoryOutputStreamData-    attrSet _ = undefined-    attrConstruct _ = constructMemoryOutputStreamData-    attrClear _ = undefined-#endif---- VVV Prop "data-size"-   -- Type: TBasicType TULong-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@data-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' memoryOutputStream #dataSize-@--}-getMemoryOutputStreamDataSize :: (MonadIO m, IsMemoryOutputStream o) => o -> m CULong-getMemoryOutputStreamDataSize obj = liftIO $ B.Properties.getObjectPropertyULong obj "data-size"--#if ENABLE_OVERLOADING-data MemoryOutputStreamDataSizePropertyInfo-instance AttrInfo MemoryOutputStreamDataSizePropertyInfo where-    type AttrAllowedOps MemoryOutputStreamDataSizePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint MemoryOutputStreamDataSizePropertyInfo = (~) ()-    type AttrBaseTypeConstraint MemoryOutputStreamDataSizePropertyInfo = IsMemoryOutputStream-    type AttrGetType MemoryOutputStreamDataSizePropertyInfo = CULong-    type AttrLabel MemoryOutputStreamDataSizePropertyInfo = "data-size"-    type AttrOrigin MemoryOutputStreamDataSizePropertyInfo = MemoryOutputStream-    attrGet _ = getMemoryOutputStreamDataSize-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "size"-   -- Type: TBasicType TULong-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' memoryOutputStream #size-@--}-getMemoryOutputStreamSize :: (MonadIO m, IsMemoryOutputStream o) => o -> m CULong-getMemoryOutputStreamSize obj = liftIO $ B.Properties.getObjectPropertyULong obj "size"--{- |-Construct a `GValueConstruct` with valid value for the “@size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMemoryOutputStreamSize :: (IsMemoryOutputStream o) => CULong -> IO (GValueConstruct o)-constructMemoryOutputStreamSize val = B.Properties.constructObjectPropertyULong "size" val--#if ENABLE_OVERLOADING-data MemoryOutputStreamSizePropertyInfo-instance AttrInfo MemoryOutputStreamSizePropertyInfo where-    type AttrAllowedOps MemoryOutputStreamSizePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MemoryOutputStreamSizePropertyInfo = (~) CULong-    type AttrBaseTypeConstraint MemoryOutputStreamSizePropertyInfo = IsMemoryOutputStream-    type AttrGetType MemoryOutputStreamSizePropertyInfo = CULong-    type AttrLabel MemoryOutputStreamSizePropertyInfo = "size"-    type AttrOrigin MemoryOutputStreamSizePropertyInfo = MemoryOutputStream-    attrGet _ = getMemoryOutputStreamSize-    attrSet _ = undefined-    attrConstruct _ = constructMemoryOutputStreamSize-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList MemoryOutputStream-type instance O.AttributeList MemoryOutputStream = MemoryOutputStreamAttributeList-type MemoryOutputStreamAttributeList = ('[ '("data", MemoryOutputStreamDataPropertyInfo), '("dataSize", MemoryOutputStreamDataSizePropertyInfo), '("size", MemoryOutputStreamSizePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-memoryOutputStreamData :: AttrLabelProxy "data"-memoryOutputStreamData = AttrLabelProxy--memoryOutputStreamDataSize :: AttrLabelProxy "dataSize"-memoryOutputStreamDataSize = AttrLabelProxy--memoryOutputStreamSize :: AttrLabelProxy "size"-memoryOutputStreamSize = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList MemoryOutputStream = MemoryOutputStreamSignalList-type MemoryOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method MemoryOutputStream::new_resizable--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_memory_output_stream_new_resizable" g_memory_output_stream_new_resizable :: -    IO (Ptr MemoryOutputStream)--{- |-Creates a new 'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream', using 'GI.GLib.Functions.realloc' and 'GI.GLib.Functions.free'-for memory allocation.--/Since: 2.36/--}-memoryOutputStreamNewResizable ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m MemoryOutputStream-memoryOutputStreamNewResizable  = liftIO $ do-    result <- g_memory_output_stream_new_resizable-    checkUnexpectedReturnNULL "memoryOutputStreamNewResizable" result-    result' <- (wrapObject MemoryOutputStream) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method MemoryOutputStream::get_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ostream", argType = TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMemoryOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "g_memory_output_stream_get_data" g_memory_output_stream_get_data :: -    Ptr MemoryOutputStream ->               -- ostream : TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"})-    IO (Ptr ())--{- |-Gets any loaded data from the /@ostream@/.--Note that the returned pointer may become invalid on the next-write or truncate operation on the stream.--}-memoryOutputStreamGetData ::-    (B.CallStack.HasCallStack, MonadIO m, IsMemoryOutputStream a) =>-    a-    {- ^ /@ostream@/: a 'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream' -}-    -> m (Ptr ())-    {- ^ __Returns:__ pointer to the stream\'s data, or 'Nothing' if the data-   has been stolen -}-memoryOutputStreamGetData ostream = liftIO $ do-    ostream' <- unsafeManagedPtrCastPtr ostream-    result <- g_memory_output_stream_get_data ostream'-    touchManagedPtr ostream-    return result--#if ENABLE_OVERLOADING-data MemoryOutputStreamGetDataMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, IsMemoryOutputStream a) => O.MethodInfo MemoryOutputStreamGetDataMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamGetData--#endif---- method MemoryOutputStream::get_data_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ostream", argType = TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMemoryOutputStream", 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 "g_memory_output_stream_get_data_size" g_memory_output_stream_get_data_size :: -    Ptr MemoryOutputStream ->               -- ostream : TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"})-    IO Word64--{- |-Returns the number of bytes from the start up to including the last-byte written in the stream that has not been truncated away.--/Since: 2.18/--}-memoryOutputStreamGetDataSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsMemoryOutputStream a) =>-    a-    {- ^ /@ostream@/: a 'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream' -}-    -> m Word64-    {- ^ __Returns:__ the number of bytes written to the stream -}-memoryOutputStreamGetDataSize ostream = liftIO $ do-    ostream' <- unsafeManagedPtrCastPtr ostream-    result <- g_memory_output_stream_get_data_size ostream'-    touchManagedPtr ostream-    return result--#if ENABLE_OVERLOADING-data MemoryOutputStreamGetDataSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsMemoryOutputStream a) => O.MethodInfo MemoryOutputStreamGetDataSizeMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamGetDataSize--#endif---- method MemoryOutputStream::get_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ostream", argType = TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMemoryOutputStream", 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 "g_memory_output_stream_get_size" g_memory_output_stream_get_size :: -    Ptr MemoryOutputStream ->               -- ostream : TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"})-    IO Word64--{- |-Gets the size of the currently allocated data area (available from-'GI.Gio.Objects.MemoryOutputStream.memoryOutputStreamGetData').--You probably don\'t want to use this function on resizable streams.-See 'GI.Gio.Objects.MemoryOutputStream.memoryOutputStreamGetDataSize' instead.  For resizable-streams the size returned by this function is an implementation-detail and may be change at any time in response to operations on the-stream.--If the stream is fixed-sized (ie: no realloc was passed to-@/g_memory_output_stream_new()/@) then this is the maximum size of the-stream and further writes will return 'GI.Gio.Enums.IOErrorEnumNoSpace'.--In any case, if you want the number of bytes currently written to the-stream, use 'GI.Gio.Objects.MemoryOutputStream.memoryOutputStreamGetDataSize'.--}-memoryOutputStreamGetSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsMemoryOutputStream a) =>-    a-    {- ^ /@ostream@/: a 'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream' -}-    -> m Word64-    {- ^ __Returns:__ the number of bytes allocated for the data buffer -}-memoryOutputStreamGetSize ostream = liftIO $ do-    ostream' <- unsafeManagedPtrCastPtr ostream-    result <- g_memory_output_stream_get_size ostream'-    touchManagedPtr ostream-    return result--#if ENABLE_OVERLOADING-data MemoryOutputStreamGetSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsMemoryOutputStream a) => O.MethodInfo MemoryOutputStreamGetSizeMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamGetSize--#endif---- method MemoryOutputStream::steal_as_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ostream", argType = TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMemoryOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : False--- Skip return : False--foreign import ccall "g_memory_output_stream_steal_as_bytes" g_memory_output_stream_steal_as_bytes :: -    Ptr MemoryOutputStream ->               -- ostream : TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"})-    IO (Ptr GLib.Bytes.Bytes)--{- |-Returns data from the /@ostream@/ as a 'GI.GLib.Structs.Bytes.Bytes'. /@ostream@/ must be-closed before calling this function.--/Since: 2.34/--}-memoryOutputStreamStealAsBytes ::-    (B.CallStack.HasCallStack, MonadIO m, IsMemoryOutputStream a) =>-    a-    {- ^ /@ostream@/: a 'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream' -}-    -> m GLib.Bytes.Bytes-    {- ^ __Returns:__ the stream\'s data -}-memoryOutputStreamStealAsBytes ostream = liftIO $ do-    ostream' <- unsafeManagedPtrCastPtr ostream-    result <- g_memory_output_stream_steal_as_bytes ostream'-    checkUnexpectedReturnNULL "memoryOutputStreamStealAsBytes" result-    result' <- (wrapBoxed GLib.Bytes.Bytes) result-    touchManagedPtr ostream-    return result'--#if ENABLE_OVERLOADING-data MemoryOutputStreamStealAsBytesMethodInfo-instance (signature ~ (m GLib.Bytes.Bytes), MonadIO m, IsMemoryOutputStream a) => O.MethodInfo MemoryOutputStreamStealAsBytesMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamStealAsBytes--#endif---- method MemoryOutputStream::steal_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "ostream", argType = TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMemoryOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "g_memory_output_stream_steal_data" g_memory_output_stream_steal_data :: -    Ptr MemoryOutputStream ->               -- ostream : TInterface (Name {namespace = "Gio", name = "MemoryOutputStream"})-    IO (Ptr ())--{- |-Gets any loaded data from the /@ostream@/. Ownership of the data-is transferred to the caller; when no longer needed it must be-freed using the free function set in /@ostream@/\'s-'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream':@/destroy-function/@ property.--/@ostream@/ must be closed before calling this function.--/Since: 2.26/--}-memoryOutputStreamStealData ::-    (B.CallStack.HasCallStack, MonadIO m, IsMemoryOutputStream a) =>-    a-    {- ^ /@ostream@/: a 'GI.Gio.Objects.MemoryOutputStream.MemoryOutputStream' -}-    -> m (Ptr ())-    {- ^ __Returns:__ the stream\'s data, or 'Nothing' if it has previously-   been stolen -}-memoryOutputStreamStealData ostream = liftIO $ do-    ostream' <- unsafeManagedPtrCastPtr ostream-    result <- g_memory_output_stream_steal_data ostream'-    touchManagedPtr ostream-    return result--#if ENABLE_OVERLOADING-data MemoryOutputStreamStealDataMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, IsMemoryOutputStream a) => O.MethodInfo MemoryOutputStreamStealDataMethodInfo a signature where-    overloadedMethod _ = memoryOutputStreamStealData--#endif--
− GI/Gio/Objects/MemoryOutputStream.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.MemoryOutputStream 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 MemoryOutputStream = MemoryOutputStream (ManagedPtr MemoryOutputStream)-instance GObject MemoryOutputStream where-class (GObject o, O.IsDescendantOf MemoryOutputStream o) => IsMemoryOutputStream o-instance (GObject o, O.IsDescendantOf MemoryOutputStream o) => IsMemoryOutputStream o-instance O.HasParentTypes MemoryOutputStream-#if ENABLE_OVERLOADING-data MemoryOutputStreamDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MemoryOutputStreamDataSizePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MemoryOutputStreamSizePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MemoryOutputStreamGetDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data MemoryOutputStreamGetDataSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MemoryOutputStreamGetSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MemoryOutputStreamStealAsBytesMethodInfo-#endif-#if ENABLE_OVERLOADING-data MemoryOutputStreamStealDataMethodInfo-#endif
− GI/Gio/Objects/Menu.hs 
@@ -1,1060 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.Menu.Menu' is a simple implementation of 'GI.Gio.Objects.MenuModel.MenuModel'.-You populate a 'GI.Gio.Objects.Menu.Menu' by adding 'GI.Gio.Objects.MenuItem.MenuItem' instances to it.--There are some convenience functions to allow you to directly-add items (avoiding 'GI.Gio.Objects.MenuItem.MenuItem') for the common cases. To add-a regular item, use 'GI.Gio.Objects.Menu.menuInsert'. To add a section, use-'GI.Gio.Objects.Menu.menuInsertSection'. To add a submenu, use-'GI.Gio.Objects.Menu.menuInsertSubmenu'.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Menu-    ( ---- * Exported types-    Menu(..)                                ,-    IsMenu                                  ,-    toMenu                                  ,-    noMenu                                  ,--- -- * Methods--- ** append #method:append#--#if ENABLE_OVERLOADING-    MenuAppendMethodInfo                    ,-#endif-    menuAppend                              ,----- ** appendItem #method:appendItem#--#if ENABLE_OVERLOADING-    MenuAppendItemMethodInfo                ,-#endif-    menuAppendItem                          ,----- ** appendSection #method:appendSection#--#if ENABLE_OVERLOADING-    MenuAppendSectionMethodInfo             ,-#endif-    menuAppendSection                       ,----- ** appendSubmenu #method:appendSubmenu#--#if ENABLE_OVERLOADING-    MenuAppendSubmenuMethodInfo             ,-#endif-    menuAppendSubmenu                       ,----- ** freeze #method:freeze#--#if ENABLE_OVERLOADING-    MenuFreezeMethodInfo                    ,-#endif-    menuFreeze                              ,----- ** insert #method:insert#--#if ENABLE_OVERLOADING-    MenuInsertMethodInfo                    ,-#endif-    menuInsert                              ,----- ** insertItem #method:insertItem#--#if ENABLE_OVERLOADING-    MenuInsertItemMethodInfo                ,-#endif-    menuInsertItem                          ,----- ** insertSection #method:insertSection#--#if ENABLE_OVERLOADING-    MenuInsertSectionMethodInfo             ,-#endif-    menuInsertSection                       ,----- ** insertSubmenu #method:insertSubmenu#--#if ENABLE_OVERLOADING-    MenuInsertSubmenuMethodInfo             ,-#endif-    menuInsertSubmenu                       ,----- ** new #method:new#--    menuNew                                 ,----- ** prepend #method:prepend#--#if ENABLE_OVERLOADING-    MenuPrependMethodInfo                   ,-#endif-    menuPrepend                             ,----- ** prependItem #method:prependItem#--#if ENABLE_OVERLOADING-    MenuPrependItemMethodInfo               ,-#endif-    menuPrependItem                         ,----- ** prependSection #method:prependSection#--#if ENABLE_OVERLOADING-    MenuPrependSectionMethodInfo            ,-#endif-    menuPrependSection                      ,----- ** prependSubmenu #method:prependSubmenu#--#if ENABLE_OVERLOADING-    MenuPrependSubmenuMethodInfo            ,-#endif-    menuPrependSubmenu                      ,----- ** remove #method:remove#--#if ENABLE_OVERLOADING-    MenuRemoveMethodInfo                    ,-#endif-    menuRemove                              ,----- ** removeAll #method:removeAll#--#if ENABLE_OVERLOADING-    MenuRemoveAllMethodInfo                 ,-#endif-    menuRemoveAll                           ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.MenuItem as Gio.MenuItem-import {-# SOURCE #-} qualified GI.Gio.Objects.MenuModel as Gio.MenuModel---- | Memory-managed wrapper type.-newtype Menu = Menu (ManagedPtr Menu)-foreign import ccall "g_menu_get_type"-    c_g_menu_get_type :: IO GType--instance GObject Menu where-    gobjectType = c_g_menu_get_type-    ---- | Type class for types which can be safely cast to `Menu`, for instance with `toMenu`.-class (GObject o, O.IsDescendantOf Menu o) => IsMenu o-instance (GObject o, O.IsDescendantOf Menu o) => IsMenu o--instance O.HasParentTypes Menu-type instance O.ParentTypes Menu = '[Gio.MenuModel.MenuModel, GObject.Object.Object]---- | Cast to `Menu`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMenu :: (MonadIO m, IsMenu o) => o -> m Menu-toMenu = liftIO . unsafeCastTo Menu---- | A convenience alias for `Nothing` :: `Maybe` `Menu`.-noMenu :: Maybe Menu-noMenu = Nothing--#if ENABLE_OVERLOADING-type family ResolveMenuMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuMethod "append" o = MenuAppendMethodInfo-    ResolveMenuMethod "appendItem" o = MenuAppendItemMethodInfo-    ResolveMenuMethod "appendSection" o = MenuAppendSectionMethodInfo-    ResolveMenuMethod "appendSubmenu" o = MenuAppendSubmenuMethodInfo-    ResolveMenuMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMenuMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMenuMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMenuMethod "freeze" o = MenuFreezeMethodInfo-    ResolveMenuMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMenuMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMenuMethod "insert" o = MenuInsertMethodInfo-    ResolveMenuMethod "insertItem" o = MenuInsertItemMethodInfo-    ResolveMenuMethod "insertSection" o = MenuInsertSectionMethodInfo-    ResolveMenuMethod "insertSubmenu" o = MenuInsertSubmenuMethodInfo-    ResolveMenuMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMenuMethod "isMutable" o = Gio.MenuModel.MenuModelIsMutableMethodInfo-    ResolveMenuMethod "itemsChanged" o = Gio.MenuModel.MenuModelItemsChangedMethodInfo-    ResolveMenuMethod "iterateItemAttributes" o = Gio.MenuModel.MenuModelIterateItemAttributesMethodInfo-    ResolveMenuMethod "iterateItemLinks" o = Gio.MenuModel.MenuModelIterateItemLinksMethodInfo-    ResolveMenuMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMenuMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMenuMethod "prepend" o = MenuPrependMethodInfo-    ResolveMenuMethod "prependItem" o = MenuPrependItemMethodInfo-    ResolveMenuMethod "prependSection" o = MenuPrependSectionMethodInfo-    ResolveMenuMethod "prependSubmenu" o = MenuPrependSubmenuMethodInfo-    ResolveMenuMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMenuMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMenuMethod "remove" o = MenuRemoveMethodInfo-    ResolveMenuMethod "removeAll" o = MenuRemoveAllMethodInfo-    ResolveMenuMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMenuMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMenuMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMenuMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMenuMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMenuMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMenuMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMenuMethod "getItemAttributeValue" o = Gio.MenuModel.MenuModelGetItemAttributeValueMethodInfo-    ResolveMenuMethod "getItemLink" o = Gio.MenuModel.MenuModelGetItemLinkMethodInfo-    ResolveMenuMethod "getNItems" o = Gio.MenuModel.MenuModelGetNItemsMethodInfo-    ResolveMenuMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMenuMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMenuMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMenuMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMenuMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMenuMethod t Menu, O.MethodInfo info Menu p) => OL.IsLabel t (Menu -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList Menu-type instance O.AttributeList Menu = MenuAttributeList-type MenuAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Menu = MenuSignalList-type MenuSignalList = ('[ '("itemsChanged", Gio.MenuModel.MenuModelItemsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Menu::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Menu"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_new" g_menu_new :: -    IO (Ptr Menu)--{- |-Creates a new 'GI.Gio.Objects.Menu.Menu'.--The new menu has no items.--/Since: 2.32/--}-menuNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Menu-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Menu.Menu' -}-menuNew  = liftIO $ do-    result <- g_menu_new-    checkUnexpectedReturnNULL "menuNew" result-    result' <- (wrapObject Menu) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Menu::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the detailed action string, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_append" g_menu_append :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()--{- |-Convenience function for appending a normal menu item to the end of-/@menu@/.  Combine 'GI.Gio.Objects.MenuItem.menuItemNew' and 'GI.Gio.Objects.Menu.menuInsertItem' for a more-flexible alternative.--/Since: 2.32/--}-menuAppend ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> Maybe (T.Text)-    {- ^ /@detailedAction@/: the detailed action string, or 'Nothing' -}-    -> m ()-menuAppend menu label detailedAction = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    maybeDetailedAction <- case detailedAction of-        Nothing -> return nullPtr-        Just jDetailedAction -> do-            jDetailedAction' <- textToCString jDetailedAction-            return jDetailedAction'-    g_menu_append menu' maybeLabel maybeDetailedAction-    touchManagedPtr menu-    freeMem maybeLabel-    freeMem maybeDetailedAction-    return ()--#if ENABLE_OVERLOADING-data MenuAppendMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuAppendMethodInfo a signature where-    overloadedMethod _ = menuAppend--#endif---- method Menu::append_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem to append", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_append_item" g_menu_append_item :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    Ptr Gio.MenuItem.MenuItem ->            -- item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    IO ()--{- |-Appends /@item@/ to the end of /@menu@/.--See 'GI.Gio.Objects.Menu.menuInsertItem' for more information.--/Since: 2.32/--}-menuAppendItem ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuItem.IsMenuItem b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> b-    {- ^ /@item@/: a 'GI.Gio.Objects.MenuItem.MenuItem' to append -}-    -> m ()-menuAppendItem menu item = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    item' <- unsafeManagedPtrCastPtr item-    g_menu_append_item menu' item'-    touchManagedPtr menu-    touchManagedPtr item-    return ()--#if ENABLE_OVERLOADING-data MenuAppendItemMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsMenu a, Gio.MenuItem.IsMenuItem b) => O.MethodInfo MenuAppendItemMethodInfo a signature where-    overloadedMethod _ = menuAppendItem--#endif---- method Menu::append_section--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel with the items of the section", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_append_section" g_menu_append_section :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    CString ->                              -- label : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- section : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Convenience function for appending a section menu item to the end of-/@menu@/.  Combine 'GI.Gio.Objects.MenuItem.menuItemNewSection' and 'GI.Gio.Objects.Menu.menuInsertItem' for a-more flexible alternative.--/Since: 2.32/--}-menuAppendSection ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> b-    {- ^ /@section@/: a 'GI.Gio.Objects.MenuModel.MenuModel' with the items of the section -}-    -> m ()-menuAppendSection menu label section = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    section' <- unsafeManagedPtrCastPtr section-    g_menu_append_section menu' maybeLabel section'-    touchManagedPtr menu-    touchManagedPtr section-    freeMem maybeLabel-    return ()--#if ENABLE_OVERLOADING-data MenuAppendSectionMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuAppendSectionMethodInfo a signature where-    overloadedMethod _ = menuAppendSection--#endif---- method Menu::append_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel with the items of the submenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_append_submenu" g_menu_append_submenu :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    CString ->                              -- label : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- submenu : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Convenience function for appending a submenu menu item to the end of-/@menu@/.  Combine 'GI.Gio.Objects.MenuItem.menuItemNewSubmenu' and 'GI.Gio.Objects.Menu.menuInsertItem' for a-more flexible alternative.--/Since: 2.32/--}-menuAppendSubmenu ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> b-    {- ^ /@submenu@/: a 'GI.Gio.Objects.MenuModel.MenuModel' with the items of the submenu -}-    -> m ()-menuAppendSubmenu menu label submenu = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    submenu' <- unsafeManagedPtrCastPtr submenu-    g_menu_append_submenu menu' maybeLabel submenu'-    touchManagedPtr menu-    touchManagedPtr submenu-    freeMem maybeLabel-    return ()--#if ENABLE_OVERLOADING-data MenuAppendSubmenuMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuAppendSubmenuMethodInfo a signature where-    overloadedMethod _ = menuAppendSubmenu--#endif---- method Menu::freeze--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_freeze" g_menu_freeze :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    IO ()--{- |-Marks /@menu@/ as frozen.--After the menu is frozen, it is an error to attempt to make any-changes to it.  In effect this means that the 'GI.Gio.Objects.Menu.Menu' API must no-longer be used.--This function causes 'GI.Gio.Objects.MenuModel.menuModelIsMutable' to begin returning-'False', which has some positive performance implications.--/Since: 2.32/--}-menuFreeze ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> m ()-menuFreeze menu = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    g_menu_freeze menu'-    touchManagedPtr menu-    return ()--#if ENABLE_OVERLOADING-data MenuFreezeMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuFreezeMethodInfo a signature where-    overloadedMethod _ = menuFreeze--#endif---- method Menu::insert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position at which to insert the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the detailed action string, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_insert" g_menu_insert :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    Int32 ->                                -- position : TBasicType TInt-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()--{- |-Convenience function for inserting a normal menu item into /@menu@/.-Combine 'GI.Gio.Objects.MenuItem.menuItemNew' and 'GI.Gio.Objects.Menu.menuInsertItem' for a more flexible-alternative.--/Since: 2.32/--}-menuInsert ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Int32-    {- ^ /@position@/: the position at which to insert the item -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> Maybe (T.Text)-    {- ^ /@detailedAction@/: the detailed action string, or 'Nothing' -}-    -> m ()-menuInsert menu position label detailedAction = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    maybeDetailedAction <- case detailedAction of-        Nothing -> return nullPtr-        Just jDetailedAction -> do-            jDetailedAction' <- textToCString jDetailedAction-            return jDetailedAction'-    g_menu_insert menu' position maybeLabel maybeDetailedAction-    touchManagedPtr menu-    freeMem maybeLabel-    freeMem maybeDetailedAction-    return ()--#if ENABLE_OVERLOADING-data MenuInsertMethodInfo-instance (signature ~ (Int32 -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuInsertMethodInfo a signature where-    overloadedMethod _ = menuInsert--#endif---- method Menu::insert_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position at which to insert the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GMenuItem to insert", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_insert_item" g_menu_insert_item :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    Int32 ->                                -- position : TBasicType TInt-    Ptr Gio.MenuItem.MenuItem ->            -- item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    IO ()--{- |-Inserts /@item@/ into /@menu@/.--The \"insertion\" is actually done by copying all of the attribute and-link values of /@item@/ and using them to form a new item within /@menu@/.-As such, /@item@/ itself is not really inserted, but rather, a menu item-that is exactly the same as the one presently described by /@item@/.--This means that /@item@/ is essentially useless after the insertion-occurs.  Any changes you make to it are ignored unless it is inserted-again (at which point its updated values will be copied).--You should probably just free /@item@/ once you\'re done.--There are many convenience functions to take care of common cases.-See 'GI.Gio.Objects.Menu.menuInsert', 'GI.Gio.Objects.Menu.menuInsertSection' and-'GI.Gio.Objects.Menu.menuInsertSubmenu' as well as \"prepend\" and \"append\" variants of-each of these functions.--/Since: 2.32/--}-menuInsertItem ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuItem.IsMenuItem b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Int32-    {- ^ /@position@/: the position at which to insert the item -}-    -> b-    {- ^ /@item@/: the 'GI.Gio.Objects.MenuItem.MenuItem' to insert -}-    -> m ()-menuInsertItem menu position item = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    item' <- unsafeManagedPtrCastPtr item-    g_menu_insert_item menu' position item'-    touchManagedPtr menu-    touchManagedPtr item-    return ()--#if ENABLE_OVERLOADING-data MenuInsertItemMethodInfo-instance (signature ~ (Int32 -> b -> m ()), MonadIO m, IsMenu a, Gio.MenuItem.IsMenuItem b) => O.MethodInfo MenuInsertItemMethodInfo a signature where-    overloadedMethod _ = menuInsertItem--#endif---- method Menu::insert_section--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position at which to insert the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel with the items of the section", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_insert_section" g_menu_insert_section :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    Int32 ->                                -- position : TBasicType TInt-    CString ->                              -- label : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- section : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Convenience function for inserting a section menu item into /@menu@/.-Combine 'GI.Gio.Objects.MenuItem.menuItemNewSection' and 'GI.Gio.Objects.Menu.menuInsertItem' for a more-flexible alternative.--/Since: 2.32/--}-menuInsertSection ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Int32-    {- ^ /@position@/: the position at which to insert the item -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> b-    {- ^ /@section@/: a 'GI.Gio.Objects.MenuModel.MenuModel' with the items of the section -}-    -> m ()-menuInsertSection menu position label section = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    section' <- unsafeManagedPtrCastPtr section-    g_menu_insert_section menu' position maybeLabel section'-    touchManagedPtr menu-    touchManagedPtr section-    freeMem maybeLabel-    return ()--#if ENABLE_OVERLOADING-data MenuInsertSectionMethodInfo-instance (signature ~ (Int32 -> Maybe (T.Text) -> b -> m ()), MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuInsertSectionMethodInfo a signature where-    overloadedMethod _ = menuInsertSection--#endif---- method Menu::insert_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position at which to insert the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel with the items of the submenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_insert_submenu" g_menu_insert_submenu :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    Int32 ->                                -- position : TBasicType TInt-    CString ->                              -- label : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- submenu : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Convenience function for inserting a submenu menu item into /@menu@/.-Combine 'GI.Gio.Objects.MenuItem.menuItemNewSubmenu' and 'GI.Gio.Objects.Menu.menuInsertItem' for a more-flexible alternative.--/Since: 2.32/--}-menuInsertSubmenu ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Int32-    {- ^ /@position@/: the position at which to insert the item -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> b-    {- ^ /@submenu@/: a 'GI.Gio.Objects.MenuModel.MenuModel' with the items of the submenu -}-    -> m ()-menuInsertSubmenu menu position label submenu = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    submenu' <- unsafeManagedPtrCastPtr submenu-    g_menu_insert_submenu menu' position maybeLabel submenu'-    touchManagedPtr menu-    touchManagedPtr submenu-    freeMem maybeLabel-    return ()--#if ENABLE_OVERLOADING-data MenuInsertSubmenuMethodInfo-instance (signature ~ (Int32 -> Maybe (T.Text) -> b -> m ()), MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuInsertSubmenuMethodInfo a signature where-    overloadedMethod _ = menuInsertSubmenu--#endif---- method Menu::prepend--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the detailed action string, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_prepend" g_menu_prepend :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()--{- |-Convenience function for prepending a normal menu item to the start-of /@menu@/.  Combine 'GI.Gio.Objects.MenuItem.menuItemNew' and 'GI.Gio.Objects.Menu.menuInsertItem' for a more-flexible alternative.--/Since: 2.32/--}-menuPrepend ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> Maybe (T.Text)-    {- ^ /@detailedAction@/: the detailed action string, or 'Nothing' -}-    -> m ()-menuPrepend menu label detailedAction = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    maybeDetailedAction <- case detailedAction of-        Nothing -> return nullPtr-        Just jDetailedAction -> do-            jDetailedAction' <- textToCString jDetailedAction-            return jDetailedAction'-    g_menu_prepend menu' maybeLabel maybeDetailedAction-    touchManagedPtr menu-    freeMem maybeLabel-    freeMem maybeDetailedAction-    return ()--#if ENABLE_OVERLOADING-data MenuPrependMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuPrependMethodInfo a signature where-    overloadedMethod _ = menuPrepend--#endif---- method Menu::prepend_item--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem to prepend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_prepend_item" g_menu_prepend_item :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    Ptr Gio.MenuItem.MenuItem ->            -- item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    IO ()--{- |-Prepends /@item@/ to the start of /@menu@/.--See 'GI.Gio.Objects.Menu.menuInsertItem' for more information.--/Since: 2.32/--}-menuPrependItem ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuItem.IsMenuItem b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> b-    {- ^ /@item@/: a 'GI.Gio.Objects.MenuItem.MenuItem' to prepend -}-    -> m ()-menuPrependItem menu item = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    item' <- unsafeManagedPtrCastPtr item-    g_menu_prepend_item menu' item'-    touchManagedPtr menu-    touchManagedPtr item-    return ()--#if ENABLE_OVERLOADING-data MenuPrependItemMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsMenu a, Gio.MenuItem.IsMenuItem b) => O.MethodInfo MenuPrependItemMethodInfo a signature where-    overloadedMethod _ = menuPrependItem--#endif---- method Menu::prepend_section--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel with the items of the section", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_prepend_section" g_menu_prepend_section :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    CString ->                              -- label : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- section : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Convenience function for prepending a section menu item to the start-of /@menu@/.  Combine 'GI.Gio.Objects.MenuItem.menuItemNewSection' and 'GI.Gio.Objects.Menu.menuInsertItem' for-a more flexible alternative.--/Since: 2.32/--}-menuPrependSection ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> b-    {- ^ /@section@/: a 'GI.Gio.Objects.MenuModel.MenuModel' with the items of the section -}-    -> m ()-menuPrependSection menu label section = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    section' <- unsafeManagedPtrCastPtr section-    g_menu_prepend_section menu' maybeLabel section'-    touchManagedPtr menu-    touchManagedPtr section-    freeMem maybeLabel-    return ()--#if ENABLE_OVERLOADING-data MenuPrependSectionMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuPrependSectionMethodInfo a signature where-    overloadedMethod _ = menuPrependSection--#endif---- method Menu::prepend_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel with the items of the submenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_prepend_submenu" g_menu_prepend_submenu :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    CString ->                              -- label : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- submenu : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Convenience function for prepending a submenu menu item to the start-of /@menu@/.  Combine 'GI.Gio.Objects.MenuItem.menuItemNewSubmenu' and 'GI.Gio.Objects.Menu.menuInsertItem' for-a more flexible alternative.--/Since: 2.32/--}-menuPrependSubmenu ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> b-    {- ^ /@submenu@/: a 'GI.Gio.Objects.MenuModel.MenuModel' with the items of the submenu -}-    -> m ()-menuPrependSubmenu menu label submenu = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    submenu' <- unsafeManagedPtrCastPtr submenu-    g_menu_prepend_submenu menu' maybeLabel submenu'-    touchManagedPtr menu-    touchManagedPtr submenu-    freeMem maybeLabel-    return ()--#if ENABLE_OVERLOADING-data MenuPrependSubmenuMethodInfo-instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, IsMenu a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuPrependSubmenuMethodInfo a signature where-    overloadedMethod _ = menuPrependSubmenu--#endif---- method Menu::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position of the item to remove", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_remove" g_menu_remove :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    Int32 ->                                -- position : TBasicType TInt-    IO ()--{- |-Removes an item from the menu.--/@position@/ gives the index of the item to remove.--It is an error if position is not in range the range from 0 to one-less than the number of items in the menu.--It is not possible to remove items by identity since items are added-to the menu simply by copying their links and attributes (ie:-identity of the item itself is not preserved).--/Since: 2.32/--}-menuRemove ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> Int32-    {- ^ /@position@/: the position of the item to remove -}-    -> m ()-menuRemove menu position = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    g_menu_remove menu' position-    touchManagedPtr menu-    return ()--#if ENABLE_OVERLOADING-data MenuRemoveMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuRemoveMethodInfo a signature where-    overloadedMethod _ = menuRemove--#endif---- method Menu::remove_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gio", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_remove_all" g_menu_remove_all :: -    Ptr Menu ->                             -- menu : TInterface (Name {namespace = "Gio", name = "Menu"})-    IO ()--{- |-Removes all items in the menu.--/Since: 2.38/--}-menuRemoveAll ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenu a) =>-    a-    {- ^ /@menu@/: a 'GI.Gio.Objects.Menu.Menu' -}-    -> m ()-menuRemoveAll menu = liftIO $ do-    menu' <- unsafeManagedPtrCastPtr menu-    g_menu_remove_all menu'-    touchManagedPtr menu-    return ()--#if ENABLE_OVERLOADING-data MenuRemoveAllMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMenu a) => O.MethodInfo MenuRemoveAllMethodInfo a signature where-    overloadedMethod _ = menuRemoveAll--#endif--
− GI/Gio/Objects/Menu.hs-boot 
@@ -1,74 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Menu 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 Menu = Menu (ManagedPtr Menu)-instance GObject Menu where-class (GObject o, O.IsDescendantOf Menu o) => IsMenu o-instance (GObject o, O.IsDescendantOf Menu o) => IsMenu o-instance O.HasParentTypes Menu-#if ENABLE_OVERLOADING-data MenuAppendMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuAppendItemMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuAppendSectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuAppendSubmenuMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuFreezeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuInsertMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuInsertItemMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuInsertSectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuInsertSubmenuMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuPrependMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuPrependItemMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuPrependSectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuPrependSubmenuMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuRemoveMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuRemoveAllMethodInfo-#endif
− GI/Gio/Objects/MenuAttributeIter.hs 
@@ -1,351 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.MenuAttributeIter.MenuAttributeIter' is an opaque structure type.  You must access it-using the functions below.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.MenuAttributeIter-    ( ---- * Exported types-    MenuAttributeIter(..)                   ,-    IsMenuAttributeIter                     ,-    toMenuAttributeIter                     ,-    noMenuAttributeIter                     ,--- -- * Methods--- ** getName #method:getName#--#if ENABLE_OVERLOADING-    MenuAttributeIterGetNameMethodInfo      ,-#endif-    menuAttributeIterGetName                ,----- ** getNext #method:getNext#--#if ENABLE_OVERLOADING-    MenuAttributeIterGetNextMethodInfo      ,-#endif-    menuAttributeIterGetNext                ,----- ** getValue #method:getValue#--#if ENABLE_OVERLOADING-    MenuAttributeIterGetValueMethodInfo     ,-#endif-    menuAttributeIterGetValue               ,----- ** next #method:next#--#if ENABLE_OVERLOADING-    MenuAttributeIterNextMethodInfo         ,-#endif-    menuAttributeIterNext                   ,-----    ) 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 MenuAttributeIter = MenuAttributeIter (ManagedPtr MenuAttributeIter)-foreign import ccall "g_menu_attribute_iter_get_type"-    c_g_menu_attribute_iter_get_type :: IO GType--instance GObject MenuAttributeIter where-    gobjectType = c_g_menu_attribute_iter_get_type-    ---- | Type class for types which can be safely cast to `MenuAttributeIter`, for instance with `toMenuAttributeIter`.-class (GObject o, O.IsDescendantOf MenuAttributeIter o) => IsMenuAttributeIter o-instance (GObject o, O.IsDescendantOf MenuAttributeIter o) => IsMenuAttributeIter o--instance O.HasParentTypes MenuAttributeIter-type instance O.ParentTypes MenuAttributeIter = '[GObject.Object.Object]---- | Cast to `MenuAttributeIter`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMenuAttributeIter :: (MonadIO m, IsMenuAttributeIter o) => o -> m MenuAttributeIter-toMenuAttributeIter = liftIO . unsafeCastTo MenuAttributeIter---- | A convenience alias for `Nothing` :: `Maybe` `MenuAttributeIter`.-noMenuAttributeIter :: Maybe MenuAttributeIter-noMenuAttributeIter = Nothing--#if ENABLE_OVERLOADING-type family ResolveMenuAttributeIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuAttributeIterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMenuAttributeIterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMenuAttributeIterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMenuAttributeIterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMenuAttributeIterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMenuAttributeIterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMenuAttributeIterMethod "next" o = MenuAttributeIterNextMethodInfo-    ResolveMenuAttributeIterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMenuAttributeIterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMenuAttributeIterMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMenuAttributeIterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMenuAttributeIterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMenuAttributeIterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMenuAttributeIterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMenuAttributeIterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMenuAttributeIterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMenuAttributeIterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMenuAttributeIterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMenuAttributeIterMethod "getName" o = MenuAttributeIterGetNameMethodInfo-    ResolveMenuAttributeIterMethod "getNext" o = MenuAttributeIterGetNextMethodInfo-    ResolveMenuAttributeIterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMenuAttributeIterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMenuAttributeIterMethod "getValue" o = MenuAttributeIterGetValueMethodInfo-    ResolveMenuAttributeIterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMenuAttributeIterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMenuAttributeIterMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMenuAttributeIterMethod t MenuAttributeIter, O.MethodInfo info MenuAttributeIter p) => OL.IsLabel t (MenuAttributeIter -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList MenuAttributeIter-type instance O.AttributeList MenuAttributeIter = MenuAttributeIterAttributeList-type MenuAttributeIterAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList MenuAttributeIter = MenuAttributeIterSignalList-type MenuAttributeIterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method MenuAttributeIter::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuAttributeIter", 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 "g_menu_attribute_iter_get_name" g_menu_attribute_iter_get_name :: -    Ptr MenuAttributeIter ->                -- iter : TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"})-    IO CString--{- |-Gets the name of the attribute at the current iterator position, as-a string.--The iterator is not advanced.--/Since: 2.32/--}-menuAttributeIterGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuAttributeIter a) =>-    a-    {- ^ /@iter@/: a 'GI.Gio.Objects.MenuAttributeIter.MenuAttributeIter' -}-    -> m T.Text-    {- ^ __Returns:__ the name of the attribute -}-menuAttributeIterGetName iter = liftIO $ do-    iter' <- unsafeManagedPtrCastPtr iter-    result <- g_menu_attribute_iter_get_name iter'-    checkUnexpectedReturnNULL "menuAttributeIterGetName" result-    result' <- cstringToText result-    touchManagedPtr iter-    return result'--#if ENABLE_OVERLOADING-data MenuAttributeIterGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsMenuAttributeIter a) => O.MethodInfo MenuAttributeIterGetNameMethodInfo a signature where-    overloadedMethod _ = menuAttributeIterGetName--#endif---- method MenuAttributeIter::get_next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuAttributeIter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of the attribute", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the attribute value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "g_menu_attribute_iter_get_next" g_menu_attribute_iter_get_next :: -    Ptr MenuAttributeIter ->                -- iter : TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"})-    Ptr CString ->                          -- out_name : TBasicType TUTF8-    Ptr (Ptr GVariant) ->                   -- value : TVariant-    IO CInt--{- |-This function combines 'GI.Gio.Objects.MenuAttributeIter.menuAttributeIterNext' with-'GI.Gio.Objects.MenuAttributeIter.menuAttributeIterGetName' and 'GI.Gio.Objects.MenuAttributeIter.menuAttributeIterGetValue'.--First the iterator is advanced to the next (possibly first) attribute.-If that fails, then 'False' is returned and there are no other-effects.--If successful, /@name@/ and /@value@/ are set to the name and value of the-attribute that has just been advanced to.  At this point,-'GI.Gio.Objects.MenuAttributeIter.menuAttributeIterGetName' and 'GI.Gio.Objects.MenuAttributeIter.menuAttributeIterGetValue' will-return the same values again.--The value returned in /@name@/ remains valid for as long as the iterator-remains at the current position.  The value returned in /@value@/ must-be unreffed using 'GI.GLib.Structs.Variant.variantUnref' when it is no longer in use.--/Since: 2.32/--}-menuAttributeIterGetNext ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuAttributeIter a) =>-    a-    {- ^ /@iter@/: a 'GI.Gio.Objects.MenuAttributeIter.MenuAttributeIter' -}-    -> m ((Bool, T.Text, GVariant))-    {- ^ __Returns:__ 'True' on success, or 'False' if there is no additional-    attribute -}-menuAttributeIterGetNext iter = liftIO $ do-    iter' <- unsafeManagedPtrCastPtr iter-    outName <- allocMem :: IO (Ptr CString)-    value <- allocMem :: IO (Ptr (Ptr GVariant))-    result <- g_menu_attribute_iter_get_next iter' outName value-    let result' = (/= 0) result-    outName' <- peek outName-    outName'' <- cstringToText outName'-    value' <- peek value-    value'' <- B.GVariant.wrapGVariantPtr value'-    touchManagedPtr iter-    freeMem outName-    freeMem value-    return (result', outName'', value'')--#if ENABLE_OVERLOADING-data MenuAttributeIterGetNextMethodInfo-instance (signature ~ (m ((Bool, T.Text, GVariant))), MonadIO m, IsMenuAttributeIter a) => O.MethodInfo MenuAttributeIterGetNextMethodInfo a signature where-    overloadedMethod _ = menuAttributeIterGetNext--#endif---- method MenuAttributeIter::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuAttributeIter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_menu_attribute_iter_get_value" g_menu_attribute_iter_get_value :: -    Ptr MenuAttributeIter ->                -- iter : TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"})-    IO (Ptr GVariant)--{- |-Gets the value of the attribute at the current iterator position.--The iterator is not advanced.--/Since: 2.32/--}-menuAttributeIterGetValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuAttributeIter a) =>-    a-    {- ^ /@iter@/: a 'GI.Gio.Objects.MenuAttributeIter.MenuAttributeIter' -}-    -> m GVariant-    {- ^ __Returns:__ the value of the current attribute -}-menuAttributeIterGetValue iter = liftIO $ do-    iter' <- unsafeManagedPtrCastPtr iter-    result <- g_menu_attribute_iter_get_value iter'-    checkUnexpectedReturnNULL "menuAttributeIterGetValue" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr iter-    return result'--#if ENABLE_OVERLOADING-data MenuAttributeIterGetValueMethodInfo-instance (signature ~ (m GVariant), MonadIO m, IsMenuAttributeIter a) => O.MethodInfo MenuAttributeIterGetValueMethodInfo a signature where-    overloadedMethod _ = menuAttributeIterGetValue--#endif---- method MenuAttributeIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuAttributeIter", 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 "g_menu_attribute_iter_next" g_menu_attribute_iter_next :: -    Ptr MenuAttributeIter ->                -- iter : TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"})-    IO CInt--{- |-Attempts to advance the iterator to the next (possibly first)-attribute.--'True' is returned on success, or 'False' if there are no more-attributes.--You must call this function when you first acquire the iterator-to advance it to the first attribute (and determine if the first-attribute exists at all).--/Since: 2.32/--}-menuAttributeIterNext ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuAttributeIter a) =>-    a-    {- ^ /@iter@/: a 'GI.Gio.Objects.MenuAttributeIter.MenuAttributeIter' -}-    -> m Bool-    {- ^ __Returns:__ 'True' on success, or 'False' when there are no more attributes -}-menuAttributeIterNext iter = liftIO $ do-    iter' <- unsafeManagedPtrCastPtr iter-    result <- g_menu_attribute_iter_next iter'-    let result' = (/= 0) result-    touchManagedPtr iter-    return result'--#if ENABLE_OVERLOADING-data MenuAttributeIterNextMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMenuAttributeIter a) => O.MethodInfo MenuAttributeIterNextMethodInfo a signature where-    overloadedMethod _ = menuAttributeIterNext--#endif--
− GI/Gio/Objects/MenuAttributeIter.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.MenuAttributeIter 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 MenuAttributeIter = MenuAttributeIter (ManagedPtr MenuAttributeIter)-instance GObject MenuAttributeIter where-class (GObject o, O.IsDescendantOf MenuAttributeIter o) => IsMenuAttributeIter o-instance (GObject o, O.IsDescendantOf MenuAttributeIter o) => IsMenuAttributeIter o-instance O.HasParentTypes MenuAttributeIter-#if ENABLE_OVERLOADING-data MenuAttributeIterGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuAttributeIterGetNextMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuAttributeIterGetValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuAttributeIterNextMethodInfo-#endif
− GI/Gio/Objects/MenuItem.hs 
@@ -1,1043 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.MenuItem.MenuItem' is an opaque structure type.  You must access it using the-functions below.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.MenuItem-    ( ---- * Exported types-    MenuItem(..)                            ,-    IsMenuItem                              ,-    toMenuItem                              ,-    noMenuItem                              ,--- -- * Methods--- ** getAttributeValue #method:getAttributeValue#--#if ENABLE_OVERLOADING-    MenuItemGetAttributeValueMethodInfo     ,-#endif-    menuItemGetAttributeValue               ,----- ** getLink #method:getLink#--#if ENABLE_OVERLOADING-    MenuItemGetLinkMethodInfo               ,-#endif-    menuItemGetLink                         ,----- ** new #method:new#--    menuItemNew                             ,----- ** newFromModel #method:newFromModel#--    menuItemNewFromModel                    ,----- ** newSection #method:newSection#--    menuItemNewSection                      ,----- ** newSubmenu #method:newSubmenu#--    menuItemNewSubmenu                      ,----- ** setActionAndTargetValue #method:setActionAndTargetValue#--#if ENABLE_OVERLOADING-    MenuItemSetActionAndTargetValueMethodInfo,-#endif-    menuItemSetActionAndTargetValue         ,----- ** setAttributeValue #method:setAttributeValue#--#if ENABLE_OVERLOADING-    MenuItemSetAttributeValueMethodInfo     ,-#endif-    menuItemSetAttributeValue               ,----- ** setDetailedAction #method:setDetailedAction#--#if ENABLE_OVERLOADING-    MenuItemSetDetailedActionMethodInfo     ,-#endif-    menuItemSetDetailedAction               ,----- ** setIcon #method:setIcon#--#if ENABLE_OVERLOADING-    MenuItemSetIconMethodInfo               ,-#endif-    menuItemSetIcon                         ,----- ** setLabel #method:setLabel#--#if ENABLE_OVERLOADING-    MenuItemSetLabelMethodInfo              ,-#endif-    menuItemSetLabel                        ,----- ** setLink #method:setLink#--#if ENABLE_OVERLOADING-    MenuItemSetLinkMethodInfo               ,-#endif-    menuItemSetLink                         ,----- ** setSection #method:setSection#--#if ENABLE_OVERLOADING-    MenuItemSetSectionMethodInfo            ,-#endif-    menuItemSetSection                      ,----- ** setSubmenu #method:setSubmenu#--#if ENABLE_OVERLOADING-    MenuItemSetSubmenuMethodInfo            ,-#endif-    menuItemSetSubmenu                      ,-----    ) 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.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon-import {-# SOURCE #-} qualified GI.Gio.Objects.MenuModel as Gio.MenuModel---- | Memory-managed wrapper type.-newtype MenuItem = MenuItem (ManagedPtr MenuItem)-foreign import ccall "g_menu_item_get_type"-    c_g_menu_item_get_type :: IO GType--instance GObject MenuItem where-    gobjectType = c_g_menu_item_get_type-    ---- | Type class for types which can be safely cast to `MenuItem`, for instance with `toMenuItem`.-class (GObject o, O.IsDescendantOf MenuItem o) => IsMenuItem o-instance (GObject o, O.IsDescendantOf MenuItem o) => IsMenuItem o--instance O.HasParentTypes MenuItem-type instance O.ParentTypes MenuItem = '[GObject.Object.Object]---- | Cast to `MenuItem`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMenuItem :: (MonadIO m, IsMenuItem o) => o -> m MenuItem-toMenuItem = liftIO . unsafeCastTo MenuItem---- | A convenience alias for `Nothing` :: `Maybe` `MenuItem`.-noMenuItem :: Maybe MenuItem-noMenuItem = Nothing--#if ENABLE_OVERLOADING-type family ResolveMenuItemMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuItemMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMenuItemMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMenuItemMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMenuItemMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMenuItemMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMenuItemMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMenuItemMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMenuItemMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMenuItemMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMenuItemMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMenuItemMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMenuItemMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMenuItemMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMenuItemMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMenuItemMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMenuItemMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMenuItemMethod "getAttributeValue" o = MenuItemGetAttributeValueMethodInfo-    ResolveMenuItemMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMenuItemMethod "getLink" o = MenuItemGetLinkMethodInfo-    ResolveMenuItemMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMenuItemMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMenuItemMethod "setActionAndTargetValue" o = MenuItemSetActionAndTargetValueMethodInfo-    ResolveMenuItemMethod "setAttributeValue" o = MenuItemSetAttributeValueMethodInfo-    ResolveMenuItemMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMenuItemMethod "setDetailedAction" o = MenuItemSetDetailedActionMethodInfo-    ResolveMenuItemMethod "setIcon" o = MenuItemSetIconMethodInfo-    ResolveMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo-    ResolveMenuItemMethod "setLink" o = MenuItemSetLinkMethodInfo-    ResolveMenuItemMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMenuItemMethod "setSection" o = MenuItemSetSectionMethodInfo-    ResolveMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo-    ResolveMenuItemMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMenuItemMethod t MenuItem, O.MethodInfo info MenuItem p) => OL.IsLabel t (MenuItem -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList MenuItem-type instance O.AttributeList MenuItem = MenuItemAttributeList-type MenuItemAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList MenuItem = MenuItemSignalList-type MenuItemSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method MenuItem::new--- method type : Constructor--- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the detailed action string, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuItem"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_new" g_menu_item_new :: -    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO (Ptr MenuItem)--{- |-Creates a new 'GI.Gio.Objects.MenuItem.MenuItem'.--If /@label@/ is non-'Nothing' it is used to set the \"label\" attribute of the-new item.--If /@detailedAction@/ is non-'Nothing' it is used to set the \"action\" and-possibly the \"target\" attribute of the new item.  See-'GI.Gio.Objects.MenuItem.menuItemSetDetailedAction' for more information.--/Since: 2.32/--}-menuItemNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> Maybe (T.Text)-    {- ^ /@detailedAction@/: the detailed action string, or 'Nothing' -}-    -> m MenuItem-    {- ^ __Returns:__ a new 'GI.Gio.Objects.MenuItem.MenuItem' -}-menuItemNew label detailedAction = liftIO $ do-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    maybeDetailedAction <- case detailedAction of-        Nothing -> return nullPtr-        Just jDetailedAction -> do-            jDetailedAction' <- textToCString jDetailedAction-            return jDetailedAction'-    result <- g_menu_item_new maybeLabel maybeDetailedAction-    checkUnexpectedReturnNULL "menuItemNew" result-    result' <- (wrapObject MenuItem) result-    freeMem maybeLabel-    freeMem maybeDetailedAction-    return result'--#if ENABLE_OVERLOADING-#endif---- method MenuItem::new_from_model--- method type : Constructor--- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of an item in @model", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuItem"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_new_from_model" g_menu_item_new_from_model :: -    Ptr Gio.MenuModel.MenuModel ->          -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    Int32 ->                                -- item_index : TBasicType TInt-    IO (Ptr MenuItem)--{- |-Creates a 'GI.Gio.Objects.MenuItem.MenuItem' as an exact copy of an existing menu item in a-'GI.Gio.Objects.MenuModel.MenuModel'.--/@itemIndex@/ must be valid (ie: be sure to call-'GI.Gio.Objects.MenuModel.menuModelGetNItems' first).--/Since: 2.34/--}-menuItemNewFromModel ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.MenuModel.IsMenuModel a) =>-    a-    {- ^ /@model@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> Int32-    {- ^ /@itemIndex@/: the index of an item in /@model@/ -}-    -> m MenuItem-    {- ^ __Returns:__ a new 'GI.Gio.Objects.MenuItem.MenuItem'. -}-menuItemNewFromModel model itemIndex = liftIO $ do-    model' <- unsafeManagedPtrCastPtr model-    result <- g_menu_item_new_from_model model' itemIndex-    checkUnexpectedReturnNULL "menuItemNewFromModel" result-    result' <- (wrapObject MenuItem) result-    touchManagedPtr model-    return result'--#if ENABLE_OVERLOADING-#endif---- method MenuItem::new_section--- method type : Constructor--- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel with the items of the section", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuItem"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_new_section" g_menu_item_new_section :: -    CString ->                              -- label : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- section : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO (Ptr MenuItem)--{- |-Creates a new 'GI.Gio.Objects.MenuItem.MenuItem' representing a section.--This is a convenience API around 'GI.Gio.Objects.MenuItem.menuItemNew' and-'GI.Gio.Objects.MenuItem.menuItemSetSection'.--The effect of having one menu appear as a section of another is-exactly as it sounds: the items from /@section@/ become a direct part of-the menu that /@menuItem@/ is added to.--Visual separation is typically displayed between two non-empty-sections.  If /@label@/ is non-'Nothing' then it will be encorporated into-this visual indication.  This allows for labeled subsections of a-menu.--As a simple example, consider a typical \"Edit\" menu from a simple-program.  It probably contains an \"Undo\" and \"Redo\" item, followed by-a separator, followed by \"Cut\", \"Copy\" and \"Paste\".--This would be accomplished by creating three 'GI.Gio.Objects.Menu.Menu' instances.  The-first would be populated with the \"Undo\" and \"Redo\" items, and the-second with the \"Cut\", \"Copy\" and \"Paste\" items.  The first and-second menus would then be added as submenus of the third.  In XML-format, this would look something like the following:->-><menu id='edit-menu'>->  <section>->    <item label='Undo'/>->    <item label='Redo'/>->  </section>->  <section>->    <item label='Cut'/>->    <item label='Copy'/>->    <item label='Paste'/>->  </section>-></menu>---The following example is exactly equivalent.  It is more illustrative-of the exact relationship between the menus and items (keeping in-mind that the \'link\' element defines a new menu that is linked to the-containing one).  The style of the second example is more verbose and-difficult to read (and therefore not recommended except for the-purpose of understanding what is really going on).->-><menu id='edit-menu'>->  <item>->    <link name='section'>->      <item label='Undo'/>->      <item label='Redo'/>->    </link>->  </item>->  <item>->    <link name='section'>->      <item label='Cut'/>->      <item label='Copy'/>->      <item label='Paste'/>->    </link>->  </item>-></menu>---/Since: 2.32/--}-menuItemNewSection ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.MenuModel.IsMenuModel a) =>-    Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> a-    {- ^ /@section@/: a 'GI.Gio.Objects.MenuModel.MenuModel' with the items of the section -}-    -> m MenuItem-    {- ^ __Returns:__ a new 'GI.Gio.Objects.MenuItem.MenuItem' -}-menuItemNewSection label section = liftIO $ do-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    section' <- unsafeManagedPtrCastPtr section-    result <- g_menu_item_new_section maybeLabel section'-    checkUnexpectedReturnNULL "menuItemNewSection" result-    result' <- (wrapObject MenuItem) result-    touchManagedPtr section-    freeMem maybeLabel-    return result'--#if ENABLE_OVERLOADING-#endif---- method MenuItem::new_submenu--- method type : Constructor--- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the section label, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel with the items of the submenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuItem"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_new_submenu" g_menu_item_new_submenu :: -    CString ->                              -- label : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- submenu : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO (Ptr MenuItem)--{- |-Creates a new 'GI.Gio.Objects.MenuItem.MenuItem' representing a submenu.--This is a convenience API around 'GI.Gio.Objects.MenuItem.menuItemNew' and-'GI.Gio.Objects.MenuItem.menuItemSetSubmenu'.--/Since: 2.32/--}-menuItemNewSubmenu ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.MenuModel.IsMenuModel a) =>-    Maybe (T.Text)-    {- ^ /@label@/: the section label, or 'Nothing' -}-    -> a-    {- ^ /@submenu@/: a 'GI.Gio.Objects.MenuModel.MenuModel' with the items of the submenu -}-    -> m MenuItem-    {- ^ __Returns:__ a new 'GI.Gio.Objects.MenuItem.MenuItem' -}-menuItemNewSubmenu label submenu = liftIO $ do-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    submenu' <- unsafeManagedPtrCastPtr submenu-    result <- g_menu_item_new_submenu maybeLabel submenu'-    checkUnexpectedReturnNULL "menuItemNewSubmenu" result-    result' <- (wrapObject MenuItem) result-    touchManagedPtr submenu-    freeMem maybeLabel-    return result'--#if ENABLE_OVERLOADING-#endif---- method MenuItem::get_attribute_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the attribute name to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected type of the attribute", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_get_attribute_value" g_menu_item_get_attribute_value :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr GLib.VariantType.VariantType ->     -- expected_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    IO (Ptr GVariant)--{- |-Queries the named /@attribute@/ on /@menuItem@/.--If /@expectedType@/ is specified and the attribute does not have this-type, 'Nothing' is returned.  'Nothing' is also returned if the attribute-simply does not exist.--/Since: 2.34/--}-menuItemGetAttributeValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> T.Text-    {- ^ /@attribute@/: the attribute name to query -}-    -> Maybe (GLib.VariantType.VariantType)-    {- ^ /@expectedType@/: the expected type of the attribute -}-    -> m GVariant-    {- ^ __Returns:__ the attribute value, or 'Nothing' -}-menuItemGetAttributeValue menuItem attribute expectedType = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    attribute' <- textToCString attribute-    maybeExpectedType <- case expectedType of-        Nothing -> return nullPtr-        Just jExpectedType -> do-            jExpectedType' <- unsafeManagedPtrGetPtr jExpectedType-            return jExpectedType'-    result <- g_menu_item_get_attribute_value menuItem' attribute' maybeExpectedType-    checkUnexpectedReturnNULL "menuItemGetAttributeValue" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr menuItem-    whenJust expectedType touchManagedPtr-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data MenuItemGetAttributeValueMethodInfo-instance (signature ~ (T.Text -> Maybe (GLib.VariantType.VariantType) -> m GVariant), MonadIO m, IsMenuItem a) => O.MethodInfo MenuItemGetAttributeValueMethodInfo a signature where-    overloadedMethod _ = menuItemGetAttributeValue--#endif---- method MenuItem::get_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the link name to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuModel"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_get_link" g_menu_item_get_link :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    CString ->                              -- link : TBasicType TUTF8-    IO (Ptr Gio.MenuModel.MenuModel)--{- |-Queries the named /@link@/ on /@menuItem@/.--/Since: 2.34/--}-menuItemGetLink ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> T.Text-    {- ^ /@link@/: the link name to query -}-    -> m Gio.MenuModel.MenuModel-    {- ^ __Returns:__ the link, or 'Nothing' -}-menuItemGetLink menuItem link = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    link' <- textToCString link-    result <- g_menu_item_get_link menuItem' link'-    checkUnexpectedReturnNULL "menuItemGetLink" result-    result' <- (wrapObject Gio.MenuModel.MenuModel) result-    touchManagedPtr menuItem-    freeMem link'-    return result'--#if ENABLE_OVERLOADING-data MenuItemGetLinkMethodInfo-instance (signature ~ (T.Text -> m Gio.MenuModel.MenuModel), MonadIO m, IsMenuItem a) => O.MethodInfo MenuItemGetLinkMethodInfo a signature where-    overloadedMethod _ = menuItemGetLink--#endif---- method MenuItem::set_action_and_target_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the name of the action for this item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant to use as the action target", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_set_action_and_target_value" g_menu_item_set_action_and_target_value :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    CString ->                              -- action : TBasicType TUTF8-    Ptr GVariant ->                         -- target_value : TVariant-    IO ()--{- |-Sets or unsets the \"action\" and \"target\" attributes of /@menuItem@/.--If /@action@/ is 'Nothing' then both the \"action\" and \"target\" attributes-are unset (and /@targetValue@/ is ignored).--If /@action@/ is non-'Nothing' then the \"action\" attribute is set.  The-\"target\" attribute is then set to the value of /@targetValue@/ if it is-non-'Nothing' or unset otherwise.--Normal menu items (ie: not submenu, section or other custom item-types) are expected to have the \"action\" attribute set to identify-the action that they are associated with.  The state type of the-action help to determine the disposition of the menu item.  See-'GI.Gio.Interfaces.Action.Action' and 'GI.Gio.Interfaces.ActionGroup.ActionGroup' for an overview of actions.--In general, clicking on the menu item will result in activation of-the named action with the \"target\" attribute given as the parameter-to the action invocation.  If the \"target\" attribute is not set then-the action is invoked with no parameter.--If the action has no state then the menu item is usually drawn as a-plain menu item (ie: with no additional decoration).--If the action has a boolean state then the menu item is usually drawn-as a toggle menu item (ie: with a checkmark or equivalent-indication).  The item should be marked as \'toggled\' or \'checked\'-when the boolean state is 'True'.--If the action has a string state then the menu item is usually drawn-as a radio menu item (ie: with a radio bullet or equivalent-indication).  The item should be marked as \'selected\' when the string-state is equal to the value of the /@target@/ property.--See @/g_menu_item_set_action_and_target()/@ or-'GI.Gio.Objects.MenuItem.menuItemSetDetailedAction' for two equivalent calls that are-probably more convenient for most uses.--/Since: 2.32/--}-menuItemSetActionAndTargetValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> Maybe (T.Text)-    {- ^ /@action@/: the name of the action for this item -}-    -> Maybe (GVariant)-    {- ^ /@targetValue@/: a 'GVariant' to use as the action target -}-    -> m ()-menuItemSetActionAndTargetValue menuItem action targetValue = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    maybeAction <- case action of-        Nothing -> return nullPtr-        Just jAction -> do-            jAction' <- textToCString jAction-            return jAction'-    maybeTargetValue <- case targetValue of-        Nothing -> return nullPtr-        Just jTargetValue -> do-            jTargetValue' <- unsafeManagedPtrGetPtr jTargetValue-            return jTargetValue'-    g_menu_item_set_action_and_target_value menuItem' maybeAction maybeTargetValue-    touchManagedPtr menuItem-    whenJust targetValue touchManagedPtr-    freeMem maybeAction-    return ()--#if ENABLE_OVERLOADING-data MenuItemSetActionAndTargetValueMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (GVariant) -> m ()), MonadIO m, IsMenuItem a) => O.MethodInfo MenuItemSetActionAndTargetValueMethodInfo a signature where-    overloadedMethod _ = menuItemSetActionAndTargetValue--#endif---- method MenuItem::set_attribute_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the attribute to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant to use as the value, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_set_attribute_value" g_menu_item_set_attribute_value :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO ()--{- |-Sets or unsets an attribute on /@menuItem@/.--The attribute to set or unset is specified by /@attribute@/. This-can be one of the standard attribute names 'GI.Gio.Constants.MENU_ATTRIBUTE_LABEL',-'GI.Gio.Constants.MENU_ATTRIBUTE_ACTION', 'GI.Gio.Constants.MENU_ATTRIBUTE_TARGET', or a custom-attribute name.-Attribute names are restricted to lowercase characters, numbers-and \'-\'. Furthermore, the names must begin with a lowercase character,-must not end with a \'-\', and must not contain consecutive dashes.--must consist only of lowercase-ASCII characters, digits and \'-\'.--If /@value@/ is non-'Nothing' then it is used as the new value for the-attribute.  If /@value@/ is 'Nothing' then the attribute is unset. If-the /@value@/ 'GVariant' is floating, it is consumed.--See also @/g_menu_item_set_attribute()/@ for a more convenient way to do-the same.--/Since: 2.32/--}-menuItemSetAttributeValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> T.Text-    {- ^ /@attribute@/: the attribute to set -}-    -> Maybe (GVariant)-    {- ^ /@value@/: a 'GVariant' to use as the value, or 'Nothing' -}-    -> m ()-menuItemSetAttributeValue menuItem attribute value = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    attribute' <- textToCString attribute-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            jValue' <- unsafeManagedPtrGetPtr jValue-            return jValue'-    g_menu_item_set_attribute_value menuItem' attribute' maybeValue-    touchManagedPtr menuItem-    whenJust value touchManagedPtr-    freeMem attribute'-    return ()--#if ENABLE_OVERLOADING-data MenuItemSetAttributeValueMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsMenuItem a) => O.MethodInfo MenuItemSetAttributeValueMethodInfo a signature where-    overloadedMethod _ = menuItemSetAttributeValue--#endif---- method MenuItem::set_detailed_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the \"detailed\" action string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_set_detailed_action" g_menu_item_set_detailed_action :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()--{- |-Sets the \"action\" and possibly the \"target\" attribute of /@menuItem@/.--The format of /@detailedAction@/ is the same format parsed by-'GI.Gio.Functions.actionParseDetailedName'.--See @/g_menu_item_set_action_and_target()/@ or-'GI.Gio.Objects.MenuItem.menuItemSetActionAndTargetValue' for more flexible (but-slightly less convenient) alternatives.--See also 'GI.Gio.Objects.MenuItem.menuItemSetActionAndTargetValue' for a description of-the semantics of the action and target attributes.--/Since: 2.32/--}-menuItemSetDetailedAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> T.Text-    {- ^ /@detailedAction@/: the \"detailed\" action string -}-    -> m ()-menuItemSetDetailedAction menuItem detailedAction = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    detailedAction' <- textToCString detailedAction-    g_menu_item_set_detailed_action menuItem' detailedAction'-    touchManagedPtr menuItem-    freeMem detailedAction'-    return ()--#if ENABLE_OVERLOADING-data MenuItemSetDetailedActionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsMenuItem a) => O.MethodInfo MenuItemSetDetailedActionMethodInfo a signature where-    overloadedMethod _ = menuItemSetDetailedAction--#endif---- method MenuItem::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_set_icon" g_menu_item_set_icon :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    Ptr Gio.Icon.Icon ->                    -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    IO ()--{- |-Sets (or unsets) the icon on /@menuItem@/.--This call is the same as calling 'GI.Gio.Interfaces.Icon.iconSerialize' and using the-result as the value to 'GI.Gio.Objects.MenuItem.menuItemSetAttributeValue' for-'GI.Gio.Constants.MENU_ATTRIBUTE_ICON'.--This API is only intended for use with \"noun\" menu items; things like-bookmarks or applications in an \"Open With\" menu.  Don\'t use it on-menu items corresponding to verbs (eg: stock icons for \'Save\' or-\'Quit\').--If /@icon@/ is 'Nothing' then the icon is unset.--/Since: 2.38/--}-menuItemSetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a, Gio.Icon.IsIcon b) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> b-    {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon', or 'Nothing' -}-    -> m ()-menuItemSetIcon menuItem icon = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    icon' <- unsafeManagedPtrCastPtr icon-    g_menu_item_set_icon menuItem' icon'-    touchManagedPtr menuItem-    touchManagedPtr icon-    return ()--#if ENABLE_OVERLOADING-data MenuItemSetIconMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsMenuItem a, Gio.Icon.IsIcon b) => O.MethodInfo MenuItemSetIconMethodInfo a signature where-    overloadedMethod _ = menuItemSetIcon--#endif---- method MenuItem::set_label--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the label to set, or %NULL to unset", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_set_label" g_menu_item_set_label :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    CString ->                              -- label : TBasicType TUTF8-    IO ()--{- |-Sets or unsets the \"label\" attribute of /@menuItem@/.--If /@label@/ is non-'Nothing' it is used as the label for the menu item.  If-it is 'Nothing' then the label attribute is unset.--/Since: 2.32/--}-menuItemSetLabel ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> Maybe (T.Text)-    {- ^ /@label@/: the label to set, or 'Nothing' to unset -}-    -> m ()-menuItemSetLabel menuItem label = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    maybeLabel <- case label of-        Nothing -> return nullPtr-        Just jLabel -> do-            jLabel' <- textToCString jLabel-            return jLabel'-    g_menu_item_set_label menuItem' maybeLabel-    touchManagedPtr menuItem-    freeMem maybeLabel-    return ()--#if ENABLE_OVERLOADING-data MenuItemSetLabelMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsMenuItem a) => O.MethodInfo MenuItemSetLabelMethodInfo a signature where-    overloadedMethod _ = menuItemSetLabel--#endif---- method MenuItem::set_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "type of link to establish or unset", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GMenuModel to link to (or %NULL to unset)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_set_link" g_menu_item_set_link :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    CString ->                              -- link : TBasicType TUTF8-    Ptr Gio.MenuModel.MenuModel ->          -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Creates a link from /@menuItem@/ to /@model@/ if non-'Nothing', or unsets it.--Links are used to establish a relationship between a particular menu-item and another menu.  For example, 'GI.Gio.Constants.MENU_LINK_SUBMENU' is used to-associate a submenu with a particular menu item, and 'GI.Gio.Constants.MENU_LINK_SECTION'-is used to create a section. Other types of link can be used, but there-is no guarantee that clients will be able to make sense of them.-Link types are restricted to lowercase characters, numbers-and \'-\'. Furthermore, the names must begin with a lowercase character,-must not end with a \'-\', and must not contain consecutive dashes.--/Since: 2.32/--}-menuItemSetLink ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> T.Text-    {- ^ /@link@/: type of link to establish or unset -}-    -> Maybe (b)-    {- ^ /@model@/: the 'GI.Gio.Objects.MenuModel.MenuModel' to link to (or 'Nothing' to unset) -}-    -> m ()-menuItemSetLink menuItem link model = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    link' <- textToCString link-    maybeModel <- case model of-        Nothing -> return nullPtr-        Just jModel -> do-            jModel' <- unsafeManagedPtrCastPtr jModel-            return jModel'-    g_menu_item_set_link menuItem' link' maybeModel-    touchManagedPtr menuItem-    whenJust model touchManagedPtr-    freeMem link'-    return ()--#if ENABLE_OVERLOADING-data MenuItemSetLinkMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, IsMenuItem a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuItemSetLinkMethodInfo a signature where-    overloadedMethod _ = menuItemSetLink--#endif---- method MenuItem::set_section--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMenuModel, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_set_section" g_menu_item_set_section :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    Ptr Gio.MenuModel.MenuModel ->          -- section : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Sets or unsets the \"section\" link of /@menuItem@/ to /@section@/.--The effect of having one menu appear as a section of another is-exactly as it sounds: the items from /@section@/ become a direct part of-the menu that /@menuItem@/ is added to.  See 'GI.Gio.Objects.MenuItem.menuItemNewSection'-for more information about what it means for a menu item to be a-section.--/Since: 2.32/--}-menuItemSetSection ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> Maybe (b)-    {- ^ /@section@/: a 'GI.Gio.Objects.MenuModel.MenuModel', or 'Nothing' -}-    -> m ()-menuItemSetSection menuItem section = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    maybeSection <- case section of-        Nothing -> return nullPtr-        Just jSection -> do-            jSection' <- unsafeManagedPtrCastPtr jSection-            return jSection'-    g_menu_item_set_section menuItem' maybeSection-    touchManagedPtr menuItem-    whenJust section touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MenuItemSetSectionMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsMenuItem a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuItemSetSectionMethodInfo a signature where-    overloadedMethod _ = menuItemSetSection--#endif---- method MenuItem::set_submenu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "menu_item", argType = TInterface (Name {namespace = "Gio", name = "MenuItem"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuItem", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GMenuModel, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_item_set_submenu" g_menu_item_set_submenu :: -    Ptr MenuItem ->                         -- menu_item : TInterface (Name {namespace = "Gio", name = "MenuItem"})-    Ptr Gio.MenuModel.MenuModel ->          -- submenu : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO ()--{- |-Sets or unsets the \"submenu\" link of /@menuItem@/ to /@submenu@/.--If /@submenu@/ is non-'Nothing', it is linked to.  If it is 'Nothing' then the-link is unset.--The effect of having one menu appear as a submenu of another is-exactly as it sounds.--/Since: 2.32/--}-menuItemSetSubmenu ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuItem a, Gio.MenuModel.IsMenuModel b) =>-    a-    {- ^ /@menuItem@/: a 'GI.Gio.Objects.MenuItem.MenuItem' -}-    -> Maybe (b)-    {- ^ /@submenu@/: a 'GI.Gio.Objects.MenuModel.MenuModel', or 'Nothing' -}-    -> m ()-menuItemSetSubmenu menuItem submenu = liftIO $ do-    menuItem' <- unsafeManagedPtrCastPtr menuItem-    maybeSubmenu <- case submenu of-        Nothing -> return nullPtr-        Just jSubmenu -> do-            jSubmenu' <- unsafeManagedPtrCastPtr jSubmenu-            return jSubmenu'-    g_menu_item_set_submenu menuItem' maybeSubmenu-    touchManagedPtr menuItem-    whenJust submenu touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MenuItemSetSubmenuMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsMenuItem a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo MenuItemSetSubmenuMethodInfo a signature where-    overloadedMethod _ = menuItemSetSubmenu--#endif--
− GI/Gio/Objects/MenuItem.hs-boot 
@@ -1,59 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.MenuItem 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 MenuItem = MenuItem (ManagedPtr MenuItem)-instance GObject MenuItem where-class (GObject o, O.IsDescendantOf MenuItem o) => IsMenuItem o-instance (GObject o, O.IsDescendantOf MenuItem o) => IsMenuItem o-instance O.HasParentTypes MenuItem-#if ENABLE_OVERLOADING-data MenuItemGetAttributeValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemGetLinkMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemSetActionAndTargetValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemSetAttributeValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemSetDetailedActionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemSetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemSetLabelMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemSetLinkMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemSetSectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuItemSetSubmenuMethodInfo-#endif
− GI/Gio/Objects/MenuLinkIter.hs 
@@ -1,348 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.MenuLinkIter.MenuLinkIter' is an opaque structure type.  You must access it using-the functions below.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.MenuLinkIter-    ( ---- * Exported types-    MenuLinkIter(..)                        ,-    IsMenuLinkIter                          ,-    toMenuLinkIter                          ,-    noMenuLinkIter                          ,--- -- * Methods--- ** getName #method:getName#--#if ENABLE_OVERLOADING-    MenuLinkIterGetNameMethodInfo           ,-#endif-    menuLinkIterGetName                     ,----- ** getNext #method:getNext#--#if ENABLE_OVERLOADING-    MenuLinkIterGetNextMethodInfo           ,-#endif-    menuLinkIterGetNext                     ,----- ** getValue #method:getValue#--#if ENABLE_OVERLOADING-    MenuLinkIterGetValueMethodInfo          ,-#endif-    menuLinkIterGetValue                    ,----- ** next #method:next#--#if ENABLE_OVERLOADING-    MenuLinkIterNextMethodInfo              ,-#endif-    menuLinkIterNext                        ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.MenuModel as Gio.MenuModel---- | Memory-managed wrapper type.-newtype MenuLinkIter = MenuLinkIter (ManagedPtr MenuLinkIter)-foreign import ccall "g_menu_link_iter_get_type"-    c_g_menu_link_iter_get_type :: IO GType--instance GObject MenuLinkIter where-    gobjectType = c_g_menu_link_iter_get_type-    ---- | Type class for types which can be safely cast to `MenuLinkIter`, for instance with `toMenuLinkIter`.-class (GObject o, O.IsDescendantOf MenuLinkIter o) => IsMenuLinkIter o-instance (GObject o, O.IsDescendantOf MenuLinkIter o) => IsMenuLinkIter o--instance O.HasParentTypes MenuLinkIter-type instance O.ParentTypes MenuLinkIter = '[GObject.Object.Object]---- | Cast to `MenuLinkIter`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMenuLinkIter :: (MonadIO m, IsMenuLinkIter o) => o -> m MenuLinkIter-toMenuLinkIter = liftIO . unsafeCastTo MenuLinkIter---- | A convenience alias for `Nothing` :: `Maybe` `MenuLinkIter`.-noMenuLinkIter :: Maybe MenuLinkIter-noMenuLinkIter = Nothing--#if ENABLE_OVERLOADING-type family ResolveMenuLinkIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuLinkIterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMenuLinkIterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMenuLinkIterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMenuLinkIterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMenuLinkIterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMenuLinkIterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMenuLinkIterMethod "next" o = MenuLinkIterNextMethodInfo-    ResolveMenuLinkIterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMenuLinkIterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMenuLinkIterMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMenuLinkIterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMenuLinkIterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMenuLinkIterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMenuLinkIterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMenuLinkIterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMenuLinkIterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMenuLinkIterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMenuLinkIterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMenuLinkIterMethod "getName" o = MenuLinkIterGetNameMethodInfo-    ResolveMenuLinkIterMethod "getNext" o = MenuLinkIterGetNextMethodInfo-    ResolveMenuLinkIterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMenuLinkIterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMenuLinkIterMethod "getValue" o = MenuLinkIterGetValueMethodInfo-    ResolveMenuLinkIterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMenuLinkIterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMenuLinkIterMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMenuLinkIterMethod t MenuLinkIter, O.MethodInfo info MenuLinkIter p) => OL.IsLabel t (MenuLinkIter -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList MenuLinkIter-type instance O.AttributeList MenuLinkIter = MenuLinkIterAttributeList-type MenuLinkIterAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList MenuLinkIter = MenuLinkIterSignalList-type MenuLinkIterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method MenuLinkIter::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gio", name = "MenuLinkIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuLinkIter", 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 "g_menu_link_iter_get_name" g_menu_link_iter_get_name :: -    Ptr MenuLinkIter ->                     -- iter : TInterface (Name {namespace = "Gio", name = "MenuLinkIter"})-    IO CString--{- |-Gets the name of the link at the current iterator position.--The iterator is not advanced.--/Since: 2.32/--}-menuLinkIterGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuLinkIter a) =>-    a-    {- ^ /@iter@/: a 'GI.Gio.Objects.MenuLinkIter.MenuLinkIter' -}-    -> m T.Text-    {- ^ __Returns:__ the type of the link -}-menuLinkIterGetName iter = liftIO $ do-    iter' <- unsafeManagedPtrCastPtr iter-    result <- g_menu_link_iter_get_name iter'-    checkUnexpectedReturnNULL "menuLinkIterGetName" result-    result' <- cstringToText result-    touchManagedPtr iter-    return result'--#if ENABLE_OVERLOADING-data MenuLinkIterGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsMenuLinkIter a) => O.MethodInfo MenuLinkIterGetNameMethodInfo a signature where-    overloadedMethod _ = menuLinkIterGetName--#endif---- method MenuLinkIter::get_next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gio", name = "MenuLinkIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuLinkIter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_link", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the link", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the linked #GMenuModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "g_menu_link_iter_get_next" g_menu_link_iter_get_next :: -    Ptr MenuLinkIter ->                     -- iter : TInterface (Name {namespace = "Gio", name = "MenuLinkIter"})-    Ptr CString ->                          -- out_link : TBasicType TUTF8-    Ptr (Ptr Gio.MenuModel.MenuModel) ->    -- value : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO CInt--{- |-This function combines 'GI.Gio.Objects.MenuLinkIter.menuLinkIterNext' with-'GI.Gio.Objects.MenuLinkIter.menuLinkIterGetName' and 'GI.Gio.Objects.MenuLinkIter.menuLinkIterGetValue'.--First the iterator is advanced to the next (possibly first) link.-If that fails, then 'False' is returned and there are no other effects.--If successful, /@outLink@/ and /@value@/ are set to the name and 'GI.Gio.Objects.MenuModel.MenuModel'-of the link that has just been advanced to.  At this point,-'GI.Gio.Objects.MenuLinkIter.menuLinkIterGetName' and 'GI.Gio.Objects.MenuLinkIter.menuLinkIterGetValue' will return the-same values again.--The value returned in /@outLink@/ remains valid for as long as the iterator-remains at the current position.  The value returned in /@value@/ must-be unreffed using 'GI.GObject.Objects.Object.objectUnref' when it is no longer in use.--/Since: 2.32/--}-menuLinkIterGetNext ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuLinkIter a) =>-    a-    {- ^ /@iter@/: a 'GI.Gio.Objects.MenuLinkIter.MenuLinkIter' -}-    -> m ((Bool, T.Text, Gio.MenuModel.MenuModel))-    {- ^ __Returns:__ 'True' on success, or 'False' if there is no additional link -}-menuLinkIterGetNext iter = liftIO $ do-    iter' <- unsafeManagedPtrCastPtr iter-    outLink <- allocMem :: IO (Ptr CString)-    value <- allocMem :: IO (Ptr (Ptr Gio.MenuModel.MenuModel))-    result <- g_menu_link_iter_get_next iter' outLink value-    let result' = (/= 0) result-    outLink' <- peek outLink-    outLink'' <- cstringToText outLink'-    value' <- peek value-    value'' <- (wrapObject Gio.MenuModel.MenuModel) value'-    touchManagedPtr iter-    freeMem outLink-    freeMem value-    return (result', outLink'', value'')--#if ENABLE_OVERLOADING-data MenuLinkIterGetNextMethodInfo-instance (signature ~ (m ((Bool, T.Text, Gio.MenuModel.MenuModel))), MonadIO m, IsMenuLinkIter a) => O.MethodInfo MenuLinkIterGetNextMethodInfo a signature where-    overloadedMethod _ = menuLinkIterGetNext--#endif---- method MenuLinkIter::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gio", name = "MenuLinkIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuLinkIter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuModel"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_link_iter_get_value" g_menu_link_iter_get_value :: -    Ptr MenuLinkIter ->                     -- iter : TInterface (Name {namespace = "Gio", name = "MenuLinkIter"})-    IO (Ptr Gio.MenuModel.MenuModel)--{- |-Gets the linked 'GI.Gio.Objects.MenuModel.MenuModel' at the current iterator position.--The iterator is not advanced.--/Since: 2.32/--}-menuLinkIterGetValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuLinkIter a) =>-    a-    {- ^ /@iter@/: a 'GI.Gio.Objects.MenuLinkIter.MenuLinkIter' -}-    -> m Gio.MenuModel.MenuModel-    {- ^ __Returns:__ the 'GI.Gio.Objects.MenuModel.MenuModel' that is linked to -}-menuLinkIterGetValue iter = liftIO $ do-    iter' <- unsafeManagedPtrCastPtr iter-    result <- g_menu_link_iter_get_value iter'-    checkUnexpectedReturnNULL "menuLinkIterGetValue" result-    result' <- (wrapObject Gio.MenuModel.MenuModel) result-    touchManagedPtr iter-    return result'--#if ENABLE_OVERLOADING-data MenuLinkIterGetValueMethodInfo-instance (signature ~ (m Gio.MenuModel.MenuModel), MonadIO m, IsMenuLinkIter a) => O.MethodInfo MenuLinkIterGetValueMethodInfo a signature where-    overloadedMethod _ = menuLinkIterGetValue--#endif---- method MenuLinkIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gio", name = "MenuLinkIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuLinkIter", 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 "g_menu_link_iter_next" g_menu_link_iter_next :: -    Ptr MenuLinkIter ->                     -- iter : TInterface (Name {namespace = "Gio", name = "MenuLinkIter"})-    IO CInt--{- |-Attempts to advance the iterator to the next (possibly first)-link.--'True' is returned on success, or 'False' if there are no more links.--You must call this function when you first acquire the iterator to-advance it to the first link (and determine if the first link exists-at all).--/Since: 2.32/--}-menuLinkIterNext ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuLinkIter a) =>-    a-    {- ^ /@iter@/: a 'GI.Gio.Objects.MenuLinkIter.MenuLinkIter' -}-    -> m Bool-    {- ^ __Returns:__ 'True' on success, or 'False' when there are no more links -}-menuLinkIterNext iter = liftIO $ do-    iter' <- unsafeManagedPtrCastPtr iter-    result <- g_menu_link_iter_next iter'-    let result' = (/= 0) result-    touchManagedPtr iter-    return result'--#if ENABLE_OVERLOADING-data MenuLinkIterNextMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMenuLinkIter a) => O.MethodInfo MenuLinkIterNextMethodInfo a signature where-    overloadedMethod _ = menuLinkIterNext--#endif--
− GI/Gio/Objects/MenuLinkIter.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.MenuLinkIter 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 MenuLinkIter = MenuLinkIter (ManagedPtr MenuLinkIter)-instance GObject MenuLinkIter where-class (GObject o, O.IsDescendantOf MenuLinkIter o) => IsMenuLinkIter o-instance (GObject o, O.IsDescendantOf MenuLinkIter o) => IsMenuLinkIter o-instance O.HasParentTypes MenuLinkIter-#if ENABLE_OVERLOADING-data MenuLinkIterGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuLinkIterGetNextMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuLinkIterGetValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuLinkIterNextMethodInfo-#endif
− GI/Gio/Objects/MenuModel.hs 
@@ -1,765 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.MenuModel.MenuModel' represents the contents of a menu -- an ordered list of-menu items. The items are associated with actions, which can be-activated through them. Items can be grouped in sections, and may-have submenus associated with them. Both items and sections usually-have some representation data, such as labels or icons. The type of-the associated action (ie whether it is stateful, and what kind of-state it has) can influence the representation of the item.--The conceptual model of menus in 'GI.Gio.Objects.MenuModel.MenuModel' is hierarchical:-sections and submenus are again represented by @/GMenuModels/@.-Menus themselves do not define their own roles. Rather, the role-of a particular 'GI.Gio.Objects.MenuModel.MenuModel' is defined by the item that references-it (or, in the case of the \'root\' menu, is defined by the context-in which it is used).--As an example, consider the visible portions of this menu:--## An example menu # {@/menu/@-example}--<<http://developer.gnome.org/gio/stable/menu-example.png>>--There are 8 \"menus\" visible in the screenshot: one menubar, two-submenus and 5 sections:--* the toplevel menubar (containing 4 items)-* the View submenu (containing 3 sections)-* the first section of the View submenu (containing 2 items)-* the second section of the View submenu (containing 1 item)-* the final section of the View submenu (containing 1 item)-* the Highlight Mode submenu (containing 2 sections)-* the Sources section (containing 2 items)-* the Markup section (containing 2 items)---The [example][menu-model] illustrates the conceptual connection between-these 8 menus. Each large block in the figure represents a menu and the-smaller blocks within the large block represent items in that menu. Some-items contain references to other menus.--## A menu example # {@/menu/@-model}--<<http://developer.gnome.org/gio/stable/menu-model.png>>--Notice that the separators visible in the [example][menu-example]-appear nowhere in the [menu model][menu-model]. This is because-separators are not explicitly represented in the menu model. Instead,-a separator is inserted between any two non-empty sections of a menu.-Section items can have labels just like any other item. In that case,-a display system may show a section header instead of a separator.--The motivation for this abstract model of application controls is-that modern user interfaces tend to make these controls available-outside the application. Examples include global menus, jumplists,-dash boards, etc. To support such uses, it is necessary to \'export\'-information about actions and their representation in menus, which-is exactly what the [GActionGroup exporter][gio-GActionGroup-exporter]-and the [GMenuModel exporter][gio-GMenuModel-exporter] do for-'GI.Gio.Interfaces.ActionGroup.ActionGroup' and 'GI.Gio.Objects.MenuModel.MenuModel'. The client-side counterparts to-make use of the exported information are 'GI.Gio.Objects.DBusActionGroup.DBusActionGroup' and-'GI.Gio.Objects.DBusMenuModel.DBusMenuModel'.--The API of 'GI.Gio.Objects.MenuModel.MenuModel' is very generic, with iterators for the-attributes and links of an item, see 'GI.Gio.Objects.MenuModel.menuModelIterateItemAttributes'-and 'GI.Gio.Objects.MenuModel.menuModelIterateItemLinks'. The \'standard\' attributes and-link types have predefined names: 'GI.Gio.Constants.MENU_ATTRIBUTE_LABEL',-'GI.Gio.Constants.MENU_ATTRIBUTE_ACTION', 'GI.Gio.Constants.MENU_ATTRIBUTE_TARGET', 'GI.Gio.Constants.MENU_LINK_SECTION'-and 'GI.Gio.Constants.MENU_LINK_SUBMENU'.--Items in a 'GI.Gio.Objects.MenuModel.MenuModel' represent active controls if they refer to-an action that can get activated when the user interacts with the-menu item. The reference to the action is encoded by the string id-in the 'GI.Gio.Constants.MENU_ATTRIBUTE_ACTION' attribute. An action id uniquely-identifies an action in an action group. Which action group(s) provide-actions depends on the context in which the menu model is used.-E.g. when the model is exported as the application menu of a-@/GtkApplication/@, actions can be application-wide or window-specific-(and thus come from two different action groups). By convention, the-application-wide actions have names that start with \"app.\", while the-names of window-specific actions start with \"win.\".--While a wide variety of stateful actions is possible, the following-is the minimum that is expected to be supported by all users of exported-menu information:--* an action with no parameter type and no state-* an action with no parameter type and boolean state-* an action with string parameter type and string state---== Stateless--A stateless action typically corresponds to an ordinary menu item.--Selecting such a menu item will activate the action (with no parameter).--== Boolean State--An action with a boolean state will most typically be used with a \"toggle\"-or \"switch\" menu item. The state can be set directly, but activating the-action (with no parameter) results in the state being toggled.--Selecting a toggle menu item will activate the action. The menu item should-be rendered as \"checked\" when the state is true.--== String Parameter and State--Actions with string parameters and state will most typically be used to-represent an enumerated choice over the items available for a group of-radio menu items. Activating the action with a string parameter is-equivalent to setting that parameter as the state.--Radio menu items, in addition to being associated with the action, will-have a target value. Selecting that menu item will result in activation-of the action with the target value as the parameter. The menu item should-be rendered as \"selected\" when the state of the action is equal to the-target value of the menu item.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.MenuModel-    ( ---- * Exported types-    MenuModel(..)                           ,-    IsMenuModel                             ,-    toMenuModel                             ,-    noMenuModel                             ,--- -- * Methods--- ** getItemAttributeValue #method:getItemAttributeValue#--#if ENABLE_OVERLOADING-    MenuModelGetItemAttributeValueMethodInfo,-#endif-    menuModelGetItemAttributeValue          ,----- ** getItemLink #method:getItemLink#--#if ENABLE_OVERLOADING-    MenuModelGetItemLinkMethodInfo          ,-#endif-    menuModelGetItemLink                    ,----- ** getNItems #method:getNItems#--#if ENABLE_OVERLOADING-    MenuModelGetNItemsMethodInfo            ,-#endif-    menuModelGetNItems                      ,----- ** isMutable #method:isMutable#--#if ENABLE_OVERLOADING-    MenuModelIsMutableMethodInfo            ,-#endif-    menuModelIsMutable                      ,----- ** itemsChanged #method:itemsChanged#--#if ENABLE_OVERLOADING-    MenuModelItemsChangedMethodInfo         ,-#endif-    menuModelItemsChanged                   ,----- ** iterateItemAttributes #method:iterateItemAttributes#--#if ENABLE_OVERLOADING-    MenuModelIterateItemAttributesMethodInfo,-#endif-    menuModelIterateItemAttributes          ,----- ** iterateItemLinks #method:iterateItemLinks#--#if ENABLE_OVERLOADING-    MenuModelIterateItemLinksMethodInfo     ,-#endif-    menuModelIterateItemLinks               ,----- -- * Signals--- ** itemsChanged #signal:itemsChanged#--    C_MenuModelItemsChangedCallback         ,-    MenuModelItemsChangedCallback           ,-#if ENABLE_OVERLOADING-    MenuModelItemsChangedSignalInfo         ,-#endif-    afterMenuModelItemsChanged              ,-    genClosure_MenuModelItemsChanged        ,-    mk_MenuModelItemsChangedCallback        ,-    noMenuModelItemsChangedCallback         ,-    onMenuModelItemsChanged                 ,-    wrap_MenuModelItemsChangedCallback      ,-----    ) 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.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Objects.MenuAttributeIter as Gio.MenuAttributeIter-import {-# SOURCE #-} qualified GI.Gio.Objects.MenuLinkIter as Gio.MenuLinkIter---- | Memory-managed wrapper type.-newtype MenuModel = MenuModel (ManagedPtr MenuModel)-foreign import ccall "g_menu_model_get_type"-    c_g_menu_model_get_type :: IO GType--instance GObject MenuModel where-    gobjectType = c_g_menu_model_get_type-    ---- | Type class for types which can be safely cast to `MenuModel`, for instance with `toMenuModel`.-class (GObject o, O.IsDescendantOf MenuModel o) => IsMenuModel o-instance (GObject o, O.IsDescendantOf MenuModel o) => IsMenuModel o--instance O.HasParentTypes MenuModel-type instance O.ParentTypes MenuModel = '[GObject.Object.Object]---- | Cast to `MenuModel`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMenuModel :: (MonadIO m, IsMenuModel o) => o -> m MenuModel-toMenuModel = liftIO . unsafeCastTo MenuModel---- | A convenience alias for `Nothing` :: `Maybe` `MenuModel`.-noMenuModel :: Maybe MenuModel-noMenuModel = Nothing--#if ENABLE_OVERLOADING-type family ResolveMenuModelMethod (t :: Symbol) (o :: *) :: * where-    ResolveMenuModelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMenuModelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMenuModelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMenuModelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMenuModelMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMenuModelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMenuModelMethod "isMutable" o = MenuModelIsMutableMethodInfo-    ResolveMenuModelMethod "itemsChanged" o = MenuModelItemsChangedMethodInfo-    ResolveMenuModelMethod "iterateItemAttributes" o = MenuModelIterateItemAttributesMethodInfo-    ResolveMenuModelMethod "iterateItemLinks" o = MenuModelIterateItemLinksMethodInfo-    ResolveMenuModelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMenuModelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMenuModelMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMenuModelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMenuModelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMenuModelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMenuModelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMenuModelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMenuModelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMenuModelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMenuModelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMenuModelMethod "getItemAttributeValue" o = MenuModelGetItemAttributeValueMethodInfo-    ResolveMenuModelMethod "getItemLink" o = MenuModelGetItemLinkMethodInfo-    ResolveMenuModelMethod "getNItems" o = MenuModelGetNItemsMethodInfo-    ResolveMenuModelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMenuModelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMenuModelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMenuModelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMenuModelMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMenuModelMethod t MenuModel, O.MethodInfo info MenuModel p) => OL.IsLabel t (MenuModel -> 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 MenuModel::items-changed-{- |-Emitted when a change has occured to the menu.--The only changes that can occur to a menu is that items are removed-or added.  Items may not change (except by being removed and added-back in the same location).  This signal is capable of describing-both of those changes (at the same time).--The signal means that starting at the index /@position@/, /@removed@/-items were removed and /@added@/ items were added in their place.  If-/@removed@/ is zero then only items were added.  If /@added@/ is zero-then only items were removed.--As an example, if the menu contains items a, b, c, d (in that-order) and the signal (2, 1, 3) occurs then the new composition of-the menu will be a, b, _, _, _, d (with each _ representing some-new item).--Signal handlers may query the model (particularly the added items)-and expect to see the results of the modification that is being-reported.  The signal is emitted after the modification.--}-type MenuModelItemsChangedCallback =-    Int32-    {- ^ /@position@/: the position of the change -}-    -> Int32-    {- ^ /@removed@/: the number of items removed -}-    -> Int32-    {- ^ /@added@/: the number of items added -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MenuModelItemsChangedCallback`@.-noMenuModelItemsChangedCallback :: Maybe MenuModelItemsChangedCallback-noMenuModelItemsChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MenuModelItemsChangedCallback =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MenuModelItemsChangedCallback`.-foreign import ccall "wrapper"-    mk_MenuModelItemsChangedCallback :: C_MenuModelItemsChangedCallback -> IO (FunPtr C_MenuModelItemsChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MenuModelItemsChanged :: MonadIO m => MenuModelItemsChangedCallback -> m (GClosure C_MenuModelItemsChangedCallback)-genClosure_MenuModelItemsChanged cb = liftIO $ do-    let cb' = wrap_MenuModelItemsChangedCallback cb-    mk_MenuModelItemsChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MenuModelItemsChangedCallback` into a `C_MenuModelItemsChangedCallback`.-wrap_MenuModelItemsChangedCallback ::-    MenuModelItemsChangedCallback ->-    C_MenuModelItemsChangedCallback-wrap_MenuModelItemsChangedCallback _cb _ position removed added _ = do-    _cb  position removed added---{- |-Connect a signal handler for the “@items-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' menuModel #itemsChanged callback-@--}-onMenuModelItemsChanged :: (IsMenuModel a, MonadIO m) => a -> MenuModelItemsChangedCallback -> m SignalHandlerId-onMenuModelItemsChanged obj cb = liftIO $ do-    let cb' = wrap_MenuModelItemsChangedCallback cb-    cb'' <- mk_MenuModelItemsChangedCallback cb'-    connectSignalFunPtr obj "items-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@items-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' menuModel #itemsChanged callback-@--}-afterMenuModelItemsChanged :: (IsMenuModel a, MonadIO m) => a -> MenuModelItemsChangedCallback -> m SignalHandlerId-afterMenuModelItemsChanged obj cb = liftIO $ do-    let cb' = wrap_MenuModelItemsChangedCallback cb-    cb'' <- mk_MenuModelItemsChangedCallback cb'-    connectSignalFunPtr obj "items-changed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList MenuModel-type instance O.AttributeList MenuModel = MenuModelAttributeList-type MenuModelAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data MenuModelItemsChangedSignalInfo-instance SignalInfo MenuModelItemsChangedSignalInfo where-    type HaskellCallbackType MenuModelItemsChangedSignalInfo = MenuModelItemsChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MenuModelItemsChangedCallback cb-        cb'' <- mk_MenuModelItemsChangedCallback cb'-        connectSignalFunPtr obj "items-changed" cb'' connectMode--type instance O.SignalList MenuModel = MenuModelSignalList-type MenuModelSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method MenuModel::get_item_attribute_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the attribute to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected type of the attribute, or\n    %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_menu_model_get_item_attribute_value" g_menu_model_get_item_attribute_value :: -    Ptr MenuModel ->                        -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    Int32 ->                                -- item_index : TBasicType TInt-    CString ->                              -- attribute : TBasicType TUTF8-    Ptr GLib.VariantType.VariantType ->     -- expected_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    IO (Ptr GVariant)--{- |-Queries the item at position /@itemIndex@/ in /@model@/ for the attribute-specified by /@attribute@/.--If /@expectedType@/ is non-'Nothing' then it specifies the expected type of-the attribute.  If it is 'Nothing' then any type will be accepted.--If the attribute exists and matches /@expectedType@/ (or if the-expected type is unspecified) then the value is returned.--If the attribute does not exist, or does not match the expected type-then 'Nothing' is returned.--/Since: 2.32/--}-menuModelGetItemAttributeValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuModel a) =>-    a-    {- ^ /@model@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> Int32-    {- ^ /@itemIndex@/: the index of the item -}-    -> T.Text-    {- ^ /@attribute@/: the attribute to query -}-    -> Maybe (GLib.VariantType.VariantType)-    {- ^ /@expectedType@/: the expected type of the attribute, or-    'Nothing' -}-    -> m GVariant-    {- ^ __Returns:__ the value of the attribute -}-menuModelGetItemAttributeValue model itemIndex attribute expectedType = liftIO $ do-    model' <- unsafeManagedPtrCastPtr model-    attribute' <- textToCString attribute-    maybeExpectedType <- case expectedType of-        Nothing -> return nullPtr-        Just jExpectedType -> do-            jExpectedType' <- unsafeManagedPtrGetPtr jExpectedType-            return jExpectedType'-    result <- g_menu_model_get_item_attribute_value model' itemIndex attribute' maybeExpectedType-    checkUnexpectedReturnNULL "menuModelGetItemAttributeValue" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr model-    whenJust expectedType touchManagedPtr-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data MenuModelGetItemAttributeValueMethodInfo-instance (signature ~ (Int32 -> T.Text -> Maybe (GLib.VariantType.VariantType) -> m GVariant), MonadIO m, IsMenuModel a) => O.MethodInfo MenuModelGetItemAttributeValueMethodInfo a signature where-    overloadedMethod _ = menuModelGetItemAttributeValue--#endif---- method MenuModel::get_item_link--- method type : OrdinaryMethod--- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the link to query", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuModel"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_model_get_item_link" g_menu_model_get_item_link :: -    Ptr MenuModel ->                        -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    Int32 ->                                -- item_index : TBasicType TInt-    CString ->                              -- link : TBasicType TUTF8-    IO (Ptr MenuModel)--{- |-Queries the item at position /@itemIndex@/ in /@model@/ for the link-specified by /@link@/.--If the link exists, the linked 'GI.Gio.Objects.MenuModel.MenuModel' is returned.  If the link-does not exist, 'Nothing' is returned.--/Since: 2.32/--}-menuModelGetItemLink ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuModel a) =>-    a-    {- ^ /@model@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> Int32-    {- ^ /@itemIndex@/: the index of the item -}-    -> T.Text-    {- ^ /@link@/: the link to query -}-    -> m MenuModel-    {- ^ __Returns:__ the linked 'GI.Gio.Objects.MenuModel.MenuModel', or 'Nothing' -}-menuModelGetItemLink model itemIndex link = liftIO $ do-    model' <- unsafeManagedPtrCastPtr model-    link' <- textToCString link-    result <- g_menu_model_get_item_link model' itemIndex link'-    checkUnexpectedReturnNULL "menuModelGetItemLink" result-    result' <- (wrapObject MenuModel) result-    touchManagedPtr model-    freeMem link'-    return result'--#if ENABLE_OVERLOADING-data MenuModelGetItemLinkMethodInfo-instance (signature ~ (Int32 -> T.Text -> m MenuModel), MonadIO m, IsMenuModel a) => O.MethodInfo MenuModelGetItemLinkMethodInfo a signature where-    overloadedMethod _ = menuModelGetItemLink--#endif---- method MenuModel::get_n_items--- method type : OrdinaryMethod--- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", 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 "g_menu_model_get_n_items" g_menu_model_get_n_items :: -    Ptr MenuModel ->                        -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO Int32--{- |-Query the number of items in /@model@/.--/Since: 2.32/--}-menuModelGetNItems ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuModel a) =>-    a-    {- ^ /@model@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> m Int32-    {- ^ __Returns:__ the number of items -}-menuModelGetNItems model = liftIO $ do-    model' <- unsafeManagedPtrCastPtr model-    result <- g_menu_model_get_n_items model'-    touchManagedPtr model-    return result--#if ENABLE_OVERLOADING-data MenuModelGetNItemsMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsMenuModel a) => O.MethodInfo MenuModelGetNItemsMethodInfo a signature where-    overloadedMethod _ = menuModelGetNItems--#endif---- method MenuModel::is_mutable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", 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 "g_menu_model_is_mutable" g_menu_model_is_mutable :: -    Ptr MenuModel ->                        -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    IO CInt--{- |-Queries if /@model@/ is mutable.--An immutable 'GI.Gio.Objects.MenuModel.MenuModel' will never emit the 'GI.Gio.Objects.MenuModel.MenuModel'::@/items-changed/@-signal. Consumers of the model may make optimisations accordingly.--/Since: 2.32/--}-menuModelIsMutable ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuModel a) =>-    a-    {- ^ /@model@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the model is mutable (ie: \"items-changed\" may be-    emitted). -}-menuModelIsMutable model = liftIO $ do-    model' <- unsafeManagedPtrCastPtr model-    result <- g_menu_model_is_mutable model'-    let result' = (/= 0) result-    touchManagedPtr model-    return result'--#if ENABLE_OVERLOADING-data MenuModelIsMutableMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMenuModel a) => O.MethodInfo MenuModelIsMutableMethodInfo a signature where-    overloadedMethod _ = menuModelIsMutable--#endif---- method MenuModel::items_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the position of the change", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items removed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of items added", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_menu_model_items_changed" g_menu_model_items_changed :: -    Ptr MenuModel ->                        -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    Int32 ->                                -- position : TBasicType TInt-    Int32 ->                                -- removed : TBasicType TInt-    Int32 ->                                -- added : TBasicType TInt-    IO ()--{- |-Requests emission of the 'GI.Gio.Objects.MenuModel.MenuModel'::@/items-changed/@ signal on /@model@/.--This function should never be called except by 'GI.Gio.Objects.MenuModel.MenuModel'-subclasses.  Any other calls to this function will very likely lead-to a violation of the interface of the model.--The implementation should update its internal representation of the-menu before emitting the signal.  The implementation should further-expect to receive queries about the new state of the menu (and-particularly added menu items) while signal handlers are running.--The implementation must dispatch this call directly from a mainloop-entry and not in response to calls -- particularly those from the-'GI.Gio.Objects.MenuModel.MenuModel' API.  Said another way: the menu must not change while-user code is running without returning to the mainloop.--/Since: 2.32/--}-menuModelItemsChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuModel a) =>-    a-    {- ^ /@model@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> Int32-    {- ^ /@position@/: the position of the change -}-    -> Int32-    {- ^ /@removed@/: the number of items removed -}-    -> Int32-    {- ^ /@added@/: the number of items added -}-    -> m ()-menuModelItemsChanged model position removed added = liftIO $ do-    model' <- unsafeManagedPtrCastPtr model-    g_menu_model_items_changed model' position removed added-    touchManagedPtr model-    return ()--#if ENABLE_OVERLOADING-data MenuModelItemsChangedMethodInfo-instance (signature ~ (Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsMenuModel a) => O.MethodInfo MenuModelItemsChangedMethodInfo a signature where-    overloadedMethod _ = menuModelItemsChanged--#endif---- method MenuModel::iterate_item_attributes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuAttributeIter"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_model_iterate_item_attributes" g_menu_model_iterate_item_attributes :: -    Ptr MenuModel ->                        -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    Int32 ->                                -- item_index : TBasicType TInt-    IO (Ptr Gio.MenuAttributeIter.MenuAttributeIter)--{- |-Creates a 'GI.Gio.Objects.MenuAttributeIter.MenuAttributeIter' to iterate over the attributes of-the item at position /@itemIndex@/ in /@model@/.--You must free the iterator with 'GI.GObject.Objects.Object.objectUnref' when you are done.--/Since: 2.32/--}-menuModelIterateItemAttributes ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuModel a) =>-    a-    {- ^ /@model@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> Int32-    {- ^ /@itemIndex@/: the index of the item -}-    -> m Gio.MenuAttributeIter.MenuAttributeIter-    {- ^ __Returns:__ a new 'GI.Gio.Objects.MenuAttributeIter.MenuAttributeIter' -}-menuModelIterateItemAttributes model itemIndex = liftIO $ do-    model' <- unsafeManagedPtrCastPtr model-    result <- g_menu_model_iterate_item_attributes model' itemIndex-    checkUnexpectedReturnNULL "menuModelIterateItemAttributes" result-    result' <- (wrapObject Gio.MenuAttributeIter.MenuAttributeIter) result-    touchManagedPtr model-    return result'--#if ENABLE_OVERLOADING-data MenuModelIterateItemAttributesMethodInfo-instance (signature ~ (Int32 -> m Gio.MenuAttributeIter.MenuAttributeIter), MonadIO m, IsMenuModel a) => O.MethodInfo MenuModelIterateItemAttributesMethodInfo a signature where-    overloadedMethod _ = menuModelIterateItemAttributes--#endif---- method MenuModel::iterate_item_links--- method type : OrdinaryMethod--- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gio", name = "MenuModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMenuModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the item", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MenuLinkIter"}))--- throws : False--- Skip return : False--foreign import ccall "g_menu_model_iterate_item_links" g_menu_model_iterate_item_links :: -    Ptr MenuModel ->                        -- model : TInterface (Name {namespace = "Gio", name = "MenuModel"})-    Int32 ->                                -- item_index : TBasicType TInt-    IO (Ptr Gio.MenuLinkIter.MenuLinkIter)--{- |-Creates a 'GI.Gio.Objects.MenuLinkIter.MenuLinkIter' to iterate over the links of the item at-position /@itemIndex@/ in /@model@/.--You must free the iterator with 'GI.GObject.Objects.Object.objectUnref' when you are done.--/Since: 2.32/--}-menuModelIterateItemLinks ::-    (B.CallStack.HasCallStack, MonadIO m, IsMenuModel a) =>-    a-    {- ^ /@model@/: a 'GI.Gio.Objects.MenuModel.MenuModel' -}-    -> Int32-    {- ^ /@itemIndex@/: the index of the item -}-    -> m Gio.MenuLinkIter.MenuLinkIter-    {- ^ __Returns:__ a new 'GI.Gio.Objects.MenuLinkIter.MenuLinkIter' -}-menuModelIterateItemLinks model itemIndex = liftIO $ do-    model' <- unsafeManagedPtrCastPtr model-    result <- g_menu_model_iterate_item_links model' itemIndex-    checkUnexpectedReturnNULL "menuModelIterateItemLinks" result-    result' <- (wrapObject Gio.MenuLinkIter.MenuLinkIter) result-    touchManagedPtr model-    return result'--#if ENABLE_OVERLOADING-data MenuModelIterateItemLinksMethodInfo-instance (signature ~ (Int32 -> m Gio.MenuLinkIter.MenuLinkIter), MonadIO m, IsMenuModel a) => O.MethodInfo MenuModelIterateItemLinksMethodInfo a signature where-    overloadedMethod _ = menuModelIterateItemLinks--#endif--
− GI/Gio/Objects/MenuModel.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.MenuModel 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 MenuModel = MenuModel (ManagedPtr MenuModel)-instance GObject MenuModel where-class (GObject o, O.IsDescendantOf MenuModel o) => IsMenuModel o-instance (GObject o, O.IsDescendantOf MenuModel o) => IsMenuModel o-instance O.HasParentTypes MenuModel-#if ENABLE_OVERLOADING-data MenuModelItemsChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data MenuModelGetItemAttributeValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuModelGetItemLinkMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuModelGetNItemsMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuModelIsMutableMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuModelItemsChangedMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuModelIterateItemAttributesMethodInfo-#endif-#if ENABLE_OVERLOADING-data MenuModelIterateItemLinksMethodInfo-#endif
− GI/Gio/Objects/MountOperation.hs 
@@ -1,2285 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.MountOperation.MountOperation' provides a mechanism for interacting with the user.-It can be used for authenticating mountable operations, such as loop-mounting files, hard drive partitions or server locations. It can-also be used to ask the user questions or show a list of applications-preventing unmount or eject operations from completing.--Note that 'GI.Gio.Objects.MountOperation.MountOperation' is used for more than just 'GI.Gio.Interfaces.Mount.Mount'-objects – for example it is also used in 'GI.Gio.Interfaces.Drive.driveStart' and-'GI.Gio.Interfaces.Drive.driveStop'.--Users should instantiate a subclass of this that implements all the-various callbacks to show the required dialogs, such as-@/GtkMountOperation/@. If no user interaction is desired (for example-when automounting filesystems at login time), usually 'Nothing' can be-passed, see each method taking a 'GI.Gio.Objects.MountOperation.MountOperation' for details.--The term ‘TCRYPT’ is used to mean ‘compatible with TrueCrypt and VeraCrypt’.-<https://en.wikipedia.org/wiki/TrueCrypt TrueCrypt> is a discontinued system for-encrypting file containers, partitions or whole disks, typically used with Windows.-<https://www.veracrypt.fr/ VeraCrypt> is a maintained fork of TrueCrypt with various-improvements and auditing fixes.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.MountOperation-    ( ---- * Exported types-    MountOperation(..)                      ,-    IsMountOperation                        ,-    toMountOperation                        ,-    noMountOperation                        ,--- -- * Methods--- ** getAnonymous #method:getAnonymous#--#if ENABLE_OVERLOADING-    MountOperationGetAnonymousMethodInfo    ,-#endif-    mountOperationGetAnonymous              ,----- ** getChoice #method:getChoice#--#if ENABLE_OVERLOADING-    MountOperationGetChoiceMethodInfo       ,-#endif-    mountOperationGetChoice                 ,----- ** getDomain #method:getDomain#--#if ENABLE_OVERLOADING-    MountOperationGetDomainMethodInfo       ,-#endif-    mountOperationGetDomain                 ,----- ** getIsTcryptHiddenVolume #method:getIsTcryptHiddenVolume#--#if ENABLE_OVERLOADING-    MountOperationGetIsTcryptHiddenVolumeMethodInfo,-#endif-    mountOperationGetIsTcryptHiddenVolume   ,----- ** getIsTcryptSystemVolume #method:getIsTcryptSystemVolume#--#if ENABLE_OVERLOADING-    MountOperationGetIsTcryptSystemVolumeMethodInfo,-#endif-    mountOperationGetIsTcryptSystemVolume   ,----- ** getPassword #method:getPassword#--#if ENABLE_OVERLOADING-    MountOperationGetPasswordMethodInfo     ,-#endif-    mountOperationGetPassword               ,----- ** getPasswordSave #method:getPasswordSave#--#if ENABLE_OVERLOADING-    MountOperationGetPasswordSaveMethodInfo ,-#endif-    mountOperationGetPasswordSave           ,----- ** getPim #method:getPim#--#if ENABLE_OVERLOADING-    MountOperationGetPimMethodInfo          ,-#endif-    mountOperationGetPim                    ,----- ** getUsername #method:getUsername#--#if ENABLE_OVERLOADING-    MountOperationGetUsernameMethodInfo     ,-#endif-    mountOperationGetUsername               ,----- ** new #method:new#--    mountOperationNew                       ,----- ** reply #method:reply#--#if ENABLE_OVERLOADING-    MountOperationReplyMethodInfo           ,-#endif-    mountOperationReply                     ,----- ** setAnonymous #method:setAnonymous#--#if ENABLE_OVERLOADING-    MountOperationSetAnonymousMethodInfo    ,-#endif-    mountOperationSetAnonymous              ,----- ** setChoice #method:setChoice#--#if ENABLE_OVERLOADING-    MountOperationSetChoiceMethodInfo       ,-#endif-    mountOperationSetChoice                 ,----- ** setDomain #method:setDomain#--#if ENABLE_OVERLOADING-    MountOperationSetDomainMethodInfo       ,-#endif-    mountOperationSetDomain                 ,----- ** setIsTcryptHiddenVolume #method:setIsTcryptHiddenVolume#--#if ENABLE_OVERLOADING-    MountOperationSetIsTcryptHiddenVolumeMethodInfo,-#endif-    mountOperationSetIsTcryptHiddenVolume   ,----- ** setIsTcryptSystemVolume #method:setIsTcryptSystemVolume#--#if ENABLE_OVERLOADING-    MountOperationSetIsTcryptSystemVolumeMethodInfo,-#endif-    mountOperationSetIsTcryptSystemVolume   ,----- ** setPassword #method:setPassword#--#if ENABLE_OVERLOADING-    MountOperationSetPasswordMethodInfo     ,-#endif-    mountOperationSetPassword               ,----- ** setPasswordSave #method:setPasswordSave#--#if ENABLE_OVERLOADING-    MountOperationSetPasswordSaveMethodInfo ,-#endif-    mountOperationSetPasswordSave           ,----- ** setPim #method:setPim#--#if ENABLE_OVERLOADING-    MountOperationSetPimMethodInfo          ,-#endif-    mountOperationSetPim                    ,----- ** setUsername #method:setUsername#--#if ENABLE_OVERLOADING-    MountOperationSetUsernameMethodInfo     ,-#endif-    mountOperationSetUsername               ,----- -- * Properties--- ** anonymous #attr:anonymous#-{- | Whether to use an anonymous user when authenticating.--}-#if ENABLE_OVERLOADING-    MountOperationAnonymousPropertyInfo     ,-#endif-    constructMountOperationAnonymous        ,-    getMountOperationAnonymous              ,-#if ENABLE_OVERLOADING-    mountOperationAnonymous                 ,-#endif-    setMountOperationAnonymous              ,----- ** choice #attr:choice#-{- | The index of the user\'s choice when a question is asked during the-mount operation. See the 'GI.Gio.Objects.MountOperation.MountOperation'::@/ask-question/@ signal.--}-#if ENABLE_OVERLOADING-    MountOperationChoicePropertyInfo        ,-#endif-    constructMountOperationChoice           ,-    getMountOperationChoice                 ,-#if ENABLE_OVERLOADING-    mountOperationChoice                    ,-#endif-    setMountOperationChoice                 ,----- ** domain #attr:domain#-{- | The domain to use for the mount operation.--}-#if ENABLE_OVERLOADING-    MountOperationDomainPropertyInfo        ,-#endif-    constructMountOperationDomain           ,-    getMountOperationDomain                 ,-#if ENABLE_OVERLOADING-    mountOperationDomain                    ,-#endif-    setMountOperationDomain                 ,----- ** isTcryptHiddenVolume #attr:isTcryptHiddenVolume#-{- | Whether the device to be unlocked is a TCRYPT hidden volume.-See <https://www.veracrypt.fr/en/Hidden%20Volume.html the VeraCrypt documentation>.--/Since: 2.58/--}-#if ENABLE_OVERLOADING-    MountOperationIsTcryptHiddenVolumePropertyInfo,-#endif-    constructMountOperationIsTcryptHiddenVolume,-    getMountOperationIsTcryptHiddenVolume   ,-#if ENABLE_OVERLOADING-    mountOperationIsTcryptHiddenVolume      ,-#endif-    setMountOperationIsTcryptHiddenVolume   ,----- ** isTcryptSystemVolume #attr:isTcryptSystemVolume#-{- | Whether the device to be unlocked is a TCRYPT system volume.-In this context, a system volume is a volume with a bootloader-and operating system installed. This is only supported for Windows-operating systems. For further documentation, see-<https://www.veracrypt.fr/en/System%20Encryption.html the VeraCrypt documentation>.--/Since: 2.58/--}-#if ENABLE_OVERLOADING-    MountOperationIsTcryptSystemVolumePropertyInfo,-#endif-    constructMountOperationIsTcryptSystemVolume,-    getMountOperationIsTcryptSystemVolume   ,-#if ENABLE_OVERLOADING-    mountOperationIsTcryptSystemVolume      ,-#endif-    setMountOperationIsTcryptSystemVolume   ,----- ** password #attr:password#-{- | The password that is used for authentication when carrying out-the mount operation.--}-#if ENABLE_OVERLOADING-    MountOperationPasswordPropertyInfo      ,-#endif-    constructMountOperationPassword         ,-    getMountOperationPassword               ,-#if ENABLE_OVERLOADING-    mountOperationPassword                  ,-#endif-    setMountOperationPassword               ,----- ** passwordSave #attr:passwordSave#-{- | Determines if and how the password information should be saved.--}-#if ENABLE_OVERLOADING-    MountOperationPasswordSavePropertyInfo  ,-#endif-    constructMountOperationPasswordSave     ,-    getMountOperationPasswordSave           ,-#if ENABLE_OVERLOADING-    mountOperationPasswordSave              ,-#endif-    setMountOperationPasswordSave           ,----- ** pim #attr:pim#-{- | The VeraCrypt PIM value, when unlocking a VeraCrypt volume. See-<https://www.veracrypt.fr/en/Personal%20Iterations%20Multiplier%20(PIM the VeraCrypt documentation>.html).--/Since: 2.58/--}-#if ENABLE_OVERLOADING-    MountOperationPimPropertyInfo           ,-#endif-    constructMountOperationPim              ,-    getMountOperationPim                    ,-#if ENABLE_OVERLOADING-    mountOperationPim                       ,-#endif-    setMountOperationPim                    ,----- ** username #attr:username#-{- | The user name that is used for authentication when carrying out-the mount operation.--}-#if ENABLE_OVERLOADING-    MountOperationUsernamePropertyInfo      ,-#endif-    constructMountOperationUsername         ,-    getMountOperationUsername               ,-#if ENABLE_OVERLOADING-    mountOperationUsername                  ,-#endif-    setMountOperationUsername               ,----- -- * Signals--- ** aborted #signal:aborted#--    C_MountOperationAbortedCallback         ,-    MountOperationAbortedCallback           ,-#if ENABLE_OVERLOADING-    MountOperationAbortedSignalInfo         ,-#endif-    afterMountOperationAborted              ,-    genClosure_MountOperationAborted        ,-    mk_MountOperationAbortedCallback        ,-    noMountOperationAbortedCallback         ,-    onMountOperationAborted                 ,-    wrap_MountOperationAbortedCallback      ,----- ** askPassword #signal:askPassword#--    C_MountOperationAskPasswordCallback     ,-    MountOperationAskPasswordCallback       ,-#if ENABLE_OVERLOADING-    MountOperationAskPasswordSignalInfo     ,-#endif-    afterMountOperationAskPassword          ,-    genClosure_MountOperationAskPassword    ,-    mk_MountOperationAskPasswordCallback    ,-    noMountOperationAskPasswordCallback     ,-    onMountOperationAskPassword             ,-    wrap_MountOperationAskPasswordCallback  ,----- ** askQuestion #signal:askQuestion#--    C_MountOperationAskQuestionCallback     ,-    MountOperationAskQuestionCallback       ,-#if ENABLE_OVERLOADING-    MountOperationAskQuestionSignalInfo     ,-#endif-    afterMountOperationAskQuestion          ,-    genClosure_MountOperationAskQuestion    ,-    mk_MountOperationAskQuestionCallback    ,-    noMountOperationAskQuestionCallback     ,-    onMountOperationAskQuestion             ,-    wrap_MountOperationAskQuestionCallback  ,----- ** reply #signal:reply#--    C_MountOperationReplyCallback           ,-    MountOperationReplyCallback             ,-#if ENABLE_OVERLOADING-    MountOperationReplySignalInfo           ,-#endif-    afterMountOperationReply                ,-    genClosure_MountOperationReply          ,-    mk_MountOperationReplyCallback          ,-    noMountOperationReplyCallback           ,-    onMountOperationReply                   ,-    wrap_MountOperationReplyCallback        ,----- ** showProcesses #signal:showProcesses#--    C_MountOperationShowProcessesCallback   ,-    MountOperationShowProcessesCallback     ,-#if ENABLE_OVERLOADING-    MountOperationShowProcessesSignalInfo   ,-#endif-    afterMountOperationShowProcesses        ,-    genClosure_MountOperationShowProcesses  ,-    mk_MountOperationShowProcessesCallback  ,-    noMountOperationShowProcessesCallback   ,-    onMountOperationShowProcesses           ,-    wrap_MountOperationShowProcessesCallback,----- ** showUnmountProgress #signal:showUnmountProgress#--    C_MountOperationShowUnmountProgressCallback,-    MountOperationShowUnmountProgressCallback,-#if ENABLE_OVERLOADING-    MountOperationShowUnmountProgressSignalInfo,-#endif-    afterMountOperationShowUnmountProgress  ,-    genClosure_MountOperationShowUnmountProgress,-    mk_MountOperationShowUnmountProgressCallback,-    noMountOperationShowUnmountProgressCallback,-    onMountOperationShowUnmountProgress     ,-    wrap_MountOperationShowUnmountProgressCallback,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags---- | Memory-managed wrapper type.-newtype MountOperation = MountOperation (ManagedPtr MountOperation)-foreign import ccall "g_mount_operation_get_type"-    c_g_mount_operation_get_type :: IO GType--instance GObject MountOperation where-    gobjectType = c_g_mount_operation_get_type-    ---- | Type class for types which can be safely cast to `MountOperation`, for instance with `toMountOperation`.-class (GObject o, O.IsDescendantOf MountOperation o) => IsMountOperation o-instance (GObject o, O.IsDescendantOf MountOperation o) => IsMountOperation o--instance O.HasParentTypes MountOperation-type instance O.ParentTypes MountOperation = '[GObject.Object.Object]---- | Cast to `MountOperation`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMountOperation :: (MonadIO m, IsMountOperation o) => o -> m MountOperation-toMountOperation = liftIO . unsafeCastTo MountOperation---- | A convenience alias for `Nothing` :: `Maybe` `MountOperation`.-noMountOperation :: Maybe MountOperation-noMountOperation = Nothing--#if ENABLE_OVERLOADING-type family ResolveMountOperationMethod (t :: Symbol) (o :: *) :: * where-    ResolveMountOperationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMountOperationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMountOperationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMountOperationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMountOperationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMountOperationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMountOperationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMountOperationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMountOperationMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMountOperationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMountOperationMethod "reply" o = MountOperationReplyMethodInfo-    ResolveMountOperationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMountOperationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMountOperationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMountOperationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMountOperationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMountOperationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMountOperationMethod "getAnonymous" o = MountOperationGetAnonymousMethodInfo-    ResolveMountOperationMethod "getChoice" o = MountOperationGetChoiceMethodInfo-    ResolveMountOperationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMountOperationMethod "getDomain" o = MountOperationGetDomainMethodInfo-    ResolveMountOperationMethod "getIsTcryptHiddenVolume" o = MountOperationGetIsTcryptHiddenVolumeMethodInfo-    ResolveMountOperationMethod "getIsTcryptSystemVolume" o = MountOperationGetIsTcryptSystemVolumeMethodInfo-    ResolveMountOperationMethod "getPassword" o = MountOperationGetPasswordMethodInfo-    ResolveMountOperationMethod "getPasswordSave" o = MountOperationGetPasswordSaveMethodInfo-    ResolveMountOperationMethod "getPim" o = MountOperationGetPimMethodInfo-    ResolveMountOperationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMountOperationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMountOperationMethod "getUsername" o = MountOperationGetUsernameMethodInfo-    ResolveMountOperationMethod "setAnonymous" o = MountOperationSetAnonymousMethodInfo-    ResolveMountOperationMethod "setChoice" o = MountOperationSetChoiceMethodInfo-    ResolveMountOperationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMountOperationMethod "setDomain" o = MountOperationSetDomainMethodInfo-    ResolveMountOperationMethod "setIsTcryptHiddenVolume" o = MountOperationSetIsTcryptHiddenVolumeMethodInfo-    ResolveMountOperationMethod "setIsTcryptSystemVolume" o = MountOperationSetIsTcryptSystemVolumeMethodInfo-    ResolveMountOperationMethod "setPassword" o = MountOperationSetPasswordMethodInfo-    ResolveMountOperationMethod "setPasswordSave" o = MountOperationSetPasswordSaveMethodInfo-    ResolveMountOperationMethod "setPim" o = MountOperationSetPimMethodInfo-    ResolveMountOperationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMountOperationMethod "setUsername" o = MountOperationSetUsernameMethodInfo-    ResolveMountOperationMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMountOperationMethod t MountOperation, O.MethodInfo info MountOperation p) => OL.IsLabel t (MountOperation -> 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 MountOperation::aborted-{- |-Emitted by the backend when e.g. a device becomes unavailable-while a mount operation is in progress.--Implementations of GMountOperation should handle this signal-by dismissing open password dialogs.--/Since: 2.20/--}-type MountOperationAbortedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountOperationAbortedCallback`@.-noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback-noMountOperationAbortedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountOperationAbortedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountOperationAbortedCallback`.-foreign import ccall "wrapper"-    mk_MountOperationAbortedCallback :: C_MountOperationAbortedCallback -> IO (FunPtr C_MountOperationAbortedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountOperationAborted :: MonadIO m => MountOperationAbortedCallback -> m (GClosure C_MountOperationAbortedCallback)-genClosure_MountOperationAborted cb = liftIO $ do-    let cb' = wrap_MountOperationAbortedCallback cb-    mk_MountOperationAbortedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountOperationAbortedCallback` into a `C_MountOperationAbortedCallback`.-wrap_MountOperationAbortedCallback ::-    MountOperationAbortedCallback ->-    C_MountOperationAbortedCallback-wrap_MountOperationAbortedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@aborted@” 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' mountOperation #aborted callback-@--}-onMountOperationAborted :: (IsMountOperation a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId-onMountOperationAborted obj cb = liftIO $ do-    let cb' = wrap_MountOperationAbortedCallback cb-    cb'' <- mk_MountOperationAbortedCallback cb'-    connectSignalFunPtr obj "aborted" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@aborted@” 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' mountOperation #aborted callback-@--}-afterMountOperationAborted :: (IsMountOperation a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId-afterMountOperationAborted obj cb = liftIO $ do-    let cb' = wrap_MountOperationAbortedCallback cb-    cb'' <- mk_MountOperationAbortedCallback cb'-    connectSignalFunPtr obj "aborted" cb'' SignalConnectAfter----- signal MountOperation::ask-password-{- |-Emitted when a mount operation asks the user for a password.--If the message contains a line break, the first line should be-presented as a heading. For example, it may be used as the-primary text in a @/GtkMessageDialog/@.--}-type MountOperationAskPasswordCallback =-    T.Text-    {- ^ /@message@/: string containing a message to display to the user. -}-    -> T.Text-    {- ^ /@defaultUser@/: string containing the default user name. -}-    -> T.Text-    {- ^ /@defaultDomain@/: string containing the default domain. -}-    -> [Gio.Flags.AskPasswordFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.AskPasswordFlags'. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountOperationAskPasswordCallback`@.-noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback-noMountOperationAskPasswordCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountOperationAskPasswordCallback =-    Ptr () ->                               -- object-    CString ->-    CString ->-    CString ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountOperationAskPasswordCallback`.-foreign import ccall "wrapper"-    mk_MountOperationAskPasswordCallback :: C_MountOperationAskPasswordCallback -> IO (FunPtr C_MountOperationAskPasswordCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountOperationAskPassword :: MonadIO m => MountOperationAskPasswordCallback -> m (GClosure C_MountOperationAskPasswordCallback)-genClosure_MountOperationAskPassword cb = liftIO $ do-    let cb' = wrap_MountOperationAskPasswordCallback cb-    mk_MountOperationAskPasswordCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountOperationAskPasswordCallback` into a `C_MountOperationAskPasswordCallback`.-wrap_MountOperationAskPasswordCallback ::-    MountOperationAskPasswordCallback ->-    C_MountOperationAskPasswordCallback-wrap_MountOperationAskPasswordCallback _cb _ message defaultUser defaultDomain flags _ = do-    message' <- cstringToText message-    defaultUser' <- cstringToText defaultUser-    defaultDomain' <- cstringToText defaultDomain-    let flags' = wordToGFlags flags-    _cb  message' defaultUser' defaultDomain' flags'---{- |-Connect a signal handler for the “@ask-password@” 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' mountOperation #askPassword callback-@--}-onMountOperationAskPassword :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId-onMountOperationAskPassword obj cb = liftIO $ do-    let cb' = wrap_MountOperationAskPasswordCallback cb-    cb'' <- mk_MountOperationAskPasswordCallback cb'-    connectSignalFunPtr obj "ask-password" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@ask-password@” 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' mountOperation #askPassword callback-@--}-afterMountOperationAskPassword :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId-afterMountOperationAskPassword obj cb = liftIO $ do-    let cb' = wrap_MountOperationAskPasswordCallback cb-    cb'' <- mk_MountOperationAskPasswordCallback cb'-    connectSignalFunPtr obj "ask-password" cb'' SignalConnectAfter----- signal MountOperation::ask-question-{- |-Emitted when asking the user a question and gives a list of-choices for the user to choose from.--If the message contains a line break, the first line should be-presented as a heading. For example, it may be used as the-primary text in a @/GtkMessageDialog/@.--}-type MountOperationAskQuestionCallback =-    T.Text-    {- ^ /@message@/: string containing a message to display to the user. -}-    -> [T.Text]-    {- ^ /@choices@/: an array of strings for each possible choice. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountOperationAskQuestionCallback`@.-noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback-noMountOperationAskQuestionCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountOperationAskQuestionCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountOperationAskQuestionCallback`.-foreign import ccall "wrapper"-    mk_MountOperationAskQuestionCallback :: C_MountOperationAskQuestionCallback -> IO (FunPtr C_MountOperationAskQuestionCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountOperationAskQuestion :: MonadIO m => MountOperationAskQuestionCallback -> m (GClosure C_MountOperationAskQuestionCallback)-genClosure_MountOperationAskQuestion cb = liftIO $ do-    let cb' = wrap_MountOperationAskQuestionCallback cb-    mk_MountOperationAskQuestionCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountOperationAskQuestionCallback` into a `C_MountOperationAskQuestionCallback`.-wrap_MountOperationAskQuestionCallback ::-    MountOperationAskQuestionCallback ->-    C_MountOperationAskQuestionCallback-wrap_MountOperationAskQuestionCallback _cb _ message choices _ = do-    message' <- cstringToText message-    choices' <- unpackZeroTerminatedUTF8CArray choices-    _cb  message' choices'---{- |-Connect a signal handler for the “@ask-question@” 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' mountOperation #askQuestion callback-@--}-onMountOperationAskQuestion :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId-onMountOperationAskQuestion obj cb = liftIO $ do-    let cb' = wrap_MountOperationAskQuestionCallback cb-    cb'' <- mk_MountOperationAskQuestionCallback cb'-    connectSignalFunPtr obj "ask-question" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@ask-question@” 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' mountOperation #askQuestion callback-@--}-afterMountOperationAskQuestion :: (IsMountOperation a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId-afterMountOperationAskQuestion obj cb = liftIO $ do-    let cb' = wrap_MountOperationAskQuestionCallback cb-    cb'' <- mk_MountOperationAskQuestionCallback cb'-    connectSignalFunPtr obj "ask-question" cb'' SignalConnectAfter----- signal MountOperation::reply-{- |-Emitted when the user has replied to the mount operation.--}-type MountOperationReplyCallback =-    Gio.Enums.MountOperationResult-    {- ^ /@result@/: a 'GI.Gio.Enums.MountOperationResult' indicating how the request was handled -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountOperationReplyCallback`@.-noMountOperationReplyCallback :: Maybe MountOperationReplyCallback-noMountOperationReplyCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountOperationReplyCallback =-    Ptr () ->                               -- object-    CUInt ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountOperationReplyCallback`.-foreign import ccall "wrapper"-    mk_MountOperationReplyCallback :: C_MountOperationReplyCallback -> IO (FunPtr C_MountOperationReplyCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountOperationReply :: MonadIO m => MountOperationReplyCallback -> m (GClosure C_MountOperationReplyCallback)-genClosure_MountOperationReply cb = liftIO $ do-    let cb' = wrap_MountOperationReplyCallback cb-    mk_MountOperationReplyCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountOperationReplyCallback` into a `C_MountOperationReplyCallback`.-wrap_MountOperationReplyCallback ::-    MountOperationReplyCallback ->-    C_MountOperationReplyCallback-wrap_MountOperationReplyCallback _cb _ result_ _ = do-    let result_' = (toEnum . fromIntegral) result_-    _cb  result_'---{- |-Connect a signal handler for the “@reply@” 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' mountOperation #reply callback-@--}-onMountOperationReply :: (IsMountOperation a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId-onMountOperationReply obj cb = liftIO $ do-    let cb' = wrap_MountOperationReplyCallback cb-    cb'' <- mk_MountOperationReplyCallback cb'-    connectSignalFunPtr obj "reply" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@reply@” 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' mountOperation #reply callback-@--}-afterMountOperationReply :: (IsMountOperation a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId-afterMountOperationReply obj cb = liftIO $ do-    let cb' = wrap_MountOperationReplyCallback cb-    cb'' <- mk_MountOperationReplyCallback cb'-    connectSignalFunPtr obj "reply" cb'' SignalConnectAfter----- signal MountOperation::show-processes-{- |-Emitted when one or more processes are blocking an operation-e.g. unmounting\/ejecting a 'GI.Gio.Interfaces.Mount.Mount' or stopping a 'GI.Gio.Interfaces.Drive.Drive'.--Note that this signal may be emitted several times to update the-list of blocking processes as processes close files. The-application should only respond with 'GI.Gio.Objects.MountOperation.mountOperationReply' to-the latest signal (setting 'GI.Gio.Objects.MountOperation.MountOperation':@/choice/@ to the choice-the user made).--If the message contains a line break, the first line should be-presented as a heading. For example, it may be used as the-primary text in a @/GtkMessageDialog/@.--/Since: 2.22/--}-type MountOperationShowProcessesCallback =-    T.Text-    {- ^ /@message@/: string containing a message to display to the user. -}-    -> [Int32]-    {- ^ /@processes@/: an array of @/GPid/@ for processes-  blocking the operation. -}-    -> [T.Text]-    {- ^ /@choices@/: an array of strings for each possible choice. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountOperationShowProcessesCallback`@.-noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback-noMountOperationShowProcessesCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountOperationShowProcessesCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr (GArray Int32) ->-    Ptr CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountOperationShowProcessesCallback`.-foreign import ccall "wrapper"-    mk_MountOperationShowProcessesCallback :: C_MountOperationShowProcessesCallback -> IO (FunPtr C_MountOperationShowProcessesCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountOperationShowProcesses :: MonadIO m => MountOperationShowProcessesCallback -> m (GClosure C_MountOperationShowProcessesCallback)-genClosure_MountOperationShowProcesses cb = liftIO $ do-    let cb' = wrap_MountOperationShowProcessesCallback cb-    mk_MountOperationShowProcessesCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountOperationShowProcessesCallback` into a `C_MountOperationShowProcessesCallback`.-wrap_MountOperationShowProcessesCallback ::-    MountOperationShowProcessesCallback ->-    C_MountOperationShowProcessesCallback-wrap_MountOperationShowProcessesCallback _cb _ message processes choices _ = do-    message' <- cstringToText message-    processes' <- unpackGArray processes-    choices' <- unpackZeroTerminatedUTF8CArray choices-    _cb  message' processes' choices'---{- |-Connect a signal handler for the “@show-processes@” 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' mountOperation #showProcesses callback-@--}-onMountOperationShowProcesses :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId-onMountOperationShowProcesses obj cb = liftIO $ do-    let cb' = wrap_MountOperationShowProcessesCallback cb-    cb'' <- mk_MountOperationShowProcessesCallback cb'-    connectSignalFunPtr obj "show-processes" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@show-processes@” 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' mountOperation #showProcesses callback-@--}-afterMountOperationShowProcesses :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId-afterMountOperationShowProcesses obj cb = liftIO $ do-    let cb' = wrap_MountOperationShowProcessesCallback cb-    cb'' <- mk_MountOperationShowProcessesCallback cb'-    connectSignalFunPtr obj "show-processes" cb'' SignalConnectAfter----- signal MountOperation::show-unmount-progress-{- |-Emitted when an unmount operation has been busy for more than some time-(typically 1.5 seconds).--When unmounting or ejecting a volume, the kernel might need to flush-pending data in its buffers to the volume stable storage, and this operation-can take a considerable amount of time. This signal may be emitted several-times as long as the unmount operation is outstanding, and then one-last time when the operation is completed, with /@bytesLeft@/ set to zero.--Implementations of GMountOperation should handle this signal by-showing an UI notification, and then dismiss it, or show another notification-of completion, when /@bytesLeft@/ reaches zero.--If the message contains a line break, the first line should be-presented as a heading. For example, it may be used as the-primary text in a @/GtkMessageDialog/@.--/Since: 2.34/--}-type MountOperationShowUnmountProgressCallback =-    T.Text-    {- ^ /@message@/: string containing a mesage to display to the user -}-    -> Int64-    {- ^ /@timeLeft@/: the estimated time left before the operation completes,-    in microseconds, or -1 -}-    -> Int64-    {- ^ /@bytesLeft@/: the amount of bytes to be written before the operation-    completes (or -1 if such amount is not known), or zero if the operation-    is completed -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MountOperationShowUnmountProgressCallback`@.-noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback-noMountOperationShowUnmountProgressCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MountOperationShowUnmountProgressCallback =-    Ptr () ->                               -- object-    CString ->-    Int64 ->-    Int64 ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MountOperationShowUnmountProgressCallback`.-foreign import ccall "wrapper"-    mk_MountOperationShowUnmountProgressCallback :: C_MountOperationShowUnmountProgressCallback -> IO (FunPtr C_MountOperationShowUnmountProgressCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MountOperationShowUnmountProgress :: MonadIO m => MountOperationShowUnmountProgressCallback -> m (GClosure C_MountOperationShowUnmountProgressCallback)-genClosure_MountOperationShowUnmountProgress cb = liftIO $ do-    let cb' = wrap_MountOperationShowUnmountProgressCallback cb-    mk_MountOperationShowUnmountProgressCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MountOperationShowUnmountProgressCallback` into a `C_MountOperationShowUnmountProgressCallback`.-wrap_MountOperationShowUnmountProgressCallback ::-    MountOperationShowUnmountProgressCallback ->-    C_MountOperationShowUnmountProgressCallback-wrap_MountOperationShowUnmountProgressCallback _cb _ message timeLeft bytesLeft _ = do-    message' <- cstringToText message-    _cb  message' timeLeft bytesLeft---{- |-Connect a signal handler for the “@show-unmount-progress@” 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' mountOperation #showUnmountProgress callback-@--}-onMountOperationShowUnmountProgress :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId-onMountOperationShowUnmountProgress obj cb = liftIO $ do-    let cb' = wrap_MountOperationShowUnmountProgressCallback cb-    cb'' <- mk_MountOperationShowUnmountProgressCallback cb'-    connectSignalFunPtr obj "show-unmount-progress" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@show-unmount-progress@” 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' mountOperation #showUnmountProgress callback-@--}-afterMountOperationShowUnmountProgress :: (IsMountOperation a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId-afterMountOperationShowUnmountProgress obj cb = liftIO $ do-    let cb' = wrap_MountOperationShowUnmountProgressCallback cb-    cb'' <- mk_MountOperationShowUnmountProgressCallback cb'-    connectSignalFunPtr obj "show-unmount-progress" cb'' SignalConnectAfter----- VVV Prop "anonymous"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@anonymous@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #anonymous-@--}-getMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> m Bool-getMountOperationAnonymous obj = liftIO $ B.Properties.getObjectPropertyBool obj "anonymous"--{- |-Set the value of the “@anonymous@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #anonymous 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationAnonymous :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()-setMountOperationAnonymous obj val = liftIO $ B.Properties.setObjectPropertyBool obj "anonymous" val--{- |-Construct a `GValueConstruct` with valid value for the “@anonymous@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationAnonymous :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)-constructMountOperationAnonymous val = B.Properties.constructObjectPropertyBool "anonymous" val--#if ENABLE_OVERLOADING-data MountOperationAnonymousPropertyInfo-instance AttrInfo MountOperationAnonymousPropertyInfo where-    type AttrAllowedOps MountOperationAnonymousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint MountOperationAnonymousPropertyInfo = IsMountOperation-    type AttrGetType MountOperationAnonymousPropertyInfo = Bool-    type AttrLabel MountOperationAnonymousPropertyInfo = "anonymous"-    type AttrOrigin MountOperationAnonymousPropertyInfo = MountOperation-    attrGet _ = getMountOperationAnonymous-    attrSet _ = setMountOperationAnonymous-    attrConstruct _ = constructMountOperationAnonymous-    attrClear _ = undefined-#endif---- VVV Prop "choice"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@choice@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #choice-@--}-getMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> m Int32-getMountOperationChoice obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "choice"--{- |-Set the value of the “@choice@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #choice 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationChoice :: (MonadIO m, IsMountOperation o) => o -> Int32 -> m ()-setMountOperationChoice obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "choice" val--{- |-Construct a `GValueConstruct` with valid value for the “@choice@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationChoice :: (IsMountOperation o) => Int32 -> IO (GValueConstruct o)-constructMountOperationChoice val = B.Properties.constructObjectPropertyInt32 "choice" val--#if ENABLE_OVERLOADING-data MountOperationChoicePropertyInfo-instance AttrInfo MountOperationChoicePropertyInfo where-    type AttrAllowedOps MountOperationChoicePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationChoicePropertyInfo = (~) Int32-    type AttrBaseTypeConstraint MountOperationChoicePropertyInfo = IsMountOperation-    type AttrGetType MountOperationChoicePropertyInfo = Int32-    type AttrLabel MountOperationChoicePropertyInfo = "choice"-    type AttrOrigin MountOperationChoicePropertyInfo = MountOperation-    attrGet _ = getMountOperationChoice-    attrSet _ = setMountOperationChoice-    attrConstruct _ = constructMountOperationChoice-    attrClear _ = undefined-#endif---- VVV Prop "domain"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@domain@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #domain-@--}-getMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> m T.Text-getMountOperationDomain obj = liftIO $ checkUnexpectedNothing "getMountOperationDomain" $ B.Properties.getObjectPropertyString obj "domain"--{- |-Set the value of the “@domain@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #domain 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationDomain :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()-setMountOperationDomain obj val = liftIO $ B.Properties.setObjectPropertyString obj "domain" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@domain@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationDomain :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)-constructMountOperationDomain val = B.Properties.constructObjectPropertyString "domain" (Just val)--#if ENABLE_OVERLOADING-data MountOperationDomainPropertyInfo-instance AttrInfo MountOperationDomainPropertyInfo where-    type AttrAllowedOps MountOperationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = IsMountOperation-    type AttrGetType MountOperationDomainPropertyInfo = T.Text-    type AttrLabel MountOperationDomainPropertyInfo = "domain"-    type AttrOrigin MountOperationDomainPropertyInfo = MountOperation-    attrGet _ = getMountOperationDomain-    attrSet _ = setMountOperationDomain-    attrConstruct _ = constructMountOperationDomain-    attrClear _ = undefined-#endif---- VVV Prop "is-tcrypt-hidden-volume"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@is-tcrypt-hidden-volume@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #isTcryptHiddenVolume-@--}-getMountOperationIsTcryptHiddenVolume :: (MonadIO m, IsMountOperation o) => o -> m Bool-getMountOperationIsTcryptHiddenVolume obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-tcrypt-hidden-volume"--{- |-Set the value of the “@is-tcrypt-hidden-volume@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #isTcryptHiddenVolume 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationIsTcryptHiddenVolume :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()-setMountOperationIsTcryptHiddenVolume obj val = liftIO $ B.Properties.setObjectPropertyBool obj "is-tcrypt-hidden-volume" val--{- |-Construct a `GValueConstruct` with valid value for the “@is-tcrypt-hidden-volume@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationIsTcryptHiddenVolume :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)-constructMountOperationIsTcryptHiddenVolume val = B.Properties.constructObjectPropertyBool "is-tcrypt-hidden-volume" val--#if ENABLE_OVERLOADING-data MountOperationIsTcryptHiddenVolumePropertyInfo-instance AttrInfo MountOperationIsTcryptHiddenVolumePropertyInfo where-    type AttrAllowedOps MountOperationIsTcryptHiddenVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationIsTcryptHiddenVolumePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint MountOperationIsTcryptHiddenVolumePropertyInfo = IsMountOperation-    type AttrGetType MountOperationIsTcryptHiddenVolumePropertyInfo = Bool-    type AttrLabel MountOperationIsTcryptHiddenVolumePropertyInfo = "is-tcrypt-hidden-volume"-    type AttrOrigin MountOperationIsTcryptHiddenVolumePropertyInfo = MountOperation-    attrGet _ = getMountOperationIsTcryptHiddenVolume-    attrSet _ = setMountOperationIsTcryptHiddenVolume-    attrConstruct _ = constructMountOperationIsTcryptHiddenVolume-    attrClear _ = undefined-#endif---- VVV Prop "is-tcrypt-system-volume"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@is-tcrypt-system-volume@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #isTcryptSystemVolume-@--}-getMountOperationIsTcryptSystemVolume :: (MonadIO m, IsMountOperation o) => o -> m Bool-getMountOperationIsTcryptSystemVolume obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-tcrypt-system-volume"--{- |-Set the value of the “@is-tcrypt-system-volume@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #isTcryptSystemVolume 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationIsTcryptSystemVolume :: (MonadIO m, IsMountOperation o) => o -> Bool -> m ()-setMountOperationIsTcryptSystemVolume obj val = liftIO $ B.Properties.setObjectPropertyBool obj "is-tcrypt-system-volume" val--{- |-Construct a `GValueConstruct` with valid value for the “@is-tcrypt-system-volume@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationIsTcryptSystemVolume :: (IsMountOperation o) => Bool -> IO (GValueConstruct o)-constructMountOperationIsTcryptSystemVolume val = B.Properties.constructObjectPropertyBool "is-tcrypt-system-volume" val--#if ENABLE_OVERLOADING-data MountOperationIsTcryptSystemVolumePropertyInfo-instance AttrInfo MountOperationIsTcryptSystemVolumePropertyInfo where-    type AttrAllowedOps MountOperationIsTcryptSystemVolumePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationIsTcryptSystemVolumePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint MountOperationIsTcryptSystemVolumePropertyInfo = IsMountOperation-    type AttrGetType MountOperationIsTcryptSystemVolumePropertyInfo = Bool-    type AttrLabel MountOperationIsTcryptSystemVolumePropertyInfo = "is-tcrypt-system-volume"-    type AttrOrigin MountOperationIsTcryptSystemVolumePropertyInfo = MountOperation-    attrGet _ = getMountOperationIsTcryptSystemVolume-    attrSet _ = setMountOperationIsTcryptSystemVolume-    attrConstruct _ = constructMountOperationIsTcryptSystemVolume-    attrClear _ = undefined-#endif---- VVV Prop "password"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@password@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #password-@--}-getMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> m T.Text-getMountOperationPassword obj = liftIO $ checkUnexpectedNothing "getMountOperationPassword" $ B.Properties.getObjectPropertyString obj "password"--{- |-Set the value of the “@password@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #password 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationPassword :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()-setMountOperationPassword obj val = liftIO $ B.Properties.setObjectPropertyString obj "password" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@password@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationPassword :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)-constructMountOperationPassword val = B.Properties.constructObjectPropertyString "password" (Just val)--#if ENABLE_OVERLOADING-data MountOperationPasswordPropertyInfo-instance AttrInfo MountOperationPasswordPropertyInfo where-    type AttrAllowedOps MountOperationPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = IsMountOperation-    type AttrGetType MountOperationPasswordPropertyInfo = T.Text-    type AttrLabel MountOperationPasswordPropertyInfo = "password"-    type AttrOrigin MountOperationPasswordPropertyInfo = MountOperation-    attrGet _ = getMountOperationPassword-    attrSet _ = setMountOperationPassword-    attrConstruct _ = constructMountOperationPassword-    attrClear _ = undefined-#endif---- VVV Prop "password-save"-   -- Type: TInterface (Name {namespace = "Gio", name = "PasswordSave"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@password-save@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #passwordSave-@--}-getMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> m Gio.Enums.PasswordSave-getMountOperationPasswordSave obj = liftIO $ B.Properties.getObjectPropertyEnum obj "password-save"--{- |-Set the value of the “@password-save@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #passwordSave 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationPasswordSave :: (MonadIO m, IsMountOperation o) => o -> Gio.Enums.PasswordSave -> m ()-setMountOperationPasswordSave obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "password-save" val--{- |-Construct a `GValueConstruct` with valid value for the “@password-save@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationPasswordSave :: (IsMountOperation o) => Gio.Enums.PasswordSave -> IO (GValueConstruct o)-constructMountOperationPasswordSave val = B.Properties.constructObjectPropertyEnum "password-save" val--#if ENABLE_OVERLOADING-data MountOperationPasswordSavePropertyInfo-instance AttrInfo MountOperationPasswordSavePropertyInfo where-    type AttrAllowedOps MountOperationPasswordSavePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationPasswordSavePropertyInfo = (~) Gio.Enums.PasswordSave-    type AttrBaseTypeConstraint MountOperationPasswordSavePropertyInfo = IsMountOperation-    type AttrGetType MountOperationPasswordSavePropertyInfo = Gio.Enums.PasswordSave-    type AttrLabel MountOperationPasswordSavePropertyInfo = "password-save"-    type AttrOrigin MountOperationPasswordSavePropertyInfo = MountOperation-    attrGet _ = getMountOperationPasswordSave-    attrSet _ = setMountOperationPasswordSave-    attrConstruct _ = constructMountOperationPasswordSave-    attrClear _ = undefined-#endif---- VVV Prop "pim"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@pim@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #pim-@--}-getMountOperationPim :: (MonadIO m, IsMountOperation o) => o -> m Word32-getMountOperationPim obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "pim"--{- |-Set the value of the “@pim@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #pim 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationPim :: (MonadIO m, IsMountOperation o) => o -> Word32 -> m ()-setMountOperationPim obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "pim" val--{- |-Construct a `GValueConstruct` with valid value for the “@pim@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationPim :: (IsMountOperation o) => Word32 -> IO (GValueConstruct o)-constructMountOperationPim val = B.Properties.constructObjectPropertyUInt32 "pim" val--#if ENABLE_OVERLOADING-data MountOperationPimPropertyInfo-instance AttrInfo MountOperationPimPropertyInfo where-    type AttrAllowedOps MountOperationPimPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationPimPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint MountOperationPimPropertyInfo = IsMountOperation-    type AttrGetType MountOperationPimPropertyInfo = Word32-    type AttrLabel MountOperationPimPropertyInfo = "pim"-    type AttrOrigin MountOperationPimPropertyInfo = MountOperation-    attrGet _ = getMountOperationPim-    attrSet _ = setMountOperationPim-    attrConstruct _ = constructMountOperationPim-    attrClear _ = undefined-#endif---- VVV Prop "username"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@username@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' mountOperation #username-@--}-getMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> m T.Text-getMountOperationUsername obj = liftIO $ checkUnexpectedNothing "getMountOperationUsername" $ B.Properties.getObjectPropertyString obj "username"--{- |-Set the value of the “@username@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' mountOperation [ #username 'Data.GI.Base.Attributes.:=' value ]-@--}-setMountOperationUsername :: (MonadIO m, IsMountOperation o) => o -> T.Text -> m ()-setMountOperationUsername obj val = liftIO $ B.Properties.setObjectPropertyString obj "username" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@username@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMountOperationUsername :: (IsMountOperation o) => T.Text -> IO (GValueConstruct o)-constructMountOperationUsername val = B.Properties.constructObjectPropertyString "username" (Just val)--#if ENABLE_OVERLOADING-data MountOperationUsernamePropertyInfo-instance AttrInfo MountOperationUsernamePropertyInfo where-    type AttrAllowedOps MountOperationUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = IsMountOperation-    type AttrGetType MountOperationUsernamePropertyInfo = T.Text-    type AttrLabel MountOperationUsernamePropertyInfo = "username"-    type AttrOrigin MountOperationUsernamePropertyInfo = MountOperation-    attrGet _ = getMountOperationUsername-    attrSet _ = setMountOperationUsername-    attrConstruct _ = constructMountOperationUsername-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList MountOperation-type instance O.AttributeList MountOperation = MountOperationAttributeList-type MountOperationAttributeList = ('[ '("anonymous", MountOperationAnonymousPropertyInfo), '("choice", MountOperationChoicePropertyInfo), '("domain", MountOperationDomainPropertyInfo), '("isTcryptHiddenVolume", MountOperationIsTcryptHiddenVolumePropertyInfo), '("isTcryptSystemVolume", MountOperationIsTcryptSystemVolumePropertyInfo), '("password", MountOperationPasswordPropertyInfo), '("passwordSave", MountOperationPasswordSavePropertyInfo), '("pim", MountOperationPimPropertyInfo), '("username", MountOperationUsernamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-mountOperationAnonymous :: AttrLabelProxy "anonymous"-mountOperationAnonymous = AttrLabelProxy--mountOperationChoice :: AttrLabelProxy "choice"-mountOperationChoice = AttrLabelProxy--mountOperationDomain :: AttrLabelProxy "domain"-mountOperationDomain = AttrLabelProxy--mountOperationIsTcryptHiddenVolume :: AttrLabelProxy "isTcryptHiddenVolume"-mountOperationIsTcryptHiddenVolume = AttrLabelProxy--mountOperationIsTcryptSystemVolume :: AttrLabelProxy "isTcryptSystemVolume"-mountOperationIsTcryptSystemVolume = AttrLabelProxy--mountOperationPassword :: AttrLabelProxy "password"-mountOperationPassword = AttrLabelProxy--mountOperationPasswordSave :: AttrLabelProxy "passwordSave"-mountOperationPasswordSave = AttrLabelProxy--mountOperationPim :: AttrLabelProxy "pim"-mountOperationPim = AttrLabelProxy--mountOperationUsername :: AttrLabelProxy "username"-mountOperationUsername = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data MountOperationAbortedSignalInfo-instance SignalInfo MountOperationAbortedSignalInfo where-    type HaskellCallbackType MountOperationAbortedSignalInfo = MountOperationAbortedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountOperationAbortedCallback cb-        cb'' <- mk_MountOperationAbortedCallback cb'-        connectSignalFunPtr obj "aborted" cb'' connectMode--data MountOperationAskPasswordSignalInfo-instance SignalInfo MountOperationAskPasswordSignalInfo where-    type HaskellCallbackType MountOperationAskPasswordSignalInfo = MountOperationAskPasswordCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountOperationAskPasswordCallback cb-        cb'' <- mk_MountOperationAskPasswordCallback cb'-        connectSignalFunPtr obj "ask-password" cb'' connectMode--data MountOperationAskQuestionSignalInfo-instance SignalInfo MountOperationAskQuestionSignalInfo where-    type HaskellCallbackType MountOperationAskQuestionSignalInfo = MountOperationAskQuestionCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountOperationAskQuestionCallback cb-        cb'' <- mk_MountOperationAskQuestionCallback cb'-        connectSignalFunPtr obj "ask-question" cb'' connectMode--data MountOperationReplySignalInfo-instance SignalInfo MountOperationReplySignalInfo where-    type HaskellCallbackType MountOperationReplySignalInfo = MountOperationReplyCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountOperationReplyCallback cb-        cb'' <- mk_MountOperationReplyCallback cb'-        connectSignalFunPtr obj "reply" cb'' connectMode--data MountOperationShowProcessesSignalInfo-instance SignalInfo MountOperationShowProcessesSignalInfo where-    type HaskellCallbackType MountOperationShowProcessesSignalInfo = MountOperationShowProcessesCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountOperationShowProcessesCallback cb-        cb'' <- mk_MountOperationShowProcessesCallback cb'-        connectSignalFunPtr obj "show-processes" cb'' connectMode--data MountOperationShowUnmountProgressSignalInfo-instance SignalInfo MountOperationShowUnmountProgressSignalInfo where-    type HaskellCallbackType MountOperationShowUnmountProgressSignalInfo = MountOperationShowUnmountProgressCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MountOperationShowUnmountProgressCallback cb-        cb'' <- mk_MountOperationShowUnmountProgressCallback cb'-        connectSignalFunPtr obj "show-unmount-progress" cb'' connectMode--type instance O.SignalList MountOperation = MountOperationSignalList-type MountOperationSignalList = ('[ '("aborted", MountOperationAbortedSignalInfo), '("askPassword", MountOperationAskPasswordSignalInfo), '("askQuestion", MountOperationAskQuestionSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("reply", MountOperationReplySignalInfo), '("showProcesses", MountOperationShowProcessesSignalInfo), '("showUnmountProgress", MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)])--#endif---- method MountOperation::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "MountOperation"}))--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_new" g_mount_operation_new :: -    IO (Ptr MountOperation)--{- |-Creates a new mount operation.--}-mountOperationNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m MountOperation-    {- ^ __Returns:__ a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-mountOperationNew  = liftIO $ do-    result <- g_mount_operation_new-    checkUnexpectedReturnNULL "mountOperationNew" result-    result' <- (wrapObject MountOperation) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method MountOperation::get_anonymous--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", 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 "g_mount_operation_get_anonymous" g_mount_operation_get_anonymous :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO CInt--{- |-Check to see whether the mount operation is being used-for an anonymous user.--}-mountOperationGetAnonymous ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if mount operation is anonymous. -}-mountOperationGetAnonymous op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_anonymous op'-    let result' = (/= 0) result-    touchManagedPtr op-    return result'--#if ENABLE_OVERLOADING-data MountOperationGetAnonymousMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetAnonymousMethodInfo a signature where-    overloadedMethod _ = mountOperationGetAnonymous--#endif---- method MountOperation::get_choice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", 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 "g_mount_operation_get_choice" g_mount_operation_get_choice :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO Int32--{- |-Gets a choice from the mount operation.--}-mountOperationGetChoice ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m Int32-    {- ^ __Returns:__ an integer containing an index of the user\'s choice from-the choice\'s list, or @/0/@. -}-mountOperationGetChoice op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_choice op'-    touchManagedPtr op-    return result--#if ENABLE_OVERLOADING-data MountOperationGetChoiceMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetChoiceMethodInfo a signature where-    overloadedMethod _ = mountOperationGetChoice--#endif---- method MountOperation::get_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", 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 "g_mount_operation_get_domain" g_mount_operation_get_domain :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO CString--{- |-Gets the domain of the mount operation.--}-mountOperationGetDomain ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m T.Text-    {- ^ __Returns:__ a string set to the domain. -}-mountOperationGetDomain op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_domain op'-    checkUnexpectedReturnNULL "mountOperationGetDomain" result-    result' <- cstringToText result-    touchManagedPtr op-    return result'--#if ENABLE_OVERLOADING-data MountOperationGetDomainMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetDomainMethodInfo a signature where-    overloadedMethod _ = mountOperationGetDomain--#endif---- method MountOperation::get_is_tcrypt_hidden_volume--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", 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 "g_mount_operation_get_is_tcrypt_hidden_volume" g_mount_operation_get_is_tcrypt_hidden_volume :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO CInt--{- |-Check to see whether the mount operation is being used-for a TCRYPT hidden volume.--/Since: 2.58/--}-mountOperationGetIsTcryptHiddenVolume ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if mount operation is for hidden volume. -}-mountOperationGetIsTcryptHiddenVolume op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_is_tcrypt_hidden_volume op'-    let result' = (/= 0) result-    touchManagedPtr op-    return result'--#if ENABLE_OVERLOADING-data MountOperationGetIsTcryptHiddenVolumeMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetIsTcryptHiddenVolumeMethodInfo a signature where-    overloadedMethod _ = mountOperationGetIsTcryptHiddenVolume--#endif---- method MountOperation::get_is_tcrypt_system_volume--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", 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 "g_mount_operation_get_is_tcrypt_system_volume" g_mount_operation_get_is_tcrypt_system_volume :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO CInt--{- |-Check to see whether the mount operation is being used-for a TCRYPT system volume.--/Since: 2.58/--}-mountOperationGetIsTcryptSystemVolume ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if mount operation is for system volume. -}-mountOperationGetIsTcryptSystemVolume op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_is_tcrypt_system_volume op'-    let result' = (/= 0) result-    touchManagedPtr op-    return result'--#if ENABLE_OVERLOADING-data MountOperationGetIsTcryptSystemVolumeMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetIsTcryptSystemVolumeMethodInfo a signature where-    overloadedMethod _ = mountOperationGetIsTcryptSystemVolume--#endif---- method MountOperation::get_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", 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 "g_mount_operation_get_password" g_mount_operation_get_password :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO CString--{- |-Gets a password from the mount operation.--}-mountOperationGetPassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the password within /@op@/. -}-mountOperationGetPassword op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_password op'-    checkUnexpectedReturnNULL "mountOperationGetPassword" result-    result' <- cstringToText result-    touchManagedPtr op-    return result'--#if ENABLE_OVERLOADING-data MountOperationGetPasswordMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetPasswordMethodInfo a signature where-    overloadedMethod _ = mountOperationGetPassword--#endif---- method MountOperation::get_password_save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "PasswordSave"}))--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_get_password_save" g_mount_operation_get_password_save :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO CUInt--{- |-Gets the state of saving passwords for the mount operation.--}-mountOperationGetPasswordSave ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m Gio.Enums.PasswordSave-    {- ^ __Returns:__ a 'GI.Gio.Enums.PasswordSave' flag. -}-mountOperationGetPasswordSave op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_password_save op'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr op-    return result'--#if ENABLE_OVERLOADING-data MountOperationGetPasswordSaveMethodInfo-instance (signature ~ (m Gio.Enums.PasswordSave), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetPasswordSaveMethodInfo a signature where-    overloadedMethod _ = mountOperationGetPasswordSave--#endif---- method MountOperation::get_pim--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", 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 "g_mount_operation_get_pim" g_mount_operation_get_pim :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO Word32--{- |-Gets a PIM from the mount operation.--/Since: 2.58/--}-mountOperationGetPim ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m Word32-    {- ^ __Returns:__ The VeraCrypt PIM within /@op@/. -}-mountOperationGetPim op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_pim op'-    touchManagedPtr op-    return result--#if ENABLE_OVERLOADING-data MountOperationGetPimMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetPimMethodInfo a signature where-    overloadedMethod _ = mountOperationGetPim--#endif---- method MountOperation::get_username--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", 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 "g_mount_operation_get_username" g_mount_operation_get_username :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    IO CString--{- |-Get the user name from the mount operation.--}-mountOperationGetUsername ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the user name. -}-mountOperationGetUsername op = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    result <- g_mount_operation_get_username op'-    checkUnexpectedReturnNULL "mountOperationGetUsername" result-    result' <- cstringToText result-    touchManagedPtr op-    return result'--#if ENABLE_OVERLOADING-data MountOperationGetUsernameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationGetUsernameMethodInfo a signature where-    overloadedMethod _ = mountOperationGetUsername--#endif---- method MountOperation::reply--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "MountOperationResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperationResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_reply" g_mount_operation_reply :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    CUInt ->                                -- result : TInterface (Name {namespace = "Gio", name = "MountOperationResult"})-    IO ()--{- |-Emits the 'GI.Gio.Objects.MountOperation.MountOperation'::@/reply/@ signal.--}-mountOperationReply ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation' -}-    -> Gio.Enums.MountOperationResult-    {- ^ /@result@/: a 'GI.Gio.Enums.MountOperationResult' -}-    -> m ()-mountOperationReply op result_ = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    let result_' = (fromIntegral . fromEnum) result_-    g_mount_operation_reply op' result_'-    touchManagedPtr op-    return ()--#if ENABLE_OVERLOADING-data MountOperationReplyMethodInfo-instance (signature ~ (Gio.Enums.MountOperationResult -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationReplyMethodInfo a signature where-    overloadedMethod _ = mountOperationReply--#endif---- method MountOperation::set_anonymous--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anonymous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "boolean value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_anonymous" g_mount_operation_set_anonymous :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    CInt ->                                 -- anonymous : TBasicType TBoolean-    IO ()--{- |-Sets the mount operation to use an anonymous user if /@anonymous@/ is 'True'.--}-mountOperationSetAnonymous ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> Bool-    {- ^ /@anonymous@/: boolean value. -}-    -> m ()-mountOperationSetAnonymous op anonymous = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    let anonymous' = (fromIntegral . fromEnum) anonymous-    g_mount_operation_set_anonymous op' anonymous'-    touchManagedPtr op-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetAnonymousMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetAnonymousMethodInfo a signature where-    overloadedMethod _ = mountOperationSetAnonymous--#endif---- method MountOperation::set_choice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "choice", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an integer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_choice" g_mount_operation_set_choice :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    Int32 ->                                -- choice : TBasicType TInt-    IO ()--{- |-Sets a default choice for the mount operation.--}-mountOperationSetChoice ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> Int32-    {- ^ /@choice@/: an integer. -}-    -> m ()-mountOperationSetChoice op choice = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    g_mount_operation_set_choice op' choice-    touchManagedPtr op-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetChoiceMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetChoiceMethodInfo a signature where-    overloadedMethod _ = mountOperationSetChoice--#endif---- method MountOperation::set_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the domain to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_domain" g_mount_operation_set_domain :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    CString ->                              -- domain : TBasicType TUTF8-    IO ()--{- |-Sets the mount operation\'s domain.--}-mountOperationSetDomain ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> T.Text-    {- ^ /@domain@/: the domain to set. -}-    -> m ()-mountOperationSetDomain op domain = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    domain' <- textToCString domain-    g_mount_operation_set_domain op' domain'-    touchManagedPtr op-    freeMem domain'-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetDomainMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetDomainMethodInfo a signature where-    overloadedMethod _ = mountOperationSetDomain--#endif---- method MountOperation::set_is_tcrypt_hidden_volume--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hidden_volume", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "boolean value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_is_tcrypt_hidden_volume" g_mount_operation_set_is_tcrypt_hidden_volume :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    CInt ->                                 -- hidden_volume : TBasicType TBoolean-    IO ()--{- |-Sets the mount operation to use a hidden volume if /@hiddenVolume@/ is 'True'.--/Since: 2.58/--}-mountOperationSetIsTcryptHiddenVolume ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> Bool-    {- ^ /@hiddenVolume@/: boolean value. -}-    -> m ()-mountOperationSetIsTcryptHiddenVolume op hiddenVolume = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    let hiddenVolume' = (fromIntegral . fromEnum) hiddenVolume-    g_mount_operation_set_is_tcrypt_hidden_volume op' hiddenVolume'-    touchManagedPtr op-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetIsTcryptHiddenVolumeMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetIsTcryptHiddenVolumeMethodInfo a signature where-    overloadedMethod _ = mountOperationSetIsTcryptHiddenVolume--#endif---- method MountOperation::set_is_tcrypt_system_volume--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "system_volume", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "boolean value.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_is_tcrypt_system_volume" g_mount_operation_set_is_tcrypt_system_volume :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    CInt ->                                 -- system_volume : TBasicType TBoolean-    IO ()--{- |-Sets the mount operation to use a system volume if /@systemVolume@/ is 'True'.--/Since: 2.58/--}-mountOperationSetIsTcryptSystemVolume ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> Bool-    {- ^ /@systemVolume@/: boolean value. -}-    -> m ()-mountOperationSetIsTcryptSystemVolume op systemVolume = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    let systemVolume' = (fromIntegral . fromEnum) systemVolume-    g_mount_operation_set_is_tcrypt_system_volume op' systemVolume'-    touchManagedPtr op-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetIsTcryptSystemVolumeMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetIsTcryptSystemVolumeMethodInfo a signature where-    overloadedMethod _ = mountOperationSetIsTcryptSystemVolume--#endif---- method MountOperation::set_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "password to set.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_password" g_mount_operation_set_password :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    CString ->                              -- password : TBasicType TUTF8-    IO ()--{- |-Sets the mount operation\'s password to /@password@/.--}-mountOperationSetPassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> T.Text-    {- ^ /@password@/: password to set. -}-    -> m ()-mountOperationSetPassword op password = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    password' <- textToCString password-    g_mount_operation_set_password op' password'-    touchManagedPtr op-    freeMem password'-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetPasswordMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetPasswordMethodInfo a signature where-    overloadedMethod _ = mountOperationSetPassword--#endif---- method MountOperation::set_password_save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save", argType = TInterface (Name {namespace = "Gio", name = "PasswordSave"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GPasswordSave flags.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_password_save" g_mount_operation_set_password_save :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    CUInt ->                                -- save : TInterface (Name {namespace = "Gio", name = "PasswordSave"})-    IO ()--{- |-Sets the state of saving passwords for the mount operation.--}-mountOperationSetPasswordSave ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> Gio.Enums.PasswordSave-    {- ^ /@save@/: a set of 'GI.Gio.Enums.PasswordSave' flags. -}-    -> m ()-mountOperationSetPasswordSave op save = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    let save' = (fromIntegral . fromEnum) save-    g_mount_operation_set_password_save op' save'-    touchManagedPtr op-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetPasswordSaveMethodInfo-instance (signature ~ (Gio.Enums.PasswordSave -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetPasswordSaveMethodInfo a signature where-    overloadedMethod _ = mountOperationSetPasswordSave--#endif---- method MountOperation::set_pim--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pim", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an unsigned integer.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_pim" g_mount_operation_set_pim :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    Word32 ->                               -- pim : TBasicType TUInt-    IO ()--{- |-Sets the mount operation\'s PIM to /@pim@/.--/Since: 2.58/--}-mountOperationSetPim ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> Word32-    {- ^ /@pim@/: an unsigned integer. -}-    -> m ()-mountOperationSetPim op pim = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    g_mount_operation_set_pim op' pim-    touchManagedPtr op-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetPimMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetPimMethodInfo a signature where-    overloadedMethod _ = mountOperationSetPim--#endif---- method MountOperation::set_username--- method type : OrdinaryMethod--- Args : [Arg {argCName = "op", argType = TInterface (Name {namespace = "Gio", name = "MountOperation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMountOperation.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "input username.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_mount_operation_set_username" g_mount_operation_set_username :: -    Ptr MountOperation ->                   -- op : TInterface (Name {namespace = "Gio", name = "MountOperation"})-    CString ->                              -- username : TBasicType TUTF8-    IO ()--{- |-Sets the user name within /@op@/ to /@username@/.--}-mountOperationSetUsername ::-    (B.CallStack.HasCallStack, MonadIO m, IsMountOperation a) =>-    a-    {- ^ /@op@/: a 'GI.Gio.Objects.MountOperation.MountOperation'. -}-    -> T.Text-    {- ^ /@username@/: input username. -}-    -> m ()-mountOperationSetUsername op username = liftIO $ do-    op' <- unsafeManagedPtrCastPtr op-    username' <- textToCString username-    g_mount_operation_set_username op' username'-    touchManagedPtr op-    freeMem username'-    return ()--#if ENABLE_OVERLOADING-data MountOperationSetUsernameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsMountOperation a) => O.MethodInfo MountOperationSetUsernameMethodInfo a signature where-    overloadedMethod _ = mountOperationSetUsername--#endif--
− GI/Gio/Objects/MountOperation.hs-boot 
@@ -1,131 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.MountOperation 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 MountOperation = MountOperation (ManagedPtr MountOperation)-instance GObject MountOperation where-class (GObject o, O.IsDescendantOf MountOperation o) => IsMountOperation o-instance (GObject o, O.IsDescendantOf MountOperation o) => IsMountOperation o-instance O.HasParentTypes MountOperation-#if ENABLE_OVERLOADING-data MountOperationAnonymousPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationChoicePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationDomainPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationIsTcryptHiddenVolumePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationIsTcryptSystemVolumePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationPasswordPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationPasswordSavePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationPimPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationUsernamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationAbortedSignalInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationAskPasswordSignalInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationAskQuestionSignalInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationReplySignalInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationShowProcessesSignalInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationShowUnmountProgressSignalInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetAnonymousMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetChoiceMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetDomainMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetIsTcryptHiddenVolumeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetIsTcryptSystemVolumeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetPasswordSaveMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetPimMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationGetUsernameMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationReplyMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetAnonymousMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetChoiceMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetDomainMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetIsTcryptHiddenVolumeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetIsTcryptSystemVolumeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetPasswordSaveMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetPimMethodInfo-#endif-#if ENABLE_OVERLOADING-data MountOperationSetUsernameMethodInfo-#endif
− GI/Gio/Objects/NativeVolumeMonitor.hs 
@@ -1,127 +0,0 @@---{- |-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.Gio.Objects.NativeVolumeMonitor-    ( ---- * Exported types-    NativeVolumeMonitor(..)                 ,-    IsNativeVolumeMonitor                   ,-    toNativeVolumeMonitor                   ,-    noNativeVolumeMonitor                   ,---    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.VolumeMonitor as Gio.VolumeMonitor---- | Memory-managed wrapper type.-newtype NativeVolumeMonitor = NativeVolumeMonitor (ManagedPtr NativeVolumeMonitor)-foreign import ccall "g_native_volume_monitor_get_type"-    c_g_native_volume_monitor_get_type :: IO GType--instance GObject NativeVolumeMonitor where-    gobjectType = c_g_native_volume_monitor_get_type-    ---- | Type class for types which can be safely cast to `NativeVolumeMonitor`, for instance with `toNativeVolumeMonitor`.-class (GObject o, O.IsDescendantOf NativeVolumeMonitor o) => IsNativeVolumeMonitor o-instance (GObject o, O.IsDescendantOf NativeVolumeMonitor o) => IsNativeVolumeMonitor o--instance O.HasParentTypes NativeVolumeMonitor-type instance O.ParentTypes NativeVolumeMonitor = '[Gio.VolumeMonitor.VolumeMonitor, GObject.Object.Object]---- | Cast to `NativeVolumeMonitor`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toNativeVolumeMonitor :: (MonadIO m, IsNativeVolumeMonitor o) => o -> m NativeVolumeMonitor-toNativeVolumeMonitor = liftIO . unsafeCastTo NativeVolumeMonitor---- | A convenience alias for `Nothing` :: `Maybe` `NativeVolumeMonitor`.-noNativeVolumeMonitor :: Maybe NativeVolumeMonitor-noNativeVolumeMonitor = Nothing--#if ENABLE_OVERLOADING-type family ResolveNativeVolumeMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveNativeVolumeMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveNativeVolumeMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveNativeVolumeMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveNativeVolumeMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveNativeVolumeMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveNativeVolumeMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveNativeVolumeMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveNativeVolumeMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveNativeVolumeMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveNativeVolumeMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveNativeVolumeMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveNativeVolumeMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveNativeVolumeMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveNativeVolumeMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveNativeVolumeMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveNativeVolumeMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveNativeVolumeMonitorMethod "getConnectedDrives" o = Gio.VolumeMonitor.VolumeMonitorGetConnectedDrivesMethodInfo-    ResolveNativeVolumeMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveNativeVolumeMonitorMethod "getMountForUuid" o = Gio.VolumeMonitor.VolumeMonitorGetMountForUuidMethodInfo-    ResolveNativeVolumeMonitorMethod "getMounts" o = Gio.VolumeMonitor.VolumeMonitorGetMountsMethodInfo-    ResolveNativeVolumeMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveNativeVolumeMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveNativeVolumeMonitorMethod "getVolumeForUuid" o = Gio.VolumeMonitor.VolumeMonitorGetVolumeForUuidMethodInfo-    ResolveNativeVolumeMonitorMethod "getVolumes" o = Gio.VolumeMonitor.VolumeMonitorGetVolumesMethodInfo-    ResolveNativeVolumeMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveNativeVolumeMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveNativeVolumeMonitorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveNativeVolumeMonitorMethod t NativeVolumeMonitor, O.MethodInfo info NativeVolumeMonitor p) => OL.IsLabel t (NativeVolumeMonitor -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList NativeVolumeMonitor-type instance O.AttributeList NativeVolumeMonitor = NativeVolumeMonitorAttributeList-type NativeVolumeMonitorAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList NativeVolumeMonitor = NativeVolumeMonitorSignalList-type NativeVolumeMonitorSignalList = ('[ '("driveChanged", Gio.VolumeMonitor.VolumeMonitorDriveChangedSignalInfo), '("driveConnected", Gio.VolumeMonitor.VolumeMonitorDriveConnectedSignalInfo), '("driveDisconnected", Gio.VolumeMonitor.VolumeMonitorDriveDisconnectedSignalInfo), '("driveEjectButton", Gio.VolumeMonitor.VolumeMonitorDriveEjectButtonSignalInfo), '("driveStopButton", Gio.VolumeMonitor.VolumeMonitorDriveStopButtonSignalInfo), '("mountAdded", Gio.VolumeMonitor.VolumeMonitorMountAddedSignalInfo), '("mountChanged", Gio.VolumeMonitor.VolumeMonitorMountChangedSignalInfo), '("mountPreUnmount", Gio.VolumeMonitor.VolumeMonitorMountPreUnmountSignalInfo), '("mountRemoved", Gio.VolumeMonitor.VolumeMonitorMountRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("volumeAdded", Gio.VolumeMonitor.VolumeMonitorVolumeAddedSignalInfo), '("volumeChanged", Gio.VolumeMonitor.VolumeMonitorVolumeChangedSignalInfo), '("volumeRemoved", Gio.VolumeMonitor.VolumeMonitorVolumeRemovedSignalInfo)] :: [(Symbol, *)])--#endif--
− GI/Gio/Objects/NativeVolumeMonitor.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.NativeVolumeMonitor 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 NativeVolumeMonitor = NativeVolumeMonitor (ManagedPtr NativeVolumeMonitor)-instance GObject NativeVolumeMonitor where-class (GObject o, O.IsDescendantOf NativeVolumeMonitor o) => IsNativeVolumeMonitor o-instance (GObject o, O.IsDescendantOf NativeVolumeMonitor o) => IsNativeVolumeMonitor o-instance O.HasParentTypes NativeVolumeMonitor
− GI/Gio/Objects/NetworkAddress.hs 
@@ -1,653 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.NetworkAddress.NetworkAddress' provides an easy way to resolve a hostname and-then attempt to connect to that host, handling the possibility of-multiple IP addresses and multiple address families.--See 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' for an example of using the connectable-interface.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.NetworkAddress-    ( ---- * Exported types-    NetworkAddress(..)                      ,-    IsNetworkAddress                        ,-    toNetworkAddress                        ,-    noNetworkAddress                        ,--- -- * Methods--- ** getHostname #method:getHostname#--#if ENABLE_OVERLOADING-    NetworkAddressGetHostnameMethodInfo     ,-#endif-    networkAddressGetHostname               ,----- ** getPort #method:getPort#--#if ENABLE_OVERLOADING-    NetworkAddressGetPortMethodInfo         ,-#endif-    networkAddressGetPort                   ,----- ** getScheme #method:getScheme#--#if ENABLE_OVERLOADING-    NetworkAddressGetSchemeMethodInfo       ,-#endif-    networkAddressGetScheme                 ,----- ** new #method:new#--    networkAddressNew                       ,----- ** newLoopback #method:newLoopback#--    networkAddressNewLoopback               ,----- ** parse #method:parse#--    networkAddressParse                     ,----- ** parseUri #method:parseUri#--    networkAddressParseUri                  ,----- -- * Properties--- ** hostname #attr:hostname#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    NetworkAddressHostnamePropertyInfo      ,-#endif-    constructNetworkAddressHostname         ,-    getNetworkAddressHostname               ,-#if ENABLE_OVERLOADING-    networkAddressHostname                  ,-#endif----- ** port #attr:port#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    NetworkAddressPortPropertyInfo          ,-#endif-    constructNetworkAddressPort             ,-    getNetworkAddressPort                   ,-#if ENABLE_OVERLOADING-    networkAddressPort                      ,-#endif----- ** scheme #attr:scheme#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    NetworkAddressSchemePropertyInfo        ,-#endif-    constructNetworkAddressScheme           ,-    getNetworkAddressScheme                 ,-#if ENABLE_OVERLOADING-    networkAddressScheme                    ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable---- | Memory-managed wrapper type.-newtype NetworkAddress = NetworkAddress (ManagedPtr NetworkAddress)-foreign import ccall "g_network_address_get_type"-    c_g_network_address_get_type :: IO GType--instance GObject NetworkAddress where-    gobjectType = c_g_network_address_get_type-    ---- | Type class for types which can be safely cast to `NetworkAddress`, for instance with `toNetworkAddress`.-class (GObject o, O.IsDescendantOf NetworkAddress o) => IsNetworkAddress o-instance (GObject o, O.IsDescendantOf NetworkAddress o) => IsNetworkAddress o--instance O.HasParentTypes NetworkAddress-type instance O.ParentTypes NetworkAddress = '[GObject.Object.Object, Gio.SocketConnectable.SocketConnectable]---- | Cast to `NetworkAddress`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toNetworkAddress :: (MonadIO m, IsNetworkAddress o) => o -> m NetworkAddress-toNetworkAddress = liftIO . unsafeCastTo NetworkAddress---- | A convenience alias for `Nothing` :: `Maybe` `NetworkAddress`.-noNetworkAddress :: Maybe NetworkAddress-noNetworkAddress = Nothing--#if ENABLE_OVERLOADING-type family ResolveNetworkAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveNetworkAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveNetworkAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveNetworkAddressMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo-    ResolveNetworkAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveNetworkAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveNetworkAddressMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveNetworkAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveNetworkAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveNetworkAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveNetworkAddressMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo-    ResolveNetworkAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveNetworkAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveNetworkAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveNetworkAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveNetworkAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveNetworkAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveNetworkAddressMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo-    ResolveNetworkAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveNetworkAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveNetworkAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveNetworkAddressMethod "getHostname" o = NetworkAddressGetHostnameMethodInfo-    ResolveNetworkAddressMethod "getPort" o = NetworkAddressGetPortMethodInfo-    ResolveNetworkAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveNetworkAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveNetworkAddressMethod "getScheme" o = NetworkAddressGetSchemeMethodInfo-    ResolveNetworkAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveNetworkAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveNetworkAddressMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveNetworkAddressMethod t NetworkAddress, O.MethodInfo info NetworkAddress p) => OL.IsLabel t (NetworkAddress -> 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---- VVV Prop "hostname"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@hostname@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkAddress #hostname-@--}-getNetworkAddressHostname :: (MonadIO m, IsNetworkAddress o) => o -> m T.Text-getNetworkAddressHostname obj = liftIO $ checkUnexpectedNothing "getNetworkAddressHostname" $ B.Properties.getObjectPropertyString obj "hostname"--{- |-Construct a `GValueConstruct` with valid value for the “@hostname@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructNetworkAddressHostname :: (IsNetworkAddress o) => T.Text -> IO (GValueConstruct o)-constructNetworkAddressHostname val = B.Properties.constructObjectPropertyString "hostname" (Just val)--#if ENABLE_OVERLOADING-data NetworkAddressHostnamePropertyInfo-instance AttrInfo NetworkAddressHostnamePropertyInfo where-    type AttrAllowedOps NetworkAddressHostnamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkAddressHostnamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkAddressHostnamePropertyInfo = IsNetworkAddress-    type AttrGetType NetworkAddressHostnamePropertyInfo = T.Text-    type AttrLabel NetworkAddressHostnamePropertyInfo = "hostname"-    type AttrOrigin NetworkAddressHostnamePropertyInfo = NetworkAddress-    attrGet _ = getNetworkAddressHostname-    attrSet _ = undefined-    attrConstruct _ = constructNetworkAddressHostname-    attrClear _ = undefined-#endif---- VVV Prop "port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@port@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkAddress #port-@--}-getNetworkAddressPort :: (MonadIO m, IsNetworkAddress o) => o -> m Word32-getNetworkAddressPort obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "port"--{- |-Construct a `GValueConstruct` with valid value for the “@port@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructNetworkAddressPort :: (IsNetworkAddress o) => Word32 -> IO (GValueConstruct o)-constructNetworkAddressPort val = B.Properties.constructObjectPropertyUInt32 "port" val--#if ENABLE_OVERLOADING-data NetworkAddressPortPropertyInfo-instance AttrInfo NetworkAddressPortPropertyInfo where-    type AttrAllowedOps NetworkAddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint NetworkAddressPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint NetworkAddressPortPropertyInfo = IsNetworkAddress-    type AttrGetType NetworkAddressPortPropertyInfo = Word32-    type AttrLabel NetworkAddressPortPropertyInfo = "port"-    type AttrOrigin NetworkAddressPortPropertyInfo = NetworkAddress-    attrGet _ = getNetworkAddressPort-    attrSet _ = undefined-    attrConstruct _ = constructNetworkAddressPort-    attrClear _ = undefined-#endif---- VVV Prop "scheme"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@scheme@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkAddress #scheme-@--}-getNetworkAddressScheme :: (MonadIO m, IsNetworkAddress o) => o -> m T.Text-getNetworkAddressScheme obj = liftIO $ checkUnexpectedNothing "getNetworkAddressScheme" $ B.Properties.getObjectPropertyString obj "scheme"--{- |-Construct a `GValueConstruct` with valid value for the “@scheme@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructNetworkAddressScheme :: (IsNetworkAddress o) => T.Text -> IO (GValueConstruct o)-constructNetworkAddressScheme val = B.Properties.constructObjectPropertyString "scheme" (Just val)--#if ENABLE_OVERLOADING-data NetworkAddressSchemePropertyInfo-instance AttrInfo NetworkAddressSchemePropertyInfo where-    type AttrAllowedOps NetworkAddressSchemePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkAddressSchemePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkAddressSchemePropertyInfo = IsNetworkAddress-    type AttrGetType NetworkAddressSchemePropertyInfo = T.Text-    type AttrLabel NetworkAddressSchemePropertyInfo = "scheme"-    type AttrOrigin NetworkAddressSchemePropertyInfo = NetworkAddress-    attrGet _ = getNetworkAddressScheme-    attrSet _ = undefined-    attrConstruct _ = constructNetworkAddressScheme-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList NetworkAddress-type instance O.AttributeList NetworkAddress = NetworkAddressAttributeList-type NetworkAddressAttributeList = ('[ '("hostname", NetworkAddressHostnamePropertyInfo), '("port", NetworkAddressPortPropertyInfo), '("scheme", NetworkAddressSchemePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-networkAddressHostname :: AttrLabelProxy "hostname"-networkAddressHostname = AttrLabelProxy--networkAddressPort :: AttrLabelProxy "port"-networkAddressPort = AttrLabelProxy--networkAddressScheme :: AttrLabelProxy "scheme"-networkAddressScheme = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList NetworkAddress = NetworkAddressSignalList-type NetworkAddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method NetworkAddress::new--- method type : Constructor--- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hostname", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the port", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "NetworkAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_network_address_new" g_network_address_new :: -    CString ->                              -- hostname : TBasicType TUTF8-    Word16 ->                               -- port : TBasicType TUInt16-    IO (Ptr NetworkAddress)--{- |-Creates a new 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' for connecting to the given-/@hostname@/ and /@port@/.--Note that depending on the configuration of the machine, a-/@hostname@/ of @localhost@ may refer to the IPv4 loopback address-only, or to both IPv4 and IPv6; use-'GI.Gio.Objects.NetworkAddress.networkAddressNewLoopback' to create a 'GI.Gio.Objects.NetworkAddress.NetworkAddress' that-is guaranteed to resolve to both addresses.--/Since: 2.22/--}-networkAddressNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@hostname@/: the hostname -}-    -> Word16-    {- ^ /@port@/: the port -}-    -> m NetworkAddress-    {- ^ __Returns:__ the new 'GI.Gio.Objects.NetworkAddress.NetworkAddress' -}-networkAddressNew hostname port = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_network_address_new hostname' port-    checkUnexpectedReturnNULL "networkAddressNew" result-    result' <- (wrapObject NetworkAddress) result-    freeMem hostname'-    return result'--#if ENABLE_OVERLOADING-#endif---- method NetworkAddress::new_loopback--- method type : Constructor--- Args : [Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the port", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "NetworkAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_network_address_new_loopback" g_network_address_new_loopback :: -    Word16 ->                               -- port : TBasicType TUInt16-    IO (Ptr NetworkAddress)--{- |-Creates a new 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' for connecting to the local host-over a loopback connection to the given /@port@/. This is intended for-use in connecting to local services which may be running on IPv4 or-IPv6.--The connectable will return IPv4 and IPv6 loopback addresses,-regardless of how the host resolves @localhost@. By contrast,-'GI.Gio.Objects.NetworkAddress.networkAddressNew' will often only return an IPv4 address when-resolving @localhost@, and an IPv6 address for @localhost6@.--'GI.Gio.Objects.NetworkAddress.networkAddressGetHostname' will always return @localhost@ for-@/GNetworkAddresses/@ created with this constructor.--/Since: 2.44/--}-networkAddressNewLoopback ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word16-    {- ^ /@port@/: the port -}-    -> m NetworkAddress-    {- ^ __Returns:__ the new 'GI.Gio.Objects.NetworkAddress.NetworkAddress' -}-networkAddressNewLoopback port = liftIO $ do-    result <- g_network_address_new_loopback port-    checkUnexpectedReturnNULL "networkAddressNewLoopback" result-    result' <- (wrapObject NetworkAddress) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method NetworkAddress::get_hostname--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Gio", name = "NetworkAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkAddress", 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 "g_network_address_get_hostname" g_network_address_get_hostname :: -    Ptr NetworkAddress ->                   -- addr : TInterface (Name {namespace = "Gio", name = "NetworkAddress"})-    IO CString--{- |-Gets /@addr@/\'s hostname. This might be either UTF-8 or ASCII-encoded,-depending on what /@addr@/ was created with.--/Since: 2.22/--}-networkAddressGetHostname ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Gio.Objects.NetworkAddress.NetworkAddress' -}-    -> m T.Text-    {- ^ __Returns:__ /@addr@/\'s hostname -}-networkAddressGetHostname addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- g_network_address_get_hostname addr'-    checkUnexpectedReturnNULL "networkAddressGetHostname" result-    result' <- cstringToText result-    touchManagedPtr addr-    return result'--#if ENABLE_OVERLOADING-data NetworkAddressGetHostnameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsNetworkAddress a) => O.MethodInfo NetworkAddressGetHostnameMethodInfo a signature where-    overloadedMethod _ = networkAddressGetHostname--#endif---- method NetworkAddress::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Gio", name = "NetworkAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : False--- Skip return : False--foreign import ccall "g_network_address_get_port" g_network_address_get_port :: -    Ptr NetworkAddress ->                   -- addr : TInterface (Name {namespace = "Gio", name = "NetworkAddress"})-    IO Word16--{- |-Gets /@addr@/\'s port number--/Since: 2.22/--}-networkAddressGetPort ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Gio.Objects.NetworkAddress.NetworkAddress' -}-    -> m Word16-    {- ^ __Returns:__ /@addr@/\'s port (which may be 0) -}-networkAddressGetPort addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- g_network_address_get_port addr'-    touchManagedPtr addr-    return result--#if ENABLE_OVERLOADING-data NetworkAddressGetPortMethodInfo-instance (signature ~ (m Word16), MonadIO m, IsNetworkAddress a) => O.MethodInfo NetworkAddressGetPortMethodInfo a signature where-    overloadedMethod _ = networkAddressGetPort--#endif---- method NetworkAddress::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Gio", name = "NetworkAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkAddress", 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 "g_network_address_get_scheme" g_network_address_get_scheme :: -    Ptr NetworkAddress ->                   -- addr : TInterface (Name {namespace = "Gio", name = "NetworkAddress"})-    IO CString--{- |-Gets /@addr@/\'s scheme--/Since: 2.26/--}-networkAddressGetScheme ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Gio.Objects.NetworkAddress.NetworkAddress' -}-    -> m T.Text-    {- ^ __Returns:__ /@addr@/\'s scheme ('Nothing' if not built from URI) -}-networkAddressGetScheme addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- g_network_address_get_scheme addr'-    checkUnexpectedReturnNULL "networkAddressGetScheme" result-    result' <- cstringToText result-    touchManagedPtr addr-    return result'--#if ENABLE_OVERLOADING-data NetworkAddressGetSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsNetworkAddress a) => O.MethodInfo NetworkAddressGetSchemeMethodInfo a signature where-    overloadedMethod _ = networkAddressGetScheme--#endif---- method NetworkAddress::parse--- method type : MemberFunction--- Args : [Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hostname and optionally a port", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the default port if not in @host_and_port", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "NetworkAddress"}))--- throws : True--- Skip return : False--foreign import ccall "g_network_address_parse" g_network_address_parse :: -    CString ->                              -- host_and_port : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr NetworkAddress)--{- |-Creates a new 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' for connecting to the given-/@hostname@/ and /@port@/. May fail and return 'Nothing' in case-parsing /@hostAndPort@/ fails.--/@hostAndPort@/ may be in any of a number of recognised formats; an IPv6-address, an IPv4 address, or a domain name (in which case a DNS-lookup is performed). Quoting with [] is supported for all address-types. A port override may be specified in the usual way with a-colon.--If no port is specified in /@hostAndPort@/ then /@defaultPort@/ will be-used as the port number to connect to.--In general, /@hostAndPort@/ is expected to be provided by the user-(allowing them to give the hostname, and a port override if necessary)-and /@defaultPort@/ is expected to be provided by the application.--(The port component of /@hostAndPort@/ can also be specified as a-service name rather than as a numeric port, but this functionality-is deprecated, because it depends on the contents of \/etc\/services,-which is generally quite sparse on platforms other than Linux.)--/Since: 2.22/--}-networkAddressParse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@hostAndPort@/: the hostname and optionally a port -}-    -> Word16-    {- ^ /@defaultPort@/: the default port if not in /@hostAndPort@/ -}-    -> m NetworkAddress-    {- ^ __Returns:__ the new-  'GI.Gio.Objects.NetworkAddress.NetworkAddress', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-networkAddressParse hostAndPort defaultPort = liftIO $ do-    hostAndPort' <- textToCString hostAndPort-    onException (do-        result <- propagateGError $ g_network_address_parse hostAndPort' defaultPort-        checkUnexpectedReturnNULL "networkAddressParse" result-        result' <- (wrapObject NetworkAddress) result-        freeMem hostAndPort'-        return result'-     ) (do-        freeMem hostAndPort'-     )--#if ENABLE_OVERLOADING-#endif---- method NetworkAddress::parse_uri--- method type : MemberFunction--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hostname and optionally a port", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The default port if none is found in the URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "NetworkAddress"}))--- throws : True--- Skip return : False--foreign import ccall "g_network_address_parse_uri" g_network_address_parse_uri :: -    CString ->                              -- uri : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr NetworkAddress)--{- |-Creates a new 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' for connecting to the given-/@uri@/. May fail and return 'Nothing' in case parsing /@uri@/ fails.--Using this rather than 'GI.Gio.Objects.NetworkAddress.networkAddressNew' or-'GI.Gio.Objects.NetworkAddress.networkAddressParse' allows 'GI.Gio.Objects.SocketClient.SocketClient' to determine-when to use application-specific proxy protocols.--/Since: 2.26/--}-networkAddressParseUri ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@uri@/: the hostname and optionally a port -}-    -> Word16-    {- ^ /@defaultPort@/: The default port if none is found in the URI -}-    -> m NetworkAddress-    {- ^ __Returns:__ the new-  'GI.Gio.Objects.NetworkAddress.NetworkAddress', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-networkAddressParseUri uri defaultPort = liftIO $ do-    uri' <- textToCString uri-    onException (do-        result <- propagateGError $ g_network_address_parse_uri uri' defaultPort-        checkUnexpectedReturnNULL "networkAddressParseUri" result-        result' <- (wrapObject NetworkAddress) result-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/NetworkAddress.hs-boot 
@@ -1,47 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.NetworkAddress 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 NetworkAddress = NetworkAddress (ManagedPtr NetworkAddress)-instance GObject NetworkAddress where-class (GObject o, O.IsDescendantOf NetworkAddress o) => IsNetworkAddress o-instance (GObject o, O.IsDescendantOf NetworkAddress o) => IsNetworkAddress o-instance O.HasParentTypes NetworkAddress-#if ENABLE_OVERLOADING-data NetworkAddressHostnamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkAddressPortPropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkAddressSchemePropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkAddressGetHostnameMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkAddressGetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkAddressGetSchemeMethodInfo-#endif
− GI/Gio/Objects/NetworkService.hs 
@@ -1,654 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Like 'GI.Gio.Objects.NetworkAddress.NetworkAddress' does with hostnames, 'GI.Gio.Objects.NetworkService.NetworkService'-provides an easy way to resolve a SRV record, and then attempt to-connect to one of the hosts that implements that service, handling-service priority\/weighting, multiple IP addresses, and multiple-address families.--See 'GI.Gio.Structs.SrvTarget.SrvTarget' for more information about SRV records, and see-'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' for an example of using the connectable-interface.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.NetworkService-    ( ---- * Exported types-    NetworkService(..)                      ,-    IsNetworkService                        ,-    toNetworkService                        ,-    noNetworkService                        ,--- -- * Methods--- ** getDomain #method:getDomain#--#if ENABLE_OVERLOADING-    NetworkServiceGetDomainMethodInfo       ,-#endif-    networkServiceGetDomain                 ,----- ** getProtocol #method:getProtocol#--#if ENABLE_OVERLOADING-    NetworkServiceGetProtocolMethodInfo     ,-#endif-    networkServiceGetProtocol               ,----- ** getScheme #method:getScheme#--#if ENABLE_OVERLOADING-    NetworkServiceGetSchemeMethodInfo       ,-#endif-    networkServiceGetScheme                 ,----- ** getService #method:getService#--#if ENABLE_OVERLOADING-    NetworkServiceGetServiceMethodInfo      ,-#endif-    networkServiceGetService                ,----- ** new #method:new#--    networkServiceNew                       ,----- ** setScheme #method:setScheme#--#if ENABLE_OVERLOADING-    NetworkServiceSetSchemeMethodInfo       ,-#endif-    networkServiceSetScheme                 ,----- -- * Properties--- ** domain #attr:domain#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    NetworkServiceDomainPropertyInfo        ,-#endif-    constructNetworkServiceDomain           ,-    getNetworkServiceDomain                 ,-#if ENABLE_OVERLOADING-    networkServiceDomain                    ,-#endif----- ** protocol #attr:protocol#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    NetworkServiceProtocolPropertyInfo      ,-#endif-    constructNetworkServiceProtocol         ,-    getNetworkServiceProtocol               ,-#if ENABLE_OVERLOADING-    networkServiceProtocol                  ,-#endif----- ** scheme #attr:scheme#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    NetworkServiceSchemePropertyInfo        ,-#endif-    constructNetworkServiceScheme           ,-    getNetworkServiceScheme                 ,-#if ENABLE_OVERLOADING-    networkServiceScheme                    ,-#endif-    setNetworkServiceScheme                 ,----- ** service #attr:service#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    NetworkServiceServicePropertyInfo       ,-#endif-    constructNetworkServiceService          ,-    getNetworkServiceService                ,-#if ENABLE_OVERLOADING-    networkServiceService                   ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable---- | Memory-managed wrapper type.-newtype NetworkService = NetworkService (ManagedPtr NetworkService)-foreign import ccall "g_network_service_get_type"-    c_g_network_service_get_type :: IO GType--instance GObject NetworkService where-    gobjectType = c_g_network_service_get_type-    ---- | Type class for types which can be safely cast to `NetworkService`, for instance with `toNetworkService`.-class (GObject o, O.IsDescendantOf NetworkService o) => IsNetworkService o-instance (GObject o, O.IsDescendantOf NetworkService o) => IsNetworkService o--instance O.HasParentTypes NetworkService-type instance O.ParentTypes NetworkService = '[GObject.Object.Object, Gio.SocketConnectable.SocketConnectable]---- | Cast to `NetworkService`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toNetworkService :: (MonadIO m, IsNetworkService o) => o -> m NetworkService-toNetworkService = liftIO . unsafeCastTo NetworkService---- | A convenience alias for `Nothing` :: `Maybe` `NetworkService`.-noNetworkService :: Maybe NetworkService-noNetworkService = Nothing--#if ENABLE_OVERLOADING-type family ResolveNetworkServiceMethod (t :: Symbol) (o :: *) :: * where-    ResolveNetworkServiceMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveNetworkServiceMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveNetworkServiceMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo-    ResolveNetworkServiceMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveNetworkServiceMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveNetworkServiceMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveNetworkServiceMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveNetworkServiceMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveNetworkServiceMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveNetworkServiceMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo-    ResolveNetworkServiceMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveNetworkServiceMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveNetworkServiceMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveNetworkServiceMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveNetworkServiceMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveNetworkServiceMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveNetworkServiceMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo-    ResolveNetworkServiceMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveNetworkServiceMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveNetworkServiceMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveNetworkServiceMethod "getDomain" o = NetworkServiceGetDomainMethodInfo-    ResolveNetworkServiceMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveNetworkServiceMethod "getProtocol" o = NetworkServiceGetProtocolMethodInfo-    ResolveNetworkServiceMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveNetworkServiceMethod "getScheme" o = NetworkServiceGetSchemeMethodInfo-    ResolveNetworkServiceMethod "getService" o = NetworkServiceGetServiceMethodInfo-    ResolveNetworkServiceMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveNetworkServiceMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveNetworkServiceMethod "setScheme" o = NetworkServiceSetSchemeMethodInfo-    ResolveNetworkServiceMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveNetworkServiceMethod t NetworkService, O.MethodInfo info NetworkService p) => OL.IsLabel t (NetworkService -> 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---- VVV Prop "domain"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@domain@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkService #domain-@--}-getNetworkServiceDomain :: (MonadIO m, IsNetworkService o) => o -> m T.Text-getNetworkServiceDomain obj = liftIO $ checkUnexpectedNothing "getNetworkServiceDomain" $ B.Properties.getObjectPropertyString obj "domain"--{- |-Construct a `GValueConstruct` with valid value for the “@domain@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructNetworkServiceDomain :: (IsNetworkService o) => T.Text -> IO (GValueConstruct o)-constructNetworkServiceDomain val = B.Properties.constructObjectPropertyString "domain" (Just val)--#if ENABLE_OVERLOADING-data NetworkServiceDomainPropertyInfo-instance AttrInfo NetworkServiceDomainPropertyInfo where-    type AttrAllowedOps NetworkServiceDomainPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkServiceDomainPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkServiceDomainPropertyInfo = IsNetworkService-    type AttrGetType NetworkServiceDomainPropertyInfo = T.Text-    type AttrLabel NetworkServiceDomainPropertyInfo = "domain"-    type AttrOrigin NetworkServiceDomainPropertyInfo = NetworkService-    attrGet _ = getNetworkServiceDomain-    attrSet _ = undefined-    attrConstruct _ = constructNetworkServiceDomain-    attrClear _ = undefined-#endif---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkService #protocol-@--}-getNetworkServiceProtocol :: (MonadIO m, IsNetworkService o) => o -> m T.Text-getNetworkServiceProtocol obj = liftIO $ checkUnexpectedNothing "getNetworkServiceProtocol" $ B.Properties.getObjectPropertyString obj "protocol"--{- |-Construct a `GValueConstruct` with valid value for the “@protocol@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructNetworkServiceProtocol :: (IsNetworkService o) => T.Text -> IO (GValueConstruct o)-constructNetworkServiceProtocol val = B.Properties.constructObjectPropertyString "protocol" (Just val)--#if ENABLE_OVERLOADING-data NetworkServiceProtocolPropertyInfo-instance AttrInfo NetworkServiceProtocolPropertyInfo where-    type AttrAllowedOps NetworkServiceProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkServiceProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkServiceProtocolPropertyInfo = IsNetworkService-    type AttrGetType NetworkServiceProtocolPropertyInfo = T.Text-    type AttrLabel NetworkServiceProtocolPropertyInfo = "protocol"-    type AttrOrigin NetworkServiceProtocolPropertyInfo = NetworkService-    attrGet _ = getNetworkServiceProtocol-    attrSet _ = undefined-    attrConstruct _ = constructNetworkServiceProtocol-    attrClear _ = undefined-#endif---- VVV Prop "scheme"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@scheme@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkService #scheme-@--}-getNetworkServiceScheme :: (MonadIO m, IsNetworkService o) => o -> m T.Text-getNetworkServiceScheme obj = liftIO $ checkUnexpectedNothing "getNetworkServiceScheme" $ B.Properties.getObjectPropertyString obj "scheme"--{- |-Set the value of the “@scheme@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' networkService [ #scheme 'Data.GI.Base.Attributes.:=' value ]-@--}-setNetworkServiceScheme :: (MonadIO m, IsNetworkService o) => o -> T.Text -> m ()-setNetworkServiceScheme obj val = liftIO $ B.Properties.setObjectPropertyString obj "scheme" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@scheme@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructNetworkServiceScheme :: (IsNetworkService o) => T.Text -> IO (GValueConstruct o)-constructNetworkServiceScheme val = B.Properties.constructObjectPropertyString "scheme" (Just val)--#if ENABLE_OVERLOADING-data NetworkServiceSchemePropertyInfo-instance AttrInfo NetworkServiceSchemePropertyInfo where-    type AttrAllowedOps NetworkServiceSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint NetworkServiceSchemePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkServiceSchemePropertyInfo = IsNetworkService-    type AttrGetType NetworkServiceSchemePropertyInfo = T.Text-    type AttrLabel NetworkServiceSchemePropertyInfo = "scheme"-    type AttrOrigin NetworkServiceSchemePropertyInfo = NetworkService-    attrGet _ = getNetworkServiceScheme-    attrSet _ = setNetworkServiceScheme-    attrConstruct _ = constructNetworkServiceScheme-    attrClear _ = undefined-#endif---- VVV Prop "service"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@service@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' networkService #service-@--}-getNetworkServiceService :: (MonadIO m, IsNetworkService o) => o -> m T.Text-getNetworkServiceService obj = liftIO $ checkUnexpectedNothing "getNetworkServiceService" $ B.Properties.getObjectPropertyString obj "service"--{- |-Construct a `GValueConstruct` with valid value for the “@service@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructNetworkServiceService :: (IsNetworkService o) => T.Text -> IO (GValueConstruct o)-constructNetworkServiceService val = B.Properties.constructObjectPropertyString "service" (Just val)--#if ENABLE_OVERLOADING-data NetworkServiceServicePropertyInfo-instance AttrInfo NetworkServiceServicePropertyInfo where-    type AttrAllowedOps NetworkServiceServicePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint NetworkServiceServicePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint NetworkServiceServicePropertyInfo = IsNetworkService-    type AttrGetType NetworkServiceServicePropertyInfo = T.Text-    type AttrLabel NetworkServiceServicePropertyInfo = "service"-    type AttrOrigin NetworkServiceServicePropertyInfo = NetworkService-    attrGet _ = getNetworkServiceService-    attrSet _ = undefined-    attrConstruct _ = constructNetworkServiceService-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList NetworkService-type instance O.AttributeList NetworkService = NetworkServiceAttributeList-type NetworkServiceAttributeList = ('[ '("domain", NetworkServiceDomainPropertyInfo), '("protocol", NetworkServiceProtocolPropertyInfo), '("scheme", NetworkServiceSchemePropertyInfo), '("service", NetworkServiceServicePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-networkServiceDomain :: AttrLabelProxy "domain"-networkServiceDomain = AttrLabelProxy--networkServiceProtocol :: AttrLabelProxy "protocol"-networkServiceProtocol = AttrLabelProxy--networkServiceScheme :: AttrLabelProxy "scheme"-networkServiceScheme = AttrLabelProxy--networkServiceService :: AttrLabelProxy "service"-networkServiceService = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList NetworkService = NetworkServiceSignalList-type NetworkServiceSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method NetworkService::new--- method type : Constructor--- Args : [Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the service type to look up (eg, \"ldap\")", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the networking protocol to use for @service (eg, \"tcp\")", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the DNS domain to look up the service in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "NetworkService"}))--- throws : False--- Skip return : False--foreign import ccall "g_network_service_new" g_network_service_new :: -    CString ->                              -- service : TBasicType TUTF8-    CString ->                              -- protocol : TBasicType TUTF8-    CString ->                              -- domain : TBasicType TUTF8-    IO (Ptr NetworkService)--{- |-Creates a new 'GI.Gio.Objects.NetworkService.NetworkService' representing the given /@service@/,-/@protocol@/, and /@domain@/. This will initially be unresolved; use the-'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' interface to resolve it.--/Since: 2.22/--}-networkServiceNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@service@/: the service type to look up (eg, \"ldap\") -}-    -> T.Text-    {- ^ /@protocol@/: the networking protocol to use for /@service@/ (eg, \"tcp\") -}-    -> T.Text-    {- ^ /@domain@/: the DNS domain to look up the service in -}-    -> m NetworkService-    {- ^ __Returns:__ a new 'GI.Gio.Objects.NetworkService.NetworkService' -}-networkServiceNew service protocol domain = liftIO $ do-    service' <- textToCString service-    protocol' <- textToCString protocol-    domain' <- textToCString domain-    result <- g_network_service_new service' protocol' domain'-    checkUnexpectedReturnNULL "networkServiceNew" result-    result' <- (wrapObject NetworkService) result-    freeMem service'-    freeMem protocol'-    freeMem domain'-    return result'--#if ENABLE_OVERLOADING-#endif---- method NetworkService::get_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "srv", argType = TInterface (Name {namespace = "Gio", name = "NetworkService"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkService", 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 "g_network_service_get_domain" g_network_service_get_domain :: -    Ptr NetworkService ->                   -- srv : TInterface (Name {namespace = "Gio", name = "NetworkService"})-    IO CString--{- |-Gets the domain that /@srv@/ serves. This might be either UTF-8 or-ASCII-encoded, depending on what /@srv@/ was created with.--/Since: 2.22/--}-networkServiceGetDomain ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkService a) =>-    a-    {- ^ /@srv@/: a 'GI.Gio.Objects.NetworkService.NetworkService' -}-    -> m T.Text-    {- ^ __Returns:__ /@srv@/\'s domain name -}-networkServiceGetDomain srv = liftIO $ do-    srv' <- unsafeManagedPtrCastPtr srv-    result <- g_network_service_get_domain srv'-    checkUnexpectedReturnNULL "networkServiceGetDomain" result-    result' <- cstringToText result-    touchManagedPtr srv-    return result'--#if ENABLE_OVERLOADING-data NetworkServiceGetDomainMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsNetworkService a) => O.MethodInfo NetworkServiceGetDomainMethodInfo a signature where-    overloadedMethod _ = networkServiceGetDomain--#endif---- method NetworkService::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "srv", argType = TInterface (Name {namespace = "Gio", name = "NetworkService"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkService", 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 "g_network_service_get_protocol" g_network_service_get_protocol :: -    Ptr NetworkService ->                   -- srv : TInterface (Name {namespace = "Gio", name = "NetworkService"})-    IO CString--{- |-Gets /@srv@/\'s protocol name (eg, \"tcp\").--/Since: 2.22/--}-networkServiceGetProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkService a) =>-    a-    {- ^ /@srv@/: a 'GI.Gio.Objects.NetworkService.NetworkService' -}-    -> m T.Text-    {- ^ __Returns:__ /@srv@/\'s protocol name -}-networkServiceGetProtocol srv = liftIO $ do-    srv' <- unsafeManagedPtrCastPtr srv-    result <- g_network_service_get_protocol srv'-    checkUnexpectedReturnNULL "networkServiceGetProtocol" result-    result' <- cstringToText result-    touchManagedPtr srv-    return result'--#if ENABLE_OVERLOADING-data NetworkServiceGetProtocolMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsNetworkService a) => O.MethodInfo NetworkServiceGetProtocolMethodInfo a signature where-    overloadedMethod _ = networkServiceGetProtocol--#endif---- method NetworkService::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "srv", argType = TInterface (Name {namespace = "Gio", name = "NetworkService"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkService", 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 "g_network_service_get_scheme" g_network_service_get_scheme :: -    Ptr NetworkService ->                   -- srv : TInterface (Name {namespace = "Gio", name = "NetworkService"})-    IO CString--{- |-Get\'s the URI scheme used to resolve proxies. By default, the service name-is used as scheme.--/Since: 2.26/--}-networkServiceGetScheme ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkService a) =>-    a-    {- ^ /@srv@/: a 'GI.Gio.Objects.NetworkService.NetworkService' -}-    -> m T.Text-    {- ^ __Returns:__ /@srv@/\'s scheme name -}-networkServiceGetScheme srv = liftIO $ do-    srv' <- unsafeManagedPtrCastPtr srv-    result <- g_network_service_get_scheme srv'-    checkUnexpectedReturnNULL "networkServiceGetScheme" result-    result' <- cstringToText result-    touchManagedPtr srv-    return result'--#if ENABLE_OVERLOADING-data NetworkServiceGetSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsNetworkService a) => O.MethodInfo NetworkServiceGetSchemeMethodInfo a signature where-    overloadedMethod _ = networkServiceGetScheme--#endif---- method NetworkService::get_service--- method type : OrdinaryMethod--- Args : [Arg {argCName = "srv", argType = TInterface (Name {namespace = "Gio", name = "NetworkService"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkService", 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 "g_network_service_get_service" g_network_service_get_service :: -    Ptr NetworkService ->                   -- srv : TInterface (Name {namespace = "Gio", name = "NetworkService"})-    IO CString--{- |-Gets /@srv@/\'s service name (eg, \"ldap\").--/Since: 2.22/--}-networkServiceGetService ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkService a) =>-    a-    {- ^ /@srv@/: a 'GI.Gio.Objects.NetworkService.NetworkService' -}-    -> m T.Text-    {- ^ __Returns:__ /@srv@/\'s service name -}-networkServiceGetService srv = liftIO $ do-    srv' <- unsafeManagedPtrCastPtr srv-    result <- g_network_service_get_service srv'-    checkUnexpectedReturnNULL "networkServiceGetService" result-    result' <- cstringToText result-    touchManagedPtr srv-    return result'--#if ENABLE_OVERLOADING-data NetworkServiceGetServiceMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsNetworkService a) => O.MethodInfo NetworkServiceGetServiceMethodInfo a signature where-    overloadedMethod _ = networkServiceGetService--#endif---- method NetworkService::set_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "srv", argType = TInterface (Name {namespace = "Gio", name = "NetworkService"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNetworkService", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_network_service_set_scheme" g_network_service_set_scheme :: -    Ptr NetworkService ->                   -- srv : TInterface (Name {namespace = "Gio", name = "NetworkService"})-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()--{- |-Set\'s the URI scheme used to resolve proxies. By default, the service name-is used as scheme.--/Since: 2.26/--}-networkServiceSetScheme ::-    (B.CallStack.HasCallStack, MonadIO m, IsNetworkService a) =>-    a-    {- ^ /@srv@/: a 'GI.Gio.Objects.NetworkService.NetworkService' -}-    -> T.Text-    {- ^ /@scheme@/: a URI scheme -}-    -> m ()-networkServiceSetScheme srv scheme = liftIO $ do-    srv' <- unsafeManagedPtrCastPtr srv-    scheme' <- textToCString scheme-    g_network_service_set_scheme srv' scheme'-    touchManagedPtr srv-    freeMem scheme'-    return ()--#if ENABLE_OVERLOADING-data NetworkServiceSetSchemeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsNetworkService a) => O.MethodInfo NetworkServiceSetSchemeMethodInfo a signature where-    overloadedMethod _ = networkServiceSetScheme--#endif--
− GI/Gio/Objects/NetworkService.hs-boot 
@@ -1,56 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.NetworkService 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 NetworkService = NetworkService (ManagedPtr NetworkService)-instance GObject NetworkService where-class (GObject o, O.IsDescendantOf NetworkService o) => IsNetworkService o-instance (GObject o, O.IsDescendantOf NetworkService o) => IsNetworkService o-instance O.HasParentTypes NetworkService-#if ENABLE_OVERLOADING-data NetworkServiceDomainPropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkServiceProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkServiceSchemePropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkServiceServicePropertyInfo-#endif-#if ENABLE_OVERLOADING-data NetworkServiceGetDomainMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkServiceGetProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkServiceGetSchemeMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkServiceGetServiceMethodInfo-#endif-#if ENABLE_OVERLOADING-data NetworkServiceSetSchemeMethodInfo-#endif
− GI/Gio/Objects/Notification.hs 
@@ -1,692 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.Notification.Notification' is a mechanism for creating a notification to be shown-to the user -- typically as a pop-up notification presented by the-desktop environment shell.--The key difference between 'GI.Gio.Objects.Notification.Notification' and other similar APIs is-that, if supported by the desktop environment, notifications sent-with 'GI.Gio.Objects.Notification.Notification' will persist after the application has exited,-and even across system reboots.--Since the user may click on a notification while the application is-not running, applications using 'GI.Gio.Objects.Notification.Notification' should be able to be-started as a D-Bus service, using 'GI.Gio.Objects.Application.Application'.--User interaction with a notification (either the default action, or-buttons) must be associated with actions on the application (ie:-\"app.\" actions).  It is not possible to route user interaction-through the notification itself, because the object will not exist if-the application is autostarted as a result of a notification being-clicked.--A notification can be sent with 'GI.Gio.Objects.Application.applicationSendNotification'.--/Since: 2.40/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Notification-    ( ---- * Exported types-    Notification(..)                        ,-    IsNotification                          ,-    toNotification                          ,-    noNotification                          ,--- -- * Methods--- ** addButton #method:addButton#--#if ENABLE_OVERLOADING-    NotificationAddButtonMethodInfo         ,-#endif-    notificationAddButton                   ,----- ** addButtonWithTarget #method:addButtonWithTarget#--#if ENABLE_OVERLOADING-    NotificationAddButtonWithTargetMethodInfo,-#endif-    notificationAddButtonWithTarget         ,----- ** new #method:new#--    notificationNew                         ,----- ** setBody #method:setBody#--#if ENABLE_OVERLOADING-    NotificationSetBodyMethodInfo           ,-#endif-    notificationSetBody                     ,----- ** setDefaultAction #method:setDefaultAction#--#if ENABLE_OVERLOADING-    NotificationSetDefaultActionMethodInfo  ,-#endif-    notificationSetDefaultAction            ,----- ** setDefaultActionAndTarget #method:setDefaultActionAndTarget#--#if ENABLE_OVERLOADING-    NotificationSetDefaultActionAndTargetMethodInfo,-#endif-    notificationSetDefaultActionAndTarget   ,----- ** setIcon #method:setIcon#--#if ENABLE_OVERLOADING-    NotificationSetIconMethodInfo           ,-#endif-    notificationSetIcon                     ,----- ** setPriority #method:setPriority#--#if ENABLE_OVERLOADING-    NotificationSetPriorityMethodInfo       ,-#endif-    notificationSetPriority                 ,----- ** setTitle #method:setTitle#--#if ENABLE_OVERLOADING-    NotificationSetTitleMethodInfo          ,-#endif-    notificationSetTitle                    ,----- ** setUrgent #method:setUrgent#--#if ENABLE_OVERLOADING-    NotificationSetUrgentMethodInfo         ,-#endif-    notificationSetUrgent                   ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon---- | Memory-managed wrapper type.-newtype Notification = Notification (ManagedPtr Notification)-foreign import ccall "g_notification_get_type"-    c_g_notification_get_type :: IO GType--instance GObject Notification where-    gobjectType = c_g_notification_get_type-    ---- | Type class for types which can be safely cast to `Notification`, for instance with `toNotification`.-class (GObject o, O.IsDescendantOf Notification o) => IsNotification o-instance (GObject o, O.IsDescendantOf Notification o) => IsNotification o--instance O.HasParentTypes Notification-type instance O.ParentTypes Notification = '[GObject.Object.Object]---- | Cast to `Notification`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toNotification :: (MonadIO m, IsNotification o) => o -> m Notification-toNotification = liftIO . unsafeCastTo Notification---- | A convenience alias for `Nothing` :: `Maybe` `Notification`.-noNotification :: Maybe Notification-noNotification = Nothing--#if ENABLE_OVERLOADING-type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where-    ResolveNotificationMethod "addButton" o = NotificationAddButtonMethodInfo-    ResolveNotificationMethod "addButtonWithTarget" o = NotificationAddButtonWithTargetMethodInfo-    ResolveNotificationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveNotificationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveNotificationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveNotificationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveNotificationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveNotificationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveNotificationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveNotificationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveNotificationMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveNotificationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveNotificationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveNotificationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveNotificationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveNotificationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveNotificationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveNotificationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveNotificationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveNotificationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveNotificationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveNotificationMethod "setBody" o = NotificationSetBodyMethodInfo-    ResolveNotificationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveNotificationMethod "setDefaultAction" o = NotificationSetDefaultActionMethodInfo-    ResolveNotificationMethod "setDefaultActionAndTarget" o = NotificationSetDefaultActionAndTargetMethodInfo-    ResolveNotificationMethod "setIcon" o = NotificationSetIconMethodInfo-    ResolveNotificationMethod "setPriority" o = NotificationSetPriorityMethodInfo-    ResolveNotificationMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveNotificationMethod "setTitle" o = NotificationSetTitleMethodInfo-    ResolveNotificationMethod "setUrgent" o = NotificationSetUrgentMethodInfo-    ResolveNotificationMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveNotificationMethod t Notification, O.MethodInfo info Notification p) => OL.IsLabel t (Notification -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList Notification-type instance O.AttributeList Notification = NotificationAttributeList-type NotificationAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Notification = NotificationSignalList-type NotificationSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Notification::new--- method type : Constructor--- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the title of the notification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Notification"}))--- throws : False--- Skip return : False--foreign import ccall "g_notification_new" g_notification_new :: -    CString ->                              -- title : TBasicType TUTF8-    IO (Ptr Notification)--{- |-Creates a new 'GI.Gio.Objects.Notification.Notification' with /@title@/ as its title.--After populating /@notification@/ with more details, it can be sent to-the desktop shell with 'GI.Gio.Objects.Application.applicationSendNotification'. Changing-any properties after this call will not have any effect until-resending /@notification@/.--/Since: 2.40/--}-notificationNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@title@/: the title of the notification -}-    -> m Notification-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Notification.Notification' instance -}-notificationNew title = liftIO $ do-    title' <- textToCString title-    result <- g_notification_new title'-    checkUnexpectedReturnNULL "notificationNew" result-    result' <- (wrapObject Notification) result-    freeMem title'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Notification::add_button--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "label of the button", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a detailed action name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_add_button" g_notification_add_button :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()--{- |-Adds a button to /@notification@/ that activates the action in-/@detailedAction@/ when clicked. That action must be an-application-wide action (starting with \"app.\"). If /@detailedAction@/-contains a target, the action will be activated with that target as-its parameter.--See 'GI.Gio.Functions.actionParseDetailedName' for a description of the format-for /@detailedAction@/.--/Since: 2.40/--}-notificationAddButton ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> T.Text-    {- ^ /@label@/: label of the button -}-    -> T.Text-    {- ^ /@detailedAction@/: a detailed action name -}-    -> m ()-notificationAddButton notification label detailedAction = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    label' <- textToCString label-    detailedAction' <- textToCString detailedAction-    g_notification_add_button notification' label' detailedAction'-    touchManagedPtr notification-    freeMem label'-    freeMem detailedAction'-    return ()--#if ENABLE_OVERLOADING-data NotificationAddButtonMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationAddButtonMethodInfo a signature where-    overloadedMethod _ = notificationAddButton--#endif---- method Notification::add_button_with_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "label of the button", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an action name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant to use as @action's parameter, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_add_button_with_target_value" g_notification_add_button_with_target_value :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    CString ->                              -- label : TBasicType TUTF8-    CString ->                              -- action : TBasicType TUTF8-    Ptr GVariant ->                         -- target : TVariant-    IO ()--{- |-Adds a button to /@notification@/ that activates /@action@/ when clicked.-/@action@/ must be an application-wide action (it must start with \"app.\").--If /@target@/ is non-'Nothing', /@action@/ will be activated with /@target@/ as-its parameter.--/Since: 2.40/--}-notificationAddButtonWithTarget ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> T.Text-    {- ^ /@label@/: label of the button -}-    -> T.Text-    {- ^ /@action@/: an action name -}-    -> Maybe (GVariant)-    {- ^ /@target@/: a 'GVariant' to use as /@action@/\'s parameter, or 'Nothing' -}-    -> m ()-notificationAddButtonWithTarget notification label action target = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    label' <- textToCString label-    action' <- textToCString action-    maybeTarget <- case target of-        Nothing -> return nullPtr-        Just jTarget -> do-            jTarget' <- unsafeManagedPtrGetPtr jTarget-            return jTarget'-    g_notification_add_button_with_target_value notification' label' action' maybeTarget-    touchManagedPtr notification-    whenJust target touchManagedPtr-    freeMem label'-    freeMem action'-    return ()--#if ENABLE_OVERLOADING-data NotificationAddButtonWithTargetMethodInfo-instance (signature ~ (T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationAddButtonWithTargetMethodInfo a signature where-    overloadedMethod _ = notificationAddButtonWithTarget--#endif---- method Notification::set_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the new body for @notification, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_set_body" g_notification_set_body :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    CString ->                              -- body : TBasicType TUTF8-    IO ()--{- |-Sets the body of /@notification@/ to /@body@/.--/Since: 2.40/--}-notificationSetBody ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> Maybe (T.Text)-    {- ^ /@body@/: the new body for /@notification@/, or 'Nothing' -}-    -> m ()-notificationSetBody notification body = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    maybeBody <- case body of-        Nothing -> return nullPtr-        Just jBody -> do-            jBody' <- textToCString jBody-            return jBody'-    g_notification_set_body notification' maybeBody-    touchManagedPtr notification-    freeMem maybeBody-    return ()--#if ENABLE_OVERLOADING-data NotificationSetBodyMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetBodyMethodInfo a signature where-    overloadedMethod _ = notificationSetBody--#endif---- method Notification::set_default_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a detailed action name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_set_default_action" g_notification_set_default_action :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    CString ->                              -- detailed_action : TBasicType TUTF8-    IO ()--{- |-Sets the default action of /@notification@/ to /@detailedAction@/. This-action is activated when the notification is clicked on.--The action in /@detailedAction@/ must be an application-wide action (it-must start with \"app.\"). If /@detailedAction@/ contains a target, the-given action will be activated with that target as its parameter.-See 'GI.Gio.Functions.actionParseDetailedName' for a description of the format-for /@detailedAction@/.--When no default action is set, the application that the notification-was sent on is activated.--/Since: 2.40/--}-notificationSetDefaultAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> T.Text-    {- ^ /@detailedAction@/: a detailed action name -}-    -> m ()-notificationSetDefaultAction notification detailedAction = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    detailedAction' <- textToCString detailedAction-    g_notification_set_default_action notification' detailedAction'-    touchManagedPtr notification-    freeMem detailedAction'-    return ()--#if ENABLE_OVERLOADING-data NotificationSetDefaultActionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetDefaultActionMethodInfo a signature where-    overloadedMethod _ = notificationSetDefaultAction--#endif---- method Notification::set_default_action_and_target--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an action name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant to use as @action's parameter, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_set_default_action_and_target_value" g_notification_set_default_action_and_target_value :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    CString ->                              -- action : TBasicType TUTF8-    Ptr GVariant ->                         -- target : TVariant-    IO ()--{- |-Sets the default action of /@notification@/ to /@action@/. This action is-activated when the notification is clicked on. It must be an-application-wide action (start with \"app.\").--If /@target@/ is non-'Nothing', /@action@/ will be activated with /@target@/ as-its parameter.--When no default action is set, the application that the notification-was sent on is activated.--/Since: 2.40/--}-notificationSetDefaultActionAndTarget ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> T.Text-    {- ^ /@action@/: an action name -}-    -> Maybe (GVariant)-    {- ^ /@target@/: a 'GVariant' to use as /@action@/\'s parameter, or 'Nothing' -}-    -> m ()-notificationSetDefaultActionAndTarget notification action target = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    action' <- textToCString action-    maybeTarget <- case target of-        Nothing -> return nullPtr-        Just jTarget -> do-            jTarget' <- unsafeManagedPtrGetPtr jTarget-            return jTarget'-    g_notification_set_default_action_and_target_value notification' action' maybeTarget-    touchManagedPtr notification-    whenJust target touchManagedPtr-    freeMem action'-    return ()--#if ENABLE_OVERLOADING-data NotificationSetDefaultActionAndTargetMethodInfo-instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetDefaultActionAndTargetMethodInfo a signature where-    overloadedMethod _ = notificationSetDefaultActionAndTarget--#endif---- method Notification::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the icon to be shown in @notification, as a #GIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_set_icon" g_notification_set_icon :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    Ptr Gio.Icon.Icon ->                    -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})-    IO ()--{- |-Sets the icon of /@notification@/ to /@icon@/.--/Since: 2.40/--}-notificationSetIcon ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a, Gio.Icon.IsIcon b) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> b-    {- ^ /@icon@/: the icon to be shown in /@notification@/, as a 'GI.Gio.Interfaces.Icon.Icon' -}-    -> m ()-notificationSetIcon notification icon = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    icon' <- unsafeManagedPtrCastPtr icon-    g_notification_set_icon notification' icon'-    touchManagedPtr notification-    touchManagedPtr icon-    return ()--#if ENABLE_OVERLOADING-data NotificationSetIconMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsNotification a, Gio.Icon.IsIcon b) => O.MethodInfo NotificationSetIconMethodInfo a signature where-    overloadedMethod _ = notificationSetIcon--#endif---- method Notification::set_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface (Name {namespace = "Gio", name = "NotificationPriority"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotificationPriority", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_set_priority" g_notification_set_priority :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    CUInt ->                                -- priority : TInterface (Name {namespace = "Gio", name = "NotificationPriority"})-    IO ()--{- |-Sets the priority of /@notification@/ to /@priority@/. See-'GI.Gio.Enums.NotificationPriority' for possible values.--}-notificationSetPriority ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> Gio.Enums.NotificationPriority-    {- ^ /@priority@/: a 'GI.Gio.Enums.NotificationPriority' -}-    -> m ()-notificationSetPriority notification priority = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    let priority' = (fromIntegral . fromEnum) priority-    g_notification_set_priority notification' priority'-    touchManagedPtr notification-    return ()--#if ENABLE_OVERLOADING-data NotificationSetPriorityMethodInfo-instance (signature ~ (Gio.Enums.NotificationPriority -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetPriorityMethodInfo a signature where-    overloadedMethod _ = notificationSetPriority--#endif---- method Notification::set_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new title for @notification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_set_title" g_notification_set_title :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    CString ->                              -- title : TBasicType TUTF8-    IO ()--{- |-Sets the title of /@notification@/ to /@title@/.--/Since: 2.40/--}-notificationSetTitle ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> T.Text-    {- ^ /@title@/: the new title for /@notification@/ -}-    -> m ()-notificationSetTitle notification title = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    title' <- textToCString title-    g_notification_set_title notification' title'-    touchManagedPtr notification-    freeMem title'-    return ()--#if ENABLE_OVERLOADING-data NotificationSetTitleMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetTitleMethodInfo a signature where-    overloadedMethod _ = notificationSetTitle--#endif---- method Notification::set_urgent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "notification", argType = TInterface (Name {namespace = "Gio", name = "Notification"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GNotification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if @notification is urgent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_notification_set_urgent" g_notification_set_urgent :: -    Ptr Notification ->                     -- notification : TInterface (Name {namespace = "Gio", name = "Notification"})-    CInt ->                                 -- urgent : TBasicType TBoolean-    IO ()--{-# DEPRECATED notificationSetUrgent ["(Since version 2.42)","Since 2.42, this has been deprecated in favour of","   'GI.Gio.Objects.Notification.notificationSetPriority'."] #-}-{- |-Deprecated in favor of 'GI.Gio.Objects.Notification.notificationSetPriority'.--/Since: 2.40/--}-notificationSetUrgent ::-    (B.CallStack.HasCallStack, MonadIO m, IsNotification a) =>-    a-    {- ^ /@notification@/: a 'GI.Gio.Objects.Notification.Notification' -}-    -> Bool-    {- ^ /@urgent@/: 'True' if /@notification@/ is urgent -}-    -> m ()-notificationSetUrgent notification urgent = liftIO $ do-    notification' <- unsafeManagedPtrCastPtr notification-    let urgent' = (fromIntegral . fromEnum) urgent-    g_notification_set_urgent notification' urgent'-    touchManagedPtr notification-    return ()--#if ENABLE_OVERLOADING-data NotificationSetUrgentMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsNotification a) => O.MethodInfo NotificationSetUrgentMethodInfo a signature where-    overloadedMethod _ = notificationSetUrgent--#endif--
− GI/Gio/Objects/Notification.hs-boot 
@@ -1,56 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Notification 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 Notification = Notification (ManagedPtr Notification)-instance GObject Notification where-class (GObject o, O.IsDescendantOf Notification o) => IsNotification o-instance (GObject o, O.IsDescendantOf Notification o) => IsNotification o-instance O.HasParentTypes Notification-#if ENABLE_OVERLOADING-data NotificationAddButtonMethodInfo-#endif-#if ENABLE_OVERLOADING-data NotificationAddButtonWithTargetMethodInfo-#endif-#if ENABLE_OVERLOADING-data NotificationSetBodyMethodInfo-#endif-#if ENABLE_OVERLOADING-data NotificationSetDefaultActionMethodInfo-#endif-#if ENABLE_OVERLOADING-data NotificationSetDefaultActionAndTargetMethodInfo-#endif-#if ENABLE_OVERLOADING-data NotificationSetIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data NotificationSetPriorityMethodInfo-#endif-#if ENABLE_OVERLOADING-data NotificationSetTitleMethodInfo-#endif-#if ENABLE_OVERLOADING-data NotificationSetUrgentMethodInfo-#endif
− GI/Gio/Objects/OutputStream.hs 
@@ -1,2195 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.OutputStream.OutputStream' has functions to write to a stream ('GI.Gio.Objects.OutputStream.outputStreamWrite'),-to close a stream ('GI.Gio.Objects.OutputStream.outputStreamClose') and to flush pending writes-('GI.Gio.Objects.OutputStream.outputStreamFlush').--To copy the content of an input stream to an output stream without-manually handling the reads and writes, use 'GI.Gio.Objects.OutputStream.outputStreamSplice'.--See the documentation for 'GI.Gio.Objects.IOStream.IOStream' for details of thread safety of-streaming APIs.--All of these functions have async variants too.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.OutputStream-    ( ---- * Exported types-    OutputStream(..)                        ,-    IsOutputStream                          ,-    toOutputStream                          ,-    noOutputStream                          ,--- -- * Methods--- ** clearPending #method:clearPending#--#if ENABLE_OVERLOADING-    OutputStreamClearPendingMethodInfo      ,-#endif-    outputStreamClearPending                ,----- ** close #method:close#--#if ENABLE_OVERLOADING-    OutputStreamCloseMethodInfo             ,-#endif-    outputStreamClose                       ,----- ** closeAsync #method:closeAsync#--#if ENABLE_OVERLOADING-    OutputStreamCloseAsyncMethodInfo        ,-#endif-    outputStreamCloseAsync                  ,----- ** closeFinish #method:closeFinish#--#if ENABLE_OVERLOADING-    OutputStreamCloseFinishMethodInfo       ,-#endif-    outputStreamCloseFinish                 ,----- ** flush #method:flush#--#if ENABLE_OVERLOADING-    OutputStreamFlushMethodInfo             ,-#endif-    outputStreamFlush                       ,----- ** flushAsync #method:flushAsync#--#if ENABLE_OVERLOADING-    OutputStreamFlushAsyncMethodInfo        ,-#endif-    outputStreamFlushAsync                  ,----- ** flushFinish #method:flushFinish#--#if ENABLE_OVERLOADING-    OutputStreamFlushFinishMethodInfo       ,-#endif-    outputStreamFlushFinish                 ,----- ** hasPending #method:hasPending#--#if ENABLE_OVERLOADING-    OutputStreamHasPendingMethodInfo        ,-#endif-    outputStreamHasPending                  ,----- ** isClosed #method:isClosed#--#if ENABLE_OVERLOADING-    OutputStreamIsClosedMethodInfo          ,-#endif-    outputStreamIsClosed                    ,----- ** isClosing #method:isClosing#--#if ENABLE_OVERLOADING-    OutputStreamIsClosingMethodInfo         ,-#endif-    outputStreamIsClosing                   ,----- ** setPending #method:setPending#--#if ENABLE_OVERLOADING-    OutputStreamSetPendingMethodInfo        ,-#endif-    outputStreamSetPending                  ,----- ** splice #method:splice#--#if ENABLE_OVERLOADING-    OutputStreamSpliceMethodInfo            ,-#endif-    outputStreamSplice                      ,----- ** spliceAsync #method:spliceAsync#--#if ENABLE_OVERLOADING-    OutputStreamSpliceAsyncMethodInfo       ,-#endif-    outputStreamSpliceAsync                 ,----- ** spliceFinish #method:spliceFinish#--#if ENABLE_OVERLOADING-    OutputStreamSpliceFinishMethodInfo      ,-#endif-    outputStreamSpliceFinish                ,----- ** write #method:write#--#if ENABLE_OVERLOADING-    OutputStreamWriteMethodInfo             ,-#endif-    outputStreamWrite                       ,----- ** writeAll #method:writeAll#--#if ENABLE_OVERLOADING-    OutputStreamWriteAllMethodInfo          ,-#endif-    outputStreamWriteAll                    ,----- ** writeAllAsync #method:writeAllAsync#--#if ENABLE_OVERLOADING-    OutputStreamWriteAllAsyncMethodInfo     ,-#endif-    outputStreamWriteAllAsync               ,----- ** writeAllFinish #method:writeAllFinish#--#if ENABLE_OVERLOADING-    OutputStreamWriteAllFinishMethodInfo    ,-#endif-    outputStreamWriteAllFinish              ,----- ** writeAsync #method:writeAsync#--#if ENABLE_OVERLOADING-    OutputStreamWriteAsyncMethodInfo        ,-#endif-    outputStreamWriteAsync                  ,----- ** writeBytes #method:writeBytes#--#if ENABLE_OVERLOADING-    OutputStreamWriteBytesMethodInfo        ,-#endif-    outputStreamWriteBytes                  ,----- ** writeBytesAsync #method:writeBytesAsync#--#if ENABLE_OVERLOADING-    OutputStreamWriteBytesAsyncMethodInfo   ,-#endif-    outputStreamWriteBytesAsync             ,----- ** writeBytesFinish #method:writeBytesFinish#--#if ENABLE_OVERLOADING-    OutputStreamWriteBytesFinishMethodInfo  ,-#endif-    outputStreamWriteBytesFinish            ,----- ** writeFinish #method:writeFinish#--#if ENABLE_OVERLOADING-    OutputStreamWriteFinishMethodInfo       ,-#endif-    outputStreamWriteFinish                 ,----- ** writev #method:writev#--#if ENABLE_OVERLOADING-    OutputStreamWritevMethodInfo            ,-#endif-    outputStreamWritev                      ,----- ** writevAll #method:writevAll#--#if ENABLE_OVERLOADING-    OutputStreamWritevAllMethodInfo         ,-#endif-    outputStreamWritevAll                   ,----- ** writevAllAsync #method:writevAllAsync#--#if ENABLE_OVERLOADING-    OutputStreamWritevAllAsyncMethodInfo    ,-#endif-    outputStreamWritevAllAsync              ,----- ** writevAllFinish #method:writevAllFinish#--#if ENABLE_OVERLOADING-    OutputStreamWritevAllFinishMethodInfo   ,-#endif-    outputStreamWritevAllFinish             ,----- ** writevAsync #method:writevAsync#--#if ENABLE_OVERLOADING-    OutputStreamWritevAsyncMethodInfo       ,-#endif-    outputStreamWritevAsync                 ,----- ** writevFinish #method:writevFinish#--#if ENABLE_OVERLOADING-    OutputStreamWritevFinishMethodInfo      ,-#endif-    outputStreamWritevFinish                ,-----    ) 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.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream-import {-# SOURCE #-} qualified GI.Gio.Structs.OutputVector as Gio.OutputVector---- | Memory-managed wrapper type.-newtype OutputStream = OutputStream (ManagedPtr OutputStream)-foreign import ccall "g_output_stream_get_type"-    c_g_output_stream_get_type :: IO GType--instance GObject OutputStream where-    gobjectType = c_g_output_stream_get_type-    ---- | Type class for types which can be safely cast to `OutputStream`, for instance with `toOutputStream`.-class (GObject o, O.IsDescendantOf OutputStream o) => IsOutputStream o-instance (GObject o, O.IsDescendantOf OutputStream o) => IsOutputStream o--instance O.HasParentTypes OutputStream-type instance O.ParentTypes OutputStream = '[GObject.Object.Object]---- | Cast to `OutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toOutputStream :: (MonadIO m, IsOutputStream o) => o -> m OutputStream-toOutputStream = liftIO . unsafeCastTo OutputStream---- | A convenience alias for `Nothing` :: `Maybe` `OutputStream`.-noOutputStream :: Maybe OutputStream-noOutputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo-    ResolveOutputStreamMethod "close" o = OutputStreamCloseMethodInfo-    ResolveOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo-    ResolveOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo-    ResolveOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo-    ResolveOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo-    ResolveOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo-    ResolveOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo-    ResolveOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo-    ResolveOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo-    ResolveOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo-    ResolveOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo-    ResolveOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo-    ResolveOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveOutputStreamMethod "write" o = OutputStreamWriteMethodInfo-    ResolveOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo-    ResolveOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo-    ResolveOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo-    ResolveOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo-    ResolveOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo-    ResolveOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo-    ResolveOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo-    ResolveOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo-    ResolveOutputStreamMethod "writev" o = OutputStreamWritevMethodInfo-    ResolveOutputStreamMethod "writevAll" o = OutputStreamWritevAllMethodInfo-    ResolveOutputStreamMethod "writevAllAsync" o = OutputStreamWritevAllAsyncMethodInfo-    ResolveOutputStreamMethod "writevAllFinish" o = OutputStreamWritevAllFinishMethodInfo-    ResolveOutputStreamMethod "writevAsync" o = OutputStreamWritevAsyncMethodInfo-    ResolveOutputStreamMethod "writevFinish" o = OutputStreamWritevFinishMethodInfo-    ResolveOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo-    ResolveOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveOutputStreamMethod t OutputStream, O.MethodInfo info OutputStream p) => OL.IsLabel t (OutputStream -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList OutputStream-type instance O.AttributeList OutputStream = OutputStreamAttributeList-type OutputStreamAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList OutputStream = OutputStreamSignalList-type OutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method OutputStream::clear_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "output stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_output_stream_clear_pending" g_output_stream_clear_pending :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    IO ()--{- |-Clears the pending flag on /@stream@/.--}-outputStreamClearPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a) =>-    a-    {- ^ /@stream@/: output stream -}-    -> m ()-outputStreamClearPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    g_output_stream_clear_pending stream'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data OutputStreamClearPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, IsOutputStream a) => O.MethodInfo OutputStreamClearPendingMethodInfo a signature where-    overloadedMethod _ = outputStreamClearPending--#endif---- method OutputStream::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GOutputStream.", 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 "optional cancellable object", 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 "g_output_stream_close" g_output_stream_close :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Closes the stream, releasing resources related to it.--Once the stream is closed, all other operations will return 'GI.Gio.Enums.IOErrorEnumClosed'.-Closing a stream multiple times will not return an error.--Closing a stream will automatically flush any outstanding buffers in the-stream.--Streams will be automatically closed when the last reference-is dropped, but you might want to call this function to make sure-resources are released as early as possible.--Some streams might keep the backing store of the stream (e.g. a file descriptor)-open after the stream is closed. See the documentation for the individual-stream for details.--On failure the first error that happened will be reported, but the close-operation will finish as much as possible. A stream that failed to-close will still return 'GI.Gio.Enums.IOErrorEnumClosed' for all operations. Still, it-is important to check and report the error to the user, otherwise-there might be a loss of data as all data might not be written.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.-Cancelling a close will still leave the stream closed, but there some streams-can use a faster close that doesn\'t block to e.g. check errors. On-cancellation (as with any error) there is no guarantee that all written-data will reach the target.--}-outputStreamClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional cancellable object -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamClose stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_output_stream_close stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamCloseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamCloseMethodInfo a signature where-    overloadedMethod _ = outputStreamClose--#endif---- method OutputStream::close_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GOutputStream.", 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 "the io priority of the request.", 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 "optional cancellable object", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_output_stream_close_async" g_output_stream_close_async :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    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 ()--{- |-Requests an asynchronous close of the stream, releasing resources-related to it. When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.OutputStream.outputStreamCloseFinish' to get-the result of the operation.--For behaviour details see 'GI.Gio.Objects.OutputStream.outputStreamClose'.--The asynchronous methods have a default fallback that uses threads-to implement asynchronicity, so they are optional for inheriting-classes. However, if you override one you must override all.--}-outputStreamCloseAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> Int32-    {- ^ /@ioPriority@/: the io priority of the request. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional cancellable object -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-outputStreamCloseAsync stream ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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-    g_output_stream_close_async stream' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data OutputStreamCloseAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamCloseAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamCloseAsync--#endif---- method OutputStream::close_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "a #GAsyncResult.", 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 "g_output_stream_close_finish" g_output_stream_close_finish :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Closes an output stream.--}-outputStreamCloseFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamCloseFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_output_stream_close_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamCloseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo OutputStreamCloseFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamCloseFinish--#endif---- method OutputStream::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "optional cancellable object", 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 "g_output_stream_flush" g_output_stream_flush :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Forces a write of all user-space buffered data for the given-/@stream@/. Will block during the operation. Closing the stream will-implicitly cause a flush.--This function is optional for inherited classes.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--}-outputStreamFlush ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional cancellable object -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamFlush stream cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_output_stream_flush stream' maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamFlushMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamFlushMethodInfo a signature where-    overloadedMethod _ = outputStreamFlush--#endif---- method OutputStream::flush_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "the io priority of the request.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_output_stream_flush_async" g_output_stream_flush_async :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    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 ()--{- |-Forces an asynchronous write of all user-space buffered data for-the given /@stream@/.-For behaviour details see 'GI.Gio.Objects.OutputStream.outputStreamFlush'.--When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.OutputStream.outputStreamFlushFinish' to get the-result of the operation.--}-outputStreamFlushAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> Int32-    {- ^ /@ioPriority@/: the io priority of the request. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-outputStreamFlushAsync stream ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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-    g_output_stream_flush_async stream' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data OutputStreamFlushAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamFlushAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamFlushAsync--#endif---- method OutputStream::flush_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "a GAsyncResult.", 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 "g_output_stream_flush_finish" g_output_stream_flush_finish :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes flushing an output stream.--}-outputStreamFlushFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> b-    {- ^ /@result@/: a GAsyncResult. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamFlushFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_output_stream_flush_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamFlushFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo OutputStreamFlushFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamFlushFinish--#endif---- method OutputStream::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "g_output_stream_has_pending" g_output_stream_has_pending :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    IO CInt--{- |-Checks if an output stream has pending actions.--}-outputStreamHasPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ has pending actions. -}-outputStreamHasPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_output_stream_has_pending stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data OutputStreamHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsOutputStream a) => O.MethodInfo OutputStreamHasPendingMethodInfo a signature where-    overloadedMethod _ = outputStreamHasPending--#endif---- method OutputStream::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "g_output_stream_is_closed" g_output_stream_is_closed :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    IO CInt--{- |-Checks if an output stream has already been closed.--}-outputStreamIsClosed ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ is closed. 'False' otherwise. -}-outputStreamIsClosed stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_output_stream_is_closed stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data OutputStreamIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsOutputStream a) => O.MethodInfo OutputStreamIsClosedMethodInfo a signature where-    overloadedMethod _ = outputStreamIsClosed--#endif---- method OutputStream::is_closing--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "g_output_stream_is_closing" g_output_stream_is_closing :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    IO CInt--{- |-Checks if an output stream is being closed. This can be-used inside e.g. a flush implementation to see if the-flush (or other i\/o operation) is called from within-the closing operation.--/Since: 2.24/--}-outputStreamIsClosing ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@stream@/ is being closed. 'False' otherwise. -}-outputStreamIsClosing stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_output_stream_is_closing stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data OutputStreamIsClosingMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsOutputStream a) => O.MethodInfo OutputStreamIsClosingMethodInfo a signature where-    overloadedMethod _ = outputStreamIsClosing--#endif---- method OutputStream::set_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "g_output_stream_set_pending" g_output_stream_set_pending :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@stream@/ to have actions pending. If the pending flag is-already set or /@stream@/ is closed, it will return 'False' and set-/@error@/.--}-outputStreamSetPending ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamSetPending stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    onException (do-        _ <- propagateGError $ g_output_stream_set_pending stream'-        touchManagedPtr stream-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamSetPendingMethodInfo-instance (signature ~ (m ()), MonadIO m, IsOutputStream a) => O.MethodInfo OutputStreamSetPendingMethodInfo a signature where-    overloadedMethod _ = outputStreamSetPending--#endif---- method OutputStream::splice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "OutputStreamSpliceFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GOutputStreamSpliceFlags.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_splice" g_output_stream_splice :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.InputStream.InputStream ->      -- source : TInterface (Name {namespace = "Gio", name = "InputStream"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "OutputStreamSpliceFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Splices an input stream into an output stream.--}-outputStreamSplice ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.InputStream.IsInputStream b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> b-    {- ^ /@source@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> [Gio.Flags.OutputStreamSpliceFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.OutputStreamSpliceFlags'. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Int64-    {- ^ __Returns:__ a @/gssize/@ containing the size of the data spliced, or-    -1 if an error occurred. Note that if the number of bytes-    spliced is greater than @/G_MAXSSIZE/@, then that will be-    returned, and there is no way to determine the actual number-    of bytes spliced. /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamSplice stream source flags cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    source' <- unsafeManagedPtrCastPtr source-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_output_stream_splice stream' source' flags' maybeCancellable-        touchManagedPtr stream-        touchManagedPtr source-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamSpliceMethodInfo-instance (signature ~ (b -> [Gio.Flags.OutputStreamSpliceFlags] -> Maybe (c) -> m Int64), MonadIO m, IsOutputStream a, Gio.InputStream.IsInputStream b, Gio.Cancellable.IsCancellable c) => O.MethodInfo OutputStreamSpliceMethodInfo a signature where-    overloadedMethod _ = outputStreamSplice--#endif---- method OutputStream::splice_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "OutputStreamSpliceFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #GOutputStreamSpliceFlags.", 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 "the io priority of the request.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed 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 "g_output_stream_splice_async" g_output_stream_splice_async :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.InputStream.InputStream ->      -- source : TInterface (Name {namespace = "Gio", name = "InputStream"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "OutputStreamSpliceFlags"})-    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 ()--{- |-Splices a stream asynchronously.-When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.OutputStream.outputStreamSpliceFinish' to get the-result of the operation.--For the synchronous, blocking version of this function, see-'GI.Gio.Objects.OutputStream.outputStreamSplice'.--}-outputStreamSpliceAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.InputStream.IsInputStream b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> b-    {- ^ /@source@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> [Gio.Flags.OutputStreamSpliceFlags]-    {- ^ /@flags@/: a set of 'GI.Gio.Flags.OutputStreamSpliceFlags'. -}-    -> Int32-    {- ^ /@ioPriority@/: the io priority of the request. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback'. -}-    -> m ()-outputStreamSpliceAsync stream source flags ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    source' <- unsafeManagedPtrCastPtr source-    let flags' = gflagsToWord flags-    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-    g_output_stream_splice_async stream' source' flags' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    touchManagedPtr source-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data OutputStreamSpliceAsyncMethodInfo-instance (signature ~ (b -> [Gio.Flags.OutputStreamSpliceFlags] -> Int32 -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsOutputStream a, Gio.InputStream.IsInputStream b, Gio.Cancellable.IsCancellable c) => O.MethodInfo OutputStreamSpliceAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamSpliceAsync--#endif---- method OutputStream::splice_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_splice_finish" g_output_stream_splice_finish :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Finishes an asynchronous stream splice operation.--}-outputStreamSpliceFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Int64-    {- ^ __Returns:__ a @/gssize/@ of the number of bytes spliced. Note that if the-    number of bytes spliced is greater than @/G_MAXSSIZE/@, then that-    will be returned, and there is no way to determine the actual-    number of bytes spliced. /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamSpliceFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_output_stream_splice_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamSpliceFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo OutputStreamSpliceFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamSpliceFinish--#endif---- method OutputStream::write--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer containing the data to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", 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 "optional cancellable object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_write" g_output_stream_write :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Tries to write /@count@/ bytes from /@buffer@/ into the stream. Will block-during the operation.--If count is 0, returns 0 and does nothing. A value of /@count@/-larger than @/G_MAXSSIZE/@ will cause a 'GI.Gio.Enums.IOErrorEnumInvalidArgument' error.--On success, the number of bytes written to the stream is returned.-It is not an error if this is not the same as the requested size, as it-can happen e.g. on a partial I\/O error, or if there is not enough-storage in the stream. All writes block until at least one byte-is written or an error occurs; 0 is never returned (unless-/@count@/ is 0).--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If an-operation was partially finished when the operation was cancelled the-partial result will be returned, without an error.--On error -1 is returned and /@error@/ is set accordingly.--}-outputStreamWrite ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> ByteString-    {- ^ /@buffer@/: the buffer containing the data to write. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional cancellable object -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes written, or -1 on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWrite stream buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_output_stream_write stream' buffer' count maybeCancellable-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--#if ENABLE_OVERLOADING-data OutputStreamWriteMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWriteMethodInfo a signature where-    overloadedMethod _ = outputStreamWrite--#endif---- method OutputStream::write_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer containing the data to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that was\n    written to the 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_write_all" g_output_stream_write_all :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Tries to write /@count@/ bytes from /@buffer@/ into the stream. Will block-during the operation.--This function is similar to 'GI.Gio.Objects.OutputStream.outputStreamWrite', except it tries to-write as many bytes as requested, only stopping on an error.--On a successful write of /@count@/ bytes, 'True' is returned, and /@bytesWritten@/-is set to /@count@/.--If there is an error during the operation 'False' is returned and /@error@/-is set to indicate the error status.--As a special exception to the normal conventions for functions that-use 'GError', if this function returns 'False' (and sets /@error@/) then-/@bytesWritten@/ will be set to the number of bytes that were-successfully written before the error was encountered.  This-functionality is only available from C.  If you need it from another-language then you must write your own loop around-'GI.Gio.Objects.OutputStream.outputStreamWrite'.--}-outputStreamWriteAll ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> ByteString-    {- ^ /@buffer@/: the buffer containing the data to write. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWriteAll stream buffer cancellable = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    bytesWritten <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_output_stream_write_all stream' buffer' count bytesWritten maybeCancellable-        bytesWritten' <- peek bytesWritten-        touchManagedPtr stream-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem buffer'-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data OutputStreamWriteAllMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m (Word64)), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWriteAllMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteAll--#endif---- method OutputStream::write_all_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer containing the data to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", 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 "the io priority of the request", 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 "optional #GCancellable object, %NULL to ignore", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_output_stream_write_all_async" g_output_stream_write_all_async :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    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 ()--{- |-Request an asynchronous write of /@count@/ bytes from /@buffer@/ into-the stream. When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.OutputStream.outputStreamWriteAllFinish' to get the result of the-operation.--This is the asynchronous version of 'GI.Gio.Objects.OutputStream.outputStreamWriteAll'.--Call 'GI.Gio.Objects.OutputStream.outputStreamWriteAllFinish' to collect the result.--Any outstanding I\/O request with higher priority (lower numerical-value) will be executed before an outstanding request with lower-priority. Default priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--Note that no copy of /@buffer@/ will be made, so it must stay valid-until /@callback@/ is called.--/Since: 2.44/--}-outputStreamWriteAllAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.OutputStream.OutputStream' -}-    -> ByteString-    {- ^ /@buffer@/: the buffer containing the data to write -}-    -> Int32-    {- ^ /@ioPriority@/: the io priority of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-outputStreamWriteAllAsync stream buffer ioPriority cancellable callback = liftIO $ do-    let count = fromIntegral $ B.length buffer-    stream' <- unsafeManagedPtrCastPtr stream-    buffer' <- packByteString buffer-    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-    g_output_stream_write_all_async stream' buffer' count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem buffer'-    return ()--#if ENABLE_OVERLOADING-data OutputStreamWriteAllAsyncMethodInfo-instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWriteAllAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteAllAsync--#endif---- method OutputStream::write_all_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that was written to the stream", 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 "g_output_stream_write_all_finish" g_output_stream_write_all_finish :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous stream write operation started with-'GI.Gio.Objects.OutputStream.outputStreamWriteAllAsync'.--As a special exception to the normal conventions for functions that-use 'GError', if this function returns 'False' (and sets /@error@/) then-/@bytesWritten@/ will be set to the number of bytes that were-successfully written before the error was encountered.  This-functionality is only available from C.  If you need it from another-language then you must write your own loop around-'GI.Gio.Objects.OutputStream.outputStreamWriteAsync'.--/Since: 2.44/--}-outputStreamWriteAllFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWriteAllFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    bytesWritten <- allocMem :: IO (Ptr Word64)-    onException (do-        _ <- propagateGError $ g_output_stream_write_all_finish stream' result_' bytesWritten-        bytesWritten' <- peek bytesWritten-        touchManagedPtr stream-        touchManagedPtr result_-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data OutputStreamWriteAllFinishMethodInfo-instance (signature ~ (b -> m (Word64)), MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo OutputStreamWriteAllFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteAllFinish--#endif---- method OutputStream::write_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the buffer containing the data to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", 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 "the io priority of the request.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_output_stream_write_async" g_output_stream_write_async :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- count : TBasicType TUInt64-    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 ()--{- |-Request an asynchronous write of /@count@/ bytes from /@buffer@/ into-the stream. When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.OutputStream.outputStreamWriteFinish' to get the result of the-operation.--During an async request no other sync and async calls are allowed,-and will result in 'GI.Gio.Enums.IOErrorEnumPending' errors.--A value of /@count@/ larger than @/G_MAXSSIZE/@ will cause a-'GI.Gio.Enums.IOErrorEnumInvalidArgument' error.--On success, the number of bytes written will be passed to the-/@callback@/. It is not an error if this is not the same as the-requested size, as it can happen e.g. on a partial I\/O error,-but generally we try to write as many bytes as requested.--You are guaranteed that this method will never fail with-'GI.Gio.Enums.IOErrorEnumWouldBlock' - if /@stream@/ can\'t accept more data, the-method will just wait until this changes.--Any outstanding I\/O request with higher priority (lower numerical-value) will be executed before an outstanding request with lower-priority. Default priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--The asynchronous methods have a default fallback that uses threads-to implement asynchronicity, so they are optional for inheriting-classes. However, if you override one you must override all.--For the synchronous, blocking version of this function, see-'GI.Gio.Objects.OutputStream.outputStreamWrite'.--Note that no copy of /@buffer@/ will be made, so it must stay valid-until /@callback@/ is called. See 'GI.Gio.Objects.OutputStream.outputStreamWriteBytesAsync'-for a 'GI.GLib.Structs.Bytes.Bytes' version that will automatically hold a reference to-the contents (without copying) for the duration of the call.--}-outputStreamWriteAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> Maybe (ByteString)-    {- ^ /@buffer@/: the buffer containing the data to write. -}-    -> Int32-    {- ^ /@ioPriority@/: the io priority of the request. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-outputStreamWriteAsync stream buffer ioPriority cancellable callback = liftIO $ do-    let count = case buffer of-            Nothing -> 0-            Just jBuffer -> fromIntegral $ B.length jBuffer-    stream' <- unsafeManagedPtrCastPtr stream-    maybeBuffer <- case buffer of-        Nothing -> return nullPtr-        Just jBuffer -> do-            jBuffer' <- packByteString jBuffer-            return jBuffer'-    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-    g_output_stream_write_async stream' maybeBuffer count ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    whenJust cancellable touchManagedPtr-    freeMem maybeBuffer-    return ()--#if ENABLE_OVERLOADING-data OutputStreamWriteAsyncMethodInfo-instance (signature ~ (Maybe (ByteString) -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWriteAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteAsync--#endif---- method OutputStream::write_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GBytes to write", 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 "optional cancellable object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_write_bytes" g_output_stream_write_bytes :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr GLib.Bytes.Bytes ->                 -- bytes : TInterface (Name {namespace = "GLib", name = "Bytes"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-A wrapper function for 'GI.Gio.Objects.OutputStream.outputStreamWrite' which takes a-'GI.GLib.Structs.Bytes.Bytes' as input.  This can be more convenient for use by language-bindings or in other cases where the refcounted nature of 'GI.GLib.Structs.Bytes.Bytes'-is helpful over a bare pointer interface.--However, note that this function may still perform partial writes,-just like 'GI.Gio.Objects.OutputStream.outputStreamWrite'.  If that occurs, to continue-writing, you will need to create a new 'GI.GLib.Structs.Bytes.Bytes' containing just the-remaining bytes, using 'GI.GLib.Structs.Bytes.bytesNewFromBytes'. Passing the same-'GI.GLib.Structs.Bytes.Bytes' instance multiple times potentially can result in duplicated-data in the output stream.--}-outputStreamWriteBytes ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> GLib.Bytes.Bytes-    {- ^ /@bytes@/: the 'GI.GLib.Structs.Bytes.Bytes' to write -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional cancellable object -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes written, or -1 on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWriteBytes stream bytes cancellable = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    bytes' <- unsafeManagedPtrGetPtr bytes-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_output_stream_write_bytes stream' bytes' maybeCancellable-        touchManagedPtr stream-        touchManagedPtr bytes-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamWriteBytesMethodInfo-instance (signature ~ (GLib.Bytes.Bytes -> Maybe (b) -> m Int64), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWriteBytesMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteBytes--#endif---- method OutputStream::write_bytes_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The bytes to write", 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 "the io priority of the request.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", 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 "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_output_stream_write_bytes_async" g_output_stream_write_bytes_async :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr GLib.Bytes.Bytes ->                 -- bytes : TInterface (Name {namespace = "GLib", name = "Bytes"})-    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 ()--{- |-This function is similar to 'GI.Gio.Objects.OutputStream.outputStreamWriteAsync', but-takes a 'GI.GLib.Structs.Bytes.Bytes' as input.  Due to the refcounted nature of 'GI.GLib.Structs.Bytes.Bytes',-this allows the stream to avoid taking a copy of the data.--However, note that this function may still perform partial writes,-just like 'GI.Gio.Objects.OutputStream.outputStreamWriteAsync'. If that occurs, to continue-writing, you will need to create a new 'GI.GLib.Structs.Bytes.Bytes' containing just the-remaining bytes, using 'GI.GLib.Structs.Bytes.bytesNewFromBytes'. Passing the same-'GI.GLib.Structs.Bytes.Bytes' instance multiple times potentially can result in duplicated-data in the output stream.--For the synchronous, blocking version of this function, see-'GI.Gio.Objects.OutputStream.outputStreamWriteBytes'.--}-outputStreamWriteBytesAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> GLib.Bytes.Bytes-    {- ^ /@bytes@/: The bytes to write -}-    -> Int32-    {- ^ /@ioPriority@/: the io priority of the request. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-outputStreamWriteBytesAsync stream bytes ioPriority cancellable callback = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    bytes' <- unsafeManagedPtrGetPtr bytes-    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-    g_output_stream_write_bytes_async stream' bytes' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    touchManagedPtr bytes-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data OutputStreamWriteBytesAsyncMethodInfo-instance (signature ~ (GLib.Bytes.Bytes -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWriteBytesAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteBytesAsync--#endif---- method OutputStream::write_bytes_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_write_bytes_finish" g_output_stream_write_bytes_finish :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Finishes a stream write-from-'GI.GLib.Structs.Bytes.Bytes' operation.--}-outputStreamWriteBytesFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Int64-    {- ^ __Returns:__ a @/gssize/@ containing the number of bytes written to the stream. /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWriteBytesFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_output_stream_write_bytes_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamWriteBytesFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo OutputStreamWriteBytesFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteBytesFinish--#endif---- method OutputStream::write_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_write_finish" g_output_stream_write_finish :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Finishes a stream write operation.--}-outputStreamWriteFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Int64-    {- ^ __Returns:__ a @/gssize/@ containing the number of bytes written to the stream. /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWriteFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_output_stream_write_finish stream' result_'-        touchManagedPtr stream-        touchManagedPtr result_-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data OutputStreamWriteFinishMethodInfo-instance (signature ~ (b -> m Int64), MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo OutputStreamWriteFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamWriteFinish--#endif---- method OutputStream::writev--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer containing the #GOutputVectors to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that were\n    written to the 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 "optional cancellable object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_writev" g_output_stream_writev :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.OutputVector.OutputVector ->    -- vectors : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"}))-    Word64 ->                               -- n_vectors : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Tries to write the bytes contained in the /@nVectors@/ /@vectors@/ into the-stream. Will block during the operation.--If /@nVectors@/ is 0 or the sum of all bytes in /@vectors@/ is 0, returns 0 and-does nothing.--On success, the number of bytes written to the stream is returned.-It is not an error if this is not the same as the requested size, as it-can happen e.g. on a partial I\/O error, or if there is not enough-storage in the stream. All writes block until at least one byte-is written or an error occurs; 0 is never returned (unless-/@nVectors@/ is 0 or the sum of all bytes in /@vectors@/ is 0).--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned. If an-operation was partially finished when the operation was cancelled the-partial result will be returned, without an error.--Some implementations of 'GI.Gio.Objects.OutputStream.outputStreamWritev' may have limitations on the-aggregate buffer size, and will return 'GI.Gio.Enums.IOErrorEnumInvalidArgument' if these-are exceeded. For example, when writing to a local file on UNIX platforms,-the aggregate buffer size must not exceed @/G_MAXSSIZE/@ bytes.--/Since: 2.60/--}-outputStreamWritev ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> [Gio.OutputVector.OutputVector]-    {- ^ /@vectors@/: the buffer containing the @/GOutputVectors/@ to write. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional cancellable object -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWritev stream vectors cancellable = liftIO $ do-    let nVectors = fromIntegral $ length vectors-    stream' <- unsafeManagedPtrCastPtr stream-    vectors' <- mapM unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    bytesWritten <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_output_stream_writev stream' vectors'' nVectors bytesWritten maybeCancellable-        bytesWritten' <- peek bytesWritten-        touchManagedPtr stream-        mapM_ touchManagedPtr vectors-        whenJust cancellable touchManagedPtr-        freeMem vectors''-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem vectors''-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data OutputStreamWritevMethodInfo-instance (signature ~ ([Gio.OutputVector.OutputVector] -> Maybe (b) -> m (Word64)), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWritevMethodInfo a signature where-    overloadedMethod _ = outputStreamWritev--#endif---- method OutputStream::writev_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer containing the #GOutputVectors to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that were\n    written to the 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_output_stream_writev_all" g_output_stream_writev_all :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.OutputVector.OutputVector ->    -- vectors : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"}))-    Word64 ->                               -- n_vectors : TBasicType TUInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Tries to write the bytes contained in the /@nVectors@/ /@vectors@/ into the-stream. Will block during the operation.--This function is similar to 'GI.Gio.Objects.OutputStream.outputStreamWritev', except it tries to-write as many bytes as requested, only stopping on an error.--On a successful write of all /@nVectors@/ vectors, 'True' is returned, and-/@bytesWritten@/ is set to the sum of all the sizes of /@vectors@/.--If there is an error during the operation 'False' is returned and /@error@/-is set to indicate the error status.--As a special exception to the normal conventions for functions that-use 'GError', if this function returns 'False' (and sets /@error@/) then-/@bytesWritten@/ will be set to the number of bytes that were-successfully written before the error was encountered.  This-functionality is only available from C. If you need it from another-language then you must write your own loop around-'GI.Gio.Objects.OutputStream.outputStreamWrite'.--The content of the individual elements of /@vectors@/ might be changed by this-function.--/Since: 2.60/--}-outputStreamWritevAll ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> [Gio.OutputVector.OutputVector]-    {- ^ /@vectors@/: the buffer containing the @/GOutputVectors/@ to write. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWritevAll stream vectors cancellable = liftIO $ do-    let nVectors = fromIntegral $ length vectors-    stream' <- unsafeManagedPtrCastPtr stream-    vectors' <- mapM unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    bytesWritten <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_output_stream_writev_all stream' vectors'' nVectors bytesWritten maybeCancellable-        bytesWritten' <- peek bytesWritten-        touchManagedPtr stream-        mapM_ touchManagedPtr vectors-        whenJust cancellable touchManagedPtr-        freeMem vectors''-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem vectors''-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data OutputStreamWritevAllMethodInfo-instance (signature ~ ([Gio.OutputVector.OutputVector] -> Maybe (b) -> m (Word64)), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWritevAllMethodInfo a signature where-    overloadedMethod _ = outputStreamWritevAll--#endif---- method OutputStream::writev_all_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer containing the #GOutputVectors to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", 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 "the I/O priority of the request", 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 "optional #GCancellable object, %NULL to ignore", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_output_stream_writev_all_async" g_output_stream_writev_all_async :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.OutputVector.OutputVector ->    -- vectors : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"}))-    Word64 ->                               -- n_vectors : TBasicType TUInt64-    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 ()--{- |-Request an asynchronous write of the bytes contained in the /@nVectors@/ /@vectors@/ into-the stream. When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.OutputStream.outputStreamWritevAllFinish' to get the result of the-operation.--This is the asynchronous version of 'GI.Gio.Objects.OutputStream.outputStreamWritevAll'.--Call 'GI.Gio.Objects.OutputStream.outputStreamWritevAllFinish' to collect the result.--Any outstanding I\/O request with higher priority (lower numerical-value) will be executed before an outstanding request with lower-priority. Default priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--Note that no copy of /@vectors@/ will be made, so it must stay valid-until /@callback@/ is called. The content of the individual elements-of /@vectors@/ might be changed by this function.--/Since: 2.60/--}-outputStreamWritevAllAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.OutputStream.OutputStream' -}-    -> [Gio.OutputVector.OutputVector]-    {- ^ /@vectors@/: the buffer containing the @/GOutputVectors/@ to write. -}-    -> Int32-    {- ^ /@ioPriority@/: the I\/O priority of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-outputStreamWritevAllAsync stream vectors ioPriority cancellable callback = liftIO $ do-    let nVectors = fromIntegral $ length vectors-    stream' <- unsafeManagedPtrCastPtr stream-    vectors' <- mapM unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    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-    g_output_stream_writev_all_async stream' vectors'' nVectors ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    mapM_ touchManagedPtr vectors-    whenJust cancellable touchManagedPtr-    freeMem vectors''-    return ()--#if ENABLE_OVERLOADING-data OutputStreamWritevAllAsyncMethodInfo-instance (signature ~ ([Gio.OutputVector.OutputVector] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWritevAllAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamWritevAllAsync--#endif---- method OutputStream::writev_all_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that were written to the stream", 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 "g_output_stream_writev_all_finish" g_output_stream_writev_all_finish :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous stream write operation started with-'GI.Gio.Objects.OutputStream.outputStreamWritevAllAsync'.--As a special exception to the normal conventions for functions that-use 'GError', if this function returns 'False' (and sets /@error@/) then-/@bytesWritten@/ will be set to the number of bytes that were-successfully written before the error was encountered.  This-functionality is only available from C.  If you need it from another-language then you must write your own loop around-'GI.Gio.Objects.OutputStream.outputStreamWritevAsync'.--/Since: 2.60/--}-outputStreamWritevAllFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWritevAllFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    bytesWritten <- allocMem :: IO (Ptr Word64)-    onException (do-        _ <- propagateGError $ g_output_stream_writev_all_finish stream' result_' bytesWritten-        bytesWritten' <- peek bytesWritten-        touchManagedPtr stream-        touchManagedPtr result_-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data OutputStreamWritevAllFinishMethodInfo-instance (signature ~ (b -> m (Word64)), MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo OutputStreamWritevAllFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamWritevAllFinish--#endif---- method OutputStream::writev_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer containing the #GOutputVectors to write.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", 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 "the I/O priority of the request.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "callback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_vectors", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of vectors to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_output_stream_writev_async" g_output_stream_writev_async :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.OutputVector.OutputVector ->    -- vectors : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputVector"}))-    Word64 ->                               -- n_vectors : TBasicType TUInt64-    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 ()--{- |-Request an asynchronous write of the bytes contained in /@nVectors@/ /@vectors@/ into-the stream. When the operation is finished /@callback@/ will be called.-You can then call 'GI.Gio.Objects.OutputStream.outputStreamWritevFinish' to get the result of the-operation.--During an async request no other sync and async calls are allowed,-and will result in 'GI.Gio.Enums.IOErrorEnumPending' errors.--On success, the number of bytes written will be passed to the-/@callback@/. It is not an error if this is not the same as the-requested size, as it can happen e.g. on a partial I\/O error,-but generally we try to write as many bytes as requested.--You are guaranteed that this method will never fail with-'GI.Gio.Enums.IOErrorEnumWouldBlock' — if /@stream@/ can\'t accept more data, the-method will just wait until this changes.--Any outstanding I\/O request with higher priority (lower numerical-value) will be executed before an outstanding request with lower-priority. Default priority is 'GI.GLib.Constants.PRIORITY_DEFAULT'.--The asynchronous methods have a default fallback that uses threads-to implement asynchronicity, so they are optional for inheriting-classes. However, if you override one you must override all.--For the synchronous, blocking version of this function, see-'GI.Gio.Objects.OutputStream.outputStreamWritev'.--Note that no copy of /@vectors@/ will be made, so it must stay valid-until /@callback@/ is called.--/Since: 2.60/--}-outputStreamWritevAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@stream@/: A 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> [Gio.OutputVector.OutputVector]-    {- ^ /@vectors@/: the buffer containing the @/GOutputVectors/@ to write. -}-    -> Int32-    {- ^ /@ioPriority@/: the I\/O priority of the request. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the request is satisfied -}-    -> m ()-outputStreamWritevAsync stream vectors ioPriority cancellable callback = liftIO $ do-    let nVectors = fromIntegral $ length vectors-    stream' <- unsafeManagedPtrCastPtr stream-    vectors' <- mapM unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    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-    g_output_stream_writev_async stream' vectors'' nVectors ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr stream-    mapM_ touchManagedPtr vectors-    whenJust cancellable touchManagedPtr-    freeMem vectors''-    return ()--#if ENABLE_OVERLOADING-data OutputStreamWritevAsyncMethodInfo-instance (signature ~ ([Gio.OutputVector.OutputVector] -> Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsOutputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo OutputStreamWritevAsyncMethodInfo a signature where-    overloadedMethod _ = outputStreamWritevAsync--#endif---- method OutputStream::writev_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that were written to the stream", 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 "g_output_stream_writev_finish" g_output_stream_writev_finish :: -    Ptr OutputStream ->                     -- stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes a stream writev operation.--/Since: 2.60/--}-outputStreamWritevFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m (Word64)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-outputStreamWritevFinish stream result_ = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result_' <- unsafeManagedPtrCastPtr result_-    bytesWritten <- allocMem :: IO (Ptr Word64)-    onException (do-        _ <- propagateGError $ g_output_stream_writev_finish stream' result_' bytesWritten-        bytesWritten' <- peek bytesWritten-        touchManagedPtr stream-        touchManagedPtr result_-        freeMem bytesWritten-        return bytesWritten'-     ) (do-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data OutputStreamWritevFinishMethodInfo-instance (signature ~ (b -> m (Word64)), MonadIO m, IsOutputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo OutputStreamWritevFinishMethodInfo a signature where-    overloadedMethod _ = outputStreamWritevFinish--#endif--
− GI/Gio/Objects/OutputStream.hs-boot 
@@ -1,116 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.OutputStream 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 OutputStream = OutputStream (ManagedPtr OutputStream)-instance GObject OutputStream where-class (GObject o, O.IsDescendantOf OutputStream o) => IsOutputStream o-instance (GObject o, O.IsDescendantOf OutputStream o) => IsOutputStream o-instance O.HasParentTypes OutputStream-#if ENABLE_OVERLOADING-data OutputStreamClearPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamCloseAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamCloseFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamFlushMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamFlushAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamFlushFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamHasPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamIsClosedMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamIsClosingMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamSetPendingMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamSpliceMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamSpliceAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamSpliceFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteAllMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteAllAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteAllFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteBytesMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteBytesAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteBytesFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWriteFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWritevMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWritevAllMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWritevAllAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWritevAllFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWritevAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data OutputStreamWritevFinishMethodInfo-#endif
− GI/Gio/Objects/Permission.hs 
@@ -1,889 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.Permission.Permission' represents the status of the caller\'s permission to-perform a certain action.--You can query if the action is currently allowed and if it is-possible to acquire the permission so that the action will be allowed-in the future.--There is also an API to actually acquire the permission and one to-release it.--As an example, a 'GI.Gio.Objects.Permission.Permission' might represent the ability for the-user to write to a 'GI.Gio.Objects.Settings.Settings' object.  This 'GI.Gio.Objects.Permission.Permission' object could-then be used to decide if it is appropriate to show a \"Click here to-unlock\" button in a dialog and to provide the mechanism to invoke-when that button is clicked.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Permission-    ( ---- * Exported types-    Permission(..)                          ,-    IsPermission                            ,-    toPermission                            ,-    noPermission                            ,--- -- * Methods--- ** acquire #method:acquire#--#if ENABLE_OVERLOADING-    PermissionAcquireMethodInfo             ,-#endif-    permissionAcquire                       ,----- ** acquireAsync #method:acquireAsync#--#if ENABLE_OVERLOADING-    PermissionAcquireAsyncMethodInfo        ,-#endif-    permissionAcquireAsync                  ,----- ** acquireFinish #method:acquireFinish#--#if ENABLE_OVERLOADING-    PermissionAcquireFinishMethodInfo       ,-#endif-    permissionAcquireFinish                 ,----- ** getAllowed #method:getAllowed#--#if ENABLE_OVERLOADING-    PermissionGetAllowedMethodInfo          ,-#endif-    permissionGetAllowed                    ,----- ** getCanAcquire #method:getCanAcquire#--#if ENABLE_OVERLOADING-    PermissionGetCanAcquireMethodInfo       ,-#endif-    permissionGetCanAcquire                 ,----- ** getCanRelease #method:getCanRelease#--#if ENABLE_OVERLOADING-    PermissionGetCanReleaseMethodInfo       ,-#endif-    permissionGetCanRelease                 ,----- ** implUpdate #method:implUpdate#--#if ENABLE_OVERLOADING-    PermissionImplUpdateMethodInfo          ,-#endif-    permissionImplUpdate                    ,----- ** release #method:release#--#if ENABLE_OVERLOADING-    PermissionReleaseMethodInfo             ,-#endif-    permissionRelease                       ,----- ** releaseAsync #method:releaseAsync#--#if ENABLE_OVERLOADING-    PermissionReleaseAsyncMethodInfo        ,-#endif-    permissionReleaseAsync                  ,----- ** releaseFinish #method:releaseFinish#--#if ENABLE_OVERLOADING-    PermissionReleaseFinishMethodInfo       ,-#endif-    permissionReleaseFinish                 ,----- -- * Properties--- ** allowed #attr:allowed#-{- | 'True' if the caller currently has permission to perform the action that-/@permission@/ represents the permission to perform.--}-#if ENABLE_OVERLOADING-    PermissionAllowedPropertyInfo           ,-#endif-    getPermissionAllowed                    ,-#if ENABLE_OVERLOADING-    permissionAllowed                       ,-#endif----- ** canAcquire #attr:canAcquire#-{- | 'True' if it is generally possible to acquire the permission by calling-'GI.Gio.Objects.Permission.permissionAcquire'.--}-#if ENABLE_OVERLOADING-    PermissionCanAcquirePropertyInfo        ,-#endif-    getPermissionCanAcquire                 ,-#if ENABLE_OVERLOADING-    permissionCanAcquire                    ,-#endif----- ** canRelease #attr:canRelease#-{- | 'True' if it is generally possible to release the permission by calling-'GI.Gio.Objects.Permission.permissionRelease'.--}-#if ENABLE_OVERLOADING-    PermissionCanReleasePropertyInfo        ,-#endif-    getPermissionCanRelease                 ,-#if ENABLE_OVERLOADING-    permissionCanRelease                    ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- | Memory-managed wrapper type.-newtype Permission = Permission (ManagedPtr Permission)-foreign import ccall "g_permission_get_type"-    c_g_permission_get_type :: IO GType--instance GObject Permission where-    gobjectType = c_g_permission_get_type-    ---- | Type class for types which can be safely cast to `Permission`, for instance with `toPermission`.-class (GObject o, O.IsDescendantOf Permission o) => IsPermission o-instance (GObject o, O.IsDescendantOf Permission o) => IsPermission o--instance O.HasParentTypes Permission-type instance O.ParentTypes Permission = '[GObject.Object.Object]---- | Cast to `Permission`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toPermission :: (MonadIO m, IsPermission o) => o -> m Permission-toPermission = liftIO . unsafeCastTo Permission---- | A convenience alias for `Nothing` :: `Maybe` `Permission`.-noPermission :: Maybe Permission-noPermission = Nothing--#if ENABLE_OVERLOADING-type family ResolvePermissionMethod (t :: Symbol) (o :: *) :: * where-    ResolvePermissionMethod "acquire" o = PermissionAcquireMethodInfo-    ResolvePermissionMethod "acquireAsync" o = PermissionAcquireAsyncMethodInfo-    ResolvePermissionMethod "acquireFinish" o = PermissionAcquireFinishMethodInfo-    ResolvePermissionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolvePermissionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolvePermissionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolvePermissionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolvePermissionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolvePermissionMethod "implUpdate" o = PermissionImplUpdateMethodInfo-    ResolvePermissionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolvePermissionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolvePermissionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolvePermissionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolvePermissionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolvePermissionMethod "release" o = PermissionReleaseMethodInfo-    ResolvePermissionMethod "releaseAsync" o = PermissionReleaseAsyncMethodInfo-    ResolvePermissionMethod "releaseFinish" o = PermissionReleaseFinishMethodInfo-    ResolvePermissionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolvePermissionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolvePermissionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolvePermissionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolvePermissionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolvePermissionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolvePermissionMethod "getAllowed" o = PermissionGetAllowedMethodInfo-    ResolvePermissionMethod "getCanAcquire" o = PermissionGetCanAcquireMethodInfo-    ResolvePermissionMethod "getCanRelease" o = PermissionGetCanReleaseMethodInfo-    ResolvePermissionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolvePermissionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolvePermissionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolvePermissionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolvePermissionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolvePermissionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolvePermissionMethod t Permission, O.MethodInfo info Permission p) => OL.IsLabel t (Permission -> 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---- VVV Prop "allowed"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@allowed@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' permission #allowed-@--}-getPermissionAllowed :: (MonadIO m, IsPermission o) => o -> m Bool-getPermissionAllowed obj = liftIO $ B.Properties.getObjectPropertyBool obj "allowed"--#if ENABLE_OVERLOADING-data PermissionAllowedPropertyInfo-instance AttrInfo PermissionAllowedPropertyInfo where-    type AttrAllowedOps PermissionAllowedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint PermissionAllowedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint PermissionAllowedPropertyInfo = IsPermission-    type AttrGetType PermissionAllowedPropertyInfo = Bool-    type AttrLabel PermissionAllowedPropertyInfo = "allowed"-    type AttrOrigin PermissionAllowedPropertyInfo = Permission-    attrGet _ = getPermissionAllowed-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "can-acquire"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@can-acquire@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' permission #canAcquire-@--}-getPermissionCanAcquire :: (MonadIO m, IsPermission o) => o -> m Bool-getPermissionCanAcquire obj = liftIO $ B.Properties.getObjectPropertyBool obj "can-acquire"--#if ENABLE_OVERLOADING-data PermissionCanAcquirePropertyInfo-instance AttrInfo PermissionCanAcquirePropertyInfo where-    type AttrAllowedOps PermissionCanAcquirePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint PermissionCanAcquirePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PermissionCanAcquirePropertyInfo = IsPermission-    type AttrGetType PermissionCanAcquirePropertyInfo = Bool-    type AttrLabel PermissionCanAcquirePropertyInfo = "can-acquire"-    type AttrOrigin PermissionCanAcquirePropertyInfo = Permission-    attrGet _ = getPermissionCanAcquire-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "can-release"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@can-release@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' permission #canRelease-@--}-getPermissionCanRelease :: (MonadIO m, IsPermission o) => o -> m Bool-getPermissionCanRelease obj = liftIO $ B.Properties.getObjectPropertyBool obj "can-release"--#if ENABLE_OVERLOADING-data PermissionCanReleasePropertyInfo-instance AttrInfo PermissionCanReleasePropertyInfo where-    type AttrAllowedOps PermissionCanReleasePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint PermissionCanReleasePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PermissionCanReleasePropertyInfo = IsPermission-    type AttrGetType PermissionCanReleasePropertyInfo = Bool-    type AttrLabel PermissionCanReleasePropertyInfo = "can-release"-    type AttrOrigin PermissionCanReleasePropertyInfo = Permission-    attrGet _ = getPermissionCanRelease-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Permission-type instance O.AttributeList Permission = PermissionAttributeList-type PermissionAttributeList = ('[ '("allowed", PermissionAllowedPropertyInfo), '("canAcquire", PermissionCanAcquirePropertyInfo), '("canRelease", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-permissionAllowed :: AttrLabelProxy "allowed"-permissionAllowed = AttrLabelProxy--permissionCanAcquire :: AttrLabelProxy "canAcquire"-permissionCanAcquire = AttrLabelProxy--permissionCanRelease :: AttrLabelProxy "canRelease"-permissionCanRelease = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Permission = PermissionSignalList-type PermissionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Permission::acquire--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_permission_acquire" g_permission_acquire :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Attempts to acquire the permission represented by /@permission@/.--The precise method by which this happens depends on the permission-and the underlying authentication mechanism.  A simple example is-that a dialog may appear asking the user to enter their password.--You should check with 'GI.Gio.Objects.Permission.permissionGetCanAcquire' before calling-this function.--If the permission is acquired then 'True' is returned.  Otherwise,-'False' is returned and /@error@/ is set appropriately.--This call is blocking, likely for a very long time (in the case that-user interaction is required).  See 'GI.Gio.Objects.Permission.permissionAcquireAsync' for-the non-blocking version.--/Since: 2.26/--}-permissionAcquire ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-permissionAcquire permission cancellable = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_permission_acquire permission' maybeCancellable-        touchManagedPtr permission-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data PermissionAcquireMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPermission a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PermissionAcquireMethodInfo a signature where-    overloadedMethod _ = permissionAcquire--#endif---- method Permission::acquire_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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 "the #GAsyncReadyCallback to call when done", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user 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 "g_permission_acquire_async" g_permission_acquire_async :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    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 ()--{- |-Attempts to acquire the permission represented by /@permission@/.--This is the first half of the asynchronous version of-'GI.Gio.Objects.Permission.permissionAcquire'.--/Since: 2.26/--}-permissionAcquireAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: the 'GI.Gio.Callbacks.AsyncReadyCallback' to call when done -}-    -> m ()-permissionAcquireAsync permission cancellable callback = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    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-    g_permission_acquire_async permission' maybeCancellable maybeCallback userData-    touchManagedPtr permission-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data PermissionAcquireAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsPermission a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PermissionAcquireAsyncMethodInfo a signature where-    overloadedMethod _ = permissionAcquireAsync--#endif---- method Permission::acquire_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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 "the #GAsyncResult given to the #GAsyncReadyCallback", 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 "g_permission_acquire_finish" g_permission_acquire_finish :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Collects the result of attempting to acquire the permission-represented by /@permission@/.--This is the second half of the asynchronous version of-'GI.Gio.Objects.Permission.permissionAcquire'.--/Since: 2.26/--}-permissionAcquireFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' given to the 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-permissionAcquireFinish permission result_ = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_permission_acquire_finish permission' result_'-        touchManagedPtr permission-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data PermissionAcquireFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsPermission a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo PermissionAcquireFinishMethodInfo a signature where-    overloadedMethod _ = permissionAcquireFinish--#endif---- method Permission::get_allowed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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 "g_permission_get_allowed" g_permission_get_allowed :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    IO CInt--{- |-Gets the value of the \'allowed\' property.  This property is 'True' if-the caller currently has permission to perform the action that-/@permission@/ represents the permission to perform.--/Since: 2.26/--}-permissionGetAllowed ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> m Bool-    {- ^ __Returns:__ the value of the \'allowed\' property -}-permissionGetAllowed permission = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    result <- g_permission_get_allowed permission'-    let result' = (/= 0) result-    touchManagedPtr permission-    return result'--#if ENABLE_OVERLOADING-data PermissionGetAllowedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsPermission a) => O.MethodInfo PermissionGetAllowedMethodInfo a signature where-    overloadedMethod _ = permissionGetAllowed--#endif---- method Permission::get_can_acquire--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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 "g_permission_get_can_acquire" g_permission_get_can_acquire :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    IO CInt--{- |-Gets the value of the \'can-acquire\' property.  This property is 'True'-if it is generally possible to acquire the permission by calling-'GI.Gio.Objects.Permission.permissionAcquire'.--/Since: 2.26/--}-permissionGetCanAcquire ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> m Bool-    {- ^ __Returns:__ the value of the \'can-acquire\' property -}-permissionGetCanAcquire permission = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    result <- g_permission_get_can_acquire permission'-    let result' = (/= 0) result-    touchManagedPtr permission-    return result'--#if ENABLE_OVERLOADING-data PermissionGetCanAcquireMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsPermission a) => O.MethodInfo PermissionGetCanAcquireMethodInfo a signature where-    overloadedMethod _ = permissionGetCanAcquire--#endif---- method Permission::get_can_release--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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 "g_permission_get_can_release" g_permission_get_can_release :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    IO CInt--{- |-Gets the value of the \'can-release\' property.  This property is 'True'-if it is generally possible to release the permission by calling-'GI.Gio.Objects.Permission.permissionRelease'.--/Since: 2.26/--}-permissionGetCanRelease ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> m Bool-    {- ^ __Returns:__ the value of the \'can-release\' property -}-permissionGetCanRelease permission = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    result <- g_permission_get_can_release permission'-    let result' = (/= 0) result-    touchManagedPtr permission-    return result'--#if ENABLE_OVERLOADING-data PermissionGetCanReleaseMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsPermission a) => O.MethodInfo PermissionGetCanReleaseMethodInfo a signature where-    overloadedMethod _ = permissionGetCanRelease--#endif---- method Permission::impl_update--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for the 'allowed' property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_acquire", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for the 'can-acquire' property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_release", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for the 'can-release' property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_permission_impl_update" g_permission_impl_update :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    CInt ->                                 -- allowed : TBasicType TBoolean-    CInt ->                                 -- can_acquire : TBasicType TBoolean-    CInt ->                                 -- can_release : TBasicType TBoolean-    IO ()--{- |-This function is called by the 'GI.Gio.Objects.Permission.Permission' implementation to update-the properties of the permission.  You should never call this-function except from a 'GI.Gio.Objects.Permission.Permission' implementation.--GObject notify signals are generated, as appropriate.--/Since: 2.26/--}-permissionImplUpdate ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> Bool-    {- ^ /@allowed@/: the new value for the \'allowed\' property -}-    -> Bool-    {- ^ /@canAcquire@/: the new value for the \'can-acquire\' property -}-    -> Bool-    {- ^ /@canRelease@/: the new value for the \'can-release\' property -}-    -> m ()-permissionImplUpdate permission allowed canAcquire canRelease = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    let allowed' = (fromIntegral . fromEnum) allowed-    let canAcquire' = (fromIntegral . fromEnum) canAcquire-    let canRelease' = (fromIntegral . fromEnum) canRelease-    g_permission_impl_update permission' allowed' canAcquire' canRelease'-    touchManagedPtr permission-    return ()--#if ENABLE_OVERLOADING-data PermissionImplUpdateMethodInfo-instance (signature ~ (Bool -> Bool -> Bool -> m ()), MonadIO m, IsPermission a) => O.MethodInfo PermissionImplUpdateMethodInfo a signature where-    overloadedMethod _ = permissionImplUpdate--#endif---- method Permission::release--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_permission_release" g_permission_release :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Attempts to release the permission represented by /@permission@/.--The precise method by which this happens depends on the permission-and the underlying authentication mechanism.  In most cases the-permission will be dropped immediately without further action.--You should check with 'GI.Gio.Objects.Permission.permissionGetCanRelease' before calling-this function.--If the permission is released then 'True' is returned.  Otherwise,-'False' is returned and /@error@/ is set appropriately.--This call is blocking, likely for a very long time (in the case that-user interaction is required).  See 'GI.Gio.Objects.Permission.permissionReleaseAsync' for-the non-blocking version.--/Since: 2.26/--}-permissionRelease ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-permissionRelease permission cancellable = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_permission_release permission' maybeCancellable-        touchManagedPtr permission-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data PermissionReleaseMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPermission a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PermissionReleaseMethodInfo a signature where-    overloadedMethod _ = permissionRelease--#endif---- method Permission::release_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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 "the #GAsyncReadyCallback to call when done", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user 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 "g_permission_release_async" g_permission_release_async :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    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 ()--{- |-Attempts to release the permission represented by /@permission@/.--This is the first half of the asynchronous version of-'GI.Gio.Objects.Permission.permissionRelease'.--/Since: 2.26/--}-permissionReleaseAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: the 'GI.Gio.Callbacks.AsyncReadyCallback' to call when done -}-    -> m ()-permissionReleaseAsync permission cancellable callback = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    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-    g_permission_release_async permission' maybeCancellable maybeCallback userData-    touchManagedPtr permission-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data PermissionReleaseAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsPermission a, Gio.Cancellable.IsCancellable b) => O.MethodInfo PermissionReleaseAsyncMethodInfo a signature where-    overloadedMethod _ = permissionReleaseAsync--#endif---- method Permission::release_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "permission", argType = TInterface (Name {namespace = "Gio", name = "Permission"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GPermission instance", 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 "the #GAsyncResult given to the #GAsyncReadyCallback", 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 "g_permission_release_finish" g_permission_release_finish :: -    Ptr Permission ->                       -- permission : TInterface (Name {namespace = "Gio", name = "Permission"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Collects the result of attempting to release the permission-represented by /@permission@/.--This is the second half of the asynchronous version of-'GI.Gio.Objects.Permission.permissionRelease'.--/Since: 2.26/--}-permissionReleaseFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsPermission a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@permission@/: a 'GI.Gio.Objects.Permission.Permission' instance -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' given to the 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-permissionReleaseFinish permission result_ = liftIO $ do-    permission' <- unsafeManagedPtrCastPtr permission-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_permission_release_finish permission' result_'-        touchManagedPtr permission-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data PermissionReleaseFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsPermission a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo PermissionReleaseFinishMethodInfo a signature where-    overloadedMethod _ = permissionReleaseFinish--#endif--
− GI/Gio/Objects/Permission.hs-boot 
@@ -1,68 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Permission 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 Permission = Permission (ManagedPtr Permission)-instance GObject Permission where-class (GObject o, O.IsDescendantOf Permission o) => IsPermission o-instance (GObject o, O.IsDescendantOf Permission o) => IsPermission o-instance O.HasParentTypes Permission-#if ENABLE_OVERLOADING-data PermissionAllowedPropertyInfo-#endif-#if ENABLE_OVERLOADING-data PermissionCanAcquirePropertyInfo-#endif-#if ENABLE_OVERLOADING-data PermissionCanReleasePropertyInfo-#endif-#if ENABLE_OVERLOADING-data PermissionAcquireMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionAcquireAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionAcquireFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionGetAllowedMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionGetCanAcquireMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionGetCanReleaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionImplUpdateMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionReleaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionReleaseAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data PermissionReleaseFinishMethodInfo-#endif
− GI/Gio/Objects/PropertyAction.hs 
@@ -1,661 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.PropertyAction.PropertyAction' is a way to get a 'GI.Gio.Interfaces.Action.Action' with a state value-reflecting and controlling the value of a 'GI.GObject.Objects.Object.Object' property.--The state of the action will correspond to the value of the property.-Changing it will change the property (assuming the requested value-matches the requirements as specified in the 'GI.GObject.Objects.ParamSpec.ParamSpec').--Only the most common types are presently supported.  Booleans are-mapped to booleans, strings to strings, signed\/unsigned integers to-int32\/uint32 and floats and doubles to doubles.--If the property is an enum then the state will be string-typed and-conversion will automatically be performed between the enum value and-\"nick\" string as per the 'GI.GObject.Structs.EnumValue.EnumValue' table.--Flags types are not currently supported.--Properties of object types, boxed types and pointer types are not-supported and probably never will be.--Properties of 'GVariant' types are not currently supported.--If the property is boolean-valued then the action will have a NULL-parameter type, and activating the action (with no parameter) will-toggle the value of the property.--In all other cases, the parameter type will correspond to the type of-the property.--The general idea here is to reduce the number of locations where a-particular piece of state is kept (and therefore has to be synchronised-between). 'GI.Gio.Objects.PropertyAction.PropertyAction' does not have a separate state that is kept-in sync with the property value -- its state is the property value.--For example, it might be useful to create a 'GI.Gio.Interfaces.Action.Action' corresponding to-the \"visible-child-name\" property of a @/GtkStack/@ so that the current-page can be switched from a menu.  The active radio indication in the-menu is then directly determined from the active page of the-@/GtkStack/@.--An anti-example would be binding the \"active-id\" property on a-@/GtkComboBox/@.  This is because the state of the combobox itself is-probably uninteresting and is actually being used to control-something else.--Another anti-example would be to bind to the \"visible-child-name\"-property of a @/GtkStack/@ if this value is actually stored in-'GI.Gio.Objects.Settings.Settings'.  In that case, the real source of the value is-'GI.Gio.Objects.Settings.Settings'.  If you want a 'GI.Gio.Interfaces.Action.Action' to control a setting stored in-'GI.Gio.Objects.Settings.Settings', see 'GI.Gio.Objects.Settings.settingsCreateAction' instead, and possibly-combine its use with 'GI.Gio.Objects.Settings.settingsBind'.--/Since: 2.38/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.PropertyAction-    ( ---- * Exported types-    PropertyAction(..)                      ,-    IsPropertyAction                        ,-    toPropertyAction                        ,-    noPropertyAction                        ,--- -- * Methods--- ** new #method:new#--    propertyActionNew                       ,----- -- * Properties--- ** enabled #attr:enabled#-{- | If /@action@/ is currently enabled.--If the action is disabled then calls to 'GI.Gio.Interfaces.Action.actionActivate' and-'GI.Gio.Interfaces.Action.actionChangeState' have no effect.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    PropertyActionEnabledPropertyInfo       ,-#endif-    getPropertyActionEnabled                ,-#if ENABLE_OVERLOADING-    propertyActionEnabled                   ,-#endif----- ** invertBoolean #attr:invertBoolean#-{- | If 'True', the state of the action will be the negation of the-property value, provided the property is boolean.--/Since: 2.46/--}-#if ENABLE_OVERLOADING-    PropertyActionInvertBooleanPropertyInfo ,-#endif-    constructPropertyActionInvertBoolean    ,-    getPropertyActionInvertBoolean          ,-#if ENABLE_OVERLOADING-    propertyActionInvertBoolean             ,-#endif----- ** name #attr:name#-{- | The name of the action.  This is mostly meaningful for identifying-the action once it has been added to a 'GI.Gio.Interfaces.ActionMap.ActionMap'.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    PropertyActionNamePropertyInfo          ,-#endif-    constructPropertyActionName             ,-    getPropertyActionName                   ,-#if ENABLE_OVERLOADING-    propertyActionName                      ,-#endif----- ** object #attr:object#-{- | The object to wrap a property on.--The object must be a non-'Nothing' 'GI.GObject.Objects.Object.Object' with properties.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    PropertyActionObjectPropertyInfo        ,-#endif-    constructPropertyActionObject           ,-#if ENABLE_OVERLOADING-    propertyActionObject                    ,-#endif----- ** parameterType #attr:parameterType#-{- | The type of the parameter that must be given when activating the-action.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    PropertyActionParameterTypePropertyInfo ,-#endif-    getPropertyActionParameterType          ,-#if ENABLE_OVERLOADING-    propertyActionParameterType             ,-#endif----- ** propertyName #attr:propertyName#-{- | The name of the property to wrap on the object.--The property must exist on the passed-in object and it must be-readable and writable (and not construct-only).--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    PropertyActionPropertyNamePropertyInfo  ,-#endif-    constructPropertyActionPropertyName     ,-#if ENABLE_OVERLOADING-    propertyActionPropertyName              ,-#endif----- ** state #attr:state#-{- | The state of the action, or 'Nothing' if the action is stateless.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    PropertyActionStatePropertyInfo         ,-#endif-    getPropertyActionState                  ,-#if ENABLE_OVERLOADING-    propertyActionState                     ,-#endif----- ** stateType #attr:stateType#-{- | The 'GI.GLib.Structs.VariantType.VariantType' of the state that the action has, or 'Nothing' if the-action is stateless.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    PropertyActionStateTypePropertyInfo     ,-#endif-    getPropertyActionStateType              ,-#if ENABLE_OVERLOADING-    propertyActionStateType                 ,-#endif-----    ) 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.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Action as Gio.Action---- | Memory-managed wrapper type.-newtype PropertyAction = PropertyAction (ManagedPtr PropertyAction)-foreign import ccall "g_property_action_get_type"-    c_g_property_action_get_type :: IO GType--instance GObject PropertyAction where-    gobjectType = c_g_property_action_get_type-    ---- | Type class for types which can be safely cast to `PropertyAction`, for instance with `toPropertyAction`.-class (GObject o, O.IsDescendantOf PropertyAction o) => IsPropertyAction o-instance (GObject o, O.IsDescendantOf PropertyAction o) => IsPropertyAction o--instance O.HasParentTypes PropertyAction-type instance O.ParentTypes PropertyAction = '[GObject.Object.Object, Gio.Action.Action]---- | Cast to `PropertyAction`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toPropertyAction :: (MonadIO m, IsPropertyAction o) => o -> m PropertyAction-toPropertyAction = liftIO . unsafeCastTo PropertyAction---- | A convenience alias for `Nothing` :: `Maybe` `PropertyAction`.-noPropertyAction :: Maybe PropertyAction-noPropertyAction = Nothing--#if ENABLE_OVERLOADING-type family ResolvePropertyActionMethod (t :: Symbol) (o :: *) :: * where-    ResolvePropertyActionMethod "activate" o = Gio.Action.ActionActivateMethodInfo-    ResolvePropertyActionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolvePropertyActionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolvePropertyActionMethod "changeState" o = Gio.Action.ActionChangeStateMethodInfo-    ResolvePropertyActionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolvePropertyActionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolvePropertyActionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolvePropertyActionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolvePropertyActionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolvePropertyActionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolvePropertyActionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolvePropertyActionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolvePropertyActionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolvePropertyActionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolvePropertyActionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolvePropertyActionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolvePropertyActionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolvePropertyActionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolvePropertyActionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolvePropertyActionMethod "getEnabled" o = Gio.Action.ActionGetEnabledMethodInfo-    ResolvePropertyActionMethod "getName" o = Gio.Action.ActionGetNameMethodInfo-    ResolvePropertyActionMethod "getParameterType" o = Gio.Action.ActionGetParameterTypeMethodInfo-    ResolvePropertyActionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolvePropertyActionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolvePropertyActionMethod "getState" o = Gio.Action.ActionGetStateMethodInfo-    ResolvePropertyActionMethod "getStateHint" o = Gio.Action.ActionGetStateHintMethodInfo-    ResolvePropertyActionMethod "getStateType" o = Gio.Action.ActionGetStateTypeMethodInfo-    ResolvePropertyActionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolvePropertyActionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolvePropertyActionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolvePropertyActionMethod t PropertyAction, O.MethodInfo info PropertyAction p) => OL.IsLabel t (PropertyAction -> 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----- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "PropertyAction"} -> Property {propName = "enabled", propType = TBasicType TBoolean, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "If @action is currently enabled.\n\nIf the action is disabled then calls to g_action_activate() and\ng_action_change_state() have no effect.", sinceVersion = Just "2.38"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "enabled", propType = TBasicType TBoolean, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "If @action is currently enabled.\n\nIf the action is disabled then calls to g_action_activate() and\ng_action_change_state() have no effect.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "PropertyAction"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The name of the action.  This is mostly meaningful for identifying\nthe action once it has been added to a #GActionMap.", sinceVersion = Just "2.38"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The name of the action.  This is mostly meaningful for identifying\nthe action once it has been added to a #GActionGroup. It is immutable.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "PropertyAction"} -> Property {propName = "parameter-type", propType = TInterface (Name {namespace = "GLib", name = "VariantType"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The type of the parameter that must be given when activating the\naction.", sinceVersion = Just "2.38"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "parameter-type", propType = TInterface (Name {namespace = "GLib", name = "VariantType"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The type of the parameter that must be given when activating the\naction. This is immutable, and may be %NULL if no parameter is needed when\nactivating the action.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "PropertyAction"} -> Property {propName = "state", propType = TVariant, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The state of the action, or %NULL if the action is stateless.", sinceVersion = Just "2.38"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "state", propType = TVariant, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The state of the action, or %NULL if the action is stateless.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "PropertyAction"} -> Property {propName = "state-type", propType = TInterface (Name {namespace = "GLib", name = "VariantType"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The #GVariantType of the state that the action has, or %NULL if the\naction is stateless.", sinceVersion = Just "2.38"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "state-type", propType = TInterface (Name {namespace = "GLib", name = "VariantType"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The #GVariantType of the state that the action has, or %NULL if the\naction is stateless. This is immutable.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}--- VVV Prop "enabled"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@enabled@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' propertyAction #enabled-@--}-getPropertyActionEnabled :: (MonadIO m, IsPropertyAction o) => o -> m Bool-getPropertyActionEnabled obj = liftIO $ B.Properties.getObjectPropertyBool obj "enabled"--#if ENABLE_OVERLOADING-data PropertyActionEnabledPropertyInfo-instance AttrInfo PropertyActionEnabledPropertyInfo where-    type AttrAllowedOps PropertyActionEnabledPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint PropertyActionEnabledPropertyInfo = (~) ()-    type AttrBaseTypeConstraint PropertyActionEnabledPropertyInfo = IsPropertyAction-    type AttrGetType PropertyActionEnabledPropertyInfo = Bool-    type AttrLabel PropertyActionEnabledPropertyInfo = "enabled"-    type AttrOrigin PropertyActionEnabledPropertyInfo = PropertyAction-    attrGet _ = getPropertyActionEnabled-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "invert-boolean"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@invert-boolean@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' propertyAction #invertBoolean-@--}-getPropertyActionInvertBoolean :: (MonadIO m, IsPropertyAction o) => o -> m Bool-getPropertyActionInvertBoolean obj = liftIO $ B.Properties.getObjectPropertyBool obj "invert-boolean"--{- |-Construct a `GValueConstruct` with valid value for the “@invert-boolean@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructPropertyActionInvertBoolean :: (IsPropertyAction o) => Bool -> IO (GValueConstruct o)-constructPropertyActionInvertBoolean val = B.Properties.constructObjectPropertyBool "invert-boolean" val--#if ENABLE_OVERLOADING-data PropertyActionInvertBooleanPropertyInfo-instance AttrInfo PropertyActionInvertBooleanPropertyInfo where-    type AttrAllowedOps PropertyActionInvertBooleanPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint PropertyActionInvertBooleanPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint PropertyActionInvertBooleanPropertyInfo = IsPropertyAction-    type AttrGetType PropertyActionInvertBooleanPropertyInfo = Bool-    type AttrLabel PropertyActionInvertBooleanPropertyInfo = "invert-boolean"-    type AttrOrigin PropertyActionInvertBooleanPropertyInfo = PropertyAction-    attrGet _ = getPropertyActionInvertBoolean-    attrSet _ = undefined-    attrConstruct _ = constructPropertyActionInvertBoolean-    attrClear _ = undefined-#endif---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' propertyAction #name-@--}-getPropertyActionName :: (MonadIO m, IsPropertyAction o) => o -> m (Maybe T.Text)-getPropertyActionName obj = liftIO $ B.Properties.getObjectPropertyString obj "name"--{- |-Construct a `GValueConstruct` with valid value for the “@name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructPropertyActionName :: (IsPropertyAction o) => T.Text -> IO (GValueConstruct o)-constructPropertyActionName val = B.Properties.constructObjectPropertyString "name" (Just val)--#if ENABLE_OVERLOADING-data PropertyActionNamePropertyInfo-instance AttrInfo PropertyActionNamePropertyInfo where-    type AttrAllowedOps PropertyActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint PropertyActionNamePropertyInfo = IsPropertyAction-    type AttrGetType PropertyActionNamePropertyInfo = (Maybe T.Text)-    type AttrLabel PropertyActionNamePropertyInfo = "name"-    type AttrOrigin PropertyActionNamePropertyInfo = PropertyAction-    attrGet _ = getPropertyActionName-    attrSet _ = undefined-    attrConstruct _ = constructPropertyActionName-    attrClear _ = undefined-#endif---- VVV Prop "object"-   -- Type: TInterface (Name {namespace = "GObject", name = "Object"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@object@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructPropertyActionObject :: (IsPropertyAction o, GObject.Object.IsObject a) => a -> IO (GValueConstruct o)-constructPropertyActionObject val = B.Properties.constructObjectPropertyObject "object" (Just val)--#if ENABLE_OVERLOADING-data PropertyActionObjectPropertyInfo-instance AttrInfo PropertyActionObjectPropertyInfo where-    type AttrAllowedOps PropertyActionObjectPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionObjectPropertyInfo = GObject.Object.IsObject-    type AttrBaseTypeConstraint PropertyActionObjectPropertyInfo = IsPropertyAction-    type AttrGetType PropertyActionObjectPropertyInfo = ()-    type AttrLabel PropertyActionObjectPropertyInfo = "object"-    type AttrOrigin PropertyActionObjectPropertyInfo = PropertyAction-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructPropertyActionObject-    attrClear _ = undefined-#endif---- VVV Prop "parameter-type"-   -- Type: TInterface (Name {namespace = "GLib", name = "VariantType"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@parameter-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' propertyAction #parameterType-@--}-getPropertyActionParameterType :: (MonadIO m, IsPropertyAction o) => o -> m (Maybe GLib.VariantType.VariantType)-getPropertyActionParameterType obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "parameter-type" GLib.VariantType.VariantType--#if ENABLE_OVERLOADING-data PropertyActionParameterTypePropertyInfo-instance AttrInfo PropertyActionParameterTypePropertyInfo where-    type AttrAllowedOps PropertyActionParameterTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionParameterTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PropertyActionParameterTypePropertyInfo = IsPropertyAction-    type AttrGetType PropertyActionParameterTypePropertyInfo = (Maybe GLib.VariantType.VariantType)-    type AttrLabel PropertyActionParameterTypePropertyInfo = "parameter-type"-    type AttrOrigin PropertyActionParameterTypePropertyInfo = PropertyAction-    attrGet _ = getPropertyActionParameterType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "property-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@property-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructPropertyActionPropertyName :: (IsPropertyAction o) => T.Text -> IO (GValueConstruct o)-constructPropertyActionPropertyName val = B.Properties.constructObjectPropertyString "property-name" (Just val)--#if ENABLE_OVERLOADING-data PropertyActionPropertyNamePropertyInfo-instance AttrInfo PropertyActionPropertyNamePropertyInfo where-    type AttrAllowedOps PropertyActionPropertyNamePropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionPropertyNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint PropertyActionPropertyNamePropertyInfo = IsPropertyAction-    type AttrGetType PropertyActionPropertyNamePropertyInfo = ()-    type AttrLabel PropertyActionPropertyNamePropertyInfo = "property-name"-    type AttrOrigin PropertyActionPropertyNamePropertyInfo = PropertyAction-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructPropertyActionPropertyName-    attrClear _ = undefined-#endif---- VVV Prop "state"-   -- Type: TVariant-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@state@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' propertyAction #state-@--}-getPropertyActionState :: (MonadIO m, IsPropertyAction o) => o -> m (Maybe GVariant)-getPropertyActionState obj = liftIO $ B.Properties.getObjectPropertyVariant obj "state"--#if ENABLE_OVERLOADING-data PropertyActionStatePropertyInfo-instance AttrInfo PropertyActionStatePropertyInfo where-    type AttrAllowedOps PropertyActionStatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionStatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PropertyActionStatePropertyInfo = IsPropertyAction-    type AttrGetType PropertyActionStatePropertyInfo = (Maybe GVariant)-    type AttrLabel PropertyActionStatePropertyInfo = "state"-    type AttrOrigin PropertyActionStatePropertyInfo = PropertyAction-    attrGet _ = getPropertyActionState-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "state-type"-   -- Type: TInterface (Name {namespace = "GLib", name = "VariantType"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@state-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' propertyAction #stateType-@--}-getPropertyActionStateType :: (MonadIO m, IsPropertyAction o) => o -> m (Maybe GLib.VariantType.VariantType)-getPropertyActionStateType obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "state-type" GLib.VariantType.VariantType--#if ENABLE_OVERLOADING-data PropertyActionStateTypePropertyInfo-instance AttrInfo PropertyActionStateTypePropertyInfo where-    type AttrAllowedOps PropertyActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint PropertyActionStateTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint PropertyActionStateTypePropertyInfo = IsPropertyAction-    type AttrGetType PropertyActionStateTypePropertyInfo = (Maybe GLib.VariantType.VariantType)-    type AttrLabel PropertyActionStateTypePropertyInfo = "state-type"-    type AttrOrigin PropertyActionStateTypePropertyInfo = PropertyAction-    attrGet _ = getPropertyActionStateType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList PropertyAction-type instance O.AttributeList PropertyAction = PropertyActionAttributeList-type PropertyActionAttributeList = ('[ '("enabled", PropertyActionEnabledPropertyInfo), '("invertBoolean", PropertyActionInvertBooleanPropertyInfo), '("name", PropertyActionNamePropertyInfo), '("object", PropertyActionObjectPropertyInfo), '("parameterType", PropertyActionParameterTypePropertyInfo), '("propertyName", PropertyActionPropertyNamePropertyInfo), '("state", PropertyActionStatePropertyInfo), '("stateType", PropertyActionStateTypePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-propertyActionEnabled :: AttrLabelProxy "enabled"-propertyActionEnabled = AttrLabelProxy--propertyActionInvertBoolean :: AttrLabelProxy "invertBoolean"-propertyActionInvertBoolean = AttrLabelProxy--propertyActionName :: AttrLabelProxy "name"-propertyActionName = AttrLabelProxy--propertyActionObject :: AttrLabelProxy "object"-propertyActionObject = AttrLabelProxy--propertyActionParameterType :: AttrLabelProxy "parameterType"-propertyActionParameterType = AttrLabelProxy--propertyActionPropertyName :: AttrLabelProxy "propertyName"-propertyActionPropertyName = AttrLabelProxy--propertyActionState :: AttrLabelProxy "state"-propertyActionState = AttrLabelProxy--propertyActionStateType :: AttrLabelProxy "stateType"-propertyActionStateType = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList PropertyAction = PropertyActionSignalList-type PropertyActionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method PropertyAction::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action to create", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the object that has the property\n  to wrap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the property", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "PropertyAction"}))--- throws : False--- Skip return : False--foreign import ccall "g_property_action_new" g_property_action_new :: -    CString ->                              -- name : TBasicType TUTF8-    Ptr GObject.Object.Object ->            -- object : TInterface (Name {namespace = "GObject", name = "Object"})-    CString ->                              -- property_name : TBasicType TUTF8-    IO (Ptr PropertyAction)--{- |-Creates a 'GI.Gio.Interfaces.Action.Action' corresponding to the value of property-/@propertyName@/ on /@object@/.--The property must be existent and readable and writable (and not-construct-only).--This function takes a reference on /@object@/ and doesn\'t release it-until the action is destroyed.--/Since: 2.38/--}-propertyActionNew ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>-    T.Text-    {- ^ /@name@/: the name of the action to create -}-    -> a-    {- ^ /@object@/: the object that has the property-  to wrap -}-    -> T.Text-    {- ^ /@propertyName@/: the name of the property -}-    -> m PropertyAction-    {- ^ __Returns:__ a new 'GI.Gio.Objects.PropertyAction.PropertyAction' -}-propertyActionNew name object propertyName = liftIO $ do-    name' <- textToCString name-    object' <- unsafeManagedPtrCastPtr object-    propertyName' <- textToCString propertyName-    result <- g_property_action_new name' object' propertyName'-    checkUnexpectedReturnNULL "propertyActionNew" result-    result' <- (wrapObject PropertyAction) result-    touchManagedPtr object-    freeMem name'-    freeMem propertyName'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/PropertyAction.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.PropertyAction 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 PropertyAction = PropertyAction (ManagedPtr PropertyAction)-instance GObject PropertyAction where-class (GObject o, O.IsDescendantOf PropertyAction o) => IsPropertyAction o-instance (GObject o, O.IsDescendantOf PropertyAction o) => IsPropertyAction o-instance O.HasParentTypes PropertyAction-#if ENABLE_OVERLOADING-data PropertyActionEnabledPropertyInfo-#endif-#if ENABLE_OVERLOADING-data PropertyActionInvertBooleanPropertyInfo-#endif-#if ENABLE_OVERLOADING-data PropertyActionNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data PropertyActionObjectPropertyInfo-#endif-#if ENABLE_OVERLOADING-data PropertyActionParameterTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data PropertyActionPropertyNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data PropertyActionStatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data PropertyActionStateTypePropertyInfo-#endif
− GI/Gio/Objects/ProxyAddress.hs 
@@ -1,932 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Support for proxied 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress'.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ProxyAddress-    ( ---- * Exported types-    ProxyAddress(..)                        ,-    IsProxyAddress                          ,-    toProxyAddress                          ,-    noProxyAddress                          ,--- -- * Methods--- ** getDestinationHostname #method:getDestinationHostname#--#if ENABLE_OVERLOADING-    ProxyAddressGetDestinationHostnameMethodInfo,-#endif-    proxyAddressGetDestinationHostname      ,----- ** getDestinationPort #method:getDestinationPort#--#if ENABLE_OVERLOADING-    ProxyAddressGetDestinationPortMethodInfo,-#endif-    proxyAddressGetDestinationPort          ,----- ** getDestinationProtocol #method:getDestinationProtocol#--#if ENABLE_OVERLOADING-    ProxyAddressGetDestinationProtocolMethodInfo,-#endif-    proxyAddressGetDestinationProtocol      ,----- ** getPassword #method:getPassword#--#if ENABLE_OVERLOADING-    ProxyAddressGetPasswordMethodInfo       ,-#endif-    proxyAddressGetPassword                 ,----- ** getProtocol #method:getProtocol#--#if ENABLE_OVERLOADING-    ProxyAddressGetProtocolMethodInfo       ,-#endif-    proxyAddressGetProtocol                 ,----- ** getUri #method:getUri#--#if ENABLE_OVERLOADING-    ProxyAddressGetUriMethodInfo            ,-#endif-    proxyAddressGetUri                      ,----- ** getUsername #method:getUsername#--#if ENABLE_OVERLOADING-    ProxyAddressGetUsernameMethodInfo       ,-#endif-    proxyAddressGetUsername                 ,----- ** new #method:new#--    proxyAddressNew                         ,----- -- * Properties--- ** destinationHostname #attr:destinationHostname#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ProxyAddressDestinationHostnamePropertyInfo,-#endif-    constructProxyAddressDestinationHostname,-    getProxyAddressDestinationHostname      ,-#if ENABLE_OVERLOADING-    proxyAddressDestinationHostname         ,-#endif----- ** destinationPort #attr:destinationPort#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ProxyAddressDestinationPortPropertyInfo ,-#endif-    constructProxyAddressDestinationPort    ,-    getProxyAddressDestinationPort          ,-#if ENABLE_OVERLOADING-    proxyAddressDestinationPort             ,-#endif----- ** destinationProtocol #attr:destinationProtocol#-{- | The protocol being spoke to the destination host, or 'Nothing' if-the 'GI.Gio.Objects.ProxyAddress.ProxyAddress' doesn\'t know.--/Since: 2.34/--}-#if ENABLE_OVERLOADING-    ProxyAddressDestinationProtocolPropertyInfo,-#endif-    constructProxyAddressDestinationProtocol,-    getProxyAddressDestinationProtocol      ,-#if ENABLE_OVERLOADING-    proxyAddressDestinationProtocol         ,-#endif----- ** password #attr:password#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ProxyAddressPasswordPropertyInfo        ,-#endif-    constructProxyAddressPassword           ,-    getProxyAddressPassword                 ,-#if ENABLE_OVERLOADING-    proxyAddressPassword                    ,-#endif----- ** protocol #attr:protocol#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ProxyAddressProtocolPropertyInfo        ,-#endif-    constructProxyAddressProtocol           ,-    getProxyAddressProtocol                 ,-#if ENABLE_OVERLOADING-    proxyAddressProtocol                    ,-#endif----- ** uri #attr:uri#-{- | The URI string that the proxy was constructed from (or 'Nothing'-if the creator didn\'t specify this).--/Since: 2.34/--}-#if ENABLE_OVERLOADING-    ProxyAddressUriPropertyInfo             ,-#endif-    constructProxyAddressUri                ,-    getProxyAddressUri                      ,-#if ENABLE_OVERLOADING-    proxyAddressUri                         ,-#endif----- ** username #attr:username#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ProxyAddressUsernamePropertyInfo        ,-#endif-    constructProxyAddressUsername           ,-    getProxyAddressUsername                 ,-#if ENABLE_OVERLOADING-    proxyAddressUsername                    ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import {-# SOURCE #-} qualified GI.Gio.Objects.InetAddress as Gio.InetAddress-import {-# SOURCE #-} qualified GI.Gio.Objects.InetSocketAddress as Gio.InetSocketAddress-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress---- | Memory-managed wrapper type.-newtype ProxyAddress = ProxyAddress (ManagedPtr ProxyAddress)-foreign import ccall "g_proxy_address_get_type"-    c_g_proxy_address_get_type :: IO GType--instance GObject ProxyAddress where-    gobjectType = c_g_proxy_address_get_type-    ---- | Type class for types which can be safely cast to `ProxyAddress`, for instance with `toProxyAddress`.-class (GObject o, O.IsDescendantOf ProxyAddress o) => IsProxyAddress o-instance (GObject o, O.IsDescendantOf ProxyAddress o) => IsProxyAddress o--instance O.HasParentTypes ProxyAddress-type instance O.ParentTypes ProxyAddress = '[Gio.InetSocketAddress.InetSocketAddress, Gio.SocketAddress.SocketAddress, GObject.Object.Object, Gio.SocketConnectable.SocketConnectable]---- | Cast to `ProxyAddress`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toProxyAddress :: (MonadIO m, IsProxyAddress o) => o -> m ProxyAddress-toProxyAddress = liftIO . unsafeCastTo ProxyAddress---- | A convenience alias for `Nothing` :: `Maybe` `ProxyAddress`.-noProxyAddress :: Maybe ProxyAddress-noProxyAddress = Nothing--#if ENABLE_OVERLOADING-type family ResolveProxyAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveProxyAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveProxyAddressMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo-    ResolveProxyAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveProxyAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveProxyAddressMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveProxyAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveProxyAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveProxyAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveProxyAddressMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo-    ResolveProxyAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveProxyAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveProxyAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveProxyAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveProxyAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveProxyAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveProxyAddressMethod "toNative" o = Gio.SocketAddress.SocketAddressToNativeMethodInfo-    ResolveProxyAddressMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo-    ResolveProxyAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveProxyAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveProxyAddressMethod "getAddress" o = Gio.InetSocketAddress.InetSocketAddressGetAddressMethodInfo-    ResolveProxyAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveProxyAddressMethod "getDestinationHostname" o = ProxyAddressGetDestinationHostnameMethodInfo-    ResolveProxyAddressMethod "getDestinationPort" o = ProxyAddressGetDestinationPortMethodInfo-    ResolveProxyAddressMethod "getDestinationProtocol" o = ProxyAddressGetDestinationProtocolMethodInfo-    ResolveProxyAddressMethod "getFamily" o = Gio.SocketAddress.SocketAddressGetFamilyMethodInfo-    ResolveProxyAddressMethod "getFlowinfo" o = Gio.InetSocketAddress.InetSocketAddressGetFlowinfoMethodInfo-    ResolveProxyAddressMethod "getNativeSize" o = Gio.SocketAddress.SocketAddressGetNativeSizeMethodInfo-    ResolveProxyAddressMethod "getPassword" o = ProxyAddressGetPasswordMethodInfo-    ResolveProxyAddressMethod "getPort" o = Gio.InetSocketAddress.InetSocketAddressGetPortMethodInfo-    ResolveProxyAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveProxyAddressMethod "getProtocol" o = ProxyAddressGetProtocolMethodInfo-    ResolveProxyAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveProxyAddressMethod "getScopeId" o = Gio.InetSocketAddress.InetSocketAddressGetScopeIdMethodInfo-    ResolveProxyAddressMethod "getUri" o = ProxyAddressGetUriMethodInfo-    ResolveProxyAddressMethod "getUsername" o = ProxyAddressGetUsernameMethodInfo-    ResolveProxyAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveProxyAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveProxyAddressMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveProxyAddressMethod t ProxyAddress, O.MethodInfo info ProxyAddress p) => OL.IsLabel t (ProxyAddress -> 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---- VVV Prop "destination-hostname"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@destination-hostname@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddress #destinationHostname-@--}-getProxyAddressDestinationHostname :: (MonadIO m, IsProxyAddress o) => o -> m T.Text-getProxyAddressDestinationHostname obj = liftIO $ checkUnexpectedNothing "getProxyAddressDestinationHostname" $ B.Properties.getObjectPropertyString obj "destination-hostname"--{- |-Construct a `GValueConstruct` with valid value for the “@destination-hostname@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressDestinationHostname :: (IsProxyAddress o) => T.Text -> IO (GValueConstruct o)-constructProxyAddressDestinationHostname val = B.Properties.constructObjectPropertyString "destination-hostname" (Just val)--#if ENABLE_OVERLOADING-data ProxyAddressDestinationHostnamePropertyInfo-instance AttrInfo ProxyAddressDestinationHostnamePropertyInfo where-    type AttrAllowedOps ProxyAddressDestinationHostnamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressDestinationHostnamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressDestinationHostnamePropertyInfo = IsProxyAddress-    type AttrGetType ProxyAddressDestinationHostnamePropertyInfo = T.Text-    type AttrLabel ProxyAddressDestinationHostnamePropertyInfo = "destination-hostname"-    type AttrOrigin ProxyAddressDestinationHostnamePropertyInfo = ProxyAddress-    attrGet _ = getProxyAddressDestinationHostname-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressDestinationHostname-    attrClear _ = undefined-#endif---- VVV Prop "destination-port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@destination-port@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddress #destinationPort-@--}-getProxyAddressDestinationPort :: (MonadIO m, IsProxyAddress o) => o -> m Word32-getProxyAddressDestinationPort obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "destination-port"--{- |-Construct a `GValueConstruct` with valid value for the “@destination-port@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressDestinationPort :: (IsProxyAddress o) => Word32 -> IO (GValueConstruct o)-constructProxyAddressDestinationPort val = B.Properties.constructObjectPropertyUInt32 "destination-port" val--#if ENABLE_OVERLOADING-data ProxyAddressDestinationPortPropertyInfo-instance AttrInfo ProxyAddressDestinationPortPropertyInfo where-    type AttrAllowedOps ProxyAddressDestinationPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ProxyAddressDestinationPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ProxyAddressDestinationPortPropertyInfo = IsProxyAddress-    type AttrGetType ProxyAddressDestinationPortPropertyInfo = Word32-    type AttrLabel ProxyAddressDestinationPortPropertyInfo = "destination-port"-    type AttrOrigin ProxyAddressDestinationPortPropertyInfo = ProxyAddress-    attrGet _ = getProxyAddressDestinationPort-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressDestinationPort-    attrClear _ = undefined-#endif---- VVV Prop "destination-protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@destination-protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddress #destinationProtocol-@--}-getProxyAddressDestinationProtocol :: (MonadIO m, IsProxyAddress o) => o -> m T.Text-getProxyAddressDestinationProtocol obj = liftIO $ checkUnexpectedNothing "getProxyAddressDestinationProtocol" $ B.Properties.getObjectPropertyString obj "destination-protocol"--{- |-Construct a `GValueConstruct` with valid value for the “@destination-protocol@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressDestinationProtocol :: (IsProxyAddress o) => T.Text -> IO (GValueConstruct o)-constructProxyAddressDestinationProtocol val = B.Properties.constructObjectPropertyString "destination-protocol" (Just val)--#if ENABLE_OVERLOADING-data ProxyAddressDestinationProtocolPropertyInfo-instance AttrInfo ProxyAddressDestinationProtocolPropertyInfo where-    type AttrAllowedOps ProxyAddressDestinationProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressDestinationProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressDestinationProtocolPropertyInfo = IsProxyAddress-    type AttrGetType ProxyAddressDestinationProtocolPropertyInfo = T.Text-    type AttrLabel ProxyAddressDestinationProtocolPropertyInfo = "destination-protocol"-    type AttrOrigin ProxyAddressDestinationProtocolPropertyInfo = ProxyAddress-    attrGet _ = getProxyAddressDestinationProtocol-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressDestinationProtocol-    attrClear _ = undefined-#endif---- VVV Prop "password"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@password@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddress #password-@--}-getProxyAddressPassword :: (MonadIO m, IsProxyAddress o) => o -> m T.Text-getProxyAddressPassword obj = liftIO $ checkUnexpectedNothing "getProxyAddressPassword" $ B.Properties.getObjectPropertyString obj "password"--{- |-Construct a `GValueConstruct` with valid value for the “@password@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressPassword :: (IsProxyAddress o) => T.Text -> IO (GValueConstruct o)-constructProxyAddressPassword val = B.Properties.constructObjectPropertyString "password" (Just val)--#if ENABLE_OVERLOADING-data ProxyAddressPasswordPropertyInfo-instance AttrInfo ProxyAddressPasswordPropertyInfo where-    type AttrAllowedOps ProxyAddressPasswordPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressPasswordPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressPasswordPropertyInfo = IsProxyAddress-    type AttrGetType ProxyAddressPasswordPropertyInfo = T.Text-    type AttrLabel ProxyAddressPasswordPropertyInfo = "password"-    type AttrOrigin ProxyAddressPasswordPropertyInfo = ProxyAddress-    attrGet _ = getProxyAddressPassword-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressPassword-    attrClear _ = undefined-#endif---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddress #protocol-@--}-getProxyAddressProtocol :: (MonadIO m, IsProxyAddress o) => o -> m T.Text-getProxyAddressProtocol obj = liftIO $ checkUnexpectedNothing "getProxyAddressProtocol" $ B.Properties.getObjectPropertyString obj "protocol"--{- |-Construct a `GValueConstruct` with valid value for the “@protocol@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressProtocol :: (IsProxyAddress o) => T.Text -> IO (GValueConstruct o)-constructProxyAddressProtocol val = B.Properties.constructObjectPropertyString "protocol" (Just val)--#if ENABLE_OVERLOADING-data ProxyAddressProtocolPropertyInfo-instance AttrInfo ProxyAddressProtocolPropertyInfo where-    type AttrAllowedOps ProxyAddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressProtocolPropertyInfo = IsProxyAddress-    type AttrGetType ProxyAddressProtocolPropertyInfo = T.Text-    type AttrLabel ProxyAddressProtocolPropertyInfo = "protocol"-    type AttrOrigin ProxyAddressProtocolPropertyInfo = ProxyAddress-    attrGet _ = getProxyAddressProtocol-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressProtocol-    attrClear _ = undefined-#endif---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@uri@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddress #uri-@--}-getProxyAddressUri :: (MonadIO m, IsProxyAddress o) => o -> m T.Text-getProxyAddressUri obj = liftIO $ checkUnexpectedNothing "getProxyAddressUri" $ B.Properties.getObjectPropertyString obj "uri"--{- |-Construct a `GValueConstruct` with valid value for the “@uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressUri :: (IsProxyAddress o) => T.Text -> IO (GValueConstruct o)-constructProxyAddressUri val = B.Properties.constructObjectPropertyString "uri" (Just val)--#if ENABLE_OVERLOADING-data ProxyAddressUriPropertyInfo-instance AttrInfo ProxyAddressUriPropertyInfo where-    type AttrAllowedOps ProxyAddressUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressUriPropertyInfo = IsProxyAddress-    type AttrGetType ProxyAddressUriPropertyInfo = T.Text-    type AttrLabel ProxyAddressUriPropertyInfo = "uri"-    type AttrOrigin ProxyAddressUriPropertyInfo = ProxyAddress-    attrGet _ = getProxyAddressUri-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressUri-    attrClear _ = undefined-#endif---- VVV Prop "username"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@username@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddress #username-@--}-getProxyAddressUsername :: (MonadIO m, IsProxyAddress o) => o -> m T.Text-getProxyAddressUsername obj = liftIO $ checkUnexpectedNothing "getProxyAddressUsername" $ B.Properties.getObjectPropertyString obj "username"--{- |-Construct a `GValueConstruct` with valid value for the “@username@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressUsername :: (IsProxyAddress o) => T.Text -> IO (GValueConstruct o)-constructProxyAddressUsername val = B.Properties.constructObjectPropertyString "username" (Just val)--#if ENABLE_OVERLOADING-data ProxyAddressUsernamePropertyInfo-instance AttrInfo ProxyAddressUsernamePropertyInfo where-    type AttrAllowedOps ProxyAddressUsernamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressUsernamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressUsernamePropertyInfo = IsProxyAddress-    type AttrGetType ProxyAddressUsernamePropertyInfo = T.Text-    type AttrLabel ProxyAddressUsernamePropertyInfo = "username"-    type AttrOrigin ProxyAddressUsernamePropertyInfo = ProxyAddress-    attrGet _ = getProxyAddressUsername-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressUsername-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ProxyAddress-type instance O.AttributeList ProxyAddress = ProxyAddressAttributeList-type ProxyAddressAttributeList = ('[ '("address", Gio.InetSocketAddress.InetSocketAddressAddressPropertyInfo), '("destinationHostname", ProxyAddressDestinationHostnamePropertyInfo), '("destinationPort", ProxyAddressDestinationPortPropertyInfo), '("destinationProtocol", ProxyAddressDestinationProtocolPropertyInfo), '("family", Gio.SocketAddress.SocketAddressFamilyPropertyInfo), '("flowinfo", Gio.InetSocketAddress.InetSocketAddressFlowinfoPropertyInfo), '("password", ProxyAddressPasswordPropertyInfo), '("port", Gio.InetSocketAddress.InetSocketAddressPortPropertyInfo), '("protocol", ProxyAddressProtocolPropertyInfo), '("scopeId", Gio.InetSocketAddress.InetSocketAddressScopeIdPropertyInfo), '("uri", ProxyAddressUriPropertyInfo), '("username", ProxyAddressUsernamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-proxyAddressDestinationHostname :: AttrLabelProxy "destinationHostname"-proxyAddressDestinationHostname = AttrLabelProxy--proxyAddressDestinationPort :: AttrLabelProxy "destinationPort"-proxyAddressDestinationPort = AttrLabelProxy--proxyAddressDestinationProtocol :: AttrLabelProxy "destinationProtocol"-proxyAddressDestinationProtocol = AttrLabelProxy--proxyAddressPassword :: AttrLabelProxy "password"-proxyAddressPassword = AttrLabelProxy--proxyAddressProtocol :: AttrLabelProxy "protocol"-proxyAddressProtocol = AttrLabelProxy--proxyAddressUri :: AttrLabelProxy "uri"-proxyAddressUri = AttrLabelProxy--proxyAddressUsername :: AttrLabelProxy "username"-proxyAddressUsername = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ProxyAddress = ProxyAddressSignalList-type ProxyAddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ProxyAddress::new--- method type : Constructor--- Args : [Arg {argCName = "inetaddr", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The proxy server #GInetAddress.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The proxy server port.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The proxy protocol to support, in lower case (e.g. socks, http).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The destination hostname the proxy should tunnel to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The destination port to tunnel to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The username to authenticate to the proxy server\n    (or %NULL).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "The password to authenticate to the proxy server\n    (or %NULL).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ProxyAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_proxy_address_new" g_proxy_address_new :: -    Ptr Gio.InetAddress.InetAddress ->      -- inetaddr : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    Word16 ->                               -- port : TBasicType TUInt16-    CString ->                              -- protocol : TBasicType TUTF8-    CString ->                              -- dest_hostname : TBasicType TUTF8-    Word16 ->                               -- dest_port : TBasicType TUInt16-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO (Ptr ProxyAddress)--{- |-Creates a new 'GI.Gio.Objects.ProxyAddress.ProxyAddress' for /@inetaddr@/ with /@protocol@/ that should-tunnel through /@destHostname@/ and /@destPort@/.--(Note that this method doesn\'t set the 'GI.Gio.Objects.ProxyAddress.ProxyAddress':@/uri/@ or-'GI.Gio.Objects.ProxyAddress.ProxyAddress':@/destination-protocol/@ fields; use @/g_object_new()/@-directly if you want to set those.)--/Since: 2.26/--}-proxyAddressNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InetAddress.IsInetAddress a) =>-    a-    {- ^ /@inetaddr@/: The proxy server 'GI.Gio.Objects.InetAddress.InetAddress'. -}-    -> Word16-    {- ^ /@port@/: The proxy server port. -}-    -> T.Text-    {- ^ /@protocol@/: The proxy protocol to support, in lower case (e.g. socks, http). -}-    -> T.Text-    {- ^ /@destHostname@/: The destination hostname the proxy should tunnel to. -}-    -> Word16-    {- ^ /@destPort@/: The destination port to tunnel to. -}-    -> Maybe (T.Text)-    {- ^ /@username@/: The username to authenticate to the proxy server-    (or 'Nothing'). -}-    -> Maybe (T.Text)-    {- ^ /@password@/: The password to authenticate to the proxy server-    (or 'Nothing'). -}-    -> m ProxyAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-proxyAddressNew inetaddr port protocol destHostname destPort username password = liftIO $ do-    inetaddr' <- unsafeManagedPtrCastPtr inetaddr-    protocol' <- textToCString protocol-    destHostname' <- textToCString destHostname-    maybeUsername <- case username of-        Nothing -> return nullPtr-        Just jUsername -> do-            jUsername' <- textToCString jUsername-            return jUsername'-    maybePassword <- case password of-        Nothing -> return nullPtr-        Just jPassword -> do-            jPassword' <- textToCString jPassword-            return jPassword'-    result <- g_proxy_address_new inetaddr' port protocol' destHostname' destPort maybeUsername maybePassword-    checkUnexpectedReturnNULL "proxyAddressNew" result-    result' <- (wrapObject ProxyAddress) result-    touchManagedPtr inetaddr-    freeMem protocol'-    freeMem destHostname'-    freeMem maybeUsername-    freeMem maybePassword-    return result'--#if ENABLE_OVERLOADING-#endif---- method ProxyAddress::get_destination_hostname--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", 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 "g_proxy_address_get_destination_hostname" g_proxy_address_get_destination_hostname :: -    Ptr ProxyAddress ->                     -- proxy : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    IO CString--{- |-Gets /@proxy@/\'s destination hostname; that is, the name of the host-that will be connected to via the proxy, not the name of the proxy-itself.--/Since: 2.26/--}-proxyAddressGetDestinationHostname ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyAddress a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> m T.Text-    {- ^ __Returns:__ the /@proxy@/\'s destination hostname -}-proxyAddressGetDestinationHostname proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_proxy_address_get_destination_hostname proxy'-    checkUnexpectedReturnNULL "proxyAddressGetDestinationHostname" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data ProxyAddressGetDestinationHostnameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsProxyAddress a) => O.MethodInfo ProxyAddressGetDestinationHostnameMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetDestinationHostname--#endif---- method ProxyAddress::get_destination_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : False--- Skip return : False--foreign import ccall "g_proxy_address_get_destination_port" g_proxy_address_get_destination_port :: -    Ptr ProxyAddress ->                     -- proxy : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    IO Word16--{- |-Gets /@proxy@/\'s destination port; that is, the port on the-destination host that will be connected to via the proxy, not the-port number of the proxy itself.--/Since: 2.26/--}-proxyAddressGetDestinationPort ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyAddress a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> m Word16-    {- ^ __Returns:__ the /@proxy@/\'s destination port -}-proxyAddressGetDestinationPort proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_proxy_address_get_destination_port proxy'-    touchManagedPtr proxy-    return result--#if ENABLE_OVERLOADING-data ProxyAddressGetDestinationPortMethodInfo-instance (signature ~ (m Word16), MonadIO m, IsProxyAddress a) => O.MethodInfo ProxyAddressGetDestinationPortMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetDestinationPort--#endif---- method ProxyAddress::get_destination_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", 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 "g_proxy_address_get_destination_protocol" g_proxy_address_get_destination_protocol :: -    Ptr ProxyAddress ->                     -- proxy : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    IO CString--{- |-Gets the protocol that is being spoken to the destination-server; eg, \"http\" or \"ftp\".--/Since: 2.34/--}-proxyAddressGetDestinationProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyAddress a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> m T.Text-    {- ^ __Returns:__ the /@proxy@/\'s destination protocol -}-proxyAddressGetDestinationProtocol proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_proxy_address_get_destination_protocol proxy'-    checkUnexpectedReturnNULL "proxyAddressGetDestinationProtocol" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data ProxyAddressGetDestinationProtocolMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsProxyAddress a) => O.MethodInfo ProxyAddressGetDestinationProtocolMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetDestinationProtocol--#endif---- method ProxyAddress::get_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", 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 "g_proxy_address_get_password" g_proxy_address_get_password :: -    Ptr ProxyAddress ->                     -- proxy : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    IO CString--{- |-Gets /@proxy@/\'s password.--/Since: 2.26/--}-proxyAddressGetPassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyAddress a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> m T.Text-    {- ^ __Returns:__ the /@proxy@/\'s password -}-proxyAddressGetPassword proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_proxy_address_get_password proxy'-    checkUnexpectedReturnNULL "proxyAddressGetPassword" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data ProxyAddressGetPasswordMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsProxyAddress a) => O.MethodInfo ProxyAddressGetPasswordMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetPassword--#endif---- method ProxyAddress::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", 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 "g_proxy_address_get_protocol" g_proxy_address_get_protocol :: -    Ptr ProxyAddress ->                     -- proxy : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    IO CString--{- |-Gets /@proxy@/\'s protocol. eg, \"socks\" or \"http\"--/Since: 2.26/--}-proxyAddressGetProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyAddress a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> m T.Text-    {- ^ __Returns:__ the /@proxy@/\'s protocol -}-proxyAddressGetProtocol proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_proxy_address_get_protocol proxy'-    checkUnexpectedReturnNULL "proxyAddressGetProtocol" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data ProxyAddressGetProtocolMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsProxyAddress a) => O.MethodInfo ProxyAddressGetProtocolMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetProtocol--#endif---- method ProxyAddress::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", 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 "g_proxy_address_get_uri" g_proxy_address_get_uri :: -    Ptr ProxyAddress ->                     -- proxy : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    IO CString--{- |-Gets the proxy URI that /@proxy@/ was constructed from.--/Since: 2.34/--}-proxyAddressGetUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyAddress a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> m T.Text-    {- ^ __Returns:__ the /@proxy@/\'s URI, or 'Nothing' if unknown -}-proxyAddressGetUri proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_proxy_address_get_uri proxy'-    checkUnexpectedReturnNULL "proxyAddressGetUri" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data ProxyAddressGetUriMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsProxyAddress a) => O.MethodInfo ProxyAddressGetUriMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetUri--#endif---- method ProxyAddress::get_username--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy", argType = TInterface (Name {namespace = "Gio", name = "ProxyAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GProxyAddress", 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 "g_proxy_address_get_username" g_proxy_address_get_username :: -    Ptr ProxyAddress ->                     -- proxy : TInterface (Name {namespace = "Gio", name = "ProxyAddress"})-    IO CString--{- |-Gets /@proxy@/\'s username.--/Since: 2.26/--}-proxyAddressGetUsername ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyAddress a) =>-    a-    {- ^ /@proxy@/: a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' -}-    -> m T.Text-    {- ^ __Returns:__ the /@proxy@/\'s username -}-proxyAddressGetUsername proxy = liftIO $ do-    proxy' <- unsafeManagedPtrCastPtr proxy-    result <- g_proxy_address_get_username proxy'-    checkUnexpectedReturnNULL "proxyAddressGetUsername" result-    result' <- cstringToText result-    touchManagedPtr proxy-    return result'--#if ENABLE_OVERLOADING-data ProxyAddressGetUsernameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsProxyAddress a) => O.MethodInfo ProxyAddressGetUsernameMethodInfo a signature where-    overloadedMethod _ = proxyAddressGetUsername--#endif--
− GI/Gio/Objects/ProxyAddress.hs-boot 
@@ -1,71 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ProxyAddress 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 ProxyAddress = ProxyAddress (ManagedPtr ProxyAddress)-instance GObject ProxyAddress where-class (GObject o, O.IsDescendantOf ProxyAddress o) => IsProxyAddress o-instance (GObject o, O.IsDescendantOf ProxyAddress o) => IsProxyAddress o-instance O.HasParentTypes ProxyAddress-#if ENABLE_OVERLOADING-data ProxyAddressDestinationHostnamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressDestinationPortPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressDestinationProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressPasswordPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressUriPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressUsernamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressGetDestinationHostnameMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressGetDestinationPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressGetDestinationProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressGetPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressGetProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressGetUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressGetUsernameMethodInfo-#endif
− GI/Gio/Objects/ProxyAddressEnumerator.hs 
@@ -1,379 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.ProxyAddressEnumerator.ProxyAddressEnumerator' is a wrapper around 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' which-takes the 'GI.Gio.Objects.SocketAddress.SocketAddress' instances returned by the 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator'-and wraps them in 'GI.Gio.Objects.ProxyAddress.ProxyAddress' instances, using the given-'GI.Gio.Objects.ProxyAddressEnumerator.ProxyAddressEnumerator':@/proxy-resolver/@.--This enumerator will be returned (for example, by-'GI.Gio.Interfaces.SocketConnectable.socketConnectableEnumerate') as appropriate when a proxy is configured;-there should be no need to manually wrap a 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' instance-with one.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ProxyAddressEnumerator-    ( ---- * Exported types-    ProxyAddressEnumerator(..)              ,-    IsProxyAddressEnumerator                ,-    toProxyAddressEnumerator                ,-    noProxyAddressEnumerator                ,--- -- * Properties--- ** connectable #attr:connectable#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ProxyAddressEnumeratorConnectablePropertyInfo,-#endif-    constructProxyAddressEnumeratorConnectable,-    getProxyAddressEnumeratorConnectable    ,-#if ENABLE_OVERLOADING-    proxyAddressEnumeratorConnectable       ,-#endif----- ** defaultPort #attr:defaultPort#-{- | The default port to use if 'GI.Gio.Objects.ProxyAddressEnumerator.ProxyAddressEnumerator':@/uri/@ does not-specify one.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    ProxyAddressEnumeratorDefaultPortPropertyInfo,-#endif-    constructProxyAddressEnumeratorDefaultPort,-    getProxyAddressEnumeratorDefaultPort    ,-#if ENABLE_OVERLOADING-    proxyAddressEnumeratorDefaultPort       ,-#endif----- ** proxyResolver #attr:proxyResolver#-{- | The proxy resolver to use.--/Since: 2.36/--}-#if ENABLE_OVERLOADING-    ProxyAddressEnumeratorProxyResolverPropertyInfo,-#endif-    clearProxyAddressEnumeratorProxyResolver,-    constructProxyAddressEnumeratorProxyResolver,-    getProxyAddressEnumeratorProxyResolver  ,-#if ENABLE_OVERLOADING-    proxyAddressEnumeratorProxyResolver     ,-#endif-    setProxyAddressEnumeratorProxyResolver  ,----- ** uri #attr:uri#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ProxyAddressEnumeratorUriPropertyInfo   ,-#endif-    constructProxyAddressEnumeratorUri      ,-    getProxyAddressEnumeratorUri            ,-#if ENABLE_OVERLOADING-    proxyAddressEnumeratorUri               ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.ProxyResolver as Gio.ProxyResolver-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddressEnumerator as Gio.SocketAddressEnumerator---- | Memory-managed wrapper type.-newtype ProxyAddressEnumerator = ProxyAddressEnumerator (ManagedPtr ProxyAddressEnumerator)-foreign import ccall "g_proxy_address_enumerator_get_type"-    c_g_proxy_address_enumerator_get_type :: IO GType--instance GObject ProxyAddressEnumerator where-    gobjectType = c_g_proxy_address_enumerator_get_type-    ---- | Type class for types which can be safely cast to `ProxyAddressEnumerator`, for instance with `toProxyAddressEnumerator`.-class (GObject o, O.IsDescendantOf ProxyAddressEnumerator o) => IsProxyAddressEnumerator o-instance (GObject o, O.IsDescendantOf ProxyAddressEnumerator o) => IsProxyAddressEnumerator o--instance O.HasParentTypes ProxyAddressEnumerator-type instance O.ParentTypes ProxyAddressEnumerator = '[Gio.SocketAddressEnumerator.SocketAddressEnumerator, GObject.Object.Object]---- | Cast to `ProxyAddressEnumerator`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toProxyAddressEnumerator :: (MonadIO m, IsProxyAddressEnumerator o) => o -> m ProxyAddressEnumerator-toProxyAddressEnumerator = liftIO . unsafeCastTo ProxyAddressEnumerator---- | A convenience alias for `Nothing` :: `Maybe` `ProxyAddressEnumerator`.-noProxyAddressEnumerator :: Maybe ProxyAddressEnumerator-noProxyAddressEnumerator = Nothing--#if ENABLE_OVERLOADING-type family ResolveProxyAddressEnumeratorMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyAddressEnumeratorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveProxyAddressEnumeratorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveProxyAddressEnumeratorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveProxyAddressEnumeratorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveProxyAddressEnumeratorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveProxyAddressEnumeratorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveProxyAddressEnumeratorMethod "next" o = Gio.SocketAddressEnumerator.SocketAddressEnumeratorNextMethodInfo-    ResolveProxyAddressEnumeratorMethod "nextAsync" o = Gio.SocketAddressEnumerator.SocketAddressEnumeratorNextAsyncMethodInfo-    ResolveProxyAddressEnumeratorMethod "nextFinish" o = Gio.SocketAddressEnumerator.SocketAddressEnumeratorNextFinishMethodInfo-    ResolveProxyAddressEnumeratorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveProxyAddressEnumeratorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveProxyAddressEnumeratorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveProxyAddressEnumeratorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveProxyAddressEnumeratorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveProxyAddressEnumeratorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveProxyAddressEnumeratorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveProxyAddressEnumeratorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveProxyAddressEnumeratorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveProxyAddressEnumeratorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveProxyAddressEnumeratorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveProxyAddressEnumeratorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveProxyAddressEnumeratorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveProxyAddressEnumeratorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveProxyAddressEnumeratorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveProxyAddressEnumeratorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveProxyAddressEnumeratorMethod t ProxyAddressEnumerator, O.MethodInfo info ProxyAddressEnumerator p) => OL.IsLabel t (ProxyAddressEnumerator -> 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---- VVV Prop "connectable"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@connectable@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddressEnumerator #connectable-@--}-getProxyAddressEnumeratorConnectable :: (MonadIO m, IsProxyAddressEnumerator o) => o -> m (Maybe Gio.SocketConnectable.SocketConnectable)-getProxyAddressEnumeratorConnectable obj = liftIO $ B.Properties.getObjectPropertyObject obj "connectable" Gio.SocketConnectable.SocketConnectable--{- |-Construct a `GValueConstruct` with valid value for the “@connectable@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressEnumeratorConnectable :: (IsProxyAddressEnumerator o, Gio.SocketConnectable.IsSocketConnectable a) => a -> IO (GValueConstruct o)-constructProxyAddressEnumeratorConnectable val = B.Properties.constructObjectPropertyObject "connectable" (Just val)--#if ENABLE_OVERLOADING-data ProxyAddressEnumeratorConnectablePropertyInfo-instance AttrInfo ProxyAddressEnumeratorConnectablePropertyInfo where-    type AttrAllowedOps ProxyAddressEnumeratorConnectablePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressEnumeratorConnectablePropertyInfo = Gio.SocketConnectable.IsSocketConnectable-    type AttrBaseTypeConstraint ProxyAddressEnumeratorConnectablePropertyInfo = IsProxyAddressEnumerator-    type AttrGetType ProxyAddressEnumeratorConnectablePropertyInfo = (Maybe Gio.SocketConnectable.SocketConnectable)-    type AttrLabel ProxyAddressEnumeratorConnectablePropertyInfo = "connectable"-    type AttrOrigin ProxyAddressEnumeratorConnectablePropertyInfo = ProxyAddressEnumerator-    attrGet _ = getProxyAddressEnumeratorConnectable-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressEnumeratorConnectable-    attrClear _ = undefined-#endif---- VVV Prop "default-port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@default-port@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddressEnumerator #defaultPort-@--}-getProxyAddressEnumeratorDefaultPort :: (MonadIO m, IsProxyAddressEnumerator o) => o -> m Word32-getProxyAddressEnumeratorDefaultPort obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "default-port"--{- |-Construct a `GValueConstruct` with valid value for the “@default-port@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressEnumeratorDefaultPort :: (IsProxyAddressEnumerator o) => Word32 -> IO (GValueConstruct o)-constructProxyAddressEnumeratorDefaultPort val = B.Properties.constructObjectPropertyUInt32 "default-port" val--#if ENABLE_OVERLOADING-data ProxyAddressEnumeratorDefaultPortPropertyInfo-instance AttrInfo ProxyAddressEnumeratorDefaultPortPropertyInfo where-    type AttrAllowedOps ProxyAddressEnumeratorDefaultPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ProxyAddressEnumeratorDefaultPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ProxyAddressEnumeratorDefaultPortPropertyInfo = IsProxyAddressEnumerator-    type AttrGetType ProxyAddressEnumeratorDefaultPortPropertyInfo = Word32-    type AttrLabel ProxyAddressEnumeratorDefaultPortPropertyInfo = "default-port"-    type AttrOrigin ProxyAddressEnumeratorDefaultPortPropertyInfo = ProxyAddressEnumerator-    attrGet _ = getProxyAddressEnumeratorDefaultPort-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressEnumeratorDefaultPort-    attrClear _ = undefined-#endif---- VVV Prop "proxy-resolver"-   -- Type: TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@proxy-resolver@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddressEnumerator #proxyResolver-@--}-getProxyAddressEnumeratorProxyResolver :: (MonadIO m, IsProxyAddressEnumerator o) => o -> m (Maybe Gio.ProxyResolver.ProxyResolver)-getProxyAddressEnumeratorProxyResolver obj = liftIO $ B.Properties.getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver.ProxyResolver--{- |-Set the value of the “@proxy-resolver@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' proxyAddressEnumerator [ #proxyResolver 'Data.GI.Base.Attributes.:=' value ]-@--}-setProxyAddressEnumeratorProxyResolver :: (MonadIO m, IsProxyAddressEnumerator o, Gio.ProxyResolver.IsProxyResolver a) => o -> a -> m ()-setProxyAddressEnumeratorProxyResolver obj val = liftIO $ B.Properties.setObjectPropertyObject obj "proxy-resolver" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@proxy-resolver@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressEnumeratorProxyResolver :: (IsProxyAddressEnumerator o, Gio.ProxyResolver.IsProxyResolver a) => a -> IO (GValueConstruct o)-constructProxyAddressEnumeratorProxyResolver val = B.Properties.constructObjectPropertyObject "proxy-resolver" (Just val)--{- |-Set the value of the “@proxy-resolver@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #proxyResolver-@--}-clearProxyAddressEnumeratorProxyResolver :: (MonadIO m, IsProxyAddressEnumerator o) => o -> m ()-clearProxyAddressEnumeratorProxyResolver obj = liftIO $ B.Properties.setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe Gio.ProxyResolver.ProxyResolver)--#if ENABLE_OVERLOADING-data ProxyAddressEnumeratorProxyResolverPropertyInfo-instance AttrInfo ProxyAddressEnumeratorProxyResolverPropertyInfo where-    type AttrAllowedOps ProxyAddressEnumeratorProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressEnumeratorProxyResolverPropertyInfo = Gio.ProxyResolver.IsProxyResolver-    type AttrBaseTypeConstraint ProxyAddressEnumeratorProxyResolverPropertyInfo = IsProxyAddressEnumerator-    type AttrGetType ProxyAddressEnumeratorProxyResolverPropertyInfo = (Maybe Gio.ProxyResolver.ProxyResolver)-    type AttrLabel ProxyAddressEnumeratorProxyResolverPropertyInfo = "proxy-resolver"-    type AttrOrigin ProxyAddressEnumeratorProxyResolverPropertyInfo = ProxyAddressEnumerator-    attrGet _ = getProxyAddressEnumeratorProxyResolver-    attrSet _ = setProxyAddressEnumeratorProxyResolver-    attrConstruct _ = constructProxyAddressEnumeratorProxyResolver-    attrClear _ = clearProxyAddressEnumeratorProxyResolver-#endif---- VVV Prop "uri"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@uri@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' proxyAddressEnumerator #uri-@--}-getProxyAddressEnumeratorUri :: (MonadIO m, IsProxyAddressEnumerator o) => o -> m (Maybe T.Text)-getProxyAddressEnumeratorUri obj = liftIO $ B.Properties.getObjectPropertyString obj "uri"--{- |-Construct a `GValueConstruct` with valid value for the “@uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyAddressEnumeratorUri :: (IsProxyAddressEnumerator o) => T.Text -> IO (GValueConstruct o)-constructProxyAddressEnumeratorUri val = B.Properties.constructObjectPropertyString "uri" (Just val)--#if ENABLE_OVERLOADING-data ProxyAddressEnumeratorUriPropertyInfo-instance AttrInfo ProxyAddressEnumeratorUriPropertyInfo where-    type AttrAllowedOps ProxyAddressEnumeratorUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ProxyAddressEnumeratorUriPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ProxyAddressEnumeratorUriPropertyInfo = IsProxyAddressEnumerator-    type AttrGetType ProxyAddressEnumeratorUriPropertyInfo = (Maybe T.Text)-    type AttrLabel ProxyAddressEnumeratorUriPropertyInfo = "uri"-    type AttrOrigin ProxyAddressEnumeratorUriPropertyInfo = ProxyAddressEnumerator-    attrGet _ = getProxyAddressEnumeratorUri-    attrSet _ = undefined-    attrConstruct _ = constructProxyAddressEnumeratorUri-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ProxyAddressEnumerator-type instance O.AttributeList ProxyAddressEnumerator = ProxyAddressEnumeratorAttributeList-type ProxyAddressEnumeratorAttributeList = ('[ '("connectable", ProxyAddressEnumeratorConnectablePropertyInfo), '("defaultPort", ProxyAddressEnumeratorDefaultPortPropertyInfo), '("proxyResolver", ProxyAddressEnumeratorProxyResolverPropertyInfo), '("uri", ProxyAddressEnumeratorUriPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-proxyAddressEnumeratorConnectable :: AttrLabelProxy "connectable"-proxyAddressEnumeratorConnectable = AttrLabelProxy--proxyAddressEnumeratorDefaultPort :: AttrLabelProxy "defaultPort"-proxyAddressEnumeratorDefaultPort = AttrLabelProxy--proxyAddressEnumeratorProxyResolver :: AttrLabelProxy "proxyResolver"-proxyAddressEnumeratorProxyResolver = AttrLabelProxy--proxyAddressEnumeratorUri :: AttrLabelProxy "uri"-proxyAddressEnumeratorUri = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ProxyAddressEnumerator = ProxyAddressEnumeratorSignalList-type ProxyAddressEnumeratorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--
− GI/Gio/Objects/ProxyAddressEnumerator.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ProxyAddressEnumerator 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 ProxyAddressEnumerator = ProxyAddressEnumerator (ManagedPtr ProxyAddressEnumerator)-instance GObject ProxyAddressEnumerator where-class (GObject o, O.IsDescendantOf ProxyAddressEnumerator o) => IsProxyAddressEnumerator o-instance (GObject o, O.IsDescendantOf ProxyAddressEnumerator o) => IsProxyAddressEnumerator o-instance O.HasParentTypes ProxyAddressEnumerator-#if ENABLE_OVERLOADING-data ProxyAddressEnumeratorConnectablePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressEnumeratorDefaultPortPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressEnumeratorProxyResolverPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ProxyAddressEnumeratorUriPropertyInfo-#endif
− GI/Gio/Objects/Resolver.hs 
@@ -1,1457 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.Resolver.Resolver' provides cancellable synchronous and asynchronous DNS-resolution, for hostnames ('GI.Gio.Objects.Resolver.resolverLookupByAddress',-'GI.Gio.Objects.Resolver.resolverLookupByName' and their async variants) and SRV-(service) records ('GI.Gio.Objects.Resolver.resolverLookupService').--'GI.Gio.Objects.NetworkAddress.NetworkAddress' and 'GI.Gio.Objects.NetworkService.NetworkService' provide wrappers around-'GI.Gio.Objects.Resolver.Resolver' functionality that also implement 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable',-making it easy to connect to a remote host\/service.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Resolver-    ( ---- * Exported types-    Resolver(..)                            ,-    IsResolver                              ,-    toResolver                              ,-    noResolver                              ,--- -- * Methods--- ** getDefault #method:getDefault#--    resolverGetDefault                      ,----- ** lookupByAddress #method:lookupByAddress#--#if ENABLE_OVERLOADING-    ResolverLookupByAddressMethodInfo       ,-#endif-    resolverLookupByAddress                 ,----- ** lookupByAddressAsync #method:lookupByAddressAsync#--#if ENABLE_OVERLOADING-    ResolverLookupByAddressAsyncMethodInfo  ,-#endif-    resolverLookupByAddressAsync            ,----- ** lookupByAddressFinish #method:lookupByAddressFinish#--#if ENABLE_OVERLOADING-    ResolverLookupByAddressFinishMethodInfo ,-#endif-    resolverLookupByAddressFinish           ,----- ** lookupByName #method:lookupByName#--#if ENABLE_OVERLOADING-    ResolverLookupByNameMethodInfo          ,-#endif-    resolverLookupByName                    ,----- ** lookupByNameAsync #method:lookupByNameAsync#--#if ENABLE_OVERLOADING-    ResolverLookupByNameAsyncMethodInfo     ,-#endif-    resolverLookupByNameAsync               ,----- ** lookupByNameFinish #method:lookupByNameFinish#--#if ENABLE_OVERLOADING-    ResolverLookupByNameFinishMethodInfo    ,-#endif-    resolverLookupByNameFinish              ,----- ** lookupByNameWithFlags #method:lookupByNameWithFlags#--#if ENABLE_OVERLOADING-    ResolverLookupByNameWithFlagsMethodInfo ,-#endif-    resolverLookupByNameWithFlags           ,----- ** lookupByNameWithFlagsAsync #method:lookupByNameWithFlagsAsync#--#if ENABLE_OVERLOADING-    ResolverLookupByNameWithFlagsAsyncMethodInfo,-#endif-    resolverLookupByNameWithFlagsAsync      ,----- ** lookupByNameWithFlagsFinish #method:lookupByNameWithFlagsFinish#--#if ENABLE_OVERLOADING-    ResolverLookupByNameWithFlagsFinishMethodInfo,-#endif-    resolverLookupByNameWithFlagsFinish     ,----- ** lookupRecords #method:lookupRecords#--#if ENABLE_OVERLOADING-    ResolverLookupRecordsMethodInfo         ,-#endif-    resolverLookupRecords                   ,----- ** lookupRecordsAsync #method:lookupRecordsAsync#--#if ENABLE_OVERLOADING-    ResolverLookupRecordsAsyncMethodInfo    ,-#endif-    resolverLookupRecordsAsync              ,----- ** lookupRecordsFinish #method:lookupRecordsFinish#--#if ENABLE_OVERLOADING-    ResolverLookupRecordsFinishMethodInfo   ,-#endif-    resolverLookupRecordsFinish             ,----- ** lookupService #method:lookupService#--#if ENABLE_OVERLOADING-    ResolverLookupServiceMethodInfo         ,-#endif-    resolverLookupService                   ,----- ** lookupServiceAsync #method:lookupServiceAsync#--#if ENABLE_OVERLOADING-    ResolverLookupServiceAsyncMethodInfo    ,-#endif-    resolverLookupServiceAsync              ,----- ** lookupServiceFinish #method:lookupServiceFinish#--#if ENABLE_OVERLOADING-    ResolverLookupServiceFinishMethodInfo   ,-#endif-    resolverLookupServiceFinish             ,----- ** setDefault #method:setDefault#--#if ENABLE_OVERLOADING-    ResolverSetDefaultMethodInfo            ,-#endif-    resolverSetDefault                      ,----- -- * Signals--- ** reload #signal:reload#--    C_ResolverReloadCallback                ,-    ResolverReloadCallback                  ,-#if ENABLE_OVERLOADING-    ResolverReloadSignalInfo                ,-#endif-    afterResolverReload                     ,-    genClosure_ResolverReload               ,-    mk_ResolverReloadCallback               ,-    noResolverReloadCallback                ,-    onResolverReload                        ,-    wrap_ResolverReloadCallback             ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.InetAddress as Gio.InetAddress-import {-# SOURCE #-} qualified GI.Gio.Structs.SrvTarget as Gio.SrvTarget---- | Memory-managed wrapper type.-newtype Resolver = Resolver (ManagedPtr Resolver)-foreign import ccall "g_resolver_get_type"-    c_g_resolver_get_type :: IO GType--instance GObject Resolver where-    gobjectType = c_g_resolver_get_type-    ---- | Type class for types which can be safely cast to `Resolver`, for instance with `toResolver`.-class (GObject o, O.IsDescendantOf Resolver o) => IsResolver o-instance (GObject o, O.IsDescendantOf Resolver o) => IsResolver o--instance O.HasParentTypes Resolver-type instance O.ParentTypes Resolver = '[GObject.Object.Object]---- | Cast to `Resolver`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toResolver :: (MonadIO m, IsResolver o) => o -> m Resolver-toResolver = liftIO . unsafeCastTo Resolver---- | A convenience alias for `Nothing` :: `Maybe` `Resolver`.-noResolver :: Maybe Resolver-noResolver = Nothing--#if ENABLE_OVERLOADING-type family ResolveResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveResolverMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveResolverMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveResolverMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveResolverMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveResolverMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveResolverMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveResolverMethod "lookupByAddress" o = ResolverLookupByAddressMethodInfo-    ResolveResolverMethod "lookupByAddressAsync" o = ResolverLookupByAddressAsyncMethodInfo-    ResolveResolverMethod "lookupByAddressFinish" o = ResolverLookupByAddressFinishMethodInfo-    ResolveResolverMethod "lookupByName" o = ResolverLookupByNameMethodInfo-    ResolveResolverMethod "lookupByNameAsync" o = ResolverLookupByNameAsyncMethodInfo-    ResolveResolverMethod "lookupByNameFinish" o = ResolverLookupByNameFinishMethodInfo-    ResolveResolverMethod "lookupByNameWithFlags" o = ResolverLookupByNameWithFlagsMethodInfo-    ResolveResolverMethod "lookupByNameWithFlagsAsync" o = ResolverLookupByNameWithFlagsAsyncMethodInfo-    ResolveResolverMethod "lookupByNameWithFlagsFinish" o = ResolverLookupByNameWithFlagsFinishMethodInfo-    ResolveResolverMethod "lookupRecords" o = ResolverLookupRecordsMethodInfo-    ResolveResolverMethod "lookupRecordsAsync" o = ResolverLookupRecordsAsyncMethodInfo-    ResolveResolverMethod "lookupRecordsFinish" o = ResolverLookupRecordsFinishMethodInfo-    ResolveResolverMethod "lookupService" o = ResolverLookupServiceMethodInfo-    ResolveResolverMethod "lookupServiceAsync" o = ResolverLookupServiceAsyncMethodInfo-    ResolveResolverMethod "lookupServiceFinish" o = ResolverLookupServiceFinishMethodInfo-    ResolveResolverMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveResolverMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveResolverMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveResolverMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveResolverMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveResolverMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveResolverMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveResolverMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveResolverMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveResolverMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveResolverMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveResolverMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveResolverMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveResolverMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveResolverMethod "setDefault" o = ResolverSetDefaultMethodInfo-    ResolveResolverMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveResolverMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveResolverMethod t Resolver, O.MethodInfo info Resolver p) => OL.IsLabel t (Resolver -> 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 Resolver::reload-{- |-Emitted when the resolver notices that the system resolver-configuration has changed.--}-type ResolverReloadCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ResolverReloadCallback`@.-noResolverReloadCallback :: Maybe ResolverReloadCallback-noResolverReloadCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ResolverReloadCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ResolverReloadCallback`.-foreign import ccall "wrapper"-    mk_ResolverReloadCallback :: C_ResolverReloadCallback -> IO (FunPtr C_ResolverReloadCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ResolverReload :: MonadIO m => ResolverReloadCallback -> m (GClosure C_ResolverReloadCallback)-genClosure_ResolverReload cb = liftIO $ do-    let cb' = wrap_ResolverReloadCallback cb-    mk_ResolverReloadCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ResolverReloadCallback` into a `C_ResolverReloadCallback`.-wrap_ResolverReloadCallback ::-    ResolverReloadCallback ->-    C_ResolverReloadCallback-wrap_ResolverReloadCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@reload@” 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' resolver #reload callback-@--}-onResolverReload :: (IsResolver a, MonadIO m) => a -> ResolverReloadCallback -> m SignalHandlerId-onResolverReload obj cb = liftIO $ do-    let cb' = wrap_ResolverReloadCallback cb-    cb'' <- mk_ResolverReloadCallback cb'-    connectSignalFunPtr obj "reload" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@reload@” 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' resolver #reload callback-@--}-afterResolverReload :: (IsResolver a, MonadIO m) => a -> ResolverReloadCallback -> m SignalHandlerId-afterResolverReload obj cb = liftIO $ do-    let cb' = wrap_ResolverReloadCallback cb-    cb'' <- mk_ResolverReloadCallback cb'-    connectSignalFunPtr obj "reload" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList Resolver-type instance O.AttributeList Resolver = ResolverAttributeList-type ResolverAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data ResolverReloadSignalInfo-instance SignalInfo ResolverReloadSignalInfo where-    type HaskellCallbackType ResolverReloadSignalInfo = ResolverReloadCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ResolverReloadCallback cb-        cb'' <- mk_ResolverReloadCallback cb'-        connectSignalFunPtr obj "reload" cb'' connectMode--type instance O.SignalList Resolver = ResolverSignalList-type ResolverSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("reload", ResolverReloadSignalInfo)] :: [(Symbol, *)])--#endif---- method Resolver::lookup_by_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the address to reverse-resolve", 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}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_by_address" g_resolver_lookup_by_address :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    Ptr Gio.InetAddress.InetAddress ->      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CString--{- |-Synchronously reverse-resolves /@address@/ to determine its-associated hostname.--If the DNS resolution fails, /@error@/ (if non-'Nothing') will be set to-a value from 'GI.Gio.Enums.ResolverError'.--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-operation, in which case /@error@/ (if non-'Nothing') will be set to-'GI.Gio.Enums.IOErrorEnumCancelled'.--/Since: 2.22/--}-resolverLookupByAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.InetAddress.IsInetAddress b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> b-    {- ^ /@address@/: the address to reverse-resolve -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m T.Text-    {- ^ __Returns:__ a hostname (either ASCII-only, or in ASCII-encoded-    form), or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupByAddress resolver address cancellable = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    address' <- unsafeManagedPtrCastPtr address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_address resolver' address' maybeCancellable-        checkUnexpectedReturnNULL "resolverLookupByAddress" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr resolver-        touchManagedPtr address-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ResolverLookupByAddressMethodInfo-instance (signature ~ (b -> Maybe (c) -> m T.Text), MonadIO m, IsResolver a, Gio.InetAddress.IsInetAddress b, Gio.Cancellable.IsCancellable c) => O.MethodInfo ResolverLookupByAddressMethodInfo a signature where-    overloadedMethod _ = resolverLookupByAddress--#endif---- method Resolver::lookup_by_address_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the address to reverse-resolve", 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 "callback to call after resolution completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, 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 "g_resolver_lookup_by_address_async" g_resolver_lookup_by_address_async :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    Ptr Gio.InetAddress.InetAddress ->      -- address : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    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 ()--{- |-Begins asynchronously reverse-resolving /@address@/ to determine its-associated hostname, and eventually calls /@callback@/, which must-call 'GI.Gio.Objects.Resolver.resolverLookupByAddressFinish' to get the final result.--/Since: 2.22/--}-resolverLookupByAddressAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.InetAddress.IsInetAddress b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> b-    {- ^ /@address@/: the address to reverse-resolve -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call after resolution completes -}-    -> m ()-resolverLookupByAddressAsync resolver address cancellable callback = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    address' <- unsafeManagedPtrCastPtr address-    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-    g_resolver_lookup_by_address_async resolver' address' maybeCancellable maybeCallback userData-    touchManagedPtr resolver-    touchManagedPtr address-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data ResolverLookupByAddressAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsResolver a, Gio.InetAddress.IsInetAddress b, Gio.Cancellable.IsCancellable c) => O.MethodInfo ResolverLookupByAddressAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupByAddressAsync--#endif---- method Resolver::lookup_by_address_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", 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 "the result passed to your #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_by_address_finish" g_resolver_lookup_by_address_finish :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CString--{- |-Retrieves the result of a previous call to-'GI.Gio.Objects.Resolver.resolverLookupByAddressAsync'.--If the DNS resolution failed, /@error@/ (if non-'Nothing') will be set to-a value from 'GI.Gio.Enums.ResolverError'. If the operation was cancelled,-/@error@/ will be set to 'GI.Gio.Enums.IOErrorEnumCancelled'.--/Since: 2.22/--}-resolverLookupByAddressFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> b-    {- ^ /@result@/: the result passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m T.Text-    {- ^ __Returns:__ a hostname (either ASCII-only, or in ASCII-encoded-form), or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupByAddressFinish resolver result_ = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_address_finish resolver' result_'-        checkUnexpectedReturnNULL "resolverLookupByAddressFinish" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr resolver-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ResolverLookupByAddressFinishMethodInfo-instance (signature ~ (b -> m T.Text), MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo ResolverLookupByAddressFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupByAddressFinish--#endif---- method Resolver::lookup_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hostname to look up", 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}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "InetAddress"})))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_by_name" g_resolver_lookup_by_name :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    CString ->                              -- hostname : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.InetAddress.InetAddress)))--{- |-Synchronously resolves /@hostname@/ to determine its associated IP-address(es). /@hostname@/ may be an ASCII-only or UTF-8 hostname, or-the textual form of an IP address (in which case this just becomes-a wrapper around 'GI.Gio.Objects.InetAddress.inetAddressNewFromString').--On success, 'GI.Gio.Objects.Resolver.resolverLookupByName' will return a non-empty 'GI.GLib.Structs.List.List' of-'GI.Gio.Objects.InetAddress.InetAddress', sorted in order of preference and guaranteed to not-contain duplicates. That is, if using the result to connect to-/@hostname@/, you should attempt to connect to the first address-first, then the second if the first fails, etc. If you are using-the result to listen on a socket, it is appropriate to add each-result using e.g. 'GI.Gio.Objects.SocketListener.socketListenerAddAddress'.--If the DNS resolution fails, /@error@/ (if non-'Nothing') will be set to a-value from 'GI.Gio.Enums.ResolverError' and 'Nothing' will be returned.--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-operation, in which case /@error@/ (if non-'Nothing') will be set to-'GI.Gio.Enums.IOErrorEnumCancelled'.--If you are planning to connect to a socket on the resolved IP-address, it may be easier to create a 'GI.Gio.Objects.NetworkAddress.NetworkAddress' and use its-'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' interface.--/Since: 2.22/--}-resolverLookupByName ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> T.Text-    {- ^ /@hostname@/: the hostname to look up -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m [Gio.InetAddress.InetAddress]-    {- ^ __Returns:__ a non-empty 'GI.GLib.Structs.List.List'-of 'GI.Gio.Objects.InetAddress.InetAddress', or 'Nothing' on error. You-must unref each of the addresses and free the list when you are-done with it. (You can use @/g_resolver_free_addresses()/@ to do this.) /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupByName resolver hostname cancellable = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    hostname' <- textToCString hostname-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_name resolver' hostname' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM (wrapObject Gio.InetAddress.InetAddress) result'-        g_list_free result-        touchManagedPtr resolver-        whenJust cancellable touchManagedPtr-        freeMem hostname'-        return result''-     ) (do-        freeMem hostname'-     )--#if ENABLE_OVERLOADING-data ResolverLookupByNameMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m [Gio.InetAddress.InetAddress]), MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ResolverLookupByNameMethodInfo a signature where-    overloadedMethod _ = resolverLookupByName--#endif---- method Resolver::lookup_by_name_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hostname to look up the address of", 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 "callback to call after resolution completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, 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 "g_resolver_lookup_by_name_async" g_resolver_lookup_by_name_async :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    CString ->                              -- hostname : TBasicType TUTF8-    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 ()--{- |-Begins asynchronously resolving /@hostname@/ to determine its-associated IP address(es), and eventually calls /@callback@/, which-must call 'GI.Gio.Objects.Resolver.resolverLookupByNameFinish' to get the result.-See 'GI.Gio.Objects.Resolver.resolverLookupByName' for more details.--/Since: 2.22/--}-resolverLookupByNameAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> T.Text-    {- ^ /@hostname@/: the hostname to look up the address of -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call after resolution completes -}-    -> m ()-resolverLookupByNameAsync resolver hostname cancellable callback = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    hostname' <- textToCString hostname-    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-    g_resolver_lookup_by_name_async resolver' hostname' maybeCancellable maybeCallback userData-    touchManagedPtr resolver-    whenJust cancellable touchManagedPtr-    freeMem hostname'-    return ()--#if ENABLE_OVERLOADING-data ResolverLookupByNameAsyncMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ResolverLookupByNameAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupByNameAsync--#endif---- method Resolver::lookup_by_name_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", 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 "the result passed to your #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "InetAddress"})))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_by_name_finish" g_resolver_lookup_by_name_finish :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.InetAddress.InetAddress)))--{- |-Retrieves the result of a call to-'GI.Gio.Objects.Resolver.resolverLookupByNameAsync'.--If the DNS resolution failed, /@error@/ (if non-'Nothing') will be set to-a value from 'GI.Gio.Enums.ResolverError'. If the operation was cancelled,-/@error@/ will be set to 'GI.Gio.Enums.IOErrorEnumCancelled'.--/Since: 2.22/--}-resolverLookupByNameFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> b-    {- ^ /@result@/: the result passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m [Gio.InetAddress.InetAddress]-    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List'-of 'GI.Gio.Objects.InetAddress.InetAddress', or 'Nothing' on error. See 'GI.Gio.Objects.Resolver.resolverLookupByName'-for more details. /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupByNameFinish resolver result_ = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_name_finish resolver' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapObject Gio.InetAddress.InetAddress) result'-        g_list_free result-        touchManagedPtr resolver-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ResolverLookupByNameFinishMethodInfo-instance (signature ~ (b -> m [Gio.InetAddress.InetAddress]), MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo ResolverLookupByNameFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupByNameFinish--#endif---- method Resolver::lookup_by_name_with_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hostname to look up", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "ResolverNameLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "extra #GResolverNameLookupFlags for the lookup", 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}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "InetAddress"})))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_by_name_with_flags" g_resolver_lookup_by_name_with_flags :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    CString ->                              -- hostname : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "ResolverNameLookupFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.InetAddress.InetAddress)))--{- |-This differs from 'GI.Gio.Objects.Resolver.resolverLookupByName' in that you can modify-the lookup behavior with /@flags@/. For example this can be used to limit-results with @/G_RESOLVER_NAME_LOOKUP_FLAGS_IPV4_ONLY/@.--/Since: 2.60/--}-resolverLookupByNameWithFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> T.Text-    {- ^ /@hostname@/: the hostname to look up -}-    -> [Gio.Flags.ResolverNameLookupFlags]-    {- ^ /@flags@/: extra 'GI.Gio.Flags.ResolverNameLookupFlags' for the lookup -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m [Gio.InetAddress.InetAddress]-    {- ^ __Returns:__ a non-empty 'GI.GLib.Structs.List.List'-of 'GI.Gio.Objects.InetAddress.InetAddress', or 'Nothing' on error. You-must unref each of the addresses and free the list when you are-done with it. (You can use @/g_resolver_free_addresses()/@ to do this.) /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupByNameWithFlags resolver hostname flags cancellable = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    hostname' <- textToCString hostname-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_name_with_flags resolver' hostname' flags' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM (wrapObject Gio.InetAddress.InetAddress) result'-        g_list_free result-        touchManagedPtr resolver-        whenJust cancellable touchManagedPtr-        freeMem hostname'-        return result''-     ) (do-        freeMem hostname'-     )--#if ENABLE_OVERLOADING-data ResolverLookupByNameWithFlagsMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.ResolverNameLookupFlags] -> Maybe (b) -> m [Gio.InetAddress.InetAddress]), MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ResolverLookupByNameWithFlagsMethodInfo a signature where-    overloadedMethod _ = resolverLookupByNameWithFlags--#endif---- method Resolver::lookup_by_name_with_flags_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hostname to look up the address of", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "ResolverNameLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "extra #GResolverNameLookupFlags for the lookup", 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 "callback to call after resolution completes", 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 "g_resolver_lookup_by_name_with_flags_async" g_resolver_lookup_by_name_with_flags_async :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    CString ->                              -- hostname : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "ResolverNameLookupFlags"})-    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 ()--{- |-Begins asynchronously resolving /@hostname@/ to determine its-associated IP address(es), and eventually calls /@callback@/, which-must call 'GI.Gio.Objects.Resolver.resolverLookupByNameWithFlagsFinish' to get the result.-See 'GI.Gio.Objects.Resolver.resolverLookupByName' for more details.--/Since: 2.60/--}-resolverLookupByNameWithFlagsAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> T.Text-    {- ^ /@hostname@/: the hostname to look up the address of -}-    -> [Gio.Flags.ResolverNameLookupFlags]-    {- ^ /@flags@/: extra 'GI.Gio.Flags.ResolverNameLookupFlags' for the lookup -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call after resolution completes -}-    -> m ()-resolverLookupByNameWithFlagsAsync resolver hostname flags cancellable callback = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    hostname' <- textToCString hostname-    let flags' = gflagsToWord flags-    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-    g_resolver_lookup_by_name_with_flags_async resolver' hostname' flags' maybeCancellable maybeCallback userData-    touchManagedPtr resolver-    whenJust cancellable touchManagedPtr-    freeMem hostname'-    return ()--#if ENABLE_OVERLOADING-data ResolverLookupByNameWithFlagsAsyncMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.ResolverNameLookupFlags] -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ResolverLookupByNameWithFlagsAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupByNameWithFlagsAsync--#endif---- method Resolver::lookup_by_name_with_flags_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", 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 "the result passed to your #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "InetAddress"})))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_by_name_with_flags_finish" g_resolver_lookup_by_name_with_flags_finish :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.InetAddress.InetAddress)))--{- |-Retrieves the result of a call to-'GI.Gio.Objects.Resolver.resolverLookupByNameWithFlagsAsync'.--If the DNS resolution failed, /@error@/ (if non-'Nothing') will be set to-a value from 'GI.Gio.Enums.ResolverError'. If the operation was cancelled,-/@error@/ will be set to 'GI.Gio.Enums.IOErrorEnumCancelled'.--/Since: 2.60/--}-resolverLookupByNameWithFlagsFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> b-    {- ^ /@result@/: the result passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m [Gio.InetAddress.InetAddress]-    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List'-of 'GI.Gio.Objects.InetAddress.InetAddress', or 'Nothing' on error. See 'GI.Gio.Objects.Resolver.resolverLookupByName'-for more details. /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupByNameWithFlagsFinish resolver result_ = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_by_name_with_flags_finish resolver' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapObject Gio.InetAddress.InetAddress) result'-        g_list_free result-        touchManagedPtr resolver-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ResolverLookupByNameWithFlagsFinishMethodInfo-instance (signature ~ (b -> m [Gio.InetAddress.InetAddress]), MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo ResolverLookupByNameWithFlagsFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupByNameWithFlagsFinish--#endif---- method Resolver::lookup_records--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the DNS name to lookup the record for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "record_type", argType = TInterface (Name {namespace = "Gio", name = "ResolverRecordType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of DNS record to lookup", 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}]--- Lengths : []--- returnType : Just (TGList TVariant)--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_records" g_resolver_lookup_records :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    CString ->                              -- rrname : TBasicType TUTF8-    CUInt ->                                -- record_type : TInterface (Name {namespace = "Gio", name = "ResolverRecordType"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr GVariant)))--{- |-Synchronously performs a DNS record lookup for the given /@rrname@/ and returns-a list of records as 'GVariant' tuples. See 'GI.Gio.Enums.ResolverRecordType' for-information on what the records contain for each /@recordType@/.--If the DNS resolution fails, /@error@/ (if non-'Nothing') will be set to-a value from 'GI.Gio.Enums.ResolverError' and 'Nothing' will be returned.--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-operation, in which case /@error@/ (if non-'Nothing') will be set to-'GI.Gio.Enums.IOErrorEnumCancelled'.--/Since: 2.34/--}-resolverLookupRecords ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> T.Text-    {- ^ /@rrname@/: the DNS name to lookup the record for -}-    -> Gio.Enums.ResolverRecordType-    {- ^ /@recordType@/: the type of DNS record to lookup -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m [GVariant]-    {- ^ __Returns:__ a non-empty 'GI.GLib.Structs.List.List' of-'GVariant', or 'Nothing' on error. You must free each of the records and the list-when you are done with it. (You can use @/g_list_free_full()/@ with-'GI.GLib.Structs.Variant.variantUnref' to do this.) /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupRecords resolver rrname recordType cancellable = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    rrname' <- textToCString rrname-    let recordType' = (fromIntegral . fromEnum) recordType-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_records resolver' rrname' recordType' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM B.GVariant.wrapGVariantPtr result'-        g_list_free result-        touchManagedPtr resolver-        whenJust cancellable touchManagedPtr-        freeMem rrname'-        return result''-     ) (do-        freeMem rrname'-     )--#if ENABLE_OVERLOADING-data ResolverLookupRecordsMethodInfo-instance (signature ~ (T.Text -> Gio.Enums.ResolverRecordType -> Maybe (b) -> m [GVariant]), MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ResolverLookupRecordsMethodInfo a signature where-    overloadedMethod _ = resolverLookupRecords--#endif---- method Resolver::lookup_records_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the DNS name to lookup the record for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "record_type", argType = TInterface (Name {namespace = "Gio", name = "ResolverRecordType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of DNS record to lookup", 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 "callback to call after resolution completes", 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 "g_resolver_lookup_records_async" g_resolver_lookup_records_async :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    CString ->                              -- rrname : TBasicType TUTF8-    CUInt ->                                -- record_type : TInterface (Name {namespace = "Gio", name = "ResolverRecordType"})-    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 ()--{- |-Begins asynchronously performing a DNS lookup for the given-/@rrname@/, and eventually calls /@callback@/, which must call-'GI.Gio.Objects.Resolver.resolverLookupRecordsFinish' to get the final result. See-'GI.Gio.Objects.Resolver.resolverLookupRecords' for more details.--/Since: 2.34/--}-resolverLookupRecordsAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> T.Text-    {- ^ /@rrname@/: the DNS name to lookup the record for -}-    -> Gio.Enums.ResolverRecordType-    {- ^ /@recordType@/: the type of DNS record to lookup -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call after resolution completes -}-    -> m ()-resolverLookupRecordsAsync resolver rrname recordType cancellable callback = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    rrname' <- textToCString rrname-    let recordType' = (fromIntegral . fromEnum) recordType-    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-    g_resolver_lookup_records_async resolver' rrname' recordType' maybeCancellable maybeCallback userData-    touchManagedPtr resolver-    whenJust cancellable touchManagedPtr-    freeMem rrname'-    return ()--#if ENABLE_OVERLOADING-data ResolverLookupRecordsAsyncMethodInfo-instance (signature ~ (T.Text -> Gio.Enums.ResolverRecordType -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ResolverLookupRecordsAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupRecordsAsync--#endif---- method Resolver::lookup_records_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", 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 "the result passed to your #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList TVariant)--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_records_finish" g_resolver_lookup_records_finish :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr GVariant)))--{- |-Retrieves the result of a previous call to-'GI.Gio.Objects.Resolver.resolverLookupRecordsAsync'. Returns a non-empty list of records as-'GVariant' tuples. See 'GI.Gio.Enums.ResolverRecordType' for information on what the-records contain.--If the DNS resolution failed, /@error@/ (if non-'Nothing') will be set to-a value from 'GI.Gio.Enums.ResolverError'. If the operation was cancelled,-/@error@/ will be set to 'GI.Gio.Enums.IOErrorEnumCancelled'.--/Since: 2.34/--}-resolverLookupRecordsFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> b-    {- ^ /@result@/: the result passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m [GVariant]-    {- ^ __Returns:__ a non-empty 'GI.GLib.Structs.List.List' of-'GVariant', or 'Nothing' on error. You must free each of the records and the list-when you are done with it. (You can use @/g_list_free_full()/@ with-'GI.GLib.Structs.Variant.variantUnref' to do this.) /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupRecordsFinish resolver result_ = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_records_finish resolver' result_'-        result' <- unpackGList result-        result'' <- mapM B.GVariant.wrapGVariantPtr result'-        g_list_free result-        touchManagedPtr resolver-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ResolverLookupRecordsFinishMethodInfo-instance (signature ~ (b -> m [GVariant]), MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo ResolverLookupRecordsFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupRecordsFinish--#endif---- method Resolver::lookup_service--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the service type to look up (eg, \"ldap\")", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the networking protocol to use for @service (eg, \"tcp\")", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the DNS domain to look up the service in", 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}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "SrvTarget"})))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_service" g_resolver_lookup_service :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    CString ->                              -- service : TBasicType TUTF8-    CString ->                              -- protocol : TBasicType TUTF8-    CString ->                              -- domain : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.SrvTarget.SrvTarget)))--{- |-Synchronously performs a DNS SRV lookup for the given /@service@/ and-/@protocol@/ in the given /@domain@/ and returns an array of 'GI.Gio.Structs.SrvTarget.SrvTarget'.-/@domain@/ may be an ASCII-only or UTF-8 hostname. Note also that the-/@service@/ and /@protocol@/ arguments do not include the leading underscore-that appears in the actual DNS entry.--On success, 'GI.Gio.Objects.Resolver.resolverLookupService' will return a non-empty 'GI.GLib.Structs.List.List' of-'GI.Gio.Structs.SrvTarget.SrvTarget', sorted in order of preference. (That is, you should-attempt to connect to the first target first, then the second if-the first fails, etc.)--If the DNS resolution fails, /@error@/ (if non-'Nothing') will be set to-a value from 'GI.Gio.Enums.ResolverError' and 'Nothing' will be returned.--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-operation, in which case /@error@/ (if non-'Nothing') will be set to-'GI.Gio.Enums.IOErrorEnumCancelled'.--If you are planning to connect to the service, it is usually easier-to create a 'GI.Gio.Objects.NetworkService.NetworkService' and use its 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable'-interface.--/Since: 2.22/--}-resolverLookupService ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> T.Text-    {- ^ /@service@/: the service type to look up (eg, \"ldap\") -}-    -> T.Text-    {- ^ /@protocol@/: the networking protocol to use for /@service@/ (eg, \"tcp\") -}-    -> T.Text-    {- ^ /@domain@/: the DNS domain to look up the service in -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m [Gio.SrvTarget.SrvTarget]-    {- ^ __Returns:__ a non-empty 'GI.GLib.Structs.List.List' of-'GI.Gio.Structs.SrvTarget.SrvTarget', or 'Nothing' on error. You must free each of the targets and the-list when you are done with it. (You can use @/g_resolver_free_targets()/@ to do-this.) /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupService resolver service protocol domain cancellable = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    service' <- textToCString service-    protocol' <- textToCString protocol-    domain' <- textToCString domain-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_resolver_lookup_service resolver' service' protocol' domain' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM (wrapBoxed Gio.SrvTarget.SrvTarget) result'-        g_list_free result-        touchManagedPtr resolver-        whenJust cancellable touchManagedPtr-        freeMem service'-        freeMem protocol'-        freeMem domain'-        return result''-     ) (do-        freeMem service'-        freeMem protocol'-        freeMem domain'-     )--#if ENABLE_OVERLOADING-data ResolverLookupServiceMethodInfo-instance (signature ~ (T.Text -> T.Text -> T.Text -> Maybe (b) -> m [Gio.SrvTarget.SrvTarget]), MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ResolverLookupServiceMethodInfo a signature where-    overloadedMethod _ = resolverLookupService--#endif---- method Resolver::lookup_service_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the service type to look up (eg, \"ldap\")", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the networking protocol to use for @service (eg, \"tcp\")", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the DNS domain to look up the service in", 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 "callback to call after resolution completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, 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 "g_resolver_lookup_service_async" g_resolver_lookup_service_async :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    CString ->                              -- service : TBasicType TUTF8-    CString ->                              -- protocol : TBasicType TUTF8-    CString ->                              -- domain : TBasicType TUTF8-    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 ()--{- |-Begins asynchronously performing a DNS SRV lookup for the given-/@service@/ and /@protocol@/ in the given /@domain@/, and eventually calls-/@callback@/, which must call 'GI.Gio.Objects.Resolver.resolverLookupServiceFinish' to-get the final result. See 'GI.Gio.Objects.Resolver.resolverLookupService' for more-details.--/Since: 2.22/--}-resolverLookupServiceAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> T.Text-    {- ^ /@service@/: the service type to look up (eg, \"ldap\") -}-    -> T.Text-    {- ^ /@protocol@/: the networking protocol to use for /@service@/ (eg, \"tcp\") -}-    -> T.Text-    {- ^ /@domain@/: the DNS domain to look up the service in -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call after resolution completes -}-    -> m ()-resolverLookupServiceAsync resolver service protocol domain cancellable callback = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    service' <- textToCString service-    protocol' <- textToCString protocol-    domain' <- textToCString domain-    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-    g_resolver_lookup_service_async resolver' service' protocol' domain' maybeCancellable maybeCallback userData-    touchManagedPtr resolver-    whenJust cancellable touchManagedPtr-    freeMem service'-    freeMem protocol'-    freeMem domain'-    return ()--#if ENABLE_OVERLOADING-data ResolverLookupServiceAsyncMethodInfo-instance (signature ~ (T.Text -> T.Text -> T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ResolverLookupServiceAsyncMethodInfo a signature where-    overloadedMethod _ = resolverLookupServiceAsync--#endif---- method Resolver::lookup_service_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GResolver", 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 "the result passed to your #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "SrvTarget"})))--- throws : True--- Skip return : False--foreign import ccall "g_resolver_lookup_service_finish" g_resolver_lookup_service_finish :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.SrvTarget.SrvTarget)))--{- |-Retrieves the result of a previous call to-'GI.Gio.Objects.Resolver.resolverLookupServiceAsync'.--If the DNS resolution failed, /@error@/ (if non-'Nothing') will be set to-a value from 'GI.Gio.Enums.ResolverError'. If the operation was cancelled,-/@error@/ will be set to 'GI.Gio.Enums.IOErrorEnumCancelled'.--/Since: 2.22/--}-resolverLookupServiceFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.Resolver.Resolver' -}-    -> b-    {- ^ /@result@/: the result passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m [Gio.SrvTarget.SrvTarget]-    {- ^ __Returns:__ a non-empty 'GI.GLib.Structs.List.List' of-'GI.Gio.Structs.SrvTarget.SrvTarget', or 'Nothing' on error. See 'GI.Gio.Objects.Resolver.resolverLookupService' for more-details. /(Can throw 'Data.GI.Base.GError.GError')/ -}-resolverLookupServiceFinish resolver result_ = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_resolver_lookup_service_finish resolver' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapBoxed Gio.SrvTarget.SrvTarget) result'-        g_list_free result-        touchManagedPtr resolver-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ResolverLookupServiceFinishMethodInfo-instance (signature ~ (b -> m [Gio.SrvTarget.SrvTarget]), MonadIO m, IsResolver a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo ResolverLookupServiceFinishMethodInfo a signature where-    overloadedMethod _ = resolverLookupServiceFinish--#endif---- method Resolver::set_default--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "Resolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new default #GResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_resolver_set_default" g_resolver_set_default :: -    Ptr Resolver ->                         -- resolver : TInterface (Name {namespace = "Gio", name = "Resolver"})-    IO ()--{- |-Sets /@resolver@/ to be the application\'s default resolver (reffing-/@resolver@/, and unreffing the previous default resolver, if any).-Future calls to 'GI.Gio.Objects.Resolver.resolverGetDefault' will return this resolver.--This can be used if an application wants to perform any sort of DNS-caching or \"pinning\"; it can implement its own 'GI.Gio.Objects.Resolver.Resolver' that-calls the original default resolver for DNS operations, and-implements its own cache policies on top of that, and then set-itself as the default resolver for all later code to use.--/Since: 2.22/--}-resolverSetDefault ::-    (B.CallStack.HasCallStack, MonadIO m, IsResolver a) =>-    a-    {- ^ /@resolver@/: the new default 'GI.Gio.Objects.Resolver.Resolver' -}-    -> m ()-resolverSetDefault resolver = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    g_resolver_set_default resolver'-    touchManagedPtr resolver-    return ()--#if ENABLE_OVERLOADING-data ResolverSetDefaultMethodInfo-instance (signature ~ (m ()), MonadIO m, IsResolver a) => O.MethodInfo ResolverSetDefaultMethodInfo a signature where-    overloadedMethod _ = resolverSetDefault--#endif---- method Resolver::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Resolver"}))--- throws : False--- Skip return : False--foreign import ccall "g_resolver_get_default" g_resolver_get_default :: -    IO (Ptr Resolver)--{- |-Gets the default 'GI.Gio.Objects.Resolver.Resolver'. You should unref it when you are done-with it. 'GI.Gio.Objects.Resolver.Resolver' may use its reference count as a hint about how-many threads it should allocate for concurrent DNS resolutions.--/Since: 2.22/--}-resolverGetDefault ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Resolver-    {- ^ __Returns:__ the default 'GI.Gio.Objects.Resolver.Resolver'. -}-resolverGetDefault  = liftIO $ do-    result <- g_resolver_get_default-    checkUnexpectedReturnNULL "resolverGetDefault" result-    result' <- (wrapObject Resolver) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/Resolver.hs-boot 
@@ -1,80 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Resolver 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 Resolver = Resolver (ManagedPtr Resolver)-instance GObject Resolver where-class (GObject o, O.IsDescendantOf Resolver o) => IsResolver o-instance (GObject o, O.IsDescendantOf Resolver o) => IsResolver o-instance O.HasParentTypes Resolver-#if ENABLE_OVERLOADING-data ResolverReloadSignalInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByAddressAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByAddressFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByNameAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByNameFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByNameWithFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByNameWithFlagsAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupByNameWithFlagsFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupRecordsMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupRecordsAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupRecordsFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupServiceMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupServiceAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverLookupServiceFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResolverSetDefaultMethodInfo-#endif
− GI/Gio/Objects/Settings.hs 
@@ -1,3990 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Objects.Settings.Settings' class provides a convenient API for storing and retrieving-application settings.--Reads and writes can be considered to be non-blocking.  Reading-settings with 'GI.Gio.Objects.Settings.Settings' is typically extremely fast: on-approximately the same order of magnitude (but slower than) a-'GI.GLib.Structs.HashTable.HashTable' lookup.  Writing settings is also extremely fast in terms-of time to return to your application, but can be extremely expensive-for other threads and other processes.  Many settings backends-(including dconf) have lazy initialisation which means in the common-case of the user using their computer without modifying any settings-a lot of work can be avoided.  For dconf, the D-Bus service doesn\'t-even need to be started in this case.  For this reason, you should-only ever modify 'GI.Gio.Objects.Settings.Settings' keys in response to explicit user action.-Particular care should be paid to ensure that modifications are not-made during startup -- for example, when setting the initial value-of preferences widgets.  The built-in 'GI.Gio.Objects.Settings.settingsBind' functionality-is careful not to write settings in response to notify signals as a-result of modifications that it makes to widgets.--When creating a GSettings instance, you have to specify a schema-that describes the keys in your settings and their types and default-values, as well as some other information.--Normally, a schema has a fixed path that determines where the settings-are stored in the conceptual global tree of settings. However, schemas-can also be \'[relocatable][gsettings-relocatable]\', i.e. not equipped with-a fixed path. This is-useful e.g. when the schema describes an \'account\', and you want to be-able to store a arbitrary number of accounts.--Paths must start with and end with a forward slash character (\'\/\')-and must not contain two sequential slash characters.  Paths should-be chosen based on a domain name associated with the program or-library to which the settings belong.  Examples of paths are-\"\/org\/gtk\/settings\/file-chooser\/\" and \"\/ca\/desrt\/dconf-editor\/\".-Paths should not start with \"\/apps\/\", \"\/desktop\/\" or \"\/system\/\" as-they often did in GConf.--Unlike other configuration systems (like GConf), GSettings does not-restrict keys to basic types like strings and numbers. GSettings stores-values as 'GVariant', and allows any 'GI.GLib.Structs.VariantType.VariantType' for keys. Key names-are restricted to lowercase characters, numbers and \'-\'. Furthermore,-the names must begin with a lowercase character, must not end-with a \'-\', and must not contain consecutive dashes.--Similar to GConf, the default values in GSettings schemas can be-localized, but the localized values are stored in gettext catalogs-and looked up with the domain that is specified in the-@gettext-domain@ attribute of the \<schemalist> or \<schema>-elements and the category that is specified in the @l10n@ attribute of-the \<default> element. The string which is translated includes all text in-the \<default> element, including any surrounding quotation marks.--The @l10n@ attribute must be set to @messages@ or @time@, and sets the-<https://www.gnu.org/software/gettext/manual/html_node/Aspects.html#index-locale-categories-1 locale category for-translation>.-The @messages@ category should be used by default; use @time@ for-translatable date or time formats. A translation comment can be added as an-XML comment immediately above the \<default> element — it is recommended to-add these comments to aid translators understand the meaning and-implications of the default value. An optional translation @context@-attribute can be set on the \<default> element to disambiguate multiple-defaults which use the same string.--For example:->-> <!-- Translators: A list of words which are not allowed to be typed, in->      GVariant serialization syntax.->      See: https://developer.gnome.org/glib/stable/gvariant-text.html -->-> <default l10n='messages' context='Banned words'>['bad', 'words']</default>---Translations of default values must remain syntactically valid serialized-@/GVariants/@ (e.g. retaining any surrounding quotation marks) or runtime-errors will occur.--GSettings uses schemas in a compact binary form that is created-by the [glib-compile-schemas][glib-compile-schemas]-utility. The input is a schema description in an XML format.--A DTD for the gschema XML format can be found here:-<https://git.gnome.org/browse/glib/tree/gio/gschema.dtd gschema.dtd>--The [glib-compile-schemas][glib-compile-schemas] tool expects schema-files to have the extension @.gschema.xml@.--At runtime, schemas are identified by their id (as specified in the-id attribute of the \<schema> element). The convention for schema-ids is to use a dotted name, similar in style to a D-Bus bus name,-e.g. \"org.gnome.SessionManager\". In particular, if the settings are-for a specific service that owns a D-Bus bus name, the D-Bus bus name-and schema id should match. For schemas which deal with settings not-associated with one named application, the id should not use-StudlyCaps, e.g. \"org.gnome.font-rendering\".--In addition to 'GVariant' types, keys can have types that have-enumerated types. These can be described by a \<choice>,-\<enum> or \<flags> element, as seen in the-[example][schema-enumerated]. The underlying type of such a key-is string, but you can use 'GI.Gio.Objects.Settings.settingsGetEnum', 'GI.Gio.Objects.Settings.settingsSetEnum',-'GI.Gio.Objects.Settings.settingsGetFlags', 'GI.Gio.Objects.Settings.settingsSetFlags' access the numeric values-corresponding to the string value of enum and flags keys.--An example for default value:->-><schemalist>->  <schema id="org.gtk.Test" path="/org/gtk/Test/" gettext-domain="test">->->    <key name="greeting" type="s">->      <default l10n="messages">"Hello, earthlings"</default>->      <summary>A greeting</summary>->      <description>->        Greeting of the invading martians->      </description>->    </key>->->    <key name="box" type="(ii)">->      <default>(20,30)</default>->    </key>->->    <key name="empty-string" type="s">->      <default>""</default>->      <summary>Empty strings have to be provided in GVariant form</summary>->    </key>->->  </schema>-></schemalist>---An example for ranges, choices and enumerated types:->-><schemalist>->->  <enum id="org.gtk.Test.myenum">->    <value nick="first" value="1"/>->    <value nick="second" value="2"/>->  </enum>->->  <flags id="org.gtk.Test.myflags">->    <value nick="flag1" value="1"/>->    <value nick="flag2" value="2"/>->    <value nick="flag3" value="4"/>->  </flags>->->  <schema id="org.gtk.Test">->->    <key name="key-with-range" type="i">->      <range min="1" max="100"/>->      <default>10</default>->    </key>->->    <key name="key-with-choices" type="s">->      <choices>->        <choice value='Elisabeth'/>->        <choice value='Annabeth'/>->        <choice value='Joe'/>->      </choices>->      <aliases>->        <alias value='Anna' target='Annabeth'/>->        <alias value='Beth' target='Elisabeth'/>->      </aliases>->      <default>'Joe'</default>->    </key>->->    <key name='enumerated-key' enum='org.gtk.Test.myenum'>->      <default>'first'</default>->    </key>->->    <key name='flags-key' flags='org.gtk.Test.myflags'>->      <default>["flag1","flag2"]</default>->    </key>->  </schema>-></schemalist>---== Vendor overrides--Default values are defined in the schemas that get installed by-an application. Sometimes, it is necessary for a vendor or distributor-to adjust these defaults. Since patching the XML source for the schema-is inconvenient and error-prone,-[glib-compile-schemas][glib-compile-schemas] reads so-called vendor-override\' files. These are keyfiles in the same directory as the XML-schema sources which can override default values. The schema id serves-as the group name in the key file, and the values are expected in-serialized GVariant form, as in the following example:->->    [org.gtk.Example]->    key1='string'->    key2=1.5---glib-compile-schemas expects schema files to have the extension-@.gschema.override@.--== Binding--A very convenient feature of GSettings lets you bind 'GI.GObject.Objects.Object.Object' properties-directly to settings, using 'GI.Gio.Objects.Settings.settingsBind'. Once a GObject property-has been bound to a setting, changes on either side are automatically-propagated to the other side. GSettings handles details like mapping-between GObject and GVariant types, and preventing infinite cycles.--This makes it very easy to hook up a preferences dialog to the-underlying settings. To make this even more convenient, GSettings-looks for a boolean property with the name \"sensitivity\" and-automatically binds it to the writability of the bound setting.-If this \'magic\' gets in the way, it can be suppressed with the-@/G_SETTINGS_BIND_NO_SENSITIVITY/@ flag.--## Relocatable schemas # {@/gsettings/@-relocatable}--A relocatable schema is one with no @path@ attribute specified on its-\<schema> element. By using 'GI.Gio.Objects.Settings.settingsNewWithPath', a 'GI.Gio.Objects.Settings.Settings' object-can be instantiated for a relocatable schema, assigning a path to the-instance. Paths passed to 'GI.Gio.Objects.Settings.settingsNewWithPath' will typically be-constructed dynamically from a constant prefix plus some form of instance-identifier; but they must still be valid GSettings paths. Paths could also-be constant and used with a globally installed schema originating from a-dependency library.--For example, a relocatable schema could be used to store geometry information-for different windows in an application. If the schema ID was-@org.foo.MyApp.Window@, it could be instantiated for paths-@\/org\/foo\/MyApp\/main\/@, @\/org\/foo\/MyApp\/document-1\/@,-@\/org\/foo\/MyApp\/document-2\/@, etc. If any of the paths are well-known-they can be specified as \<child> elements in the parent schema, e.g.:->-><schema id="org.foo.MyApp" path="/org/foo/MyApp/">->  <child name="main" schema="org.foo.MyApp.Window"/>-></schema>---## Build system integration # {@/gsettings/@-build-system}--GSettings comes with autotools integration to simplify compiling and-installing schemas. To add GSettings support to an application, add the-following to your @configure.ac@:->->GLIB_GSETTINGS---In the appropriate @Makefile.am@, use the following snippet to compile and-install the named schema:->->gsettings_SCHEMAS = org.foo.MyApp.gschema.xml->EXTRA_DIST = $(gsettings_SCHEMAS)->->@GSETTINGS_RULES@---No changes are needed to the build system to mark a schema XML file for-translation. Assuming it sets the @gettext-domain@ attribute, a schema may-be marked for translation by adding it to @POTFILES.in@, assuming gettext-0.19 is in use (the preferred method for translation):->->data/org.foo.MyApp.gschema.xml---Alternatively, if intltool 0.50.1 is in use:->->[type: gettext/gsettings]data/org.foo.MyApp.gschema.xml---GSettings will use gettext to look up translations for the \<summary> and-\<description> elements, and also any \<default> elements which have a @l10n@-attribute set. Translations must not be included in the @.gschema.xml@ file-by the build system, for example by using intltool XML rules with a-@.gschema.xml.in@ template.--If an enumerated type defined in a C header file is to be used in a GSettings-schema, it can either be defined manually using an \<enum> element in the-schema XML, or it can be extracted automatically from the C header. This-approach is preferred, as it ensures the two representations are always-synchronised. To do so, add the following to the relevant @Makefile.am@:->->gsettings_ENUM_NAMESPACE = org.foo.MyApp->gsettings_ENUM_FILES = my-app-enums.h my-app-misc.h---@gsettings_ENUM_NAMESPACE@ specifies the schema namespace for the enum files,-which are specified in @gsettings_ENUM_FILES@. This will generate a-@org.foo.MyApp.enums.xml@ file containing the extracted enums, which will be-automatically included in the schema compilation, install and uninstall-rules. It should not be committed to version control or included in-@EXTRA_DIST@.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Settings-    ( ---- * Exported types-    Settings(..)                            ,-    IsSettings                              ,-    toSettings                              ,-    noSettings                              ,--- -- * Methods--- ** apply #method:apply#--#if ENABLE_OVERLOADING-    SettingsApplyMethodInfo                 ,-#endif-    settingsApply                           ,----- ** bind #method:bind#--#if ENABLE_OVERLOADING-    SettingsBindMethodInfo                  ,-#endif-    settingsBind                            ,----- ** bindWritable #method:bindWritable#--#if ENABLE_OVERLOADING-    SettingsBindWritableMethodInfo          ,-#endif-    settingsBindWritable                    ,----- ** createAction #method:createAction#--#if ENABLE_OVERLOADING-    SettingsCreateActionMethodInfo          ,-#endif-    settingsCreateAction                    ,----- ** delay #method:delay#--#if ENABLE_OVERLOADING-    SettingsDelayMethodInfo                 ,-#endif-    settingsDelay                           ,----- ** getBoolean #method:getBoolean#--#if ENABLE_OVERLOADING-    SettingsGetBooleanMethodInfo            ,-#endif-    settingsGetBoolean                      ,----- ** getChild #method:getChild#--#if ENABLE_OVERLOADING-    SettingsGetChildMethodInfo              ,-#endif-    settingsGetChild                        ,----- ** getDefaultValue #method:getDefaultValue#--#if ENABLE_OVERLOADING-    SettingsGetDefaultValueMethodInfo       ,-#endif-    settingsGetDefaultValue                 ,----- ** getDouble #method:getDouble#--#if ENABLE_OVERLOADING-    SettingsGetDoubleMethodInfo             ,-#endif-    settingsGetDouble                       ,----- ** getEnum #method:getEnum#--#if ENABLE_OVERLOADING-    SettingsGetEnumMethodInfo               ,-#endif-    settingsGetEnum                         ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    SettingsGetFlagsMethodInfo              ,-#endif-    settingsGetFlags                        ,----- ** getHasUnapplied #method:getHasUnapplied#--#if ENABLE_OVERLOADING-    SettingsGetHasUnappliedMethodInfo       ,-#endif-    settingsGetHasUnapplied                 ,----- ** getInt #method:getInt#--#if ENABLE_OVERLOADING-    SettingsGetIntMethodInfo                ,-#endif-    settingsGetInt                          ,----- ** getInt64 #method:getInt64#--#if ENABLE_OVERLOADING-    SettingsGetInt64MethodInfo              ,-#endif-    settingsGetInt64                        ,----- ** getMapped #method:getMapped#--#if ENABLE_OVERLOADING-    SettingsGetMappedMethodInfo             ,-#endif-    settingsGetMapped                       ,----- ** getRange #method:getRange#--#if ENABLE_OVERLOADING-    SettingsGetRangeMethodInfo              ,-#endif-    settingsGetRange                        ,----- ** getString #method:getString#--#if ENABLE_OVERLOADING-    SettingsGetStringMethodInfo             ,-#endif-    settingsGetString                       ,----- ** getStrv #method:getStrv#--#if ENABLE_OVERLOADING-    SettingsGetStrvMethodInfo               ,-#endif-    settingsGetStrv                         ,----- ** getUint #method:getUint#--#if ENABLE_OVERLOADING-    SettingsGetUintMethodInfo               ,-#endif-    settingsGetUint                         ,----- ** getUint64 #method:getUint64#--#if ENABLE_OVERLOADING-    SettingsGetUint64MethodInfo             ,-#endif-    settingsGetUint64                       ,----- ** getUserValue #method:getUserValue#--#if ENABLE_OVERLOADING-    SettingsGetUserValueMethodInfo          ,-#endif-    settingsGetUserValue                    ,----- ** getValue #method:getValue#--#if ENABLE_OVERLOADING-    SettingsGetValueMethodInfo              ,-#endif-    settingsGetValue                        ,----- ** isWritable #method:isWritable#--#if ENABLE_OVERLOADING-    SettingsIsWritableMethodInfo            ,-#endif-    settingsIsWritable                      ,----- ** listChildren #method:listChildren#--#if ENABLE_OVERLOADING-    SettingsListChildrenMethodInfo          ,-#endif-    settingsListChildren                    ,----- ** listKeys #method:listKeys#--#if ENABLE_OVERLOADING-    SettingsListKeysMethodInfo              ,-#endif-    settingsListKeys                        ,----- ** listRelocatableSchemas #method:listRelocatableSchemas#--    settingsListRelocatableSchemas          ,----- ** listSchemas #method:listSchemas#--    settingsListSchemas                     ,----- ** new #method:new#--    settingsNew                             ,----- ** newFull #method:newFull#--    settingsNewFull                         ,----- ** newWithBackend #method:newWithBackend#--    settingsNewWithBackend                  ,----- ** newWithBackendAndPath #method:newWithBackendAndPath#--    settingsNewWithBackendAndPath           ,----- ** newWithPath #method:newWithPath#--    settingsNewWithPath                     ,----- ** rangeCheck #method:rangeCheck#--#if ENABLE_OVERLOADING-    SettingsRangeCheckMethodInfo            ,-#endif-    settingsRangeCheck                      ,----- ** reset #method:reset#--#if ENABLE_OVERLOADING-    SettingsResetMethodInfo                 ,-#endif-    settingsReset                           ,----- ** revert #method:revert#--#if ENABLE_OVERLOADING-    SettingsRevertMethodInfo                ,-#endif-    settingsRevert                          ,----- ** setBoolean #method:setBoolean#--#if ENABLE_OVERLOADING-    SettingsSetBooleanMethodInfo            ,-#endif-    settingsSetBoolean                      ,----- ** setDouble #method:setDouble#--#if ENABLE_OVERLOADING-    SettingsSetDoubleMethodInfo             ,-#endif-    settingsSetDouble                       ,----- ** setEnum #method:setEnum#--#if ENABLE_OVERLOADING-    SettingsSetEnumMethodInfo               ,-#endif-    settingsSetEnum                         ,----- ** setFlags #method:setFlags#--#if ENABLE_OVERLOADING-    SettingsSetFlagsMethodInfo              ,-#endif-    settingsSetFlags                        ,----- ** setInt #method:setInt#--#if ENABLE_OVERLOADING-    SettingsSetIntMethodInfo                ,-#endif-    settingsSetInt                          ,----- ** setInt64 #method:setInt64#--#if ENABLE_OVERLOADING-    SettingsSetInt64MethodInfo              ,-#endif-    settingsSetInt64                        ,----- ** setString #method:setString#--#if ENABLE_OVERLOADING-    SettingsSetStringMethodInfo             ,-#endif-    settingsSetString                       ,----- ** setStrv #method:setStrv#--#if ENABLE_OVERLOADING-    SettingsSetStrvMethodInfo               ,-#endif-    settingsSetStrv                         ,----- ** setUint #method:setUint#--#if ENABLE_OVERLOADING-    SettingsSetUintMethodInfo               ,-#endif-    settingsSetUint                         ,----- ** setUint64 #method:setUint64#--#if ENABLE_OVERLOADING-    SettingsSetUint64MethodInfo             ,-#endif-    settingsSetUint64                       ,----- ** setValue #method:setValue#--#if ENABLE_OVERLOADING-    SettingsSetValueMethodInfo              ,-#endif-    settingsSetValue                        ,----- ** sync #method:sync#--    settingsSync                            ,----- ** unbind #method:unbind#--    settingsUnbind                          ,----- -- * Properties--- ** backend #attr:backend#-{- | The name of the context that the settings are stored in.--}-#if ENABLE_OVERLOADING-    SettingsBackendPropertyInfo             ,-#endif-    constructSettingsBackend                ,-    getSettingsBackend                      ,-#if ENABLE_OVERLOADING-    settingsBackend                         ,-#endif----- ** delayApply #attr:delayApply#-{- | Whether the 'GI.Gio.Objects.Settings.Settings' object is in \'delay-apply\' mode. See-'GI.Gio.Objects.Settings.settingsDelay' for details.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    SettingsDelayApplyPropertyInfo          ,-#endif-    getSettingsDelayApply                   ,-#if ENABLE_OVERLOADING-    settingsDelayApply                      ,-#endif----- ** hasUnapplied #attr:hasUnapplied#-{- | If this property is 'True', the 'GI.Gio.Objects.Settings.Settings' object has outstanding-changes that will be applied when 'GI.Gio.Objects.Settings.settingsApply' is called.--}-#if ENABLE_OVERLOADING-    SettingsHasUnappliedPropertyInfo        ,-#endif-    getSettingsHasUnapplied                 ,-#if ENABLE_OVERLOADING-    settingsHasUnapplied                    ,-#endif----- ** path #attr:path#-{- | The path within the backend where the settings are stored.--}-#if ENABLE_OVERLOADING-    SettingsPathPropertyInfo                ,-#endif-    constructSettingsPath                   ,-    getSettingsPath                         ,-#if ENABLE_OVERLOADING-    settingsPath                            ,-#endif----- ** schema #attr:schema#-{- | The name of the schema that describes the types of keys-for this 'GI.Gio.Objects.Settings.Settings' object.--The type of this property is *not* 'GI.Gio.Structs.SettingsSchema.SettingsSchema'.-'GI.Gio.Structs.SettingsSchema.SettingsSchema' has only existed since version 2.32 and-unfortunately this name was used in previous versions to refer to-the schema ID rather than the schema itself.  Take care to use the-\'settings-schema\' property if you wish to pass in a-'GI.Gio.Structs.SettingsSchema.SettingsSchema'.--}-#if ENABLE_OVERLOADING-    SettingsSchemaPropertyInfo              ,-#endif-    constructSettingsSchema                 ,-    getSettingsSchema                       ,-#if ENABLE_OVERLOADING-    settingsSchema                          ,-#endif----- ** schemaId #attr:schemaId#-{- | The name of the schema that describes the types of keys-for this 'GI.Gio.Objects.Settings.Settings' object.--}-#if ENABLE_OVERLOADING-    SettingsSchemaIdPropertyInfo            ,-#endif-    constructSettingsSchemaId               ,-    getSettingsSchemaId                     ,-#if ENABLE_OVERLOADING-    settingsSchemaId                        ,-#endif----- ** settingsSchema #attr:settingsSchema#-{- | The 'GI.Gio.Structs.SettingsSchema.SettingsSchema' describing the types of keys for this-'GI.Gio.Objects.Settings.Settings' object.--Ideally, this property would be called \'schema\'.  'GI.Gio.Structs.SettingsSchema.SettingsSchema'-has only existed since version 2.32, however, and before then the-\'schema\' property was used to refer to the ID of the schema rather-than the schema itself.  Take care.--}-#if ENABLE_OVERLOADING-    SettingsSettingsSchemaPropertyInfo      ,-#endif-    constructSettingsSettingsSchema         ,-    getSettingsSettingsSchema               ,-#if ENABLE_OVERLOADING-    settingsSettingsSchema                  ,-#endif----- -- * Signals--- ** changeEvent #signal:changeEvent#--    C_SettingsChangeEventCallback           ,-    SettingsChangeEventCallback             ,-#if ENABLE_OVERLOADING-    SettingsChangeEventSignalInfo           ,-#endif-    afterSettingsChangeEvent                ,-    genClosure_SettingsChangeEvent          ,-    mk_SettingsChangeEventCallback          ,-    noSettingsChangeEventCallback           ,-    onSettingsChangeEvent                   ,-    wrap_SettingsChangeEventCallback        ,----- ** changed #signal:changed#--    C_SettingsChangedCallback               ,-    SettingsChangedCallback                 ,-#if ENABLE_OVERLOADING-    SettingsChangedSignalInfo               ,-#endif-    afterSettingsChanged                    ,-    genClosure_SettingsChanged              ,-    mk_SettingsChangedCallback              ,-    noSettingsChangedCallback               ,-    onSettingsChanged                       ,-    wrap_SettingsChangedCallback            ,----- ** writableChangeEvent #signal:writableChangeEvent#--    C_SettingsWritableChangeEventCallback   ,-    SettingsWritableChangeEventCallback     ,-#if ENABLE_OVERLOADING-    SettingsWritableChangeEventSignalInfo   ,-#endif-    afterSettingsWritableChangeEvent        ,-    genClosure_SettingsWritableChangeEvent  ,-    mk_SettingsWritableChangeEventCallback  ,-    noSettingsWritableChangeEventCallback   ,-    onSettingsWritableChangeEvent           ,-    wrap_SettingsWritableChangeEventCallback,----- ** writableChanged #signal:writableChanged#--    C_SettingsWritableChangedCallback       ,-    SettingsWritableChangedCallback         ,-#if ENABLE_OVERLOADING-    SettingsWritableChangedSignalInfo       ,-#endif-    afterSettingsWritableChanged            ,-    genClosure_SettingsWritableChanged      ,-    mk_SettingsWritableChangedCallback      ,-    noSettingsWritableChangedCallback       ,-    onSettingsWritableChanged               ,-    wrap_SettingsWritableChangedCallback    ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Action as Gio.Action-import {-# SOURCE #-} qualified GI.Gio.Objects.SettingsBackend as Gio.SettingsBackend-import {-# SOURCE #-} qualified GI.Gio.Structs.SettingsSchema as Gio.SettingsSchema---- | Memory-managed wrapper type.-newtype Settings = Settings (ManagedPtr Settings)-foreign import ccall "g_settings_get_type"-    c_g_settings_get_type :: IO GType--instance GObject Settings where-    gobjectType = c_g_settings_get_type-    ---- | Type class for types which can be safely cast to `Settings`, for instance with `toSettings`.-class (GObject o, O.IsDescendantOf Settings o) => IsSettings o-instance (GObject o, O.IsDescendantOf Settings o) => IsSettings o--instance O.HasParentTypes Settings-type instance O.ParentTypes Settings = '[GObject.Object.Object]---- | Cast to `Settings`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSettings :: (MonadIO m, IsSettings o) => o -> m Settings-toSettings = liftIO . unsafeCastTo Settings---- | A convenience alias for `Nothing` :: `Maybe` `Settings`.-noSettings :: Maybe Settings-noSettings = Nothing--#if ENABLE_OVERLOADING-type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where-    ResolveSettingsMethod "apply" o = SettingsApplyMethodInfo-    ResolveSettingsMethod "bind" o = SettingsBindMethodInfo-    ResolveSettingsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSettingsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSettingsMethod "bindWritable" o = SettingsBindWritableMethodInfo-    ResolveSettingsMethod "createAction" o = SettingsCreateActionMethodInfo-    ResolveSettingsMethod "delay" o = SettingsDelayMethodInfo-    ResolveSettingsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSettingsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSettingsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSettingsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSettingsMethod "isWritable" o = SettingsIsWritableMethodInfo-    ResolveSettingsMethod "listChildren" o = SettingsListChildrenMethodInfo-    ResolveSettingsMethod "listKeys" o = SettingsListKeysMethodInfo-    ResolveSettingsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSettingsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSettingsMethod "rangeCheck" o = SettingsRangeCheckMethodInfo-    ResolveSettingsMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSettingsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSettingsMethod "reset" o = SettingsResetMethodInfo-    ResolveSettingsMethod "revert" o = SettingsRevertMethodInfo-    ResolveSettingsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSettingsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSettingsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSettingsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSettingsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSettingsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSettingsMethod "getBoolean" o = SettingsGetBooleanMethodInfo-    ResolveSettingsMethod "getChild" o = SettingsGetChildMethodInfo-    ResolveSettingsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSettingsMethod "getDefaultValue" o = SettingsGetDefaultValueMethodInfo-    ResolveSettingsMethod "getDouble" o = SettingsGetDoubleMethodInfo-    ResolveSettingsMethod "getEnum" o = SettingsGetEnumMethodInfo-    ResolveSettingsMethod "getFlags" o = SettingsGetFlagsMethodInfo-    ResolveSettingsMethod "getHasUnapplied" o = SettingsGetHasUnappliedMethodInfo-    ResolveSettingsMethod "getInt" o = SettingsGetIntMethodInfo-    ResolveSettingsMethod "getInt64" o = SettingsGetInt64MethodInfo-    ResolveSettingsMethod "getMapped" o = SettingsGetMappedMethodInfo-    ResolveSettingsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSettingsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSettingsMethod "getRange" o = SettingsGetRangeMethodInfo-    ResolveSettingsMethod "getString" o = SettingsGetStringMethodInfo-    ResolveSettingsMethod "getStrv" o = SettingsGetStrvMethodInfo-    ResolveSettingsMethod "getUint" o = SettingsGetUintMethodInfo-    ResolveSettingsMethod "getUint64" o = SettingsGetUint64MethodInfo-    ResolveSettingsMethod "getUserValue" o = SettingsGetUserValueMethodInfo-    ResolveSettingsMethod "getValue" o = SettingsGetValueMethodInfo-    ResolveSettingsMethod "setBoolean" o = SettingsSetBooleanMethodInfo-    ResolveSettingsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSettingsMethod "setDouble" o = SettingsSetDoubleMethodInfo-    ResolveSettingsMethod "setEnum" o = SettingsSetEnumMethodInfo-    ResolveSettingsMethod "setFlags" o = SettingsSetFlagsMethodInfo-    ResolveSettingsMethod "setInt" o = SettingsSetIntMethodInfo-    ResolveSettingsMethod "setInt64" o = SettingsSetInt64MethodInfo-    ResolveSettingsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSettingsMethod "setString" o = SettingsSetStringMethodInfo-    ResolveSettingsMethod "setStrv" o = SettingsSetStrvMethodInfo-    ResolveSettingsMethod "setUint" o = SettingsSetUintMethodInfo-    ResolveSettingsMethod "setUint64" o = SettingsSetUint64MethodInfo-    ResolveSettingsMethod "setValue" o = SettingsSetValueMethodInfo-    ResolveSettingsMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSettingsMethod t Settings, O.MethodInfo info Settings p) => OL.IsLabel t (Settings -> 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 Settings::change-event-{- |-The \"change-event\" signal is emitted once per change event that-affects this settings object.  You should connect to this signal-only if you are interested in viewing groups of changes before they-are split out into multiple emissions of the \"changed\" signal.-For most use cases it is more appropriate to use the \"changed\" signal.--In the event that the change event applies to one or more specified-keys, /@keys@/ will be an array of @/GQuark/@ of length /@nKeys@/.  In the-event that the change event applies to the 'GI.Gio.Objects.Settings.Settings' object as a-whole (ie: potentially every key has been changed) then /@keys@/ will-be 'Nothing' and /@nKeys@/ will be 0.--The default handler for this signal invokes the \"changed\" signal-for each affected key.  If any other connected handler returns-'True' then this default functionality will be suppressed.--}-type SettingsChangeEventCallback =-    Maybe [Word32]-    {- ^ /@keys@/: -       an array of @/GQuarks/@ for the changed keys, or 'Nothing' -}-    -> IO Bool-    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the-         event. FALSE to propagate the event further. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsChangeEventCallback`@.-noSettingsChangeEventCallback :: Maybe SettingsChangeEventCallback-noSettingsChangeEventCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SettingsChangeEventCallback =-    Ptr () ->                               -- object-    Ptr Word32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_SettingsChangeEventCallback`.-foreign import ccall "wrapper"-    mk_SettingsChangeEventCallback :: C_SettingsChangeEventCallback -> IO (FunPtr C_SettingsChangeEventCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SettingsChangeEvent :: MonadIO m => SettingsChangeEventCallback -> m (GClosure C_SettingsChangeEventCallback)-genClosure_SettingsChangeEvent cb = liftIO $ do-    let cb' = wrap_SettingsChangeEventCallback cb-    mk_SettingsChangeEventCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SettingsChangeEventCallback` into a `C_SettingsChangeEventCallback`.-wrap_SettingsChangeEventCallback ::-    SettingsChangeEventCallback ->-    C_SettingsChangeEventCallback-wrap_SettingsChangeEventCallback _cb _ keys nKeys _ = do-    maybeKeys <--        if keys == nullPtr-        then return Nothing-        else do-            keys' <- (unpackStorableArrayWithLength nKeys) keys-            return $ Just keys'-    result <- _cb  maybeKeys-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@change-event@” 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' settings #changeEvent callback-@--}-onSettingsChangeEvent :: (IsSettings a, MonadIO m) => a -> SettingsChangeEventCallback -> m SignalHandlerId-onSettingsChangeEvent obj cb = liftIO $ do-    let cb' = wrap_SettingsChangeEventCallback cb-    cb'' <- mk_SettingsChangeEventCallback cb'-    connectSignalFunPtr obj "change-event" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@change-event@” 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' settings #changeEvent callback-@--}-afterSettingsChangeEvent :: (IsSettings a, MonadIO m) => a -> SettingsChangeEventCallback -> m SignalHandlerId-afterSettingsChangeEvent obj cb = liftIO $ do-    let cb' = wrap_SettingsChangeEventCallback cb-    cb'' <- mk_SettingsChangeEventCallback cb'-    connectSignalFunPtr obj "change-event" cb'' SignalConnectAfter----- signal Settings::changed-{- |-The \"changed\" signal is emitted when a key has potentially changed.-You should call one of the @/g_settings_get()/@ calls to check the new-value.--This signal supports detailed connections.  You can connect to the-detailed signal \"changed::x\" in order to only receive callbacks-when key \"x\" changes.--Note that /@settings@/ only emits this signal if you have read /@key@/ at-least once while a signal handler was already connected for /@key@/.--}-type SettingsChangedCallback =-    T.Text-    {- ^ /@key@/: the name of the key that changed -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsChangedCallback`@.-noSettingsChangedCallback :: Maybe SettingsChangedCallback-noSettingsChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SettingsChangedCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SettingsChangedCallback`.-foreign import ccall "wrapper"-    mk_SettingsChangedCallback :: C_SettingsChangedCallback -> IO (FunPtr C_SettingsChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SettingsChanged :: MonadIO m => SettingsChangedCallback -> m (GClosure C_SettingsChangedCallback)-genClosure_SettingsChanged cb = liftIO $ do-    let cb' = wrap_SettingsChangedCallback cb-    mk_SettingsChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SettingsChangedCallback` into a `C_SettingsChangedCallback`.-wrap_SettingsChangedCallback ::-    SettingsChangedCallback ->-    C_SettingsChangedCallback-wrap_SettingsChangedCallback _cb _ key _ = do-    key' <- cstringToText key-    _cb  key'---{- |-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' settings #changed callback-@--}-onSettingsChanged :: (IsSettings a, MonadIO m) => a -> SettingsChangedCallback -> m SignalHandlerId-onSettingsChanged obj cb = liftIO $ do-    let cb' = wrap_SettingsChangedCallback cb-    cb'' <- mk_SettingsChangedCallback 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' settings #changed callback-@--}-afterSettingsChanged :: (IsSettings a, MonadIO m) => a -> SettingsChangedCallback -> m SignalHandlerId-afterSettingsChanged obj cb = liftIO $ do-    let cb' = wrap_SettingsChangedCallback cb-    cb'' <- mk_SettingsChangedCallback cb'-    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter----- signal Settings::writable-change-event-{- |-The \"writable-change-event\" signal is emitted once per writability-change event that affects this settings object.  You should connect-to this signal if you are interested in viewing groups of changes-before they are split out into multiple emissions of the-\"writable-changed\" signal.  For most use cases it is more-appropriate to use the \"writable-changed\" signal.--In the event that the writability change applies only to a single-key, /@key@/ will be set to the @/GQuark/@ for that key.  In the event-that the writability change affects the entire settings object,-/@key@/ will be 0.--The default handler for this signal invokes the \"writable-changed\"-and \"changed\" signals for each affected key.  This is done because-changes in writability might also imply changes in value (if for-example, a new mandatory setting is introduced).  If any other-connected handler returns 'True' then this default functionality-will be suppressed.--}-type SettingsWritableChangeEventCallback =-    Word32-    {- ^ /@key@/: the quark of the key, or 0 -}-    -> IO Bool-    {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the-         event. FALSE to propagate the event further. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsWritableChangeEventCallback`@.-noSettingsWritableChangeEventCallback :: Maybe SettingsWritableChangeEventCallback-noSettingsWritableChangeEventCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SettingsWritableChangeEventCallback =-    Ptr () ->                               -- object-    Word32 ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_SettingsWritableChangeEventCallback`.-foreign import ccall "wrapper"-    mk_SettingsWritableChangeEventCallback :: C_SettingsWritableChangeEventCallback -> IO (FunPtr C_SettingsWritableChangeEventCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SettingsWritableChangeEvent :: MonadIO m => SettingsWritableChangeEventCallback -> m (GClosure C_SettingsWritableChangeEventCallback)-genClosure_SettingsWritableChangeEvent cb = liftIO $ do-    let cb' = wrap_SettingsWritableChangeEventCallback cb-    mk_SettingsWritableChangeEventCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SettingsWritableChangeEventCallback` into a `C_SettingsWritableChangeEventCallback`.-wrap_SettingsWritableChangeEventCallback ::-    SettingsWritableChangeEventCallback ->-    C_SettingsWritableChangeEventCallback-wrap_SettingsWritableChangeEventCallback _cb _ key _ = do-    result <- _cb  key-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@writable-change-event@” 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' settings #writableChangeEvent callback-@--}-onSettingsWritableChangeEvent :: (IsSettings a, MonadIO m) => a -> SettingsWritableChangeEventCallback -> m SignalHandlerId-onSettingsWritableChangeEvent obj cb = liftIO $ do-    let cb' = wrap_SettingsWritableChangeEventCallback cb-    cb'' <- mk_SettingsWritableChangeEventCallback cb'-    connectSignalFunPtr obj "writable-change-event" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@writable-change-event@” 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' settings #writableChangeEvent callback-@--}-afterSettingsWritableChangeEvent :: (IsSettings a, MonadIO m) => a -> SettingsWritableChangeEventCallback -> m SignalHandlerId-afterSettingsWritableChangeEvent obj cb = liftIO $ do-    let cb' = wrap_SettingsWritableChangeEventCallback cb-    cb'' <- mk_SettingsWritableChangeEventCallback cb'-    connectSignalFunPtr obj "writable-change-event" cb'' SignalConnectAfter----- signal Settings::writable-changed-{- |-The \"writable-changed\" signal is emitted when the writability of a-key has potentially changed.  You should call-'GI.Gio.Objects.Settings.settingsIsWritable' in order to determine the new status.--This signal supports detailed connections.  You can connect to the-detailed signal \"writable-changed::x\" in order to only receive-callbacks when the writability of \"x\" changes.--}-type SettingsWritableChangedCallback =-    T.Text-    {- ^ /@key@/: the key -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SettingsWritableChangedCallback`@.-noSettingsWritableChangedCallback :: Maybe SettingsWritableChangedCallback-noSettingsWritableChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SettingsWritableChangedCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SettingsWritableChangedCallback`.-foreign import ccall "wrapper"-    mk_SettingsWritableChangedCallback :: C_SettingsWritableChangedCallback -> IO (FunPtr C_SettingsWritableChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SettingsWritableChanged :: MonadIO m => SettingsWritableChangedCallback -> m (GClosure C_SettingsWritableChangedCallback)-genClosure_SettingsWritableChanged cb = liftIO $ do-    let cb' = wrap_SettingsWritableChangedCallback cb-    mk_SettingsWritableChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SettingsWritableChangedCallback` into a `C_SettingsWritableChangedCallback`.-wrap_SettingsWritableChangedCallback ::-    SettingsWritableChangedCallback ->-    C_SettingsWritableChangedCallback-wrap_SettingsWritableChangedCallback _cb _ key _ = do-    key' <- cstringToText key-    _cb  key'---{- |-Connect a signal handler for the “@writable-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' settings #writableChanged callback-@--}-onSettingsWritableChanged :: (IsSettings a, MonadIO m) => a -> SettingsWritableChangedCallback -> m SignalHandlerId-onSettingsWritableChanged obj cb = liftIO $ do-    let cb' = wrap_SettingsWritableChangedCallback cb-    cb'' <- mk_SettingsWritableChangedCallback cb'-    connectSignalFunPtr obj "writable-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@writable-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' settings #writableChanged callback-@--}-afterSettingsWritableChanged :: (IsSettings a, MonadIO m) => a -> SettingsWritableChangedCallback -> m SignalHandlerId-afterSettingsWritableChanged obj cb = liftIO $ do-    let cb' = wrap_SettingsWritableChangedCallback cb-    cb'' <- mk_SettingsWritableChangedCallback cb'-    connectSignalFunPtr obj "writable-changed" cb'' SignalConnectAfter----- VVV Prop "backend"-   -- Type: TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@backend@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' settings #backend-@--}-getSettingsBackend :: (MonadIO m, IsSettings o) => o -> m (Maybe Gio.SettingsBackend.SettingsBackend)-getSettingsBackend obj = liftIO $ B.Properties.getObjectPropertyObject obj "backend" Gio.SettingsBackend.SettingsBackend--{- |-Construct a `GValueConstruct` with valid value for the “@backend@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSettingsBackend :: (IsSettings o, Gio.SettingsBackend.IsSettingsBackend a) => a -> IO (GValueConstruct o)-constructSettingsBackend val = B.Properties.constructObjectPropertyObject "backend" (Just val)--#if ENABLE_OVERLOADING-data SettingsBackendPropertyInfo-instance AttrInfo SettingsBackendPropertyInfo where-    type AttrAllowedOps SettingsBackendPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsBackendPropertyInfo = Gio.SettingsBackend.IsSettingsBackend-    type AttrBaseTypeConstraint SettingsBackendPropertyInfo = IsSettings-    type AttrGetType SettingsBackendPropertyInfo = (Maybe Gio.SettingsBackend.SettingsBackend)-    type AttrLabel SettingsBackendPropertyInfo = "backend"-    type AttrOrigin SettingsBackendPropertyInfo = Settings-    attrGet _ = getSettingsBackend-    attrSet _ = undefined-    attrConstruct _ = constructSettingsBackend-    attrClear _ = undefined-#endif---- VVV Prop "delay-apply"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@delay-apply@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' settings #delayApply-@--}-getSettingsDelayApply :: (MonadIO m, IsSettings o) => o -> m Bool-getSettingsDelayApply obj = liftIO $ B.Properties.getObjectPropertyBool obj "delay-apply"--#if ENABLE_OVERLOADING-data SettingsDelayApplyPropertyInfo-instance AttrInfo SettingsDelayApplyPropertyInfo where-    type AttrAllowedOps SettingsDelayApplyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SettingsDelayApplyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SettingsDelayApplyPropertyInfo = IsSettings-    type AttrGetType SettingsDelayApplyPropertyInfo = Bool-    type AttrLabel SettingsDelayApplyPropertyInfo = "delay-apply"-    type AttrOrigin SettingsDelayApplyPropertyInfo = Settings-    attrGet _ = getSettingsDelayApply-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "has-unapplied"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@has-unapplied@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' settings #hasUnapplied-@--}-getSettingsHasUnapplied :: (MonadIO m, IsSettings o) => o -> m Bool-getSettingsHasUnapplied obj = liftIO $ B.Properties.getObjectPropertyBool obj "has-unapplied"--#if ENABLE_OVERLOADING-data SettingsHasUnappliedPropertyInfo-instance AttrInfo SettingsHasUnappliedPropertyInfo where-    type AttrAllowedOps SettingsHasUnappliedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SettingsHasUnappliedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SettingsHasUnappliedPropertyInfo = IsSettings-    type AttrGetType SettingsHasUnappliedPropertyInfo = Bool-    type AttrLabel SettingsHasUnappliedPropertyInfo = "has-unapplied"-    type AttrOrigin SettingsHasUnappliedPropertyInfo = Settings-    attrGet _ = getSettingsHasUnapplied-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' settings #path-@--}-getSettingsPath :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)-getSettingsPath obj = liftIO $ B.Properties.getObjectPropertyString obj "path"--{- |-Construct a `GValueConstruct` with valid value for the “@path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSettingsPath :: (IsSettings o) => T.Text -> IO (GValueConstruct o)-constructSettingsPath val = B.Properties.constructObjectPropertyString "path" (Just val)--#if ENABLE_OVERLOADING-data SettingsPathPropertyInfo-instance AttrInfo SettingsPathPropertyInfo where-    type AttrAllowedOps SettingsPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsPathPropertyInfo = IsSettings-    type AttrGetType SettingsPathPropertyInfo = (Maybe T.Text)-    type AttrLabel SettingsPathPropertyInfo = "path"-    type AttrOrigin SettingsPathPropertyInfo = Settings-    attrGet _ = getSettingsPath-    attrSet _ = undefined-    attrConstruct _ = constructSettingsPath-    attrClear _ = undefined-#endif---- VVV Prop "schema"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@schema@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' settings #schema-@--}-getSettingsSchema :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)-getSettingsSchema obj = liftIO $ B.Properties.getObjectPropertyString obj "schema"--{- |-Construct a `GValueConstruct` with valid value for the “@schema@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSettingsSchema :: (IsSettings o) => T.Text -> IO (GValueConstruct o)-constructSettingsSchema val = B.Properties.constructObjectPropertyString "schema" (Just val)--#if ENABLE_OVERLOADING-data SettingsSchemaPropertyInfo-instance AttrInfo SettingsSchemaPropertyInfo where-    type AttrAllowedOps SettingsSchemaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsSchemaPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsSchemaPropertyInfo = IsSettings-    type AttrGetType SettingsSchemaPropertyInfo = (Maybe T.Text)-    type AttrLabel SettingsSchemaPropertyInfo = "schema"-    type AttrOrigin SettingsSchemaPropertyInfo = Settings-    attrGet _ = getSettingsSchema-    attrSet _ = undefined-    attrConstruct _ = constructSettingsSchema-    attrClear _ = undefined-#endif---- VVV Prop "schema-id"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@schema-id@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' settings #schemaId-@--}-getSettingsSchemaId :: (MonadIO m, IsSettings o) => o -> m (Maybe T.Text)-getSettingsSchemaId obj = liftIO $ B.Properties.getObjectPropertyString obj "schema-id"--{- |-Construct a `GValueConstruct` with valid value for the “@schema-id@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSettingsSchemaId :: (IsSettings o) => T.Text -> IO (GValueConstruct o)-constructSettingsSchemaId val = B.Properties.constructObjectPropertyString "schema-id" (Just val)--#if ENABLE_OVERLOADING-data SettingsSchemaIdPropertyInfo-instance AttrInfo SettingsSchemaIdPropertyInfo where-    type AttrAllowedOps SettingsSchemaIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsSchemaIdPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SettingsSchemaIdPropertyInfo = IsSettings-    type AttrGetType SettingsSchemaIdPropertyInfo = (Maybe T.Text)-    type AttrLabel SettingsSchemaIdPropertyInfo = "schema-id"-    type AttrOrigin SettingsSchemaIdPropertyInfo = Settings-    attrGet _ = getSettingsSchemaId-    attrSet _ = undefined-    attrConstruct _ = constructSettingsSchemaId-    attrClear _ = undefined-#endif---- VVV Prop "settings-schema"-   -- Type: TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@settings-schema@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' settings #settingsSchema-@--}-getSettingsSettingsSchema :: (MonadIO m, IsSettings o) => o -> m (Maybe Gio.SettingsSchema.SettingsSchema)-getSettingsSettingsSchema obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "settings-schema" Gio.SettingsSchema.SettingsSchema--{- |-Construct a `GValueConstruct` with valid value for the “@settings-schema@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSettingsSettingsSchema :: (IsSettings o) => Gio.SettingsSchema.SettingsSchema -> IO (GValueConstruct o)-constructSettingsSettingsSchema val = B.Properties.constructObjectPropertyBoxed "settings-schema" (Just val)--#if ENABLE_OVERLOADING-data SettingsSettingsSchemaPropertyInfo-instance AttrInfo SettingsSettingsSchemaPropertyInfo where-    type AttrAllowedOps SettingsSettingsSchemaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SettingsSettingsSchemaPropertyInfo = (~) Gio.SettingsSchema.SettingsSchema-    type AttrBaseTypeConstraint SettingsSettingsSchemaPropertyInfo = IsSettings-    type AttrGetType SettingsSettingsSchemaPropertyInfo = (Maybe Gio.SettingsSchema.SettingsSchema)-    type AttrLabel SettingsSettingsSchemaPropertyInfo = "settings-schema"-    type AttrOrigin SettingsSettingsSchemaPropertyInfo = Settings-    attrGet _ = getSettingsSettingsSchema-    attrSet _ = undefined-    attrConstruct _ = constructSettingsSettingsSchema-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Settings-type instance O.AttributeList Settings = SettingsAttributeList-type SettingsAttributeList = ('[ '("backend", SettingsBackendPropertyInfo), '("delayApply", SettingsDelayApplyPropertyInfo), '("hasUnapplied", SettingsHasUnappliedPropertyInfo), '("path", SettingsPathPropertyInfo), '("schema", SettingsSchemaPropertyInfo), '("schemaId", SettingsSchemaIdPropertyInfo), '("settingsSchema", SettingsSettingsSchemaPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-settingsBackend :: AttrLabelProxy "backend"-settingsBackend = AttrLabelProxy--settingsDelayApply :: AttrLabelProxy "delayApply"-settingsDelayApply = AttrLabelProxy--settingsHasUnapplied :: AttrLabelProxy "hasUnapplied"-settingsHasUnapplied = AttrLabelProxy--settingsPath :: AttrLabelProxy "path"-settingsPath = AttrLabelProxy--settingsSchema :: AttrLabelProxy "schema"-settingsSchema = AttrLabelProxy--settingsSchemaId :: AttrLabelProxy "schemaId"-settingsSchemaId = AttrLabelProxy--settingsSettingsSchema :: AttrLabelProxy "settingsSchema"-settingsSettingsSchema = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data SettingsChangeEventSignalInfo-instance SignalInfo SettingsChangeEventSignalInfo where-    type HaskellCallbackType SettingsChangeEventSignalInfo = SettingsChangeEventCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SettingsChangeEventCallback cb-        cb'' <- mk_SettingsChangeEventCallback cb'-        connectSignalFunPtr obj "change-event" cb'' connectMode--data SettingsChangedSignalInfo-instance SignalInfo SettingsChangedSignalInfo where-    type HaskellCallbackType SettingsChangedSignalInfo = SettingsChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SettingsChangedCallback cb-        cb'' <- mk_SettingsChangedCallback cb'-        connectSignalFunPtr obj "changed" cb'' connectMode--data SettingsWritableChangeEventSignalInfo-instance SignalInfo SettingsWritableChangeEventSignalInfo where-    type HaskellCallbackType SettingsWritableChangeEventSignalInfo = SettingsWritableChangeEventCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SettingsWritableChangeEventCallback cb-        cb'' <- mk_SettingsWritableChangeEventCallback cb'-        connectSignalFunPtr obj "writable-change-event" cb'' connectMode--data SettingsWritableChangedSignalInfo-instance SignalInfo SettingsWritableChangedSignalInfo where-    type HaskellCallbackType SettingsWritableChangedSignalInfo = SettingsWritableChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SettingsWritableChangedCallback cb-        cb'' <- mk_SettingsWritableChangedCallback cb'-        connectSignalFunPtr obj "writable-changed" cb'' connectMode--type instance O.SignalList Settings = SettingsSignalList-type SettingsSignalList = ('[ '("changeEvent", SettingsChangeEventSignalInfo), '("changed", SettingsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("writableChangeEvent", SettingsWritableChangeEventSignalInfo), '("writableChanged", SettingsWritableChangedSignalInfo)] :: [(Symbol, *)])--#endif---- method Settings::new--- method type : Constructor--- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the id of the schema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Settings"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_new" g_settings_new :: -    CString ->                              -- schema_id : TBasicType TUTF8-    IO (Ptr Settings)--{- |-Creates a new 'GI.Gio.Objects.Settings.Settings' object with the schema specified by-/@schemaId@/.--Signals on the newly created 'GI.Gio.Objects.Settings.Settings' object will be dispatched-via the thread-default 'GI.GLib.Structs.MainContext.MainContext' in effect at the time of the-call to 'GI.Gio.Objects.Settings.settingsNew'.  The new 'GI.Gio.Objects.Settings.Settings' will hold a reference-on the context.  See 'GI.GLib.Structs.MainContext.mainContextPushThreadDefault'.--/Since: 2.26/--}-settingsNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@schemaId@/: the id of the schema -}-    -> m Settings-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Settings.Settings' object -}-settingsNew schemaId = liftIO $ do-    schemaId' <- textToCString schemaId-    result <- g_settings_new schemaId'-    checkUnexpectedReturnNULL "settingsNew" result-    result' <- (wrapObject Settings) result-    freeMem schemaId'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Settings::new_full--- method type : Constructor--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GSettingsBackend", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the path to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Settings"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_new_full" g_settings_new_full :: -    Ptr Gio.SettingsSchema.SettingsSchema -> -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    Ptr Gio.SettingsBackend.SettingsBackend -> -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr Settings)--{- |-Creates a new 'GI.Gio.Objects.Settings.Settings' object with a given schema, backend and-path.--It should be extremely rare that you ever want to use this function.-It is made available for advanced use-cases (such as plugin systems-that want to provide access to schemas loaded from custom locations,-etc).--At the most basic level, a 'GI.Gio.Objects.Settings.Settings' object is a pure composition of-4 things: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema', a 'GI.Gio.Objects.SettingsBackend.SettingsBackend', a path within that-backend, and a 'GI.GLib.Structs.MainContext.MainContext' to which signals are dispatched.--This constructor therefore gives you full control over constructing-'GI.Gio.Objects.Settings.Settings' instances.  The first 3 parameters are given directly as-/@schema@/, /@backend@/ and /@path@/, and the main context is taken from the-thread-default (as per 'GI.Gio.Objects.Settings.settingsNew').--If /@backend@/ is 'Nothing' then the default backend is used.--If /@path@/ is 'Nothing' then the path from the schema is used.  It is an-error if /@path@/ is 'Nothing' and the schema has no path of its own or if-/@path@/ is non-'Nothing' and not equal to the path that the schema does-have.--/Since: 2.32/--}-settingsNewFull ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.SettingsBackend.IsSettingsBackend a) =>-    Gio.SettingsSchema.SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> Maybe (a)-    {- ^ /@backend@/: a 'GI.Gio.Objects.SettingsBackend.SettingsBackend' -}-    -> Maybe (T.Text)-    {- ^ /@path@/: the path to use -}-    -> m Settings-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Settings.Settings' object -}-settingsNewFull schema backend path = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    maybeBackend <- case backend of-        Nothing -> return nullPtr-        Just jBackend -> do-            jBackend' <- unsafeManagedPtrCastPtr jBackend-            return jBackend'-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    result <- g_settings_new_full schema' maybeBackend maybePath-    checkUnexpectedReturnNULL "settingsNewFull" result-    result' <- (wrapObject Settings) result-    touchManagedPtr schema-    whenJust backend touchManagedPtr-    freeMem maybePath-    return result'--#if ENABLE_OVERLOADING-#endif---- method Settings::new_with_backend--- method type : Constructor--- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the id of the schema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GSettingsBackend to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Settings"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_new_with_backend" g_settings_new_with_backend :: -    CString ->                              -- schema_id : TBasicType TUTF8-    Ptr Gio.SettingsBackend.SettingsBackend -> -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    IO (Ptr Settings)--{- |-Creates a new 'GI.Gio.Objects.Settings.Settings' object with the schema specified by-/@schemaId@/ and a given 'GI.Gio.Objects.SettingsBackend.SettingsBackend'.--Creating a 'GI.Gio.Objects.Settings.Settings' object with a different backend allows accessing-settings from a database other than the usual one. For example, it may make-sense to pass a backend corresponding to the \"defaults\" settings database on-the system to get a settings object that modifies the system default-settings instead of the settings for this user.--/Since: 2.26/--}-settingsNewWithBackend ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.SettingsBackend.IsSettingsBackend a) =>-    T.Text-    {- ^ /@schemaId@/: the id of the schema -}-    -> a-    {- ^ /@backend@/: the 'GI.Gio.Objects.SettingsBackend.SettingsBackend' to use -}-    -> m Settings-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Settings.Settings' object -}-settingsNewWithBackend schemaId backend = liftIO $ do-    schemaId' <- textToCString schemaId-    backend' <- unsafeManagedPtrCastPtr backend-    result <- g_settings_new_with_backend schemaId' backend'-    checkUnexpectedReturnNULL "settingsNewWithBackend" result-    result' <- (wrapObject Settings) result-    touchManagedPtr backend-    freeMem schemaId'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Settings::new_with_backend_and_path--- method type : Constructor--- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the id of the schema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GSettingsBackend to use", 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 "the path to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Settings"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_new_with_backend_and_path" g_settings_new_with_backend_and_path :: -    CString ->                              -- schema_id : TBasicType TUTF8-    Ptr Gio.SettingsBackend.SettingsBackend -> -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr Settings)--{- |-Creates a new 'GI.Gio.Objects.Settings.Settings' object with the schema specified by-/@schemaId@/ and a given 'GI.Gio.Objects.SettingsBackend.SettingsBackend' and path.--This is a mix of 'GI.Gio.Objects.Settings.settingsNewWithBackend' and-'GI.Gio.Objects.Settings.settingsNewWithPath'.--/Since: 2.26/--}-settingsNewWithBackendAndPath ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.SettingsBackend.IsSettingsBackend a) =>-    T.Text-    {- ^ /@schemaId@/: the id of the schema -}-    -> a-    {- ^ /@backend@/: the 'GI.Gio.Objects.SettingsBackend.SettingsBackend' to use -}-    -> T.Text-    {- ^ /@path@/: the path to use -}-    -> m Settings-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Settings.Settings' object -}-settingsNewWithBackendAndPath schemaId backend path = liftIO $ do-    schemaId' <- textToCString schemaId-    backend' <- unsafeManagedPtrCastPtr backend-    path' <- textToCString path-    result <- g_settings_new_with_backend_and_path schemaId' backend' path'-    checkUnexpectedReturnNULL "settingsNewWithBackendAndPath" result-    result' <- (wrapObject Settings) result-    touchManagedPtr backend-    freeMem schemaId'-    freeMem path'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Settings::new_with_path--- method type : Constructor--- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the id of the schema", 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 "the path to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Settings"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_new_with_path" g_settings_new_with_path :: -    CString ->                              -- schema_id : TBasicType TUTF8-    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr Settings)--{- |-Creates a new 'GI.Gio.Objects.Settings.Settings' object with the relocatable schema specified-by /@schemaId@/ and a given path.--You only need to do this if you want to directly create a settings-object with a schema that doesn\'t have a specified path of its own.-That\'s quite rare.--It is a programmer error to call this function for a schema that-has an explicitly specified path.--It is a programmer error if /@path@/ is not a valid path.  A valid path-begins and ends with \'\/\' and does not contain two consecutive \'\/\'-characters.--/Since: 2.26/--}-settingsNewWithPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@schemaId@/: the id of the schema -}-    -> T.Text-    {- ^ /@path@/: the path to use -}-    -> m Settings-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Settings.Settings' object -}-settingsNewWithPath schemaId path = liftIO $ do-    schemaId' <- textToCString schemaId-    path' <- textToCString path-    result <- g_settings_new_with_path schemaId' path'-    checkUnexpectedReturnNULL "settingsNewWithPath" result-    result' <- (wrapObject Settings) result-    freeMem schemaId'-    freeMem path'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Settings::apply--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings instance", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_apply" g_settings_apply :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    IO ()--{- |-Applies any changes that have been made to the settings.  This-function does nothing unless /@settings@/ is in \'delay-apply\' mode;-see 'GI.Gio.Objects.Settings.settingsDelay'.  In the normal case settings are always-applied immediately.--}-settingsApply ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' instance -}-    -> m ()-settingsApply settings = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    g_settings_apply settings'-    touchManagedPtr settings-    return ()--#if ENABLE_OVERLOADING-data SettingsApplyMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsApplyMethodInfo a signature where-    overloadedMethod _ = settingsApply--#endif---- method Settings::bind--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to bind", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the property to bind", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "SettingsBindFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags for the binding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_bind" g_settings_bind :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Ptr GObject.Object.Object ->            -- object : TInterface (Name {namespace = "GObject", name = "Object"})-    CString ->                              -- property : TBasicType TUTF8-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "SettingsBindFlags"})-    IO ()--{- |-Create a binding between the /@key@/ in the /@settings@/ object-and the property /@property@/ of /@object@/.--The binding uses the default GIO mapping functions to map-between the settings and property values. These functions-handle booleans, numeric types and string types in a-straightforward way. Use @/g_settings_bind_with_mapping()/@ if-you need a custom mapping, or map between types that are not-supported by the default mapping functions.--Unless the /@flags@/ include 'GI.Gio.Flags.SettingsBindFlagsNoSensitivity', this-function also establishes a binding between the writability of-/@key@/ and the \"sensitive\" property of /@object@/ (if /@object@/ has-a boolean property by that name). See 'GI.Gio.Objects.Settings.settingsBindWritable'-for more details about writable bindings.--Note that the lifecycle of the binding is tied to /@object@/,-and that you can have only one binding per object property.-If you bind the same property twice on the same object, the second-binding overrides the first one.--/Since: 2.26/--}-settingsBind ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a, GObject.Object.IsObject b) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to bind -}-    -> b-    {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object' -}-    -> T.Text-    {- ^ /@property@/: the name of the property to bind -}-    -> [Gio.Flags.SettingsBindFlags]-    {- ^ /@flags@/: flags for the binding -}-    -> m ()-settingsBind settings key object property flags = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    object' <- unsafeManagedPtrCastPtr object-    property' <- textToCString property-    let flags' = gflagsToWord flags-    g_settings_bind settings' key' object' property' flags'-    touchManagedPtr settings-    touchManagedPtr object-    freeMem key'-    freeMem property'-    return ()--#if ENABLE_OVERLOADING-data SettingsBindMethodInfo-instance (signature ~ (T.Text -> b -> T.Text -> [Gio.Flags.SettingsBindFlags] -> m ()), MonadIO m, IsSettings a, GObject.Object.IsObject b) => O.MethodInfo SettingsBindMethodInfo a signature where-    overloadedMethod _ = settingsBind--#endif---- method Settings::bind_writable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to bind", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GObject", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a boolean property to bind", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to 'invert' the value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_bind_writable" g_settings_bind_writable :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Ptr GObject.Object.Object ->            -- object : TInterface (Name {namespace = "GObject", name = "Object"})-    CString ->                              -- property : TBasicType TUTF8-    CInt ->                                 -- inverted : TBasicType TBoolean-    IO ()--{- |-Create a binding between the writability of /@key@/ in the-/@settings@/ object and the property /@property@/ of /@object@/.-The property must be boolean; \"sensitive\" or \"visible\"-properties of widgets are the most likely candidates.--Writable bindings are always uni-directional; changes of the-writability of the setting will be propagated to the object-property, not the other way.--When the /@inverted@/ argument is 'True', the binding inverts the-value as it passes from the setting to the object, i.e. /@property@/-will be set to 'True' if the key is not writable.--Note that the lifecycle of the binding is tied to /@object@/,-and that you can have only one binding per object property.-If you bind the same property twice on the same object, the second-binding overrides the first one.--/Since: 2.26/--}-settingsBindWritable ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a, GObject.Object.IsObject b) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to bind -}-    -> b-    {- ^ /@object@/: a 'GI.GObject.Objects.Object.Object' -}-    -> T.Text-    {- ^ /@property@/: the name of a boolean property to bind -}-    -> Bool-    {- ^ /@inverted@/: whether to \'invert\' the value -}-    -> m ()-settingsBindWritable settings key object property inverted = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    object' <- unsafeManagedPtrCastPtr object-    property' <- textToCString property-    let inverted' = (fromIntegral . fromEnum) inverted-    g_settings_bind_writable settings' key' object' property' inverted'-    touchManagedPtr settings-    touchManagedPtr object-    freeMem key'-    freeMem property'-    return ()--#if ENABLE_OVERLOADING-data SettingsBindWritableMethodInfo-instance (signature ~ (T.Text -> b -> T.Text -> Bool -> m ()), MonadIO m, IsSettings a, GObject.Object.IsObject b) => O.MethodInfo SettingsBindWritableMethodInfo a signature where-    overloadedMethod _ = settingsBindWritable--#endif---- method Settings::create_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings", 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 "the name of a key in @settings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Action"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_create_action" g_settings_create_action :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr Gio.Action.Action)--{- |-Creates a 'GI.Gio.Interfaces.Action.Action' corresponding to a given 'GI.Gio.Objects.Settings.Settings' key.--The action has the same name as the key.--The value of the key becomes the state of the action and the action-is enabled when the key is writable.  Changing the state of the-action results in the key being written to.  Changes to the value or-writability of the key cause appropriate change notifications to be-emitted for the action.--For boolean-valued keys, action activations take no parameter and-result in the toggling of the value.  For all other types,-activations take the new value for the key (which must have the-correct type).--/Since: 2.32/--}-settingsCreateAction ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' -}-    -> T.Text-    {- ^ /@key@/: the name of a key in /@settings@/ -}-    -> m Gio.Action.Action-    {- ^ __Returns:__ a new 'GI.Gio.Interfaces.Action.Action' -}-settingsCreateAction settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_create_action settings' key'-    checkUnexpectedReturnNULL "settingsCreateAction" result-    result' <- (wrapObject Gio.Action.Action) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsCreateActionMethodInfo-instance (signature ~ (T.Text -> m Gio.Action.Action), MonadIO m, IsSettings a) => O.MethodInfo SettingsCreateActionMethodInfo a signature where-    overloadedMethod _ = settingsCreateAction--#endif---- method Settings::delay--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_delay" g_settings_delay :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    IO ()--{- |-Changes the 'GI.Gio.Objects.Settings.Settings' object into \'delay-apply\' mode. In this-mode, changes to /@settings@/ are not immediately propagated to the-backend, but kept locally until 'GI.Gio.Objects.Settings.settingsApply' is called.--/Since: 2.26/--}-settingsDelay ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> m ()-settingsDelay settings = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    g_settings_delay settings'-    touchManagedPtr settings-    return ()--#if ENABLE_OVERLOADING-data SettingsDelayMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsDelayMethodInfo a signature where-    overloadedMethod _ = settingsDelay--#endif---- method Settings::get_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", 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 "g_settings_get_boolean" g_settings_get_boolean :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO CInt--{- |-Gets the value that is stored at /@key@/ in /@settings@/.--A convenience variant of @/g_settings_get()/@ for booleans.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a boolean type in the schema for /@settings@/.--/Since: 2.26/--}-settingsGetBoolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m Bool-    {- ^ __Returns:__ a boolean -}-settingsGetBoolean settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_boolean settings' key'-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsGetBooleanMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetBooleanMethodInfo a signature where-    overloadedMethod _ = settingsGetBoolean--#endif---- method Settings::get_child--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the child schema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Settings"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_child" g_settings_get_child :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Settings)--{- |-Creates a child settings object which has a base path of-@base-path\/\@name@, where @base-path@ is the base path of-/@settings@/.--The schema for the child settings object must have been declared-in the schema of /@settings@/ using a \<child> element.--/Since: 2.26/--}-settingsGetChild ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@name@/: the name of the child schema -}-    -> m Settings-    {- ^ __Returns:__ a \'child\' settings object -}-settingsGetChild settings name = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    name' <- textToCString name-    result <- g_settings_get_child settings' name'-    checkUnexpectedReturnNULL "settingsGetChild" result-    result' <- (wrapObject Settings) result-    touchManagedPtr settings-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data SettingsGetChildMethodInfo-instance (signature ~ (T.Text -> m Settings), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetChildMethodInfo a signature where-    overloadedMethod _ = settingsGetChild--#endif---- method Settings::get_default_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the default value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_default_value" g_settings_get_default_value :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr GVariant)--{- |-Gets the \"default value\" of a key.--This is the value that would be read if 'GI.Gio.Objects.Settings.settingsReset' were to be-called on the key.--Note that this may be a different value than returned by-'GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyGetDefaultValue' if the system administrator-has provided a default value.--Comparing the return values of 'GI.Gio.Objects.Settings.settingsGetDefaultValue' and-'GI.Gio.Objects.Settings.settingsGetValue' is not sufficient for determining if a value-has been set because the user may have explicitly set the value to-something that happens to be equal to the default.  The difference-here is that if the default changes in the future, the user\'s key-will still be set.--This function may be useful for adding an indication to a UI of what-the default value was before the user set it.--It is a programmer error to give a /@key@/ that isn\'t contained in the-schema for /@settings@/.--/Since: 2.40/--}-settingsGetDefaultValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the default value for -}-    -> m (Maybe GVariant)-    {- ^ __Returns:__ the default value -}-settingsGetDefaultValue settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_default_value settings' key'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- B.GVariant.wrapGVariantPtr result'-        return result''-    touchManagedPtr settings-    freeMem key'-    return maybeResult--#if ENABLE_OVERLOADING-data SettingsGetDefaultValueMethodInfo-instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDefaultValueMethodInfo a signature where-    overloadedMethod _ = settingsGetDefaultValue--#endif---- method Settings::get_double--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_double" g_settings_get_double :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO CDouble--{- |-Gets the value that is stored at /@key@/ in /@settings@/.--A convenience variant of @/g_settings_get()/@ for doubles.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a \'double\' type in the schema for /@settings@/.--/Since: 2.26/--}-settingsGetDouble ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m Double-    {- ^ __Returns:__ a double -}-settingsGetDouble settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_double settings' key'-    let result' = realToFrac result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsGetDoubleMethodInfo-instance (signature ~ (T.Text -> m Double), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetDoubleMethodInfo a signature where-    overloadedMethod _ = settingsGetDouble--#endif---- method Settings::get_enum--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", 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 "g_settings_get_enum" g_settings_get_enum :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO Int32--{- |-Gets the value that is stored in /@settings@/ for /@key@/ and converts it-to the enum value that it represents.--In order to use this function the type of the value must be a string-and it must be marked in the schema file as an enumerated type.--It is a programmer error to give a /@key@/ that isn\'t contained in the-schema for /@settings@/ or is not marked as an enumerated type.--If the value stored in the configuration database is not a valid-value for the enumerated type then this function will return the-default value.--/Since: 2.26/--}-settingsGetEnum ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m Int32-    {- ^ __Returns:__ the enum value -}-settingsGetEnum settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_enum settings' key'-    touchManagedPtr settings-    freeMem key'-    return result--#if ENABLE_OVERLOADING-data SettingsGetEnumMethodInfo-instance (signature ~ (T.Text -> m Int32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetEnumMethodInfo a signature where-    overloadedMethod _ = settingsGetEnum--#endif---- method Settings::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", 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 "g_settings_get_flags" g_settings_get_flags :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO Word32--{- |-Gets the value that is stored in /@settings@/ for /@key@/ and converts it-to the flags value that it represents.--In order to use this function the type of the value must be an array-of strings and it must be marked in the schema file as an flags type.--It is a programmer error to give a /@key@/ that isn\'t contained in the-schema for /@settings@/ or is not marked as a flags type.--If the value stored in the configuration database is not a valid-value for the flags type then this function will return the default-value.--/Since: 2.26/--}-settingsGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m Word32-    {- ^ __Returns:__ the flags value -}-settingsGetFlags settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_flags settings' key'-    touchManagedPtr settings-    freeMem key'-    return result--#if ENABLE_OVERLOADING-data SettingsGetFlagsMethodInfo-instance (signature ~ (T.Text -> m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetFlagsMethodInfo a signature where-    overloadedMethod _ = settingsGetFlags--#endif---- method Settings::get_has_unapplied--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "g_settings_get_has_unapplied" g_settings_get_has_unapplied :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    IO CInt--{- |-Returns whether the 'GI.Gio.Objects.Settings.Settings' object has any unapplied-changes.  This can only be the case if it is in \'delayed-apply\' mode.--/Since: 2.26/--}-settingsGetHasUnapplied ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@settings@/ has unapplied changes -}-settingsGetHasUnapplied settings = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    result <- g_settings_get_has_unapplied settings'-    let result' = (/= 0) result-    touchManagedPtr settings-    return result'--#if ENABLE_OVERLOADING-data SettingsGetHasUnappliedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetHasUnappliedMethodInfo a signature where-    overloadedMethod _ = settingsGetHasUnapplied--#endif---- method Settings::get_int--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", 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 "g_settings_get_int" g_settings_get_int :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO Int32--{- |-Gets the value that is stored at /@key@/ in /@settings@/.--A convenience variant of @/g_settings_get()/@ for 32-bit integers.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a int32 type in the schema for /@settings@/.--/Since: 2.26/--}-settingsGetInt ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m Int32-    {- ^ __Returns:__ an integer -}-settingsGetInt settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_int settings' key'-    touchManagedPtr settings-    freeMem key'-    return result--#if ENABLE_OVERLOADING-data SettingsGetIntMethodInfo-instance (signature ~ (T.Text -> m Int32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetIntMethodInfo a signature where-    overloadedMethod _ = settingsGetInt--#endif---- method Settings::get_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_int64" g_settings_get_int64 :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO Int64--{- |-Gets the value that is stored at /@key@/ in /@settings@/.--A convenience variant of @/g_settings_get()/@ for 64-bit integers.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a int64 type in the schema for /@settings@/.--/Since: 2.50/--}-settingsGetInt64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m Int64-    {- ^ __Returns:__ a 64-bit integer -}-settingsGetInt64 settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_int64 settings' key'-    touchManagedPtr settings-    freeMem key'-    return result--#if ENABLE_OVERLOADING-data SettingsGetInt64MethodInfo-instance (signature ~ (T.Text -> m Int64), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetInt64MethodInfo a signature where-    overloadedMethod _ = settingsGetInt64--#endif---- method Settings::get_mapped--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mapping", argType = TInterface (Name {namespace = "Gio", name = "SettingsGetMapping"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the function to map the value in the\n          settings database to the value used by the application", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for @mapping", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_mapped" g_settings_get_mapped :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    FunPtr Gio.Callbacks.C_SettingsGetMapping -> -- mapping : TInterface (Name {namespace = "Gio", name = "SettingsGetMapping"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO (Ptr ())--{- |-Gets the value that is stored at /@key@/ in /@settings@/, subject to-application-level validation\/mapping.--You should use this function when the application needs to perform-some processing on the value of the key (for example, parsing).  The-/@mapping@/ function performs that processing.  If the function-indicates that the processing was unsuccessful (due to a parse error,-for example) then the mapping is tried again with another value.--This allows a robust \'fall back to defaults\' behaviour to be-implemented somewhat automatically.--The first value that is tried is the user\'s setting for the key.  If-the mapping function fails to map this value, other values may be-tried in an unspecified order (system or site defaults, translated-schema default values, untranslated schema default values, etc).--If the mapping function fails for all possible values, one additional-attempt is made: the mapping function is called with a 'Nothing' value.-If the mapping function still indicates failure at this point then-the application will be aborted.--The result parameter for the /@mapping@/ function is pointed to a-@/gpointer/@ which is initially set to 'Nothing'.  The same pointer is given-to each invocation of /@mapping@/.  The final value of that @/gpointer/@ is-what is returned by this function.  'Nothing' is valid; it is returned-just as any other value would be.--}-settingsGetMapped ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> Gio.Callbacks.SettingsGetMapping-    {- ^ /@mapping@/: the function to map the value in the-          settings database to the value used by the application -}-    -> m (Ptr ())-    {- ^ __Returns:__ the result, which may be 'Nothing' -}-settingsGetMapped settings key mapping = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    mapping' <- Gio.Callbacks.mk_SettingsGetMapping (Gio.Callbacks.wrap_SettingsGetMapping Nothing (Gio.Callbacks.drop_closures_SettingsGetMapping mapping))-    let userData = nullPtr-    result <- g_settings_get_mapped settings' key' mapping' userData-    safeFreeFunPtr $ castFunPtrToPtr mapping'-    touchManagedPtr settings-    freeMem key'-    return result--#if ENABLE_OVERLOADING-data SettingsGetMappedMethodInfo-instance (signature ~ (T.Text -> Gio.Callbacks.SettingsGetMapping -> m (Ptr ())), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetMappedMethodInfo a signature where-    overloadedMethod _ = settingsGetMapped--#endif---- method Settings::get_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings", 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 "the key to query the range of", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_range" g_settings_get_range :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr GVariant)--{-# DEPRECATED settingsGetRange ["(Since version 2.40)","Use 'GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyGetRange' instead."] #-}-{- |-Queries the range of a key.--/Since: 2.28/--}-settingsGetRange ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' -}-    -> T.Text-    {- ^ /@key@/: the key to query the range of -}-    -> m GVariant-settingsGetRange settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_range settings' key'-    checkUnexpectedReturnNULL "settingsGetRange" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsGetRangeMethodInfo-instance (signature ~ (T.Text -> m GVariant), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetRangeMethodInfo a signature where-    overloadedMethod _ = settingsGetRange--#endif---- method Settings::get_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", 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 "g_settings_get_string" g_settings_get_string :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO CString--{- |-Gets the value that is stored at /@key@/ in /@settings@/.--A convenience variant of @/g_settings_get()/@ for strings.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a string type in the schema for /@settings@/.--/Since: 2.26/--}-settingsGetString ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m T.Text-    {- ^ __Returns:__ a newly-allocated string -}-settingsGetString settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_string settings' key'-    checkUnexpectedReturnNULL "settingsGetString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsGetStringMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetStringMethodInfo a signature where-    overloadedMethod _ = settingsGetString--#endif---- method Settings::get_strv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_strv" g_settings_get_strv :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr CString)--{- |-A convenience variant of @/g_settings_get()/@ for string arrays.--It is a programmer error to give a /@key@/ that isn\'t specified as-having an array of strings type in the schema for /@settings@/.--/Since: 2.26/--}-settingsGetStrv ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m [T.Text]-    {- ^ __Returns:__ a-newly-allocated, 'Nothing'-terminated array of strings, the value that-is stored at /@key@/ in /@settings@/. -}-settingsGetStrv settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_strv settings' key'-    checkUnexpectedReturnNULL "settingsGetStrv" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsGetStrvMethodInfo-instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetStrvMethodInfo a signature where-    overloadedMethod _ = settingsGetStrv--#endif---- method Settings::get_uint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", 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 "g_settings_get_uint" g_settings_get_uint :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO Word32--{- |-Gets the value that is stored at /@key@/ in /@settings@/.--A convenience variant of @/g_settings_get()/@ for 32-bit unsigned-integers.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a uint32 type in the schema for /@settings@/.--/Since: 2.30/--}-settingsGetUint ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m Word32-    {- ^ __Returns:__ an unsigned integer -}-settingsGetUint settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_uint settings' key'-    touchManagedPtr settings-    freeMem key'-    return result--#if ENABLE_OVERLOADING-data SettingsGetUintMethodInfo-instance (signature ~ (T.Text -> m Word32), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetUintMethodInfo a signature where-    overloadedMethod _ = settingsGetUint--#endif---- method Settings::get_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", 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 "g_settings_get_uint64" g_settings_get_uint64 :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO Word64--{- |-Gets the value that is stored at /@key@/ in /@settings@/.--A convenience variant of @/g_settings_get()/@ for 64-bit unsigned-integers.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a uint64 type in the schema for /@settings@/.--/Since: 2.50/--}-settingsGetUint64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m Word64-    {- ^ __Returns:__ a 64-bit unsigned integer -}-settingsGetUint64 settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_uint64 settings' key'-    touchManagedPtr settings-    freeMem key'-    return result--#if ENABLE_OVERLOADING-data SettingsGetUint64MethodInfo-instance (signature ~ (T.Text -> m Word64), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetUint64MethodInfo a signature where-    overloadedMethod _ = settingsGetUint64--#endif---- method Settings::get_user_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the user value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_user_value" g_settings_get_user_value :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr GVariant)--{- |-Checks the \"user value\" of a key, if there is one.--The user value of a key is the last value that was set by the user.--After calling 'GI.Gio.Objects.Settings.settingsReset' this function should always return-'Nothing' (assuming something is not wrong with the system-configuration).--It is possible that 'GI.Gio.Objects.Settings.settingsGetValue' will return a different-value than this function.  This can happen in the case that the user-set a value for a key that was subsequently locked down by the system-administrator -- this function will return the user\'s old value.--This function may be useful for adding a \"reset\" option to a UI or-for providing indication that a particular value has been changed.--It is a programmer error to give a /@key@/ that isn\'t contained in the-schema for /@settings@/.--/Since: 2.40/--}-settingsGetUserValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the user value for -}-    -> m (Maybe GVariant)-    {- ^ __Returns:__ the user\'s value, if set -}-settingsGetUserValue settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_user_value settings' key'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- B.GVariant.wrapGVariantPtr result'-        return result''-    touchManagedPtr settings-    freeMem key'-    return maybeResult--#if ENABLE_OVERLOADING-data SettingsGetUserValueMethodInfo-instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetUserValueMethodInfo a signature where-    overloadedMethod _ = settingsGetUserValue--#endif---- method Settings::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the key to get the value for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_settings_get_value" g_settings_get_value :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO (Ptr GVariant)--{- |-Gets the value that is stored in /@settings@/ for /@key@/.--It is a programmer error to give a /@key@/ that isn\'t contained in the-schema for /@settings@/.--/Since: 2.26/--}-settingsGetValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the key to get the value for -}-    -> m GVariant-    {- ^ __Returns:__ a new 'GVariant' -}-settingsGetValue settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_get_value settings' key'-    checkUnexpectedReturnNULL "settingsGetValue" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsGetValueMethodInfo-instance (signature ~ (T.Text -> m GVariant), MonadIO m, IsSettings a) => O.MethodInfo SettingsGetValueMethodInfo a signature where-    overloadedMethod _ = settingsGetValue--#endif---- method Settings::is_writable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a key", 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 "g_settings_is_writable" g_settings_is_writable :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- name : TBasicType TUTF8-    IO CInt--{- |-Finds out if a key can be written or not--/Since: 2.26/--}-settingsIsWritable ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@name@/: the name of a key -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the key /@name@/ is writable -}-settingsIsWritable settings name = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    name' <- textToCString name-    result <- g_settings_is_writable settings' name'-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data SettingsIsWritableMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsIsWritableMethodInfo a signature where-    overloadedMethod _ = settingsIsWritable--#endif---- method Settings::list_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_settings_list_children" g_settings_list_children :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    IO (Ptr CString)--{- |-Gets the list of children on /@settings@/.--The list is exactly the list of strings for which it is not an error-to call 'GI.Gio.Objects.Settings.settingsGetChild'.--There is little reason to call this function from \"normal\" code, since-you should already know what children are in your schema. This function-may still be useful there for introspection reasons, however.--You should free the return value with 'GI.GLib.Functions.strfreev' when you are done-with it.--}-settingsListChildren ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> m [T.Text]-    {- ^ __Returns:__ a list of the children on /@settings@/ -}-settingsListChildren settings = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    result <- g_settings_list_children settings'-    checkUnexpectedReturnNULL "settingsListChildren" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr settings-    return result'--#if ENABLE_OVERLOADING-data SettingsListChildrenMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsSettings a) => O.MethodInfo SettingsListChildrenMethodInfo a signature where-    overloadedMethod _ = settingsListChildren--#endif---- method Settings::list_keys--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_settings_list_keys" g_settings_list_keys :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    IO (Ptr CString)--{- |-Introspects the list of keys on /@settings@/.--You should probably not be calling this function from \"normal\" code-(since you should already know what keys are in your schema).  This-function is intended for introspection reasons.--You should free the return value with 'GI.GLib.Functions.strfreev' when you are done-with it.--}-settingsListKeys ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> m [T.Text]-    {- ^ __Returns:__ a list of the keys on /@settings@/ -}-settingsListKeys settings = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    result <- g_settings_list_keys settings'-    checkUnexpectedReturnNULL "settingsListKeys" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr settings-    return result'--#if ENABLE_OVERLOADING-data SettingsListKeysMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsSettings a) => O.MethodInfo SettingsListKeysMethodInfo a signature where-    overloadedMethod _ = settingsListKeys--#endif---- method Settings::range_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings", 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 "the key to check", 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 check", 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 "g_settings_range_check" g_settings_range_check :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO CInt--{-# DEPRECATED settingsRangeCheck ["(Since version 2.40)","Use 'GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyRangeCheck' instead."] #-}-{- |-Checks if the given /@value@/ is of the correct type and within the-permitted range for /@key@/.--/Since: 2.28/--}-settingsRangeCheck ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' -}-    -> T.Text-    {- ^ /@key@/: the key to check -}-    -> GVariant-    {- ^ /@value@/: the value to check -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@value@/ is valid for /@key@/ -}-settingsRangeCheck settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    value' <- unsafeManagedPtrGetPtr value-    result <- g_settings_range_check settings' key' value'-    let result' = (/= 0) result-    touchManagedPtr settings-    touchManagedPtr value-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsRangeCheckMethodInfo-instance (signature ~ (T.Text -> GVariant -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsRangeCheckMethodInfo a signature where-    overloadedMethod _ = settingsRangeCheck--#endif---- method Settings::reset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of a key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_reset" g_settings_reset :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    IO ()--{- |-Resets /@key@/ to its default value.--This call resets the key, as much as possible, to its default value.-That might the value specified in the schema or the one set by the-administrator.--}-settingsReset ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of a key -}-    -> m ()-settingsReset settings key = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    g_settings_reset settings' key'-    touchManagedPtr settings-    freeMem key'-    return ()--#if ENABLE_OVERLOADING-data SettingsResetMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsResetMethodInfo a signature where-    overloadedMethod _ = settingsReset--#endif---- method Settings::revert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings instance", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_revert" g_settings_revert :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    IO ()--{- |-Reverts all non-applied changes to the settings.  This function-does nothing unless /@settings@/ is in \'delay-apply\' mode; see-'GI.Gio.Objects.Settings.settingsDelay'.  In the normal case settings are always applied-immediately.--Change notifications will be emitted for affected keys.--}-settingsRevert ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' instance -}-    -> m ()-settingsRevert settings = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    g_settings_revert settings'-    touchManagedPtr settings-    return ()--#if ENABLE_OVERLOADING-data SettingsRevertMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSettings a) => O.MethodInfo SettingsRevertMethodInfo a signature where-    overloadedMethod _ = settingsRevert--#endif---- method Settings::set_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the key to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value to set it to", 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 "g_settings_set_boolean" g_settings_set_boolean :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    CInt ->                                 -- value : TBasicType TBoolean-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--A convenience variant of @/g_settings_set()/@ for booleans.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a boolean type in the schema for /@settings@/.--/Since: 2.26/--}-settingsSetBoolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> Bool-    {- ^ /@value@/: the value to set it to -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetBoolean settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    let value' = (fromIntegral . fromEnum) value-    result <- g_settings_set_boolean settings' key' value'-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetBooleanMethodInfo-instance (signature ~ (T.Text -> Bool -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetBooleanMethodInfo a signature where-    overloadedMethod _ = settingsSetBoolean--#endif---- method Settings::set_double--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the key to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value to set it to", 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 "g_settings_set_double" g_settings_set_double :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    CDouble ->                              -- value : TBasicType TDouble-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--A convenience variant of @/g_settings_set()/@ for doubles.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a \'double\' type in the schema for /@settings@/.--/Since: 2.26/--}-settingsSetDouble ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> Double-    {- ^ /@value@/: the value to set it to -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetDouble settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    let value' = realToFrac value-    result <- g_settings_set_double settings' key' value'-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetDoubleMethodInfo-instance (signature ~ (T.Text -> Double -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetDoubleMethodInfo a signature where-    overloadedMethod _ = settingsSetDouble--#endif---- method Settings::set_enum--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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, within @settings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an enumerated value", 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 "g_settings_set_enum" g_settings_set_enum :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Int32 ->                                -- value : TBasicType TInt-    IO CInt--{- |-Looks up the enumerated type nick for /@value@/ and writes it to /@key@/,-within /@settings@/.--It is a programmer error to give a /@key@/ that isn\'t contained in the-schema for /@settings@/ or is not marked as an enumerated type, or for-/@value@/ not to be a valid value for the named type.--After performing the write, accessing /@key@/ directly with-'GI.Gio.Objects.Settings.settingsGetString' will return the \'nick\' associated with-/@value@/.--}-settingsSetEnum ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: a key, within /@settings@/ -}-    -> Int32-    {- ^ /@value@/: an enumerated value -}-    -> m Bool-    {- ^ __Returns:__ 'True', if the set succeeds -}-settingsSetEnum settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_set_enum settings' key' value-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetEnumMethodInfo-instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetEnumMethodInfo a signature where-    overloadedMethod _ = settingsSetEnum--#endif---- method Settings::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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, within @settings", 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 = Just "a flags value", 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 "g_settings_set_flags" g_settings_set_flags :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Word32 ->                               -- value : TBasicType TUInt-    IO CInt--{- |-Looks up the flags type nicks for the bits specified by /@value@/, puts-them in an array of strings and writes the array to /@key@/, within-/@settings@/.--It is a programmer error to give a /@key@/ that isn\'t contained in the-schema for /@settings@/ or is not marked as a flags type, or for /@value@/-to contain any bits that are not value for the named type.--After performing the write, accessing /@key@/ directly with-'GI.Gio.Objects.Settings.settingsGetStrv' will return an array of \'nicks\'; one for each-bit in /@value@/.--}-settingsSetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: a key, within /@settings@/ -}-    -> Word32-    {- ^ /@value@/: a flags value -}-    -> m Bool-    {- ^ __Returns:__ 'True', if the set succeeds -}-settingsSetFlags settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_set_flags settings' key' value-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetFlagsMethodInfo-instance (signature ~ (T.Text -> Word32 -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetFlagsMethodInfo a signature where-    overloadedMethod _ = settingsSetFlags--#endif---- method Settings::set_int--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the key to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value to set it to", 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 "g_settings_set_int" g_settings_set_int :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Int32 ->                                -- value : TBasicType TInt-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--A convenience variant of @/g_settings_set()/@ for 32-bit integers.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a int32 type in the schema for /@settings@/.--/Since: 2.26/--}-settingsSetInt ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> Int32-    {- ^ /@value@/: the value to set it to -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetInt settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_set_int settings' key' value-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetIntMethodInfo-instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetIntMethodInfo a signature where-    overloadedMethod _ = settingsSetInt--#endif---- method Settings::set_int64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the key to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value to set it to", 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 "g_settings_set_int64" g_settings_set_int64 :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Int64 ->                                -- value : TBasicType TInt64-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--A convenience variant of @/g_settings_set()/@ for 64-bit integers.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a int64 type in the schema for /@settings@/.--/Since: 2.50/--}-settingsSetInt64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> Int64-    {- ^ /@value@/: the value to set it to -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetInt64 settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_set_int64 settings' key' value-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetInt64MethodInfo-instance (signature ~ (T.Text -> Int64 -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetInt64MethodInfo a signature where-    overloadedMethod _ = settingsSetInt64--#endif---- method Settings::set_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the key to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value to set it to", 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 "g_settings_set_string" g_settings_set_string :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--A convenience variant of @/g_settings_set()/@ for strings.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a string type in the schema for /@settings@/.--/Since: 2.26/--}-settingsSetString ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> T.Text-    {- ^ /@value@/: the value to set it to -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetString settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    value' <- textToCString value-    result <- g_settings_set_string settings' key' value'-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    freeMem value'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetStringMethodInfo a signature where-    overloadedMethod _ = settingsSetString--#endif---- method Settings::set_strv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the key to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the value to set it to, or %NULL", 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 "g_settings_set_strv" g_settings_set_strv :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Ptr CString ->                          -- value : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--A convenience variant of @/g_settings_set()/@ for string arrays.  If-/@value@/ is 'Nothing', then /@key@/ is set to be the empty array.--It is a programmer error to give a /@key@/ that isn\'t specified as-having an array of strings type in the schema for /@settings@/.--/Since: 2.26/--}-settingsSetStrv ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> Maybe ([T.Text])-    {- ^ /@value@/: the value to set it to, or 'Nothing' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetStrv settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    maybeValue <- case value of-        Nothing -> return nullPtr-        Just jValue -> do-            jValue' <- packZeroTerminatedUTF8CArray jValue-            return jValue'-    result <- g_settings_set_strv settings' key' maybeValue-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    mapZeroTerminatedCArray freeMem maybeValue-    freeMem maybeValue-    return result'--#if ENABLE_OVERLOADING-data SettingsSetStrvMethodInfo-instance (signature ~ (T.Text -> Maybe ([T.Text]) -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetStrvMethodInfo a signature where-    overloadedMethod _ = settingsSetStrv--#endif---- method Settings::set_uint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the key to set", 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 = Just "the value to set it to", 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 "g_settings_set_uint" g_settings_set_uint :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Word32 ->                               -- value : TBasicType TUInt-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--A convenience variant of @/g_settings_set()/@ for 32-bit unsigned-integers.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a uint32 type in the schema for /@settings@/.--/Since: 2.30/--}-settingsSetUint ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> Word32-    {- ^ /@value@/: the value to set it to -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetUint settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_set_uint settings' key' value-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetUintMethodInfo-instance (signature ~ (T.Text -> Word32 -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetUintMethodInfo a signature where-    overloadedMethod _ = settingsSetUint--#endif---- method Settings::set_uint64--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the key to set", 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 = Just "the value to set it to", 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 "g_settings_set_uint64" g_settings_set_uint64 :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Word64 ->                               -- value : TBasicType TUInt64-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--A convenience variant of @/g_settings_set()/@ for 64-bit unsigned-integers.--It is a programmer error to give a /@key@/ that isn\'t specified as-having a uint64 type in the schema for /@settings@/.--/Since: 2.50/--}-settingsSetUint64 ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> Word64-    {- ^ /@value@/: the value to set it to -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetUint64 settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    result <- g_settings_set_uint64 settings' key' value-    let result' = (/= 0) result-    touchManagedPtr settings-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetUint64MethodInfo-instance (signature ~ (T.Text -> Word64 -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetUint64MethodInfo a signature where-    overloadedMethod _ = settingsSetUint64--#endif---- method Settings::set_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "settings", argType = TInterface (Name {namespace = "Gio", name = "Settings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettings object", 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 "the name of the 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 "a #GVariant of the correct type", 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 "g_settings_set_value" g_settings_set_value :: -    Ptr Settings ->                         -- settings : TInterface (Name {namespace = "Gio", name = "Settings"})-    CString ->                              -- key : TBasicType TUTF8-    Ptr GVariant ->                         -- value : TVariant-    IO CInt--{- |-Sets /@key@/ in /@settings@/ to /@value@/.--It is a programmer error to give a /@key@/ that isn\'t contained in the-schema for /@settings@/ or for /@value@/ to have the incorrect type, per-the schema.--If /@value@/ is floating then this function consumes the reference.--/Since: 2.26/--}-settingsSetValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettings a) =>-    a-    {- ^ /@settings@/: a 'GI.Gio.Objects.Settings.Settings' object -}-    -> T.Text-    {- ^ /@key@/: the name of the key to set -}-    -> GVariant-    {- ^ /@value@/: a 'GVariant' of the correct type -}-    -> m Bool-    {- ^ __Returns:__ 'True' if setting the key succeeded,-    'False' if the key was not writable -}-settingsSetValue settings key value = liftIO $ do-    settings' <- unsafeManagedPtrCastPtr settings-    key' <- textToCString key-    value' <- unsafeManagedPtrGetPtr value-    result <- g_settings_set_value settings' key' value'-    let result' = (/= 0) result-    touchManagedPtr settings-    touchManagedPtr value-    freeMem key'-    return result'--#if ENABLE_OVERLOADING-data SettingsSetValueMethodInfo-instance (signature ~ (T.Text -> GVariant -> m Bool), MonadIO m, IsSettings a) => O.MethodInfo SettingsSetValueMethodInfo a signature where-    overloadedMethod _ = settingsSetValue--#endif---- method Settings::list_relocatable_schemas--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_settings_list_relocatable_schemas" g_settings_list_relocatable_schemas :: -    IO (Ptr CString)--{-# DEPRECATED settingsListRelocatableSchemas ["(Since version 2.40)","Use 'GI.Gio.Structs.SettingsSchemaSource.settingsSchemaSourceListSchemas' instead"] #-}-{- |-Deprecated.--/Since: 2.28/--}-settingsListRelocatableSchemas ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m [T.Text]-    {- ^ __Returns:__ a list of relocatable-  'GI.Gio.Objects.Settings.Settings' schemas that are available.  The list must not be-  modified or freed. -}-settingsListRelocatableSchemas  = liftIO $ do-    result <- g_settings_list_relocatable_schemas-    checkUnexpectedReturnNULL "settingsListRelocatableSchemas" result-    result' <- unpackZeroTerminatedUTF8CArray result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Settings::list_schemas--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_settings_list_schemas" g_settings_list_schemas :: -    IO (Ptr CString)--{-# DEPRECATED settingsListSchemas ["(Since version 2.40)","Use 'GI.Gio.Structs.SettingsSchemaSource.settingsSchemaSourceListSchemas' instead.","If you used 'GI.Gio.Objects.Settings.settingsListSchemas' to check for the presence of","a particular schema, use 'GI.Gio.Structs.SettingsSchemaSource.settingsSchemaSourceLookup' instead","of your whole loop."] #-}-{- |-Deprecated.--/Since: 2.26/--}-settingsListSchemas ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m [T.Text]-    {- ^ __Returns:__ a list of 'GI.Gio.Objects.Settings.Settings'-  schemas that are available.  The list must not be modified or-  freed. -}-settingsListSchemas  = liftIO $ do-    result <- g_settings_list_schemas-    checkUnexpectedReturnNULL "settingsListSchemas" result-    result' <- unpackZeroTerminatedUTF8CArray result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Settings::sync--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_sync" g_settings_sync :: -    IO ()--{- |-Ensures that all pending operations are complete for the default backend.--Writes made to a 'GI.Gio.Objects.Settings.Settings' are handled asynchronously.  For this-reason, it is very unlikely that the changes have it to disk by the-time @/g_settings_set()/@ returns.--This call will block until all of the writes have made it to the-backend.  Since the mainloop is not running, no change notifications-will be dispatched during this call (but some may be queued by the-time the call is done).--}-settingsSync ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m ()-settingsSync  = liftIO $ do-    g_settings_sync-    return ()--#if ENABLE_OVERLOADING-#endif---- method Settings::unbind--- method type : MemberFunction--- Args : [Arg {argCName = "object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the property whose binding is removed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_unbind" g_settings_unbind :: -    Ptr GObject.Object.Object ->            -- object : TInterface (Name {namespace = "GObject", name = "Object"})-    CString ->                              -- property : TBasicType TUTF8-    IO ()--{- |-Removes an existing binding for /@property@/ on /@object@/.--Note that bindings are automatically removed when the-object is finalized, so it is rarely necessary to call this-function.--/Since: 2.26/--}-settingsUnbind ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>-    a-    {- ^ /@object@/: the object -}-    -> T.Text-    {- ^ /@property@/: the property whose binding is removed -}-    -> m ()-settingsUnbind object property = liftIO $ do-    object' <- unsafeManagedPtrCastPtr object-    property' <- textToCString property-    g_settings_unbind object' property'-    touchManagedPtr object-    freeMem property'-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/Settings.hs-boot 
@@ -1,179 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Settings 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 Settings = Settings (ManagedPtr Settings)-instance GObject Settings where-class (GObject o, O.IsDescendantOf Settings o) => IsSettings o-instance (GObject o, O.IsDescendantOf Settings o) => IsSettings o-instance O.HasParentTypes Settings-#if ENABLE_OVERLOADING-data SettingsBackendPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SettingsDelayApplyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SettingsHasUnappliedPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SettingsPathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaIdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSettingsSchemaPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SettingsChangeEventSignalInfo-#endif-#if ENABLE_OVERLOADING-data SettingsChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data SettingsWritableChangeEventSignalInfo-#endif-#if ENABLE_OVERLOADING-data SettingsWritableChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data SettingsApplyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsBindMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsBindWritableMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsCreateActionMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsDelayMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetBooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetChildMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetDefaultValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetDoubleMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetEnumMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetHasUnappliedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetIntMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetInt64MethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetMappedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetRangeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetStrvMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetUintMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetUint64MethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetUserValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsGetValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsIsWritableMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsListChildrenMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsListKeysMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsRangeCheckMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsResetMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsRevertMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetBooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetDoubleMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetEnumMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetIntMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetInt64MethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetStrvMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetUintMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetUint64MethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSetValueMethodInfo-#endif
− GI/Gio/Objects/SettingsBackend.hs 
@@ -1,581 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Objects.SettingsBackend.SettingsBackend' interface defines a generic interface for-non-strictly-typed data that is stored in a hierarchy. To implement-an alternative storage backend for 'GI.Gio.Objects.Settings.Settings', you need to implement-the 'GI.Gio.Objects.SettingsBackend.SettingsBackend' interface and then make it implement the-extension point 'GI.Gio.Constants.SETTINGS_BACKEND_EXTENSION_POINT_NAME'.--The interface defines methods for reading and writing values, a-method for determining if writing of certain values will fail-(lockdown) and a change notification mechanism.--The semantics of the interface are very precisely defined and-implementations must carefully adhere to the expectations of-callers that are documented on each of the interface methods.--Some of the 'GI.Gio.Objects.SettingsBackend.SettingsBackend' functions accept or return a 'GI.GLib.Structs.Tree.Tree'.-These trees always have strings as keys and 'GVariant' as values.-@/g_settings_backend_create_tree()/@ is a convenience function to create-suitable trees.--The 'GI.Gio.Objects.SettingsBackend.SettingsBackend' API is exported to allow third-party-implementations, but does not carry the same stability guarantees-as the public GIO API. For this reason, you have to define the-C preprocessor symbol @/G_SETTINGS_ENABLE_BACKEND/@ before including-@gio\/gsettingsbackend.h@.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SettingsBackend-    ( -#if ENABLE_OVERLOADING-    SettingsBackendFlattenTreeMethodInfo    ,-#endif---- * Exported types-    SettingsBackend(..)                     ,-    IsSettingsBackend                       ,-    toSettingsBackend                       ,-    noSettingsBackend                       ,--- -- * Methods--- ** changed #method:changed#--#if ENABLE_OVERLOADING-    SettingsBackendChangedMethodInfo        ,-#endif-    settingsBackendChanged                  ,----- ** changedTree #method:changedTree#--#if ENABLE_OVERLOADING-    SettingsBackendChangedTreeMethodInfo    ,-#endif-    settingsBackendChangedTree              ,----- ** getDefault #method:getDefault#--    settingsBackendGetDefault               ,----- ** keysChanged #method:keysChanged#--#if ENABLE_OVERLOADING-    SettingsBackendKeysChangedMethodInfo    ,-#endif-    settingsBackendKeysChanged              ,----- ** pathChanged #method:pathChanged#--#if ENABLE_OVERLOADING-    SettingsBackendPathChangedMethodInfo    ,-#endif-    settingsBackendPathChanged              ,----- ** pathWritableChanged #method:pathWritableChanged#--#if ENABLE_OVERLOADING-    SettingsBackendPathWritableChangedMethodInfo,-#endif-    settingsBackendPathWritableChanged      ,----- ** writableChanged #method:writableChanged#--#if ENABLE_OVERLOADING-    SettingsBackendWritableChangedMethodInfo,-#endif-    settingsBackendWritableChanged          ,-----    ) 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.Tree as GLib.Tree-import qualified GI.GObject.Objects.Object as GObject.Object---- | Memory-managed wrapper type.-newtype SettingsBackend = SettingsBackend (ManagedPtr SettingsBackend)-foreign import ccall "g_settings_backend_get_type"-    c_g_settings_backend_get_type :: IO GType--instance GObject SettingsBackend where-    gobjectType = c_g_settings_backend_get_type-    ---- | Type class for types which can be safely cast to `SettingsBackend`, for instance with `toSettingsBackend`.-class (GObject o, O.IsDescendantOf SettingsBackend o) => IsSettingsBackend o-instance (GObject o, O.IsDescendantOf SettingsBackend o) => IsSettingsBackend o--instance O.HasParentTypes SettingsBackend-type instance O.ParentTypes SettingsBackend = '[GObject.Object.Object]---- | Cast to `SettingsBackend`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSettingsBackend :: (MonadIO m, IsSettingsBackend o) => o -> m SettingsBackend-toSettingsBackend = liftIO . unsafeCastTo SettingsBackend---- | A convenience alias for `Nothing` :: `Maybe` `SettingsBackend`.-noSettingsBackend :: Maybe SettingsBackend-noSettingsBackend = Nothing--#if ENABLE_OVERLOADING-type family ResolveSettingsBackendMethod (t :: Symbol) (o :: *) :: * where-    ResolveSettingsBackendMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSettingsBackendMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSettingsBackendMethod "changed" o = SettingsBackendChangedMethodInfo-    ResolveSettingsBackendMethod "changedTree" o = SettingsBackendChangedTreeMethodInfo-    ResolveSettingsBackendMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSettingsBackendMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSettingsBackendMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSettingsBackendMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSettingsBackendMethod "keysChanged" o = SettingsBackendKeysChangedMethodInfo-    ResolveSettingsBackendMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSettingsBackendMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSettingsBackendMethod "pathChanged" o = SettingsBackendPathChangedMethodInfo-    ResolveSettingsBackendMethod "pathWritableChanged" o = SettingsBackendPathWritableChangedMethodInfo-    ResolveSettingsBackendMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSettingsBackendMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSettingsBackendMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSettingsBackendMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSettingsBackendMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSettingsBackendMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSettingsBackendMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSettingsBackendMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSettingsBackendMethod "writableChanged" o = SettingsBackendWritableChangedMethodInfo-    ResolveSettingsBackendMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSettingsBackendMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSettingsBackendMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSettingsBackendMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSettingsBackendMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSettingsBackendMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSettingsBackendMethod t SettingsBackend, O.MethodInfo info SettingsBackend p) => OL.IsLabel t (SettingsBackend -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList SettingsBackend-type instance O.AttributeList SettingsBackend = SettingsBackendAttributeList-type SettingsBackendAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SettingsBackend = SettingsBackendSignalList-type SettingsBackendSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SettingsBackend::changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsBackend implementation", 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 "the name of the key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the origin tag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_backend_changed" g_settings_backend_changed :: -    Ptr SettingsBackend ->                  -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    CString ->                              -- key : TBasicType TUTF8-    Ptr () ->                               -- origin_tag : TBasicType TPtr-    IO ()--{- |-Signals that a single key has possibly changed.  Backend-implementations should call this if a key has possibly changed its-value.--/@key@/ must be a valid key (ie starting with a slash, not containing-\'\/\/\', and not ending with a slash).--The implementation must call this function during any call to-@/g_settings_backend_write()/@, before the call returns (except in the-case that no keys are actually changed and it cares to detect this-fact).  It may not rely on the existence of a mainloop for-dispatching the signal later.--The implementation may call this function at any other time it likes-in response to other events (such as changes occurring outside of the-program).  These calls may originate from a mainloop or may originate-in response to any other action (including from calls to-@/g_settings_backend_write()/@).--In the case that this call is in response to a call to-@/g_settings_backend_write()/@ then /@originTag@/ must be set to the same-value that was passed to that call.--/Since: 2.26/--}-settingsBackendChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettingsBackend a) =>-    a-    {- ^ /@backend@/: a 'GI.Gio.Objects.SettingsBackend.SettingsBackend' implementation -}-    -> T.Text-    {- ^ /@key@/: the name of the key -}-    -> Ptr ()-    {- ^ /@originTag@/: the origin tag -}-    -> m ()-settingsBackendChanged backend key originTag = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    key' <- textToCString key-    g_settings_backend_changed backend' key' originTag-    touchManagedPtr backend-    freeMem key'-    return ()--#if ENABLE_OVERLOADING-data SettingsBackendChangedMethodInfo-instance (signature ~ (T.Text -> Ptr () -> m ()), MonadIO m, IsSettingsBackend a) => O.MethodInfo SettingsBackendChangedMethodInfo a signature where-    overloadedMethod _ = settingsBackendChanged--#endif---- method SettingsBackend::changed_tree--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsBackend implementation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree", argType = TInterface (Name {namespace = "GLib", name = "Tree"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTree containing the changes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the origin tag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_backend_changed_tree" g_settings_backend_changed_tree :: -    Ptr SettingsBackend ->                  -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    Ptr GLib.Tree.Tree ->                   -- tree : TInterface (Name {namespace = "GLib", name = "Tree"})-    Ptr () ->                               -- origin_tag : TBasicType TPtr-    IO ()--{- |-This call is a convenience wrapper.  It gets the list of changes from-/@tree@/, computes the longest common prefix and calls-'GI.Gio.Objects.SettingsBackend.settingsBackendChanged'.--/Since: 2.26/--}-settingsBackendChangedTree ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettingsBackend a) =>-    a-    {- ^ /@backend@/: a 'GI.Gio.Objects.SettingsBackend.SettingsBackend' implementation -}-    -> GLib.Tree.Tree-    {- ^ /@tree@/: a 'GI.GLib.Structs.Tree.Tree' containing the changes -}-    -> Ptr ()-    {- ^ /@originTag@/: the origin tag -}-    -> m ()-settingsBackendChangedTree backend tree originTag = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    tree' <- unsafeManagedPtrGetPtr tree-    g_settings_backend_changed_tree backend' tree' originTag-    touchManagedPtr backend-    touchManagedPtr tree-    return ()--#if ENABLE_OVERLOADING-data SettingsBackendChangedTreeMethodInfo-instance (signature ~ (GLib.Tree.Tree -> Ptr () -> m ()), MonadIO m, IsSettingsBackend a) => O.MethodInfo SettingsBackendChangedTreeMethodInfo a signature where-    overloadedMethod _ = settingsBackendChangedTree--#endif---- method SettingsBackend::keys_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsBackend implementation", 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 "the path containing the changes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "items", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the %NULL-terminated list of changed keys", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the origin tag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_backend_keys_changed" g_settings_backend_keys_changed :: -    Ptr SettingsBackend ->                  -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    CString ->                              -- path : TBasicType TUTF8-    Ptr CString ->                          -- items : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr () ->                               -- origin_tag : TBasicType TPtr-    IO ()--{- |-Signals that a list of keys have possibly changed.  Backend-implementations should call this if keys have possibly changed their-values.--/@path@/ must be a valid path (ie starting and ending with a slash and-not containing \'\/\/\').  Each string in /@items@/ must form a valid key-name when /@path@/ is prefixed to it (ie: each item must not start or-end with \'\/\' and must not contain \'\/\/\').--The meaning of this signal is that any of the key names resulting-from the contatenation of /@path@/ with each item in /@items@/ may have-changed.--The same rules for when notifications must occur apply as per-'GI.Gio.Objects.SettingsBackend.settingsBackendChanged'.  These two calls can be used-interchangeably if exactly one item has changed (although in that-case 'GI.Gio.Objects.SettingsBackend.settingsBackendChanged' is definitely preferred).--For efficiency reasons, the implementation should strive for /@path@/ to-be as long as possible (ie: the longest common prefix of all of the-keys that were changed) but this is not strictly required.--/Since: 2.26/--}-settingsBackendKeysChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettingsBackend a) =>-    a-    {- ^ /@backend@/: a 'GI.Gio.Objects.SettingsBackend.SettingsBackend' implementation -}-    -> T.Text-    {- ^ /@path@/: the path containing the changes -}-    -> [T.Text]-    {- ^ /@items@/: the 'Nothing'-terminated list of changed keys -}-    -> Ptr ()-    {- ^ /@originTag@/: the origin tag -}-    -> m ()-settingsBackendKeysChanged backend path items originTag = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    path' <- textToCString path-    items' <- packZeroTerminatedUTF8CArray items-    g_settings_backend_keys_changed backend' path' items' originTag-    touchManagedPtr backend-    freeMem path'-    mapZeroTerminatedCArray freeMem items'-    freeMem items'-    return ()--#if ENABLE_OVERLOADING-data SettingsBackendKeysChangedMethodInfo-instance (signature ~ (T.Text -> [T.Text] -> Ptr () -> m ()), MonadIO m, IsSettingsBackend a) => O.MethodInfo SettingsBackendKeysChangedMethodInfo a signature where-    overloadedMethod _ = settingsBackendKeysChanged--#endif---- method SettingsBackend::path_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsBackend implementation", 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 "the path containing the changes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the origin tag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_backend_path_changed" g_settings_backend_path_changed :: -    Ptr SettingsBackend ->                  -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    CString ->                              -- path : TBasicType TUTF8-    Ptr () ->                               -- origin_tag : TBasicType TPtr-    IO ()--{- |-Signals that all keys below a given path may have possibly changed.-Backend implementations should call this if an entire path of keys-have possibly changed their values.--/@path@/ must be a valid path (ie starting and ending with a slash and-not containing \'\/\/\').--The meaning of this signal is that any of the key which has a name-starting with /@path@/ may have changed.--The same rules for when notifications must occur apply as per-'GI.Gio.Objects.SettingsBackend.settingsBackendChanged'.  This call might be an appropriate-reasponse to a \'reset\' call but implementations are also free to-explicitly list the keys that were affected by that call if they can-easily do so.--For efficiency reasons, the implementation should strive for /@path@/ to-be as long as possible (ie: the longest common prefix of all of the-keys that were changed) but this is not strictly required.  As an-example, if this function is called with the path of \"\/\" then every-single key in the application will be notified of a possible change.--/Since: 2.26/--}-settingsBackendPathChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettingsBackend a) =>-    a-    {- ^ /@backend@/: a 'GI.Gio.Objects.SettingsBackend.SettingsBackend' implementation -}-    -> T.Text-    {- ^ /@path@/: the path containing the changes -}-    -> Ptr ()-    {- ^ /@originTag@/: the origin tag -}-    -> m ()-settingsBackendPathChanged backend path originTag = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    path' <- textToCString path-    g_settings_backend_path_changed backend' path' originTag-    touchManagedPtr backend-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data SettingsBackendPathChangedMethodInfo-instance (signature ~ (T.Text -> Ptr () -> m ()), MonadIO m, IsSettingsBackend a) => O.MethodInfo SettingsBackendPathChangedMethodInfo a signature where-    overloadedMethod _ = settingsBackendPathChanged--#endif---- method SettingsBackend::path_writable_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsBackend implementation", 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 "the name of the path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_backend_path_writable_changed" g_settings_backend_path_writable_changed :: -    Ptr SettingsBackend ->                  -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    CString ->                              -- path : TBasicType TUTF8-    IO ()--{- |-Signals that the writability of all keys below a given path may have-changed.--Since GSettings performs no locking operations for itself, this call-will always be made in response to external events.--/Since: 2.26/--}-settingsBackendPathWritableChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettingsBackend a) =>-    a-    {- ^ /@backend@/: a 'GI.Gio.Objects.SettingsBackend.SettingsBackend' implementation -}-    -> T.Text-    {- ^ /@path@/: the name of the path -}-    -> m ()-settingsBackendPathWritableChanged backend path = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    path' <- textToCString path-    g_settings_backend_path_writable_changed backend' path'-    touchManagedPtr backend-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data SettingsBackendPathWritableChangedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettingsBackend a) => O.MethodInfo SettingsBackendPathWritableChangedMethodInfo a signature where-    overloadedMethod _ = settingsBackendPathWritableChanged--#endif---- method SettingsBackend::writable_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "backend", argType = TInterface (Name {namespace = "Gio", name = "SettingsBackend"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsBackend implementation", 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 "the name of the key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_backend_writable_changed" g_settings_backend_writable_changed :: -    Ptr SettingsBackend ->                  -- backend : TInterface (Name {namespace = "Gio", name = "SettingsBackend"})-    CString ->                              -- key : TBasicType TUTF8-    IO ()--{- |-Signals that the writability of a single key has possibly changed.--Since GSettings performs no locking operations for itself, this call-will always be made in response to external events.--/Since: 2.26/--}-settingsBackendWritableChanged ::-    (B.CallStack.HasCallStack, MonadIO m, IsSettingsBackend a) =>-    a-    {- ^ /@backend@/: a 'GI.Gio.Objects.SettingsBackend.SettingsBackend' implementation -}-    -> T.Text-    {- ^ /@key@/: the name of the key -}-    -> m ()-settingsBackendWritableChanged backend key = liftIO $ do-    backend' <- unsafeManagedPtrCastPtr backend-    key' <- textToCString key-    g_settings_backend_writable_changed backend' key'-    touchManagedPtr backend-    freeMem key'-    return ()--#if ENABLE_OVERLOADING-data SettingsBackendWritableChangedMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsSettingsBackend a) => O.MethodInfo SettingsBackendWritableChangedMethodInfo a signature where-    overloadedMethod _ = settingsBackendWritableChanged--#endif---- XXX Could not generate method SettingsBackend::flatten_tree--- Error was : Not implemented: "Don't know how to unpack C array of type TCArray True (-1) (-1) TVariant"-#if ENABLE_OVERLOADING--- XXX: Dummy instance, since code generation failed.--- Please file a bug at http://github.com/haskell-gi/haskell-gi.-data SettingsBackendFlattenTreeMethodInfo-instance (p ~ (), o ~ O.MethodResolutionFailed "flattenTree" SettingsBackend) => O.MethodInfo SettingsBackendFlattenTreeMethodInfo o p where-    overloadedMethod _ = undefined-#endif---- method SettingsBackend::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsBackend"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_backend_get_default" g_settings_backend_get_default :: -    IO (Ptr SettingsBackend)--{- |-Returns the default 'GI.Gio.Objects.SettingsBackend.SettingsBackend'. It is possible to override-the default by setting the @GSETTINGS_BACKEND@ environment variable-to the name of a settings backend.--The user gets a reference to the backend.--/Since: 2.28/--}-settingsBackendGetDefault ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m SettingsBackend-    {- ^ __Returns:__ the default 'GI.Gio.Objects.SettingsBackend.SettingsBackend' -}-settingsBackendGetDefault  = liftIO $ do-    result <- g_settings_backend_get_default-    checkUnexpectedReturnNULL "settingsBackendGetDefault" result-    result' <- (wrapObject SettingsBackend) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/SettingsBackend.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SettingsBackend 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 SettingsBackend = SettingsBackend (ManagedPtr SettingsBackend)-instance GObject SettingsBackend where-class (GObject o, O.IsDescendantOf SettingsBackend o) => IsSettingsBackend o-instance (GObject o, O.IsDescendantOf SettingsBackend o) => IsSettingsBackend o-instance O.HasParentTypes SettingsBackend-#if ENABLE_OVERLOADING-data SettingsBackendChangedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsBackendChangedTreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsBackendKeysChangedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsBackendPathChangedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsBackendPathWritableChangedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsBackendWritableChangedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsBackendFlattenTreeMethodInfo-#endif
− GI/Gio/Objects/SimpleAction.hs 
@@ -1,981 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.SimpleAction.SimpleAction' is the obvious simple implementation of the 'GI.Gio.Interfaces.Action.Action'-interface. This is the easiest way to create an action for purposes of-adding it to a 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup'.--See also @/GtkAction/@.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SimpleAction-    ( ---- * Exported types-    SimpleAction(..)                        ,-    IsSimpleAction                          ,-    toSimpleAction                          ,-    noSimpleAction                          ,--- -- * Methods--- ** new #method:new#--    simpleActionNew                         ,----- ** newStateful #method:newStateful#--    simpleActionNewStateful                 ,----- ** setEnabled #method:setEnabled#--#if ENABLE_OVERLOADING-    SimpleActionSetEnabledMethodInfo        ,-#endif-    simpleActionSetEnabled                  ,----- ** setState #method:setState#--#if ENABLE_OVERLOADING-    SimpleActionSetStateMethodInfo          ,-#endif-    simpleActionSetState                    ,----- ** setStateHint #method:setStateHint#--#if ENABLE_OVERLOADING-    SimpleActionSetStateHintMethodInfo      ,-#endif-    simpleActionSetStateHint                ,----- -- * Properties--- ** enabled #attr:enabled#-{- | If /@action@/ is currently enabled.--If the action is disabled then calls to 'GI.Gio.Interfaces.Action.actionActivate' and-'GI.Gio.Interfaces.Action.actionChangeState' have no effect.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    SimpleActionEnabledPropertyInfo         ,-#endif-    constructSimpleActionEnabled            ,-    getSimpleActionEnabled                  ,-    setSimpleActionEnabled                  ,-#if ENABLE_OVERLOADING-    simpleActionEnabled                     ,-#endif----- ** name #attr:name#-{- | The name of the action. This is mostly meaningful for identifying-the action once it has been added to a 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup'.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    SimpleActionNamePropertyInfo            ,-#endif-    constructSimpleActionName               ,-    getSimpleActionName                     ,-#if ENABLE_OVERLOADING-    simpleActionName                        ,-#endif----- ** parameterType #attr:parameterType#-{- | The type of the parameter that must be given when activating the-action.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    SimpleActionParameterTypePropertyInfo   ,-#endif-    constructSimpleActionParameterType      ,-    getSimpleActionParameterType            ,-#if ENABLE_OVERLOADING-    simpleActionParameterType               ,-#endif----- ** state #attr:state#-{- | The state of the action, or 'Nothing' if the action is stateless.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    SimpleActionStatePropertyInfo           ,-#endif-    constructSimpleActionState              ,-    getSimpleActionState                    ,-    setSimpleActionState                    ,-#if ENABLE_OVERLOADING-    simpleActionState                       ,-#endif----- ** stateType #attr:stateType#-{- | The 'GI.GLib.Structs.VariantType.VariantType' of the state that the action has, or 'Nothing' if the-action is stateless.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    SimpleActionStateTypePropertyInfo       ,-#endif-    getSimpleActionStateType                ,-#if ENABLE_OVERLOADING-    simpleActionStateType                   ,-#endif----- -- * Signals--- ** activate #signal:activate#--    C_SimpleActionActivateCallback          ,-    SimpleActionActivateCallback            ,-#if ENABLE_OVERLOADING-    SimpleActionActivateSignalInfo          ,-#endif-    afterSimpleActionActivate               ,-    genClosure_SimpleActionActivate         ,-    mk_SimpleActionActivateCallback         ,-    noSimpleActionActivateCallback          ,-    onSimpleActionActivate                  ,-    wrap_SimpleActionActivateCallback       ,----- ** changeState #signal:changeState#--    C_SimpleActionChangeStateCallback       ,-    SimpleActionChangeStateCallback         ,-#if ENABLE_OVERLOADING-    SimpleActionChangeStateSignalInfo       ,-#endif-    afterSimpleActionChangeState            ,-    genClosure_SimpleActionChangeState      ,-    mk_SimpleActionChangeStateCallback      ,-    noSimpleActionChangeStateCallback       ,-    onSimpleActionChangeState               ,-    wrap_SimpleActionChangeStateCallback    ,-----    ) 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.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Action as Gio.Action---- | Memory-managed wrapper type.-newtype SimpleAction = SimpleAction (ManagedPtr SimpleAction)-foreign import ccall "g_simple_action_get_type"-    c_g_simple_action_get_type :: IO GType--instance GObject SimpleAction where-    gobjectType = c_g_simple_action_get_type-    ---- | Type class for types which can be safely cast to `SimpleAction`, for instance with `toSimpleAction`.-class (GObject o, O.IsDescendantOf SimpleAction o) => IsSimpleAction o-instance (GObject o, O.IsDescendantOf SimpleAction o) => IsSimpleAction o--instance O.HasParentTypes SimpleAction-type instance O.ParentTypes SimpleAction = '[GObject.Object.Object, Gio.Action.Action]---- | Cast to `SimpleAction`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSimpleAction :: (MonadIO m, IsSimpleAction o) => o -> m SimpleAction-toSimpleAction = liftIO . unsafeCastTo SimpleAction---- | A convenience alias for `Nothing` :: `Maybe` `SimpleAction`.-noSimpleAction :: Maybe SimpleAction-noSimpleAction = Nothing--#if ENABLE_OVERLOADING-type family ResolveSimpleActionMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleActionMethod "activate" o = Gio.Action.ActionActivateMethodInfo-    ResolveSimpleActionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSimpleActionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSimpleActionMethod "changeState" o = Gio.Action.ActionChangeStateMethodInfo-    ResolveSimpleActionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSimpleActionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSimpleActionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSimpleActionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSimpleActionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSimpleActionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSimpleActionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSimpleActionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSimpleActionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSimpleActionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSimpleActionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSimpleActionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSimpleActionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSimpleActionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSimpleActionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSimpleActionMethod "getEnabled" o = Gio.Action.ActionGetEnabledMethodInfo-    ResolveSimpleActionMethod "getName" o = Gio.Action.ActionGetNameMethodInfo-    ResolveSimpleActionMethod "getParameterType" o = Gio.Action.ActionGetParameterTypeMethodInfo-    ResolveSimpleActionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSimpleActionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSimpleActionMethod "getState" o = Gio.Action.ActionGetStateMethodInfo-    ResolveSimpleActionMethod "getStateHint" o = Gio.Action.ActionGetStateHintMethodInfo-    ResolveSimpleActionMethod "getStateType" o = Gio.Action.ActionGetStateTypeMethodInfo-    ResolveSimpleActionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSimpleActionMethod "setEnabled" o = SimpleActionSetEnabledMethodInfo-    ResolveSimpleActionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSimpleActionMethod "setState" o = SimpleActionSetStateMethodInfo-    ResolveSimpleActionMethod "setStateHint" o = SimpleActionSetStateHintMethodInfo-    ResolveSimpleActionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSimpleActionMethod t SimpleAction, O.MethodInfo info SimpleAction p) => OL.IsLabel t (SimpleAction -> 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 SimpleAction::activate-{- |-Indicates that the action was just activated.--/@parameter@/ will always be of the expected type, i.e. the parameter type-specified when the action was created. If an incorrect type is given when-activating the action, this signal is not emitted.--Since GLib 2.40, if no handler is connected to this signal then the-default behaviour for boolean-stated actions with a 'Nothing' parameter-type is to toggle them via the 'GI.Gio.Objects.SimpleAction.SimpleAction'::@/change-state/@ signal.-For stateful actions where the state type is equal to the parameter-type, the default is to forward them directly to-'GI.Gio.Objects.SimpleAction.SimpleAction'::@/change-state/@.  This should allow almost all users-of 'GI.Gio.Objects.SimpleAction.SimpleAction' to connect only one handler or the other.--/Since: 2.28/--}-type SimpleActionActivateCallback =-    Maybe GVariant-    {- ^ /@parameter@/: the parameter to the activation, or 'Nothing' if it has-  no parameter -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SimpleActionActivateCallback`@.-noSimpleActionActivateCallback :: Maybe SimpleActionActivateCallback-noSimpleActionActivateCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SimpleActionActivateCallback =-    Ptr () ->                               -- object-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SimpleActionActivateCallback`.-foreign import ccall "wrapper"-    mk_SimpleActionActivateCallback :: C_SimpleActionActivateCallback -> IO (FunPtr C_SimpleActionActivateCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SimpleActionActivate :: MonadIO m => SimpleActionActivateCallback -> m (GClosure C_SimpleActionActivateCallback)-genClosure_SimpleActionActivate cb = liftIO $ do-    let cb' = wrap_SimpleActionActivateCallback cb-    mk_SimpleActionActivateCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SimpleActionActivateCallback` into a `C_SimpleActionActivateCallback`.-wrap_SimpleActionActivateCallback ::-    SimpleActionActivateCallback ->-    C_SimpleActionActivateCallback-wrap_SimpleActionActivateCallback _cb _ parameter _ = do-    maybeParameter <--        if parameter == nullPtr-        then return Nothing-        else do-            parameter' <- B.GVariant.newGVariantFromPtr parameter-            return $ Just parameter'-    _cb  maybeParameter---{- |-Connect a signal handler for the “@activate@” 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' simpleAction #activate callback-@--}-onSimpleActionActivate :: (IsSimpleAction a, MonadIO m) => a -> SimpleActionActivateCallback -> m SignalHandlerId-onSimpleActionActivate obj cb = liftIO $ do-    let cb' = wrap_SimpleActionActivateCallback cb-    cb'' <- mk_SimpleActionActivateCallback cb'-    connectSignalFunPtr obj "activate" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@activate@” 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' simpleAction #activate callback-@--}-afterSimpleActionActivate :: (IsSimpleAction a, MonadIO m) => a -> SimpleActionActivateCallback -> m SignalHandlerId-afterSimpleActionActivate obj cb = liftIO $ do-    let cb' = wrap_SimpleActionActivateCallback cb-    cb'' <- mk_SimpleActionActivateCallback cb'-    connectSignalFunPtr obj "activate" cb'' SignalConnectAfter----- signal SimpleAction::change-state-{- |-Indicates that the action just received a request to change its-state.--/@value@/ will always be of the correct state type, i.e. the type of the-initial state passed to 'GI.Gio.Objects.SimpleAction.simpleActionNewStateful'. If an incorrect-type is given when requesting to change the state, this signal is not-emitted.--If no handler is connected to this signal then the default-behaviour is to call 'GI.Gio.Objects.SimpleAction.simpleActionSetState' to set the state-to the requested value. If you connect a signal handler then no-default action is taken. If the state should change then you must-call 'GI.Gio.Objects.SimpleAction.simpleActionSetState' from the handler.--An example of a \'change-state\' handler:--=== /C code/->->static void->change_volume_state (GSimpleAction *action,->                     GVariant      *value,->                     gpointer       user_data)->{->  gint requested;->->  requested = g_variant_get_int32 (value);->->  // Volume only goes from 0 to 10->  if (0 <= requested && requested <= 10)->    g_simple_action_set_state (action, value);->}---The handler need not set the state to the requested value.-It could set it to any value at all, or take some other action.--/Since: 2.30/--}-type SimpleActionChangeStateCallback =-    Maybe GVariant-    {- ^ /@value@/: the requested value for the state -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SimpleActionChangeStateCallback`@.-noSimpleActionChangeStateCallback :: Maybe SimpleActionChangeStateCallback-noSimpleActionChangeStateCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SimpleActionChangeStateCallback =-    Ptr () ->                               -- object-    Ptr GVariant ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SimpleActionChangeStateCallback`.-foreign import ccall "wrapper"-    mk_SimpleActionChangeStateCallback :: C_SimpleActionChangeStateCallback -> IO (FunPtr C_SimpleActionChangeStateCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SimpleActionChangeState :: MonadIO m => SimpleActionChangeStateCallback -> m (GClosure C_SimpleActionChangeStateCallback)-genClosure_SimpleActionChangeState cb = liftIO $ do-    let cb' = wrap_SimpleActionChangeStateCallback cb-    mk_SimpleActionChangeStateCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SimpleActionChangeStateCallback` into a `C_SimpleActionChangeStateCallback`.-wrap_SimpleActionChangeStateCallback ::-    SimpleActionChangeStateCallback ->-    C_SimpleActionChangeStateCallback-wrap_SimpleActionChangeStateCallback _cb _ value _ = do-    maybeValue <--        if value == nullPtr-        then return Nothing-        else do-            value' <- B.GVariant.newGVariantFromPtr value-            return $ Just value'-    _cb  maybeValue---{- |-Connect a signal handler for the “@change-state@” 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' simpleAction #changeState callback-@--}-onSimpleActionChangeState :: (IsSimpleAction a, MonadIO m) => a -> SimpleActionChangeStateCallback -> m SignalHandlerId-onSimpleActionChangeState obj cb = liftIO $ do-    let cb' = wrap_SimpleActionChangeStateCallback cb-    cb'' <- mk_SimpleActionChangeStateCallback cb'-    connectSignalFunPtr obj "change-state" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@change-state@” 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' simpleAction #changeState callback-@--}-afterSimpleActionChangeState :: (IsSimpleAction a, MonadIO m) => a -> SimpleActionChangeStateCallback -> m SignalHandlerId-afterSimpleActionChangeState obj cb = liftIO $ do-    let cb' = wrap_SimpleActionChangeStateCallback cb-    cb'' <- mk_SimpleActionChangeStateCallback cb'-    connectSignalFunPtr obj "change-state" cb'' SignalConnectAfter------ XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "enabled", propType = TBasicType TBoolean, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "If @action is currently enabled.\n\nIf the action is disabled then calls to g_action_activate() and\ng_action_change_state() have no effect.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "enabled", propType = TBasicType TBoolean, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "If @action is currently enabled.\n\nIf the action is disabled then calls to g_action_activate() and\ng_action_change_state() have no effect.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The name of the action. This is mostly meaningful for identifying\nthe action once it has been added to a #GSimpleActionGroup.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The name of the action.  This is mostly meaningful for identifying\nthe action once it has been added to a #GActionGroup. It is immutable.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "parameter-type", propType = TInterface (Name {namespace = "GLib", name = "VariantType"}), propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The type of the parameter that must be given when activating the\naction.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "parameter-type", propType = TInterface (Name {namespace = "GLib", name = "VariantType"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The type of the parameter that must be given when activating the\naction. This is immutable, and may be %NULL if no parameter is needed when\nactivating the action.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "state", propType = TVariant, propFlags = [PropertyReadable,PropertyWritable,PropertyConstruct], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The state of the action, or %NULL if the action is stateless.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "state", propType = TVariant, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The state of the action, or %NULL if the action is stateless.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "state-type", propType = TInterface (Name {namespace = "GLib", name = "VariantType"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The #GVariantType of the state that the action has, or %NULL if the\naction is stateless.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "state-type", propType = TInterface (Name {namespace = "GLib", name = "VariantType"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Just "The #GVariantType of the state that the action has, or %NULL if the\naction is stateless. This is immutable.", sinceVersion = Just "2.28"}, propDeprecated = Nothing}--- VVV Prop "enabled"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just False)--{- |-Get the value of the “@enabled@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleAction #enabled-@--}-getSimpleActionEnabled :: (MonadIO m, IsSimpleAction o) => o -> m Bool-getSimpleActionEnabled obj = liftIO $ B.Properties.getObjectPropertyBool obj "enabled"--{- |-Set the value of the “@enabled@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' simpleAction [ #enabled 'Data.GI.Base.Attributes.:=' value ]-@--}-setSimpleActionEnabled :: (MonadIO m, IsSimpleAction o) => o -> Bool -> m ()-setSimpleActionEnabled obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enabled" val--{- |-Construct a `GValueConstruct` with valid value for the “@enabled@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSimpleActionEnabled :: (IsSimpleAction o) => Bool -> IO (GValueConstruct o)-constructSimpleActionEnabled val = B.Properties.constructObjectPropertyBool "enabled" val--#if ENABLE_OVERLOADING-data SimpleActionEnabledPropertyInfo-instance AttrInfo SimpleActionEnabledPropertyInfo where-    type AttrAllowedOps SimpleActionEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SimpleActionEnabledPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SimpleActionEnabledPropertyInfo = IsSimpleAction-    type AttrGetType SimpleActionEnabledPropertyInfo = Bool-    type AttrLabel SimpleActionEnabledPropertyInfo = "enabled"-    type AttrOrigin SimpleActionEnabledPropertyInfo = SimpleAction-    attrGet _ = getSimpleActionEnabled-    attrSet _ = setSimpleActionEnabled-    attrConstruct _ = constructSimpleActionEnabled-    attrClear _ = undefined-#endif---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleAction #name-@--}-getSimpleActionName :: (MonadIO m, IsSimpleAction o) => o -> m (Maybe T.Text)-getSimpleActionName obj = liftIO $ B.Properties.getObjectPropertyString obj "name"--{- |-Construct a `GValueConstruct` with valid value for the “@name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSimpleActionName :: (IsSimpleAction o) => T.Text -> IO (GValueConstruct o)-constructSimpleActionName val = B.Properties.constructObjectPropertyString "name" (Just val)--#if ENABLE_OVERLOADING-data SimpleActionNamePropertyInfo-instance AttrInfo SimpleActionNamePropertyInfo where-    type AttrAllowedOps SimpleActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleActionNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SimpleActionNamePropertyInfo = IsSimpleAction-    type AttrGetType SimpleActionNamePropertyInfo = (Maybe T.Text)-    type AttrLabel SimpleActionNamePropertyInfo = "name"-    type AttrOrigin SimpleActionNamePropertyInfo = SimpleAction-    attrGet _ = getSimpleActionName-    attrSet _ = undefined-    attrConstruct _ = constructSimpleActionName-    attrClear _ = undefined-#endif---- VVV Prop "parameter-type"-   -- Type: TInterface (Name {namespace = "GLib", name = "VariantType"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@parameter-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleAction #parameterType-@--}-getSimpleActionParameterType :: (MonadIO m, IsSimpleAction o) => o -> m (Maybe GLib.VariantType.VariantType)-getSimpleActionParameterType obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "parameter-type" GLib.VariantType.VariantType--{- |-Construct a `GValueConstruct` with valid value for the “@parameter-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSimpleActionParameterType :: (IsSimpleAction o) => GLib.VariantType.VariantType -> IO (GValueConstruct o)-constructSimpleActionParameterType val = B.Properties.constructObjectPropertyBoxed "parameter-type" (Just val)--#if ENABLE_OVERLOADING-data SimpleActionParameterTypePropertyInfo-instance AttrInfo SimpleActionParameterTypePropertyInfo where-    type AttrAllowedOps SimpleActionParameterTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleActionParameterTypePropertyInfo = (~) GLib.VariantType.VariantType-    type AttrBaseTypeConstraint SimpleActionParameterTypePropertyInfo = IsSimpleAction-    type AttrGetType SimpleActionParameterTypePropertyInfo = (Maybe GLib.VariantType.VariantType)-    type AttrLabel SimpleActionParameterTypePropertyInfo = "parameter-type"-    type AttrOrigin SimpleActionParameterTypePropertyInfo = SimpleAction-    attrGet _ = getSimpleActionParameterType-    attrSet _ = undefined-    attrConstruct _ = constructSimpleActionParameterType-    attrClear _ = undefined-#endif---- VVV Prop "state"-   -- Type: TVariant-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Just False)--{- |-Get the value of the “@state@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleAction #state-@--}-getSimpleActionState :: (MonadIO m, IsSimpleAction o) => o -> m (Maybe GVariant)-getSimpleActionState obj = liftIO $ B.Properties.getObjectPropertyVariant obj "state"--{- |-Set the value of the “@state@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' simpleAction [ #state 'Data.GI.Base.Attributes.:=' value ]-@--}-setSimpleActionState :: (MonadIO m, IsSimpleAction o) => o -> GVariant -> m ()-setSimpleActionState obj val = liftIO $ B.Properties.setObjectPropertyVariant obj "state" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@state@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSimpleActionState :: (IsSimpleAction o) => GVariant -> IO (GValueConstruct o)-constructSimpleActionState val = B.Properties.constructObjectPropertyVariant "state" (Just val)--#if ENABLE_OVERLOADING-data SimpleActionStatePropertyInfo-instance AttrInfo SimpleActionStatePropertyInfo where-    type AttrAllowedOps SimpleActionStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SimpleActionStatePropertyInfo = (~) GVariant-    type AttrBaseTypeConstraint SimpleActionStatePropertyInfo = IsSimpleAction-    type AttrGetType SimpleActionStatePropertyInfo = (Maybe GVariant)-    type AttrLabel SimpleActionStatePropertyInfo = "state"-    type AttrOrigin SimpleActionStatePropertyInfo = SimpleAction-    attrGet _ = getSimpleActionState-    attrSet _ = setSimpleActionState-    attrConstruct _ = constructSimpleActionState-    attrClear _ = undefined-#endif---- VVV Prop "state-type"-   -- Type: TInterface (Name {namespace = "GLib", name = "VariantType"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@state-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleAction #stateType-@--}-getSimpleActionStateType :: (MonadIO m, IsSimpleAction o) => o -> m (Maybe GLib.VariantType.VariantType)-getSimpleActionStateType obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "state-type" GLib.VariantType.VariantType--#if ENABLE_OVERLOADING-data SimpleActionStateTypePropertyInfo-instance AttrInfo SimpleActionStateTypePropertyInfo where-    type AttrAllowedOps SimpleActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleActionStateTypePropertyInfo = (~) ()-    type AttrBaseTypeConstraint SimpleActionStateTypePropertyInfo = IsSimpleAction-    type AttrGetType SimpleActionStateTypePropertyInfo = (Maybe GLib.VariantType.VariantType)-    type AttrLabel SimpleActionStateTypePropertyInfo = "state-type"-    type AttrOrigin SimpleActionStateTypePropertyInfo = SimpleAction-    attrGet _ = getSimpleActionStateType-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SimpleAction-type instance O.AttributeList SimpleAction = SimpleActionAttributeList-type SimpleActionAttributeList = ('[ '("enabled", SimpleActionEnabledPropertyInfo), '("name", SimpleActionNamePropertyInfo), '("parameterType", SimpleActionParameterTypePropertyInfo), '("state", SimpleActionStatePropertyInfo), '("stateType", SimpleActionStateTypePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-simpleActionEnabled :: AttrLabelProxy "enabled"-simpleActionEnabled = AttrLabelProxy--simpleActionName :: AttrLabelProxy "name"-simpleActionName = AttrLabelProxy--simpleActionParameterType :: AttrLabelProxy "parameterType"-simpleActionParameterType = AttrLabelProxy--simpleActionState :: AttrLabelProxy "state"-simpleActionState = AttrLabelProxy--simpleActionStateType :: AttrLabelProxy "stateType"-simpleActionStateType = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data SimpleActionActivateSignalInfo-instance SignalInfo SimpleActionActivateSignalInfo where-    type HaskellCallbackType SimpleActionActivateSignalInfo = SimpleActionActivateCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SimpleActionActivateCallback cb-        cb'' <- mk_SimpleActionActivateCallback cb'-        connectSignalFunPtr obj "activate" cb'' connectMode--data SimpleActionChangeStateSignalInfo-instance SignalInfo SimpleActionChangeStateSignalInfo where-    type HaskellCallbackType SimpleActionChangeStateSignalInfo = SimpleActionChangeStateCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SimpleActionChangeStateCallback cb-        cb'' <- mk_SimpleActionChangeStateCallback cb'-        connectSignalFunPtr obj "change-state" cb'' connectMode--type instance O.SignalList SimpleAction = SimpleActionSignalList-type SimpleActionSignalList = ('[ '("activate", SimpleActionActivateSignalInfo), '("changeState", SimpleActionChangeStateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SimpleAction::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the type of parameter that will be passed to\n  handlers for the #GSimpleAction::activate signal, or %NULL for no parameter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SimpleAction"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_new" g_simple_action_new :: -    CString ->                              -- name : TBasicType TUTF8-    Ptr GLib.VariantType.VariantType ->     -- parameter_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    IO (Ptr SimpleAction)--{- |-Creates a new action.--The created action is stateless. See 'GI.Gio.Objects.SimpleAction.simpleActionNewStateful' to create-an action that has state.--/Since: 2.28/--}-simpleActionNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@name@/: the name of the action -}-    -> Maybe (GLib.VariantType.VariantType)-    {- ^ /@parameterType@/: the type of parameter that will be passed to-  handlers for the 'GI.Gio.Objects.SimpleAction.SimpleAction'::@/activate/@ signal, or 'Nothing' for no parameter -}-    -> m SimpleAction-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SimpleAction.SimpleAction' -}-simpleActionNew name parameterType = liftIO $ do-    name' <- textToCString name-    maybeParameterType <- case parameterType of-        Nothing -> return nullPtr-        Just jParameterType -> do-            jParameterType' <- unsafeManagedPtrGetPtr jParameterType-            return jParameterType'-    result <- g_simple_action_new name' maybeParameterType-    checkUnexpectedReturnNULL "simpleActionNew" result-    result' <- (wrapObject SimpleAction) result-    whenJust parameterType touchManagedPtr-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-#endif---- method SimpleAction::new_stateful--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter_type", argType = TInterface (Name {namespace = "GLib", name = "VariantType"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the type of the parameter that will be passed to\n  handlers for the #GSimpleAction::activate signal, or %NULL for no parameter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the initial state of the action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SimpleAction"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_new_stateful" g_simple_action_new_stateful :: -    CString ->                              -- name : TBasicType TUTF8-    Ptr GLib.VariantType.VariantType ->     -- parameter_type : TInterface (Name {namespace = "GLib", name = "VariantType"})-    Ptr GVariant ->                         -- state : TVariant-    IO (Ptr SimpleAction)--{- |-Creates a new stateful action.--All future state values must have the same 'GI.GLib.Structs.VariantType.VariantType' as the initial-/@state@/.--If the /@state@/ 'GVariant' is floating, it is consumed.--/Since: 2.28/--}-simpleActionNewStateful ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@name@/: the name of the action -}-    -> Maybe (GLib.VariantType.VariantType)-    {- ^ /@parameterType@/: the type of the parameter that will be passed to-  handlers for the 'GI.Gio.Objects.SimpleAction.SimpleAction'::@/activate/@ signal, or 'Nothing' for no parameter -}-    -> GVariant-    {- ^ /@state@/: the initial state of the action -}-    -> m SimpleAction-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SimpleAction.SimpleAction' -}-simpleActionNewStateful name parameterType state = liftIO $ do-    name' <- textToCString name-    maybeParameterType <- case parameterType of-        Nothing -> return nullPtr-        Just jParameterType -> do-            jParameterType' <- unsafeManagedPtrGetPtr jParameterType-            return jParameterType'-    state' <- unsafeManagedPtrGetPtr state-    result <- g_simple_action_new_stateful name' maybeParameterType state'-    checkUnexpectedReturnNULL "simpleActionNewStateful" result-    result' <- (wrapObject SimpleAction) result-    whenJust parameterType touchManagedPtr-    touchManagedPtr state-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-#endif---- method SimpleAction::set_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the action is enabled", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_set_enabled" g_simple_action_set_enabled :: -    Ptr SimpleAction ->                     -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAction"})-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()--{- |-Sets the action as enabled or not.--An action must be enabled in order to be activated or in order to-have its state changed from outside callers.--This should only be called by the implementor of the action.  Users-of the action should not attempt to modify its enabled flag.--/Since: 2.28/--}-simpleActionSetEnabled ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAction a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAction.SimpleAction' -}-    -> Bool-    {- ^ /@enabled@/: whether the action is enabled -}-    -> m ()-simpleActionSetEnabled simple enabled = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    let enabled' = (fromIntegral . fromEnum) enabled-    g_simple_action_set_enabled simple' enabled'-    touchManagedPtr simple-    return ()--#if ENABLE_OVERLOADING-data SimpleActionSetEnabledMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSimpleAction a) => O.MethodInfo SimpleActionSetEnabledMethodInfo a signature where-    overloadedMethod _ = simpleActionSetEnabled--#endif---- method SimpleAction::set_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAction", 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 new #GVariant for the state", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_set_state" g_simple_action_set_state :: -    Ptr SimpleAction ->                     -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAction"})-    Ptr GVariant ->                         -- value : TVariant-    IO ()--{- |-Sets the state of the action.--This directly updates the \'state\' property to the given value.--This should only be called by the implementor of the action.  Users-of the action should not attempt to directly modify the \'state\'-property.  Instead, they should call 'GI.Gio.Interfaces.Action.actionChangeState' to-request the change.--If the /@value@/ GVariant is floating, it is consumed.--/Since: 2.30/--}-simpleActionSetState ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAction a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAction.SimpleAction' -}-    -> GVariant-    {- ^ /@value@/: the new 'GVariant' for the state -}-    -> m ()-simpleActionSetState simple value = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    value' <- unsafeManagedPtrGetPtr value-    g_simple_action_set_state simple' value'-    touchManagedPtr simple-    touchManagedPtr value-    return ()--#if ENABLE_OVERLOADING-data SimpleActionSetStateMethodInfo-instance (signature ~ (GVariant -> m ()), MonadIO m, IsSimpleAction a) => O.MethodInfo SimpleActionSetStateMethodInfo a signature where-    overloadedMethod _ = simpleActionSetState--#endif---- method SimpleAction::set_state_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_hint", argType = TVariant, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVariant representing the state hint", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_set_state_hint" g_simple_action_set_state_hint :: -    Ptr SimpleAction ->                     -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAction"})-    Ptr GVariant ->                         -- state_hint : TVariant-    IO ()--{- |-Sets the state hint for the action.--See 'GI.Gio.Interfaces.Action.actionGetStateHint' for more information about-action state hints.--/Since: 2.44/--}-simpleActionSetStateHint ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAction a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAction.SimpleAction' -}-    -> Maybe (GVariant)-    {- ^ /@stateHint@/: a 'GVariant' representing the state hint -}-    -> m ()-simpleActionSetStateHint simple stateHint = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    maybeStateHint <- case stateHint of-        Nothing -> return nullPtr-        Just jStateHint -> do-            jStateHint' <- unsafeManagedPtrGetPtr jStateHint-            return jStateHint'-    g_simple_action_set_state_hint simple' maybeStateHint-    touchManagedPtr simple-    whenJust stateHint touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SimpleActionSetStateHintMethodInfo-instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, IsSimpleAction a) => O.MethodInfo SimpleActionSetStateHintMethodInfo a signature where-    overloadedMethod _ = simpleActionSetStateHint--#endif--
− GI/Gio/Objects/SimpleAction.hs-boot 
@@ -1,59 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SimpleAction 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 SimpleAction = SimpleAction (ManagedPtr SimpleAction)-instance GObject SimpleAction where-class (GObject o, O.IsDescendantOf SimpleAction o) => IsSimpleAction o-instance (GObject o, O.IsDescendantOf SimpleAction o) => IsSimpleAction o-instance O.HasParentTypes SimpleAction-#if ENABLE_OVERLOADING-data SimpleActionEnabledPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionParameterTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionStatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionStateTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionActivateSignalInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionChangeStateSignalInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionSetEnabledMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionSetStateMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionSetStateHintMethodInfo-#endif
− GI/Gio/Objects/SimpleActionGroup.hs 
@@ -1,404 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup' is a hash table filled with 'GI.Gio.Interfaces.Action.Action' objects,-implementing the 'GI.Gio.Interfaces.ActionGroup.ActionGroup' and 'GI.Gio.Interfaces.ActionMap.ActionMap' interfaces.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SimpleActionGroup-    ( ---- * Exported types-    SimpleActionGroup(..)                   ,-    IsSimpleActionGroup                     ,-    toSimpleActionGroup                     ,-    noSimpleActionGroup                     ,--- -- * Methods--- ** addEntries #method:addEntries#--#if ENABLE_OVERLOADING-    SimpleActionGroupAddEntriesMethodInfo   ,-#endif-    simpleActionGroupAddEntries             ,----- ** insert #method:insert#--#if ENABLE_OVERLOADING-    SimpleActionGroupInsertMethodInfo       ,-#endif-    simpleActionGroupInsert                 ,----- ** lookup #method:lookup#--#if ENABLE_OVERLOADING-    SimpleActionGroupLookupMethodInfo       ,-#endif-    simpleActionGroupLookup                 ,----- ** new #method:new#--    simpleActionGroupNew                    ,----- ** remove #method:remove#--#if ENABLE_OVERLOADING-    SimpleActionGroupRemoveMethodInfo       ,-#endif-    simpleActionGroupRemove                 ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Action as Gio.Action-import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup-import {-# SOURCE #-} qualified GI.Gio.Interfaces.ActionMap as Gio.ActionMap-import {-# SOURCE #-} qualified GI.Gio.Structs.ActionEntry as Gio.ActionEntry---- | Memory-managed wrapper type.-newtype SimpleActionGroup = SimpleActionGroup (ManagedPtr SimpleActionGroup)-foreign import ccall "g_simple_action_group_get_type"-    c_g_simple_action_group_get_type :: IO GType--instance GObject SimpleActionGroup where-    gobjectType = c_g_simple_action_group_get_type-    ---- | Type class for types which can be safely cast to `SimpleActionGroup`, for instance with `toSimpleActionGroup`.-class (GObject o, O.IsDescendantOf SimpleActionGroup o) => IsSimpleActionGroup o-instance (GObject o, O.IsDescendantOf SimpleActionGroup o) => IsSimpleActionGroup o--instance O.HasParentTypes SimpleActionGroup-type instance O.ParentTypes SimpleActionGroup = '[GObject.Object.Object, Gio.ActionGroup.ActionGroup, Gio.ActionMap.ActionMap]---- | Cast to `SimpleActionGroup`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSimpleActionGroup :: (MonadIO m, IsSimpleActionGroup o) => o -> m SimpleActionGroup-toSimpleActionGroup = liftIO . unsafeCastTo SimpleActionGroup---- | A convenience alias for `Nothing` :: `Maybe` `SimpleActionGroup`.-noSimpleActionGroup :: Maybe SimpleActionGroup-noSimpleActionGroup = Nothing--#if ENABLE_OVERLOADING-type family ResolveSimpleActionGroupMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleActionGroupMethod "actionAdded" o = Gio.ActionGroup.ActionGroupActionAddedMethodInfo-    ResolveSimpleActionGroupMethod "actionEnabledChanged" o = Gio.ActionGroup.ActionGroupActionEnabledChangedMethodInfo-    ResolveSimpleActionGroupMethod "actionRemoved" o = Gio.ActionGroup.ActionGroupActionRemovedMethodInfo-    ResolveSimpleActionGroupMethod "actionStateChanged" o = Gio.ActionGroup.ActionGroupActionStateChangedMethodInfo-    ResolveSimpleActionGroupMethod "activateAction" o = Gio.ActionGroup.ActionGroupActivateActionMethodInfo-    ResolveSimpleActionGroupMethod "addAction" o = Gio.ActionMap.ActionMapAddActionMethodInfo-    ResolveSimpleActionGroupMethod "addActionEntries" o = Gio.ActionMap.ActionMapAddActionEntriesMethodInfo-    ResolveSimpleActionGroupMethod "addEntries" o = SimpleActionGroupAddEntriesMethodInfo-    ResolveSimpleActionGroupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSimpleActionGroupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSimpleActionGroupMethod "changeActionState" o = Gio.ActionGroup.ActionGroupChangeActionStateMethodInfo-    ResolveSimpleActionGroupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSimpleActionGroupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSimpleActionGroupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSimpleActionGroupMethod "hasAction" o = Gio.ActionGroup.ActionGroupHasActionMethodInfo-    ResolveSimpleActionGroupMethod "insert" o = SimpleActionGroupInsertMethodInfo-    ResolveSimpleActionGroupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSimpleActionGroupMethod "listActions" o = Gio.ActionGroup.ActionGroupListActionsMethodInfo-    ResolveSimpleActionGroupMethod "lookup" o = SimpleActionGroupLookupMethodInfo-    ResolveSimpleActionGroupMethod "lookupAction" o = Gio.ActionMap.ActionMapLookupActionMethodInfo-    ResolveSimpleActionGroupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSimpleActionGroupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSimpleActionGroupMethod "queryAction" o = Gio.ActionGroup.ActionGroupQueryActionMethodInfo-    ResolveSimpleActionGroupMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSimpleActionGroupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSimpleActionGroupMethod "remove" o = SimpleActionGroupRemoveMethodInfo-    ResolveSimpleActionGroupMethod "removeAction" o = Gio.ActionMap.ActionMapRemoveActionMethodInfo-    ResolveSimpleActionGroupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSimpleActionGroupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSimpleActionGroupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSimpleActionGroupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSimpleActionGroupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSimpleActionGroupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSimpleActionGroupMethod "getActionEnabled" o = Gio.ActionGroup.ActionGroupGetActionEnabledMethodInfo-    ResolveSimpleActionGroupMethod "getActionParameterType" o = Gio.ActionGroup.ActionGroupGetActionParameterTypeMethodInfo-    ResolveSimpleActionGroupMethod "getActionState" o = Gio.ActionGroup.ActionGroupGetActionStateMethodInfo-    ResolveSimpleActionGroupMethod "getActionStateHint" o = Gio.ActionGroup.ActionGroupGetActionStateHintMethodInfo-    ResolveSimpleActionGroupMethod "getActionStateType" o = Gio.ActionGroup.ActionGroupGetActionStateTypeMethodInfo-    ResolveSimpleActionGroupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSimpleActionGroupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSimpleActionGroupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSimpleActionGroupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSimpleActionGroupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSimpleActionGroupMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSimpleActionGroupMethod t SimpleActionGroup, O.MethodInfo info SimpleActionGroup p) => OL.IsLabel t (SimpleActionGroup -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList SimpleActionGroup-type instance O.AttributeList SimpleActionGroup = SimpleActionGroupAttributeList-type SimpleActionGroupAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SimpleActionGroup = SimpleActionGroupSignalList-type SimpleActionGroupSignalList = ('[ '("actionAdded", Gio.ActionGroup.ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", Gio.ActionGroup.ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", Gio.ActionGroup.ActionGroupActionRemovedSignalInfo), '("actionStateChanged", Gio.ActionGroup.ActionGroupActionStateChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SimpleActionGroup::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_group_new" g_simple_action_group_new :: -    IO (Ptr SimpleActionGroup)--{- |-Creates a new, empty, 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup'.--/Since: 2.28/--}-simpleActionGroupNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m SimpleActionGroup-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup' -}-simpleActionGroupNew  = liftIO $ do-    result <- g_simple_action_group_new-    checkUnexpectedReturnNULL "simpleActionGroupNew" result-    result' <- (wrapObject SimpleActionGroup) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method SimpleActionGroup::add_entries--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "ActionEntry"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to the first item in\n          an array of #GActionEntry structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @entries, or -1", 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 "the user data for signal connections", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @entries, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_group_add_entries" g_simple_action_group_add_entries :: -    Ptr SimpleActionGroup ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"})-    Ptr Gio.ActionEntry.ActionEntry ->      -- entries : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "ActionEntry"}))-    Int32 ->                                -- n_entries : TBasicType TInt-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED simpleActionGroupAddEntries ["(Since version 2.38)","Use 'GI.Gio.Interfaces.ActionMap.actionMapAddActionEntries'"] #-}-{- |-A convenience function for creating multiple 'GI.Gio.Objects.SimpleAction.SimpleAction' instances-and adding them to the action group.--/Since: 2.30/--}-simpleActionGroupAddEntries ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleActionGroup a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup' -}-    -> [Gio.ActionEntry.ActionEntry]-    {- ^ /@entries@/: a pointer to the first item in-          an array of 'GI.Gio.Structs.ActionEntry.ActionEntry' structs -}-    -> Ptr ()-    {- ^ /@userData@/: the user data for signal connections -}-    -> m ()-simpleActionGroupAddEntries simple entries userData = liftIO $ do-    let nEntries = fromIntegral $ length entries-    simple' <- unsafeManagedPtrCastPtr simple-    entries' <- mapM unsafeManagedPtrGetPtr entries-    entries'' <- packBlockArray 64 entries'-    g_simple_action_group_add_entries simple' entries'' nEntries userData-    touchManagedPtr simple-    mapM_ touchManagedPtr entries-    freeMem entries''-    return ()--#if ENABLE_OVERLOADING-data SimpleActionGroupAddEntriesMethodInfo-instance (signature ~ ([Gio.ActionEntry.ActionEntry] -> Ptr () -> m ()), MonadIO m, IsSimpleActionGroup a) => O.MethodInfo SimpleActionGroupAddEntriesMethodInfo a signature where-    overloadedMethod _ = simpleActionGroupAddEntries--#endif---- method SimpleActionGroup::insert--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface (Name {namespace = "Gio", name = "Action"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_group_insert" g_simple_action_group_insert :: -    Ptr SimpleActionGroup ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"})-    Ptr Gio.Action.Action ->                -- action : TInterface (Name {namespace = "Gio", name = "Action"})-    IO ()--{-# DEPRECATED simpleActionGroupInsert ["(Since version 2.38)","Use 'GI.Gio.Interfaces.ActionMap.actionMapAddAction'"] #-}-{- |-Adds an action to the action group.--If the action group already contains an action with the same name as-/@action@/ then the old action is dropped from the group.--The action group takes its own reference on /@action@/.--/Since: 2.28/--}-simpleActionGroupInsert ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleActionGroup a, Gio.Action.IsAction b) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup' -}-    -> b-    {- ^ /@action@/: a 'GI.Gio.Interfaces.Action.Action' -}-    -> m ()-simpleActionGroupInsert simple action = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    action' <- unsafeManagedPtrCastPtr action-    g_simple_action_group_insert simple' action'-    touchManagedPtr simple-    touchManagedPtr action-    return ()--#if ENABLE_OVERLOADING-data SimpleActionGroupInsertMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSimpleActionGroup a, Gio.Action.IsAction b) => O.MethodInfo SimpleActionGroupInsertMethodInfo a signature where-    overloadedMethod _ = simpleActionGroupInsert--#endif---- method SimpleActionGroup::lookup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of an action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Action"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_group_lookup" g_simple_action_group_lookup :: -    Ptr SimpleActionGroup ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO (Ptr Gio.Action.Action)--{-# DEPRECATED simpleActionGroupLookup ["(Since version 2.38)","Use 'GI.Gio.Interfaces.ActionMap.actionMapLookupAction'"] #-}-{- |-Looks up the action with the name /@actionName@/ in the group.--If no such action exists, returns 'Nothing'.--/Since: 2.28/--}-simpleActionGroupLookup ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleActionGroup a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of an action -}-    -> m Gio.Action.Action-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Action.Action', or 'Nothing' -}-simpleActionGroupLookup simple actionName = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    actionName' <- textToCString actionName-    result <- g_simple_action_group_lookup simple' actionName'-    checkUnexpectedReturnNULL "simpleActionGroupLookup" result-    result' <- (newObject Gio.Action.Action) result-    touchManagedPtr simple-    freeMem actionName'-    return result'--#if ENABLE_OVERLOADING-data SimpleActionGroupLookupMethodInfo-instance (signature ~ (T.Text -> m Gio.Action.Action), MonadIO m, IsSimpleActionGroup a) => O.MethodInfo SimpleActionGroupLookupMethodInfo a signature where-    overloadedMethod _ = simpleActionGroupLookup--#endif---- method SimpleActionGroup::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleActionGroup", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the action", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_action_group_remove" g_simple_action_group_remove :: -    Ptr SimpleActionGroup ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleActionGroup"})-    CString ->                              -- action_name : TBasicType TUTF8-    IO ()--{-# DEPRECATED simpleActionGroupRemove ["(Since version 2.38)","Use 'GI.Gio.Interfaces.ActionMap.actionMapRemoveAction'"] #-}-{- |-Removes the named action from the action group.--If no action of this name is in the group then nothing happens.--/Since: 2.28/--}-simpleActionGroupRemove ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleActionGroup a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleActionGroup.SimpleActionGroup' -}-    -> T.Text-    {- ^ /@actionName@/: the name of the action -}-    -> m ()-simpleActionGroupRemove simple actionName = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    actionName' <- textToCString actionName-    g_simple_action_group_remove simple' actionName'-    touchManagedPtr simple-    freeMem actionName'-    return ()--#if ENABLE_OVERLOADING-data SimpleActionGroupRemoveMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsSimpleActionGroup a) => O.MethodInfo SimpleActionGroupRemoveMethodInfo a signature where-    overloadedMethod _ = simpleActionGroupRemove--#endif--
− GI/Gio/Objects/SimpleActionGroup.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SimpleActionGroup 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 SimpleActionGroup = SimpleActionGroup (ManagedPtr SimpleActionGroup)-instance GObject SimpleActionGroup where-class (GObject o, O.IsDescendantOf SimpleActionGroup o) => IsSimpleActionGroup o-instance (GObject o, O.IsDescendantOf SimpleActionGroup o) => IsSimpleActionGroup o-instance O.HasParentTypes SimpleActionGroup-#if ENABLE_OVERLOADING-data SimpleActionGroupAddEntriesMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionGroupInsertMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionGroupLookupMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleActionGroupRemoveMethodInfo-#endif
− GI/Gio/Objects/SimpleAsyncResult.hs 
@@ -1,987 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--As of GLib 2.46, 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' is deprecated in favor of-'GI.Gio.Objects.Task.Task', which provides a simpler API.--'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' implements 'GI.Gio.Interfaces.AsyncResult.AsyncResult'.--GSimpleAsyncResult handles @/GAsyncReadyCallbacks/@, error-reporting, operation cancellation and the final state of an operation,-completely transparent to the application. Results can be returned-as a pointer e.g. for functions that return data that is collected-asynchronously, a boolean value for checking the success or failure-of an operation, or a @/gssize/@ for operations which return the number-of bytes modified by the operation; all of the simple return cases-are covered.--Most of the time, an application will not need to know of the details-of this API; it is handled transparently, and any necessary operations-are handled by 'GI.Gio.Interfaces.AsyncResult.AsyncResult'\'s interface. However, if implementing a-new GIO module, for writing language bindings, or for complex-applications that need better control of how asynchronous operations-are completed, it is important to understand this functionality.--GSimpleAsyncResults are tagged with the calling function to ensure-that asynchronous functions and their finishing functions are used-together correctly.--To create a new 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult', call 'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultNew'.-If the result needs to be created for a 'GError', use-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultNewFromError' or-@/g_simple_async_result_new_take_error()/@. If a 'GError' is not available-(e.g. the asynchronous operation\'s doesn\'t take a 'GError' argument),-but the result still needs to be created for an error condition, use-@/g_simple_async_result_new_error()/@ (or @/g_simple_async_result_set_error_va()/@-if your application or binding requires passing a variable argument list-directly), and the error can then be propagated through the use of-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultPropagateError'.--An asynchronous operation can be made to ignore a cancellation event by-calling 'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultSetHandleCancellation' with a-'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' for the operation and 'False'. This is useful for-operations that are dangerous to cancel, such as close (which would-cause a leak if cancelled before being run).--GSimpleAsyncResult can integrate into GLib\'s event loop, 'GI.GLib.Structs.MainLoop.MainLoop',-or it can use @/GThreads/@.-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultComplete' will finish an I\/O task directly-from the point where it is called. 'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultCompleteInIdle'-will finish it from an idle handler in the-[thread-default main context][g-main-context-push-thread-default]-where the 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' was created.-@/g_simple_async_result_run_in_thread()/@ will run the job in a-separate thread and then use-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultCompleteInIdle' to deliver the result.--To set the results of an asynchronous function,-@/g_simple_async_result_set_op_res_gpointer()/@,-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultSetOpResGboolean', and-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultSetOpResGssize'-are provided, setting the operation\'s result to a gpointer, gboolean, or-gssize, respectively.--Likewise, to get the result of an asynchronous function,-@/g_simple_async_result_get_op_res_gpointer()/@,-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultGetOpResGboolean', and-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultGetOpResGssize' are-provided, getting the operation\'s result as a gpointer, gboolean, and-gssize, respectively.--For the details of the requirements implementations must respect, see-'GI.Gio.Interfaces.AsyncResult.AsyncResult'.  A typical implementation of an asynchronous operation-using GSimpleAsyncResult looks something like this:---=== /C code/->->static void->baked_cb (Cake    *cake,->          gpointer user_data)->{->  // In this example, this callback is not given a reference to the cake,->  // so the GSimpleAsyncResult has to take a reference to it.->  GSimpleAsyncResult *result = user_data;->->  if (cake == NULL)->    g_simple_async_result_set_error (result,->                                     BAKER_ERRORS,->                                     BAKER_ERROR_NO_FLOUR,->                                     "Go to the supermarket");->  else->    g_simple_async_result_set_op_res_gpointer (result,->                                               g_object_ref (cake),->                                               g_object_unref);->->->  // In this example, we assume that baked_cb is called as a callback from->  // the mainloop, so it's safe to complete the operation synchronously here.->  // If, however, _baker_prepare_cake () might call its callback without->  // first returning to the mainloop — inadvisable, but some APIs do so —->  // we would need to use g_simple_async_result_complete_in_idle().->  g_simple_async_result_complete (result);->  g_object_unref (result);->}->->void->baker_bake_cake_async (Baker              *self,->                       guint               radius,->                       GAsyncReadyCallback callback,->                       gpointer            user_data)->{->  GSimpleAsyncResult *simple;->  Cake               *cake;->->  if (radius < 3)->    {->      g_simple_async_report_error_in_idle (G_OBJECT (self),->                                           callback,->                                           user_data,->                                           BAKER_ERRORS,->                                           BAKER_ERROR_TOO_SMALL,->                                           "%ucm radius cakes are silly",->                                           radius);->      return;->    }->->  simple = g_simple_async_result_new (G_OBJECT (self),->                                      callback,->                                      user_data,->                                      baker_bake_cake_async);->  cake = _baker_get_cached_cake (self, radius);->->  if (cake != NULL)->    {->      g_simple_async_result_set_op_res_gpointer (simple,->                                                 g_object_ref (cake),->                                                 g_object_unref);->      g_simple_async_result_complete_in_idle (simple);->      g_object_unref (simple);->      // Drop the reference returned by _baker_get_cached_cake();->      // the GSimpleAsyncResult has taken its own reference.->      g_object_unref (cake);->      return;->    }->->  _baker_prepare_cake (self, radius, baked_cb, simple);->}->->Cake *->baker_bake_cake_finish (Baker        *self,->                        GAsyncResult *result,->                        GError      **error)->{->  GSimpleAsyncResult *simple;->  Cake               *cake;->->  g_return_val_if_fail (g_simple_async_result_is_valid (result,->                                                        G_OBJECT (self),->                                                        baker_bake_cake_async),->                        NULL);->->  simple = (GSimpleAsyncResult *) result;->->  if (g_simple_async_result_propagate_error (simple, error))->    return NULL;->->  cake = CAKE (g_simple_async_result_get_op_res_gpointer (simple));->  return g_object_ref (cake);->}---}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SimpleAsyncResult-    ( ---- * Exported types-    SimpleAsyncResult(..)                   ,-    IsSimpleAsyncResult                     ,-    toSimpleAsyncResult                     ,-    noSimpleAsyncResult                     ,--- -- * Methods--- ** complete #method:complete#--#if ENABLE_OVERLOADING-    SimpleAsyncResultCompleteMethodInfo     ,-#endif-    simpleAsyncResultComplete               ,----- ** completeInIdle #method:completeInIdle#--#if ENABLE_OVERLOADING-    SimpleAsyncResultCompleteInIdleMethodInfo,-#endif-    simpleAsyncResultCompleteInIdle         ,----- ** getOpResGboolean #method:getOpResGboolean#--#if ENABLE_OVERLOADING-    SimpleAsyncResultGetOpResGbooleanMethodInfo,-#endif-    simpleAsyncResultGetOpResGboolean       ,----- ** getOpResGssize #method:getOpResGssize#--#if ENABLE_OVERLOADING-    SimpleAsyncResultGetOpResGssizeMethodInfo,-#endif-    simpleAsyncResultGetOpResGssize         ,----- ** isValid #method:isValid#--    simpleAsyncResultIsValid                ,----- ** new #method:new#--    simpleAsyncResultNew                    ,----- ** newFromError #method:newFromError#--    simpleAsyncResultNewFromError           ,----- ** propagateError #method:propagateError#--#if ENABLE_OVERLOADING-    SimpleAsyncResultPropagateErrorMethodInfo,-#endif-    simpleAsyncResultPropagateError         ,----- ** setCheckCancellable #method:setCheckCancellable#--#if ENABLE_OVERLOADING-    SimpleAsyncResultSetCheckCancellableMethodInfo,-#endif-    simpleAsyncResultSetCheckCancellable    ,----- ** setFromError #method:setFromError#--#if ENABLE_OVERLOADING-    SimpleAsyncResultSetFromErrorMethodInfo ,-#endif-    simpleAsyncResultSetFromError           ,----- ** setHandleCancellation #method:setHandleCancellation#--#if ENABLE_OVERLOADING-    SimpleAsyncResultSetHandleCancellationMethodInfo,-#endif-    simpleAsyncResultSetHandleCancellation  ,----- ** setOpResGboolean #method:setOpResGboolean#--#if ENABLE_OVERLOADING-    SimpleAsyncResultSetOpResGbooleanMethodInfo,-#endif-    simpleAsyncResultSetOpResGboolean       ,----- ** setOpResGssize #method:setOpResGssize#--#if ENABLE_OVERLOADING-    SimpleAsyncResultSetOpResGssizeMethodInfo,-#endif-    simpleAsyncResultSetOpResGssize         ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- | Memory-managed wrapper type.-newtype SimpleAsyncResult = SimpleAsyncResult (ManagedPtr SimpleAsyncResult)-foreign import ccall "g_simple_async_result_get_type"-    c_g_simple_async_result_get_type :: IO GType--instance GObject SimpleAsyncResult where-    gobjectType = c_g_simple_async_result_get_type-    ---- | Type class for types which can be safely cast to `SimpleAsyncResult`, for instance with `toSimpleAsyncResult`.-class (GObject o, O.IsDescendantOf SimpleAsyncResult o) => IsSimpleAsyncResult o-instance (GObject o, O.IsDescendantOf SimpleAsyncResult o) => IsSimpleAsyncResult o--instance O.HasParentTypes SimpleAsyncResult-type instance O.ParentTypes SimpleAsyncResult = '[GObject.Object.Object, Gio.AsyncResult.AsyncResult]---- | Cast to `SimpleAsyncResult`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSimpleAsyncResult :: (MonadIO m, IsSimpleAsyncResult o) => o -> m SimpleAsyncResult-toSimpleAsyncResult = liftIO . unsafeCastTo SimpleAsyncResult---- | A convenience alias for `Nothing` :: `Maybe` `SimpleAsyncResult`.-noSimpleAsyncResult :: Maybe SimpleAsyncResult-noSimpleAsyncResult = Nothing--#if ENABLE_OVERLOADING-type family ResolveSimpleAsyncResultMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleAsyncResultMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSimpleAsyncResultMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSimpleAsyncResultMethod "complete" o = SimpleAsyncResultCompleteMethodInfo-    ResolveSimpleAsyncResultMethod "completeInIdle" o = SimpleAsyncResultCompleteInIdleMethodInfo-    ResolveSimpleAsyncResultMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSimpleAsyncResultMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSimpleAsyncResultMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSimpleAsyncResultMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSimpleAsyncResultMethod "isTagged" o = Gio.AsyncResult.AsyncResultIsTaggedMethodInfo-    ResolveSimpleAsyncResultMethod "legacyPropagateError" o = Gio.AsyncResult.AsyncResultLegacyPropagateErrorMethodInfo-    ResolveSimpleAsyncResultMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSimpleAsyncResultMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSimpleAsyncResultMethod "propagateError" o = SimpleAsyncResultPropagateErrorMethodInfo-    ResolveSimpleAsyncResultMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSimpleAsyncResultMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSimpleAsyncResultMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSimpleAsyncResultMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSimpleAsyncResultMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSimpleAsyncResultMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSimpleAsyncResultMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSimpleAsyncResultMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSimpleAsyncResultMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSimpleAsyncResultMethod "getOpResGboolean" o = SimpleAsyncResultGetOpResGbooleanMethodInfo-    ResolveSimpleAsyncResultMethod "getOpResGssize" o = SimpleAsyncResultGetOpResGssizeMethodInfo-    ResolveSimpleAsyncResultMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSimpleAsyncResultMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSimpleAsyncResultMethod "getSourceObject" o = Gio.AsyncResult.AsyncResultGetSourceObjectMethodInfo-    ResolveSimpleAsyncResultMethod "getUserData" o = Gio.AsyncResult.AsyncResultGetUserDataMethodInfo-    ResolveSimpleAsyncResultMethod "setCheckCancellable" o = SimpleAsyncResultSetCheckCancellableMethodInfo-    ResolveSimpleAsyncResultMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSimpleAsyncResultMethod "setFromError" o = SimpleAsyncResultSetFromErrorMethodInfo-    ResolveSimpleAsyncResultMethod "setHandleCancellation" o = SimpleAsyncResultSetHandleCancellationMethodInfo-    ResolveSimpleAsyncResultMethod "setOpResGboolean" o = SimpleAsyncResultSetOpResGbooleanMethodInfo-    ResolveSimpleAsyncResultMethod "setOpResGssize" o = SimpleAsyncResultSetOpResGssizeMethodInfo-    ResolveSimpleAsyncResultMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSimpleAsyncResultMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSimpleAsyncResultMethod t SimpleAsyncResult, O.MethodInfo info SimpleAsyncResult p) => OL.IsLabel t (SimpleAsyncResult -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList SimpleAsyncResult-type instance O.AttributeList SimpleAsyncResult = SimpleAsyncResultAttributeList-type SimpleAsyncResultAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SimpleAsyncResult = SimpleAsyncResultSignalList-type SimpleAsyncResultSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SimpleAsyncResult::new--- method type : Constructor--- Args : [Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GObject, 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 "a #GAsyncReadyCallback.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to @callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the asynchronous function.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_new" g_simple_async_result_new :: -    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    Ptr () ->                               -- source_tag : TBasicType TPtr-    IO (Ptr SimpleAsyncResult)--{-# DEPRECATED simpleAsyncResultNew ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.taskNew' instead."] #-}-{- |-Creates a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'.--The common convention is to create the 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' in the-function that starts the asynchronous operation and use that same-function as the /@sourceTag@/.--If your operation supports cancellation with 'GI.Gio.Objects.Cancellable.Cancellable' (which it-probably should) then you should provide the user\'s cancellable to-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultSetCheckCancellable' immediately after-this function returns.--}-simpleAsyncResultNew ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>-    Maybe (a)-    {- ^ /@sourceObject@/: a 'GI.GObject.Objects.Object.Object', or 'Nothing'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback'. -}-    -> Ptr ()-    {- ^ /@sourceTag@/: the asynchronous function. -}-    -> m SimpleAsyncResult-    {- ^ __Returns:__ a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-simpleAsyncResultNew sourceObject callback sourceTag = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    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-    result <- g_simple_async_result_new maybeSourceObject maybeCallback userData sourceTag-    checkUnexpectedReturnNULL "simpleAsyncResultNew" result-    result' <- (wrapObject SimpleAsyncResult) result-    whenJust sourceObject touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-#endif---- method SimpleAsyncResult::new_from_error--- method type : Constructor--- Args : [Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GObject, 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 "a #GAsyncReadyCallback.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to @callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GError", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_new_from_error" g_simple_async_result_new_from_error :: -    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    Ptr GError ->                           -- error : TError-    IO (Ptr SimpleAsyncResult)--{-# DEPRECATED simpleAsyncResultNewFromError ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.taskNew' and 'GI.Gio.Objects.Task.taskReturnError' instead."] #-}-{- |-Creates a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' from an error condition.--}-simpleAsyncResultNewFromError ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>-    Maybe (a)-    {- ^ /@sourceObject@/: a 'GI.GObject.Objects.Object.Object', or 'Nothing'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback'. -}-    -> GError-    {- ^ /@error@/: a 'GError' -}-    -> m SimpleAsyncResult-    {- ^ __Returns:__ a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-simpleAsyncResultNewFromError sourceObject callback error_ = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    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'-    error_' <- unsafeManagedPtrGetPtr error_-    let userData = nullPtr-    result <- g_simple_async_result_new_from_error maybeSourceObject maybeCallback userData error_'-    checkUnexpectedReturnNULL "simpleAsyncResultNewFromError" result-    result' <- (wrapObject SimpleAsyncResult) result-    whenJust sourceObject touchManagedPtr-    touchManagedPtr error_-    return result'--#if ENABLE_OVERLOADING-#endif---- method SimpleAsyncResult::complete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_complete" g_simple_async_result_complete :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    IO ()--{-# DEPRECATED simpleAsyncResultComplete ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' instead."] #-}-{- |-Completes an asynchronous I\/O job immediately. Must be called in-the thread where the asynchronous result was to be delivered, as it-invokes the callback directly. If you are in a different thread use-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultCompleteInIdle'.--Calling this function takes a reference to /@simple@/ for as long as-is needed to complete the call.--}-simpleAsyncResultComplete ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> m ()-simpleAsyncResultComplete simple = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    g_simple_async_result_complete simple'-    touchManagedPtr simple-    return ()--#if ENABLE_OVERLOADING-data SimpleAsyncResultCompleteMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultCompleteMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultComplete--#endif---- method SimpleAsyncResult::complete_in_idle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_complete_in_idle" g_simple_async_result_complete_in_idle :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    IO ()--{-# DEPRECATED simpleAsyncResultCompleteInIdle ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' instead."] #-}-{- |-Completes an asynchronous function in an idle handler in the-[thread-default main context][g-main-context-push-thread-default]-of the thread that /@simple@/ was initially created in-(and re-pushes that context around the invocation of the callback).--Calling this function takes a reference to /@simple@/ for as long as-is needed to complete the call.--}-simpleAsyncResultCompleteInIdle ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> m ()-simpleAsyncResultCompleteInIdle simple = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    g_simple_async_result_complete_in_idle simple'-    touchManagedPtr simple-    return ()--#if ENABLE_OVERLOADING-data SimpleAsyncResultCompleteInIdleMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultCompleteInIdleMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultCompleteInIdle--#endif---- method SimpleAsyncResult::get_op_res_gboolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", 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 "g_simple_async_result_get_op_res_gboolean" g_simple_async_result_get_op_res_gboolean :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    IO CInt--{-# DEPRECATED simpleAsyncResultGetOpResGboolean ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' and 'GI.Gio.Objects.Task.taskPropagateBoolean' instead."] #-}-{- |-Gets the operation result boolean from within the asynchronous result.--}-simpleAsyncResultGetOpResGboolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the operation\'s result was 'True', 'False'-    if the operation\'s result was 'False'. -}-simpleAsyncResultGetOpResGboolean simple = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    result <- g_simple_async_result_get_op_res_gboolean simple'-    let result' = (/= 0) result-    touchManagedPtr simple-    return result'--#if ENABLE_OVERLOADING-data SimpleAsyncResultGetOpResGbooleanMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultGetOpResGbooleanMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultGetOpResGboolean--#endif---- method SimpleAsyncResult::get_op_res_gssize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_get_op_res_gssize" g_simple_async_result_get_op_res_gssize :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    IO Int64--{-# DEPRECATED simpleAsyncResultGetOpResGssize ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' and 'GI.Gio.Objects.Task.taskPropagateInt' instead."] #-}-{- |-Gets a gssize from the asynchronous result.--}-simpleAsyncResultGetOpResGssize ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> m Int64-    {- ^ __Returns:__ a gssize returned from the asynchronous function. -}-simpleAsyncResultGetOpResGssize simple = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    result <- g_simple_async_result_get_op_res_gssize simple'-    touchManagedPtr simple-    return result--#if ENABLE_OVERLOADING-data SimpleAsyncResultGetOpResGssizeMethodInfo-instance (signature ~ (m Int64), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultGetOpResGssizeMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultGetOpResGssize--#endif---- method SimpleAsyncResult::propagate_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", 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 "g_simple_async_result_propagate_error" g_simple_async_result_propagate_error :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED simpleAsyncResultPropagateError ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' instead."] #-}-{- |-Propagates an error from within the simple asynchronous result to-a given destination.--If the 'GI.Gio.Objects.Cancellable.Cancellable' given to a prior call to-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultSetCheckCancellable' is cancelled then this-function will return 'True' with /@dest@/ set appropriately.--}-simpleAsyncResultPropagateError ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-simpleAsyncResultPropagateError simple = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    onException (do-        _ <- propagateGError $ g_simple_async_result_propagate_error simple'-        touchManagedPtr simple-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SimpleAsyncResultPropagateErrorMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultPropagateErrorMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultPropagateError--#endif---- method SimpleAsyncResult::set_check_cancellable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable to check, or %NULL to unset", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_set_check_cancellable" g_simple_async_result_set_check_cancellable :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    Ptr Gio.Cancellable.Cancellable ->      -- check_cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO ()--{-# DEPRECATED simpleAsyncResultSetCheckCancellable ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' instead."] #-}-{- |-Sets a 'GI.Gio.Objects.Cancellable.Cancellable' to check before dispatching results.--This function has one very specific purpose: the provided cancellable-is checked at the time of 'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultPropagateError' If-it is cancelled, these functions will return an \"Operation was-cancelled\" error ('GI.Gio.Enums.IOErrorEnumCancelled').--Implementors of cancellable asynchronous functions should use this in-order to provide a guarantee to their callers that cancelling an-async operation will reliably result in an error being returned for-that operation (even if a positive result for the operation has-already been sent as an idle to the main context to be dispatched).--The checking described above is done regardless of any call to the-unrelated 'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultSetHandleCancellation' function.--/Since: 2.32/--}-simpleAsyncResultSetCheckCancellable ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' -}-    -> Maybe (b)-    {- ^ /@checkCancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' to check, or 'Nothing' to unset -}-    -> m ()-simpleAsyncResultSetCheckCancellable simple checkCancellable = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    maybeCheckCancellable <- case checkCancellable of-        Nothing -> return nullPtr-        Just jCheckCancellable -> do-            jCheckCancellable' <- unsafeManagedPtrCastPtr jCheckCancellable-            return jCheckCancellable'-    g_simple_async_result_set_check_cancellable simple' maybeCheckCancellable-    touchManagedPtr simple-    whenJust checkCancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SimpleAsyncResultSetCheckCancellableMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSimpleAsyncResult a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SimpleAsyncResultSetCheckCancellableMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetCheckCancellable--#endif---- method SimpleAsyncResult::set_from_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GError.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_set_from_error" g_simple_async_result_set_from_error :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    Ptr GError ->                           -- error : TError-    IO ()--{-# DEPRECATED simpleAsyncResultSetFromError ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' and 'GI.Gio.Objects.Task.taskReturnError' instead."] #-}-{- |-Sets the result from a 'GError'.--}-simpleAsyncResultSetFromError ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> GError-    {- ^ /@error@/: 'GError'. -}-    -> m ()-simpleAsyncResultSetFromError simple error_ = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    error_' <- unsafeManagedPtrGetPtr error_-    g_simple_async_result_set_from_error simple' error_'-    touchManagedPtr simple-    touchManagedPtr error_-    return ()--#if ENABLE_OVERLOADING-data SimpleAsyncResultSetFromErrorMethodInfo-instance (signature ~ (GError -> m ()), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultSetFromErrorMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetFromError--#endif---- method SimpleAsyncResult::set_handle_cancellation--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle_cancellation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gboolean.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_set_handle_cancellation" g_simple_async_result_set_handle_cancellation :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    CInt ->                                 -- handle_cancellation : TBasicType TBoolean-    IO ()--{-# DEPRECATED simpleAsyncResultSetHandleCancellation ["(Since version 2.46)"] #-}-{- |-Sets whether to handle cancellation within the asynchronous operation.--This function has nothing to do with-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultSetCheckCancellable'.  It only refers to the-'GI.Gio.Objects.Cancellable.Cancellable' passed to @/g_simple_async_result_run_in_thread()/@.--}-simpleAsyncResultSetHandleCancellation ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> Bool-    {- ^ /@handleCancellation@/: a 'Bool'. -}-    -> m ()-simpleAsyncResultSetHandleCancellation simple handleCancellation = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    let handleCancellation' = (fromIntegral . fromEnum) handleCancellation-    g_simple_async_result_set_handle_cancellation simple' handleCancellation'-    touchManagedPtr simple-    return ()--#if ENABLE_OVERLOADING-data SimpleAsyncResultSetHandleCancellationMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultSetHandleCancellationMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetHandleCancellation--#endif---- method SimpleAsyncResult::set_op_res_gboolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "op_res", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gboolean.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_set_op_res_gboolean" g_simple_async_result_set_op_res_gboolean :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    CInt ->                                 -- op_res : TBasicType TBoolean-    IO ()--{-# DEPRECATED simpleAsyncResultSetOpResGboolean ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' and 'GI.Gio.Objects.Task.taskReturnBoolean' instead."] #-}-{- |-Sets the operation result to a boolean within the asynchronous result.--}-simpleAsyncResultSetOpResGboolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> Bool-    {- ^ /@opRes@/: a 'Bool'. -}-    -> m ()-simpleAsyncResultSetOpResGboolean simple opRes = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    let opRes' = (fromIntegral . fromEnum) opRes-    g_simple_async_result_set_op_res_gboolean simple' opRes'-    touchManagedPtr simple-    return ()--#if ENABLE_OVERLOADING-data SimpleAsyncResultSetOpResGbooleanMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultSetOpResGbooleanMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetOpResGboolean--#endif---- method SimpleAsyncResult::set_op_res_gssize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "simple", argType = TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "op_res", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #gssize.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_async_result_set_op_res_gssize" g_simple_async_result_set_op_res_gssize :: -    Ptr SimpleAsyncResult ->                -- simple : TInterface (Name {namespace = "Gio", name = "SimpleAsyncResult"})-    Int64 ->                                -- op_res : TBasicType TInt64-    IO ()--{-# DEPRECATED simpleAsyncResultSetOpResGssize ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' and 'GI.Gio.Objects.Task.taskReturnInt' instead."] #-}-{- |-Sets the operation result within the asynchronous result to-the given /@opRes@/.--}-simpleAsyncResultSetOpResGssize ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleAsyncResult a) =>-    a-    {- ^ /@simple@/: a 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'. -}-    -> Int64-    {- ^ /@opRes@/: a @/gssize/@. -}-    -> m ()-simpleAsyncResultSetOpResGssize simple opRes = liftIO $ do-    simple' <- unsafeManagedPtrCastPtr simple-    g_simple_async_result_set_op_res_gssize simple' opRes-    touchManagedPtr simple-    return ()--#if ENABLE_OVERLOADING-data SimpleAsyncResultSetOpResGssizeMethodInfo-instance (signature ~ (Int64 -> m ()), MonadIO m, IsSimpleAsyncResult a) => O.MethodInfo SimpleAsyncResultSetOpResGssizeMethodInfo a signature where-    overloadedMethod _ = simpleAsyncResultSetOpResGssize--#endif---- method SimpleAsyncResult::is_valid--- method type : MemberFunction--- Args : [Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GAsyncResult passed to the _finish function.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GObject passed to the _finish function.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the asynchronous function.", 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 "g_simple_async_result_is_valid" g_simple_async_result_is_valid :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr GObject.Object.Object ->            -- source : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr () ->                               -- source_tag : TBasicType TPtr-    IO CInt--{-# DEPRECATED simpleAsyncResultIsValid ["(Since version 2.46)","Use 'GI.Gio.Objects.Task.Task' and 'GI.Gio.Objects.Task.taskIsValid' instead."] #-}-{- |-Ensures that the data passed to the _finish function of an async-operation is consistent.  Three checks are performed.--First, /@result@/ is checked to ensure that it is really a-'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'.  Second, /@source@/ is checked to ensure that it-matches the source object of /@result@/.  Third, /@sourceTag@/ is-checked to ensure that it is equal to the /@sourceTag@/ argument given-to 'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultNew' (which, by convention, is a pointer-to the _async function corresponding to the _finish function from-which this function is called).  (Alternatively, if either-/@sourceTag@/ or /@result@/\'s source tag is 'Nothing', then the source tag-check is skipped.)--/Since: 2.20/--}-simpleAsyncResultIsValid ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a, GObject.Object.IsObject b) =>-    a-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' passed to the _finish function. -}-    -> Maybe (b)-    {- ^ /@source@/: the 'GI.GObject.Objects.Object.Object' passed to the _finish function. -}-    -> Ptr ()-    {- ^ /@sourceTag@/: the asynchronous function. -}-    -> m Bool-    {- ^ __Returns:__ @/TRUE/@ if all checks passed or @/FALSE/@ if any failed. -}-simpleAsyncResultIsValid result_ source sourceTag = liftIO $ do-    result_' <- unsafeManagedPtrCastPtr result_-    maybeSource <- case source of-        Nothing -> return nullPtr-        Just jSource -> do-            jSource' <- unsafeManagedPtrCastPtr jSource-            return jSource'-    result <- g_simple_async_result_is_valid result_' maybeSource sourceTag-    let result' = (/= 0) result-    touchManagedPtr result_-    whenJust source touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/SimpleAsyncResult.hs-boot 
@@ -1,59 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SimpleAsyncResult 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 SimpleAsyncResult = SimpleAsyncResult (ManagedPtr SimpleAsyncResult)-instance GObject SimpleAsyncResult where-class (GObject o, O.IsDescendantOf SimpleAsyncResult o) => IsSimpleAsyncResult o-instance (GObject o, O.IsDescendantOf SimpleAsyncResult o) => IsSimpleAsyncResult o-instance O.HasParentTypes SimpleAsyncResult-#if ENABLE_OVERLOADING-data SimpleAsyncResultCompleteMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultCompleteInIdleMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultGetOpResGbooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultGetOpResGssizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultPropagateErrorMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultSetCheckCancellableMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultSetFromErrorMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultSetHandleCancellationMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultSetOpResGbooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleAsyncResultSetOpResGssizeMethodInfo-#endif
− GI/Gio/Objects/SimpleIOStream.hs 
@@ -1,310 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--GSimpleIOStream creates a 'GI.Gio.Objects.IOStream.IOStream' from an arbitrary 'GI.Gio.Objects.InputStream.InputStream' and-'GI.Gio.Objects.OutputStream.OutputStream'. This allows any pair of input and output streams to be used-with 'GI.Gio.Objects.IOStream.IOStream' methods.--This is useful when you obtained a 'GI.Gio.Objects.InputStream.InputStream' and a 'GI.Gio.Objects.OutputStream.OutputStream'-by other means, for instance creating them with platform specific methods as-'GI.Gio.Objects.UnixInputStream.unixInputStreamNew' or @/g_win32_input_stream_new()/@, and you want-to take advantage of the methods provided by 'GI.Gio.Objects.IOStream.IOStream'.--/Since: 2.44/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SimpleIOStream-    ( ---- * Exported types-    SimpleIOStream(..)                      ,-    IsSimpleIOStream                        ,-    toSimpleIOStream                        ,-    noSimpleIOStream                        ,--- -- * Methods--- ** new #method:new#--    simpleIOStreamNew                       ,----- -- * Properties--- ** inputStream #attr:inputStream#-{- | /No description available in the introspection data./--/Since: 2.44/--}-#if ENABLE_OVERLOADING-    SimpleIOStreamInputStreamPropertyInfo   ,-#endif-    constructSimpleIOStreamInputStream      ,-    getSimpleIOStreamInputStream            ,-#if ENABLE_OVERLOADING-    simpleIOStreamInputStream               ,-#endif----- ** outputStream #attr:outputStream#-{- | /No description available in the introspection data./--/Since: 2.44/--}-#if ENABLE_OVERLOADING-    SimpleIOStreamOutputStreamPropertyInfo  ,-#endif-    constructSimpleIOStreamOutputStream     ,-    getSimpleIOStreamOutputStream           ,-#if ENABLE_OVERLOADING-    simpleIOStreamOutputStream              ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype SimpleIOStream = SimpleIOStream (ManagedPtr SimpleIOStream)-foreign import ccall "g_simple_io_stream_get_type"-    c_g_simple_io_stream_get_type :: IO GType--instance GObject SimpleIOStream where-    gobjectType = c_g_simple_io_stream_get_type-    ---- | Type class for types which can be safely cast to `SimpleIOStream`, for instance with `toSimpleIOStream`.-class (GObject o, O.IsDescendantOf SimpleIOStream o) => IsSimpleIOStream o-instance (GObject o, O.IsDescendantOf SimpleIOStream o) => IsSimpleIOStream o--instance O.HasParentTypes SimpleIOStream-type instance O.ParentTypes SimpleIOStream = '[Gio.IOStream.IOStream, GObject.Object.Object]---- | Cast to `SimpleIOStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSimpleIOStream :: (MonadIO m, IsSimpleIOStream o) => o -> m SimpleIOStream-toSimpleIOStream = liftIO . unsafeCastTo SimpleIOStream---- | A convenience alias for `Nothing` :: `Maybe` `SimpleIOStream`.-noSimpleIOStream :: Maybe SimpleIOStream-noSimpleIOStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveSimpleIOStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleIOStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSimpleIOStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSimpleIOStreamMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveSimpleIOStreamMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveSimpleIOStreamMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveSimpleIOStreamMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveSimpleIOStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSimpleIOStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSimpleIOStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSimpleIOStreamMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveSimpleIOStreamMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveSimpleIOStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSimpleIOStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSimpleIOStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSimpleIOStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSimpleIOStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSimpleIOStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSimpleIOStreamMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveSimpleIOStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSimpleIOStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSimpleIOStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSimpleIOStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSimpleIOStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSimpleIOStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSimpleIOStreamMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveSimpleIOStreamMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveSimpleIOStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSimpleIOStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSimpleIOStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSimpleIOStreamMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveSimpleIOStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSimpleIOStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSimpleIOStreamMethod t SimpleIOStream, O.MethodInfo info SimpleIOStream p) => OL.IsLabel t (SimpleIOStream -> 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----- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleIOStream"} -> Property {propName = "input-stream", propType = TInterface (Name {namespace = "Gio", name = "InputStream"}), propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Nothing, sinceVersion = Just "2.44"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "IOStream"} -> Property {propName = "input-stream", propType = TInterface (Name {namespace = "Gio", name = "InputStream"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, propDeprecated = Nothing}---- XXX Duplicated object with different types:-  --- Name {namespace = "Gio", name = "SimpleIOStream"} -> Property {propName = "output-stream", propType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Nothing, sinceVersion = Just "2.44"}, propDeprecated = Nothing}-  --- Name {namespace = "Gio", name = "IOStream"} -> Property {propName = "output-stream", propType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, propDeprecated = Nothing}--- VVV Prop "input-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "InputStream"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@input-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleIOStream #inputStream-@--}-getSimpleIOStreamInputStream :: (MonadIO m, IsSimpleIOStream o) => o -> m (Maybe Gio.InputStream.InputStream)-getSimpleIOStreamInputStream obj = liftIO $ B.Properties.getObjectPropertyObject obj "input-stream" Gio.InputStream.InputStream--{- |-Construct a `GValueConstruct` with valid value for the “@input-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSimpleIOStreamInputStream :: (IsSimpleIOStream o, Gio.InputStream.IsInputStream a) => a -> IO (GValueConstruct o)-constructSimpleIOStreamInputStream val = B.Properties.constructObjectPropertyObject "input-stream" (Just val)--#if ENABLE_OVERLOADING-data SimpleIOStreamInputStreamPropertyInfo-instance AttrInfo SimpleIOStreamInputStreamPropertyInfo where-    type AttrAllowedOps SimpleIOStreamInputStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleIOStreamInputStreamPropertyInfo = Gio.InputStream.IsInputStream-    type AttrBaseTypeConstraint SimpleIOStreamInputStreamPropertyInfo = IsSimpleIOStream-    type AttrGetType SimpleIOStreamInputStreamPropertyInfo = (Maybe Gio.InputStream.InputStream)-    type AttrLabel SimpleIOStreamInputStreamPropertyInfo = "input-stream"-    type AttrOrigin SimpleIOStreamInputStreamPropertyInfo = SimpleIOStream-    attrGet _ = getSimpleIOStreamInputStream-    attrSet _ = undefined-    attrConstruct _ = constructSimpleIOStreamInputStream-    attrClear _ = undefined-#endif---- VVV Prop "output-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "OutputStream"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@output-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleIOStream #outputStream-@--}-getSimpleIOStreamOutputStream :: (MonadIO m, IsSimpleIOStream o) => o -> m (Maybe Gio.OutputStream.OutputStream)-getSimpleIOStreamOutputStream obj = liftIO $ B.Properties.getObjectPropertyObject obj "output-stream" Gio.OutputStream.OutputStream--{- |-Construct a `GValueConstruct` with valid value for the “@output-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSimpleIOStreamOutputStream :: (IsSimpleIOStream o, Gio.OutputStream.IsOutputStream a) => a -> IO (GValueConstruct o)-constructSimpleIOStreamOutputStream val = B.Properties.constructObjectPropertyObject "output-stream" (Just val)--#if ENABLE_OVERLOADING-data SimpleIOStreamOutputStreamPropertyInfo-instance AttrInfo SimpleIOStreamOutputStreamPropertyInfo where-    type AttrAllowedOps SimpleIOStreamOutputStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleIOStreamOutputStreamPropertyInfo = Gio.OutputStream.IsOutputStream-    type AttrBaseTypeConstraint SimpleIOStreamOutputStreamPropertyInfo = IsSimpleIOStream-    type AttrGetType SimpleIOStreamOutputStreamPropertyInfo = (Maybe Gio.OutputStream.OutputStream)-    type AttrLabel SimpleIOStreamOutputStreamPropertyInfo = "output-stream"-    type AttrOrigin SimpleIOStreamOutputStreamPropertyInfo = SimpleIOStream-    attrGet _ = getSimpleIOStreamOutputStream-    attrSet _ = undefined-    attrConstruct _ = constructSimpleIOStreamOutputStream-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SimpleIOStream-type instance O.AttributeList SimpleIOStream = SimpleIOStreamAttributeList-type SimpleIOStreamAttributeList = ('[ '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("inputStream", SimpleIOStreamInputStreamPropertyInfo), '("outputStream", SimpleIOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-simpleIOStreamInputStream :: AttrLabelProxy "inputStream"-simpleIOStreamInputStream = AttrLabelProxy--simpleIOStreamOutputStream :: AttrLabelProxy "outputStream"-simpleIOStreamOutputStream = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SimpleIOStream = SimpleIOStreamSignalList-type SimpleIOStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SimpleIOStream::new--- method type : Constructor--- Args : [Arg {argCName = "input_stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_stream", argType = TInterface (Name {namespace = "Gio", name = "OutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GOutputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SimpleIOStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_io_stream_new" g_simple_io_stream_new :: -    Ptr Gio.InputStream.InputStream ->      -- input_stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    Ptr Gio.OutputStream.OutputStream ->    -- output_stream : TInterface (Name {namespace = "Gio", name = "OutputStream"})-    IO (Ptr SimpleIOStream)--{- |-Creates a new 'GI.Gio.Objects.SimpleIOStream.SimpleIOStream' wrapping /@inputStream@/ and /@outputStream@/.-See also 'GI.Gio.Objects.IOStream.IOStream'.--/Since: 2.44/--}-simpleIOStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a, Gio.OutputStream.IsOutputStream b) =>-    a-    {- ^ /@inputStream@/: a 'GI.Gio.Objects.InputStream.InputStream'. -}-    -> b-    {- ^ /@outputStream@/: a 'GI.Gio.Objects.OutputStream.OutputStream'. -}-    -> m SimpleIOStream-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SimpleIOStream.SimpleIOStream' instance. -}-simpleIOStreamNew inputStream outputStream = liftIO $ do-    inputStream' <- unsafeManagedPtrCastPtr inputStream-    outputStream' <- unsafeManagedPtrCastPtr outputStream-    result <- g_simple_io_stream_new inputStream' outputStream'-    checkUnexpectedReturnNULL "simpleIOStreamNew" result-    result' <- (wrapObject SimpleIOStream) result-    touchManagedPtr inputStream-    touchManagedPtr outputStream-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/SimpleIOStream.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SimpleIOStream 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 SimpleIOStream = SimpleIOStream (ManagedPtr SimpleIOStream)-instance GObject SimpleIOStream where-class (GObject o, O.IsDescendantOf SimpleIOStream o) => IsSimpleIOStream o-instance (GObject o, O.IsDescendantOf SimpleIOStream o) => IsSimpleIOStream o-instance O.HasParentTypes SimpleIOStream-#if ENABLE_OVERLOADING-data SimpleIOStreamInputStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SimpleIOStreamOutputStreamPropertyInfo-#endif
− GI/Gio/Objects/SimplePermission.hs 
@@ -1,178 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.SimplePermission.SimplePermission' is a trivial implementation of 'GI.Gio.Objects.Permission.Permission' that-represents a permission that is either always or never allowed.  The-value is given at construction and doesn\'t change.--Calling request or release will result in errors.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SimplePermission-    ( ---- * Exported types-    SimplePermission(..)                    ,-    IsSimplePermission                      ,-    toSimplePermission                      ,-    noSimplePermission                      ,--- -- * Methods--- ** new #method:new#--    simplePermissionNew                     ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.Permission as Gio.Permission---- | Memory-managed wrapper type.-newtype SimplePermission = SimplePermission (ManagedPtr SimplePermission)-foreign import ccall "g_simple_permission_get_type"-    c_g_simple_permission_get_type :: IO GType--instance GObject SimplePermission where-    gobjectType = c_g_simple_permission_get_type-    ---- | Type class for types which can be safely cast to `SimplePermission`, for instance with `toSimplePermission`.-class (GObject o, O.IsDescendantOf SimplePermission o) => IsSimplePermission o-instance (GObject o, O.IsDescendantOf SimplePermission o) => IsSimplePermission o--instance O.HasParentTypes SimplePermission-type instance O.ParentTypes SimplePermission = '[Gio.Permission.Permission, GObject.Object.Object]---- | Cast to `SimplePermission`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSimplePermission :: (MonadIO m, IsSimplePermission o) => o -> m SimplePermission-toSimplePermission = liftIO . unsafeCastTo SimplePermission---- | A convenience alias for `Nothing` :: `Maybe` `SimplePermission`.-noSimplePermission :: Maybe SimplePermission-noSimplePermission = Nothing--#if ENABLE_OVERLOADING-type family ResolveSimplePermissionMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimplePermissionMethod "acquire" o = Gio.Permission.PermissionAcquireMethodInfo-    ResolveSimplePermissionMethod "acquireAsync" o = Gio.Permission.PermissionAcquireAsyncMethodInfo-    ResolveSimplePermissionMethod "acquireFinish" o = Gio.Permission.PermissionAcquireFinishMethodInfo-    ResolveSimplePermissionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSimplePermissionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSimplePermissionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSimplePermissionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSimplePermissionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSimplePermissionMethod "implUpdate" o = Gio.Permission.PermissionImplUpdateMethodInfo-    ResolveSimplePermissionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSimplePermissionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSimplePermissionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSimplePermissionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSimplePermissionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSimplePermissionMethod "release" o = Gio.Permission.PermissionReleaseMethodInfo-    ResolveSimplePermissionMethod "releaseAsync" o = Gio.Permission.PermissionReleaseAsyncMethodInfo-    ResolveSimplePermissionMethod "releaseFinish" o = Gio.Permission.PermissionReleaseFinishMethodInfo-    ResolveSimplePermissionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSimplePermissionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSimplePermissionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSimplePermissionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSimplePermissionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSimplePermissionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSimplePermissionMethod "getAllowed" o = Gio.Permission.PermissionGetAllowedMethodInfo-    ResolveSimplePermissionMethod "getCanAcquire" o = Gio.Permission.PermissionGetCanAcquireMethodInfo-    ResolveSimplePermissionMethod "getCanRelease" o = Gio.Permission.PermissionGetCanReleaseMethodInfo-    ResolveSimplePermissionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSimplePermissionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSimplePermissionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSimplePermissionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSimplePermissionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSimplePermissionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSimplePermissionMethod t SimplePermission, O.MethodInfo info SimplePermission p) => OL.IsLabel t (SimplePermission -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList SimplePermission-type instance O.AttributeList SimplePermission = SimplePermissionAttributeList-type SimplePermissionAttributeList = ('[ '("allowed", Gio.Permission.PermissionAllowedPropertyInfo), '("canAcquire", Gio.Permission.PermissionCanAcquirePropertyInfo), '("canRelease", Gio.Permission.PermissionCanReleasePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SimplePermission = SimplePermissionSignalList-type SimplePermissionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SimplePermission::new--- method type : Constructor--- Args : [Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the action is allowed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SimplePermission"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_permission_new" g_simple_permission_new :: -    CInt ->                                 -- allowed : TBasicType TBoolean-    IO (Ptr SimplePermission)--{- |-Creates a new 'GI.Gio.Objects.Permission.Permission' instance that represents an action that is-either always or never allowed.--/Since: 2.26/--}-simplePermissionNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Bool-    {- ^ /@allowed@/: 'True' if the action is allowed -}-    -> m SimplePermission-    {- ^ __Returns:__ the 'GI.Gio.Objects.SimplePermission.SimplePermission', as a 'GI.Gio.Objects.Permission.Permission' -}-simplePermissionNew allowed = liftIO $ do-    let allowed' = (fromIntegral . fromEnum) allowed-    result <- g_simple_permission_new allowed'-    checkUnexpectedReturnNULL "simplePermissionNew" result-    result' <- (wrapObject SimplePermission) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/SimplePermission.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SimplePermission 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 SimplePermission = SimplePermission (ManagedPtr SimplePermission)-instance GObject SimplePermission where-class (GObject o, O.IsDescendantOf SimplePermission o) => IsSimplePermission o-instance (GObject o, O.IsDescendantOf SimplePermission o) => IsSimplePermission o-instance O.HasParentTypes SimplePermission
− GI/Gio/Objects/SimpleProxyResolver.hs 
@@ -1,546 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' is a simple 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' implementation-that handles a single default proxy, multiple URI-scheme-specific-proxies, and a list of hosts that proxies should not be used for.--'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' is never the default proxy resolver, but it-can be used as the base class for another proxy resolver-implementation, or it can be created and used manually, such as-with 'GI.Gio.Objects.SocketClient.socketClientSetProxyResolver'.--/Since: 2.36/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SimpleProxyResolver-    ( ---- * Exported types-    SimpleProxyResolver(..)                 ,-    IsSimpleProxyResolver                   ,-    toSimpleProxyResolver                   ,-    noSimpleProxyResolver                   ,--- -- * Methods--- ** new #method:new#--    simpleProxyResolverNew                  ,----- ** setDefaultProxy #method:setDefaultProxy#--#if ENABLE_OVERLOADING-    SimpleProxyResolverSetDefaultProxyMethodInfo,-#endif-    simpleProxyResolverSetDefaultProxy      ,----- ** setIgnoreHosts #method:setIgnoreHosts#--#if ENABLE_OVERLOADING-    SimpleProxyResolverSetIgnoreHostsMethodInfo,-#endif-    simpleProxyResolverSetIgnoreHosts       ,----- ** setUriProxy #method:setUriProxy#--#if ENABLE_OVERLOADING-    SimpleProxyResolverSetUriProxyMethodInfo,-#endif-    simpleProxyResolverSetUriProxy          ,----- -- * Properties--- ** defaultProxy #attr:defaultProxy#-{- | The default proxy URI that will be used for any URI that doesn\'t-match 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@, and doesn\'t match any-of the schemes set with 'GI.Gio.Objects.SimpleProxyResolver.simpleProxyResolverSetUriProxy'.--Note that as a special case, if this URI starts with-\"socks:\/\/\", 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' will treat it as referring-to all three of the socks5, socks4a, and socks4 proxy types.--}-#if ENABLE_OVERLOADING-    SimpleProxyResolverDefaultProxyPropertyInfo,-#endif-    constructSimpleProxyResolverDefaultProxy,-    getSimpleProxyResolverDefaultProxy      ,-    setSimpleProxyResolverDefaultProxy      ,-#if ENABLE_OVERLOADING-    simpleProxyResolverDefaultProxy         ,-#endif----- ** ignoreHosts #attr:ignoreHosts#-{- | A list of hostnames and IP addresses that the resolver should-allow direct connections to.--Entries can be in one of 4 formats:--* A hostname, such as \"example.com\", \".example.com\", or-\"*.example.com\", any of which match \"example.com\" or-any subdomain of it.-* An IPv4 or IPv6 address, such as \"192.168.1.1\",-which matches only that address.-* A hostname or IP address followed by a port, such as-\"example.com:80\", which matches whatever the hostname or IP-address would match, but only for URLs with the (explicitly)-indicated port. In the case of an IPv6 address, the address-part must appear in brackets: \"[::1]:443\"-* An IP address range, given by a base address and prefix length,-such as \"fe80::\/10\", which matches any address in that range.---Note that when dealing with Unicode hostnames, the matching is-done against the ASCII form of the name.--Also note that hostname exclusions apply only to connections made-to hosts identified by name, and IP address exclusions apply only-to connections made to hosts identified by address. That is, if-example.com has an address of 192.168.1.1, and the :ignore-hosts list-contains only \"192.168.1.1\", then a connection to \"example.com\"-(eg, via a 'GI.Gio.Objects.NetworkAddress.NetworkAddress') will use the proxy, and a connection to-\"192.168.1.1\" (eg, via a 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress') will not.--These rules match the \"ignore-hosts\"\/\"noproxy\" rules most-commonly used by other applications.--}-#if ENABLE_OVERLOADING-    SimpleProxyResolverIgnoreHostsPropertyInfo,-#endif-    clearSimpleProxyResolverIgnoreHosts     ,-    constructSimpleProxyResolverIgnoreHosts ,-    getSimpleProxyResolverIgnoreHosts       ,-    setSimpleProxyResolverIgnoreHosts       ,-#if ENABLE_OVERLOADING-    simpleProxyResolverIgnoreHosts          ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.ProxyResolver as Gio.ProxyResolver---- | Memory-managed wrapper type.-newtype SimpleProxyResolver = SimpleProxyResolver (ManagedPtr SimpleProxyResolver)-foreign import ccall "g_simple_proxy_resolver_get_type"-    c_g_simple_proxy_resolver_get_type :: IO GType--instance GObject SimpleProxyResolver where-    gobjectType = c_g_simple_proxy_resolver_get_type-    ---- | Type class for types which can be safely cast to `SimpleProxyResolver`, for instance with `toSimpleProxyResolver`.-class (GObject o, O.IsDescendantOf SimpleProxyResolver o) => IsSimpleProxyResolver o-instance (GObject o, O.IsDescendantOf SimpleProxyResolver o) => IsSimpleProxyResolver o--instance O.HasParentTypes SimpleProxyResolver-type instance O.ParentTypes SimpleProxyResolver = '[GObject.Object.Object, Gio.ProxyResolver.ProxyResolver]---- | Cast to `SimpleProxyResolver`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSimpleProxyResolver :: (MonadIO m, IsSimpleProxyResolver o) => o -> m SimpleProxyResolver-toSimpleProxyResolver = liftIO . unsafeCastTo SimpleProxyResolver---- | A convenience alias for `Nothing` :: `Maybe` `SimpleProxyResolver`.-noSimpleProxyResolver :: Maybe SimpleProxyResolver-noSimpleProxyResolver = Nothing--#if ENABLE_OVERLOADING-type family ResolveSimpleProxyResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveSimpleProxyResolverMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSimpleProxyResolverMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSimpleProxyResolverMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSimpleProxyResolverMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSimpleProxyResolverMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSimpleProxyResolverMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSimpleProxyResolverMethod "isSupported" o = Gio.ProxyResolver.ProxyResolverIsSupportedMethodInfo-    ResolveSimpleProxyResolverMethod "lookup" o = Gio.ProxyResolver.ProxyResolverLookupMethodInfo-    ResolveSimpleProxyResolverMethod "lookupAsync" o = Gio.ProxyResolver.ProxyResolverLookupAsyncMethodInfo-    ResolveSimpleProxyResolverMethod "lookupFinish" o = Gio.ProxyResolver.ProxyResolverLookupFinishMethodInfo-    ResolveSimpleProxyResolverMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSimpleProxyResolverMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSimpleProxyResolverMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSimpleProxyResolverMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSimpleProxyResolverMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSimpleProxyResolverMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSimpleProxyResolverMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSimpleProxyResolverMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSimpleProxyResolverMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSimpleProxyResolverMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSimpleProxyResolverMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSimpleProxyResolverMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSimpleProxyResolverMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSimpleProxyResolverMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSimpleProxyResolverMethod "setDefaultProxy" o = SimpleProxyResolverSetDefaultProxyMethodInfo-    ResolveSimpleProxyResolverMethod "setIgnoreHosts" o = SimpleProxyResolverSetIgnoreHostsMethodInfo-    ResolveSimpleProxyResolverMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSimpleProxyResolverMethod "setUriProxy" o = SimpleProxyResolverSetUriProxyMethodInfo-    ResolveSimpleProxyResolverMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSimpleProxyResolverMethod t SimpleProxyResolver, O.MethodInfo info SimpleProxyResolver p) => OL.IsLabel t (SimpleProxyResolver -> 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---- VVV Prop "default-proxy"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just False)--{- |-Get the value of the “@default-proxy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleProxyResolver #defaultProxy-@--}-getSimpleProxyResolverDefaultProxy :: (MonadIO m, IsSimpleProxyResolver o) => o -> m (Maybe T.Text)-getSimpleProxyResolverDefaultProxy obj = liftIO $ B.Properties.getObjectPropertyString obj "default-proxy"--{- |-Set the value of the “@default-proxy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' simpleProxyResolver [ #defaultProxy 'Data.GI.Base.Attributes.:=' value ]-@--}-setSimpleProxyResolverDefaultProxy :: (MonadIO m, IsSimpleProxyResolver o) => o -> T.Text -> m ()-setSimpleProxyResolverDefaultProxy obj val = liftIO $ B.Properties.setObjectPropertyString obj "default-proxy" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@default-proxy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSimpleProxyResolverDefaultProxy :: (IsSimpleProxyResolver o) => T.Text -> IO (GValueConstruct o)-constructSimpleProxyResolverDefaultProxy val = B.Properties.constructObjectPropertyString "default-proxy" (Just val)--#if ENABLE_OVERLOADING-data SimpleProxyResolverDefaultProxyPropertyInfo-instance AttrInfo SimpleProxyResolverDefaultProxyPropertyInfo where-    type AttrAllowedOps SimpleProxyResolverDefaultProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = IsSimpleProxyResolver-    type AttrGetType SimpleProxyResolverDefaultProxyPropertyInfo = (Maybe T.Text)-    type AttrLabel SimpleProxyResolverDefaultProxyPropertyInfo = "default-proxy"-    type AttrOrigin SimpleProxyResolverDefaultProxyPropertyInfo = SimpleProxyResolver-    attrGet _ = getSimpleProxyResolverDefaultProxy-    attrSet _ = setSimpleProxyResolverDefaultProxy-    attrConstruct _ = constructSimpleProxyResolverDefaultProxy-    attrClear _ = undefined-#endif---- VVV Prop "ignore-hosts"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ignore-hosts@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' simpleProxyResolver #ignoreHosts-@--}-getSimpleProxyResolverIgnoreHosts :: (MonadIO m, IsSimpleProxyResolver o) => o -> m (Maybe [T.Text])-getSimpleProxyResolverIgnoreHosts obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "ignore-hosts"--{- |-Set the value of the “@ignore-hosts@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' simpleProxyResolver [ #ignoreHosts 'Data.GI.Base.Attributes.:=' value ]-@--}-setSimpleProxyResolverIgnoreHosts :: (MonadIO m, IsSimpleProxyResolver o) => o -> [T.Text] -> m ()-setSimpleProxyResolverIgnoreHosts obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "ignore-hosts" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@ignore-hosts@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSimpleProxyResolverIgnoreHosts :: (IsSimpleProxyResolver o) => [T.Text] -> IO (GValueConstruct o)-constructSimpleProxyResolverIgnoreHosts val = B.Properties.constructObjectPropertyStringArray "ignore-hosts" (Just val)--{- |-Set the value of the “@ignore-hosts@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #ignoreHosts-@--}-clearSimpleProxyResolverIgnoreHosts :: (MonadIO m, IsSimpleProxyResolver o) => o -> m ()-clearSimpleProxyResolverIgnoreHosts obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "ignore-hosts" (Nothing :: Maybe [T.Text])--#if ENABLE_OVERLOADING-data SimpleProxyResolverIgnoreHostsPropertyInfo-instance AttrInfo SimpleProxyResolverIgnoreHostsPropertyInfo where-    type AttrAllowedOps SimpleProxyResolverIgnoreHostsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = IsSimpleProxyResolver-    type AttrGetType SimpleProxyResolverIgnoreHostsPropertyInfo = (Maybe [T.Text])-    type AttrLabel SimpleProxyResolverIgnoreHostsPropertyInfo = "ignore-hosts"-    type AttrOrigin SimpleProxyResolverIgnoreHostsPropertyInfo = SimpleProxyResolver-    attrGet _ = getSimpleProxyResolverIgnoreHosts-    attrSet _ = setSimpleProxyResolverIgnoreHosts-    attrConstruct _ = constructSimpleProxyResolverIgnoreHosts-    attrClear _ = clearSimpleProxyResolverIgnoreHosts-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SimpleProxyResolver-type instance O.AttributeList SimpleProxyResolver = SimpleProxyResolverAttributeList-type SimpleProxyResolverAttributeList = ('[ '("defaultProxy", SimpleProxyResolverDefaultProxyPropertyInfo), '("ignoreHosts", SimpleProxyResolverIgnoreHostsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-simpleProxyResolverDefaultProxy :: AttrLabelProxy "defaultProxy"-simpleProxyResolverDefaultProxy = AttrLabelProxy--simpleProxyResolverIgnoreHosts :: AttrLabelProxy "ignoreHosts"-simpleProxyResolverIgnoreHosts = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SimpleProxyResolver = SimpleProxyResolverSignalList-type SimpleProxyResolverSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SimpleProxyResolver::set_default_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleProxyResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the default proxy to use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_proxy_resolver_set_default_proxy" g_simple_proxy_resolver_set_default_proxy :: -    Ptr SimpleProxyResolver ->              -- resolver : TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"})-    CString ->                              -- default_proxy : TBasicType TUTF8-    IO ()--{- |-Sets the default proxy on /@resolver@/, to be used for any URIs that-don\'t match 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@ or a proxy set-via 'GI.Gio.Objects.SimpleProxyResolver.simpleProxyResolverSetUriProxy'.--If /@defaultProxy@/ starts with \"socks:\/\/\",-'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' will treat it as referring to all three of-the socks5, socks4a, and socks4 proxy types.--/Since: 2.36/--}-simpleProxyResolverSetDefaultProxy ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleProxyResolver a) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' -}-    -> T.Text-    {- ^ /@defaultProxy@/: the default proxy to use -}-    -> m ()-simpleProxyResolverSetDefaultProxy resolver defaultProxy = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    defaultProxy' <- textToCString defaultProxy-    g_simple_proxy_resolver_set_default_proxy resolver' defaultProxy'-    touchManagedPtr resolver-    freeMem defaultProxy'-    return ()--#if ENABLE_OVERLOADING-data SimpleProxyResolverSetDefaultProxyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsSimpleProxyResolver a) => O.MethodInfo SimpleProxyResolverSetDefaultProxyMethodInfo a signature where-    overloadedMethod _ = simpleProxyResolverSetDefaultProxy--#endif---- method SimpleProxyResolver::set_ignore_hosts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleProxyResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%NULL-terminated list of hosts/IP addresses\n    to not use a proxy for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_proxy_resolver_set_ignore_hosts" g_simple_proxy_resolver_set_ignore_hosts :: -    Ptr SimpleProxyResolver ->              -- resolver : TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"})-    CString ->                              -- ignore_hosts : TBasicType TUTF8-    IO ()--{- |-Sets the list of ignored hosts.--See 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@ for more details on how the-/@ignoreHosts@/ argument is interpreted.--/Since: 2.36/--}-simpleProxyResolverSetIgnoreHosts ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleProxyResolver a) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' -}-    -> T.Text-    {- ^ /@ignoreHosts@/: 'Nothing'-terminated list of hosts\/IP addresses-    to not use a proxy for -}-    -> m ()-simpleProxyResolverSetIgnoreHosts resolver ignoreHosts = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    ignoreHosts' <- textToCString ignoreHosts-    g_simple_proxy_resolver_set_ignore_hosts resolver' ignoreHosts'-    touchManagedPtr resolver-    freeMem ignoreHosts'-    return ()--#if ENABLE_OVERLOADING-data SimpleProxyResolverSetIgnoreHostsMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsSimpleProxyResolver a) => O.MethodInfo SimpleProxyResolverSetIgnoreHostsMethodInfo a signature where-    overloadedMethod _ = simpleProxyResolverSetIgnoreHosts--#endif---- method SimpleProxyResolver::set_uri_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSimpleProxyResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI scheme to add a proxy for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the proxy to use for @uri_scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_simple_proxy_resolver_set_uri_proxy" g_simple_proxy_resolver_set_uri_proxy :: -    Ptr SimpleProxyResolver ->              -- resolver : TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"})-    CString ->                              -- uri_scheme : TBasicType TUTF8-    CString ->                              -- proxy : TBasicType TUTF8-    IO ()--{- |-Adds a URI-scheme-specific proxy to /@resolver@/; URIs whose scheme-matches /@uriScheme@/ (and which don\'t match-'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@) will be proxied via /@proxy@/.--As with 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/default-proxy/@, if /@proxy@/ starts with-\"socks:\/\/\", 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' will treat it-as referring to all three of the socks5, socks4a, and socks4 proxy-types.--/Since: 2.36/--}-simpleProxyResolverSetUriProxy ::-    (B.CallStack.HasCallStack, MonadIO m, IsSimpleProxyResolver a) =>-    a-    {- ^ /@resolver@/: a 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' -}-    -> T.Text-    {- ^ /@uriScheme@/: the URI scheme to add a proxy for -}-    -> T.Text-    {- ^ /@proxy@/: the proxy to use for /@uriScheme@/ -}-    -> m ()-simpleProxyResolverSetUriProxy resolver uriScheme proxy = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    uriScheme' <- textToCString uriScheme-    proxy' <- textToCString proxy-    g_simple_proxy_resolver_set_uri_proxy resolver' uriScheme' proxy'-    touchManagedPtr resolver-    freeMem uriScheme'-    freeMem proxy'-    return ()--#if ENABLE_OVERLOADING-data SimpleProxyResolverSetUriProxyMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsSimpleProxyResolver a) => O.MethodInfo SimpleProxyResolverSetUriProxyMethodInfo a signature where-    overloadedMethod _ = simpleProxyResolverSetUriProxy--#endif---- method SimpleProxyResolver::new--- method type : MemberFunction--- Args : [Arg {argCName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the default proxy to use, eg\n    \"socks://192.168.1.1\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an optional list of hosts/IP addresses\n    to not use a proxy for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ProxyResolver"}))--- throws : False--- Skip return : False--foreign import ccall "g_simple_proxy_resolver_new" g_simple_proxy_resolver_new :: -    CString ->                              -- default_proxy : TBasicType TUTF8-    CString ->                              -- ignore_hosts : TBasicType TUTF8-    IO (Ptr Gio.ProxyResolver.ProxyResolver)--{- |-Creates a new 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver'. See-'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/default-proxy/@ and-'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@ for more details on how the-arguments are interpreted.--/Since: 2.36/--}-simpleProxyResolverNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@defaultProxy@/: the default proxy to use, eg-    \"socks:\/\/192.168.1.1\" -}-    -> Maybe (T.Text)-    {- ^ /@ignoreHosts@/: an optional list of hosts\/IP addresses-    to not use a proxy for. -}-    -> m Gio.ProxyResolver.ProxyResolver-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' -}-simpleProxyResolverNew defaultProxy ignoreHosts = liftIO $ do-    maybeDefaultProxy <- case defaultProxy of-        Nothing -> return nullPtr-        Just jDefaultProxy -> do-            jDefaultProxy' <- textToCString jDefaultProxy-            return jDefaultProxy'-    maybeIgnoreHosts <- case ignoreHosts of-        Nothing -> return nullPtr-        Just jIgnoreHosts -> do-            jIgnoreHosts' <- textToCString jIgnoreHosts-            return jIgnoreHosts'-    result <- g_simple_proxy_resolver_new maybeDefaultProxy maybeIgnoreHosts-    checkUnexpectedReturnNULL "simpleProxyResolverNew" result-    result' <- (wrapObject Gio.ProxyResolver.ProxyResolver) result-    freeMem maybeDefaultProxy-    freeMem maybeIgnoreHosts-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/SimpleProxyResolver.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SimpleProxyResolver 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 SimpleProxyResolver = SimpleProxyResolver (ManagedPtr SimpleProxyResolver)-instance GObject SimpleProxyResolver where-class (GObject o, O.IsDescendantOf SimpleProxyResolver o) => IsSimpleProxyResolver o-instance (GObject o, O.IsDescendantOf SimpleProxyResolver o) => IsSimpleProxyResolver o-instance O.HasParentTypes SimpleProxyResolver-#if ENABLE_OVERLOADING-data SimpleProxyResolverDefaultProxyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SimpleProxyResolverIgnoreHostsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SimpleProxyResolverSetDefaultProxyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleProxyResolverSetIgnoreHostsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SimpleProxyResolverSetUriProxyMethodInfo-#endif
− GI/Gio/Objects/Socket.hs 
@@ -1,4861 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.Socket.Socket' is a low-level networking primitive. It is a more or less-direct mapping of the BSD socket API in a portable GObject based API.-It supports both the UNIX socket implementations and winsock2 on Windows.--'GI.Gio.Objects.Socket.Socket' is the platform independent base upon which the higher level-network primitives are based. Applications are not typically meant to-use it directly, but rather through classes like 'GI.Gio.Objects.SocketClient.SocketClient',-'GI.Gio.Objects.SocketService.SocketService' and 'GI.Gio.Objects.SocketConnection.SocketConnection'. However there may be cases where-direct use of 'GI.Gio.Objects.Socket.Socket' is useful.--'GI.Gio.Objects.Socket.Socket' implements the 'GI.Gio.Interfaces.Initable.Initable' interface, so if it is manually constructed-by e.g. @/g_object_new()/@ you must call 'GI.Gio.Interfaces.Initable.initableInit' and check the-results before using the object. This is done automatically in-'GI.Gio.Objects.Socket.socketNew' and 'GI.Gio.Objects.Socket.socketNewFromFd', so these functions can return-'Nothing'.--Sockets operate in two general modes, blocking or non-blocking. When-in blocking mode all operations (which don’t take an explicit blocking-parameter) block until the requested operation-is finished or there is an error. In non-blocking mode all calls that-would block return immediately with a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error.-To know when a call would successfully run you can call 'GI.Gio.Objects.Socket.socketConditionCheck',-or 'GI.Gio.Objects.Socket.socketConditionWait'. You can also use @/g_socket_create_source()/@ and-attach it to a 'GI.GLib.Structs.MainContext.MainContext' to get callbacks when I\/O is possible.-Note that all sockets are always set to non blocking mode in the system, and-blocking mode is emulated in GSocket.--When working in non-blocking mode applications should always be able to-handle getting a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error even when some other-function said that I\/O was possible. This can easily happen in case-of a race condition in the application, but it can also happen for other-reasons. For instance, on Windows a socket is always seen as writable-until a write returns 'GI.Gio.Enums.IOErrorEnumWouldBlock'.--@/GSockets/@ can be either connection oriented or datagram based.-For connection oriented types you must first establish a connection by-either connecting to an address or accepting a connection from another-address. For connectionless socket types the target\/source address is-specified or received in each I\/O operation.--All socket file descriptors are set to be close-on-exec.--Note that creating a 'GI.Gio.Objects.Socket.Socket' causes the signal @/SIGPIPE/@ to be-ignored for the remainder of the program. If you are writing a-command-line utility that uses 'GI.Gio.Objects.Socket.Socket', you may need to take into-account the fact that your program will not automatically be killed-if it tries to write to @/stdout/@ after it has been closed.--Like most other APIs in GLib, 'GI.Gio.Objects.Socket.Socket' is not inherently thread safe. To use-a 'GI.Gio.Objects.Socket.Socket' concurrently from multiple threads, you must implement your own-locking.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Socket-    ( ---- * Exported types-    Socket(..)                              ,-    IsSocket                                ,-    toSocket                                ,-    noSocket                                ,--- -- * Methods--- ** accept #method:accept#--#if ENABLE_OVERLOADING-    SocketAcceptMethodInfo                  ,-#endif-    socketAccept                            ,----- ** bind #method:bind#--#if ENABLE_OVERLOADING-    SocketBindMethodInfo                    ,-#endif-    socketBind                              ,----- ** checkConnectResult #method:checkConnectResult#--#if ENABLE_OVERLOADING-    SocketCheckConnectResultMethodInfo      ,-#endif-    socketCheckConnectResult                ,----- ** close #method:close#--#if ENABLE_OVERLOADING-    SocketCloseMethodInfo                   ,-#endif-    socketClose                             ,----- ** conditionCheck #method:conditionCheck#--#if ENABLE_OVERLOADING-    SocketConditionCheckMethodInfo          ,-#endif-    socketConditionCheck                    ,----- ** conditionTimedWait #method:conditionTimedWait#--#if ENABLE_OVERLOADING-    SocketConditionTimedWaitMethodInfo      ,-#endif-    socketConditionTimedWait                ,----- ** conditionWait #method:conditionWait#--#if ENABLE_OVERLOADING-    SocketConditionWaitMethodInfo           ,-#endif-    socketConditionWait                     ,----- ** connect #method:connect#--#if ENABLE_OVERLOADING-    SocketConnectMethodInfo                 ,-#endif-    socketConnect                           ,----- ** connectionFactoryCreateConnection #method:connectionFactoryCreateConnection#--#if ENABLE_OVERLOADING-    SocketConnectionFactoryCreateConnectionMethodInfo,-#endif-    socketConnectionFactoryCreateConnection ,----- ** getAvailableBytes #method:getAvailableBytes#--#if ENABLE_OVERLOADING-    SocketGetAvailableBytesMethodInfo       ,-#endif-    socketGetAvailableBytes                 ,----- ** getBlocking #method:getBlocking#--#if ENABLE_OVERLOADING-    SocketGetBlockingMethodInfo             ,-#endif-    socketGetBlocking                       ,----- ** getBroadcast #method:getBroadcast#--#if ENABLE_OVERLOADING-    SocketGetBroadcastMethodInfo            ,-#endif-    socketGetBroadcast                      ,----- ** getCredentials #method:getCredentials#--#if ENABLE_OVERLOADING-    SocketGetCredentialsMethodInfo          ,-#endif-    socketGetCredentials                    ,----- ** getFamily #method:getFamily#--#if ENABLE_OVERLOADING-    SocketGetFamilyMethodInfo               ,-#endif-    socketGetFamily                         ,----- ** getFd #method:getFd#--#if ENABLE_OVERLOADING-    SocketGetFdMethodInfo                   ,-#endif-    socketGetFd                             ,----- ** getKeepalive #method:getKeepalive#--#if ENABLE_OVERLOADING-    SocketGetKeepaliveMethodInfo            ,-#endif-    socketGetKeepalive                      ,----- ** getListenBacklog #method:getListenBacklog#--#if ENABLE_OVERLOADING-    SocketGetListenBacklogMethodInfo        ,-#endif-    socketGetListenBacklog                  ,----- ** getLocalAddress #method:getLocalAddress#--#if ENABLE_OVERLOADING-    SocketGetLocalAddressMethodInfo         ,-#endif-    socketGetLocalAddress                   ,----- ** getMulticastLoopback #method:getMulticastLoopback#--#if ENABLE_OVERLOADING-    SocketGetMulticastLoopbackMethodInfo    ,-#endif-    socketGetMulticastLoopback              ,----- ** getMulticastTtl #method:getMulticastTtl#--#if ENABLE_OVERLOADING-    SocketGetMulticastTtlMethodInfo         ,-#endif-    socketGetMulticastTtl                   ,----- ** getOption #method:getOption#--#if ENABLE_OVERLOADING-    SocketGetOptionMethodInfo               ,-#endif-    socketGetOption                         ,----- ** getProtocol #method:getProtocol#--#if ENABLE_OVERLOADING-    SocketGetProtocolMethodInfo             ,-#endif-    socketGetProtocol                       ,----- ** getRemoteAddress #method:getRemoteAddress#--#if ENABLE_OVERLOADING-    SocketGetRemoteAddressMethodInfo        ,-#endif-    socketGetRemoteAddress                  ,----- ** getSocketType #method:getSocketType#--#if ENABLE_OVERLOADING-    SocketGetSocketTypeMethodInfo           ,-#endif-    socketGetSocketType                     ,----- ** getTimeout #method:getTimeout#--#if ENABLE_OVERLOADING-    SocketGetTimeoutMethodInfo              ,-#endif-    socketGetTimeout                        ,----- ** getTtl #method:getTtl#--#if ENABLE_OVERLOADING-    SocketGetTtlMethodInfo                  ,-#endif-    socketGetTtl                            ,----- ** isClosed #method:isClosed#--#if ENABLE_OVERLOADING-    SocketIsClosedMethodInfo                ,-#endif-    socketIsClosed                          ,----- ** isConnected #method:isConnected#--#if ENABLE_OVERLOADING-    SocketIsConnectedMethodInfo             ,-#endif-    socketIsConnected                       ,----- ** joinMulticastGroup #method:joinMulticastGroup#--#if ENABLE_OVERLOADING-    SocketJoinMulticastGroupMethodInfo      ,-#endif-    socketJoinMulticastGroup                ,----- ** joinMulticastGroupSsm #method:joinMulticastGroupSsm#--#if ENABLE_OVERLOADING-    SocketJoinMulticastGroupSsmMethodInfo   ,-#endif-    socketJoinMulticastGroupSsm             ,----- ** leaveMulticastGroup #method:leaveMulticastGroup#--#if ENABLE_OVERLOADING-    SocketLeaveMulticastGroupMethodInfo     ,-#endif-    socketLeaveMulticastGroup               ,----- ** leaveMulticastGroupSsm #method:leaveMulticastGroupSsm#--#if ENABLE_OVERLOADING-    SocketLeaveMulticastGroupSsmMethodInfo  ,-#endif-    socketLeaveMulticastGroupSsm            ,----- ** listen #method:listen#--#if ENABLE_OVERLOADING-    SocketListenMethodInfo                  ,-#endif-    socketListen                            ,----- ** new #method:new#--    socketNew                               ,----- ** newFromFd #method:newFromFd#--    socketNewFromFd                         ,----- ** receive #method:receive#--#if ENABLE_OVERLOADING-    SocketReceiveMethodInfo                 ,-#endif-    socketReceive                           ,----- ** receiveFrom #method:receiveFrom#--#if ENABLE_OVERLOADING-    SocketReceiveFromMethodInfo             ,-#endif-    socketReceiveFrom                       ,----- ** receiveMessage #method:receiveMessage#--#if ENABLE_OVERLOADING-    SocketReceiveMessageMethodInfo          ,-#endif-    socketReceiveMessage                    ,----- ** receiveMessages #method:receiveMessages#--#if ENABLE_OVERLOADING-    SocketReceiveMessagesMethodInfo         ,-#endif-    socketReceiveMessages                   ,----- ** receiveWithBlocking #method:receiveWithBlocking#--#if ENABLE_OVERLOADING-    SocketReceiveWithBlockingMethodInfo     ,-#endif-    socketReceiveWithBlocking               ,----- ** send #method:send#--#if ENABLE_OVERLOADING-    SocketSendMethodInfo                    ,-#endif-    socketSend                              ,----- ** sendMessage #method:sendMessage#--#if ENABLE_OVERLOADING-    SocketSendMessageMethodInfo             ,-#endif-    socketSendMessage                       ,----- ** sendMessageWithTimeout #method:sendMessageWithTimeout#--#if ENABLE_OVERLOADING-    SocketSendMessageWithTimeoutMethodInfo  ,-#endif-    socketSendMessageWithTimeout            ,----- ** sendMessages #method:sendMessages#--#if ENABLE_OVERLOADING-    SocketSendMessagesMethodInfo            ,-#endif-    socketSendMessages                      ,----- ** sendTo #method:sendTo#--#if ENABLE_OVERLOADING-    SocketSendToMethodInfo                  ,-#endif-    socketSendTo                            ,----- ** sendWithBlocking #method:sendWithBlocking#--#if ENABLE_OVERLOADING-    SocketSendWithBlockingMethodInfo        ,-#endif-    socketSendWithBlocking                  ,----- ** setBlocking #method:setBlocking#--#if ENABLE_OVERLOADING-    SocketSetBlockingMethodInfo             ,-#endif-    socketSetBlocking                       ,----- ** setBroadcast #method:setBroadcast#--#if ENABLE_OVERLOADING-    SocketSetBroadcastMethodInfo            ,-#endif-    socketSetBroadcast                      ,----- ** setKeepalive #method:setKeepalive#--#if ENABLE_OVERLOADING-    SocketSetKeepaliveMethodInfo            ,-#endif-    socketSetKeepalive                      ,----- ** setListenBacklog #method:setListenBacklog#--#if ENABLE_OVERLOADING-    SocketSetListenBacklogMethodInfo        ,-#endif-    socketSetListenBacklog                  ,----- ** setMulticastLoopback #method:setMulticastLoopback#--#if ENABLE_OVERLOADING-    SocketSetMulticastLoopbackMethodInfo    ,-#endif-    socketSetMulticastLoopback              ,----- ** setMulticastTtl #method:setMulticastTtl#--#if ENABLE_OVERLOADING-    SocketSetMulticastTtlMethodInfo         ,-#endif-    socketSetMulticastTtl                   ,----- ** setOption #method:setOption#--#if ENABLE_OVERLOADING-    SocketSetOptionMethodInfo               ,-#endif-    socketSetOption                         ,----- ** setTimeout #method:setTimeout#--#if ENABLE_OVERLOADING-    SocketSetTimeoutMethodInfo              ,-#endif-    socketSetTimeout                        ,----- ** setTtl #method:setTtl#--#if ENABLE_OVERLOADING-    SocketSetTtlMethodInfo                  ,-#endif-    socketSetTtl                            ,----- ** shutdown #method:shutdown#--#if ENABLE_OVERLOADING-    SocketShutdownMethodInfo                ,-#endif-    socketShutdown                          ,----- ** speaksIpv4 #method:speaksIpv4#--#if ENABLE_OVERLOADING-    SocketSpeaksIpv4MethodInfo              ,-#endif-    socketSpeaksIpv4                        ,----- -- * Properties--- ** blocking #attr:blocking#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketBlockingPropertyInfo              ,-#endif-    constructSocketBlocking                 ,-    getSocketBlocking                       ,-    setSocketBlocking                       ,-#if ENABLE_OVERLOADING-    socketBlocking                          ,-#endif----- ** broadcast #attr:broadcast#-{- | Whether the socket should allow sending to broadcast addresses.--/Since: 2.32/--}-#if ENABLE_OVERLOADING-    SocketBroadcastPropertyInfo             ,-#endif-    constructSocketBroadcast                ,-    getSocketBroadcast                      ,-    setSocketBroadcast                      ,-#if ENABLE_OVERLOADING-    socketBroadcast                         ,-#endif----- ** family #attr:family#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketFamilyPropertyInfo                ,-#endif-    constructSocketFamily                   ,-    getSocketFamily                         ,-#if ENABLE_OVERLOADING-    socketFamily                            ,-#endif----- ** fd #attr:fd#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketFdPropertyInfo                    ,-#endif-    constructSocketFd                       ,-    getSocketFd                             ,-#if ENABLE_OVERLOADING-    socketFd                                ,-#endif----- ** keepalive #attr:keepalive#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketKeepalivePropertyInfo             ,-#endif-    constructSocketKeepalive                ,-    getSocketKeepalive                      ,-    setSocketKeepalive                      ,-#if ENABLE_OVERLOADING-    socketKeepalive                         ,-#endif----- ** listenBacklog #attr:listenBacklog#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketListenBacklogPropertyInfo         ,-#endif-    constructSocketListenBacklog            ,-    getSocketListenBacklog                  ,-    setSocketListenBacklog                  ,-#if ENABLE_OVERLOADING-    socketListenBacklog                     ,-#endif----- ** localAddress #attr:localAddress#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketLocalAddressPropertyInfo          ,-#endif-    getSocketLocalAddress                   ,-#if ENABLE_OVERLOADING-    socketLocalAddress                      ,-#endif----- ** multicastLoopback #attr:multicastLoopback#-{- | Whether outgoing multicast packets loop back to the local host.--/Since: 2.32/--}-#if ENABLE_OVERLOADING-    SocketMulticastLoopbackPropertyInfo     ,-#endif-    constructSocketMulticastLoopback        ,-    getSocketMulticastLoopback              ,-    setSocketMulticastLoopback              ,-#if ENABLE_OVERLOADING-    socketMulticastLoopback                 ,-#endif----- ** multicastTtl #attr:multicastTtl#-{- | Time-to-live out outgoing multicast packets--/Since: 2.32/--}-#if ENABLE_OVERLOADING-    SocketMulticastTtlPropertyInfo          ,-#endif-    constructSocketMulticastTtl             ,-    getSocketMulticastTtl                   ,-    setSocketMulticastTtl                   ,-#if ENABLE_OVERLOADING-    socketMulticastTtl                      ,-#endif----- ** protocol #attr:protocol#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketProtocolPropertyInfo              ,-#endif-    constructSocketProtocol                 ,-    getSocketProtocol                       ,-#if ENABLE_OVERLOADING-    socketProtocol                          ,-#endif----- ** remoteAddress #attr:remoteAddress#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketRemoteAddressPropertyInfo         ,-#endif-    getSocketRemoteAddress                  ,-#if ENABLE_OVERLOADING-    socketRemoteAddress                     ,-#endif----- ** timeout #attr:timeout#-{- | The timeout in seconds on socket I\/O--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    SocketTimeoutPropertyInfo               ,-#endif-    constructSocketTimeout                  ,-    getSocketTimeout                        ,-    setSocketTimeout                        ,-#if ENABLE_OVERLOADING-    socketTimeout                           ,-#endif----- ** ttl #attr:ttl#-{- | Time-to-live for outgoing unicast packets--/Since: 2.32/--}-#if ENABLE_OVERLOADING-    SocketTtlPropertyInfo                   ,-#endif-    constructSocketTtl                      ,-    getSocketTtl                            ,-    setSocketTtl                            ,-#if ENABLE_OVERLOADING-    socketTtl                               ,-#endif----- ** type #attr:type#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketTypePropertyInfo                  ,-#endif-    constructSocketType                     ,-    getSocketType                           ,-#if ENABLE_OVERLOADING-    socketType                              ,-#endif-----    ) 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.Flags as GLib.Flags-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.DatagramBased as Gio.DatagramBased-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.Credentials as Gio.Credentials-import {-# SOURCE #-} qualified GI.Gio.Objects.InetAddress as Gio.InetAddress-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketControlMessage as Gio.SocketControlMessage-import {-# SOURCE #-} qualified GI.Gio.Structs.InputMessage as Gio.InputMessage-import {-# SOURCE #-} qualified GI.Gio.Structs.InputVector as Gio.InputVector-import {-# SOURCE #-} qualified GI.Gio.Structs.OutputMessage as Gio.OutputMessage-import {-# SOURCE #-} qualified GI.Gio.Structs.OutputVector as Gio.OutputVector---- | Memory-managed wrapper type.-newtype Socket = Socket (ManagedPtr Socket)-foreign import ccall "g_socket_get_type"-    c_g_socket_get_type :: IO GType--instance GObject Socket where-    gobjectType = c_g_socket_get_type-    ---- | Type class for types which can be safely cast to `Socket`, for instance with `toSocket`.-class (GObject o, O.IsDescendantOf Socket o) => IsSocket o-instance (GObject o, O.IsDescendantOf Socket o) => IsSocket o--instance O.HasParentTypes Socket-type instance O.ParentTypes Socket = '[GObject.Object.Object, Gio.DatagramBased.DatagramBased, Gio.Initable.Initable]---- | Cast to `Socket`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocket :: (MonadIO m, IsSocket o) => o -> m Socket-toSocket = liftIO . unsafeCastTo Socket---- | A convenience alias for `Nothing` :: `Maybe` `Socket`.-noSocket :: Maybe Socket-noSocket = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketMethod "accept" o = SocketAcceptMethodInfo-    ResolveSocketMethod "bind" o = SocketBindMethodInfo-    ResolveSocketMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketMethod "checkConnectResult" o = SocketCheckConnectResultMethodInfo-    ResolveSocketMethod "close" o = SocketCloseMethodInfo-    ResolveSocketMethod "conditionCheck" o = SocketConditionCheckMethodInfo-    ResolveSocketMethod "conditionTimedWait" o = SocketConditionTimedWaitMethodInfo-    ResolveSocketMethod "conditionWait" o = SocketConditionWaitMethodInfo-    ResolveSocketMethod "connect" o = SocketConnectMethodInfo-    ResolveSocketMethod "connectionFactoryCreateConnection" o = SocketConnectionFactoryCreateConnectionMethodInfo-    ResolveSocketMethod "createSource" o = Gio.DatagramBased.DatagramBasedCreateSourceMethodInfo-    ResolveSocketMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveSocketMethod "isClosed" o = SocketIsClosedMethodInfo-    ResolveSocketMethod "isConnected" o = SocketIsConnectedMethodInfo-    ResolveSocketMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketMethod "joinMulticastGroup" o = SocketJoinMulticastGroupMethodInfo-    ResolveSocketMethod "joinMulticastGroupSsm" o = SocketJoinMulticastGroupSsmMethodInfo-    ResolveSocketMethod "leaveMulticastGroup" o = SocketLeaveMulticastGroupMethodInfo-    ResolveSocketMethod "leaveMulticastGroupSsm" o = SocketLeaveMulticastGroupSsmMethodInfo-    ResolveSocketMethod "listen" o = SocketListenMethodInfo-    ResolveSocketMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketMethod "receive" o = SocketReceiveMethodInfo-    ResolveSocketMethod "receiveFrom" o = SocketReceiveFromMethodInfo-    ResolveSocketMethod "receiveMessage" o = SocketReceiveMessageMethodInfo-    ResolveSocketMethod "receiveMessages" o = SocketReceiveMessagesMethodInfo-    ResolveSocketMethod "receiveWithBlocking" o = SocketReceiveWithBlockingMethodInfo-    ResolveSocketMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketMethod "send" o = SocketSendMethodInfo-    ResolveSocketMethod "sendMessage" o = SocketSendMessageMethodInfo-    ResolveSocketMethod "sendMessageWithTimeout" o = SocketSendMessageWithTimeoutMethodInfo-    ResolveSocketMethod "sendMessages" o = SocketSendMessagesMethodInfo-    ResolveSocketMethod "sendTo" o = SocketSendToMethodInfo-    ResolveSocketMethod "sendWithBlocking" o = SocketSendWithBlockingMethodInfo-    ResolveSocketMethod "shutdown" o = SocketShutdownMethodInfo-    ResolveSocketMethod "speaksIpv4" o = SocketSpeaksIpv4MethodInfo-    ResolveSocketMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketMethod "getAvailableBytes" o = SocketGetAvailableBytesMethodInfo-    ResolveSocketMethod "getBlocking" o = SocketGetBlockingMethodInfo-    ResolveSocketMethod "getBroadcast" o = SocketGetBroadcastMethodInfo-    ResolveSocketMethod "getCredentials" o = SocketGetCredentialsMethodInfo-    ResolveSocketMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketMethod "getFamily" o = SocketGetFamilyMethodInfo-    ResolveSocketMethod "getFd" o = SocketGetFdMethodInfo-    ResolveSocketMethod "getKeepalive" o = SocketGetKeepaliveMethodInfo-    ResolveSocketMethod "getListenBacklog" o = SocketGetListenBacklogMethodInfo-    ResolveSocketMethod "getLocalAddress" o = SocketGetLocalAddressMethodInfo-    ResolveSocketMethod "getMulticastLoopback" o = SocketGetMulticastLoopbackMethodInfo-    ResolveSocketMethod "getMulticastTtl" o = SocketGetMulticastTtlMethodInfo-    ResolveSocketMethod "getOption" o = SocketGetOptionMethodInfo-    ResolveSocketMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketMethod "getProtocol" o = SocketGetProtocolMethodInfo-    ResolveSocketMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketMethod "getRemoteAddress" o = SocketGetRemoteAddressMethodInfo-    ResolveSocketMethod "getSocketType" o = SocketGetSocketTypeMethodInfo-    ResolveSocketMethod "getTimeout" o = SocketGetTimeoutMethodInfo-    ResolveSocketMethod "getTtl" o = SocketGetTtlMethodInfo-    ResolveSocketMethod "setBlocking" o = SocketSetBlockingMethodInfo-    ResolveSocketMethod "setBroadcast" o = SocketSetBroadcastMethodInfo-    ResolveSocketMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketMethod "setKeepalive" o = SocketSetKeepaliveMethodInfo-    ResolveSocketMethod "setListenBacklog" o = SocketSetListenBacklogMethodInfo-    ResolveSocketMethod "setMulticastLoopback" o = SocketSetMulticastLoopbackMethodInfo-    ResolveSocketMethod "setMulticastTtl" o = SocketSetMulticastTtlMethodInfo-    ResolveSocketMethod "setOption" o = SocketSetOptionMethodInfo-    ResolveSocketMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketMethod "setTimeout" o = SocketSetTimeoutMethodInfo-    ResolveSocketMethod "setTtl" o = SocketSetTtlMethodInfo-    ResolveSocketMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketMethod t Socket, O.MethodInfo info Socket p) => OL.IsLabel t (Socket -> 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---- VVV Prop "blocking"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@blocking@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #blocking-@--}-getSocketBlocking :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketBlocking obj = liftIO $ B.Properties.getObjectPropertyBool obj "blocking"--{- |-Set the value of the “@blocking@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #blocking 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketBlocking :: (MonadIO m, IsSocket o) => o -> Bool -> m ()-setSocketBlocking obj val = liftIO $ B.Properties.setObjectPropertyBool obj "blocking" val--{- |-Construct a `GValueConstruct` with valid value for the “@blocking@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketBlocking :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketBlocking val = B.Properties.constructObjectPropertyBool "blocking" val--#if ENABLE_OVERLOADING-data SocketBlockingPropertyInfo-instance AttrInfo SocketBlockingPropertyInfo where-    type AttrAllowedOps SocketBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketBlockingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketBlockingPropertyInfo = IsSocket-    type AttrGetType SocketBlockingPropertyInfo = Bool-    type AttrLabel SocketBlockingPropertyInfo = "blocking"-    type AttrOrigin SocketBlockingPropertyInfo = Socket-    attrGet _ = getSocketBlocking-    attrSet _ = setSocketBlocking-    attrConstruct _ = constructSocketBlocking-    attrClear _ = undefined-#endif---- VVV Prop "broadcast"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@broadcast@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #broadcast-@--}-getSocketBroadcast :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketBroadcast obj = liftIO $ B.Properties.getObjectPropertyBool obj "broadcast"--{- |-Set the value of the “@broadcast@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #broadcast 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketBroadcast :: (MonadIO m, IsSocket o) => o -> Bool -> m ()-setSocketBroadcast obj val = liftIO $ B.Properties.setObjectPropertyBool obj "broadcast" val--{- |-Construct a `GValueConstruct` with valid value for the “@broadcast@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketBroadcast :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketBroadcast val = B.Properties.constructObjectPropertyBool "broadcast" val--#if ENABLE_OVERLOADING-data SocketBroadcastPropertyInfo-instance AttrInfo SocketBroadcastPropertyInfo where-    type AttrAllowedOps SocketBroadcastPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketBroadcastPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketBroadcastPropertyInfo = IsSocket-    type AttrGetType SocketBroadcastPropertyInfo = Bool-    type AttrLabel SocketBroadcastPropertyInfo = "broadcast"-    type AttrOrigin SocketBroadcastPropertyInfo = Socket-    attrGet _ = getSocketBroadcast-    attrSet _ = setSocketBroadcast-    attrConstruct _ = constructSocketBroadcast-    attrClear _ = undefined-#endif---- VVV Prop "family"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketFamily"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@family@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #family-@--}-getSocketFamily :: (MonadIO m, IsSocket o) => o -> m Gio.Enums.SocketFamily-getSocketFamily obj = liftIO $ B.Properties.getObjectPropertyEnum obj "family"--{- |-Construct a `GValueConstruct` with valid value for the “@family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketFamily :: (IsSocket o) => Gio.Enums.SocketFamily -> IO (GValueConstruct o)-constructSocketFamily val = B.Properties.constructObjectPropertyEnum "family" val--#if ENABLE_OVERLOADING-data SocketFamilyPropertyInfo-instance AttrInfo SocketFamilyPropertyInfo where-    type AttrAllowedOps SocketFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketFamilyPropertyInfo = (~) Gio.Enums.SocketFamily-    type AttrBaseTypeConstraint SocketFamilyPropertyInfo = IsSocket-    type AttrGetType SocketFamilyPropertyInfo = Gio.Enums.SocketFamily-    type AttrLabel SocketFamilyPropertyInfo = "family"-    type AttrOrigin SocketFamilyPropertyInfo = Socket-    attrGet _ = getSocketFamily-    attrSet _ = undefined-    attrConstruct _ = constructSocketFamily-    attrClear _ = undefined-#endif---- VVV Prop "fd"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@fd@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #fd-@--}-getSocketFd :: (MonadIO m, IsSocket o) => o -> m Int32-getSocketFd obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "fd"--{- |-Construct a `GValueConstruct` with valid value for the “@fd@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketFd :: (IsSocket o) => Int32 -> IO (GValueConstruct o)-constructSocketFd val = B.Properties.constructObjectPropertyInt32 "fd" val--#if ENABLE_OVERLOADING-data SocketFdPropertyInfo-instance AttrInfo SocketFdPropertyInfo where-    type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketFdPropertyInfo = IsSocket-    type AttrGetType SocketFdPropertyInfo = Int32-    type AttrLabel SocketFdPropertyInfo = "fd"-    type AttrOrigin SocketFdPropertyInfo = Socket-    attrGet _ = getSocketFd-    attrSet _ = undefined-    attrConstruct _ = constructSocketFd-    attrClear _ = undefined-#endif---- VVV Prop "keepalive"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@keepalive@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #keepalive-@--}-getSocketKeepalive :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketKeepalive obj = liftIO $ B.Properties.getObjectPropertyBool obj "keepalive"--{- |-Set the value of the “@keepalive@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #keepalive 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketKeepalive :: (MonadIO m, IsSocket o) => o -> Bool -> m ()-setSocketKeepalive obj val = liftIO $ B.Properties.setObjectPropertyBool obj "keepalive" val--{- |-Construct a `GValueConstruct` with valid value for the “@keepalive@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketKeepalive :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketKeepalive val = B.Properties.constructObjectPropertyBool "keepalive" val--#if ENABLE_OVERLOADING-data SocketKeepalivePropertyInfo-instance AttrInfo SocketKeepalivePropertyInfo where-    type AttrAllowedOps SocketKeepalivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketKeepalivePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketKeepalivePropertyInfo = IsSocket-    type AttrGetType SocketKeepalivePropertyInfo = Bool-    type AttrLabel SocketKeepalivePropertyInfo = "keepalive"-    type AttrOrigin SocketKeepalivePropertyInfo = Socket-    attrGet _ = getSocketKeepalive-    attrSet _ = setSocketKeepalive-    attrConstruct _ = constructSocketKeepalive-    attrClear _ = undefined-#endif---- VVV Prop "listen-backlog"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@listen-backlog@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #listenBacklog-@--}-getSocketListenBacklog :: (MonadIO m, IsSocket o) => o -> m Int32-getSocketListenBacklog obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "listen-backlog"--{- |-Set the value of the “@listen-backlog@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #listenBacklog 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketListenBacklog :: (MonadIO m, IsSocket o) => o -> Int32 -> m ()-setSocketListenBacklog obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "listen-backlog" val--{- |-Construct a `GValueConstruct` with valid value for the “@listen-backlog@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketListenBacklog :: (IsSocket o) => Int32 -> IO (GValueConstruct o)-constructSocketListenBacklog val = B.Properties.constructObjectPropertyInt32 "listen-backlog" val--#if ENABLE_OVERLOADING-data SocketListenBacklogPropertyInfo-instance AttrInfo SocketListenBacklogPropertyInfo where-    type AttrAllowedOps SocketListenBacklogPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketListenBacklogPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketListenBacklogPropertyInfo = IsSocket-    type AttrGetType SocketListenBacklogPropertyInfo = Int32-    type AttrLabel SocketListenBacklogPropertyInfo = "listen-backlog"-    type AttrOrigin SocketListenBacklogPropertyInfo = Socket-    attrGet _ = getSocketListenBacklog-    attrSet _ = setSocketListenBacklog-    attrConstruct _ = constructSocketListenBacklog-    attrClear _ = undefined-#endif---- VVV Prop "local-address"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketAddress"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@local-address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #localAddress-@--}-getSocketLocalAddress :: (MonadIO m, IsSocket o) => o -> m (Maybe Gio.SocketAddress.SocketAddress)-getSocketLocalAddress obj = liftIO $ B.Properties.getObjectPropertyObject obj "local-address" Gio.SocketAddress.SocketAddress--#if ENABLE_OVERLOADING-data SocketLocalAddressPropertyInfo-instance AttrInfo SocketLocalAddressPropertyInfo where-    type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = IsSocket-    type AttrGetType SocketLocalAddressPropertyInfo = (Maybe Gio.SocketAddress.SocketAddress)-    type AttrLabel SocketLocalAddressPropertyInfo = "local-address"-    type AttrOrigin SocketLocalAddressPropertyInfo = Socket-    attrGet _ = getSocketLocalAddress-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "multicast-loopback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@multicast-loopback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #multicastLoopback-@--}-getSocketMulticastLoopback :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketMulticastLoopback obj = liftIO $ B.Properties.getObjectPropertyBool obj "multicast-loopback"--{- |-Set the value of the “@multicast-loopback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #multicastLoopback 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketMulticastLoopback :: (MonadIO m, IsSocket o) => o -> Bool -> m ()-setSocketMulticastLoopback obj val = liftIO $ B.Properties.setObjectPropertyBool obj "multicast-loopback" val--{- |-Construct a `GValueConstruct` with valid value for the “@multicast-loopback@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketMulticastLoopback :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketMulticastLoopback val = B.Properties.constructObjectPropertyBool "multicast-loopback" val--#if ENABLE_OVERLOADING-data SocketMulticastLoopbackPropertyInfo-instance AttrInfo SocketMulticastLoopbackPropertyInfo where-    type AttrAllowedOps SocketMulticastLoopbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketMulticastLoopbackPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketMulticastLoopbackPropertyInfo = IsSocket-    type AttrGetType SocketMulticastLoopbackPropertyInfo = Bool-    type AttrLabel SocketMulticastLoopbackPropertyInfo = "multicast-loopback"-    type AttrOrigin SocketMulticastLoopbackPropertyInfo = Socket-    attrGet _ = getSocketMulticastLoopback-    attrSet _ = setSocketMulticastLoopback-    attrConstruct _ = constructSocketMulticastLoopback-    attrClear _ = undefined-#endif---- VVV Prop "multicast-ttl"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@multicast-ttl@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #multicastTtl-@--}-getSocketMulticastTtl :: (MonadIO m, IsSocket o) => o -> m Word32-getSocketMulticastTtl obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "multicast-ttl"--{- |-Set the value of the “@multicast-ttl@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #multicastTtl 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketMulticastTtl :: (MonadIO m, IsSocket o) => o -> Word32 -> m ()-setSocketMulticastTtl obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "multicast-ttl" val--{- |-Construct a `GValueConstruct` with valid value for the “@multicast-ttl@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketMulticastTtl :: (IsSocket o) => Word32 -> IO (GValueConstruct o)-constructSocketMulticastTtl val = B.Properties.constructObjectPropertyUInt32 "multicast-ttl" val--#if ENABLE_OVERLOADING-data SocketMulticastTtlPropertyInfo-instance AttrInfo SocketMulticastTtlPropertyInfo where-    type AttrAllowedOps SocketMulticastTtlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketMulticastTtlPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketMulticastTtlPropertyInfo = IsSocket-    type AttrGetType SocketMulticastTtlPropertyInfo = Word32-    type AttrLabel SocketMulticastTtlPropertyInfo = "multicast-ttl"-    type AttrOrigin SocketMulticastTtlPropertyInfo = Socket-    attrGet _ = getSocketMulticastTtl-    attrSet _ = setSocketMulticastTtl-    attrConstruct _ = constructSocketMulticastTtl-    attrClear _ = undefined-#endif---- VVV Prop "protocol"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketProtocol"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #protocol-@--}-getSocketProtocol :: (MonadIO m, IsSocket o) => o -> m Gio.Enums.SocketProtocol-getSocketProtocol obj = liftIO $ B.Properties.getObjectPropertyEnum obj "protocol"--{- |-Construct a `GValueConstruct` with valid value for the “@protocol@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketProtocol :: (IsSocket o) => Gio.Enums.SocketProtocol -> IO (GValueConstruct o)-constructSocketProtocol val = B.Properties.constructObjectPropertyEnum "protocol" val--#if ENABLE_OVERLOADING-data SocketProtocolPropertyInfo-instance AttrInfo SocketProtocolPropertyInfo where-    type AttrAllowedOps SocketProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketProtocolPropertyInfo = (~) Gio.Enums.SocketProtocol-    type AttrBaseTypeConstraint SocketProtocolPropertyInfo = IsSocket-    type AttrGetType SocketProtocolPropertyInfo = Gio.Enums.SocketProtocol-    type AttrLabel SocketProtocolPropertyInfo = "protocol"-    type AttrOrigin SocketProtocolPropertyInfo = Socket-    attrGet _ = getSocketProtocol-    attrSet _ = undefined-    attrConstruct _ = constructSocketProtocol-    attrClear _ = undefined-#endif---- VVV Prop "remote-address"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketAddress"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@remote-address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #remoteAddress-@--}-getSocketRemoteAddress :: (MonadIO m, IsSocket o) => o -> m (Maybe Gio.SocketAddress.SocketAddress)-getSocketRemoteAddress obj = liftIO $ B.Properties.getObjectPropertyObject obj "remote-address" Gio.SocketAddress.SocketAddress--#if ENABLE_OVERLOADING-data SocketRemoteAddressPropertyInfo-instance AttrInfo SocketRemoteAddressPropertyInfo where-    type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = IsSocket-    type AttrGetType SocketRemoteAddressPropertyInfo = (Maybe Gio.SocketAddress.SocketAddress)-    type AttrLabel SocketRemoteAddressPropertyInfo = "remote-address"-    type AttrOrigin SocketRemoteAddressPropertyInfo = Socket-    attrGet _ = getSocketRemoteAddress-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #timeout-@--}-getSocketTimeout :: (MonadIO m, IsSocket o) => o -> m Word32-getSocketTimeout obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "timeout"--{- |-Set the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #timeout 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketTimeout :: (MonadIO m, IsSocket o) => o -> Word32 -> m ()-setSocketTimeout obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "timeout" val--{- |-Construct a `GValueConstruct` with valid value for the “@timeout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketTimeout :: (IsSocket o) => Word32 -> IO (GValueConstruct o)-constructSocketTimeout val = B.Properties.constructObjectPropertyUInt32 "timeout" val--#if ENABLE_OVERLOADING-data SocketTimeoutPropertyInfo-instance AttrInfo SocketTimeoutPropertyInfo where-    type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = IsSocket-    type AttrGetType SocketTimeoutPropertyInfo = Word32-    type AttrLabel SocketTimeoutPropertyInfo = "timeout"-    type AttrOrigin SocketTimeoutPropertyInfo = Socket-    attrGet _ = getSocketTimeout-    attrSet _ = setSocketTimeout-    attrConstruct _ = constructSocketTimeout-    attrClear _ = undefined-#endif---- VVV Prop "ttl"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@ttl@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #ttl-@--}-getSocketTtl :: (MonadIO m, IsSocket o) => o -> m Word32-getSocketTtl obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "ttl"--{- |-Set the value of the “@ttl@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #ttl 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketTtl :: (MonadIO m, IsSocket o) => o -> Word32 -> m ()-setSocketTtl obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "ttl" val--{- |-Construct a `GValueConstruct` with valid value for the “@ttl@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketTtl :: (IsSocket o) => Word32 -> IO (GValueConstruct o)-constructSocketTtl val = B.Properties.constructObjectPropertyUInt32 "ttl" val--#if ENABLE_OVERLOADING-data SocketTtlPropertyInfo-instance AttrInfo SocketTtlPropertyInfo where-    type AttrAllowedOps SocketTtlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTtlPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketTtlPropertyInfo = IsSocket-    type AttrGetType SocketTtlPropertyInfo = Word32-    type AttrLabel SocketTtlPropertyInfo = "ttl"-    type AttrOrigin SocketTtlPropertyInfo = Socket-    attrGet _ = getSocketTtl-    attrSet _ = setSocketTtl-    attrConstruct _ = constructSocketTtl-    attrClear _ = undefined-#endif---- VVV Prop "type"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketType"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #type-@--}-getSocketType :: (MonadIO m, IsSocket o) => o -> m Gio.Enums.SocketType-getSocketType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "type"--{- |-Construct a `GValueConstruct` with valid value for the “@type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketType :: (IsSocket o) => Gio.Enums.SocketType -> IO (GValueConstruct o)-constructSocketType val = B.Properties.constructObjectPropertyEnum "type" val--#if ENABLE_OVERLOADING-data SocketTypePropertyInfo-instance AttrInfo SocketTypePropertyInfo where-    type AttrAllowedOps SocketTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTypePropertyInfo = (~) Gio.Enums.SocketType-    type AttrBaseTypeConstraint SocketTypePropertyInfo = IsSocket-    type AttrGetType SocketTypePropertyInfo = Gio.Enums.SocketType-    type AttrLabel SocketTypePropertyInfo = "type"-    type AttrOrigin SocketTypePropertyInfo = Socket-    attrGet _ = getSocketType-    attrSet _ = undefined-    attrConstruct _ = constructSocketType-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Socket-type instance O.AttributeList Socket = SocketAttributeList-type SocketAttributeList = ('[ '("blocking", SocketBlockingPropertyInfo), '("broadcast", SocketBroadcastPropertyInfo), '("family", SocketFamilyPropertyInfo), '("fd", SocketFdPropertyInfo), '("keepalive", SocketKeepalivePropertyInfo), '("listenBacklog", SocketListenBacklogPropertyInfo), '("localAddress", SocketLocalAddressPropertyInfo), '("multicastLoopback", SocketMulticastLoopbackPropertyInfo), '("multicastTtl", SocketMulticastTtlPropertyInfo), '("protocol", SocketProtocolPropertyInfo), '("remoteAddress", SocketRemoteAddressPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("ttl", SocketTtlPropertyInfo), '("type", SocketTypePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-socketBlocking :: AttrLabelProxy "blocking"-socketBlocking = AttrLabelProxy--socketBroadcast :: AttrLabelProxy "broadcast"-socketBroadcast = AttrLabelProxy--socketFamily :: AttrLabelProxy "family"-socketFamily = AttrLabelProxy--socketFd :: AttrLabelProxy "fd"-socketFd = AttrLabelProxy--socketKeepalive :: AttrLabelProxy "keepalive"-socketKeepalive = AttrLabelProxy--socketListenBacklog :: AttrLabelProxy "listenBacklog"-socketListenBacklog = AttrLabelProxy--socketLocalAddress :: AttrLabelProxy "localAddress"-socketLocalAddress = AttrLabelProxy--socketMulticastLoopback :: AttrLabelProxy "multicastLoopback"-socketMulticastLoopback = AttrLabelProxy--socketMulticastTtl :: AttrLabelProxy "multicastTtl"-socketMulticastTtl = AttrLabelProxy--socketProtocol :: AttrLabelProxy "protocol"-socketProtocol = AttrLabelProxy--socketRemoteAddress :: AttrLabelProxy "remoteAddress"-socketRemoteAddress = AttrLabelProxy--socketTimeout :: AttrLabelProxy "timeout"-socketTimeout = AttrLabelProxy--socketTtl :: AttrLabelProxy "ttl"-socketTtl = AttrLabelProxy--socketType :: AttrLabelProxy "type"-socketType = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Socket = SocketSignalList-type SocketSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Socket::new--- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface (Name {namespace = "Gio", name = "SocketFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the socket family to use, e.g. %G_SOCKET_FAMILY_IPV4.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "SocketType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the socket type to use.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface (Name {namespace = "Gio", name = "SocketProtocol"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the id of the protocol to use, or 0 for default.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Socket"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_new" g_socket_new :: -    CUInt ->                                -- family : TInterface (Name {namespace = "Gio", name = "SocketFamily"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "SocketType"})-    CInt ->                                 -- protocol : TInterface (Name {namespace = "Gio", name = "SocketProtocol"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Socket)--{- |-Creates a new 'GI.Gio.Objects.Socket.Socket' with the defined family, type and protocol.-If /@protocol@/ is 0 ('GI.Gio.Enums.SocketProtocolDefault') the default protocol type-for the family and type is used.--The /@protocol@/ is a family and type specific int that specifies what-kind of protocol to use. 'GI.Gio.Enums.SocketProtocol' lists several common ones.-Many families only support one protocol, and use 0 for this, others-support several and using 0 means to use the default protocol for-the family and type.--The protocol id is passed directly to the operating-system, so you can use protocols not listed in 'GI.Gio.Enums.SocketProtocol' if you-know the protocol number used for it.--/Since: 2.22/--}-socketNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Enums.SocketFamily-    {- ^ /@family@/: the socket family to use, e.g. 'GI.Gio.Enums.SocketFamilyIpv4'. -}-    -> Gio.Enums.SocketType-    {- ^ /@type@/: the socket type to use. -}-    -> Gio.Enums.SocketProtocol-    {- ^ /@protocol@/: the id of the protocol to use, or 0 for default. -}-    -> m Socket-    {- ^ __Returns:__ a 'GI.Gio.Objects.Socket.Socket' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketNew family type_ protocol = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    let type_' = (fromIntegral . fromEnum) type_-    let protocol' = (fromIntegral . fromEnum) protocol-    onException (do-        result <- propagateGError $ g_socket_new family' type_' protocol'-        checkUnexpectedReturnNULL "socketNew" result-        result' <- (wrapObject Socket) result-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method Socket::new_from_fd--- method type : Constructor--- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a native socket file descriptor.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Socket"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_new_from_fd" g_socket_new_from_fd :: -    Int32 ->                                -- fd : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Socket)--{- |-Creates a new 'GI.Gio.Objects.Socket.Socket' from a native file descriptor-or winsock SOCKET handle.--This reads all the settings from the file descriptor so that-all properties should work. Note that the file descriptor-will be set to non-blocking mode, independent on the blocking-mode of the 'GI.Gio.Objects.Socket.Socket'.--On success, the returned 'GI.Gio.Objects.Socket.Socket' takes ownership of /@fd@/. On failure, the-caller must close /@fd@/ themselves.--Since GLib 2.46, it is no longer a fatal error to call this on a non-socket-descriptor.  Instead, a GError will be set with code 'GI.Gio.Enums.IOErrorEnumFailed'--/Since: 2.22/--}-socketNewFromFd ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Int32-    {- ^ /@fd@/: a native socket file descriptor. -}-    -> m Socket-    {- ^ __Returns:__ a 'GI.Gio.Objects.Socket.Socket' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketNewFromFd fd = liftIO $ do-    onException (do-        result <- propagateGError $ g_socket_new_from_fd fd-        checkUnexpectedReturnNULL "socketNewFromFd" result-        result' <- (wrapObject Socket) result-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method Socket::accept--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Socket"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_accept" g_socket_accept :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Socket)--{- |-Accept incoming connections on a connection-based socket. This removes-the first outstanding connection request from the listening socket and-creates a 'GI.Gio.Objects.Socket.Socket' object for it.--The /@socket@/ must be bound to a local address with 'GI.Gio.Objects.Socket.socketBind' and-must be listening for incoming connections ('GI.Gio.Objects.Socket.socketListen').--If there are no outstanding connections then the operation will block-or return 'GI.Gio.Enums.IOErrorEnumWouldBlock' if non-blocking I\/O is enabled.-To be notified of an incoming connection, wait for the 'GI.GLib.Flags.IOConditionIn' condition.--/Since: 2.22/--}-socketAccept ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Socket-    {- ^ __Returns:__ a new 'GI.Gio.Objects.Socket.Socket', or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketAccept socket cancellable = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_accept socket' maybeCancellable-        checkUnexpectedReturnNULL "socketAccept" result-        result' <- (wrapObject Socket) result-        touchManagedPtr socket-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketAcceptMethodInfo-instance (signature ~ (Maybe (b) -> m Socket), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketAcceptMethodInfo a signature where-    overloadedMethod _ = socketAccept--#endif---- method Socket::bind--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddress specifying the local address.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_reuse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to allow reusing this address", 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 "g_socket_bind" g_socket_bind :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    CInt ->                                 -- allow_reuse : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-When a socket is created it is attached to an address family, but it-doesn\'t have an address in this family. 'GI.Gio.Objects.Socket.socketBind' assigns the-address (sometimes called name) of the socket.--It is generally required to bind to a local address before you can-receive connections. (See 'GI.Gio.Objects.Socket.socketListen' and 'GI.Gio.Objects.Socket.socketAccept' ).-In certain situations, you may also want to bind a socket that will be-used to initiate connections, though this is not normally required.--If /@socket@/ is a TCP socket, then /@allowReuse@/ controls the setting-of the @SO_REUSEADDR@ socket option; normally it should be 'True' for-server sockets (sockets that you will eventually call-'GI.Gio.Objects.Socket.socketAccept' on), and 'False' for client sockets. (Failing to-set this flag on a server socket may cause 'GI.Gio.Objects.Socket.socketBind' to return-'GI.Gio.Enums.IOErrorEnumAddressInUse' if the server program is stopped and then-immediately restarted.)--If /@socket@/ is a UDP socket, then /@allowReuse@/ determines whether or-not other UDP sockets can be bound to the same address at the same-time. In particular, you can have several UDP sockets bound to the-same address, and they will all receive all of the multicast and-broadcast packets sent to that address. (The behavior of unicast-UDP packets to an address with multiple listeners is not defined.)--/Since: 2.22/--}-socketBind ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> b-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress' specifying the local address. -}-    -> Bool-    {- ^ /@allowReuse@/: whether to allow reusing this address -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketBind socket address allowReuse = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    address' <- unsafeManagedPtrCastPtr address-    let allowReuse' = (fromIntegral . fromEnum) allowReuse-    onException (do-        _ <- propagateGError $ g_socket_bind socket' address' allowReuse'-        touchManagedPtr socket-        touchManagedPtr address-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketBindMethodInfo-instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b) => O.MethodInfo SocketBindMethodInfo a signature where-    overloadedMethod _ = socketBind--#endif---- method Socket::check_connect_result--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", 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 "g_socket_check_connect_result" g_socket_check_connect_result :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Checks and resets the pending connect error for the socket.-This is used to check for errors when 'GI.Gio.Objects.Socket.socketConnect' is-used in non-blocking mode.--/Since: 2.22/--}-socketCheckConnectResult ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketCheckConnectResult socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    onException (do-        _ <- propagateGError $ g_socket_check_connect_result socket'-        touchManagedPtr socket-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketCheckConnectResultMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketCheckConnectResultMethodInfo a signature where-    overloadedMethod _ = socketCheckConnectResult--#endif---- method Socket::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", 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 "g_socket_close" g_socket_close :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Closes the socket, shutting down any active connection.--Closing a socket does not wait for all outstanding I\/O operations-to finish, so the caller should not rely on them to be guaranteed-to complete even if the close returns with no error.--Once the socket is closed, all other operations will return-'GI.Gio.Enums.IOErrorEnumClosed'. Closing a socket multiple times will not-return an error.--Sockets will be automatically closed when the last reference-is dropped, but you might want to call this function to make sure-resources are released as early as possible.--Beware that due to the way that TCP works, it is possible for-recently-sent data to be lost if either you close a socket while the-'GI.GLib.Flags.IOConditionIn' condition is set, or else if the remote connection tries to-send something to you after you close the socket but before it has-finished reading all of the data you sent. There is no easy generic-way to avoid this problem; the easiest fix is to design the network-protocol such that the client will never send data \"out of turn\".-Another solution is for the server to half-close the connection by-calling 'GI.Gio.Objects.Socket.socketShutdown' with only the /@shutdownWrite@/ flag set,-and then wait for the client to notice this and close its side of the-connection, after which the server can safely call 'GI.Gio.Objects.Socket.socketClose'.-(This is what 'GI.Gio.Objects.TcpConnection.TcpConnection' does if you call-'GI.Gio.Objects.TcpConnection.tcpConnectionSetGracefulDisconnect'. But of course, this-only works if the client will close its connection after the server-does.)--/Since: 2.22/--}-socketClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClose socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    onException (do-        _ <- propagateGError $ g_socket_close socket'-        touchManagedPtr socket-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketCloseMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketCloseMethodInfo a signature where-    overloadedMethod _ = socketClose--#endif---- method Socket::condition_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOCondition mask to check", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "IOCondition"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_condition_check" g_socket_condition_check :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CUInt ->                                -- condition : TInterface (Name {namespace = "GLib", name = "IOCondition"})-    IO CUInt--{- |-Checks on the readiness of /@socket@/ to perform operations.-The operations specified in /@condition@/ are checked for and masked-against the currently-satisfied conditions on /@socket@/. The result-is returned.--Note that on Windows, it is possible for an operation to return-'GI.Gio.Enums.IOErrorEnumWouldBlock' even immediately after-'GI.Gio.Objects.Socket.socketConditionCheck' has claimed that the socket is ready for-writing. Rather than calling 'GI.Gio.Objects.Socket.socketConditionCheck' and then-writing to the socket if it succeeds, it is generally better to-simply try writing to the socket right away, and try again later if-the initial attempt returns 'GI.Gio.Enums.IOErrorEnumWouldBlock'.--It is meaningless to specify 'GI.GLib.Flags.IOConditionErr' or 'GI.GLib.Flags.IOConditionHup' in condition;-these conditions will always be set in the output if they are true.--This call never blocks.--/Since: 2.22/--}-socketConditionCheck ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: a 'GI.GLib.Flags.IOCondition' mask to check -}-    -> m [GLib.Flags.IOCondition]-    {- ^ __Returns:__ the /@gIOCondition@/ mask of the current state -}-socketConditionCheck socket condition = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let condition' = gflagsToWord condition-    result <- g_socket_condition_check socket' condition'-    let result' = wordToGFlags result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketConditionCheckMethodInfo-instance (signature ~ ([GLib.Flags.IOCondition] -> m [GLib.Flags.IOCondition]), MonadIO m, IsSocket a) => O.MethodInfo SocketConditionCheckMethodInfo a signature where-    overloadedMethod _ = socketConditionCheck--#endif---- method Socket::condition_timed_wait--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOCondition mask to wait for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_us", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum time (in microseconds) to wait, or -1", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_socket_condition_timed_wait" g_socket_condition_timed_wait :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CUInt ->                                -- condition : TInterface (Name {namespace = "GLib", name = "IOCondition"})-    Int64 ->                                -- timeout_us : TBasicType TInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Waits for up to /@timeoutUs@/ microseconds for /@condition@/ to become true-on /@socket@/. If the condition is met, 'True' is returned.--If /@cancellable@/ is cancelled before the condition is met, or if-/@timeoutUs@/ (or the socket\'s 'GI.Gio.Objects.Socket.Socket':@/timeout/@) is reached before the-condition is met, then 'False' is returned and /@error@/, if non-'Nothing',-is set to the appropriate value ('GI.Gio.Enums.IOErrorEnumCancelled' or-'GI.Gio.Enums.IOErrorEnumTimedOut').--If you don\'t want a timeout, use 'GI.Gio.Objects.Socket.socketConditionWait'.-(Alternatively, you can pass -1 for /@timeoutUs@/.)--Note that although /@timeoutUs@/ is in microseconds for consistency with-other GLib APIs, this function actually only has millisecond-resolution, and the behavior is undefined if /@timeoutUs@/ is not an-exact number of milliseconds.--/Since: 2.32/--}-socketConditionTimedWait ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: a 'GI.GLib.Flags.IOCondition' mask to wait for -}-    -> Int64-    {- ^ /@timeoutUs@/: the maximum time (in microseconds) to wait, or -1 -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketConditionTimedWait socket condition timeoutUs cancellable = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let condition' = gflagsToWord condition-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_socket_condition_timed_wait socket' condition' timeoutUs maybeCancellable-        touchManagedPtr socket-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketConditionTimedWaitMethodInfo-instance (signature ~ ([GLib.Flags.IOCondition] -> Int64 -> Maybe (b) -> m ()), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketConditionTimedWaitMethodInfo a signature where-    overloadedMethod _ = socketConditionTimedWait--#endif---- method Socket::condition_wait--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface (Name {namespace = "GLib", name = "IOCondition"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOCondition mask to wait for", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_socket_condition_wait" g_socket_condition_wait :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CUInt ->                                -- condition : TInterface (Name {namespace = "GLib", name = "IOCondition"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Waits for /@condition@/ to become true on /@socket@/. When the condition-is met, 'True' is returned.--If /@cancellable@/ is cancelled before the condition is met, or if the-socket has a timeout set and it is reached before the condition is-met, then 'False' is returned and /@error@/, if non-'Nothing', is set to-the appropriate value ('GI.Gio.Enums.IOErrorEnumCancelled' or-'GI.Gio.Enums.IOErrorEnumTimedOut').--See also 'GI.Gio.Objects.Socket.socketConditionTimedWait'.--/Since: 2.22/--}-socketConditionWait ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> [GLib.Flags.IOCondition]-    {- ^ /@condition@/: a 'GI.GLib.Flags.IOCondition' mask to wait for -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketConditionWait socket condition cancellable = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let condition' = gflagsToWord condition-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_socket_condition_wait socket' condition' maybeCancellable-        touchManagedPtr socket-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketConditionWaitMethodInfo-instance (signature ~ ([GLib.Flags.IOCondition] -> Maybe (b) -> m ()), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketConditionWaitMethodInfo a signature where-    overloadedMethod _ = socketConditionWait--#endif---- method Socket::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddress specifying the remote address.", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_socket_connect" g_socket_connect :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Connect the socket to the specified remote address.--For connection oriented socket this generally means we attempt to make-a connection to the /@address@/. For a connection-less socket it sets-the default address for 'GI.Gio.Objects.Socket.socketSend' and discards all incoming datagrams-from other sources.--Generally connection oriented sockets can only connect once, but-connection-less sockets can connect multiple times to change the-default address.--If the connect call needs to do network I\/O it will block, unless-non-blocking I\/O is enabled. Then 'GI.Gio.Enums.IOErrorEnumPending' is returned-and the user can be notified of the connection finishing by waiting-for the G_IO_OUT condition. The result of the connection must then be-checked with 'GI.Gio.Objects.Socket.socketCheckConnectResult'.--/Since: 2.22/--}-socketConnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> b-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress' specifying the remote address. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketConnect socket address cancellable = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    address' <- unsafeManagedPtrCastPtr address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_socket_connect socket' address' maybeCancellable-        touchManagedPtr socket-        touchManagedPtr address-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketConnectMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketConnectMethodInfo a signature where-    overloadedMethod _ = socketConnect--#endif---- method Socket::connection_factory_create_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_connection_factory_create_connection" g_socket_connection_factory_create_connection :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Creates a 'GI.Gio.Objects.SocketConnection.SocketConnection' subclass of the right type for-/@socket@/.--/Since: 2.22/--}-socketConnectionFactoryCreateConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-socketConnectionFactoryCreateConnection socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_connection_factory_create_connection socket'-    checkUnexpectedReturnNULL "socketConnectionFactoryCreateConnection" result-    result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketConnectionFactoryCreateConnectionMethodInfo-instance (signature ~ (m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocket a) => O.MethodInfo SocketConnectionFactoryCreateConnectionMethodInfo a signature where-    overloadedMethod _ = socketConnectionFactoryCreateConnection--#endif---- method Socket::get_available_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "g_socket_get_available_bytes" g_socket_get_available_bytes :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO Int64--{- |-Get the amount of data pending in the OS input buffer, without blocking.--If /@socket@/ is a UDP or SCTP socket, this will return the size of-just the next packet, even if additional packets are buffered after-that one.--Note that on Windows, this function is rather inefficient in the-UDP case, and so if you know any plausible upper bound on the size-of the incoming packet, it is better to just do a-'GI.Gio.Objects.Socket.socketReceive' with a buffer of that size, rather than calling-'GI.Gio.Objects.Socket.socketGetAvailableBytes' first and then doing a receive of-exactly the right size.--/Since: 2.32/--}-socketGetAvailableBytes ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> m Int64-    {- ^ __Returns:__ the number of bytes that can be read from the socket-without blocking or truncating, or -1 on error. -}-socketGetAvailableBytes socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_available_bytes socket'-    touchManagedPtr socket-    return result--#if ENABLE_OVERLOADING-data SocketGetAvailableBytesMethodInfo-instance (signature ~ (m Int64), MonadIO m, IsSocket a) => O.MethodInfo SocketGetAvailableBytesMethodInfo a signature where-    overloadedMethod _ = socketGetAvailableBytes--#endif---- method Socket::get_blocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_blocking" g_socket_get_blocking :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CInt--{- |-Gets the blocking mode of the socket. For details on blocking I\/O,-see 'GI.Gio.Objects.Socket.socketSetBlocking'.--/Since: 2.22/--}-socketGetBlocking ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if blocking I\/O is used, 'False' otherwise. -}-socketGetBlocking socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_blocking socket'-    let result' = (/= 0) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketGetBlockingMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketGetBlockingMethodInfo a signature where-    overloadedMethod _ = socketGetBlocking--#endif---- method Socket::get_broadcast--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_broadcast" g_socket_get_broadcast :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CInt--{- |-Gets the broadcast setting on /@socket@/; if 'True',-it is possible to send packets to broadcast-addresses.--/Since: 2.32/--}-socketGetBroadcast ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Bool-    {- ^ __Returns:__ the broadcast setting on /@socket@/ -}-socketGetBroadcast socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_broadcast socket'-    let result' = (/= 0) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketGetBroadcastMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketGetBroadcastMethodInfo a signature where-    overloadedMethod _ = socketGetBroadcast--#endif---- method Socket::get_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Credentials"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_get_credentials" g_socket_get_credentials :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.Credentials.Credentials)--{- |-Returns the credentials of the foreign process connected to this-socket, if any (e.g. it is only supported for 'GI.Gio.Enums.SocketFamilyUnix'-sockets).--If this operation isn\'t supported on the OS, the method fails with-the 'GI.Gio.Enums.IOErrorEnumNotSupported' error. On Linux this is implemented-by reading the @/SO_PEERCRED/@ option on the underlying socket.--Other ways to obtain credentials from a foreign peer includes the-'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage' type and-'GI.Gio.Objects.UnixConnection.unixConnectionSendCredentials' \/-'GI.Gio.Objects.UnixConnection.unixConnectionReceiveCredentials' functions.--/Since: 2.26/--}-socketGetCredentials ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Gio.Credentials.Credentials-    {- ^ __Returns:__ 'Nothing' if /@error@/ is set, otherwise a 'GI.Gio.Objects.Credentials.Credentials' object-that must be freed with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketGetCredentials socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    onException (do-        result <- propagateGError $ g_socket_get_credentials socket'-        checkUnexpectedReturnNULL "socketGetCredentials" result-        result' <- (wrapObject Gio.Credentials.Credentials) result-        touchManagedPtr socket-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketGetCredentialsMethodInfo-instance (signature ~ (m Gio.Credentials.Credentials), MonadIO m, IsSocket a) => O.MethodInfo SocketGetCredentialsMethodInfo a signature where-    overloadedMethod _ = socketGetCredentials--#endif---- method Socket::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketFamily"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_get_family" g_socket_get_family :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CUInt--{- |-Gets the socket family of the socket.--/Since: 2.22/--}-socketGetFamily ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Gio.Enums.SocketFamily-    {- ^ __Returns:__ a 'GI.Gio.Enums.SocketFamily' -}-socketGetFamily socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_family socket'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketGetFamilyMethodInfo-instance (signature ~ (m Gio.Enums.SocketFamily), MonadIO m, IsSocket a) => O.MethodInfo SocketGetFamilyMethodInfo a signature where-    overloadedMethod _ = socketGetFamily--#endif---- method Socket::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_fd" g_socket_get_fd :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO Int32--{- |-Returns the underlying OS socket object. On unix this-is a socket file descriptor, and on Windows this is-a Winsock2 SOCKET handle. This may be useful for-doing platform specific or otherwise unusual operations-on the socket.--/Since: 2.22/--}-socketGetFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Int32-    {- ^ __Returns:__ the file descriptor of the socket. -}-socketGetFd socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_fd socket'-    touchManagedPtr socket-    return result--#if ENABLE_OVERLOADING-data SocketGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsSocket a) => O.MethodInfo SocketGetFdMethodInfo a signature where-    overloadedMethod _ = socketGetFd--#endif---- method Socket::get_keepalive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_keepalive" g_socket_get_keepalive :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CInt--{- |-Gets the keepalive mode of the socket. For details on this,-see 'GI.Gio.Objects.Socket.socketSetKeepalive'.--/Since: 2.22/--}-socketGetKeepalive ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if keepalive is active, 'False' otherwise. -}-socketGetKeepalive socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_keepalive socket'-    let result' = (/= 0) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketGetKeepaliveMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketGetKeepaliveMethodInfo a signature where-    overloadedMethod _ = socketGetKeepalive--#endif---- method Socket::get_listen_backlog--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_listen_backlog" g_socket_get_listen_backlog :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO Int32--{- |-Gets the listen backlog setting of the socket. For details on this,-see 'GI.Gio.Objects.Socket.socketSetListenBacklog'.--/Since: 2.22/--}-socketGetListenBacklog ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Int32-    {- ^ __Returns:__ the maximum number of pending connections. -}-socketGetListenBacklog socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_listen_backlog socket'-    touchManagedPtr socket-    return result--#if ENABLE_OVERLOADING-data SocketGetListenBacklogMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsSocket a) => O.MethodInfo SocketGetListenBacklogMethodInfo a signature where-    overloadedMethod _ = socketGetListenBacklog--#endif---- method Socket::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_get_local_address" g_socket_get_local_address :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Try to get the local address of a bound socket. This is only-useful if the socket has been bound to a local address,-either explicitly or implicitly when connecting.--/Since: 2.22/--}-socketGetLocalAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Gio.SocketAddress.SocketAddress-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketAddress.SocketAddress' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketGetLocalAddress socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    onException (do-        result <- propagateGError $ g_socket_get_local_address socket'-        checkUnexpectedReturnNULL "socketGetLocalAddress" result-        result' <- (wrapObject Gio.SocketAddress.SocketAddress) result-        touchManagedPtr socket-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketGetLocalAddressMethodInfo-instance (signature ~ (m Gio.SocketAddress.SocketAddress), MonadIO m, IsSocket a) => O.MethodInfo SocketGetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketGetLocalAddress--#endif---- method Socket::get_multicast_loopback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_multicast_loopback" g_socket_get_multicast_loopback :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CInt--{- |-Gets the multicast loopback setting on /@socket@/; if 'True' (the-default), outgoing multicast packets will be looped back to-multicast listeners on the same host.--/Since: 2.32/--}-socketGetMulticastLoopback ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Bool-    {- ^ __Returns:__ the multicast loopback setting on /@socket@/ -}-socketGetMulticastLoopback socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_multicast_loopback socket'-    let result' = (/= 0) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketGetMulticastLoopbackMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketGetMulticastLoopbackMethodInfo a signature where-    overloadedMethod _ = socketGetMulticastLoopback--#endif---- method Socket::get_multicast_ttl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_multicast_ttl" g_socket_get_multicast_ttl :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO Word32--{- |-Gets the multicast time-to-live setting on /@socket@/; see-'GI.Gio.Objects.Socket.socketSetMulticastTtl' for more details.--/Since: 2.32/--}-socketGetMulticastTtl ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Word32-    {- ^ __Returns:__ the multicast time-to-live setting on /@socket@/ -}-socketGetMulticastTtl socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_multicast_ttl socket'-    touchManagedPtr socket-    return result--#if ENABLE_OVERLOADING-data SocketGetMulticastTtlMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsSocket a) => O.MethodInfo SocketGetMulticastTtlMethodInfo a signature where-    overloadedMethod _ = socketGetMulticastTtl--#endif---- method Socket::get_option--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the \"API level\" of the option (eg, `SOL_SOCKET`)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "optname", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the \"name\" of the option (eg, `SO_BROADCAST`)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the option value", 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 "g_socket_get_option" g_socket_get_option :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Int32 ->                                -- level : TBasicType TInt-    Int32 ->                                -- optname : TBasicType TInt-    Ptr Int32 ->                            -- value : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Gets the value of an integer-valued option on /@socket@/, as with-@/getsockopt()/@. (If you need to fetch a  non-integer-valued option,-you will need to call @/getsockopt()/@ directly.)--The [\<gio\/gnetworking.h>][gio-gnetworking.h]-header pulls in system headers that will define most of the-standard\/portable socket options. For unusual socket protocols or-platform-dependent options, you may need to include additional-headers.--Note that even for socket options that are a single byte in size,-/@value@/ is still a pointer to a @/gint/@ variable, not a @/guchar/@;-'GI.Gio.Objects.Socket.socketGetOption' will handle the conversion internally.--/Since: 2.36/--}-socketGetOption ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> Int32-    {- ^ /@level@/: the \"API level\" of the option (eg, @SOL_SOCKET@) -}-    -> Int32-    {- ^ /@optname@/: the \"name\" of the option (eg, @SO_BROADCAST@) -}-    -> m (Int32)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketGetOption socket level optname = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    value <- allocMem :: IO (Ptr Int32)-    onException (do-        _ <- propagateGError $ g_socket_get_option socket' level optname value-        value' <- peek value-        touchManagedPtr socket-        freeMem value-        return value'-     ) (do-        freeMem value-     )--#if ENABLE_OVERLOADING-data SocketGetOptionMethodInfo-instance (signature ~ (Int32 -> Int32 -> m (Int32)), MonadIO m, IsSocket a) => O.MethodInfo SocketGetOptionMethodInfo a signature where-    overloadedMethod _ = socketGetOption--#endif---- method Socket::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketProtocol"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_get_protocol" g_socket_get_protocol :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CInt--{- |-Gets the socket protocol id the socket was created with.-In case the protocol is unknown, -1 is returned.--/Since: 2.22/--}-socketGetProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Gio.Enums.SocketProtocol-    {- ^ __Returns:__ a protocol id, or -1 if unknown -}-socketGetProtocol socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_protocol socket'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketGetProtocolMethodInfo-instance (signature ~ (m Gio.Enums.SocketProtocol), MonadIO m, IsSocket a) => O.MethodInfo SocketGetProtocolMethodInfo a signature where-    overloadedMethod _ = socketGetProtocol--#endif---- method Socket::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_get_remote_address" g_socket_get_remote_address :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Try to get the remote address of a connected socket. This is only-useful for connection oriented sockets that have been connected.--/Since: 2.22/--}-socketGetRemoteAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Gio.SocketAddress.SocketAddress-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketAddress.SocketAddress' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketGetRemoteAddress socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    onException (do-        result <- propagateGError $ g_socket_get_remote_address socket'-        checkUnexpectedReturnNULL "socketGetRemoteAddress" result-        result' <- (wrapObject Gio.SocketAddress.SocketAddress) result-        touchManagedPtr socket-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketGetRemoteAddressMethodInfo-instance (signature ~ (m Gio.SocketAddress.SocketAddress), MonadIO m, IsSocket a) => O.MethodInfo SocketGetRemoteAddressMethodInfo a signature where-    overloadedMethod _ = socketGetRemoteAddress--#endif---- method Socket::get_socket_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketType"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_get_socket_type" g_socket_get_socket_type :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CUInt--{- |-Gets the socket type of the socket.--/Since: 2.22/--}-socketGetSocketType ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Gio.Enums.SocketType-    {- ^ __Returns:__ a 'GI.Gio.Enums.SocketType' -}-socketGetSocketType socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_socket_type socket'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketGetSocketTypeMethodInfo-instance (signature ~ (m Gio.Enums.SocketType), MonadIO m, IsSocket a) => O.MethodInfo SocketGetSocketTypeMethodInfo a signature where-    overloadedMethod _ = socketGetSocketType--#endif---- method Socket::get_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_timeout" g_socket_get_timeout :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO Word32--{- |-Gets the timeout setting of the socket. For details on this, see-'GI.Gio.Objects.Socket.socketSetTimeout'.--/Since: 2.26/--}-socketGetTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Word32-    {- ^ __Returns:__ the timeout in seconds -}-socketGetTimeout socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_timeout socket'-    touchManagedPtr socket-    return result--#if ENABLE_OVERLOADING-data SocketGetTimeoutMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsSocket a) => O.MethodInfo SocketGetTimeoutMethodInfo a signature where-    overloadedMethod _ = socketGetTimeout--#endif---- method Socket::get_ttl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_get_ttl" g_socket_get_ttl :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO Word32--{- |-Gets the unicast time-to-live setting on /@socket@/; see-'GI.Gio.Objects.Socket.socketSetTtl' for more details.--/Since: 2.32/--}-socketGetTtl ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Word32-    {- ^ __Returns:__ the time-to-live setting on /@socket@/ -}-socketGetTtl socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_get_ttl socket'-    touchManagedPtr socket-    return result--#if ENABLE_OVERLOADING-data SocketGetTtlMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsSocket a) => O.MethodInfo SocketGetTtlMethodInfo a signature where-    overloadedMethod _ = socketGetTtl--#endif---- method Socket::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", 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 "g_socket_is_closed" g_socket_is_closed :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CInt--{- |-Checks whether a socket is closed.--/Since: 2.22/--}-socketIsClosed ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if socket is closed, 'False' otherwise -}-socketIsClosed socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_is_closed socket'-    let result' = (/= 0) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketIsClosedMethodInfo a signature where-    overloadedMethod _ = socketIsClosed--#endif---- method Socket::is_connected--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_is_connected" g_socket_is_connected :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CInt--{- |-Check whether the socket is connected. This is only useful for-connection-oriented sockets.--If using 'GI.Gio.Objects.Socket.socketShutdown', this function will return 'True' until the-socket has been shut down for reading and writing. If you do a non-blocking-connect, this function will not return 'True' until after you call-'GI.Gio.Objects.Socket.socketCheckConnectResult'.--/Since: 2.22/--}-socketIsConnected ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if socket is connected, 'False' otherwise. -}-socketIsConnected socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_is_connected socket'-    let result' = (/= 0) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketIsConnectedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketIsConnectedMethodInfo a signature where-    overloadedMethod _ = socketIsConnected--#endif---- method Socket::join_multicast_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress specifying the group address to join.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if source-specific multicast should be used", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Name of the interface to use, or %NULL", 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 "g_socket_join_multicast_group" g_socket_join_multicast_group :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.InetAddress.InetAddress ->      -- group : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    CInt ->                                 -- source_specific : TBasicType TBoolean-    CString ->                              -- iface : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Registers /@socket@/ to receive multicast messages sent to /@group@/.-/@socket@/ must be a 'GI.Gio.Enums.SocketTypeDatagram' socket, and must have-been bound to an appropriate interface and port with-'GI.Gio.Objects.Socket.socketBind'.--If /@iface@/ is 'Nothing', the system will automatically pick an interface-to bind to based on /@group@/.--If /@sourceSpecific@/ is 'True', source-specific multicast as defined-in RFC 4604 is used. Note that on older platforms this may fail-with a 'GI.Gio.Enums.IOErrorEnumNotSupported' error.--To bind to a given source-specific multicast address, use-'GI.Gio.Objects.Socket.socketJoinMulticastGroupSsm' instead.--/Since: 2.32/--}-socketJoinMulticastGroup ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.InetAddress.IsInetAddress b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> b-    {- ^ /@group@/: a 'GI.Gio.Objects.InetAddress.InetAddress' specifying the group address to join. -}-    -> Bool-    {- ^ /@sourceSpecific@/: 'True' if source-specific multicast should be used -}-    -> Maybe (T.Text)-    {- ^ /@iface@/: Name of the interface to use, or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketJoinMulticastGroup socket group sourceSpecific iface = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    group' <- unsafeManagedPtrCastPtr group-    let sourceSpecific' = (fromIntegral . fromEnum) sourceSpecific-    maybeIface <- case iface of-        Nothing -> return nullPtr-        Just jIface -> do-            jIface' <- textToCString jIface-            return jIface'-    onException (do-        _ <- propagateGError $ g_socket_join_multicast_group socket' group' sourceSpecific' maybeIface-        touchManagedPtr socket-        touchManagedPtr group-        freeMem maybeIface-        return ()-     ) (do-        freeMem maybeIface-     )--#if ENABLE_OVERLOADING-data SocketJoinMulticastGroupMethodInfo-instance (signature ~ (b -> Bool -> Maybe (T.Text) -> m ()), MonadIO m, IsSocket a, Gio.InetAddress.IsInetAddress b) => O.MethodInfo SocketJoinMulticastGroupMethodInfo a signature where-    overloadedMethod _ = socketJoinMulticastGroup--#endif---- method Socket::join_multicast_group_ssm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress specifying the group address to join.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_specific", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GInetAddress specifying the\nsource-specific multicast address or %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Name of the interface to use, or %NULL", 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 "g_socket_join_multicast_group_ssm" g_socket_join_multicast_group_ssm :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.InetAddress.InetAddress ->      -- group : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    Ptr Gio.InetAddress.InetAddress ->      -- source_specific : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    CString ->                              -- iface : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Registers /@socket@/ to receive multicast messages sent to /@group@/.-/@socket@/ must be a 'GI.Gio.Enums.SocketTypeDatagram' socket, and must have-been bound to an appropriate interface and port with-'GI.Gio.Objects.Socket.socketBind'.--If /@iface@/ is 'Nothing', the system will automatically pick an interface-to bind to based on /@group@/.--If /@sourceSpecific@/ is not 'Nothing', use source-specific multicast as-defined in RFC 4604. Note that on older platforms this may fail-with a 'GI.Gio.Enums.IOErrorEnumNotSupported' error.--Note that this function can be called multiple times for the same-/@group@/ with different /@sourceSpecific@/ in order to receive multicast-packets from more than one source.--/Since: 2.56/--}-socketJoinMulticastGroupSsm ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.InetAddress.IsInetAddress b, Gio.InetAddress.IsInetAddress c) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> b-    {- ^ /@group@/: a 'GI.Gio.Objects.InetAddress.InetAddress' specifying the group address to join. -}-    -> Maybe (c)-    {- ^ /@sourceSpecific@/: a 'GI.Gio.Objects.InetAddress.InetAddress' specifying the-source-specific multicast address or 'Nothing' to ignore. -}-    -> Maybe (T.Text)-    {- ^ /@iface@/: Name of the interface to use, or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketJoinMulticastGroupSsm socket group sourceSpecific iface = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    group' <- unsafeManagedPtrCastPtr group-    maybeSourceSpecific <- case sourceSpecific of-        Nothing -> return nullPtr-        Just jSourceSpecific -> do-            jSourceSpecific' <- unsafeManagedPtrCastPtr jSourceSpecific-            return jSourceSpecific'-    maybeIface <- case iface of-        Nothing -> return nullPtr-        Just jIface -> do-            jIface' <- textToCString jIface-            return jIface'-    onException (do-        _ <- propagateGError $ g_socket_join_multicast_group_ssm socket' group' maybeSourceSpecific maybeIface-        touchManagedPtr socket-        touchManagedPtr group-        whenJust sourceSpecific touchManagedPtr-        freeMem maybeIface-        return ()-     ) (do-        freeMem maybeIface-     )--#if ENABLE_OVERLOADING-data SocketJoinMulticastGroupSsmMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (T.Text) -> m ()), MonadIO m, IsSocket a, Gio.InetAddress.IsInetAddress b, Gio.InetAddress.IsInetAddress c) => O.MethodInfo SocketJoinMulticastGroupSsmMethodInfo a signature where-    overloadedMethod _ = socketJoinMulticastGroupSsm--#endif---- method Socket::leave_multicast_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress specifying the group address to leave.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if source-specific multicast was used", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Interface used", 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 "g_socket_leave_multicast_group" g_socket_leave_multicast_group :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.InetAddress.InetAddress ->      -- group : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    CInt ->                                 -- source_specific : TBasicType TBoolean-    CString ->                              -- iface : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Removes /@socket@/ from the multicast group defined by /@group@/, /@iface@/,-and /@sourceSpecific@/ (which must all have the same values they had-when you joined the group).--/@socket@/ remains bound to its address and port, and can still receive-unicast messages after calling this.--To unbind to a given source-specific multicast address, use-'GI.Gio.Objects.Socket.socketLeaveMulticastGroupSsm' instead.--/Since: 2.32/--}-socketLeaveMulticastGroup ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.InetAddress.IsInetAddress b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> b-    {- ^ /@group@/: a 'GI.Gio.Objects.InetAddress.InetAddress' specifying the group address to leave. -}-    -> Bool-    {- ^ /@sourceSpecific@/: 'True' if source-specific multicast was used -}-    -> Maybe (T.Text)-    {- ^ /@iface@/: Interface used -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketLeaveMulticastGroup socket group sourceSpecific iface = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    group' <- unsafeManagedPtrCastPtr group-    let sourceSpecific' = (fromIntegral . fromEnum) sourceSpecific-    maybeIface <- case iface of-        Nothing -> return nullPtr-        Just jIface -> do-            jIface' <- textToCString jIface-            return jIface'-    onException (do-        _ <- propagateGError $ g_socket_leave_multicast_group socket' group' sourceSpecific' maybeIface-        touchManagedPtr socket-        touchManagedPtr group-        freeMem maybeIface-        return ()-     ) (do-        freeMem maybeIface-     )--#if ENABLE_OVERLOADING-data SocketLeaveMulticastGroupMethodInfo-instance (signature ~ (b -> Bool -> Maybe (T.Text) -> m ()), MonadIO m, IsSocket a, Gio.InetAddress.IsInetAddress b) => O.MethodInfo SocketLeaveMulticastGroupMethodInfo a signature where-    overloadedMethod _ = socketLeaveMulticastGroup--#endif---- method Socket::leave_multicast_group_ssm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetAddress specifying the group address to leave.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_specific", argType = TInterface (Name {namespace = "Gio", name = "InetAddress"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GInetAddress specifying the\nsource-specific multicast address or %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Name of the interface to use, or %NULL", 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 "g_socket_leave_multicast_group_ssm" g_socket_leave_multicast_group_ssm :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.InetAddress.InetAddress ->      -- group : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    Ptr Gio.InetAddress.InetAddress ->      -- source_specific : TInterface (Name {namespace = "Gio", name = "InetAddress"})-    CString ->                              -- iface : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Removes /@socket@/ from the multicast group defined by /@group@/, /@iface@/,-and /@sourceSpecific@/ (which must all have the same values they had-when you joined the group).--/@socket@/ remains bound to its address and port, and can still receive-unicast messages after calling this.--/Since: 2.56/--}-socketLeaveMulticastGroupSsm ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.InetAddress.IsInetAddress b, Gio.InetAddress.IsInetAddress c) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> b-    {- ^ /@group@/: a 'GI.Gio.Objects.InetAddress.InetAddress' specifying the group address to leave. -}-    -> Maybe (c)-    {- ^ /@sourceSpecific@/: a 'GI.Gio.Objects.InetAddress.InetAddress' specifying the-source-specific multicast address or 'Nothing' to ignore. -}-    -> Maybe (T.Text)-    {- ^ /@iface@/: Name of the interface to use, or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketLeaveMulticastGroupSsm socket group sourceSpecific iface = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    group' <- unsafeManagedPtrCastPtr group-    maybeSourceSpecific <- case sourceSpecific of-        Nothing -> return nullPtr-        Just jSourceSpecific -> do-            jSourceSpecific' <- unsafeManagedPtrCastPtr jSourceSpecific-            return jSourceSpecific'-    maybeIface <- case iface of-        Nothing -> return nullPtr-        Just jIface -> do-            jIface' <- textToCString jIface-            return jIface'-    onException (do-        _ <- propagateGError $ g_socket_leave_multicast_group_ssm socket' group' maybeSourceSpecific maybeIface-        touchManagedPtr socket-        touchManagedPtr group-        whenJust sourceSpecific touchManagedPtr-        freeMem maybeIface-        return ()-     ) (do-        freeMem maybeIface-     )--#if ENABLE_OVERLOADING-data SocketLeaveMulticastGroupSsmMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (T.Text) -> m ()), MonadIO m, IsSocket a, Gio.InetAddress.IsInetAddress b, Gio.InetAddress.IsInetAddress c) => O.MethodInfo SocketLeaveMulticastGroupSsmMethodInfo a signature where-    overloadedMethod _ = socketLeaveMulticastGroupSsm--#endif---- method Socket::listen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", 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 "g_socket_listen" g_socket_listen :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Marks the socket as a server socket, i.e. a socket that is used-to accept incoming requests using 'GI.Gio.Objects.Socket.socketAccept'.--Before calling this the socket must be bound to a local address using-'GI.Gio.Objects.Socket.socketBind'.--To set the maximum amount of outstanding clients, use-'GI.Gio.Objects.Socket.socketSetListenBacklog'.--/Since: 2.22/--}-socketListen ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListen socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    onException (do-        _ <- propagateGError $ g_socket_listen socket'-        touchManagedPtr socket-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketListenMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketListenMethodInfo a signature where-    overloadedMethod _ = socketListen--#endif---- method Socket::receive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a buffer to\n    read data into (which should be at least @size bytes long).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to read from the socket", 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}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to read from the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_socket_receive" g_socket_receive :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Receive data (up to /@size@/ bytes) from a socket. This is mainly used by-connection-oriented sockets; it is identical to 'GI.Gio.Objects.Socket.socketReceiveFrom'-with /@address@/ set to 'Nothing'.--For 'GI.Gio.Enums.SocketTypeDatagram' and 'GI.Gio.Enums.SocketTypeSeqpacket' sockets,-'GI.Gio.Objects.Socket.socketReceive' will always read either 0 or 1 complete messages from-the socket. If the received message is too large to fit in /@buffer@/, then-the data beyond /@size@/ bytes will be discarded, without any explicit-indication that this has occurred.--For 'GI.Gio.Enums.SocketTypeStream' sockets, 'GI.Gio.Objects.Socket.socketReceive' can return any-number of bytes, up to /@size@/. If more than /@size@/ bytes have been-received, the additional data will be returned in future calls to-'GI.Gio.Objects.Socket.socketReceive'.--If the socket is in blocking mode the call will block until there-is some data to receive, the connection is closed, or there is an-error. If there is no data available and the socket is in-non-blocking mode, a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error will be-returned. To be notified when data is available, wait for the-'GI.GLib.Flags.IOConditionIn' condition.--On error -1 is returned and /@error@/ is set accordingly.--/Since: 2.22/--}-socketReceive ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> ByteString-    {- ^ /@buffer@/: a buffer to-    read data into (which should be at least /@size@/ bytes long). -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes read, or 0 if the connection was closed by-the peer, or -1 on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketReceive socket buffer cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    socket' <- unsafeManagedPtrCastPtr socket-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive socket' buffer' size maybeCancellable-        touchManagedPtr socket-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--#if ENABLE_OVERLOADING-data SocketReceiveMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketReceiveMethodInfo a signature where-    overloadedMethod _ = socketReceive--#endif---- method Socket::receive_from--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to a #GSocketAddress\n    pointer, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a buffer to\n    read data into (which should be at least @size bytes long).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to read from the socket", 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}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to read from the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_socket_receive_from" g_socket_receive_from :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr (Ptr Gio.SocketAddress.SocketAddress) -> -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 3 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Receive data (up to /@size@/ bytes) from a socket.--If /@address@/ is non-'Nothing' then /@address@/ will be set equal to the-source address of the received packet.-/@address@/ is owned by the caller.--See 'GI.Gio.Objects.Socket.socketReceive' for additional information.--/Since: 2.22/--}-socketReceiveFrom ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> ByteString-    {- ^ /@buffer@/: a buffer to-    read data into (which should be at least /@size@/ bytes long). -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m ((Int64, Gio.SocketAddress.SocketAddress))-    {- ^ __Returns:__ Number of bytes read, or 0 if the connection was closed by-the peer, or -1 on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketReceiveFrom socket buffer cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    socket' <- unsafeManagedPtrCastPtr socket-    address <- allocMem :: IO (Ptr (Ptr Gio.SocketAddress.SocketAddress))-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive_from socket' address buffer' size maybeCancellable-        address' <- peek address-        address'' <- (wrapObject Gio.SocketAddress.SocketAddress) address'-        touchManagedPtr socket-        whenJust cancellable touchManagedPtr-        freeMem address-        freeMem buffer'-        return (result, address'')-     ) (do-        freeMem address-        freeMem buffer'-     )--#if ENABLE_OVERLOADING-data SocketReceiveFromMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m ((Int64, Gio.SocketAddress.SocketAddress))), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketReceiveFromMethodInfo a signature where-    overloadedMethod _ = socketReceiveFrom--#endif---- method Socket::receive_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pointer to a #GSocketAddress\n    pointer, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "vectors", argType = TCArray False (-1) 3 (TInterface (Name {namespace = "Gio", name = "InputVector"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GInputVector structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @vectors, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 5 (TInterface (Name {namespace = "Gio", name = "SocketControlMessage"})), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pointer\n   which may be filled with an array of #GSocketControlMessages, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer which will be filled with the number of\n   elements in @messages, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to an int containing #GSocketMsgFlags flags", 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 "a %GCancellable or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer which will be filled with the number of\n   elements in @messages, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @vectors, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_socket_receive_message" g_socket_receive_message :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr (Ptr Gio.SocketAddress.SocketAddress) -> -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr Gio.InputVector.InputVector ->      -- vectors : TCArray False (-1) 3 (TInterface (Name {namespace = "Gio", name = "InputVector"}))-    Int32 ->                                -- num_vectors : TBasicType TInt-    Ptr (Ptr (Ptr Gio.SocketControlMessage.SocketControlMessage)) -> -- messages : TCArray False (-1) 5 (TInterface (Name {namespace = "Gio", name = "SocketControlMessage"}))-    Ptr Int32 ->                            -- num_messages : TBasicType TInt-    Ptr Int32 ->                            -- flags : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Receive data from a socket.  For receiving multiple messages, see-'GI.Gio.Objects.Socket.socketReceiveMessages'; for easier use, see-'GI.Gio.Objects.Socket.socketReceive' and 'GI.Gio.Objects.Socket.socketReceiveFrom'.--If /@address@/ is non-'Nothing' then /@address@/ will be set equal to the-source address of the received packet.-/@address@/ is owned by the caller.--/@vector@/ must point to an array of 'GI.Gio.Structs.InputVector.InputVector' structs and-/@numVectors@/ must be the length of this array.  These structs-describe the buffers that received data will be scattered into.-If /@numVectors@/ is -1, then /@vectors@/ is assumed to be terminated-by a 'GI.Gio.Structs.InputVector.InputVector' with a 'Nothing' buffer pointer.--As a special case, if /@numVectors@/ is 0 (in which case, /@vectors@/-may of course be 'Nothing'), then a single byte is received and-discarded. This is to facilitate the common practice of sending a-single \'\\0\' byte for the purposes of transferring ancillary data.--/@messages@/, if non-'Nothing', will be set to point to a newly-allocated-array of 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' instances or 'Nothing' if no such-messages was received. These correspond to the control messages-received from the kernel, one 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' per message-from the kernel. This array is 'Nothing'-terminated and must be freed-by the caller using 'GI.GLib.Functions.free' after calling 'GI.GObject.Objects.Object.objectUnref' on each-element. If /@messages@/ is 'Nothing', any control messages received will-be discarded.--/@numMessages@/, if non-'Nothing', will be set to the number of control-messages received.--If both /@messages@/ and /@numMessages@/ are non-'Nothing', then-/@numMessages@/ gives the number of 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' instances-in /@messages@/ (ie: not including the 'Nothing' terminator).--/@flags@/ is an in\/out parameter. The commonly available arguments-for this are available in the 'GI.Gio.Flags.SocketMsgFlags' enum, but the-values there are the same as the system values, and the flags-are passed in as-is, so you can pass in system-specific flags too-(and 'GI.Gio.Objects.Socket.socketReceiveMessage' may pass system-specific flags out).-Flags passed in to the parameter affect the receive operation; flags returned-out of it are relevant to the specific returned message.--As with 'GI.Gio.Objects.Socket.socketReceive', data may be discarded if /@socket@/ is-'GI.Gio.Enums.SocketTypeDatagram' or 'GI.Gio.Enums.SocketTypeSeqpacket' and you do not-provide enough buffer space to read a complete message. You can pass-'GI.Gio.Flags.SocketMsgFlagsPeek' in /@flags@/ to peek at the current message without-removing it from the receive queue, but there is no portable way to find-out the length of the message other than by reading it into a-sufficiently-large buffer.--If the socket is in blocking mode the call will block until there-is some data to receive, the connection is closed, or there is an-error. If there is no data available and the socket is in-non-blocking mode, a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error will be-returned. To be notified when data is available, wait for the-'GI.GLib.Flags.IOConditionIn' condition.--On error -1 is returned and /@error@/ is set accordingly.--/Since: 2.22/--}-socketReceiveMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> [Gio.InputVector.InputVector]-    {- ^ /@vectors@/: an array of 'GI.Gio.Structs.InputVector.InputVector' structs -}-    -> Int32-    {- ^ /@flags@/: a pointer to an int containing 'GI.Gio.Flags.SocketMsgFlags' flags -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m ((Int64, Maybe Gio.SocketAddress.SocketAddress, Maybe [Gio.SocketControlMessage.SocketControlMessage], Int32))-    {- ^ __Returns:__ Number of bytes read, or 0 if the connection was closed by-the peer, or -1 on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketReceiveMessage socket vectors flags cancellable = liftIO $ do-    let numVectors = fromIntegral $ length vectors-    socket' <- unsafeManagedPtrCastPtr socket-    address <- allocMem :: IO (Ptr (Ptr Gio.SocketAddress.SocketAddress))-    vectors' <- mapM unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    messages <- allocMem :: IO (Ptr (Ptr (Ptr Gio.SocketControlMessage.SocketControlMessage)))-    numMessages <- allocMem :: IO (Ptr Int32)-    flags' <- allocMem :: IO (Ptr Int32)-    poke flags' flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive_message socket' address vectors'' numVectors messages numMessages flags' maybeCancellable-        numMessages' <- peek numMessages-        address' <- peek address-        maybeAddress' <- convertIfNonNull address' $ \address'' -> do-            address''' <- (wrapObject Gio.SocketAddress.SocketAddress) address''-            return address'''-        messages' <- peek messages-        maybeMessages' <- convertIfNonNull messages' $ \messages'' -> do-            messages''' <- (unpackPtrArrayWithLength numMessages') messages''-            messages'''' <- mapM (wrapObject Gio.SocketControlMessage.SocketControlMessage) messages'''-            freeMem messages''-            return messages''''-        flags'' <- peek flags'-        touchManagedPtr socket-        mapM_ touchManagedPtr vectors-        whenJust cancellable touchManagedPtr-        freeMem address-        freeMem vectors''-        freeMem messages-        freeMem numMessages-        freeMem flags'-        return (result, maybeAddress', maybeMessages', flags'')-     ) (do-        freeMem address-        freeMem vectors''-        freeMem messages-        freeMem numMessages-        freeMem flags'-     )--#if ENABLE_OVERLOADING-data SocketReceiveMessageMethodInfo-instance (signature ~ ([Gio.InputVector.InputVector] -> Int32 -> Maybe (b) -> m ((Int64, Maybe Gio.SocketAddress.SocketAddress, Maybe [Gio.SocketControlMessage.SocketControlMessage], Int32))), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketReceiveMessageMethodInfo a signature where-    overloadedMethod _ = socketReceiveMessage--#endif---- method Socket::receive_messages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "InputMessage"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GInputMessage structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @messages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an int containing #GSocketMsgFlags flags for the overall operation", 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}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @messages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_socket_receive_messages" g_socket_receive_messages :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.InputMessage.InputMessage ->    -- messages : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "InputMessage"}))-    Word32 ->                               -- num_messages : TBasicType TUInt-    Int32 ->                                -- flags : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Receive multiple data messages from /@socket@/ in one go.  This is the most-complicated and fully-featured version of this call. For easier use, see-'GI.Gio.Objects.Socket.socketReceive', 'GI.Gio.Objects.Socket.socketReceiveFrom', and 'GI.Gio.Objects.Socket.socketReceiveMessage'.--/@messages@/ must point to an array of 'GI.Gio.Structs.InputMessage.InputMessage' structs and-/@numMessages@/ must be the length of this array. Each 'GI.Gio.Structs.InputMessage.InputMessage'-contains a pointer to an array of 'GI.Gio.Structs.InputVector.InputVector' structs describing the-buffers that the data received in each message will be written to. Using-multiple @/GInputVectors/@ is more memory-efficient than manually copying data-out of a single buffer to multiple sources, and more system-call-efficient-than making multiple calls to 'GI.Gio.Objects.Socket.socketReceive', such as in scenarios where-a lot of data packets need to be received (e.g. high-bandwidth video-streaming over RTP\/UDP).--/@flags@/ modify how all messages are received. The commonly available-arguments for this are available in the 'GI.Gio.Flags.SocketMsgFlags' enum, but the-values there are the same as the system values, and the flags-are passed in as-is, so you can pass in system-specific flags too. These-flags affect the overall receive operation. Flags affecting individual-messages are returned in 'GI.Gio.Structs.InputMessage.InputMessage'.@/flags/@.--The other members of 'GI.Gio.Structs.InputMessage.InputMessage' are treated as described in its-documentation.--If 'GI.Gio.Objects.Socket.Socket':@/blocking/@ is 'True' the call will block until /@numMessages@/ have-been received, or the end of the stream is reached.--If 'GI.Gio.Objects.Socket.Socket':@/blocking/@ is 'False' the call will return up to /@numMessages@/-without blocking, or 'GI.Gio.Enums.IOErrorEnumWouldBlock' if no messages are queued in the-operating system to be received.--In blocking mode, if 'GI.Gio.Objects.Socket.Socket':@/timeout/@ is positive and is reached before any-messages are received, 'GI.Gio.Enums.IOErrorEnumTimedOut' is returned, otherwise up to-/@numMessages@/ are returned. (Note: This is effectively the-behaviour of @MSG_WAITFORONE@ with @/recvmmsg()/@.)--To be notified when messages are available, wait for the-'GI.GLib.Flags.IOConditionIn' condition. Note though that you may still receive-'GI.Gio.Enums.IOErrorEnumWouldBlock' from 'GI.Gio.Objects.Socket.socketReceiveMessages' even if you were-previously notified of a 'GI.GLib.Flags.IOConditionIn' condition.--If the remote peer closes the connection, any messages queued in the-operating system will be returned, and subsequent calls to-'GI.Gio.Objects.Socket.socketReceiveMessages' will return 0 (with no error set).--On error -1 is returned and /@error@/ is set accordingly. An error will only-be returned if zero messages could be received; otherwise the number of-messages successfully received before the error will be returned.--/Since: 2.48/--}-socketReceiveMessages ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> [Gio.InputMessage.InputMessage]-    {- ^ /@messages@/: an array of 'GI.Gio.Structs.InputMessage.InputMessage' structs -}-    -> Int32-    {- ^ /@flags@/: an int containing 'GI.Gio.Flags.SocketMsgFlags' flags for the overall operation -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Int32-    {- ^ __Returns:__ number of messages received, or -1 on error. Note that the number-    of messages received may be smaller than /@numMessages@/ if in non-blocking-    mode, if the peer closed the connection, or if /@numMessages@/-    was larger than @UIO_MAXIOV@ (1024), in which case the caller may re-try-    to receive the remaining messages. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketReceiveMessages socket messages flags cancellable = liftIO $ do-    let numMessages = fromIntegral $ length messages-    socket' <- unsafeManagedPtrCastPtr socket-    messages' <- mapM unsafeManagedPtrGetPtr messages-    messages'' <- packBlockArray 56 messages'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive_messages socket' messages'' numMessages flags maybeCancellable-        touchManagedPtr socket-        mapM_ touchManagedPtr messages-        whenJust cancellable touchManagedPtr-        freeMem messages''-        return result-     ) (do-        freeMem messages''-     )--#if ENABLE_OVERLOADING-data SocketReceiveMessagesMethodInfo-instance (signature ~ ([Gio.InputMessage.InputMessage] -> Int32 -> Maybe (b) -> m Int32), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketReceiveMessagesMethodInfo a signature where-    overloadedMethod _ = socketReceiveMessages--#endif---- method Socket::receive_with_blocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a buffer to\n    read data into (which should be at least @size bytes long).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to read from the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to do blocking or non-blocking I/O", 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}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes you want to read from the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_socket_receive_with_blocking" g_socket_receive_with_blocking :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-This behaves exactly the same as 'GI.Gio.Objects.Socket.socketReceive', except that-the choice of blocking or non-blocking behavior is determined by-the /@blocking@/ argument rather than by /@socket@/\'s properties.--/Since: 2.26/--}-socketReceiveWithBlocking ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> ByteString-    {- ^ /@buffer@/: a buffer to-    read data into (which should be at least /@size@/ bytes long). -}-    -> Bool-    {- ^ /@blocking@/: whether to do blocking or non-blocking I\/O -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes read, or 0 if the connection was closed by-the peer, or -1 on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketReceiveWithBlocking socket buffer blocking cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    socket' <- unsafeManagedPtrCastPtr socket-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_receive_with_blocking socket' buffer' size blocking' maybeCancellable-        touchManagedPtr socket-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--#if ENABLE_OVERLOADING-data SocketReceiveWithBlockingMethodInfo-instance (signature ~ (ByteString -> Bool -> Maybe (b) -> m Int64), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketReceiveWithBlockingMethodInfo a signature where-    overloadedMethod _ = socketReceiveWithBlocking--#endif---- method Socket::send--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer\n    containing the data to send.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to send", 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}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to send", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_socket_send" g_socket_send :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Tries to send /@size@/ bytes from /@buffer@/ on the socket. This is-mainly used by connection-oriented sockets; it is identical to-'GI.Gio.Objects.Socket.socketSendTo' with /@address@/ set to 'Nothing'.--If the socket is in blocking mode the call will block until there is-space for the data in the socket queue. If there is no space available-and the socket is in non-blocking mode a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error-will be returned. To be notified when space is available, wait for the-'GI.GLib.Flags.IOConditionOut' condition. Note though that you may still receive-'GI.Gio.Enums.IOErrorEnumWouldBlock' from 'GI.Gio.Objects.Socket.socketSend' even if you were previously-notified of a 'GI.GLib.Flags.IOConditionOut' condition. (On Windows in particular, this is-very common due to the way the underlying APIs work.)--On error -1 is returned and /@error@/ is set accordingly.--/Since: 2.22/--}-socketSend ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> ByteString-    {- ^ /@buffer@/: the buffer-    containing the data to send. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes written (which may be less than /@size@/), or -1-on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketSend socket buffer cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    socket' <- unsafeManagedPtrCastPtr socket-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send socket' buffer' size maybeCancellable-        touchManagedPtr socket-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--#if ENABLE_OVERLOADING-data SocketSendMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketSendMethodInfo a signature where-    overloadedMethod _ = socketSend--#endif---- method Socket::send_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GSocketAddress, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 3 (TInterface (Name {namespace = "Gio", name = "OutputVector"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GOutputVector structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @vectors, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 5 (TInterface (Name {namespace = "Gio", name = "SocketControlMessage"})), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pointer to an\n  array of #GSocketControlMessages, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of elements in @messages, or -1.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an int containing #GSocketMsgFlags flags", 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}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of elements in @messages, or -1.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @vectors, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_socket_send_message" g_socket_send_message :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr Gio.OutputVector.OutputVector ->    -- vectors : TCArray False (-1) 3 (TInterface (Name {namespace = "Gio", name = "OutputVector"}))-    Int32 ->                                -- num_vectors : TBasicType TInt-    Ptr (Ptr Gio.SocketControlMessage.SocketControlMessage) -> -- messages : TCArray False (-1) 5 (TInterface (Name {namespace = "Gio", name = "SocketControlMessage"}))-    Int32 ->                                -- num_messages : TBasicType TInt-    Int32 ->                                -- flags : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Send data to /@address@/ on /@socket@/.  For sending multiple messages see-'GI.Gio.Objects.Socket.socketSendMessages'; for easier use, see-'GI.Gio.Objects.Socket.socketSend' and 'GI.Gio.Objects.Socket.socketSendTo'.--If /@address@/ is 'Nothing' then the message is sent to the default receiver-(set by 'GI.Gio.Objects.Socket.socketConnect').--/@vectors@/ must point to an array of 'GI.Gio.Structs.OutputVector.OutputVector' structs and-/@numVectors@/ must be the length of this array. (If /@numVectors@/ is -1,-then /@vectors@/ is assumed to be terminated by a 'GI.Gio.Structs.OutputVector.OutputVector' with a-'Nothing' buffer pointer.) The 'GI.Gio.Structs.OutputVector.OutputVector' structs describe the buffers-that the sent data will be gathered from. Using multiple-@/GOutputVectors/@ is more memory-efficient than manually copying-data from multiple sources into a single buffer, and more-network-efficient than making multiple calls to 'GI.Gio.Objects.Socket.socketSend'.--/@messages@/, if non-'Nothing', is taken to point to an array of /@numMessages@/-'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' instances. These correspond to the control-messages to be sent on the socket.-If /@numMessages@/ is -1 then /@messages@/ is treated as a 'Nothing'-terminated-array.--/@flags@/ modify how the message is sent. The commonly available arguments-for this are available in the 'GI.Gio.Flags.SocketMsgFlags' enum, but the-values there are the same as the system values, and the flags-are passed in as-is, so you can pass in system-specific flags too.--If the socket is in blocking mode the call will block until there is-space for the data in the socket queue. If there is no space available-and the socket is in non-blocking mode a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error-will be returned. To be notified when space is available, wait for the-'GI.GLib.Flags.IOConditionOut' condition. Note though that you may still receive-'GI.Gio.Enums.IOErrorEnumWouldBlock' from 'GI.Gio.Objects.Socket.socketSend' even if you were previously-notified of a 'GI.GLib.Flags.IOConditionOut' condition. (On Windows in particular, this is-very common due to the way the underlying APIs work.)--On error -1 is returned and /@error@/ is set accordingly.--/Since: 2.22/--}-socketSendMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> Maybe (b)-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress', or 'Nothing' -}-    -> [Gio.OutputVector.OutputVector]-    {- ^ /@vectors@/: an array of 'GI.Gio.Structs.OutputVector.OutputVector' structs -}-    -> Maybe ([Gio.SocketControlMessage.SocketControlMessage])-    {- ^ /@messages@/: a pointer to an-  array of @/GSocketControlMessages/@, or 'Nothing'. -}-    -> Int32-    {- ^ /@flags@/: an int containing 'GI.Gio.Flags.SocketMsgFlags' flags -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes written (which may be less than /@size@/), or -1-on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketSendMessage socket address vectors messages flags cancellable = liftIO $ do-    let numMessages = case messages of-            Nothing -> 0-            Just jMessages -> fromIntegral $ length jMessages-    let numVectors = fromIntegral $ length vectors-    socket' <- unsafeManagedPtrCastPtr socket-    maybeAddress <- case address of-        Nothing -> return nullPtr-        Just jAddress -> do-            jAddress' <- unsafeManagedPtrCastPtr jAddress-            return jAddress'-    vectors' <- mapM unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    maybeMessages <- case messages of-        Nothing -> return nullPtr-        Just jMessages -> do-            jMessages' <- mapM unsafeManagedPtrCastPtr jMessages-            jMessages'' <- packPtrArray jMessages'-            return jMessages''-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_message socket' maybeAddress vectors'' numVectors maybeMessages numMessages flags maybeCancellable-        touchManagedPtr socket-        whenJust address touchManagedPtr-        mapM_ touchManagedPtr vectors-        whenJust messages (mapM_ touchManagedPtr)-        whenJust cancellable touchManagedPtr-        freeMem vectors''-        freeMem maybeMessages-        return result-     ) (do-        freeMem vectors''-        freeMem maybeMessages-     )--#if ENABLE_OVERLOADING-data SocketSendMessageMethodInfo-instance (signature ~ (Maybe (b) -> [Gio.OutputVector.OutputVector] -> Maybe ([Gio.SocketControlMessage.SocketControlMessage]) -> Int32 -> Maybe (c) -> m Int64), MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketSendMessageMethodInfo a signature where-    overloadedMethod _ = socketSendMessage--#endif---- method Socket::send_message_with_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GSocketAddress, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 3 (TInterface (Name {namespace = "Gio", name = "OutputVector"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GOutputVector structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @vectors, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 5 (TInterface (Name {namespace = "Gio", name = "SocketControlMessage"})), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pointer to an\n  array of #GSocketControlMessages, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of elements in @messages, or -1.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an int containing #GSocketMsgFlags flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_us", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum time (in microseconds) to wait, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the number of bytes that were written to the socket", 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 "a %GCancellable or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of elements in @messages, or -1.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @vectors, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "PollableReturn"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_send_message_with_timeout" g_socket_send_message_with_timeout :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr Gio.OutputVector.OutputVector ->    -- vectors : TCArray False (-1) 3 (TInterface (Name {namespace = "Gio", name = "OutputVector"}))-    Int32 ->                                -- num_vectors : TBasicType TInt-    Ptr (Ptr Gio.SocketControlMessage.SocketControlMessage) -> -- messages : TCArray False (-1) 5 (TInterface (Name {namespace = "Gio", name = "SocketControlMessage"}))-    Int32 ->                                -- num_messages : TBasicType TInt-    Int32 ->                                -- flags : TBasicType TInt-    Int64 ->                                -- timeout_us : TBasicType TInt64-    Ptr Word64 ->                           -- bytes_written : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-This behaves exactly the same as 'GI.Gio.Objects.Socket.socketSendMessage', except that-the choice of timeout behavior is determined by the /@timeoutUs@/ argument-rather than by /@socket@/\'s properties.--On error 'GI.Gio.Enums.PollableReturnFailed' is returned and /@error@/ is set accordingly, or-if the socket is currently not writable 'GI.Gio.Enums.PollableReturnWouldBlock' is-returned. /@bytesWritten@/ will contain 0 in both cases.--/Since: 2.60/--}-socketSendMessageWithTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> Maybe (b)-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress', or 'Nothing' -}-    -> [Gio.OutputVector.OutputVector]-    {- ^ /@vectors@/: an array of 'GI.Gio.Structs.OutputVector.OutputVector' structs -}-    -> Maybe ([Gio.SocketControlMessage.SocketControlMessage])-    {- ^ /@messages@/: a pointer to an-  array of @/GSocketControlMessages/@, or 'Nothing'. -}-    -> Int32-    {- ^ /@flags@/: an int containing 'GI.Gio.Flags.SocketMsgFlags' flags -}-    -> Int64-    {- ^ /@timeoutUs@/: the maximum time (in microseconds) to wait, or -1 -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m ((Gio.Enums.PollableReturn, Word64))-    {- ^ __Returns:__ 'GI.Gio.Enums.PollableReturnOk' if all data was successfully written,-'GI.Gio.Enums.PollableReturnWouldBlock' if the socket is currently not writable, or-'GI.Gio.Enums.PollableReturnFailed' if an error happened and /@error@/ is set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketSendMessageWithTimeout socket address vectors messages flags timeoutUs cancellable = liftIO $ do-    let numMessages = case messages of-            Nothing -> 0-            Just jMessages -> fromIntegral $ length jMessages-    let numVectors = fromIntegral $ length vectors-    socket' <- unsafeManagedPtrCastPtr socket-    maybeAddress <- case address of-        Nothing -> return nullPtr-        Just jAddress -> do-            jAddress' <- unsafeManagedPtrCastPtr jAddress-            return jAddress'-    vectors' <- mapM unsafeManagedPtrGetPtr vectors-    vectors'' <- packBlockArray 16 vectors'-    maybeMessages <- case messages of-        Nothing -> return nullPtr-        Just jMessages -> do-            jMessages' <- mapM unsafeManagedPtrCastPtr jMessages-            jMessages'' <- packPtrArray jMessages'-            return jMessages''-    bytesWritten <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_message_with_timeout socket' maybeAddress vectors'' numVectors maybeMessages numMessages flags timeoutUs bytesWritten maybeCancellable-        let result' = (toEnum . fromIntegral) result-        bytesWritten' <- peek bytesWritten-        touchManagedPtr socket-        whenJust address touchManagedPtr-        mapM_ touchManagedPtr vectors-        whenJust messages (mapM_ touchManagedPtr)-        whenJust cancellable touchManagedPtr-        freeMem vectors''-        freeMem maybeMessages-        freeMem bytesWritten-        return (result', bytesWritten')-     ) (do-        freeMem vectors''-        freeMem maybeMessages-        freeMem bytesWritten-     )--#if ENABLE_OVERLOADING-data SocketSendMessageWithTimeoutMethodInfo-instance (signature ~ (Maybe (b) -> [Gio.OutputVector.OutputVector] -> Maybe ([Gio.SocketControlMessage.SocketControlMessage]) -> Int32 -> Int64 -> Maybe (c) -> m ((Gio.Enums.PollableReturn, Word64))), MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketSendMessageWithTimeoutMethodInfo a signature where-    overloadedMethod _ = socketSendMessageWithTimeout--#endif---- method Socket::send_messages--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputMessage"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #GOutputMessage structs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @messages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an int containing #GSocketMsgFlags flags", 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}]--- Lengths : [Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of elements in @messages", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_socket_send_messages" g_socket_send_messages :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.OutputMessage.OutputMessage ->  -- messages : TCArray False (-1) 2 (TInterface (Name {namespace = "Gio", name = "OutputMessage"}))-    Word32 ->                               -- num_messages : TBasicType TUInt-    Int32 ->                                -- flags : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Send multiple data messages from /@socket@/ in one go.  This is the most-complicated and fully-featured version of this call. For easier use, see-'GI.Gio.Objects.Socket.socketSend', 'GI.Gio.Objects.Socket.socketSendTo', and 'GI.Gio.Objects.Socket.socketSendMessage'.--/@messages@/ must point to an array of 'GI.Gio.Structs.OutputMessage.OutputMessage' structs and-/@numMessages@/ must be the length of this array. Each 'GI.Gio.Structs.OutputMessage.OutputMessage'-contains an address to send the data to, and a pointer to an array of-'GI.Gio.Structs.OutputVector.OutputVector' structs to describe the buffers that the data to be sent-for each message will be gathered from. Using multiple @/GOutputVectors/@ is-more memory-efficient than manually copying data from multiple sources-into a single buffer, and more network-efficient than making multiple-calls to 'GI.Gio.Objects.Socket.socketSend'. Sending multiple messages in one go avoids the-overhead of making a lot of syscalls in scenarios where a lot of data-packets need to be sent (e.g. high-bandwidth video streaming over RTP\/UDP),-or where the same data needs to be sent to multiple recipients.--/@flags@/ modify how the message is sent. The commonly available arguments-for this are available in the 'GI.Gio.Flags.SocketMsgFlags' enum, but the-values there are the same as the system values, and the flags-are passed in as-is, so you can pass in system-specific flags too.--If the socket is in blocking mode the call will block until there is-space for all the data in the socket queue. If there is no space available-and the socket is in non-blocking mode a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error-will be returned if no data was written at all, otherwise the number of-messages sent will be returned. To be notified when space is available,-wait for the 'GI.GLib.Flags.IOConditionOut' condition. Note though that you may still receive-'GI.Gio.Enums.IOErrorEnumWouldBlock' from 'GI.Gio.Objects.Socket.socketSend' even if you were previously-notified of a 'GI.GLib.Flags.IOConditionOut' condition. (On Windows in particular, this is-very common due to the way the underlying APIs work.)--On error -1 is returned and /@error@/ is set accordingly. An error will only-be returned if zero messages could be sent; otherwise the number of messages-successfully sent before the error will be returned.--/Since: 2.44/--}-socketSendMessages ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> [Gio.OutputMessage.OutputMessage]-    {- ^ /@messages@/: an array of 'GI.Gio.Structs.OutputMessage.OutputMessage' structs -}-    -> Int32-    {- ^ /@flags@/: an int containing 'GI.Gio.Flags.SocketMsgFlags' flags -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Int32-    {- ^ __Returns:__ number of messages sent, or -1 on error. Note that the number of-    messages sent may be smaller than /@numMessages@/ if the socket is-    non-blocking or if /@numMessages@/ was larger than UIO_MAXIOV (1024),-    in which case the caller may re-try to send the remaining messages. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketSendMessages socket messages flags cancellable = liftIO $ do-    let numMessages = fromIntegral $ length messages-    socket' <- unsafeManagedPtrCastPtr socket-    messages' <- mapM unsafeManagedPtrGetPtr messages-    messages'' <- packBlockArray 40 messages'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_messages socket' messages'' numMessages flags maybeCancellable-        touchManagedPtr socket-        mapM_ touchManagedPtr messages-        whenJust cancellable touchManagedPtr-        freeMem messages''-        return result-     ) (do-        freeMem messages''-     )--#if ENABLE_OVERLOADING-data SocketSendMessagesMethodInfo-instance (signature ~ ([Gio.OutputMessage.OutputMessage] -> Int32 -> Maybe (b) -> m Int32), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketSendMessagesMethodInfo a signature where-    overloadedMethod _ = socketSendMessages--#endif---- method Socket::send_to--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GSocketAddress, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer\n    containing the data to send.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to send", 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}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to send", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_socket_send_to" g_socket_send_to :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 3 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Tries to send /@size@/ bytes from /@buffer@/ to /@address@/. If /@address@/ is-'Nothing' then the message is sent to the default receiver (set by-'GI.Gio.Objects.Socket.socketConnect').--See 'GI.Gio.Objects.Socket.socketSend' for additional information.--/Since: 2.22/--}-socketSendTo ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> Maybe (b)-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress', or 'Nothing' -}-    -> ByteString-    {- ^ /@buffer@/: the buffer-    containing the data to send. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes written (which may be less than /@size@/), or -1-on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketSendTo socket address buffer cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    socket' <- unsafeManagedPtrCastPtr socket-    maybeAddress <- case address of-        Nothing -> return nullPtr-        Just jAddress -> do-            jAddress' <- unsafeManagedPtrCastPtr jAddress-            return jAddress'-    buffer' <- packByteString buffer-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_to socket' maybeAddress buffer' size maybeCancellable-        touchManagedPtr socket-        whenJust address touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--#if ENABLE_OVERLOADING-data SocketSendToMethodInfo-instance (signature ~ (Maybe (b) -> ByteString -> Maybe (c) -> m Int64), MonadIO m, IsSocket a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketSendToMethodInfo a signature where-    overloadedMethod _ = socketSendTo--#endif---- method Socket::send_with_blocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the buffer\n    containing the data to send.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to send", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to do blocking or non-blocking I/O", 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}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the number of bytes to send", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_socket_send_with_blocking" g_socket_send_with_blocking :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- size : TBasicType TUInt64-    CInt ->                                 -- blocking : TBasicType TBoolean-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-This behaves exactly the same as 'GI.Gio.Objects.Socket.socketSend', except that-the choice of blocking or non-blocking behavior is determined by-the /@blocking@/ argument rather than by /@socket@/\'s properties.--/Since: 2.26/--}-socketSendWithBlocking ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> ByteString-    {- ^ /@buffer@/: the buffer-    containing the data to send. -}-    -> Bool-    {- ^ /@blocking@/: whether to do blocking or non-blocking I\/O -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m Int64-    {- ^ __Returns:__ Number of bytes written (which may be less than /@size@/), or -1-on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketSendWithBlocking socket buffer blocking cancellable = liftIO $ do-    let size = fromIntegral $ B.length buffer-    socket' <- unsafeManagedPtrCastPtr socket-    buffer' <- packByteString buffer-    let blocking' = (fromIntegral . fromEnum) blocking-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_send_with_blocking socket' buffer' size blocking' maybeCancellable-        touchManagedPtr socket-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        return result-     ) (do-        freeMem buffer'-     )--#if ENABLE_OVERLOADING-data SocketSendWithBlockingMethodInfo-instance (signature ~ (ByteString -> Bool -> Maybe (b) -> m Int64), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketSendWithBlockingMethodInfo a signature where-    overloadedMethod _ = socketSendWithBlocking--#endif---- method Socket::set_blocking--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Whether to use blocking I/O or not.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_set_blocking" g_socket_set_blocking :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CInt ->                                 -- blocking : TBasicType TBoolean-    IO ()--{- |-Sets the blocking mode of the socket. In blocking mode-all operations (which don’t take an explicit blocking parameter) block until-they succeed or there is an error. In-non-blocking mode all functions return results immediately or-with a 'GI.Gio.Enums.IOErrorEnumWouldBlock' error.--All sockets are created in blocking mode. However, note that the-platform level socket is always non-blocking, and blocking mode-is a GSocket level feature.--/Since: 2.22/--}-socketSetBlocking ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Bool-    {- ^ /@blocking@/: Whether to use blocking I\/O or not. -}-    -> m ()-socketSetBlocking socket blocking = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let blocking' = (fromIntegral . fromEnum) blocking-    g_socket_set_blocking socket' blocking'-    touchManagedPtr socket-    return ()--#if ENABLE_OVERLOADING-data SocketSetBlockingMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetBlockingMethodInfo a signature where-    overloadedMethod _ = socketSetBlocking--#endif---- method Socket::set_broadcast--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "broadcast", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether @socket should allow sending to broadcast\n    addresses", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_set_broadcast" g_socket_set_broadcast :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CInt ->                                 -- broadcast : TBasicType TBoolean-    IO ()--{- |-Sets whether /@socket@/ should allow sending to broadcast addresses.-This is 'False' by default.--/Since: 2.32/--}-socketSetBroadcast ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Bool-    {- ^ /@broadcast@/: whether /@socket@/ should allow sending to broadcast-    addresses -}-    -> m ()-socketSetBroadcast socket broadcast = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let broadcast' = (fromIntegral . fromEnum) broadcast-    g_socket_set_broadcast socket' broadcast'-    touchManagedPtr socket-    return ()--#if ENABLE_OVERLOADING-data SocketSetBroadcastMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetBroadcastMethodInfo a signature where-    overloadedMethod _ = socketSetBroadcast--#endif---- method Socket::set_keepalive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keepalive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Value for the keepalive flag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_set_keepalive" g_socket_set_keepalive :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CInt ->                                 -- keepalive : TBasicType TBoolean-    IO ()--{- |-Sets or unsets the @/SO_KEEPALIVE/@ flag on the underlying socket. When-this flag is set on a socket, the system will attempt to verify that the-remote socket endpoint is still present if a sufficiently long period of-time passes with no data being exchanged. If the system is unable to-verify the presence of the remote endpoint, it will automatically close-the connection.--This option is only functional on certain kinds of sockets. (Notably,-'GI.Gio.Enums.SocketProtocolTcp' sockets.)--The exact time between pings is system- and protocol-dependent, but will-normally be at least two hours. Most commonly, you would set this flag-on a server socket if you want to allow clients to remain idle for long-periods of time, but also want to ensure that connections are eventually-garbage-collected if clients crash or become unreachable.--/Since: 2.22/--}-socketSetKeepalive ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Bool-    {- ^ /@keepalive@/: Value for the keepalive flag -}-    -> m ()-socketSetKeepalive socket keepalive = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let keepalive' = (fromIntegral . fromEnum) keepalive-    g_socket_set_keepalive socket' keepalive'-    touchManagedPtr socket-    return ()--#if ENABLE_OVERLOADING-data SocketSetKeepaliveMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetKeepaliveMethodInfo a signature where-    overloadedMethod _ = socketSetKeepalive--#endif---- method Socket::set_listen_backlog--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backlog", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum number of pending connections.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_set_listen_backlog" g_socket_set_listen_backlog :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Int32 ->                                -- backlog : TBasicType TInt-    IO ()--{- |-Sets the maximum number of outstanding connections allowed-when listening on this socket. If more clients than this are-connecting to the socket and the application is not handling them-on time then the new connections will be refused.--Note that this must be called before 'GI.Gio.Objects.Socket.socketListen' and has no-effect if called after that.--/Since: 2.22/--}-socketSetListenBacklog ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Int32-    {- ^ /@backlog@/: the maximum number of pending connections. -}-    -> m ()-socketSetListenBacklog socket backlog = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    g_socket_set_listen_backlog socket' backlog-    touchManagedPtr socket-    return ()--#if ENABLE_OVERLOADING-data SocketSetListenBacklogMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetListenBacklogMethodInfo a signature where-    overloadedMethod _ = socketSetListenBacklog--#endif---- method Socket::set_multicast_loopback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "loopback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether @socket should receive messages sent to its\n  multicast groups from the local host", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_set_multicast_loopback" g_socket_set_multicast_loopback :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CInt ->                                 -- loopback : TBasicType TBoolean-    IO ()--{- |-Sets whether outgoing multicast packets will be received by sockets-listening on that multicast address on the same host. This is 'True'-by default.--/Since: 2.32/--}-socketSetMulticastLoopback ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Bool-    {- ^ /@loopback@/: whether /@socket@/ should receive messages sent to its-  multicast groups from the local host -}-    -> m ()-socketSetMulticastLoopback socket loopback = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let loopback' = (fromIntegral . fromEnum) loopback-    g_socket_set_multicast_loopback socket' loopback'-    touchManagedPtr socket-    return ()--#if ENABLE_OVERLOADING-data SocketSetMulticastLoopbackMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetMulticastLoopbackMethodInfo a signature where-    overloadedMethod _ = socketSetMulticastLoopback--#endif---- method Socket::set_multicast_ttl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ttl", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the time-to-live value for all multicast datagrams on @socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_set_multicast_ttl" g_socket_set_multicast_ttl :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Word32 ->                               -- ttl : TBasicType TUInt-    IO ()--{- |-Sets the time-to-live for outgoing multicast datagrams on /@socket@/.-By default, this is 1, meaning that multicast packets will not leave-the local network.--/Since: 2.32/--}-socketSetMulticastTtl ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Word32-    {- ^ /@ttl@/: the time-to-live value for all multicast datagrams on /@socket@/ -}-    -> m ()-socketSetMulticastTtl socket ttl = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    g_socket_set_multicast_ttl socket' ttl-    touchManagedPtr socket-    return ()--#if ENABLE_OVERLOADING-data SocketSetMulticastTtlMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetMulticastTtlMethodInfo a signature where-    overloadedMethod _ = socketSetMulticastTtl--#endif---- method Socket::set_option--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the \"API level\" of the option (eg, `SOL_SOCKET`)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "optname", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the \"name\" of the option (eg, `SO_BROADCAST`)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value to set the option to", 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 "g_socket_set_option" g_socket_set_option :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Int32 ->                                -- level : TBasicType TInt-    Int32 ->                                -- optname : TBasicType TInt-    Int32 ->                                -- value : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets the value of an integer-valued option on /@socket@/, as with-@/setsockopt()/@. (If you need to set a non-integer-valued option,-you will need to call @/setsockopt()/@ directly.)--The [\<gio\/gnetworking.h>][gio-gnetworking.h]-header pulls in system headers that will define most of the-standard\/portable socket options. For unusual socket protocols or-platform-dependent options, you may need to include additional-headers.--/Since: 2.36/--}-socketSetOption ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> Int32-    {- ^ /@level@/: the \"API level\" of the option (eg, @SOL_SOCKET@) -}-    -> Int32-    {- ^ /@optname@/: the \"name\" of the option (eg, @SO_BROADCAST@) -}-    -> Int32-    {- ^ /@value@/: the value to set the option to -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketSetOption socket level optname value = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    onException (do-        _ <- propagateGError $ g_socket_set_option socket' level optname value-        touchManagedPtr socket-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketSetOptionMethodInfo-instance (signature ~ (Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetOptionMethodInfo a signature where-    overloadedMethod _ = socketSetOption--#endif---- method Socket::set_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout for @socket, in seconds, or 0 for none", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_set_timeout" g_socket_set_timeout :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Word32 ->                               -- timeout : TBasicType TUInt-    IO ()--{- |-Sets the time in seconds after which I\/O operations on /@socket@/ will-time out if they have not yet completed.--On a blocking socket, this means that any blocking 'GI.Gio.Objects.Socket.Socket'-operation will time out after /@timeout@/ seconds of inactivity,-returning 'GI.Gio.Enums.IOErrorEnumTimedOut'.--On a non-blocking socket, calls to 'GI.Gio.Objects.Socket.socketConditionWait' will-also fail with 'GI.Gio.Enums.IOErrorEnumTimedOut' after the given time. Sources-created with @/g_socket_create_source()/@ will trigger after-/@timeout@/ seconds of inactivity, with the requested condition-set, at which point calling 'GI.Gio.Objects.Socket.socketReceive', 'GI.Gio.Objects.Socket.socketSend',-'GI.Gio.Objects.Socket.socketCheckConnectResult', etc, will fail with-'GI.Gio.Enums.IOErrorEnumTimedOut'.--If /@timeout@/ is 0 (the default), operations will never time out-on their own.--Note that if an I\/O operation is interrupted by a signal, this may-cause the timeout to be reset.--/Since: 2.26/--}-socketSetTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Word32-    {- ^ /@timeout@/: the timeout for /@socket@/, in seconds, or 0 for none -}-    -> m ()-socketSetTimeout socket timeout = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    g_socket_set_timeout socket' timeout-    touchManagedPtr socket-    return ()--#if ENABLE_OVERLOADING-data SocketSetTimeoutMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetTimeoutMethodInfo a signature where-    overloadedMethod _ = socketSetTimeout--#endif---- method Socket::set_ttl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ttl", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the time-to-live value for all unicast packets on @socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_set_ttl" g_socket_set_ttl :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Word32 ->                               -- ttl : TBasicType TUInt-    IO ()--{- |-Sets the time-to-live for outgoing unicast packets on /@socket@/.-By default the platform-specific default value is used.--/Since: 2.32/--}-socketSetTtl ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket'. -}-    -> Word32-    {- ^ /@ttl@/: the time-to-live value for all unicast packets on /@socket@/ -}-    -> m ()-socketSetTtl socket ttl = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    g_socket_set_ttl socket' ttl-    touchManagedPtr socket-    return ()--#if ENABLE_OVERLOADING-data SocketSetTtlMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketSetTtlMethodInfo a signature where-    overloadedMethod _ = socketSetTtl--#endif---- method Socket::shutdown--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_read", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to shut down the read side", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_write", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to shut down the write side", 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 "g_socket_shutdown" g_socket_shutdown :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CInt ->                                 -- shutdown_read : TBasicType TBoolean-    CInt ->                                 -- shutdown_write : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Shut down part or all of a full-duplex connection.--If /@shutdownRead@/ is 'True' then the receiving side of the connection-is shut down, and further reading is disallowed.--If /@shutdownWrite@/ is 'True' then the sending side of the connection-is shut down, and further writing is disallowed.--It is allowed for both /@shutdownRead@/ and /@shutdownWrite@/ to be 'True'.--One example where it is useful to shut down only one side of a connection is-graceful disconnect for TCP connections where you close the sending side,-then wait for the other side to close the connection, thus ensuring that the-other side saw all sent data.--/Since: 2.22/--}-socketShutdown ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> Bool-    {- ^ /@shutdownRead@/: whether to shut down the read side -}-    -> Bool-    {- ^ /@shutdownWrite@/: whether to shut down the write side -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketShutdown socket shutdownRead shutdownWrite = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    let shutdownRead' = (fromIntegral . fromEnum) shutdownRead-    let shutdownWrite' = (fromIntegral . fromEnum) shutdownWrite-    onException (do-        _ <- propagateGError $ g_socket_shutdown socket' shutdownRead' shutdownWrite'-        touchManagedPtr socket-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketShutdownMethodInfo-instance (signature ~ (Bool -> Bool -> m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketShutdownMethodInfo a signature where-    overloadedMethod _ = socketShutdown--#endif---- method Socket::speaks_ipv4--- method type : OrdinaryMethod--- Args : [Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocket", 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 "g_socket_speaks_ipv4" g_socket_speaks_ipv4 :: -    Ptr Socket ->                           -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO CInt--{- |-Checks if a socket is capable of speaking IPv4.--IPv4 sockets are capable of speaking IPv4.  On some operating systems-and under some combinations of circumstances IPv6 sockets are also-capable of speaking IPv4.  See RFC 3493 section 3.7 for more-information.--No other types of sockets are currently considered as being capable-of speaking IPv4.--/Since: 2.22/--}-socketSpeaksIpv4 ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@socket@/: a 'GI.Gio.Objects.Socket.Socket' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if this socket can be used with IPv4. -}-socketSpeaksIpv4 socket = liftIO $ do-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_socket_speaks_ipv4 socket'-    let result' = (/= 0) result-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-data SocketSpeaksIpv4MethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketSpeaksIpv4MethodInfo a signature where-    overloadedMethod _ = socketSpeaksIpv4--#endif--
− GI/Gio/Objects/Socket.hs-boot 
@@ -1,236 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Socket 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 Socket = Socket (ManagedPtr Socket)-instance GObject Socket where-class (GObject o, O.IsDescendantOf Socket o) => IsSocket o-instance (GObject o, O.IsDescendantOf Socket o) => IsSocket o-instance O.HasParentTypes Socket-#if ENABLE_OVERLOADING-data SocketBlockingPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketBroadcastPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketFamilyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketFdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketKeepalivePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenBacklogPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketLocalAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketMulticastLoopbackPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketMulticastTtlPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketRemoteAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketTimeoutPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketTtlPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketAcceptMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketBindMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketCheckConnectResultMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConditionCheckMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConditionTimedWaitMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConditionWaitMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectionFactoryCreateConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetAvailableBytesMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetBlockingMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetBroadcastMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetCredentialsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetFamilyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetKeepaliveMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetListenBacklogMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetLocalAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetMulticastLoopbackMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetMulticastTtlMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetOptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetRemoteAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetSocketTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetTtlMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketIsClosedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketIsConnectedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketJoinMulticastGroupMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketJoinMulticastGroupSsmMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketLeaveMulticastGroupMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketLeaveMulticastGroupSsmMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketReceiveMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketReceiveFromMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketReceiveMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketReceiveMessagesMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketReceiveWithBlockingMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSendMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSendMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSendMessageWithTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSendMessagesMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSendToMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSendWithBlockingMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetBlockingMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetBroadcastMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetKeepaliveMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetListenBacklogMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetMulticastLoopbackMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetMulticastTtlMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetOptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSetTtlMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketShutdownMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketSpeaksIpv4MethodInfo-#endif
− GI/Gio/Objects/SocketAddress.hs 
@@ -1,379 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.SocketAddress.SocketAddress' is the equivalent of struct sockaddr in the BSD-sockets API. This is an abstract class; use 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress'-for internet sockets, or 'GI.Gio.Objects.UnixSocketAddress.UnixSocketAddress' for UNIX domain sockets.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SocketAddress-    ( ---- * Exported types-    SocketAddress(..)                       ,-    IsSocketAddress                         ,-    toSocketAddress                         ,-    noSocketAddress                         ,--- -- * Methods--- ** getFamily #method:getFamily#--#if ENABLE_OVERLOADING-    SocketAddressGetFamilyMethodInfo        ,-#endif-    socketAddressGetFamily                  ,----- ** getNativeSize #method:getNativeSize#--#if ENABLE_OVERLOADING-    SocketAddressGetNativeSizeMethodInfo    ,-#endif-    socketAddressGetNativeSize              ,----- ** newFromNative #method:newFromNative#--    socketAddressNewFromNative              ,----- ** toNative #method:toNative#--#if ENABLE_OVERLOADING-    SocketAddressToNativeMethodInfo         ,-#endif-    socketAddressToNative                   ,----- -- * Properties--- ** family #attr:family#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketAddressFamilyPropertyInfo         ,-#endif-    getSocketAddressFamily                  ,-#if ENABLE_OVERLOADING-    socketAddressFamily                     ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable---- | Memory-managed wrapper type.-newtype SocketAddress = SocketAddress (ManagedPtr SocketAddress)-foreign import ccall "g_socket_address_get_type"-    c_g_socket_address_get_type :: IO GType--instance GObject SocketAddress where-    gobjectType = c_g_socket_address_get_type-    ---- | Type class for types which can be safely cast to `SocketAddress`, for instance with `toSocketAddress`.-class (GObject o, O.IsDescendantOf SocketAddress o) => IsSocketAddress o-instance (GObject o, O.IsDescendantOf SocketAddress o) => IsSocketAddress o--instance O.HasParentTypes SocketAddress-type instance O.ParentTypes SocketAddress = '[GObject.Object.Object, Gio.SocketConnectable.SocketConnectable]---- | Cast to `SocketAddress`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocketAddress :: (MonadIO m, IsSocketAddress o) => o -> m SocketAddress-toSocketAddress = liftIO . unsafeCastTo SocketAddress---- | A convenience alias for `Nothing` :: `Maybe` `SocketAddress`.-noSocketAddress :: Maybe SocketAddress-noSocketAddress = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketAddressMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo-    ResolveSocketAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketAddressMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketAddressMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo-    ResolveSocketAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketAddressMethod "toNative" o = SocketAddressToNativeMethodInfo-    ResolveSocketAddressMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo-    ResolveSocketAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo-    ResolveSocketAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo-    ResolveSocketAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketAddressMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketAddressMethod t SocketAddress, O.MethodInfo info SocketAddress p) => OL.IsLabel t (SocketAddress -> 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---- VVV Prop "family"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketFamily"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@family@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketAddress #family-@--}-getSocketAddressFamily :: (MonadIO m, IsSocketAddress o) => o -> m Gio.Enums.SocketFamily-getSocketAddressFamily obj = liftIO $ B.Properties.getObjectPropertyEnum obj "family"--#if ENABLE_OVERLOADING-data SocketAddressFamilyPropertyInfo-instance AttrInfo SocketAddressFamilyPropertyInfo where-    type AttrAllowedOps SocketAddressFamilyPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketAddressFamilyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketAddressFamilyPropertyInfo = IsSocketAddress-    type AttrGetType SocketAddressFamilyPropertyInfo = Gio.Enums.SocketFamily-    type AttrLabel SocketAddressFamilyPropertyInfo = "family"-    type AttrOrigin SocketAddressFamilyPropertyInfo = SocketAddress-    attrGet _ = getSocketAddressFamily-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SocketAddress-type instance O.AttributeList SocketAddress = SocketAddressAttributeList-type SocketAddressAttributeList = ('[ '("family", SocketAddressFamilyPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-socketAddressFamily :: AttrLabelProxy "family"-socketAddressFamily = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SocketAddress = SocketAddressSignalList-type SocketAddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SocketAddress::new_from_native--- method type : Constructor--- Args : [Arg {argCName = "native", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to a struct sockaddr", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of the memory location pointed to by @native", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_address_new_from_native" g_socket_address_new_from_native :: -    Ptr () ->                               -- native : TBasicType TPtr-    Word64 ->                               -- len : TBasicType TUInt64-    IO (Ptr SocketAddress)--{- |-Creates a 'GI.Gio.Objects.SocketAddress.SocketAddress' subclass corresponding to the native-struct sockaddr /@native@/.--/Since: 2.22/--}-socketAddressNewFromNative ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Ptr ()-    {- ^ /@native@/: a pointer to a struct sockaddr -}-    -> Word64-    {- ^ /@len@/: the size of the memory location pointed to by /@native@/ -}-    -> m SocketAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SocketAddress.SocketAddress' if /@native@/ could successfully-    be converted, otherwise 'Nothing' -}-socketAddressNewFromNative native len = liftIO $ do-    result <- g_socket_address_new_from_native native len-    checkUnexpectedReturnNULL "socketAddressNewFromNative" result-    result' <- (wrapObject SocketAddress) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method SocketAddress::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketFamily"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_address_get_family" g_socket_address_get_family :: -    Ptr SocketAddress ->                    -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    IO CUInt--{- |-Gets the socket family type of /@address@/.--/Since: 2.22/--}-socketAddressGetFamily ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress' -}-    -> m Gio.Enums.SocketFamily-    {- ^ __Returns:__ the socket family type of /@address@/ -}-socketAddressGetFamily address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_socket_address_get_family address'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data SocketAddressGetFamilyMethodInfo-instance (signature ~ (m Gio.Enums.SocketFamily), MonadIO m, IsSocketAddress a) => O.MethodInfo SocketAddressGetFamilyMethodInfo a signature where-    overloadedMethod _ = socketAddressGetFamily--#endif---- method SocketAddress::get_native_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "g_socket_address_get_native_size" g_socket_address_get_native_size :: -    Ptr SocketAddress ->                    -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    IO Int64--{- |-Gets the size of /@address@/\'s native struct sockaddr.-You can use this to allocate memory to pass to-'GI.Gio.Objects.SocketAddress.socketAddressToNative'.--/Since: 2.22/--}-socketAddressGetNativeSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress' -}-    -> m Int64-    {- ^ __Returns:__ the size of the native struct sockaddr that-    /@address@/ represents -}-socketAddressGetNativeSize address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_socket_address_get_native_size address'-    touchManagedPtr address-    return result--#if ENABLE_OVERLOADING-data SocketAddressGetNativeSizeMethodInfo-instance (signature ~ (m Int64), MonadIO m, IsSocketAddress a) => O.MethodInfo SocketAddressGetNativeSizeMethodInfo a signature where-    overloadedMethod _ = socketAddressGetNativeSize--#endif---- method SocketAddress::to_native--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pointer to a memory location that will contain the native\nstruct sockaddr", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destlen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of @dest. Must be at least as large as\n    g_socket_address_get_native_size()", 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 "g_socket_address_to_native" g_socket_address_to_native :: -    Ptr SocketAddress ->                    -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr () ->                               -- dest : TBasicType TPtr-    Word64 ->                               -- destlen : TBasicType TUInt64-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Converts a 'GI.Gio.Objects.SocketAddress.SocketAddress' to a native struct sockaddr, which can-be passed to low-level functions like @/connect()/@ or @/bind()/@.--If not enough space is available, a 'GI.Gio.Enums.IOErrorEnumNoSpace' error-is returned. If the address type is not known on the system-then a 'GI.Gio.Enums.IOErrorEnumNotSupported' error is returned.--/Since: 2.22/--}-socketAddressToNative ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress' -}-    -> Ptr ()-    {- ^ /@dest@/: a pointer to a memory location that will contain the native-struct sockaddr -}-    -> Word64-    {- ^ /@destlen@/: the size of /@dest@/. Must be at least as large as-    'GI.Gio.Objects.SocketAddress.socketAddressGetNativeSize' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketAddressToNative address dest destlen = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    onException (do-        _ <- propagateGError $ g_socket_address_to_native address' dest destlen-        touchManagedPtr address-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketAddressToNativeMethodInfo-instance (signature ~ (Ptr () -> Word64 -> m ()), MonadIO m, IsSocketAddress a) => O.MethodInfo SocketAddressToNativeMethodInfo a signature where-    overloadedMethod _ = socketAddressToNative--#endif--
− GI/Gio/Objects/SocketAddress.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SocketAddress 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 SocketAddress = SocketAddress (ManagedPtr SocketAddress)-instance GObject SocketAddress where-class (GObject o, O.IsDescendantOf SocketAddress o) => IsSocketAddress o-instance (GObject o, O.IsDescendantOf SocketAddress o) => IsSocketAddress o-instance O.HasParentTypes SocketAddress-#if ENABLE_OVERLOADING-data SocketAddressFamilyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketAddressGetFamilyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketAddressGetNativeSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketAddressToNativeMethodInfo-#endif
− GI/Gio/Objects/SocketAddressEnumerator.hs 
@@ -1,342 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' is an enumerator type for 'GI.Gio.Objects.SocketAddress.SocketAddress'-instances. It is returned by enumeration functions such as-'GI.Gio.Interfaces.SocketConnectable.socketConnectableEnumerate', which returns a 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator'-to list all the @/GSocketAddresses/@ which could be used to connect to that-'GI.Gio.Interfaces.SocketConnectable.SocketConnectable'.--Enumeration is typically a blocking operation, so the asynchronous methods-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNextAsync' and-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNextFinish' should be used where possible.--Each 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' can only be enumerated once. Once-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNext' has returned 'Nothing' (and no error), further-enumeration with that 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' is not possible, and it can-be unreffed.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SocketAddressEnumerator-    ( ---- * Exported types-    SocketAddressEnumerator(..)             ,-    IsSocketAddressEnumerator               ,-    toSocketAddressEnumerator               ,-    noSocketAddressEnumerator               ,--- -- * Methods--- ** next #method:next#--#if ENABLE_OVERLOADING-    SocketAddressEnumeratorNextMethodInfo   ,-#endif-    socketAddressEnumeratorNext             ,----- ** nextAsync #method:nextAsync#--#if ENABLE_OVERLOADING-    SocketAddressEnumeratorNextAsyncMethodInfo,-#endif-    socketAddressEnumeratorNextAsync        ,----- ** nextFinish #method:nextFinish#--#if ENABLE_OVERLOADING-    SocketAddressEnumeratorNextFinishMethodInfo,-#endif-    socketAddressEnumeratorNextFinish       ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress---- | Memory-managed wrapper type.-newtype SocketAddressEnumerator = SocketAddressEnumerator (ManagedPtr SocketAddressEnumerator)-foreign import ccall "g_socket_address_enumerator_get_type"-    c_g_socket_address_enumerator_get_type :: IO GType--instance GObject SocketAddressEnumerator where-    gobjectType = c_g_socket_address_enumerator_get_type-    ---- | Type class for types which can be safely cast to `SocketAddressEnumerator`, for instance with `toSocketAddressEnumerator`.-class (GObject o, O.IsDescendantOf SocketAddressEnumerator o) => IsSocketAddressEnumerator o-instance (GObject o, O.IsDescendantOf SocketAddressEnumerator o) => IsSocketAddressEnumerator o--instance O.HasParentTypes SocketAddressEnumerator-type instance O.ParentTypes SocketAddressEnumerator = '[GObject.Object.Object]---- | Cast to `SocketAddressEnumerator`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocketAddressEnumerator :: (MonadIO m, IsSocketAddressEnumerator o) => o -> m SocketAddressEnumerator-toSocketAddressEnumerator = liftIO . unsafeCastTo SocketAddressEnumerator---- | A convenience alias for `Nothing` :: `Maybe` `SocketAddressEnumerator`.-noSocketAddressEnumerator :: Maybe SocketAddressEnumerator-noSocketAddressEnumerator = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketAddressEnumeratorMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketAddressEnumeratorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketAddressEnumeratorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketAddressEnumeratorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketAddressEnumeratorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketAddressEnumeratorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketAddressEnumeratorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketAddressEnumeratorMethod "next" o = SocketAddressEnumeratorNextMethodInfo-    ResolveSocketAddressEnumeratorMethod "nextAsync" o = SocketAddressEnumeratorNextAsyncMethodInfo-    ResolveSocketAddressEnumeratorMethod "nextFinish" o = SocketAddressEnumeratorNextFinishMethodInfo-    ResolveSocketAddressEnumeratorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketAddressEnumeratorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketAddressEnumeratorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketAddressEnumeratorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketAddressEnumeratorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketAddressEnumeratorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketAddressEnumeratorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketAddressEnumeratorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketAddressEnumeratorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketAddressEnumeratorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketAddressEnumeratorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketAddressEnumeratorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketAddressEnumeratorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketAddressEnumeratorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketAddressEnumeratorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketAddressEnumeratorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketAddressEnumeratorMethod t SocketAddressEnumerator, O.MethodInfo info SocketAddressEnumerator p) => OL.IsLabel t (SocketAddressEnumerator -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList SocketAddressEnumerator-type instance O.AttributeList SocketAddressEnumerator = SocketAddressEnumeratorAttributeList-type SocketAddressEnumeratorAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SocketAddressEnumerator = SocketAddressEnumeratorSignalList-type SocketAddressEnumeratorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SocketAddressEnumerator::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "SocketAddressEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddressEnumerator", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_address_enumerator_next" g_socket_address_enumerator_next :: -    Ptr SocketAddressEnumerator ->          -- enumerator : TInterface (Name {namespace = "Gio", name = "SocketAddressEnumerator"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Retrieves the next 'GI.Gio.Objects.SocketAddress.SocketAddress' from /@enumerator@/. Note that this-may block for some amount of time. (Eg, a 'GI.Gio.Objects.NetworkAddress.NetworkAddress' may need-to do a DNS lookup before it can return an address.) Use-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNextAsync' if you need to avoid-blocking.--If /@enumerator@/ is expected to yield addresses, but for some reason-is unable to (eg, because of a DNS error), then the first call to-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNext' will return an appropriate error-in */@error@/. However, if the first call to-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNext' succeeds, then any further-internal errors (other than /@cancellable@/ being triggered) will be-ignored.--}-socketAddressEnumeratorNext ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketAddressEnumerator a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Gio.SocketAddress.SocketAddress-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketAddress.SocketAddress' (owned by the caller), or 'Nothing' on-    error (in which case */@error@/ will be set) or if there are no-    more addresses. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketAddressEnumeratorNext enumerator cancellable = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_address_enumerator_next enumerator' maybeCancellable-        checkUnexpectedReturnNULL "socketAddressEnumeratorNext" result-        result' <- (wrapObject Gio.SocketAddress.SocketAddress) result-        touchManagedPtr enumerator-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketAddressEnumeratorNextMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.SocketAddress.SocketAddress), MonadIO m, IsSocketAddressEnumerator a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketAddressEnumeratorNextMethodInfo a signature where-    overloadedMethod _ = socketAddressEnumeratorNext--#endif---- method SocketAddressEnumerator::next_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "SocketAddressEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddressEnumerator", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the request\n    is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_address_enumerator_next_async" g_socket_address_enumerator_next_async :: -    Ptr SocketAddressEnumerator ->          -- enumerator : TInterface (Name {namespace = "Gio", name = "SocketAddressEnumerator"})-    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 retrieves the next 'GI.Gio.Objects.SocketAddress.SocketAddress' from /@enumerator@/-and then calls /@callback@/, which must call-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNextFinish' to get the result.--It is an error to call this multiple times before the previous callback has finished.--}-socketAddressEnumeratorNextAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketAddressEnumerator a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request-    is satisfied -}-    -> m ()-socketAddressEnumeratorNextAsync enumerator cancellable callback = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    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-    g_socket_address_enumerator_next_async enumerator' maybeCancellable maybeCallback userData-    touchManagedPtr enumerator-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SocketAddressEnumeratorNextAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketAddressEnumerator a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketAddressEnumeratorNextAsyncMethodInfo a signature where-    overloadedMethod _ = socketAddressEnumeratorNextAsync--#endif---- method SocketAddressEnumerator::next_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "enumerator", argType = TInterface (Name {namespace = "Gio", name = "SocketAddressEnumerator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddressEnumerator", 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 "a #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_address_enumerator_next_finish" g_socket_address_enumerator_next_finish :: -    Ptr SocketAddressEnumerator ->          -- enumerator : TInterface (Name {namespace = "Gio", name = "SocketAddressEnumerator"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Retrieves the result of a completed call to-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNextAsync'. See-'GI.Gio.Objects.SocketAddressEnumerator.socketAddressEnumeratorNext' for more information about-error handling.--}-socketAddressEnumeratorNextFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketAddressEnumerator a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@enumerator@/: a 'GI.Gio.Objects.SocketAddressEnumerator.SocketAddressEnumerator' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.SocketAddress.SocketAddress-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketAddress.SocketAddress' (owned by the caller), or 'Nothing' on-    error (in which case */@error@/ will be set) or if there are no-    more addresses. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketAddressEnumeratorNextFinish enumerator result_ = liftIO $ do-    enumerator' <- unsafeManagedPtrCastPtr enumerator-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_address_enumerator_next_finish enumerator' result_'-        checkUnexpectedReturnNULL "socketAddressEnumeratorNextFinish" result-        result' <- (wrapObject Gio.SocketAddress.SocketAddress) result-        touchManagedPtr enumerator-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketAddressEnumeratorNextFinishMethodInfo-instance (signature ~ (b -> m Gio.SocketAddress.SocketAddress), MonadIO m, IsSocketAddressEnumerator a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketAddressEnumeratorNextFinishMethodInfo a signature where-    overloadedMethod _ = socketAddressEnumeratorNextFinish--#endif--
− GI/Gio/Objects/SocketAddressEnumerator.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SocketAddressEnumerator 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 SocketAddressEnumerator = SocketAddressEnumerator (ManagedPtr SocketAddressEnumerator)-instance GObject SocketAddressEnumerator where-class (GObject o, O.IsDescendantOf SocketAddressEnumerator o) => IsSocketAddressEnumerator o-instance (GObject o, O.IsDescendantOf SocketAddressEnumerator o) => IsSocketAddressEnumerator o-instance O.HasParentTypes SocketAddressEnumerator-#if ENABLE_OVERLOADING-data SocketAddressEnumeratorNextMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketAddressEnumeratorNextAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketAddressEnumeratorNextFinishMethodInfo-#endif
− GI/Gio/Objects/SocketClient.hs 
@@ -1,2827 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.SocketClient.SocketClient' is a lightweight high-level utility class for connecting to-a network host using a connection oriented socket type.--You create a 'GI.Gio.Objects.SocketClient.SocketClient' object, set any options you want, and then-call a sync or async connect operation, which returns a 'GI.Gio.Objects.SocketConnection.SocketConnection'-subclass on success.--The type of the 'GI.Gio.Objects.SocketConnection.SocketConnection' object returned depends on the type of-the underlying socket that is in use. For instance, for a TCP\/IP connection-it will be a 'GI.Gio.Objects.TcpConnection.TcpConnection'.--As 'GI.Gio.Objects.SocketClient.SocketClient' is a lightweight object, you don\'t need to cache it. You-can just create a new one any time you need one.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SocketClient-    ( ---- * Exported types-    SocketClient(..)                        ,-    IsSocketClient                          ,-    toSocketClient                          ,-    noSocketClient                          ,--- -- * Methods--- ** addApplicationProxy #method:addApplicationProxy#--#if ENABLE_OVERLOADING-    SocketClientAddApplicationProxyMethodInfo,-#endif-    socketClientAddApplicationProxy         ,----- ** connect #method:connect#--#if ENABLE_OVERLOADING-    SocketClientConnectMethodInfo           ,-#endif-    socketClientConnect                     ,----- ** connectAsync #method:connectAsync#--#if ENABLE_OVERLOADING-    SocketClientConnectAsyncMethodInfo      ,-#endif-    socketClientConnectAsync                ,----- ** connectFinish #method:connectFinish#--#if ENABLE_OVERLOADING-    SocketClientConnectFinishMethodInfo     ,-#endif-    socketClientConnectFinish               ,----- ** connectToHost #method:connectToHost#--#if ENABLE_OVERLOADING-    SocketClientConnectToHostMethodInfo     ,-#endif-    socketClientConnectToHost               ,----- ** connectToHostAsync #method:connectToHostAsync#--#if ENABLE_OVERLOADING-    SocketClientConnectToHostAsyncMethodInfo,-#endif-    socketClientConnectToHostAsync          ,----- ** connectToHostFinish #method:connectToHostFinish#--#if ENABLE_OVERLOADING-    SocketClientConnectToHostFinishMethodInfo,-#endif-    socketClientConnectToHostFinish         ,----- ** connectToService #method:connectToService#--#if ENABLE_OVERLOADING-    SocketClientConnectToServiceMethodInfo  ,-#endif-    socketClientConnectToService            ,----- ** connectToServiceAsync #method:connectToServiceAsync#--#if ENABLE_OVERLOADING-    SocketClientConnectToServiceAsyncMethodInfo,-#endif-    socketClientConnectToServiceAsync       ,----- ** connectToServiceFinish #method:connectToServiceFinish#--#if ENABLE_OVERLOADING-    SocketClientConnectToServiceFinishMethodInfo,-#endif-    socketClientConnectToServiceFinish      ,----- ** connectToUri #method:connectToUri#--#if ENABLE_OVERLOADING-    SocketClientConnectToUriMethodInfo      ,-#endif-    socketClientConnectToUri                ,----- ** connectToUriAsync #method:connectToUriAsync#--#if ENABLE_OVERLOADING-    SocketClientConnectToUriAsyncMethodInfo ,-#endif-    socketClientConnectToUriAsync           ,----- ** connectToUriFinish #method:connectToUriFinish#--#if ENABLE_OVERLOADING-    SocketClientConnectToUriFinishMethodInfo,-#endif-    socketClientConnectToUriFinish          ,----- ** getEnableProxy #method:getEnableProxy#--#if ENABLE_OVERLOADING-    SocketClientGetEnableProxyMethodInfo    ,-#endif-    socketClientGetEnableProxy              ,----- ** getFamily #method:getFamily#--#if ENABLE_OVERLOADING-    SocketClientGetFamilyMethodInfo         ,-#endif-    socketClientGetFamily                   ,----- ** getLocalAddress #method:getLocalAddress#--#if ENABLE_OVERLOADING-    SocketClientGetLocalAddressMethodInfo   ,-#endif-    socketClientGetLocalAddress             ,----- ** getProtocol #method:getProtocol#--#if ENABLE_OVERLOADING-    SocketClientGetProtocolMethodInfo       ,-#endif-    socketClientGetProtocol                 ,----- ** getProxyResolver #method:getProxyResolver#--#if ENABLE_OVERLOADING-    SocketClientGetProxyResolverMethodInfo  ,-#endif-    socketClientGetProxyResolver            ,----- ** getSocketType #method:getSocketType#--#if ENABLE_OVERLOADING-    SocketClientGetSocketTypeMethodInfo     ,-#endif-    socketClientGetSocketType               ,----- ** getTimeout #method:getTimeout#--#if ENABLE_OVERLOADING-    SocketClientGetTimeoutMethodInfo        ,-#endif-    socketClientGetTimeout                  ,----- ** getTls #method:getTls#--#if ENABLE_OVERLOADING-    SocketClientGetTlsMethodInfo            ,-#endif-    socketClientGetTls                      ,----- ** getTlsValidationFlags #method:getTlsValidationFlags#--#if ENABLE_OVERLOADING-    SocketClientGetTlsValidationFlagsMethodInfo,-#endif-    socketClientGetTlsValidationFlags       ,----- ** new #method:new#--    socketClientNew                         ,----- ** setEnableProxy #method:setEnableProxy#--#if ENABLE_OVERLOADING-    SocketClientSetEnableProxyMethodInfo    ,-#endif-    socketClientSetEnableProxy              ,----- ** setFamily #method:setFamily#--#if ENABLE_OVERLOADING-    SocketClientSetFamilyMethodInfo         ,-#endif-    socketClientSetFamily                   ,----- ** setLocalAddress #method:setLocalAddress#--#if ENABLE_OVERLOADING-    SocketClientSetLocalAddressMethodInfo   ,-#endif-    socketClientSetLocalAddress             ,----- ** setProtocol #method:setProtocol#--#if ENABLE_OVERLOADING-    SocketClientSetProtocolMethodInfo       ,-#endif-    socketClientSetProtocol                 ,----- ** setProxyResolver #method:setProxyResolver#--#if ENABLE_OVERLOADING-    SocketClientSetProxyResolverMethodInfo  ,-#endif-    socketClientSetProxyResolver            ,----- ** setSocketType #method:setSocketType#--#if ENABLE_OVERLOADING-    SocketClientSetSocketTypeMethodInfo     ,-#endif-    socketClientSetSocketType               ,----- ** setTimeout #method:setTimeout#--#if ENABLE_OVERLOADING-    SocketClientSetTimeoutMethodInfo        ,-#endif-    socketClientSetTimeout                  ,----- ** setTls #method:setTls#--#if ENABLE_OVERLOADING-    SocketClientSetTlsMethodInfo            ,-#endif-    socketClientSetTls                      ,----- ** setTlsValidationFlags #method:setTlsValidationFlags#--#if ENABLE_OVERLOADING-    SocketClientSetTlsValidationFlagsMethodInfo,-#endif-    socketClientSetTlsValidationFlags       ,----- -- * Properties--- ** enableProxy #attr:enableProxy#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketClientEnableProxyPropertyInfo     ,-#endif-    constructSocketClientEnableProxy        ,-    getSocketClientEnableProxy              ,-    setSocketClientEnableProxy              ,-#if ENABLE_OVERLOADING-    socketClientEnableProxy                 ,-#endif----- ** family #attr:family#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketClientFamilyPropertyInfo          ,-#endif-    constructSocketClientFamily             ,-    getSocketClientFamily                   ,-    setSocketClientFamily                   ,-#if ENABLE_OVERLOADING-    socketClientFamily                      ,-#endif----- ** localAddress #attr:localAddress#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketClientLocalAddressPropertyInfo    ,-#endif-    clearSocketClientLocalAddress           ,-    constructSocketClientLocalAddress       ,-    getSocketClientLocalAddress             ,-    setSocketClientLocalAddress             ,-#if ENABLE_OVERLOADING-    socketClientLocalAddress                ,-#endif----- ** protocol #attr:protocol#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketClientProtocolPropertyInfo        ,-#endif-    constructSocketClientProtocol           ,-    getSocketClientProtocol                 ,-    setSocketClientProtocol                 ,-#if ENABLE_OVERLOADING-    socketClientProtocol                    ,-#endif----- ** proxyResolver #attr:proxyResolver#-{- | The proxy resolver to use--/Since: 2.36/--}-#if ENABLE_OVERLOADING-    SocketClientProxyResolverPropertyInfo   ,-#endif-    clearSocketClientProxyResolver          ,-    constructSocketClientProxyResolver      ,-    getSocketClientProxyResolver            ,-    setSocketClientProxyResolver            ,-#if ENABLE_OVERLOADING-    socketClientProxyResolver               ,-#endif----- ** timeout #attr:timeout#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketClientTimeoutPropertyInfo         ,-#endif-    constructSocketClientTimeout            ,-    getSocketClientTimeout                  ,-    setSocketClientTimeout                  ,-#if ENABLE_OVERLOADING-    socketClientTimeout                     ,-#endif----- ** tls #attr:tls#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketClientTlsPropertyInfo             ,-#endif-    constructSocketClientTls                ,-    getSocketClientTls                      ,-    setSocketClientTls                      ,-#if ENABLE_OVERLOADING-    socketClientTls                         ,-#endif----- ** tlsValidationFlags #attr:tlsValidationFlags#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketClientTlsValidationFlagsPropertyInfo,-#endif-    constructSocketClientTlsValidationFlags ,-    getSocketClientTlsValidationFlags       ,-    setSocketClientTlsValidationFlags       ,-#if ENABLE_OVERLOADING-    socketClientTlsValidationFlags          ,-#endif----- ** type #attr:type#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketClientTypePropertyInfo            ,-#endif-    constructSocketClientType               ,-    getSocketClientType                     ,-    setSocketClientType                     ,-#if ENABLE_OVERLOADING-    socketClientType                        ,-#endif----- -- * Signals--- ** event #signal:event#--    C_SocketClientEventCallback             ,-    SocketClientEventCallback               ,-#if ENABLE_OVERLOADING-    SocketClientEventSignalInfo             ,-#endif-    afterSocketClientEvent                  ,-    genClosure_SocketClientEvent            ,-    mk_SocketClientEventCallback            ,-    noSocketClientEventCallback             ,-    onSocketClientEvent                     ,-    wrap_SocketClientEventCallback          ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.ProxyResolver as Gio.ProxyResolver-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection---- | Memory-managed wrapper type.-newtype SocketClient = SocketClient (ManagedPtr SocketClient)-foreign import ccall "g_socket_client_get_type"-    c_g_socket_client_get_type :: IO GType--instance GObject SocketClient where-    gobjectType = c_g_socket_client_get_type-    ---- | Type class for types which can be safely cast to `SocketClient`, for instance with `toSocketClient`.-class (GObject o, O.IsDescendantOf SocketClient o) => IsSocketClient o-instance (GObject o, O.IsDescendantOf SocketClient o) => IsSocketClient o--instance O.HasParentTypes SocketClient-type instance O.ParentTypes SocketClient = '[GObject.Object.Object]---- | Cast to `SocketClient`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocketClient :: (MonadIO m, IsSocketClient o) => o -> m SocketClient-toSocketClient = liftIO . unsafeCastTo SocketClient---- | A convenience alias for `Nothing` :: `Maybe` `SocketClient`.-noSocketClient :: Maybe SocketClient-noSocketClient = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketClientMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketClientMethod "addApplicationProxy" o = SocketClientAddApplicationProxyMethodInfo-    ResolveSocketClientMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketClientMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketClientMethod "connect" o = SocketClientConnectMethodInfo-    ResolveSocketClientMethod "connectAsync" o = SocketClientConnectAsyncMethodInfo-    ResolveSocketClientMethod "connectFinish" o = SocketClientConnectFinishMethodInfo-    ResolveSocketClientMethod "connectToHost" o = SocketClientConnectToHostMethodInfo-    ResolveSocketClientMethod "connectToHostAsync" o = SocketClientConnectToHostAsyncMethodInfo-    ResolveSocketClientMethod "connectToHostFinish" o = SocketClientConnectToHostFinishMethodInfo-    ResolveSocketClientMethod "connectToService" o = SocketClientConnectToServiceMethodInfo-    ResolveSocketClientMethod "connectToServiceAsync" o = SocketClientConnectToServiceAsyncMethodInfo-    ResolveSocketClientMethod "connectToServiceFinish" o = SocketClientConnectToServiceFinishMethodInfo-    ResolveSocketClientMethod "connectToUri" o = SocketClientConnectToUriMethodInfo-    ResolveSocketClientMethod "connectToUriAsync" o = SocketClientConnectToUriAsyncMethodInfo-    ResolveSocketClientMethod "connectToUriFinish" o = SocketClientConnectToUriFinishMethodInfo-    ResolveSocketClientMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketClientMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketClientMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketClientMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketClientMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketClientMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketClientMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketClientMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketClientMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketClientMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketClientMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketClientMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketClientMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketClientMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketClientMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketClientMethod "getEnableProxy" o = SocketClientGetEnableProxyMethodInfo-    ResolveSocketClientMethod "getFamily" o = SocketClientGetFamilyMethodInfo-    ResolveSocketClientMethod "getLocalAddress" o = SocketClientGetLocalAddressMethodInfo-    ResolveSocketClientMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketClientMethod "getProtocol" o = SocketClientGetProtocolMethodInfo-    ResolveSocketClientMethod "getProxyResolver" o = SocketClientGetProxyResolverMethodInfo-    ResolveSocketClientMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketClientMethod "getSocketType" o = SocketClientGetSocketTypeMethodInfo-    ResolveSocketClientMethod "getTimeout" o = SocketClientGetTimeoutMethodInfo-    ResolveSocketClientMethod "getTls" o = SocketClientGetTlsMethodInfo-    ResolveSocketClientMethod "getTlsValidationFlags" o = SocketClientGetTlsValidationFlagsMethodInfo-    ResolveSocketClientMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketClientMethod "setEnableProxy" o = SocketClientSetEnableProxyMethodInfo-    ResolveSocketClientMethod "setFamily" o = SocketClientSetFamilyMethodInfo-    ResolveSocketClientMethod "setLocalAddress" o = SocketClientSetLocalAddressMethodInfo-    ResolveSocketClientMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketClientMethod "setProtocol" o = SocketClientSetProtocolMethodInfo-    ResolveSocketClientMethod "setProxyResolver" o = SocketClientSetProxyResolverMethodInfo-    ResolveSocketClientMethod "setSocketType" o = SocketClientSetSocketTypeMethodInfo-    ResolveSocketClientMethod "setTimeout" o = SocketClientSetTimeoutMethodInfo-    ResolveSocketClientMethod "setTls" o = SocketClientSetTlsMethodInfo-    ResolveSocketClientMethod "setTlsValidationFlags" o = SocketClientSetTlsValidationFlagsMethodInfo-    ResolveSocketClientMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketClientMethod t SocketClient, O.MethodInfo info SocketClient p) => OL.IsLabel t (SocketClient -> 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 SocketClient::event-{- |-Emitted when /@client@/\'s activity on /@connectable@/ changes state.-Among other things, this can be used to provide progress-information about a network connection in the UI. The meanings of-the different /@event@/ values are as follows:--* 'GI.Gio.Enums.SocketClientEventResolving': /@client@/ is about to look up /@connectable@/-in DNS. /@connection@/ will be 'Nothing'.-* 'GI.Gio.Enums.SocketClientEventResolved':  /@client@/ has successfully resolved-/@connectable@/ in DNS. /@connection@/ will be 'Nothing'.-* 'GI.Gio.Enums.SocketClientEventConnecting': /@client@/ is about to make a connection-to a remote host; either a proxy server or the destination server-itself. /@connection@/ is the 'GI.Gio.Objects.SocketConnection.SocketConnection', which is not yet-connected.  Since GLib 2.40, you can access the remote-address via 'GI.Gio.Objects.SocketConnection.socketConnectionGetRemoteAddress'.-* 'GI.Gio.Enums.SocketClientEventConnected': /@client@/ has successfully connected-to a remote host. /@connection@/ is the connected 'GI.Gio.Objects.SocketConnection.SocketConnection'.-* 'GI.Gio.Enums.SocketClientEventProxyNegotiating': /@client@/ is about to negotiate-with a proxy to get it to connect to /@connectable@/. /@connection@/ is-the 'GI.Gio.Objects.SocketConnection.SocketConnection' to the proxy server.-* 'GI.Gio.Enums.SocketClientEventProxyNegotiated': /@client@/ has negotiated a-connection to /@connectable@/ through a proxy server. /@connection@/ is-the stream returned from 'GI.Gio.Interfaces.Proxy.proxyConnect', which may or may not-be a 'GI.Gio.Objects.SocketConnection.SocketConnection'.-* 'GI.Gio.Enums.SocketClientEventTlsHandshaking': /@client@/ is about to begin a TLS-handshake. /@connection@/ is a 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection'.-* 'GI.Gio.Enums.SocketClientEventTlsHandshaked': /@client@/ has successfully completed-the TLS handshake. /@connection@/ is a 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection'.-* 'GI.Gio.Enums.SocketClientEventComplete': /@client@/ has either successfully connected-to /@connectable@/ (in which case /@connection@/ is the 'GI.Gio.Objects.SocketConnection.SocketConnection'-that it will be returning to the caller) or has failed (in which-case /@connection@/ is 'Nothing' and the client is about to return an error).---Each event except 'GI.Gio.Enums.SocketClientEventComplete' may be emitted-multiple times (or not at all) for a given connectable (in-particular, if /@client@/ ends up attempting to connect to more than-one address). However, if /@client@/ emits the 'GI.Gio.Objects.SocketClient.SocketClient'::@/event/@-signal at all for a given connectable, that it will always emit-it with 'GI.Gio.Enums.SocketClientEventComplete' when it is done.--Note that there may be additional 'GI.Gio.Enums.SocketClientEvent' values in-the future; unrecognized /@event@/ values should be ignored.--/Since: 2.32/--}-type SocketClientEventCallback =-    Gio.Enums.SocketClientEvent-    {- ^ /@event@/: the event that is occurring -}-    -> Gio.SocketConnectable.SocketConnectable-    {- ^ /@connectable@/: the 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' that /@event@/ is occurring on -}-    -> Maybe Gio.IOStream.IOStream-    {- ^ /@connection@/: the current representation of the connection -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketClientEventCallback`@.-noSocketClientEventCallback :: Maybe SocketClientEventCallback-noSocketClientEventCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SocketClientEventCallback =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Gio.SocketConnectable.SocketConnectable ->-    Ptr Gio.IOStream.IOStream ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SocketClientEventCallback`.-foreign import ccall "wrapper"-    mk_SocketClientEventCallback :: C_SocketClientEventCallback -> IO (FunPtr C_SocketClientEventCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SocketClientEvent :: MonadIO m => SocketClientEventCallback -> m (GClosure C_SocketClientEventCallback)-genClosure_SocketClientEvent cb = liftIO $ do-    let cb' = wrap_SocketClientEventCallback cb-    mk_SocketClientEventCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SocketClientEventCallback` into a `C_SocketClientEventCallback`.-wrap_SocketClientEventCallback ::-    SocketClientEventCallback ->-    C_SocketClientEventCallback-wrap_SocketClientEventCallback _cb _ event connectable connection _ = do-    let event' = (toEnum . fromIntegral) event-    connectable' <- (newObject Gio.SocketConnectable.SocketConnectable) connectable-    maybeConnection <--        if connection == nullPtr-        then return Nothing-        else do-            connection' <- (newObject Gio.IOStream.IOStream) connection-            return $ Just connection'-    _cb  event' connectable' maybeConnection---{- |-Connect a signal handler for the “@event@” 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' socketClient #event callback-@--}-onSocketClientEvent :: (IsSocketClient a, MonadIO m) => a -> SocketClientEventCallback -> m SignalHandlerId-onSocketClientEvent obj cb = liftIO $ do-    let cb' = wrap_SocketClientEventCallback cb-    cb'' <- mk_SocketClientEventCallback cb'-    connectSignalFunPtr obj "event" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@event@” 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' socketClient #event callback-@--}-afterSocketClientEvent :: (IsSocketClient a, MonadIO m) => a -> SocketClientEventCallback -> m SignalHandlerId-afterSocketClientEvent obj cb = liftIO $ do-    let cb' = wrap_SocketClientEventCallback cb-    cb'' <- mk_SocketClientEventCallback cb'-    connectSignalFunPtr obj "event" cb'' SignalConnectAfter----- VVV Prop "enable-proxy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@enable-proxy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #enableProxy-@--}-getSocketClientEnableProxy :: (MonadIO m, IsSocketClient o) => o -> m Bool-getSocketClientEnableProxy obj = liftIO $ B.Properties.getObjectPropertyBool obj "enable-proxy"--{- |-Set the value of the “@enable-proxy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #enableProxy 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientEnableProxy :: (MonadIO m, IsSocketClient o) => o -> Bool -> m ()-setSocketClientEnableProxy obj val = liftIO $ B.Properties.setObjectPropertyBool obj "enable-proxy" val--{- |-Construct a `GValueConstruct` with valid value for the “@enable-proxy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientEnableProxy :: (IsSocketClient o) => Bool -> IO (GValueConstruct o)-constructSocketClientEnableProxy val = B.Properties.constructObjectPropertyBool "enable-proxy" val--#if ENABLE_OVERLOADING-data SocketClientEnableProxyPropertyInfo-instance AttrInfo SocketClientEnableProxyPropertyInfo where-    type AttrAllowedOps SocketClientEnableProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientEnableProxyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketClientEnableProxyPropertyInfo = IsSocketClient-    type AttrGetType SocketClientEnableProxyPropertyInfo = Bool-    type AttrLabel SocketClientEnableProxyPropertyInfo = "enable-proxy"-    type AttrOrigin SocketClientEnableProxyPropertyInfo = SocketClient-    attrGet _ = getSocketClientEnableProxy-    attrSet _ = setSocketClientEnableProxy-    attrConstruct _ = constructSocketClientEnableProxy-    attrClear _ = undefined-#endif---- VVV Prop "family"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketFamily"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@family@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #family-@--}-getSocketClientFamily :: (MonadIO m, IsSocketClient o) => o -> m Gio.Enums.SocketFamily-getSocketClientFamily obj = liftIO $ B.Properties.getObjectPropertyEnum obj "family"--{- |-Set the value of the “@family@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #family 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientFamily :: (MonadIO m, IsSocketClient o) => o -> Gio.Enums.SocketFamily -> m ()-setSocketClientFamily obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "family" val--{- |-Construct a `GValueConstruct` with valid value for the “@family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientFamily :: (IsSocketClient o) => Gio.Enums.SocketFamily -> IO (GValueConstruct o)-constructSocketClientFamily val = B.Properties.constructObjectPropertyEnum "family" val--#if ENABLE_OVERLOADING-data SocketClientFamilyPropertyInfo-instance AttrInfo SocketClientFamilyPropertyInfo where-    type AttrAllowedOps SocketClientFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientFamilyPropertyInfo = (~) Gio.Enums.SocketFamily-    type AttrBaseTypeConstraint SocketClientFamilyPropertyInfo = IsSocketClient-    type AttrGetType SocketClientFamilyPropertyInfo = Gio.Enums.SocketFamily-    type AttrLabel SocketClientFamilyPropertyInfo = "family"-    type AttrOrigin SocketClientFamilyPropertyInfo = SocketClient-    attrGet _ = getSocketClientFamily-    attrSet _ = setSocketClientFamily-    attrConstruct _ = constructSocketClientFamily-    attrClear _ = undefined-#endif---- VVV Prop "local-address"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketAddress"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just True)--{- |-Get the value of the “@local-address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #localAddress-@--}-getSocketClientLocalAddress :: (MonadIO m, IsSocketClient o) => o -> m Gio.SocketAddress.SocketAddress-getSocketClientLocalAddress obj = liftIO $ checkUnexpectedNothing "getSocketClientLocalAddress" $ B.Properties.getObjectPropertyObject obj "local-address" Gio.SocketAddress.SocketAddress--{- |-Set the value of the “@local-address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #localAddress 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientLocalAddress :: (MonadIO m, IsSocketClient o, Gio.SocketAddress.IsSocketAddress a) => o -> a -> m ()-setSocketClientLocalAddress obj val = liftIO $ B.Properties.setObjectPropertyObject obj "local-address" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@local-address@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientLocalAddress :: (IsSocketClient o, Gio.SocketAddress.IsSocketAddress a) => a -> IO (GValueConstruct o)-constructSocketClientLocalAddress val = B.Properties.constructObjectPropertyObject "local-address" (Just val)--{- |-Set the value of the “@local-address@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #localAddress-@--}-clearSocketClientLocalAddress :: (MonadIO m, IsSocketClient o) => o -> m ()-clearSocketClientLocalAddress obj = liftIO $ B.Properties.setObjectPropertyObject obj "local-address" (Nothing :: Maybe Gio.SocketAddress.SocketAddress)--#if ENABLE_OVERLOADING-data SocketClientLocalAddressPropertyInfo-instance AttrInfo SocketClientLocalAddressPropertyInfo where-    type AttrAllowedOps SocketClientLocalAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketClientLocalAddressPropertyInfo = Gio.SocketAddress.IsSocketAddress-    type AttrBaseTypeConstraint SocketClientLocalAddressPropertyInfo = IsSocketClient-    type AttrGetType SocketClientLocalAddressPropertyInfo = Gio.SocketAddress.SocketAddress-    type AttrLabel SocketClientLocalAddressPropertyInfo = "local-address"-    type AttrOrigin SocketClientLocalAddressPropertyInfo = SocketClient-    attrGet _ = getSocketClientLocalAddress-    attrSet _ = setSocketClientLocalAddress-    attrConstruct _ = constructSocketClientLocalAddress-    attrClear _ = clearSocketClientLocalAddress-#endif---- VVV Prop "protocol"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketProtocol"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #protocol-@--}-getSocketClientProtocol :: (MonadIO m, IsSocketClient o) => o -> m Gio.Enums.SocketProtocol-getSocketClientProtocol obj = liftIO $ B.Properties.getObjectPropertyEnum obj "protocol"--{- |-Set the value of the “@protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #protocol 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientProtocol :: (MonadIO m, IsSocketClient o) => o -> Gio.Enums.SocketProtocol -> m ()-setSocketClientProtocol obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "protocol" val--{- |-Construct a `GValueConstruct` with valid value for the “@protocol@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientProtocol :: (IsSocketClient o) => Gio.Enums.SocketProtocol -> IO (GValueConstruct o)-constructSocketClientProtocol val = B.Properties.constructObjectPropertyEnum "protocol" val--#if ENABLE_OVERLOADING-data SocketClientProtocolPropertyInfo-instance AttrInfo SocketClientProtocolPropertyInfo where-    type AttrAllowedOps SocketClientProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientProtocolPropertyInfo = (~) Gio.Enums.SocketProtocol-    type AttrBaseTypeConstraint SocketClientProtocolPropertyInfo = IsSocketClient-    type AttrGetType SocketClientProtocolPropertyInfo = Gio.Enums.SocketProtocol-    type AttrLabel SocketClientProtocolPropertyInfo = "protocol"-    type AttrOrigin SocketClientProtocolPropertyInfo = SocketClient-    attrGet _ = getSocketClientProtocol-    attrSet _ = setSocketClientProtocol-    attrConstruct _ = constructSocketClientProtocol-    attrClear _ = undefined-#endif---- VVV Prop "proxy-resolver"-   -- Type: TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just True)--{- |-Get the value of the “@proxy-resolver@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #proxyResolver-@--}-getSocketClientProxyResolver :: (MonadIO m, IsSocketClient o) => o -> m Gio.ProxyResolver.ProxyResolver-getSocketClientProxyResolver obj = liftIO $ checkUnexpectedNothing "getSocketClientProxyResolver" $ B.Properties.getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver.ProxyResolver--{- |-Set the value of the “@proxy-resolver@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #proxyResolver 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientProxyResolver :: (MonadIO m, IsSocketClient o, Gio.ProxyResolver.IsProxyResolver a) => o -> a -> m ()-setSocketClientProxyResolver obj val = liftIO $ B.Properties.setObjectPropertyObject obj "proxy-resolver" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@proxy-resolver@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientProxyResolver :: (IsSocketClient o, Gio.ProxyResolver.IsProxyResolver a) => a -> IO (GValueConstruct o)-constructSocketClientProxyResolver val = B.Properties.constructObjectPropertyObject "proxy-resolver" (Just val)--{- |-Set the value of the “@proxy-resolver@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #proxyResolver-@--}-clearSocketClientProxyResolver :: (MonadIO m, IsSocketClient o) => o -> m ()-clearSocketClientProxyResolver obj = liftIO $ B.Properties.setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe Gio.ProxyResolver.ProxyResolver)--#if ENABLE_OVERLOADING-data SocketClientProxyResolverPropertyInfo-instance AttrInfo SocketClientProxyResolverPropertyInfo where-    type AttrAllowedOps SocketClientProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketClientProxyResolverPropertyInfo = Gio.ProxyResolver.IsProxyResolver-    type AttrBaseTypeConstraint SocketClientProxyResolverPropertyInfo = IsSocketClient-    type AttrGetType SocketClientProxyResolverPropertyInfo = Gio.ProxyResolver.ProxyResolver-    type AttrLabel SocketClientProxyResolverPropertyInfo = "proxy-resolver"-    type AttrOrigin SocketClientProxyResolverPropertyInfo = SocketClient-    attrGet _ = getSocketClientProxyResolver-    attrSet _ = setSocketClientProxyResolver-    attrConstruct _ = constructSocketClientProxyResolver-    attrClear _ = clearSocketClientProxyResolver-#endif---- VVV Prop "timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #timeout-@--}-getSocketClientTimeout :: (MonadIO m, IsSocketClient o) => o -> m Word32-getSocketClientTimeout obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "timeout"--{- |-Set the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #timeout 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientTimeout :: (MonadIO m, IsSocketClient o) => o -> Word32 -> m ()-setSocketClientTimeout obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "timeout" val--{- |-Construct a `GValueConstruct` with valid value for the “@timeout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientTimeout :: (IsSocketClient o) => Word32 -> IO (GValueConstruct o)-constructSocketClientTimeout val = B.Properties.constructObjectPropertyUInt32 "timeout" val--#if ENABLE_OVERLOADING-data SocketClientTimeoutPropertyInfo-instance AttrInfo SocketClientTimeoutPropertyInfo where-    type AttrAllowedOps SocketClientTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketClientTimeoutPropertyInfo = IsSocketClient-    type AttrGetType SocketClientTimeoutPropertyInfo = Word32-    type AttrLabel SocketClientTimeoutPropertyInfo = "timeout"-    type AttrOrigin SocketClientTimeoutPropertyInfo = SocketClient-    attrGet _ = getSocketClientTimeout-    attrSet _ = setSocketClientTimeout-    attrConstruct _ = constructSocketClientTimeout-    attrClear _ = undefined-#endif---- VVV Prop "tls"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@tls@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #tls-@--}-getSocketClientTls :: (MonadIO m, IsSocketClient o) => o -> m Bool-getSocketClientTls obj = liftIO $ B.Properties.getObjectPropertyBool obj "tls"--{- |-Set the value of the “@tls@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #tls 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientTls :: (MonadIO m, IsSocketClient o) => o -> Bool -> m ()-setSocketClientTls obj val = liftIO $ B.Properties.setObjectPropertyBool obj "tls" val--{- |-Construct a `GValueConstruct` with valid value for the “@tls@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientTls :: (IsSocketClient o) => Bool -> IO (GValueConstruct o)-constructSocketClientTls val = B.Properties.constructObjectPropertyBool "tls" val--#if ENABLE_OVERLOADING-data SocketClientTlsPropertyInfo-instance AttrInfo SocketClientTlsPropertyInfo where-    type AttrAllowedOps SocketClientTlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientTlsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketClientTlsPropertyInfo = IsSocketClient-    type AttrGetType SocketClientTlsPropertyInfo = Bool-    type AttrLabel SocketClientTlsPropertyInfo = "tls"-    type AttrOrigin SocketClientTlsPropertyInfo = SocketClient-    attrGet _ = getSocketClientTls-    attrSet _ = setSocketClientTls-    attrConstruct _ = constructSocketClientTls-    attrClear _ = undefined-#endif---- VVV Prop "tls-validation-flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@tls-validation-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #tlsValidationFlags-@--}-getSocketClientTlsValidationFlags :: (MonadIO m, IsSocketClient o) => o -> m [Gio.Flags.TlsCertificateFlags]-getSocketClientTlsValidationFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "tls-validation-flags"--{- |-Set the value of the “@tls-validation-flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #tlsValidationFlags 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientTlsValidationFlags :: (MonadIO m, IsSocketClient o) => o -> [Gio.Flags.TlsCertificateFlags] -> m ()-setSocketClientTlsValidationFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "tls-validation-flags" val--{- |-Construct a `GValueConstruct` with valid value for the “@tls-validation-flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientTlsValidationFlags :: (IsSocketClient o) => [Gio.Flags.TlsCertificateFlags] -> IO (GValueConstruct o)-constructSocketClientTlsValidationFlags val = B.Properties.constructObjectPropertyFlags "tls-validation-flags" val--#if ENABLE_OVERLOADING-data SocketClientTlsValidationFlagsPropertyInfo-instance AttrInfo SocketClientTlsValidationFlagsPropertyInfo where-    type AttrAllowedOps SocketClientTlsValidationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = (~) [Gio.Flags.TlsCertificateFlags]-    type AttrBaseTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = IsSocketClient-    type AttrGetType SocketClientTlsValidationFlagsPropertyInfo = [Gio.Flags.TlsCertificateFlags]-    type AttrLabel SocketClientTlsValidationFlagsPropertyInfo = "tls-validation-flags"-    type AttrOrigin SocketClientTlsValidationFlagsPropertyInfo = SocketClient-    attrGet _ = getSocketClientTlsValidationFlags-    attrSet _ = setSocketClientTlsValidationFlags-    attrConstruct _ = constructSocketClientTlsValidationFlags-    attrClear _ = undefined-#endif---- VVV Prop "type"-   -- Type: TInterface (Name {namespace = "Gio", name = "SocketType"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketClient #type-@--}-getSocketClientType :: (MonadIO m, IsSocketClient o) => o -> m Gio.Enums.SocketType-getSocketClientType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "type"--{- |-Set the value of the “@type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketClient [ #type 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketClientType :: (MonadIO m, IsSocketClient o) => o -> Gio.Enums.SocketType -> m ()-setSocketClientType obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "type" val--{- |-Construct a `GValueConstruct` with valid value for the “@type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketClientType :: (IsSocketClient o) => Gio.Enums.SocketType -> IO (GValueConstruct o)-constructSocketClientType val = B.Properties.constructObjectPropertyEnum "type" val--#if ENABLE_OVERLOADING-data SocketClientTypePropertyInfo-instance AttrInfo SocketClientTypePropertyInfo where-    type AttrAllowedOps SocketClientTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketClientTypePropertyInfo = (~) Gio.Enums.SocketType-    type AttrBaseTypeConstraint SocketClientTypePropertyInfo = IsSocketClient-    type AttrGetType SocketClientTypePropertyInfo = Gio.Enums.SocketType-    type AttrLabel SocketClientTypePropertyInfo = "type"-    type AttrOrigin SocketClientTypePropertyInfo = SocketClient-    attrGet _ = getSocketClientType-    attrSet _ = setSocketClientType-    attrConstruct _ = constructSocketClientType-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SocketClient-type instance O.AttributeList SocketClient = SocketClientAttributeList-type SocketClientAttributeList = ('[ '("enableProxy", SocketClientEnableProxyPropertyInfo), '("family", SocketClientFamilyPropertyInfo), '("localAddress", SocketClientLocalAddressPropertyInfo), '("protocol", SocketClientProtocolPropertyInfo), '("proxyResolver", SocketClientProxyResolverPropertyInfo), '("timeout", SocketClientTimeoutPropertyInfo), '("tls", SocketClientTlsPropertyInfo), '("tlsValidationFlags", SocketClientTlsValidationFlagsPropertyInfo), '("type", SocketClientTypePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-socketClientEnableProxy :: AttrLabelProxy "enableProxy"-socketClientEnableProxy = AttrLabelProxy--socketClientFamily :: AttrLabelProxy "family"-socketClientFamily = AttrLabelProxy--socketClientLocalAddress :: AttrLabelProxy "localAddress"-socketClientLocalAddress = AttrLabelProxy--socketClientProtocol :: AttrLabelProxy "protocol"-socketClientProtocol = AttrLabelProxy--socketClientProxyResolver :: AttrLabelProxy "proxyResolver"-socketClientProxyResolver = AttrLabelProxy--socketClientTimeout :: AttrLabelProxy "timeout"-socketClientTimeout = AttrLabelProxy--socketClientTls :: AttrLabelProxy "tls"-socketClientTls = AttrLabelProxy--socketClientTlsValidationFlags :: AttrLabelProxy "tlsValidationFlags"-socketClientTlsValidationFlags = AttrLabelProxy--socketClientType :: AttrLabelProxy "type"-socketClientType = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data SocketClientEventSignalInfo-instance SignalInfo SocketClientEventSignalInfo where-    type HaskellCallbackType SocketClientEventSignalInfo = SocketClientEventCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SocketClientEventCallback cb-        cb'' <- mk_SocketClientEventCallback cb'-        connectSignalFunPtr obj "event" cb'' connectMode--type instance O.SignalList SocketClient = SocketClientSignalList-type SocketClientSignalList = ('[ '("event", SocketClientEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SocketClient::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketClient"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_new" g_socket_client_new :: -    IO (Ptr SocketClient)--{- |-Creates a new 'GI.Gio.Objects.SocketClient.SocketClient' with the default options.--/Since: 2.22/--}-socketClientNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m SocketClient-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketClient.SocketClient'.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-socketClientNew  = liftIO $ do-    result <- g_socket_client_new-    checkUnexpectedReturnNULL "socketClientNew" result-    result' <- (wrapObject SocketClient) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method SocketClient::add_application_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The proxy protocol", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_add_application_proxy" g_socket_client_add_application_proxy :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CString ->                              -- protocol : TBasicType TUTF8-    IO ()--{- |-Enable proxy protocols to be handled by the application. When the-indicated proxy protocol is returned by the 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver',-'GI.Gio.Objects.SocketClient.SocketClient' will consider this protocol as supported but will-not try to find a 'GI.Gio.Interfaces.Proxy.Proxy' instance to handle handshaking. The-application must check for this case by calling-'GI.Gio.Objects.SocketConnection.socketConnectionGetRemoteAddress' on the returned-'GI.Gio.Objects.SocketConnection.SocketConnection', and seeing if it\'s a 'GI.Gio.Objects.ProxyAddress.ProxyAddress' of the-appropriate type, to determine whether or not it needs to handle-the proxy handshaking itself.--This should be used for proxy protocols that are dialects of-another protocol such as HTTP proxy. It also allows cohabitation of-proxy protocols that are reused between protocols. A good example-is HTTP. It can be used to proxy HTTP, FTP and Gopher and can also-be use as generic socket proxy through the HTTP CONNECT method.--When the proxy is detected as being an application proxy, TLS handshake-will be skipped. This is required to let the application do the proxy-specific handshake.--}-socketClientAddApplicationProxy ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> T.Text-    {- ^ /@protocol@/: The proxy protocol -}-    -> m ()-socketClientAddApplicationProxy client protocol = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    protocol' <- textToCString protocol-    g_socket_client_add_application_proxy client' protocol'-    touchManagedPtr client-    freeMem protocol'-    return ()--#if ENABLE_OVERLOADING-data SocketClientAddApplicationProxyMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientAddApplicationProxyMethodInfo a signature where-    overloadedMethod _ = socketClientAddApplicationProxy--#endif---- method SocketClient::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable specifying the remote address.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect" g_socket_client_connect :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- connectable : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Tries to resolve the /@connectable@/ and make a network connection to it.--Upon a successful connection, a new 'GI.Gio.Objects.SocketConnection.SocketConnection' is constructed-and returned.  The caller owns this new object and must drop their-reference to it when finished with it.--The type of the 'GI.Gio.Objects.SocketConnection.SocketConnection' object returned depends on the type of-the underlying socket that is used. For instance, for a TCP\/IP connection-it will be a 'GI.Gio.Objects.TcpConnection.TcpConnection'.--The socket created will be the same family as the address that the-/@connectable@/ resolves to, unless family is set with 'GI.Gio.Objects.SocketClient.socketClientSetFamily'-or indirectly via 'GI.Gio.Objects.SocketClient.socketClientSetLocalAddress'. The socket type-defaults to 'GI.Gio.Enums.SocketTypeStream' but can be set with-'GI.Gio.Objects.SocketClient.socketClientSetSocketType'.--If a local address is specified with 'GI.Gio.Objects.SocketClient.socketClientSetLocalAddress' the-socket will be bound to this address before connecting.--/Since: 2.22/--}-socketClientConnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> b-    {- ^ /@connectable@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' specifying the remote address. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClientConnect client connectable cancellable = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    connectable' <- unsafeManagedPtrCastPtr connectable-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_client_connect client' connectable' maybeCancellable-        checkUnexpectedReturnNULL "socketClientConnect" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        touchManagedPtr client-        touchManagedPtr connectable-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketClientConnectMethodInfo-instance (signature ~ (b -> Maybe (c) -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketClientConnectMethodInfo a signature where-    overloadedMethod _ = socketClientConnect--#endif---- method SocketClient::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnectable specifying the remote address.", 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 "a #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_connect_async" g_socket_client_connect_async :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- connectable : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    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 ()--{- |-This is the asynchronous version of 'GI.Gio.Objects.SocketClient.socketClientConnect'.--When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.SocketClient.socketClientConnectFinish' to get-the result of the operation.--/Since: 2.22/--}-socketClientConnectAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> b-    {- ^ /@connectable@/: a 'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' specifying the remote address. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-socketClientConnectAsync client connectable cancellable callback = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    connectable' <- unsafeManagedPtrCastPtr connectable-    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-    g_socket_client_connect_async client' connectable' maybeCancellable maybeCallback userData-    touchManagedPtr client-    touchManagedPtr connectable-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SocketClientConnectAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketClient a, Gio.SocketConnectable.IsSocketConnectable b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketClientConnectAsyncMethodInfo a signature where-    overloadedMethod _ = socketClientConnectAsync--#endif---- method SocketClient::connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_finish" g_socket_client_connect_finish :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Finishes an async connect operation. See 'GI.Gio.Objects.SocketClient.socketClientConnectAsync'--/Since: 2.22/--}-socketClientConnectFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClientConnectFinish client result_ = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_client_connect_finish client' result_'-        checkUnexpectedReturnNULL "socketClientConnectFinish" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        touchManagedPtr client-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketClientConnectFinishMethodInfo-instance (signature ~ (b -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketClientConnectFinishMethodInfo a signature where-    overloadedMethod _ = socketClientConnectFinish--#endif---- method SocketClient::connect_to_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name and optionally port of the host to connect to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the default port to connect to", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_host" g_socket_client_connect_to_host :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CString ->                              -- host_and_port : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-This is a helper function for 'GI.Gio.Objects.SocketClient.socketClientConnect'.--Attempts to create a TCP connection to the named host.--/@hostAndPort@/ may be in any of a number of recognized formats; an IPv6-address, an IPv4 address, or a domain name (in which case a DNS-lookup is performed).  Quoting with [] is supported for all address-types.  A port override may be specified in the usual way with a-colon.  Ports may be given as decimal numbers or symbolic names (in-which case an \/etc\/services lookup is performed).--If no port override is given in /@hostAndPort@/ then /@defaultPort@/ will be-used as the port number to connect to.--In general, /@hostAndPort@/ is expected to be provided by the user (allowing-them to give the hostname, and a port override if necessary) and-/@defaultPort@/ is expected to be provided by the application.--In the case that an IP address is given, a single connection-attempt is made.  In the case that a name is given, multiple-connection attempts may be made, in turn and according to the-number of address records in DNS, until a connection succeeds.--Upon a successful connection, a new 'GI.Gio.Objects.SocketConnection.SocketConnection' is constructed-and returned.  The caller owns this new object and must drop their-reference to it when finished with it.--In the event of any failure (DNS error, service not found, no hosts-connectable) 'Nothing' is returned and /@error@/ (if non-'Nothing') is set-accordingly.--/Since: 2.22/--}-socketClientConnectToHost ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> T.Text-    {- ^ /@hostAndPort@/: the name and optionally port of the host to connect to -}-    -> Word16-    {- ^ /@defaultPort@/: the default port to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClientConnectToHost client hostAndPort defaultPort cancellable = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    hostAndPort' <- textToCString hostAndPort-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_host client' hostAndPort' defaultPort maybeCancellable-        checkUnexpectedReturnNULL "socketClientConnectToHost" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        touchManagedPtr client-        whenJust cancellable touchManagedPtr-        freeMem hostAndPort'-        return result'-     ) (do-        freeMem hostAndPort'-     )--#if ENABLE_OVERLOADING-data SocketClientConnectToHostMethodInfo-instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToHostMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToHost--#endif---- method SocketClient::connect_to_host_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name and optionally the port of the host to connect to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the default port to connect to", 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 "a #GAsyncReadyCallback", 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 "user data for the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_connect_to_host_async" g_socket_client_connect_to_host_async :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CString ->                              -- host_and_port : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    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 ()--{- |-This is the asynchronous version of 'GI.Gio.Objects.SocketClient.socketClientConnectToHost'.--When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.SocketClient.socketClientConnectToHostFinish' to get-the result of the operation.--/Since: 2.22/--}-socketClientConnectToHostAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> T.Text-    {- ^ /@hostAndPort@/: the name and optionally the port of the host to connect to -}-    -> Word16-    {- ^ /@defaultPort@/: the default port to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-socketClientConnectToHostAsync client hostAndPort defaultPort cancellable callback = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    hostAndPort' <- textToCString hostAndPort-    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-    g_socket_client_connect_to_host_async client' hostAndPort' defaultPort maybeCancellable maybeCallback userData-    touchManagedPtr client-    whenJust cancellable touchManagedPtr-    freeMem hostAndPort'-    return ()--#if ENABLE_OVERLOADING-data SocketClientConnectToHostAsyncMethodInfo-instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToHostAsyncMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToHostAsync--#endif---- method SocketClient::connect_to_host_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_host_finish" g_socket_client_connect_to_host_finish :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Finishes an async connect operation. See 'GI.Gio.Objects.SocketClient.socketClientConnectToHostAsync'--/Since: 2.22/--}-socketClientConnectToHostFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClientConnectToHostFinish client result_ = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_host_finish client' result_'-        checkUnexpectedReturnNULL "socketClientConnectToHostFinish" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        touchManagedPtr client-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketClientConnectToHostFinishMethodInfo-instance (signature ~ (b -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketClientConnectToHostFinishMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToHostFinish--#endif---- method SocketClient::connect_to_service--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a domain name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the service to connect to", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_service" g_socket_client_connect_to_service :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- service : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Attempts to create a TCP connection to a service.--This call looks up the SRV record for /@service@/ at /@domain@/ for the-\"tcp\" protocol.  It then attempts to connect, in turn, to each of-the hosts providing the service until either a connection succeeds-or there are no hosts remaining.--Upon a successful connection, a new 'GI.Gio.Objects.SocketConnection.SocketConnection' is constructed-and returned.  The caller owns this new object and must drop their-reference to it when finished with it.--In the event of any failure (DNS error, service not found, no hosts-connectable) 'Nothing' is returned and /@error@/ (if non-'Nothing') is set-accordingly.--}-socketClientConnectToService ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-    -> T.Text-    {- ^ /@domain@/: a domain name -}-    -> T.Text-    {- ^ /@service@/: the name of the service to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' if successful, or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClientConnectToService client domain service cancellable = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    domain' <- textToCString domain-    service' <- textToCString service-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_service client' domain' service' maybeCancellable-        checkUnexpectedReturnNULL "socketClientConnectToService" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        touchManagedPtr client-        whenJust cancellable touchManagedPtr-        freeMem domain'-        freeMem service'-        return result'-     ) (do-        freeMem domain'-        freeMem service'-     )--#if ENABLE_OVERLOADING-data SocketClientConnectToServiceMethodInfo-instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToServiceMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToService--#endif---- method SocketClient::connect_to_service_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a domain name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the service to connect to", 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 "a #GAsyncReadyCallback", 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 "user data for the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_connect_to_service_async" g_socket_client_connect_to_service_async :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- service : TBasicType TUTF8-    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 ()--{- |-This is the asynchronous version of-'GI.Gio.Objects.SocketClient.socketClientConnectToService'.--/Since: 2.22/--}-socketClientConnectToServiceAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> T.Text-    {- ^ /@domain@/: a domain name -}-    -> T.Text-    {- ^ /@service@/: the name of the service to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-socketClientConnectToServiceAsync client domain service cancellable callback = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    domain' <- textToCString domain-    service' <- textToCString service-    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-    g_socket_client_connect_to_service_async client' domain' service' maybeCancellable maybeCallback userData-    touchManagedPtr client-    whenJust cancellable touchManagedPtr-    freeMem domain'-    freeMem service'-    return ()--#if ENABLE_OVERLOADING-data SocketClientConnectToServiceAsyncMethodInfo-instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToServiceAsyncMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToServiceAsync--#endif---- method SocketClient::connect_to_service_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_service_finish" g_socket_client_connect_to_service_finish :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Finishes an async connect operation. See 'GI.Gio.Objects.SocketClient.socketClientConnectToServiceAsync'--/Since: 2.22/--}-socketClientConnectToServiceFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClientConnectToServiceFinish client result_ = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_service_finish client' result_'-        checkUnexpectedReturnNULL "socketClientConnectToServiceFinish" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        touchManagedPtr client-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketClientConnectToServiceFinishMethodInfo-instance (signature ~ (b -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketClientConnectToServiceFinishMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToServiceFinish--#endif---- method SocketClient::connect_to_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A network URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the default port to connect to", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_uri" g_socket_client_connect_to_uri :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CString ->                              -- uri : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-This is a helper function for 'GI.Gio.Objects.SocketClient.socketClientConnect'.--Attempts to create a TCP connection with a network URI.--/@uri@/ may be any valid URI containing an \"authority\" (hostname\/port)-component. If a port is not specified in the URI, /@defaultPort@/-will be used. TLS will be negotiated if 'GI.Gio.Objects.SocketClient.SocketClient':@/tls/@ is 'True'.-('GI.Gio.Objects.SocketClient.SocketClient' does not know to automatically assume TLS for-certain URI schemes.)--Using this rather than 'GI.Gio.Objects.SocketClient.socketClientConnect' or-'GI.Gio.Objects.SocketClient.socketClientConnectToHost' allows 'GI.Gio.Objects.SocketClient.SocketClient' to-determine when to use application-specific proxy protocols.--Upon a successful connection, a new 'GI.Gio.Objects.SocketConnection.SocketConnection' is constructed-and returned.  The caller owns this new object and must drop their-reference to it when finished with it.--In the event of any failure (DNS error, service not found, no hosts-connectable) 'Nothing' is returned and /@error@/ (if non-'Nothing') is set-accordingly.--/Since: 2.26/--}-socketClientConnectToUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> T.Text-    {- ^ /@uri@/: A network URI -}-    -> Word16-    {- ^ /@defaultPort@/: the default port to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClientConnectToUri client uri defaultPort cancellable = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    uri' <- textToCString uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_uri client' uri' defaultPort maybeCancellable-        checkUnexpectedReturnNULL "socketClientConnectToUri" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        touchManagedPtr client-        whenJust cancellable touchManagedPtr-        freeMem uri'-        return result'-     ) (do-        freeMem uri'-     )--#if ENABLE_OVERLOADING-data SocketClientConnectToUriMethodInfo-instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToUriMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToUri--#endif---- method SocketClient::connect_to_uri_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a network uri", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the default port to connect to", 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 "a #GAsyncReadyCallback", 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 "user data for the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_connect_to_uri_async" g_socket_client_connect_to_uri_async :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CString ->                              -- uri : TBasicType TUTF8-    Word16 ->                               -- default_port : TBasicType TUInt16-    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 ()--{- |-This is the asynchronous version of 'GI.Gio.Objects.SocketClient.socketClientConnectToUri'.--When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.SocketClient.socketClientConnectToUriFinish' to get-the result of the operation.--/Since: 2.26/--}-socketClientConnectToUriAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> T.Text-    {- ^ /@uri@/: a network uri -}-    -> Word16-    {- ^ /@defaultPort@/: the default port to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-socketClientConnectToUriAsync client uri defaultPort cancellable callback = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    uri' <- textToCString uri-    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-    g_socket_client_connect_to_uri_async client' uri' defaultPort maybeCancellable maybeCallback userData-    touchManagedPtr client-    whenJust cancellable touchManagedPtr-    freeMem uri'-    return ()--#if ENABLE_OVERLOADING-data SocketClientConnectToUriAsyncMethodInfo-instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketClient a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketClientConnectToUriAsyncMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToUriAsync--#endif---- method SocketClient::connect_to_uri_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_client_connect_to_uri_finish" g_socket_client_connect_to_uri_finish :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Finishes an async connect operation. See 'GI.Gio.Objects.SocketClient.socketClientConnectToUriAsync'--/Since: 2.26/--}-socketClientConnectToUriFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.SocketConnection.SocketConnection-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketClientConnectToUriFinish client result_ = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_socket_client_connect_to_uri_finish client' result_'-        checkUnexpectedReturnNULL "socketClientConnectToUriFinish" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        touchManagedPtr client-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketClientConnectToUriFinishMethodInfo-instance (signature ~ (b -> m Gio.SocketConnection.SocketConnection), MonadIO m, IsSocketClient a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketClientConnectToUriFinishMethodInfo a signature where-    overloadedMethod _ = socketClientConnectToUriFinish--#endif---- method SocketClient::get_enable_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", 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 "g_socket_client_get_enable_proxy" g_socket_client_get_enable_proxy :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO CInt--{- |-Gets the proxy enable state; see 'GI.Gio.Objects.SocketClient.socketClientSetEnableProxy'--/Since: 2.26/--}-socketClientGetEnableProxy ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> m Bool-    {- ^ __Returns:__ whether proxying is enabled -}-socketClientGetEnableProxy client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_enable_proxy client'-    let result' = (/= 0) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data SocketClientGetEnableProxyMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetEnableProxyMethodInfo a signature where-    overloadedMethod _ = socketClientGetEnableProxy--#endif---- method SocketClient::get_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketFamily"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_family" g_socket_client_get_family :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO CUInt--{- |-Gets the socket family of the socket client.--See 'GI.Gio.Objects.SocketClient.socketClientSetFamily' for details.--/Since: 2.22/--}-socketClientGetFamily ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> m Gio.Enums.SocketFamily-    {- ^ __Returns:__ a 'GI.Gio.Enums.SocketFamily' -}-socketClientGetFamily client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_family client'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data SocketClientGetFamilyMethodInfo-instance (signature ~ (m Gio.Enums.SocketFamily), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetFamilyMethodInfo a signature where-    overloadedMethod _ = socketClientGetFamily--#endif---- method SocketClient::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_local_address" g_socket_client_get_local_address :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Gets the local address of the socket client.--See 'GI.Gio.Objects.SocketClient.socketClientSetLocalAddress' for details.--/Since: 2.22/--}-socketClientGetLocalAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> m Gio.SocketAddress.SocketAddress-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketAddress.SocketAddress' or 'Nothing'. Do not free. -}-socketClientGetLocalAddress client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_local_address client'-    checkUnexpectedReturnNULL "socketClientGetLocalAddress" result-    result' <- (newObject Gio.SocketAddress.SocketAddress) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data SocketClientGetLocalAddressMethodInfo-instance (signature ~ (m Gio.SocketAddress.SocketAddress), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketClientGetLocalAddress--#endif---- method SocketClient::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketProtocol"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_protocol" g_socket_client_get_protocol :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO CInt--{- |-Gets the protocol name type of the socket client.--See 'GI.Gio.Objects.SocketClient.socketClientSetProtocol' for details.--/Since: 2.22/--}-socketClientGetProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> m Gio.Enums.SocketProtocol-    {- ^ __Returns:__ a 'GI.Gio.Enums.SocketProtocol' -}-socketClientGetProtocol client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_protocol client'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data SocketClientGetProtocolMethodInfo-instance (signature ~ (m Gio.Enums.SocketProtocol), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetProtocolMethodInfo a signature where-    overloadedMethod _ = socketClientGetProtocol--#endif---- method SocketClient::get_proxy_resolver--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ProxyResolver"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_proxy_resolver" g_socket_client_get_proxy_resolver :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO (Ptr Gio.ProxyResolver.ProxyResolver)--{- |-Gets the 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' being used by /@client@/. Normally, this will-be the resolver returned by 'GI.Gio.Functions.proxyResolverGetDefault', but you-can override it with 'GI.Gio.Objects.SocketClient.socketClientSetProxyResolver'.--/Since: 2.36/--}-socketClientGetProxyResolver ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> m Gio.ProxyResolver.ProxyResolver-    {- ^ __Returns:__ The 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' being used by-  /@client@/. -}-socketClientGetProxyResolver client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_proxy_resolver client'-    checkUnexpectedReturnNULL "socketClientGetProxyResolver" result-    result' <- (newObject Gio.ProxyResolver.ProxyResolver) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data SocketClientGetProxyResolverMethodInfo-instance (signature ~ (m Gio.ProxyResolver.ProxyResolver), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetProxyResolverMethodInfo a signature where-    overloadedMethod _ = socketClientGetProxyResolver--#endif---- method SocketClient::get_socket_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketType"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_socket_type" g_socket_client_get_socket_type :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO CUInt--{- |-Gets the socket type of the socket client.--See 'GI.Gio.Objects.SocketClient.socketClientSetSocketType' for details.--/Since: 2.22/--}-socketClientGetSocketType ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> m Gio.Enums.SocketType-    {- ^ __Returns:__ a 'GI.Gio.Enums.SocketFamily' -}-socketClientGetSocketType client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_socket_type client'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data SocketClientGetSocketTypeMethodInfo-instance (signature ~ (m Gio.Enums.SocketType), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetSocketTypeMethodInfo a signature where-    overloadedMethod _ = socketClientGetSocketType--#endif---- method SocketClient::get_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient", 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 "g_socket_client_get_timeout" g_socket_client_get_timeout :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO Word32--{- |-Gets the I\/O timeout time for sockets created by /@client@/.--See 'GI.Gio.Objects.SocketClient.socketClientSetTimeout' for details.--/Since: 2.26/--}-socketClientGetTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient' -}-    -> m Word32-    {- ^ __Returns:__ the timeout in seconds -}-socketClientGetTimeout client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_timeout client'-    touchManagedPtr client-    return result--#if ENABLE_OVERLOADING-data SocketClientGetTimeoutMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetTimeoutMethodInfo a signature where-    overloadedMethod _ = socketClientGetTimeout--#endif---- method SocketClient::get_tls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", 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 "g_socket_client_get_tls" g_socket_client_get_tls :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO CInt--{- |-Gets whether /@client@/ creates TLS connections. See-'GI.Gio.Objects.SocketClient.socketClientSetTls' for details.--/Since: 2.28/--}-socketClientGetTls ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> m Bool-    {- ^ __Returns:__ whether /@client@/ uses TLS -}-socketClientGetTls client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_tls client'-    let result' = (/= 0) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data SocketClientGetTlsMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetTlsMethodInfo a signature where-    overloadedMethod _ = socketClientGetTls--#endif---- method SocketClient::get_tls_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_get_tls_validation_flags" g_socket_client_get_tls_validation_flags :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    IO CUInt--{- |-Gets the TLS validation flags used creating TLS connections via-/@client@/.--/Since: 2.28/--}-socketClientGetTlsValidationFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> m [Gio.Flags.TlsCertificateFlags]-    {- ^ __Returns:__ the TLS validation flags -}-socketClientGetTlsValidationFlags client = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    result <- g_socket_client_get_tls_validation_flags client'-    let result' = wordToGFlags result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data SocketClientGetTlsValidationFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientGetTlsValidationFlagsMethodInfo a signature where-    overloadedMethod _ = socketClientGetTlsValidationFlags--#endif---- method SocketClient::set_enable_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to enable proxies", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_enable_proxy" g_socket_client_set_enable_proxy :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CInt ->                                 -- enable : TBasicType TBoolean-    IO ()--{- |-Sets whether or not /@client@/ attempts to make connections via a-proxy server. When enabled (the default), 'GI.Gio.Objects.SocketClient.SocketClient' will use a-'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' to determine if a proxy protocol such as SOCKS is-needed, and automatically do the necessary proxy negotiation.--See also 'GI.Gio.Objects.SocketClient.socketClientSetProxyResolver'.--/Since: 2.26/--}-socketClientSetEnableProxy ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> Bool-    {- ^ /@enable@/: whether to enable proxies -}-    -> m ()-socketClientSetEnableProxy client enable = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    let enable' = (fromIntegral . fromEnum) enable-    g_socket_client_set_enable_proxy client' enable'-    touchManagedPtr client-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetEnableProxyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetEnableProxyMethodInfo a signature where-    overloadedMethod _ = socketClientSetEnableProxy--#endif---- method SocketClient::set_family--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface (Name {namespace = "Gio", name = "SocketFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketFamily", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_family" g_socket_client_set_family :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CUInt ->                                -- family : TInterface (Name {namespace = "Gio", name = "SocketFamily"})-    IO ()--{- |-Sets the socket family of the socket client.-If this is set to something other than 'GI.Gio.Enums.SocketFamilyInvalid'-then the sockets created by this object will be of the specified-family.--This might be useful for instance if you want to force the local-connection to be an ipv4 socket, even though the address might-be an ipv6 mapped to ipv4 address.--/Since: 2.22/--}-socketClientSetFamily ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> Gio.Enums.SocketFamily-    {- ^ /@family@/: a 'GI.Gio.Enums.SocketFamily' -}-    -> m ()-socketClientSetFamily client family = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    let family' = (fromIntegral . fromEnum) family-    g_socket_client_set_family client' family'-    touchManagedPtr client-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetFamilyMethodInfo-instance (signature ~ (Gio.Enums.SocketFamily -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetFamilyMethodInfo a signature where-    overloadedMethod _ = socketClientSetFamily--#endif---- method SocketClient::set_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GSocketAddress, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_local_address" g_socket_client_set_local_address :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    IO ()--{- |-Sets the local address of the socket client.-The sockets created by this object will bound to the-specified address (if not 'Nothing') before connecting.--This is useful if you want to ensure that the local-side of the connection is on a specific port, or on-a specific interface.--/Since: 2.22/--}-socketClientSetLocalAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.SocketAddress.IsSocketAddress b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> Maybe (b)-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress', or 'Nothing' -}-    -> m ()-socketClientSetLocalAddress client address = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    maybeAddress <- case address of-        Nothing -> return nullPtr-        Just jAddress -> do-            jAddress' <- unsafeManagedPtrCastPtr jAddress-            return jAddress'-    g_socket_client_set_local_address client' maybeAddress-    touchManagedPtr client-    whenJust address touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetLocalAddressMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSocketClient a, Gio.SocketAddress.IsSocketAddress b) => O.MethodInfo SocketClientSetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketClientSetLocalAddress--#endif---- method SocketClient::set_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface (Name {namespace = "Gio", name = "SocketProtocol"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketProtocol", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_protocol" g_socket_client_set_protocol :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CInt ->                                 -- protocol : TInterface (Name {namespace = "Gio", name = "SocketProtocol"})-    IO ()--{- |-Sets the protocol of the socket client.-The sockets created by this object will use of the specified-protocol.--If /@protocol@/ is @/0/@ that means to use the default-protocol for the socket family and type.--/Since: 2.22/--}-socketClientSetProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> Gio.Enums.SocketProtocol-    {- ^ /@protocol@/: a 'GI.Gio.Enums.SocketProtocol' -}-    -> m ()-socketClientSetProtocol client protocol = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    let protocol' = (fromIntegral . fromEnum) protocol-    g_socket_client_set_protocol client' protocol'-    touchManagedPtr client-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetProtocolMethodInfo-instance (signature ~ (Gio.Enums.SocketProtocol -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetProtocolMethodInfo a signature where-    overloadedMethod _ = socketClientSetProtocol--#endif---- method SocketClient::set_proxy_resolver--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_resolver", argType = TInterface (Name {namespace = "Gio", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GProxyResolver, or %NULL for the\n  default.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_proxy_resolver" g_socket_client_set_proxy_resolver :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Ptr Gio.ProxyResolver.ProxyResolver ->  -- proxy_resolver : TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-    IO ()--{- |-Overrides the 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' used by /@client@/. You can call this if-you want to use specific proxies, rather than using the system-default proxy settings.--Note that whether or not the proxy resolver is actually used-depends on the setting of 'GI.Gio.Objects.SocketClient.SocketClient':@/enable-proxy/@, which is not-changed by this function (but which is 'True' by default)--/Since: 2.36/--}-socketClientSetProxyResolver ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a, Gio.ProxyResolver.IsProxyResolver b) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> Maybe (b)-    {- ^ /@proxyResolver@/: a 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver', or 'Nothing' for the-  default. -}-    -> m ()-socketClientSetProxyResolver client proxyResolver = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    maybeProxyResolver <- case proxyResolver of-        Nothing -> return nullPtr-        Just jProxyResolver -> do-            jProxyResolver' <- unsafeManagedPtrCastPtr jProxyResolver-            return jProxyResolver'-    g_socket_client_set_proxy_resolver client' maybeProxyResolver-    touchManagedPtr client-    whenJust proxyResolver touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetProxyResolverMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSocketClient a, Gio.ProxyResolver.IsProxyResolver b) => O.MethodInfo SocketClientSetProxyResolverMethodInfo a signature where-    overloadedMethod _ = socketClientSetProxyResolver--#endif---- method SocketClient::set_socket_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "SocketType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_socket_type" g_socket_client_set_socket_type :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "SocketType"})-    IO ()--{- |-Sets the socket type of the socket client.-The sockets created by this object will be of the specified-type.--It doesn\'t make sense to specify a type of 'GI.Gio.Enums.SocketTypeDatagram',-as GSocketClient is used for connection oriented services.--/Since: 2.22/--}-socketClientSetSocketType ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> Gio.Enums.SocketType-    {- ^ /@type@/: a 'GI.Gio.Enums.SocketType' -}-    -> m ()-socketClientSetSocketType client type_ = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    let type_' = (fromIntegral . fromEnum) type_-    g_socket_client_set_socket_type client' type_'-    touchManagedPtr client-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetSocketTypeMethodInfo-instance (signature ~ (Gio.Enums.SocketType -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetSocketTypeMethodInfo a signature where-    overloadedMethod _ = socketClientSetSocketType--#endif---- method SocketClient::set_timeout--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the timeout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_timeout" g_socket_client_set_timeout :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    Word32 ->                               -- timeout : TBasicType TUInt-    IO ()--{- |-Sets the I\/O timeout for sockets created by /@client@/. /@timeout@/ is a-time in seconds, or 0 for no timeout (the default).--The timeout value affects the initial connection attempt as well,-so setting this may cause calls to 'GI.Gio.Objects.SocketClient.socketClientConnect', etc,-to fail with 'GI.Gio.Enums.IOErrorEnumTimedOut'.--/Since: 2.26/--}-socketClientSetTimeout ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> Word32-    {- ^ /@timeout@/: the timeout -}-    -> m ()-socketClientSetTimeout client timeout = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    g_socket_client_set_timeout client' timeout-    touchManagedPtr client-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetTimeoutMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetTimeoutMethodInfo a signature where-    overloadedMethod _ = socketClientSetTimeout--#endif---- method SocketClient::set_tls--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tls", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to use TLS", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_tls" g_socket_client_set_tls :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CInt ->                                 -- tls : TBasicType TBoolean-    IO ()--{- |-Sets whether /@client@/ creates TLS (aka SSL) connections. If /@tls@/ is-'True', /@client@/ will wrap its connections in a 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection'-and perform a TLS handshake when connecting.--Note that since 'GI.Gio.Objects.SocketClient.SocketClient' must return a 'GI.Gio.Objects.SocketConnection.SocketConnection',-but 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' is not a 'GI.Gio.Objects.SocketConnection.SocketConnection', this-actually wraps the resulting 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' in a-'GI.Gio.Objects.TcpWrapperConnection.TcpWrapperConnection' when returning it. You can use-'GI.Gio.Objects.TcpWrapperConnection.tcpWrapperConnectionGetBaseIoStream' on the return value-to extract the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection'.--If you need to modify the behavior of the TLS handshake (eg, by-setting a client-side certificate to use, or connecting to the-'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@ signal), you can connect to-/@client@/\'s 'GI.Gio.Objects.SocketClient.SocketClient'::@/event/@ signal and wait for it to be-emitted with 'GI.Gio.Enums.SocketClientEventTlsHandshaking', which will give you-a chance to see the 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' before the handshake-starts.--/Since: 2.28/--}-socketClientSetTls ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> Bool-    {- ^ /@tls@/: whether to use TLS -}-    -> m ()-socketClientSetTls client tls = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    let tls' = (fromIntegral . fromEnum) tls-    g_socket_client_set_tls client' tls'-    touchManagedPtr client-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetTlsMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetTlsMethodInfo a signature where-    overloadedMethod _ = socketClientSetTls--#endif---- method SocketClient::set_tls_validation_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Gio", name = "SocketClient"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClient.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the validation flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_client_set_tls_validation_flags" g_socket_client_set_tls_validation_flags :: -    Ptr SocketClient ->                     -- client : TInterface (Name {namespace = "Gio", name = "SocketClient"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-    IO ()--{- |-Sets the TLS validation flags used when creating TLS connections-via /@client@/. The default value is 'GI.Gio.Flags.TlsCertificateFlagsValidateAll'.--/Since: 2.28/--}-socketClientSetTlsValidationFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketClient a) =>-    a-    {- ^ /@client@/: a 'GI.Gio.Objects.SocketClient.SocketClient'. -}-    -> [Gio.Flags.TlsCertificateFlags]-    {- ^ /@flags@/: the validation flags -}-    -> m ()-socketClientSetTlsValidationFlags client flags = liftIO $ do-    client' <- unsafeManagedPtrCastPtr client-    let flags' = gflagsToWord flags-    g_socket_client_set_tls_validation_flags client' flags'-    touchManagedPtr client-    return ()--#if ENABLE_OVERLOADING-data SocketClientSetTlsValidationFlagsMethodInfo-instance (signature ~ ([Gio.Flags.TlsCertificateFlags] -> m ()), MonadIO m, IsSocketClient a) => O.MethodInfo SocketClientSetTlsValidationFlagsMethodInfo a signature where-    overloadedMethod _ = socketClientSetTlsValidationFlags--#endif--
− GI/Gio/Objects/SocketClient.hs-boot 
@@ -1,152 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SocketClient 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 SocketClient = SocketClient (ManagedPtr SocketClient)-instance GObject SocketClient where-class (GObject o, O.IsDescendantOf SocketClient o) => IsSocketClient o-instance (GObject o, O.IsDescendantOf SocketClient o) => IsSocketClient o-instance O.HasParentTypes SocketClient-#if ENABLE_OVERLOADING-data SocketClientEnableProxyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientFamilyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientLocalAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientProxyResolverPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientTimeoutPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientTlsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientTlsValidationFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientEventSignalInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientAddApplicationProxyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToHostMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToHostAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToHostFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToServiceMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToServiceAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToServiceFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToUriAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientConnectToUriFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetEnableProxyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetFamilyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetLocalAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetProxyResolverMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetSocketTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetTlsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientGetTlsValidationFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetEnableProxyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetFamilyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetLocalAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetProxyResolverMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetSocketTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetTimeoutMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetTlsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketClientSetTlsValidationFlagsMethodInfo-#endif
− GI/Gio/Objects/SocketConnection.hs 
@@ -1,713 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.SocketConnection.SocketConnection' is a 'GI.Gio.Objects.IOStream.IOStream' for a connected socket. They-can be created either by 'GI.Gio.Objects.SocketClient.SocketClient' when connecting to a host,-or by 'GI.Gio.Objects.SocketListener.SocketListener' when accepting a new client.--The type of the 'GI.Gio.Objects.SocketConnection.SocketConnection' object returned from these calls-depends on the type of the underlying socket that is in use. For-instance, for a TCP\/IP connection it will be a 'GI.Gio.Objects.TcpConnection.TcpConnection'.--Choosing what type of object to construct is done with the socket-connection factory, and it is possible for 3rd parties to register-custom socket connection types for specific combination of socket-family\/type\/protocol using 'GI.Gio.Objects.SocketConnection.socketConnectionFactoryRegisterType'.--To close a 'GI.Gio.Objects.SocketConnection.SocketConnection', use 'GI.Gio.Objects.IOStream.iOStreamClose'. Closing both-substreams of the 'GI.Gio.Objects.IOStream.IOStream' separately will not close the underlying-'GI.Gio.Objects.Socket.Socket'.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SocketConnection-    ( ---- * Exported types-    SocketConnection(..)                    ,-    IsSocketConnection                      ,-    toSocketConnection                      ,-    noSocketConnection                      ,--- -- * Methods--- ** connect #method:connect#--#if ENABLE_OVERLOADING-    SocketConnectionConnectMethodInfo       ,-#endif-    socketConnectionConnect                 ,----- ** connectAsync #method:connectAsync#--#if ENABLE_OVERLOADING-    SocketConnectionConnectAsyncMethodInfo  ,-#endif-    socketConnectionConnectAsync            ,----- ** connectFinish #method:connectFinish#--#if ENABLE_OVERLOADING-    SocketConnectionConnectFinishMethodInfo ,-#endif-    socketConnectionConnectFinish           ,----- ** factoryLookupType #method:factoryLookupType#--    socketConnectionFactoryLookupType       ,----- ** factoryRegisterType #method:factoryRegisterType#--    socketConnectionFactoryRegisterType     ,----- ** getLocalAddress #method:getLocalAddress#--#if ENABLE_OVERLOADING-    SocketConnectionGetLocalAddressMethodInfo,-#endif-    socketConnectionGetLocalAddress         ,----- ** getRemoteAddress #method:getRemoteAddress#--#if ENABLE_OVERLOADING-    SocketConnectionGetRemoteAddressMethodInfo,-#endif-    socketConnectionGetRemoteAddress        ,----- ** getSocket #method:getSocket#--#if ENABLE_OVERLOADING-    SocketConnectionGetSocketMethodInfo     ,-#endif-    socketConnectionGetSocket               ,----- ** isConnected #method:isConnected#--#if ENABLE_OVERLOADING-    SocketConnectionIsConnectedMethodInfo   ,-#endif-    socketConnectionIsConnected             ,----- -- * Properties--- ** socket #attr:socket#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketConnectionSocketPropertyInfo      ,-#endif-    constructSocketConnectionSocket         ,-    getSocketConnectionSocket               ,-#if ENABLE_OVERLOADING-    socketConnectionSocket                  ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.Socket as Gio.Socket-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress---- | Memory-managed wrapper type.-newtype SocketConnection = SocketConnection (ManagedPtr SocketConnection)-foreign import ccall "g_socket_connection_get_type"-    c_g_socket_connection_get_type :: IO GType--instance GObject SocketConnection where-    gobjectType = c_g_socket_connection_get_type-    ---- | Type class for types which can be safely cast to `SocketConnection`, for instance with `toSocketConnection`.-class (GObject o, O.IsDescendantOf SocketConnection o) => IsSocketConnection o-instance (GObject o, O.IsDescendantOf SocketConnection o) => IsSocketConnection o--instance O.HasParentTypes SocketConnection-type instance O.ParentTypes SocketConnection = '[Gio.IOStream.IOStream, GObject.Object.Object]---- | Cast to `SocketConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocketConnection :: (MonadIO m, IsSocketConnection o) => o -> m SocketConnection-toSocketConnection = liftIO . unsafeCastTo SocketConnection---- | A convenience alias for `Nothing` :: `Maybe` `SocketConnection`.-noSocketConnection :: Maybe SocketConnection-noSocketConnection = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketConnectionMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveSocketConnectionMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveSocketConnectionMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveSocketConnectionMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveSocketConnectionMethod "connect" o = SocketConnectionConnectMethodInfo-    ResolveSocketConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo-    ResolveSocketConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo-    ResolveSocketConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketConnectionMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveSocketConnectionMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveSocketConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo-    ResolveSocketConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketConnectionMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveSocketConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketConnectionMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveSocketConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo-    ResolveSocketConnectionMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveSocketConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo-    ResolveSocketConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo-    ResolveSocketConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketConnectionMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveSocketConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketConnectionMethod t SocketConnection, O.MethodInfo info SocketConnection p) => OL.IsLabel t (SocketConnection -> 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---- VVV Prop "socket"-   -- Type: TInterface (Name {namespace = "Gio", name = "Socket"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@socket@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketConnection #socket-@--}-getSocketConnectionSocket :: (MonadIO m, IsSocketConnection o) => o -> m Gio.Socket.Socket-getSocketConnectionSocket obj = liftIO $ checkUnexpectedNothing "getSocketConnectionSocket" $ B.Properties.getObjectPropertyObject obj "socket" Gio.Socket.Socket--{- |-Construct a `GValueConstruct` with valid value for the “@socket@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketConnectionSocket :: (IsSocketConnection o, Gio.Socket.IsSocket a) => a -> IO (GValueConstruct o)-constructSocketConnectionSocket val = B.Properties.constructObjectPropertyObject "socket" (Just val)--#if ENABLE_OVERLOADING-data SocketConnectionSocketPropertyInfo-instance AttrInfo SocketConnectionSocketPropertyInfo where-    type AttrAllowedOps SocketConnectionSocketPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketConnectionSocketPropertyInfo = Gio.Socket.IsSocket-    type AttrBaseTypeConstraint SocketConnectionSocketPropertyInfo = IsSocketConnection-    type AttrGetType SocketConnectionSocketPropertyInfo = Gio.Socket.Socket-    type AttrLabel SocketConnectionSocketPropertyInfo = "socket"-    type AttrOrigin SocketConnectionSocketPropertyInfo = SocketConnection-    attrGet _ = getSocketConnectionSocket-    attrSet _ = undefined-    attrConstruct _ = constructSocketConnectionSocket-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SocketConnection-type instance O.AttributeList SocketConnection = SocketConnectionAttributeList-type SocketConnectionAttributeList = ('[ '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("inputStream", Gio.IOStream.IOStreamInputStreamPropertyInfo), '("outputStream", Gio.IOStream.IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-socketConnectionSocket :: AttrLabelProxy "socket"-socketConnectionSocket = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SocketConnection = SocketConnectionSignalList-type SocketConnectionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SocketConnection::connect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "SocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddress specifying the remote address.", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_socket_connection_connect" g_socket_connection_connect :: -    Ptr SocketConnection ->                 -- connection : TInterface (Name {namespace = "Gio", name = "SocketConnection"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Connect /@connection@/ to the specified remote address.--/Since: 2.32/--}-socketConnectionConnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnection a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-    -> b-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress' specifying the remote address. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketConnectionConnect connection address cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    address' <- unsafeManagedPtrCastPtr address-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_socket_connection_connect connection' address' maybeCancellable-        touchManagedPtr connection-        touchManagedPtr address-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketConnectionConnectMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsSocketConnection a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketConnectionConnectMethodInfo a signature where-    overloadedMethod _ = socketConnectionConnect--#endif---- method SocketConnection::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "SocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddress specifying the remote address.", 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 "a #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_connection_connect_async" g_socket_connection_connect_async :: -    Ptr SocketConnection ->                 -- connection : TInterface (Name {namespace = "Gio", name = "SocketConnection"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    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 connect /@connection@/ to the specified remote address.--This clears the 'GI.Gio.Objects.Socket.Socket':@/blocking/@ flag on /@connection@/\'s underlying-socket if it is currently set.--Use 'GI.Gio.Objects.SocketConnection.socketConnectionConnectFinish' to retrieve the result.--/Since: 2.32/--}-socketConnectionConnectAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnection a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-    -> b-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress' specifying the remote address. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a @/GCancellable/@ or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-socketConnectionConnectAsync connection address cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    address' <- unsafeManagedPtrCastPtr address-    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-    g_socket_connection_connect_async connection' address' maybeCancellable maybeCallback userData-    touchManagedPtr connection-    touchManagedPtr address-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SocketConnectionConnectAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketConnection a, Gio.SocketAddress.IsSocketAddress b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SocketConnectionConnectAsyncMethodInfo a signature where-    overloadedMethod _ = socketConnectionConnectAsync--#endif---- method SocketConnection::connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "SocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnection", 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 "the #GAsyncResult", 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 "g_socket_connection_connect_finish" g_socket_connection_connect_finish :: -    Ptr SocketConnection ->                 -- connection : TInterface (Name {namespace = "Gio", name = "SocketConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Gets the result of a 'GI.Gio.Objects.SocketConnection.socketConnectionConnectAsync' call.--/Since: 2.32/--}-socketConnectionConnectFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketConnectionConnectFinish connection result_ = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_socket_connection_connect_finish connection' result_'-        touchManagedPtr connection-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketConnectionConnectFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSocketConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketConnectionConnectFinishMethodInfo a signature where-    overloadedMethod _ = socketConnectionConnectFinish--#endif---- method SocketConnection::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "SocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_connection_get_local_address" g_socket_connection_get_local_address :: -    Ptr SocketConnection ->                 -- connection : TInterface (Name {namespace = "Gio", name = "SocketConnection"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Try to get the local address of a socket connection.--/Since: 2.22/--}-socketConnectionGetLocalAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-    -> m Gio.SocketAddress.SocketAddress-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketAddress.SocketAddress' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketConnectionGetLocalAddress connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    onException (do-        result <- propagateGError $ g_socket_connection_get_local_address connection'-        checkUnexpectedReturnNULL "socketConnectionGetLocalAddress" result-        result' <- (wrapObject Gio.SocketAddress.SocketAddress) result-        touchManagedPtr connection-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketConnectionGetLocalAddressMethodInfo-instance (signature ~ (m Gio.SocketAddress.SocketAddress), MonadIO m, IsSocketConnection a) => O.MethodInfo SocketConnectionGetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketConnectionGetLocalAddress--#endif---- method SocketConnection::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "SocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_connection_get_remote_address" g_socket_connection_get_remote_address :: -    Ptr SocketConnection ->                 -- connection : TInterface (Name {namespace = "Gio", name = "SocketConnection"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Try to get the remote address of a socket connection.--Since GLib 2.40, when used with 'GI.Gio.Objects.SocketClient.socketClientConnect' or-'GI.Gio.Objects.SocketClient.socketClientConnectAsync', during emission of-'GI.Gio.Enums.SocketClientEventConnecting', this function will return the remote-address that will be used for the connection.  This allows-applications to print e.g. \"Connecting to example.com-(10.42.77.3)...\".--/Since: 2.22/--}-socketConnectionGetRemoteAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-    -> m Gio.SocketAddress.SocketAddress-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketAddress.SocketAddress' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketConnectionGetRemoteAddress connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    onException (do-        result <- propagateGError $ g_socket_connection_get_remote_address connection'-        checkUnexpectedReturnNULL "socketConnectionGetRemoteAddress" result-        result' <- (wrapObject Gio.SocketAddress.SocketAddress) result-        touchManagedPtr connection-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketConnectionGetRemoteAddressMethodInfo-instance (signature ~ (m Gio.SocketAddress.SocketAddress), MonadIO m, IsSocketConnection a) => O.MethodInfo SocketConnectionGetRemoteAddressMethodInfo a signature where-    overloadedMethod _ = socketConnectionGetRemoteAddress--#endif---- method SocketConnection::get_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "SocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Socket"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_connection_get_socket" g_socket_connection_get_socket :: -    Ptr SocketConnection ->                 -- connection : TInterface (Name {namespace = "Gio", name = "SocketConnection"})-    IO (Ptr Gio.Socket.Socket)--{- |-Gets the underlying 'GI.Gio.Objects.Socket.Socket' object of the connection.-This can be useful if you want to do something unusual on it-not supported by the 'GI.Gio.Objects.SocketConnection.SocketConnection' APIs.--/Since: 2.22/--}-socketConnectionGetSocket ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-    -> m Gio.Socket.Socket-    {- ^ __Returns:__ a 'GI.Gio.Objects.Socket.Socket' or 'Nothing' on error. -}-socketConnectionGetSocket connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_socket_connection_get_socket connection'-    checkUnexpectedReturnNULL "socketConnectionGetSocket" result-    result' <- (newObject Gio.Socket.Socket) result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data SocketConnectionGetSocketMethodInfo-instance (signature ~ (m Gio.Socket.Socket), MonadIO m, IsSocketConnection a) => O.MethodInfo SocketConnectionGetSocketMethodInfo a signature where-    overloadedMethod _ = socketConnectionGetSocket--#endif---- method SocketConnection::is_connected--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "SocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketConnection", 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 "g_socket_connection_is_connected" g_socket_connection_is_connected :: -    Ptr SocketConnection ->                 -- connection : TInterface (Name {namespace = "Gio", name = "SocketConnection"})-    IO CInt--{- |-Checks if /@connection@/ is connected. This is equivalent to calling-'GI.Gio.Objects.Socket.socketIsConnected' on /@connection@/\'s underlying 'GI.Gio.Objects.Socket.Socket'.--/Since: 2.32/--}-socketConnectionIsConnected ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.SocketConnection.SocketConnection' -}-    -> m Bool-    {- ^ __Returns:__ whether /@connection@/ is connected -}-socketConnectionIsConnected connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_socket_connection_is_connected connection'-    let result' = (/= 0) result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data SocketConnectionIsConnectedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocketConnection a) => O.MethodInfo SocketConnectionIsConnectedMethodInfo a signature where-    overloadedMethod _ = socketConnectionIsConnected--#endif---- method SocketConnection::factory_lookup_type--- method type : MemberFunction--- Args : [Arg {argCName = "family", argType = TInterface (Name {namespace = "Gio", name = "SocketFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketFamily", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "SocketType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a protocol id", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_socket_connection_factory_lookup_type" g_socket_connection_factory_lookup_type :: -    CUInt ->                                -- family : TInterface (Name {namespace = "Gio", name = "SocketFamily"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "SocketType"})-    Int32 ->                                -- protocol_id : TBasicType TInt-    IO CGType--{- |-Looks up the 'GType' to be used when creating socket connections on-sockets with the specified /@family@/, /@type@/ and /@protocolId@/.--If no type is registered, the 'GI.Gio.Objects.SocketConnection.SocketConnection' base type is returned.--/Since: 2.22/--}-socketConnectionFactoryLookupType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Enums.SocketFamily-    {- ^ /@family@/: a 'GI.Gio.Enums.SocketFamily' -}-    -> Gio.Enums.SocketType-    {- ^ /@type@/: a 'GI.Gio.Enums.SocketType' -}-    -> Int32-    {- ^ /@protocolId@/: a protocol id -}-    -> m GType-    {- ^ __Returns:__ a 'GType' -}-socketConnectionFactoryLookupType family type_ protocolId = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    let type_' = (fromIntegral . fromEnum) type_-    result <- g_socket_connection_factory_lookup_type family' type_' protocolId-    let result' = GType result-    return result'--#if ENABLE_OVERLOADING-#endif---- method SocketConnection::factory_register_type--- method type : MemberFunction--- Args : [Arg {argCName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GType, inheriting from %G_TYPE_SOCKET_CONNECTION", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface (Name {namespace = "Gio", name = "SocketFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketFamily", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "SocketType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a protocol id", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_connection_factory_register_type" g_socket_connection_factory_register_type :: -    CGType ->                               -- g_type : TBasicType TGType-    CUInt ->                                -- family : TInterface (Name {namespace = "Gio", name = "SocketFamily"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "SocketType"})-    Int32 ->                                -- protocol : TBasicType TInt-    IO ()--{- |-Looks up the 'GType' to be used when creating socket connections on-sockets with the specified /@family@/, /@type@/ and /@protocol@/.--If no type is registered, the 'GI.Gio.Objects.SocketConnection.SocketConnection' base type is returned.--/Since: 2.22/--}-socketConnectionFactoryRegisterType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GType-    {- ^ /@gType@/: a 'GType', inheriting from @/G_TYPE_SOCKET_CONNECTION/@ -}-    -> Gio.Enums.SocketFamily-    {- ^ /@family@/: a 'GI.Gio.Enums.SocketFamily' -}-    -> Gio.Enums.SocketType-    {- ^ /@type@/: a 'GI.Gio.Enums.SocketType' -}-    -> Int32-    {- ^ /@protocol@/: a protocol id -}-    -> m ()-socketConnectionFactoryRegisterType gType family type_ protocol = liftIO $ do-    let gType' = gtypeToCGType gType-    let family' = (fromIntegral . fromEnum) family-    let type_' = (fromIntegral . fromEnum) type_-    g_socket_connection_factory_register_type gType' family' type_' protocol-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/SocketConnection.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SocketConnection 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 SocketConnection = SocketConnection (ManagedPtr SocketConnection)-instance GObject SocketConnection where-class (GObject o, O.IsDescendantOf SocketConnection o) => IsSocketConnection o-instance (GObject o, O.IsDescendantOf SocketConnection o) => IsSocketConnection o-instance O.HasParentTypes SocketConnection-#if ENABLE_OVERLOADING-data SocketConnectionSocketPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectionConnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectionConnectAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectionConnectFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectionGetLocalAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectionGetRemoteAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectionGetSocketMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectionIsConnectedMethodInfo-#endif
− GI/Gio/Objects/SocketControlMessage.hs 
@@ -1,388 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' is a special-purpose utility message that-can be sent to or received from a 'GI.Gio.Objects.Socket.Socket'. These types of-messages are often called \"ancillary data\".--The message can represent some sort of special instruction to or-information from the socket or can represent a special kind of-transfer to the peer (for example, sending a file descriptor over-a UNIX socket).--These messages are sent with 'GI.Gio.Objects.Socket.socketSendMessage' and received-with 'GI.Gio.Objects.Socket.socketReceiveMessage'.--To extend the set of control message that can be sent, subclass this-class and override the get_size, get_level, get_type and serialize-methods.--To extend the set of control messages that can be received, subclass-this class and implement the deserialize method. Also, make sure your-class is registered with the GType typesystem before calling-'GI.Gio.Objects.Socket.socketReceiveMessage' to read such a message.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SocketControlMessage-    ( ---- * Exported types-    SocketControlMessage(..)                ,-    IsSocketControlMessage                  ,-    toSocketControlMessage                  ,-    noSocketControlMessage                  ,--- -- * Methods--- ** deserialize #method:deserialize#--    socketControlMessageDeserialize         ,----- ** getLevel #method:getLevel#--#if ENABLE_OVERLOADING-    SocketControlMessageGetLevelMethodInfo  ,-#endif-    socketControlMessageGetLevel            ,----- ** getMsgType #method:getMsgType#--#if ENABLE_OVERLOADING-    SocketControlMessageGetMsgTypeMethodInfo,-#endif-    socketControlMessageGetMsgType          ,----- ** getSize #method:getSize#--#if ENABLE_OVERLOADING-    SocketControlMessageGetSizeMethodInfo   ,-#endif-    socketControlMessageGetSize             ,----- ** serialize #method:serialize#--#if ENABLE_OVERLOADING-    SocketControlMessageSerializeMethodInfo ,-#endif-    socketControlMessageSerialize           ,-----    ) 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 SocketControlMessage = SocketControlMessage (ManagedPtr SocketControlMessage)-foreign import ccall "g_socket_control_message_get_type"-    c_g_socket_control_message_get_type :: IO GType--instance GObject SocketControlMessage where-    gobjectType = c_g_socket_control_message_get_type-    ---- | Type class for types which can be safely cast to `SocketControlMessage`, for instance with `toSocketControlMessage`.-class (GObject o, O.IsDescendantOf SocketControlMessage o) => IsSocketControlMessage o-instance (GObject o, O.IsDescendantOf SocketControlMessage o) => IsSocketControlMessage o--instance O.HasParentTypes SocketControlMessage-type instance O.ParentTypes SocketControlMessage = '[GObject.Object.Object]---- | Cast to `SocketControlMessage`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocketControlMessage :: (MonadIO m, IsSocketControlMessage o) => o -> m SocketControlMessage-toSocketControlMessage = liftIO . unsafeCastTo SocketControlMessage---- | A convenience alias for `Nothing` :: `Maybe` `SocketControlMessage`.-noSocketControlMessage :: Maybe SocketControlMessage-noSocketControlMessage = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketControlMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketControlMessageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketControlMessageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketControlMessageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketControlMessageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketControlMessageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketControlMessageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketControlMessageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketControlMessageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketControlMessageMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketControlMessageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketControlMessageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketControlMessageMethod "serialize" o = SocketControlMessageSerializeMethodInfo-    ResolveSocketControlMessageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketControlMessageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketControlMessageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketControlMessageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketControlMessageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketControlMessageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketControlMessageMethod "getLevel" o = SocketControlMessageGetLevelMethodInfo-    ResolveSocketControlMessageMethod "getMsgType" o = SocketControlMessageGetMsgTypeMethodInfo-    ResolveSocketControlMessageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketControlMessageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketControlMessageMethod "getSize" o = SocketControlMessageGetSizeMethodInfo-    ResolveSocketControlMessageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketControlMessageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketControlMessageMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketControlMessageMethod t SocketControlMessage, O.MethodInfo info SocketControlMessage p) => OL.IsLabel t (SocketControlMessage -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList SocketControlMessage-type instance O.AttributeList SocketControlMessage = SocketControlMessageAttributeList-type SocketControlMessageAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SocketControlMessage = SocketControlMessageSignalList-type SocketControlMessageSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SocketControlMessage::get_level--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "SocketControlMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketControlMessage", 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 "g_socket_control_message_get_level" g_socket_control_message_get_level :: -    Ptr SocketControlMessage ->             -- message : TInterface (Name {namespace = "Gio", name = "SocketControlMessage"})-    IO Int32--{- |-Returns the \"level\" (i.e. the originating protocol) of the control message.-This is often SOL_SOCKET.--/Since: 2.22/--}-socketControlMessageGetLevel ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketControlMessage a) =>-    a-    {- ^ /@message@/: a 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' -}-    -> m Int32-    {- ^ __Returns:__ an integer describing the level -}-socketControlMessageGetLevel message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_socket_control_message_get_level message'-    touchManagedPtr message-    return result--#if ENABLE_OVERLOADING-data SocketControlMessageGetLevelMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsSocketControlMessage a) => O.MethodInfo SocketControlMessageGetLevelMethodInfo a signature where-    overloadedMethod _ = socketControlMessageGetLevel--#endif---- method SocketControlMessage::get_msg_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "SocketControlMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketControlMessage", 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 "g_socket_control_message_get_msg_type" g_socket_control_message_get_msg_type :: -    Ptr SocketControlMessage ->             -- message : TInterface (Name {namespace = "Gio", name = "SocketControlMessage"})-    IO Int32--{- |-Returns the protocol specific type of the control message.-For instance, for UNIX fd passing this would be SCM_RIGHTS.--/Since: 2.22/--}-socketControlMessageGetMsgType ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketControlMessage a) =>-    a-    {- ^ /@message@/: a 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' -}-    -> m Int32-    {- ^ __Returns:__ an integer describing the type of control message -}-socketControlMessageGetMsgType message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_socket_control_message_get_msg_type message'-    touchManagedPtr message-    return result--#if ENABLE_OVERLOADING-data SocketControlMessageGetMsgTypeMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsSocketControlMessage a) => O.MethodInfo SocketControlMessageGetMsgTypeMethodInfo a signature where-    overloadedMethod _ = socketControlMessageGetMsgType--#endif---- method SocketControlMessage::get_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "SocketControlMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketControlMessage", 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 "g_socket_control_message_get_size" g_socket_control_message_get_size :: -    Ptr SocketControlMessage ->             -- message : TInterface (Name {namespace = "Gio", name = "SocketControlMessage"})-    IO Word64--{- |-Returns the space required for the control message, not including-headers or alignment.--/Since: 2.22/--}-socketControlMessageGetSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketControlMessage a) =>-    a-    {- ^ /@message@/: a 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' -}-    -> m Word64-    {- ^ __Returns:__ The number of bytes required. -}-socketControlMessageGetSize message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_socket_control_message_get_size message'-    touchManagedPtr message-    return result--#if ENABLE_OVERLOADING-data SocketControlMessageGetSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsSocketControlMessage a) => O.MethodInfo SocketControlMessageGetSizeMethodInfo a signature where-    overloadedMethod _ = socketControlMessageGetSize--#endif---- method SocketControlMessage::serialize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "SocketControlMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketControlMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A buffer to write data to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_control_message_serialize" g_socket_control_message_serialize :: -    Ptr SocketControlMessage ->             -- message : TInterface (Name {namespace = "Gio", name = "SocketControlMessage"})-    Ptr () ->                               -- data : TBasicType TPtr-    IO ()--{- |-Converts the data in the message to bytes placed in the-message.--/@data@/ is guaranteed to have enough space to fit the size-returned by 'GI.Gio.Objects.SocketControlMessage.socketControlMessageGetSize' on this-object.--/Since: 2.22/--}-socketControlMessageSerialize ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketControlMessage a) =>-    a-    {- ^ /@message@/: a 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' -}-    -> Ptr ()-    {- ^ /@data@/: A buffer to write data to -}-    -> m ()-socketControlMessageSerialize message data_ = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    g_socket_control_message_serialize message' data_-    touchManagedPtr message-    return ()--#if ENABLE_OVERLOADING-data SocketControlMessageSerializeMethodInfo-instance (signature ~ (Ptr () -> m ()), MonadIO m, IsSocketControlMessage a) => O.MethodInfo SocketControlMessageSerializeMethodInfo a signature where-    overloadedMethod _ = socketControlMessageSerialize--#endif---- method SocketControlMessage::deserialize--- method type : MemberFunction--- Args : [Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a socket level", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a socket control message type for the given @level", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of the data in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the message data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the size of the data in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketControlMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_control_message_deserialize" g_socket_control_message_deserialize :: -    Int32 ->                                -- level : TBasicType TInt-    Int32 ->                                -- type : TBasicType TInt-    Word64 ->                               -- size : TBasicType TUInt64-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    IO (Ptr SocketControlMessage)--{- |-Tries to deserialize a socket control message of a given-/@level@/ and /@type@/. This will ask all known (to GType) subclasses-of 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' if they can understand this kind-of message and if so deserialize it into a 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage'.--If there is no implementation for this kind of control message, 'Nothing'-will be returned.--/Since: 2.22/--}-socketControlMessageDeserialize ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Int32-    {- ^ /@level@/: a socket level -}-    -> Int32-    {- ^ /@type@/: a socket control message type for the given /@level@/ -}-    -> ByteString-    {- ^ /@data@/: pointer to the message data -}-    -> m SocketControlMessage-    {- ^ __Returns:__ the deserialized message or 'Nothing' -}-socketControlMessageDeserialize level type_ data_ = liftIO $ do-    let size = fromIntegral $ B.length data_-    data_' <- packByteString data_-    result <- g_socket_control_message_deserialize level type_ size data_'-    checkUnexpectedReturnNULL "socketControlMessageDeserialize" result-    result' <- (wrapObject SocketControlMessage) result-    freeMem data_'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/SocketControlMessage.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SocketControlMessage 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 SocketControlMessage = SocketControlMessage (ManagedPtr SocketControlMessage)-instance GObject SocketControlMessage where-class (GObject o, O.IsDescendantOf SocketControlMessage o) => IsSocketControlMessage o-instance (GObject o, O.IsDescendantOf SocketControlMessage o) => IsSocketControlMessage o-instance O.HasParentTypes SocketControlMessage-#if ENABLE_OVERLOADING-data SocketControlMessageGetLevelMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketControlMessageGetMsgTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketControlMessageGetSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketControlMessageSerializeMethodInfo-#endif
− GI/Gio/Objects/SocketListener.hs 
@@ -1,1188 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.SocketListener.SocketListener' is an object that keeps track of a set-of server sockets and helps you accept sockets from any of the-socket, either sync or async.--Add addresses and ports to listen on using 'GI.Gio.Objects.SocketListener.socketListenerAddAddress'-and 'GI.Gio.Objects.SocketListener.socketListenerAddInetPort'. These will be listened on until-'GI.Gio.Objects.SocketListener.socketListenerClose' is called. Dropping your final reference to the-'GI.Gio.Objects.SocketListener.SocketListener' will not cause 'GI.Gio.Objects.SocketListener.socketListenerClose' to be called-implicitly, as some references to the 'GI.Gio.Objects.SocketListener.SocketListener' may be held-internally.--If you want to implement a network server, also look at 'GI.Gio.Objects.SocketService.SocketService'-and 'GI.Gio.Objects.ThreadedSocketService.ThreadedSocketService' which are subclasses of 'GI.Gio.Objects.SocketListener.SocketListener'-that make this even easier.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SocketListener-    ( ---- * Exported types-    SocketListener(..)                      ,-    IsSocketListener                        ,-    toSocketListener                        ,-    noSocketListener                        ,--- -- * Methods--- ** accept #method:accept#--#if ENABLE_OVERLOADING-    SocketListenerAcceptMethodInfo          ,-#endif-    socketListenerAccept                    ,----- ** acceptAsync #method:acceptAsync#--#if ENABLE_OVERLOADING-    SocketListenerAcceptAsyncMethodInfo     ,-#endif-    socketListenerAcceptAsync               ,----- ** acceptFinish #method:acceptFinish#--#if ENABLE_OVERLOADING-    SocketListenerAcceptFinishMethodInfo    ,-#endif-    socketListenerAcceptFinish              ,----- ** acceptSocket #method:acceptSocket#--#if ENABLE_OVERLOADING-    SocketListenerAcceptSocketMethodInfo    ,-#endif-    socketListenerAcceptSocket              ,----- ** acceptSocketAsync #method:acceptSocketAsync#--#if ENABLE_OVERLOADING-    SocketListenerAcceptSocketAsyncMethodInfo,-#endif-    socketListenerAcceptSocketAsync         ,----- ** acceptSocketFinish #method:acceptSocketFinish#--#if ENABLE_OVERLOADING-    SocketListenerAcceptSocketFinishMethodInfo,-#endif-    socketListenerAcceptSocketFinish        ,----- ** addAddress #method:addAddress#--#if ENABLE_OVERLOADING-    SocketListenerAddAddressMethodInfo      ,-#endif-    socketListenerAddAddress                ,----- ** addAnyInetPort #method:addAnyInetPort#--#if ENABLE_OVERLOADING-    SocketListenerAddAnyInetPortMethodInfo  ,-#endif-    socketListenerAddAnyInetPort            ,----- ** addInetPort #method:addInetPort#--#if ENABLE_OVERLOADING-    SocketListenerAddInetPortMethodInfo     ,-#endif-    socketListenerAddInetPort               ,----- ** addSocket #method:addSocket#--#if ENABLE_OVERLOADING-    SocketListenerAddSocketMethodInfo       ,-#endif-    socketListenerAddSocket                 ,----- ** close #method:close#--#if ENABLE_OVERLOADING-    SocketListenerCloseMethodInfo           ,-#endif-    socketListenerClose                     ,----- ** new #method:new#--    socketListenerNew                       ,----- ** setBacklog #method:setBacklog#--#if ENABLE_OVERLOADING-    SocketListenerSetBacklogMethodInfo      ,-#endif-    socketListenerSetBacklog                ,----- -- * Properties--- ** listenBacklog #attr:listenBacklog#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketListenerListenBacklogPropertyInfo ,-#endif-    constructSocketListenerListenBacklog    ,-    getSocketListenerListenBacklog          ,-    setSocketListenerListenBacklog          ,-#if ENABLE_OVERLOADING-    socketListenerListenBacklog             ,-#endif----- -- * Signals--- ** event #signal:event#--    C_SocketListenerEventCallback           ,-    SocketListenerEventCallback             ,-#if ENABLE_OVERLOADING-    SocketListenerEventSignalInfo           ,-#endif-    afterSocketListenerEvent                ,-    genClosure_SocketListenerEvent          ,-    mk_SocketListenerEventCallback          ,-    noSocketListenerEventCallback           ,-    onSocketListenerEvent                   ,-    wrap_SocketListenerEventCallback        ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.Socket as Gio.Socket-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection---- | Memory-managed wrapper type.-newtype SocketListener = SocketListener (ManagedPtr SocketListener)-foreign import ccall "g_socket_listener_get_type"-    c_g_socket_listener_get_type :: IO GType--instance GObject SocketListener where-    gobjectType = c_g_socket_listener_get_type-    ---- | Type class for types which can be safely cast to `SocketListener`, for instance with `toSocketListener`.-class (GObject o, O.IsDescendantOf SocketListener o) => IsSocketListener o-instance (GObject o, O.IsDescendantOf SocketListener o) => IsSocketListener o--instance O.HasParentTypes SocketListener-type instance O.ParentTypes SocketListener = '[GObject.Object.Object]---- | Cast to `SocketListener`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocketListener :: (MonadIO m, IsSocketListener o) => o -> m SocketListener-toSocketListener = liftIO . unsafeCastTo SocketListener---- | A convenience alias for `Nothing` :: `Maybe` `SocketListener`.-noSocketListener :: Maybe SocketListener-noSocketListener = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketListenerMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketListenerMethod "accept" o = SocketListenerAcceptMethodInfo-    ResolveSocketListenerMethod "acceptAsync" o = SocketListenerAcceptAsyncMethodInfo-    ResolveSocketListenerMethod "acceptFinish" o = SocketListenerAcceptFinishMethodInfo-    ResolveSocketListenerMethod "acceptSocket" o = SocketListenerAcceptSocketMethodInfo-    ResolveSocketListenerMethod "acceptSocketAsync" o = SocketListenerAcceptSocketAsyncMethodInfo-    ResolveSocketListenerMethod "acceptSocketFinish" o = SocketListenerAcceptSocketFinishMethodInfo-    ResolveSocketListenerMethod "addAddress" o = SocketListenerAddAddressMethodInfo-    ResolveSocketListenerMethod "addAnyInetPort" o = SocketListenerAddAnyInetPortMethodInfo-    ResolveSocketListenerMethod "addInetPort" o = SocketListenerAddInetPortMethodInfo-    ResolveSocketListenerMethod "addSocket" o = SocketListenerAddSocketMethodInfo-    ResolveSocketListenerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketListenerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketListenerMethod "close" o = SocketListenerCloseMethodInfo-    ResolveSocketListenerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketListenerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketListenerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketListenerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketListenerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketListenerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketListenerMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketListenerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketListenerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketListenerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketListenerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketListenerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketListenerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketListenerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketListenerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketListenerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketListenerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketListenerMethod "setBacklog" o = SocketListenerSetBacklogMethodInfo-    ResolveSocketListenerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketListenerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketListenerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketListenerMethod t SocketListener, O.MethodInfo info SocketListener p) => OL.IsLabel t (SocketListener -> 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 SocketListener::event-{- |-Emitted when /@listener@/\'s activity on /@socket@/ changes state.-Note that when /@listener@/ is used to listen on both IPv4 and-IPv6, a separate set of signals will be emitted for each, and-the order they happen in is undefined.--/Since: 2.46/--}-type SocketListenerEventCallback =-    Gio.Enums.SocketListenerEvent-    {- ^ /@event@/: the event that is occurring -}-    -> Gio.Socket.Socket-    {- ^ /@socket@/: the 'GI.Gio.Objects.Socket.Socket' the event is occurring on -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketListenerEventCallback`@.-noSocketListenerEventCallback :: Maybe SocketListenerEventCallback-noSocketListenerEventCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SocketListenerEventCallback =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Gio.Socket.Socket ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SocketListenerEventCallback`.-foreign import ccall "wrapper"-    mk_SocketListenerEventCallback :: C_SocketListenerEventCallback -> IO (FunPtr C_SocketListenerEventCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SocketListenerEvent :: MonadIO m => SocketListenerEventCallback -> m (GClosure C_SocketListenerEventCallback)-genClosure_SocketListenerEvent cb = liftIO $ do-    let cb' = wrap_SocketListenerEventCallback cb-    mk_SocketListenerEventCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SocketListenerEventCallback` into a `C_SocketListenerEventCallback`.-wrap_SocketListenerEventCallback ::-    SocketListenerEventCallback ->-    C_SocketListenerEventCallback-wrap_SocketListenerEventCallback _cb _ event socket _ = do-    let event' = (toEnum . fromIntegral) event-    socket' <- (newObject Gio.Socket.Socket) socket-    _cb  event' socket'---{- |-Connect a signal handler for the “@event@” 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' socketListener #event callback-@--}-onSocketListenerEvent :: (IsSocketListener a, MonadIO m) => a -> SocketListenerEventCallback -> m SignalHandlerId-onSocketListenerEvent obj cb = liftIO $ do-    let cb' = wrap_SocketListenerEventCallback cb-    cb'' <- mk_SocketListenerEventCallback cb'-    connectSignalFunPtr obj "event" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@event@” 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' socketListener #event callback-@--}-afterSocketListenerEvent :: (IsSocketListener a, MonadIO m) => a -> SocketListenerEventCallback -> m SignalHandlerId-afterSocketListenerEvent obj cb = liftIO $ do-    let cb' = wrap_SocketListenerEventCallback cb-    cb'' <- mk_SocketListenerEventCallback cb'-    connectSignalFunPtr obj "event" cb'' SignalConnectAfter----- VVV Prop "listen-backlog"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@listen-backlog@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketListener #listenBacklog-@--}-getSocketListenerListenBacklog :: (MonadIO m, IsSocketListener o) => o -> m Int32-getSocketListenerListenBacklog obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "listen-backlog"--{- |-Set the value of the “@listen-backlog@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketListener [ #listenBacklog 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketListenerListenBacklog :: (MonadIO m, IsSocketListener o) => o -> Int32 -> m ()-setSocketListenerListenBacklog obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "listen-backlog" val--{- |-Construct a `GValueConstruct` with valid value for the “@listen-backlog@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketListenerListenBacklog :: (IsSocketListener o) => Int32 -> IO (GValueConstruct o)-constructSocketListenerListenBacklog val = B.Properties.constructObjectPropertyInt32 "listen-backlog" val--#if ENABLE_OVERLOADING-data SocketListenerListenBacklogPropertyInfo-instance AttrInfo SocketListenerListenBacklogPropertyInfo where-    type AttrAllowedOps SocketListenerListenBacklogPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketListenerListenBacklogPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketListenerListenBacklogPropertyInfo = IsSocketListener-    type AttrGetType SocketListenerListenBacklogPropertyInfo = Int32-    type AttrLabel SocketListenerListenBacklogPropertyInfo = "listen-backlog"-    type AttrOrigin SocketListenerListenBacklogPropertyInfo = SocketListener-    attrGet _ = getSocketListenerListenBacklog-    attrSet _ = setSocketListenerListenBacklog-    attrConstruct _ = constructSocketListenerListenBacklog-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SocketListener-type instance O.AttributeList SocketListener = SocketListenerAttributeList-type SocketListenerAttributeList = ('[ '("listenBacklog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-socketListenerListenBacklog :: AttrLabelProxy "listenBacklog"-socketListenerListenBacklog = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data SocketListenerEventSignalInfo-instance SignalInfo SocketListenerEventSignalInfo where-    type HaskellCallbackType SocketListenerEventSignalInfo = SocketListenerEventCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SocketListenerEventCallback cb-        cb'' <- mk_SocketListenerEventCallback cb'-        connectSignalFunPtr obj "event" cb'' connectMode--type instance O.SignalList SocketListener = SocketListenerSignalList-type SocketListenerSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SocketListener::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketListener"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_listener_new" g_socket_listener_new :: -    IO (Ptr SocketListener)--{- |-Creates a new 'GI.Gio.Objects.SocketListener.SocketListener' with no sockets to listen for.-New listeners can be added with e.g. 'GI.Gio.Objects.SocketListener.socketListenerAddAddress'-or 'GI.Gio.Objects.SocketListener.socketListenerAddInetPort'.--/Since: 2.22/--}-socketListenerNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m SocketListener-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SocketListener.SocketListener'. -}-socketListenerNew  = liftIO $ do-    result <- g_socket_listener_new-    checkUnexpectedReturnNULL "socketListenerNew" result-    result' <- (wrapObject SocketListener) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method SocketListener::accept--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "location where #GObject pointer will be stored, or %NULL", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_accept" g_socket_listener_accept :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Ptr (Ptr GObject.Object.Object) ->      -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Blocks waiting for a client to connect to any of the sockets added-to the listener. Returns a 'GI.Gio.Objects.SocketConnection.SocketConnection' for the socket that was-accepted.--If /@sourceObject@/ is not 'Nothing' it will be filled out with the source-object specified when the corresponding socket or address was added-to the listener.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--/Since: 2.22/--}-socketListenerAccept ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ((Gio.SocketConnection.SocketConnection, Maybe GObject.Object.Object))-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListenerAccept listener cancellable = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object.Object))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_listener_accept listener' sourceObject maybeCancellable-        checkUnexpectedReturnNULL "socketListenerAccept" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        sourceObject' <- peek sourceObject-        maybeSourceObject' <- convertIfNonNull sourceObject' $ \sourceObject'' -> do-            sourceObject''' <- (newObject GObject.Object.Object) sourceObject''-            return sourceObject'''-        touchManagedPtr listener-        whenJust cancellable touchManagedPtr-        freeMem sourceObject-        return (result', maybeSourceObject')-     ) (do-        freeMem sourceObject-     )--#if ENABLE_OVERLOADING-data SocketListenerAcceptMethodInfo-instance (signature ~ (Maybe (b) -> m ((Gio.SocketConnection.SocketConnection, Maybe GObject.Object.Object))), MonadIO m, IsSocketListener a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketListenerAcceptMethodInfo a signature where-    overloadedMethod _ = socketListenerAccept--#endif---- method SocketListener::accept_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", 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 "a #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_listener_accept_async" g_socket_listener_accept_async :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    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 ()--{- |-This is the asynchronous version of 'GI.Gio.Objects.SocketListener.socketListenerAccept'.--When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.SocketListener.socketListenerAcceptSocket'-to get the result of the operation.--/Since: 2.22/--}-socketListenerAcceptAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-socketListenerAcceptAsync listener cancellable callback = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    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-    g_socket_listener_accept_async listener' maybeCancellable maybeCallback userData-    touchManagedPtr listener-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SocketListenerAcceptAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketListener a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketListenerAcceptAsyncMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptAsync--#endif---- method SocketListener::accept_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional #GObject identifying this source", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_accept_finish" g_socket_listener_accept_finish :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GObject.Object.Object) ->      -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.SocketConnection.SocketConnection)--{- |-Finishes an async accept operation. See 'GI.Gio.Objects.SocketListener.socketListenerAcceptAsync'--/Since: 2.22/--}-socketListenerAcceptFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ((Gio.SocketConnection.SocketConnection, Maybe GObject.Object.Object))-    {- ^ __Returns:__ a 'GI.Gio.Objects.SocketConnection.SocketConnection' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListenerAcceptFinish listener result_ = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    result_' <- unsafeManagedPtrCastPtr result_-    sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object.Object))-    onException (do-        result <- propagateGError $ g_socket_listener_accept_finish listener' result_' sourceObject-        checkUnexpectedReturnNULL "socketListenerAcceptFinish" result-        result' <- (wrapObject Gio.SocketConnection.SocketConnection) result-        sourceObject' <- peek sourceObject-        maybeSourceObject' <- convertIfNonNull sourceObject' $ \sourceObject'' -> do-            sourceObject''' <- (newObject GObject.Object.Object) sourceObject''-            return sourceObject'''-        touchManagedPtr listener-        touchManagedPtr result_-        freeMem sourceObject-        return (result', maybeSourceObject')-     ) (do-        freeMem sourceObject-     )--#if ENABLE_OVERLOADING-data SocketListenerAcceptFinishMethodInfo-instance (signature ~ (b -> m ((Gio.SocketConnection.SocketConnection, Maybe GObject.Object.Object))), MonadIO m, IsSocketListener a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketListenerAcceptFinishMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptFinish--#endif---- method SocketListener::accept_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "location where #GObject pointer will be stored, or %NULL.", 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 "optional #GCancellable object, %NULL to ignore.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Socket"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_accept_socket" g_socket_listener_accept_socket :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Ptr (Ptr GObject.Object.Object) ->      -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.Socket.Socket)--{- |-Blocks waiting for a client to connect to any of the sockets added-to the listener. Returns the 'GI.Gio.Objects.Socket.Socket' that was accepted.--If you want to accept the high-level 'GI.Gio.Objects.SocketConnection.SocketConnection', not a 'GI.Gio.Objects.Socket.Socket',-which is often the case, then you should use 'GI.Gio.Objects.SocketListener.socketListenerAccept'-instead.--If /@sourceObject@/ is not 'Nothing' it will be filled out with the source-object specified when the corresponding socket or address was added-to the listener.--If /@cancellable@/ is not 'Nothing', then the operation can be cancelled by-triggering the cancellable object from another thread. If the operation-was cancelled, the error 'GI.Gio.Enums.IOErrorEnumCancelled' will be returned.--/Since: 2.22/--}-socketListenerAcceptSocket ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ((Gio.Socket.Socket, Maybe GObject.Object.Object))-    {- ^ __Returns:__ a 'GI.Gio.Objects.Socket.Socket' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListenerAcceptSocket listener cancellable = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object.Object))-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_socket_listener_accept_socket listener' sourceObject maybeCancellable-        checkUnexpectedReturnNULL "socketListenerAcceptSocket" result-        result' <- (wrapObject Gio.Socket.Socket) result-        sourceObject' <- peek sourceObject-        maybeSourceObject' <- convertIfNonNull sourceObject' $ \sourceObject'' -> do-            sourceObject''' <- (newObject GObject.Object.Object) sourceObject''-            return sourceObject'''-        touchManagedPtr listener-        whenJust cancellable touchManagedPtr-        freeMem sourceObject-        return (result', maybeSourceObject')-     ) (do-        freeMem sourceObject-     )--#if ENABLE_OVERLOADING-data SocketListenerAcceptSocketMethodInfo-instance (signature ~ (Maybe (b) -> m ((Gio.Socket.Socket, Maybe GObject.Object.Object))), MonadIO m, IsSocketListener a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketListenerAcceptSocketMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptSocket--#endif---- method SocketListener::accept_socket_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", 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 "a #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data for the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_listener_accept_socket_async" g_socket_listener_accept_socket_async :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    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 ()--{- |-This is the asynchronous version of 'GI.Gio.Objects.SocketListener.socketListenerAcceptSocket'.--When the operation is finished /@callback@/ will be-called. You can then call 'GI.Gio.Objects.SocketListener.socketListenerAcceptSocketFinish'-to get the result of the operation.--/Since: 2.22/--}-socketListenerAcceptSocketAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-socketListenerAcceptSocketAsync listener cancellable callback = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    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-    g_socket_listener_accept_socket_async listener' maybeCancellable maybeCallback userData-    touchManagedPtr listener-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SocketListenerAcceptSocketAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSocketListener a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketListenerAcceptSocketAsyncMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptSocketAsync--#endif---- method SocketListener::accept_socket_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional #GObject identifying this source", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Socket"}))--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_accept_socket_finish" g_socket_listener_accept_socket_finish :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GObject.Object.Object) ->      -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.Socket.Socket)--{- |-Finishes an async accept operation. See 'GI.Gio.Objects.SocketListener.socketListenerAcceptSocketAsync'--/Since: 2.22/--}-socketListenerAcceptSocketFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ((Gio.Socket.Socket, Maybe GObject.Object.Object))-    {- ^ __Returns:__ a 'GI.Gio.Objects.Socket.Socket' on success, 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListenerAcceptSocketFinish listener result_ = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    result_' <- unsafeManagedPtrCastPtr result_-    sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object.Object))-    onException (do-        result <- propagateGError $ g_socket_listener_accept_socket_finish listener' result_' sourceObject-        checkUnexpectedReturnNULL "socketListenerAcceptSocketFinish" result-        result' <- (wrapObject Gio.Socket.Socket) result-        sourceObject' <- peek sourceObject-        maybeSourceObject' <- convertIfNonNull sourceObject' $ \sourceObject'' -> do-            sourceObject''' <- (newObject GObject.Object.Object) sourceObject''-            return sourceObject'''-        touchManagedPtr listener-        touchManagedPtr result_-        freeMem sourceObject-        return (result', maybeSourceObject')-     ) (do-        freeMem sourceObject-     )--#if ENABLE_OVERLOADING-data SocketListenerAcceptSocketFinishMethodInfo-instance (signature ~ (b -> m ((Gio.Socket.Socket, Maybe GObject.Object.Object))), MonadIO m, IsSocketListener a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SocketListenerAcceptSocketFinishMethodInfo a signature where-    overloadedMethod _ = socketListenerAcceptSocketFinish--#endif---- method SocketListener::add_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "SocketType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface (Name {namespace = "Gio", name = "SocketProtocol"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketProtocol", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional #GObject identifying this source", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "effective_address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store the address that was bound to, or %NULL.", 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 "g_socket_listener_add_address" g_socket_listener_add_address :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "SocketType"})-    CInt ->                                 -- protocol : TInterface (Name {namespace = "Gio", name = "SocketProtocol"})-    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr (Ptr Gio.SocketAddress.SocketAddress) -> -- effective_address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Creates a socket of type /@type@/ and protocol /@protocol@/, binds-it to /@address@/ and adds it to the set of sockets we\'re accepting-sockets from.--Note that adding an IPv6 address, depending on the platform,-may or may not result in a listener that also accepts IPv4-connections.  For more deterministic behavior, see-'GI.Gio.Objects.SocketListener.socketListenerAddInetPort'.--/@sourceObject@/ will be passed out in the various calls-to accept to identify this particular source, which is-useful if you\'re listening on multiple addresses and do-different things depending on what address is connected to.--If successful and /@effectiveAddress@/ is non-'Nothing' then it will-be set to the address that the binding actually occurred at.  This-is helpful for determining the port number that was used for when-requesting a binding to port 0 (ie: \"any port\").  This address, if-requested, belongs to the caller and must be freed.--Call 'GI.Gio.Objects.SocketListener.socketListenerClose' to stop listening on /@address@/; this will not-be done automatically when you drop your final reference to /@listener@/, as-references may be held internally.--/Since: 2.22/--}-socketListenerAddAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, Gio.SocketAddress.IsSocketAddress b, GObject.Object.IsObject c) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> b-    {- ^ /@address@/: a 'GI.Gio.Objects.SocketAddress.SocketAddress' -}-    -> Gio.Enums.SocketType-    {- ^ /@type@/: a 'GI.Gio.Enums.SocketType' -}-    -> Gio.Enums.SocketProtocol-    {- ^ /@protocol@/: a 'GI.Gio.Enums.SocketProtocol' -}-    -> Maybe (c)-    {- ^ /@sourceObject@/: Optional 'GI.GObject.Objects.Object.Object' identifying this source -}-    -> m (Gio.SocketAddress.SocketAddress)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListenerAddAddress listener address type_ protocol sourceObject = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    address' <- unsafeManagedPtrCastPtr address-    let type_' = (fromIntegral . fromEnum) type_-    let protocol' = (fromIntegral . fromEnum) protocol-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    effectiveAddress <- allocMem :: IO (Ptr (Ptr Gio.SocketAddress.SocketAddress))-    onException (do-        _ <- propagateGError $ g_socket_listener_add_address listener' address' type_' protocol' maybeSourceObject effectiveAddress-        effectiveAddress' <- peek effectiveAddress-        effectiveAddress'' <- (wrapObject Gio.SocketAddress.SocketAddress) effectiveAddress'-        touchManagedPtr listener-        touchManagedPtr address-        whenJust sourceObject touchManagedPtr-        freeMem effectiveAddress-        return effectiveAddress''-     ) (do-        freeMem effectiveAddress-     )--#if ENABLE_OVERLOADING-data SocketListenerAddAddressMethodInfo-instance (signature ~ (b -> Gio.Enums.SocketType -> Gio.Enums.SocketProtocol -> Maybe (c) -> m (Gio.SocketAddress.SocketAddress)), MonadIO m, IsSocketListener a, Gio.SocketAddress.IsSocketAddress b, GObject.Object.IsObject c) => O.MethodInfo SocketListenerAddAddressMethodInfo a signature where-    overloadedMethod _ = socketListenerAddAddress--#endif---- method SocketListener::add_any_inet_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional #GObject identifying this source", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : True--- Skip return : False--foreign import ccall "g_socket_listener_add_any_inet_port" g_socket_listener_add_any_inet_port :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr (Ptr GError) ->                     -- error-    IO Word16--{- |-Listens for TCP connections on any available port number for both-IPv6 and IPv4 (if each is available).--This is useful if you need to have a socket for incoming connections-but don\'t care about the specific port number.--/@sourceObject@/ will be passed out in the various calls-to accept to identify this particular source, which is-useful if you\'re listening on multiple addresses and do-different things depending on what address is connected to.--/Since: 2.24/--}-socketListenerAddAnyInetPort ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, GObject.Object.IsObject b) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> Maybe (b)-    {- ^ /@sourceObject@/: Optional 'GI.GObject.Objects.Object.Object' identifying this source -}-    -> m Word16-    {- ^ __Returns:__ the port number, or 0 in case of failure. /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListenerAddAnyInetPort listener sourceObject = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    onException (do-        result <- propagateGError $ g_socket_listener_add_any_inet_port listener' maybeSourceObject-        touchManagedPtr listener-        whenJust sourceObject touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketListenerAddAnyInetPortMethodInfo-instance (signature ~ (Maybe (b) -> m Word16), MonadIO m, IsSocketListener a, GObject.Object.IsObject b) => O.MethodInfo SocketListenerAddAnyInetPortMethodInfo a signature where-    overloadedMethod _ = socketListenerAddAnyInetPort--#endif---- method SocketListener::add_inet_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an IP port number (non-zero)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional #GObject identifying this source", 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 "g_socket_listener_add_inet_port" g_socket_listener_add_inet_port :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Word16 ->                               -- port : TBasicType TUInt16-    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Helper function for 'GI.Gio.Objects.SocketListener.socketListenerAddAddress' that-creates a TCP\/IP socket listening on IPv4 and IPv6 (if-supported) on the specified port on all interfaces.--/@sourceObject@/ will be passed out in the various calls-to accept to identify this particular source, which is-useful if you\'re listening on multiple addresses and do-different things depending on what address is connected to.--Call 'GI.Gio.Objects.SocketListener.socketListenerClose' to stop listening on /@port@/; this will not-be done automatically when you drop your final reference to /@listener@/, as-references may be held internally.--/Since: 2.22/--}-socketListenerAddInetPort ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, GObject.Object.IsObject b) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> Word16-    {- ^ /@port@/: an IP port number (non-zero) -}-    -> Maybe (b)-    {- ^ /@sourceObject@/: Optional 'GI.GObject.Objects.Object.Object' identifying this source -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListenerAddInetPort listener port sourceObject = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    onException (do-        _ <- propagateGError $ g_socket_listener_add_inet_port listener' port maybeSourceObject-        touchManagedPtr listener-        whenJust sourceObject touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketListenerAddInetPortMethodInfo-instance (signature ~ (Word16 -> Maybe (b) -> m ()), MonadIO m, IsSocketListener a, GObject.Object.IsObject b) => O.MethodInfo SocketListenerAddInetPortMethodInfo a signature where-    overloadedMethod _ = socketListenerAddInetPort--#endif---- method SocketListener::add_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a listening #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Optional #GObject identifying this source", 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 "g_socket_listener_add_socket" g_socket_listener_add_socket :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Ptr Gio.Socket.Socket ->                -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Adds /@socket@/ to the set of sockets that we try to accept-new clients from. The socket must be bound to a local-address and listened to.--/@sourceObject@/ will be passed out in the various calls-to accept to identify this particular source, which is-useful if you\'re listening on multiple addresses and do-different things depending on what address is connected to.--The /@socket@/ will not be automatically closed when the /@listener@/ is finalized-unless the listener held the final reference to the socket. Before GLib 2.42,-the /@socket@/ was automatically closed on finalization of the /@listener@/, even-if references to it were held elsewhere.--/Since: 2.22/--}-socketListenerAddSocket ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a, Gio.Socket.IsSocket b, GObject.Object.IsObject c) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> b-    {- ^ /@socket@/: a listening 'GI.Gio.Objects.Socket.Socket' -}-    -> Maybe (c)-    {- ^ /@sourceObject@/: Optional 'GI.GObject.Objects.Object.Object' identifying this source -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketListenerAddSocket listener socket sourceObject = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    socket' <- unsafeManagedPtrCastPtr socket-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    onException (do-        _ <- propagateGError $ g_socket_listener_add_socket listener' socket' maybeSourceObject-        touchManagedPtr listener-        touchManagedPtr socket-        whenJust sourceObject touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SocketListenerAddSocketMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsSocketListener a, Gio.Socket.IsSocket b, GObject.Object.IsObject c) => O.MethodInfo SocketListenerAddSocketMethodInfo a signature where-    overloadedMethod _ = socketListenerAddSocket--#endif---- method SocketListener::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_listener_close" g_socket_listener_close :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    IO ()--{- |-Closes all the sockets in the listener.--/Since: 2.22/--}-socketListenerClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> m ()-socketListenerClose listener = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    g_socket_listener_close listener'-    touchManagedPtr listener-    return ()--#if ENABLE_OVERLOADING-data SocketListenerCloseMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSocketListener a) => O.MethodInfo SocketListenerCloseMethodInfo a signature where-    overloadedMethod _ = socketListenerClose--#endif---- method SocketListener::set_backlog--- method type : OrdinaryMethod--- Args : [Arg {argCName = "listener", argType = TInterface (Name {namespace = "Gio", name = "SocketListener"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketListener", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "listen_backlog", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an integer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_listener_set_backlog" g_socket_listener_set_backlog :: -    Ptr SocketListener ->                   -- listener : TInterface (Name {namespace = "Gio", name = "SocketListener"})-    Int32 ->                                -- listen_backlog : TBasicType TInt-    IO ()--{- |-Sets the listen backlog on the sockets in the listener.--See 'GI.Gio.Objects.Socket.socketSetListenBacklog' for details--/Since: 2.22/--}-socketListenerSetBacklog ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketListener a) =>-    a-    {- ^ /@listener@/: a 'GI.Gio.Objects.SocketListener.SocketListener' -}-    -> Int32-    {- ^ /@listenBacklog@/: an integer -}-    -> m ()-socketListenerSetBacklog listener listenBacklog = liftIO $ do-    listener' <- unsafeManagedPtrCastPtr listener-    g_socket_listener_set_backlog listener' listenBacklog-    touchManagedPtr listener-    return ()--#if ENABLE_OVERLOADING-data SocketListenerSetBacklogMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsSocketListener a) => O.MethodInfo SocketListenerSetBacklogMethodInfo a signature where-    overloadedMethod _ = socketListenerSetBacklog--#endif--
− GI/Gio/Objects/SocketListener.hs-boot 
@@ -1,71 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SocketListener 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 SocketListener = SocketListener (ManagedPtr SocketListener)-instance GObject SocketListener where-class (GObject o, O.IsDescendantOf SocketListener o) => IsSocketListener o-instance (GObject o, O.IsDescendantOf SocketListener o) => IsSocketListener o-instance O.HasParentTypes SocketListener-#if ENABLE_OVERLOADING-data SocketListenerListenBacklogPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerEventSignalInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAcceptMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAcceptAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAcceptFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAcceptSocketMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAcceptSocketAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAcceptSocketFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAddAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAddAnyInetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAddInetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerAddSocketMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenerSetBacklogMethodInfo-#endif
− GI/Gio/Objects/SocketService.hs 
@@ -1,548 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.SocketService.SocketService' is an object that represents a service that-is provided to the network or over local sockets.  When a new-connection is made to the service the 'GI.Gio.Objects.SocketService.SocketService'::@/incoming/@-signal is emitted.--A 'GI.Gio.Objects.SocketService.SocketService' is a subclass of 'GI.Gio.Objects.SocketListener.SocketListener' and you need-to add the addresses you want to accept connections on with the-'GI.Gio.Objects.SocketListener.SocketListener' APIs.--There are two options for implementing a network service based on-'GI.Gio.Objects.SocketService.SocketService'. The first is to create the service using-'GI.Gio.Objects.SocketService.socketServiceNew' and to connect to the 'GI.Gio.Objects.SocketService.SocketService'::@/incoming/@-signal. The second is to subclass 'GI.Gio.Objects.SocketService.SocketService' and override the-default signal handler implementation.--In either case, the handler must immediately return, or else it-will block additional incoming connections from being serviced.-If you are interested in writing connection handlers that contain-blocking code then see 'GI.Gio.Objects.ThreadedSocketService.ThreadedSocketService'.--The socket service runs on the main loop of the-[thread-default context][g-main-context-push-thread-default-context]-of the thread it is created in, and is not-threadsafe in general. However, the calls to start and stop the-service are thread-safe so these can be used from threads that-handle incoming clients.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SocketService-    ( ---- * Exported types-    SocketService(..)                       ,-    IsSocketService                         ,-    toSocketService                         ,-    noSocketService                         ,--- -- * Methods--- ** isActive #method:isActive#--#if ENABLE_OVERLOADING-    SocketServiceIsActiveMethodInfo         ,-#endif-    socketServiceIsActive                   ,----- ** new #method:new#--    socketServiceNew                        ,----- ** start #method:start#--#if ENABLE_OVERLOADING-    SocketServiceStartMethodInfo            ,-#endif-    socketServiceStart                      ,----- ** stop #method:stop#--#if ENABLE_OVERLOADING-    SocketServiceStopMethodInfo             ,-#endif-    socketServiceStop                       ,----- -- * Properties--- ** active #attr:active#-{- | Whether the service is currently accepting connections.--/Since: 2.46/--}-#if ENABLE_OVERLOADING-    SocketServiceActivePropertyInfo         ,-#endif-    constructSocketServiceActive            ,-    getSocketServiceActive                  ,-    setSocketServiceActive                  ,-#if ENABLE_OVERLOADING-    socketServiceActive                     ,-#endif----- -- * Signals--- ** incoming #signal:incoming#--    C_SocketServiceIncomingCallback         ,-    SocketServiceIncomingCallback           ,-#if ENABLE_OVERLOADING-    SocketServiceIncomingSignalInfo         ,-#endif-    afterSocketServiceIncoming              ,-    genClosure_SocketServiceIncoming        ,-    mk_SocketServiceIncomingCallback        ,-    noSocketServiceIncomingCallback         ,-    onSocketServiceIncoming                 ,-    wrap_SocketServiceIncomingCallback      ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketListener as Gio.SocketListener---- | Memory-managed wrapper type.-newtype SocketService = SocketService (ManagedPtr SocketService)-foreign import ccall "g_socket_service_get_type"-    c_g_socket_service_get_type :: IO GType--instance GObject SocketService where-    gobjectType = c_g_socket_service_get_type-    ---- | Type class for types which can be safely cast to `SocketService`, for instance with `toSocketService`.-class (GObject o, O.IsDescendantOf SocketService o) => IsSocketService o-instance (GObject o, O.IsDescendantOf SocketService o) => IsSocketService o--instance O.HasParentTypes SocketService-type instance O.ParentTypes SocketService = '[Gio.SocketListener.SocketListener, GObject.Object.Object]---- | Cast to `SocketService`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocketService :: (MonadIO m, IsSocketService o) => o -> m SocketService-toSocketService = liftIO . unsafeCastTo SocketService---- | A convenience alias for `Nothing` :: `Maybe` `SocketService`.-noSocketService :: Maybe SocketService-noSocketService = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketServiceMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketServiceMethod "accept" o = Gio.SocketListener.SocketListenerAcceptMethodInfo-    ResolveSocketServiceMethod "acceptAsync" o = Gio.SocketListener.SocketListenerAcceptAsyncMethodInfo-    ResolveSocketServiceMethod "acceptFinish" o = Gio.SocketListener.SocketListenerAcceptFinishMethodInfo-    ResolveSocketServiceMethod "acceptSocket" o = Gio.SocketListener.SocketListenerAcceptSocketMethodInfo-    ResolveSocketServiceMethod "acceptSocketAsync" o = Gio.SocketListener.SocketListenerAcceptSocketAsyncMethodInfo-    ResolveSocketServiceMethod "acceptSocketFinish" o = Gio.SocketListener.SocketListenerAcceptSocketFinishMethodInfo-    ResolveSocketServiceMethod "addAddress" o = Gio.SocketListener.SocketListenerAddAddressMethodInfo-    ResolveSocketServiceMethod "addAnyInetPort" o = Gio.SocketListener.SocketListenerAddAnyInetPortMethodInfo-    ResolveSocketServiceMethod "addInetPort" o = Gio.SocketListener.SocketListenerAddInetPortMethodInfo-    ResolveSocketServiceMethod "addSocket" o = Gio.SocketListener.SocketListenerAddSocketMethodInfo-    ResolveSocketServiceMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketServiceMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketServiceMethod "close" o = Gio.SocketListener.SocketListenerCloseMethodInfo-    ResolveSocketServiceMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketServiceMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketServiceMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketServiceMethod "isActive" o = SocketServiceIsActiveMethodInfo-    ResolveSocketServiceMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketServiceMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketServiceMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketServiceMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketServiceMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketServiceMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketServiceMethod "start" o = SocketServiceStartMethodInfo-    ResolveSocketServiceMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketServiceMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketServiceMethod "stop" o = SocketServiceStopMethodInfo-    ResolveSocketServiceMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketServiceMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketServiceMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketServiceMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketServiceMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketServiceMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketServiceMethod "setBacklog" o = Gio.SocketListener.SocketListenerSetBacklogMethodInfo-    ResolveSocketServiceMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketServiceMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketServiceMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketServiceMethod t SocketService, O.MethodInfo info SocketService p) => OL.IsLabel t (SocketService -> 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 SocketService::incoming-{- |-The ::incoming signal is emitted when a new incoming connection-to /@service@/ needs to be handled. The handler must initiate the-handling of /@connection@/, but may not block; in essence,-asynchronous operations must be used.--/@connection@/ will be unreffed once the signal handler returns,-so you need to ref it yourself if you are planning to use it.--/Since: 2.22/--}-type SocketServiceIncomingCallback =-    Gio.SocketConnection.SocketConnection-    {- ^ /@connection@/: a new 'GI.Gio.Objects.SocketConnection.SocketConnection' object -}-    -> Maybe GObject.Object.Object-    {- ^ /@sourceObject@/: the source_object passed to-    'GI.Gio.Objects.SocketListener.socketListenerAddAddress' -}-    -> IO Bool-    {- ^ __Returns:__ 'True' to stop other handlers from being called -}---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketServiceIncomingCallback`@.-noSocketServiceIncomingCallback :: Maybe SocketServiceIncomingCallback-noSocketServiceIncomingCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SocketServiceIncomingCallback =-    Ptr () ->                               -- object-    Ptr Gio.SocketConnection.SocketConnection ->-    Ptr GObject.Object.Object ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_SocketServiceIncomingCallback`.-foreign import ccall "wrapper"-    mk_SocketServiceIncomingCallback :: C_SocketServiceIncomingCallback -> IO (FunPtr C_SocketServiceIncomingCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SocketServiceIncoming :: MonadIO m => SocketServiceIncomingCallback -> m (GClosure C_SocketServiceIncomingCallback)-genClosure_SocketServiceIncoming cb = liftIO $ do-    let cb' = wrap_SocketServiceIncomingCallback cb-    mk_SocketServiceIncomingCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SocketServiceIncomingCallback` into a `C_SocketServiceIncomingCallback`.-wrap_SocketServiceIncomingCallback ::-    SocketServiceIncomingCallback ->-    C_SocketServiceIncomingCallback-wrap_SocketServiceIncomingCallback _cb _ connection sourceObject _ = do-    connection' <- (newObject Gio.SocketConnection.SocketConnection) connection-    maybeSourceObject <--        if sourceObject == nullPtr-        then return Nothing-        else do-            sourceObject' <- (newObject GObject.Object.Object) sourceObject-            return $ Just sourceObject'-    result <- _cb  connection' maybeSourceObject-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@incoming@” 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' socketService #incoming callback-@--}-onSocketServiceIncoming :: (IsSocketService a, MonadIO m) => a -> SocketServiceIncomingCallback -> m SignalHandlerId-onSocketServiceIncoming obj cb = liftIO $ do-    let cb' = wrap_SocketServiceIncomingCallback cb-    cb'' <- mk_SocketServiceIncomingCallback cb'-    connectSignalFunPtr obj "incoming" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@incoming@” 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' socketService #incoming callback-@--}-afterSocketServiceIncoming :: (IsSocketService a, MonadIO m) => a -> SocketServiceIncomingCallback -> m SignalHandlerId-afterSocketServiceIncoming obj cb = liftIO $ do-    let cb' = wrap_SocketServiceIncomingCallback cb-    cb'' <- mk_SocketServiceIncomingCallback cb'-    connectSignalFunPtr obj "incoming" cb'' SignalConnectAfter----- VVV Prop "active"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@active@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socketService #active-@--}-getSocketServiceActive :: (MonadIO m, IsSocketService o) => o -> m Bool-getSocketServiceActive obj = liftIO $ B.Properties.getObjectPropertyBool obj "active"--{- |-Set the value of the “@active@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socketService [ #active 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketServiceActive :: (MonadIO m, IsSocketService o) => o -> Bool -> m ()-setSocketServiceActive obj val = liftIO $ B.Properties.setObjectPropertyBool obj "active" val--{- |-Construct a `GValueConstruct` with valid value for the “@active@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketServiceActive :: (IsSocketService o) => Bool -> IO (GValueConstruct o)-constructSocketServiceActive val = B.Properties.constructObjectPropertyBool "active" val--#if ENABLE_OVERLOADING-data SocketServiceActivePropertyInfo-instance AttrInfo SocketServiceActivePropertyInfo where-    type AttrAllowedOps SocketServiceActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketServiceActivePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketServiceActivePropertyInfo = IsSocketService-    type AttrGetType SocketServiceActivePropertyInfo = Bool-    type AttrLabel SocketServiceActivePropertyInfo = "active"-    type AttrOrigin SocketServiceActivePropertyInfo = SocketService-    attrGet _ = getSocketServiceActive-    attrSet _ = setSocketServiceActive-    attrConstruct _ = constructSocketServiceActive-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SocketService-type instance O.AttributeList SocketService = SocketServiceAttributeList-type SocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listenBacklog", Gio.SocketListener.SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-socketServiceActive :: AttrLabelProxy "active"-socketServiceActive = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data SocketServiceIncomingSignalInfo-instance SignalInfo SocketServiceIncomingSignalInfo where-    type HaskellCallbackType SocketServiceIncomingSignalInfo = SocketServiceIncomingCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SocketServiceIncomingCallback cb-        cb'' <- mk_SocketServiceIncomingCallback cb'-        connectSignalFunPtr obj "incoming" cb'' connectMode--type instance O.SignalList SocketService = SocketServiceSignalList-type SocketServiceSignalList = ('[ '("event", Gio.SocketListener.SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SocketService::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketService"}))--- throws : False--- Skip return : False--foreign import ccall "g_socket_service_new" g_socket_service_new :: -    IO (Ptr SocketService)--{- |-Creates a new 'GI.Gio.Objects.SocketService.SocketService' with no sockets to listen for.-New listeners can be added with e.g. 'GI.Gio.Objects.SocketListener.socketListenerAddAddress'-or 'GI.Gio.Objects.SocketListener.socketListenerAddInetPort'.--New services are created active, there is no need to call-'GI.Gio.Objects.SocketService.socketServiceStart', unless 'GI.Gio.Objects.SocketService.socketServiceStop' has been-called before.--/Since: 2.22/--}-socketServiceNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m SocketService-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SocketService.SocketService'. -}-socketServiceNew  = liftIO $ do-    result <- g_socket_service_new-    checkUnexpectedReturnNULL "socketServiceNew" result-    result' <- (wrapObject SocketService) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method SocketService::is_active--- method type : OrdinaryMethod--- Args : [Arg {argCName = "service", argType = TInterface (Name {namespace = "Gio", name = "SocketService"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketService", 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 "g_socket_service_is_active" g_socket_service_is_active :: -    Ptr SocketService ->                    -- service : TInterface (Name {namespace = "Gio", name = "SocketService"})-    IO CInt--{- |-Check whether the service is active or not. An active-service will accept new clients that connect, while-a non-active service will let connecting clients queue-up until the service is started.--/Since: 2.22/--}-socketServiceIsActive ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketService a) =>-    a-    {- ^ /@service@/: a 'GI.Gio.Objects.SocketService.SocketService' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the service is active, 'False' otherwise -}-socketServiceIsActive service = liftIO $ do-    service' <- unsafeManagedPtrCastPtr service-    result <- g_socket_service_is_active service'-    let result' = (/= 0) result-    touchManagedPtr service-    return result'--#if ENABLE_OVERLOADING-data SocketServiceIsActiveMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocketService a) => O.MethodInfo SocketServiceIsActiveMethodInfo a signature where-    overloadedMethod _ = socketServiceIsActive--#endif---- method SocketService::start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "service", argType = TInterface (Name {namespace = "Gio", name = "SocketService"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketService", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_service_start" g_socket_service_start :: -    Ptr SocketService ->                    -- service : TInterface (Name {namespace = "Gio", name = "SocketService"})-    IO ()--{- |-Restarts the service, i.e. start accepting connections-from the added sockets when the mainloop runs. This only needs-to be called after the service has been stopped from-'GI.Gio.Objects.SocketService.socketServiceStop'.--This call is thread-safe, so it may be called from a thread-handling an incoming client request.--/Since: 2.22/--}-socketServiceStart ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketService a) =>-    a-    {- ^ /@service@/: a 'GI.Gio.Objects.SocketService.SocketService' -}-    -> m ()-socketServiceStart service = liftIO $ do-    service' <- unsafeManagedPtrCastPtr service-    g_socket_service_start service'-    touchManagedPtr service-    return ()--#if ENABLE_OVERLOADING-data SocketServiceStartMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSocketService a) => O.MethodInfo SocketServiceStartMethodInfo a signature where-    overloadedMethod _ = socketServiceStart--#endif---- method SocketService::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "service", argType = TInterface (Name {namespace = "Gio", name = "SocketService"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketService", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_socket_service_stop" g_socket_service_stop :: -    Ptr SocketService ->                    -- service : TInterface (Name {namespace = "Gio", name = "SocketService"})-    IO ()--{- |-Stops the service, i.e. stops accepting connections-from the added sockets when the mainloop runs.--This call is thread-safe, so it may be called from a thread-handling an incoming client request.--Note that this only stops accepting new connections; it does not-close the listening sockets, and you can call-'GI.Gio.Objects.SocketService.socketServiceStart' again later to begin listening again. To-close the listening sockets, call 'GI.Gio.Objects.SocketListener.socketListenerClose'. (This-will happen automatically when the 'GI.Gio.Objects.SocketService.SocketService' is finalized.)--This must be called before calling 'GI.Gio.Objects.SocketListener.socketListenerClose' as-the socket service will start accepting connections immediately-when a new socket is added.--/Since: 2.22/--}-socketServiceStop ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocketService a) =>-    a-    {- ^ /@service@/: a 'GI.Gio.Objects.SocketService.SocketService' -}-    -> m ()-socketServiceStop service = liftIO $ do-    service' <- unsafeManagedPtrCastPtr service-    g_socket_service_stop service'-    touchManagedPtr service-    return ()--#if ENABLE_OVERLOADING-data SocketServiceStopMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSocketService a) => O.MethodInfo SocketServiceStopMethodInfo a signature where-    overloadedMethod _ = socketServiceStop--#endif--
− GI/Gio/Objects/SocketService.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SocketService 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 SocketService = SocketService (ManagedPtr SocketService)-instance GObject SocketService where-class (GObject o, O.IsDescendantOf SocketService o) => IsSocketService o-instance (GObject o, O.IsDescendantOf SocketService o) => IsSocketService o-instance O.HasParentTypes SocketService-#if ENABLE_OVERLOADING-data SocketServiceActivePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketServiceIncomingSignalInfo-#endif-#if ENABLE_OVERLOADING-data SocketServiceIsActiveMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketServiceStartMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketServiceStopMethodInfo-#endif
− GI/Gio/Objects/Subprocess.hs 
@@ -1,1808 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.Subprocess.Subprocess' allows the creation of and interaction with child-processes.--Processes can be communicated with using standard GIO-style APIs (ie:-'GI.Gio.Objects.InputStream.InputStream', 'GI.Gio.Objects.OutputStream.OutputStream').  There are GIO-style APIs to wait for-process termination (ie: cancellable and with an asynchronous-variant).--There is an API to force a process to terminate, as well as a-race-free API for sending UNIX signals to a subprocess.--One major advantage that GIO brings over the core GLib library is-comprehensive API for asynchronous I\/O, such-'GI.Gio.Objects.OutputStream.outputStreamSpliceAsync'.  This makes GSubprocess-significantly more powerful and flexible than equivalent APIs in-some other languages such as the @subprocess.py@-included with Python.  For example, using 'GI.Gio.Objects.Subprocess.Subprocess' one could-create two child processes, reading standard output from the first,-processing it, and writing to the input stream of the second, all-without blocking the main loop.--A powerful 'GI.Gio.Objects.Subprocess.subprocessCommunicate' API is provided similar to the-@communicate()@ method of @subprocess.py@. This enables very easy-interaction with a subprocess that has been opened with pipes.--'GI.Gio.Objects.Subprocess.Subprocess' defaults to tight control over the file descriptors open-in the child process, avoiding dangling-fd issues that are caused by-a simple @/fork()/@\/@/exec()/@.  The only open file descriptors in the-spawned process are ones that were explicitly specified by the-'GI.Gio.Objects.Subprocess.Subprocess' API (unless 'GI.Gio.Flags.SubprocessFlagsInheritFds' was-specified).--'GI.Gio.Objects.Subprocess.Subprocess' will quickly reap all child processes as they exit,-avoiding \"zombie processes\" remaining around for long periods of-time.  'GI.Gio.Objects.Subprocess.subprocessWait' can be used to wait for this to happen,-but it will happen even without the call being explicitly made.--As a matter of principle, 'GI.Gio.Objects.Subprocess.Subprocess' has no API that accepts-shell-style space-separated strings.  It will, however, match the-typical shell behaviour of searching the PATH for executables that do-not contain a directory separator in their name.--'GI.Gio.Objects.Subprocess.Subprocess' attempts to have a very simple API for most uses (ie:-spawning a subprocess with arguments and support for most typical-kinds of input and output redirection).  See @/g_subprocess_new()/@. The-'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' API is provided for more complicated cases-(advanced types of redirection, environment variable manipulation,-change of working directory, child setup functions, etc).--A typical use of 'GI.Gio.Objects.Subprocess.Subprocess' will involve calling-@/g_subprocess_new()/@, followed by 'GI.Gio.Objects.Subprocess.subprocessWaitAsync' or-'GI.Gio.Objects.Subprocess.subprocessWait'.  After the process exits, the status can be-checked using functions such as 'GI.Gio.Objects.Subprocess.subprocessGetIfExited' (which-are similar to the familiar WIFEXITED-style POSIX macros).--/Since: 2.40/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Subprocess-    ( ---- * Exported types-    Subprocess(..)                          ,-    IsSubprocess                            ,-    toSubprocess                            ,-    noSubprocess                            ,--- -- * Methods--- ** communicate #method:communicate#--#if ENABLE_OVERLOADING-    SubprocessCommunicateMethodInfo         ,-#endif-    subprocessCommunicate                   ,----- ** communicateAsync #method:communicateAsync#--#if ENABLE_OVERLOADING-    SubprocessCommunicateAsyncMethodInfo    ,-#endif-    subprocessCommunicateAsync              ,----- ** communicateFinish #method:communicateFinish#--#if ENABLE_OVERLOADING-    SubprocessCommunicateFinishMethodInfo   ,-#endif-    subprocessCommunicateFinish             ,----- ** communicateUtf8 #method:communicateUtf8#--#if ENABLE_OVERLOADING-    SubprocessCommunicateUtf8MethodInfo     ,-#endif-    subprocessCommunicateUtf8               ,----- ** communicateUtf8Async #method:communicateUtf8Async#--#if ENABLE_OVERLOADING-    SubprocessCommunicateUtf8AsyncMethodInfo,-#endif-    subprocessCommunicateUtf8Async          ,----- ** communicateUtf8Finish #method:communicateUtf8Finish#--#if ENABLE_OVERLOADING-    SubprocessCommunicateUtf8FinishMethodInfo,-#endif-    subprocessCommunicateUtf8Finish         ,----- ** forceExit #method:forceExit#--#if ENABLE_OVERLOADING-    SubprocessForceExitMethodInfo           ,-#endif-    subprocessForceExit                     ,----- ** getExitStatus #method:getExitStatus#--#if ENABLE_OVERLOADING-    SubprocessGetExitStatusMethodInfo       ,-#endif-    subprocessGetExitStatus                 ,----- ** getIdentifier #method:getIdentifier#--#if ENABLE_OVERLOADING-    SubprocessGetIdentifierMethodInfo       ,-#endif-    subprocessGetIdentifier                 ,----- ** getIfExited #method:getIfExited#--#if ENABLE_OVERLOADING-    SubprocessGetIfExitedMethodInfo         ,-#endif-    subprocessGetIfExited                   ,----- ** getIfSignaled #method:getIfSignaled#--#if ENABLE_OVERLOADING-    SubprocessGetIfSignaledMethodInfo       ,-#endif-    subprocessGetIfSignaled                 ,----- ** getStatus #method:getStatus#--#if ENABLE_OVERLOADING-    SubprocessGetStatusMethodInfo           ,-#endif-    subprocessGetStatus                     ,----- ** getStderrPipe #method:getStderrPipe#--#if ENABLE_OVERLOADING-    SubprocessGetStderrPipeMethodInfo       ,-#endif-    subprocessGetStderrPipe                 ,----- ** getStdinPipe #method:getStdinPipe#--#if ENABLE_OVERLOADING-    SubprocessGetStdinPipeMethodInfo        ,-#endif-    subprocessGetStdinPipe                  ,----- ** getStdoutPipe #method:getStdoutPipe#--#if ENABLE_OVERLOADING-    SubprocessGetStdoutPipeMethodInfo       ,-#endif-    subprocessGetStdoutPipe                 ,----- ** getSuccessful #method:getSuccessful#--#if ENABLE_OVERLOADING-    SubprocessGetSuccessfulMethodInfo       ,-#endif-    subprocessGetSuccessful                 ,----- ** getTermSig #method:getTermSig#--#if ENABLE_OVERLOADING-    SubprocessGetTermSigMethodInfo          ,-#endif-    subprocessGetTermSig                    ,----- ** new #method:new#--    subprocessNew                           ,----- ** sendSignal #method:sendSignal#--#if ENABLE_OVERLOADING-    SubprocessSendSignalMethodInfo          ,-#endif-    subprocessSendSignal                    ,----- ** wait #method:wait#--#if ENABLE_OVERLOADING-    SubprocessWaitMethodInfo                ,-#endif-    subprocessWait                          ,----- ** waitAsync #method:waitAsync#--#if ENABLE_OVERLOADING-    SubprocessWaitAsyncMethodInfo           ,-#endif-    subprocessWaitAsync                     ,----- ** waitCheck #method:waitCheck#--#if ENABLE_OVERLOADING-    SubprocessWaitCheckMethodInfo           ,-#endif-    subprocessWaitCheck                     ,----- ** waitCheckAsync #method:waitCheckAsync#--#if ENABLE_OVERLOADING-    SubprocessWaitCheckAsyncMethodInfo      ,-#endif-    subprocessWaitCheckAsync                ,----- ** waitCheckFinish #method:waitCheckFinish#--#if ENABLE_OVERLOADING-    SubprocessWaitCheckFinishMethodInfo     ,-#endif-    subprocessWaitCheckFinish               ,----- ** waitFinish #method:waitFinish#--#if ENABLE_OVERLOADING-    SubprocessWaitFinishMethodInfo          ,-#endif-    subprocessWaitFinish                    ,----- -- * Properties--- ** argv #attr:argv#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SubprocessArgvPropertyInfo              ,-#endif-    constructSubprocessArgv                 ,-#if ENABLE_OVERLOADING-    subprocessArgv                          ,-#endif----- ** flags #attr:flags#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SubprocessFlagsPropertyInfo             ,-#endif-    constructSubprocessFlags                ,-#if ENABLE_OVERLOADING-    subprocessFlags                         ,-#endif-----    ) 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.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype Subprocess = Subprocess (ManagedPtr Subprocess)-foreign import ccall "g_subprocess_get_type"-    c_g_subprocess_get_type :: IO GType--instance GObject Subprocess where-    gobjectType = c_g_subprocess_get_type-    ---- | Type class for types which can be safely cast to `Subprocess`, for instance with `toSubprocess`.-class (GObject o, O.IsDescendantOf Subprocess o) => IsSubprocess o-instance (GObject o, O.IsDescendantOf Subprocess o) => IsSubprocess o--instance O.HasParentTypes Subprocess-type instance O.ParentTypes Subprocess = '[GObject.Object.Object, Gio.Initable.Initable]---- | Cast to `Subprocess`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSubprocess :: (MonadIO m, IsSubprocess o) => o -> m Subprocess-toSubprocess = liftIO . unsafeCastTo Subprocess---- | A convenience alias for `Nothing` :: `Maybe` `Subprocess`.-noSubprocess :: Maybe Subprocess-noSubprocess = Nothing--#if ENABLE_OVERLOADING-type family ResolveSubprocessMethod (t :: Symbol) (o :: *) :: * where-    ResolveSubprocessMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSubprocessMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSubprocessMethod "communicate" o = SubprocessCommunicateMethodInfo-    ResolveSubprocessMethod "communicateAsync" o = SubprocessCommunicateAsyncMethodInfo-    ResolveSubprocessMethod "communicateFinish" o = SubprocessCommunicateFinishMethodInfo-    ResolveSubprocessMethod "communicateUtf8" o = SubprocessCommunicateUtf8MethodInfo-    ResolveSubprocessMethod "communicateUtf8Async" o = SubprocessCommunicateUtf8AsyncMethodInfo-    ResolveSubprocessMethod "communicateUtf8Finish" o = SubprocessCommunicateUtf8FinishMethodInfo-    ResolveSubprocessMethod "forceExit" o = SubprocessForceExitMethodInfo-    ResolveSubprocessMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSubprocessMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSubprocessMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSubprocessMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveSubprocessMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSubprocessMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSubprocessMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSubprocessMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSubprocessMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSubprocessMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSubprocessMethod "sendSignal" o = SubprocessSendSignalMethodInfo-    ResolveSubprocessMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSubprocessMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSubprocessMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSubprocessMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSubprocessMethod "wait" o = SubprocessWaitMethodInfo-    ResolveSubprocessMethod "waitAsync" o = SubprocessWaitAsyncMethodInfo-    ResolveSubprocessMethod "waitCheck" o = SubprocessWaitCheckMethodInfo-    ResolveSubprocessMethod "waitCheckAsync" o = SubprocessWaitCheckAsyncMethodInfo-    ResolveSubprocessMethod "waitCheckFinish" o = SubprocessWaitCheckFinishMethodInfo-    ResolveSubprocessMethod "waitFinish" o = SubprocessWaitFinishMethodInfo-    ResolveSubprocessMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSubprocessMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSubprocessMethod "getExitStatus" o = SubprocessGetExitStatusMethodInfo-    ResolveSubprocessMethod "getIdentifier" o = SubprocessGetIdentifierMethodInfo-    ResolveSubprocessMethod "getIfExited" o = SubprocessGetIfExitedMethodInfo-    ResolveSubprocessMethod "getIfSignaled" o = SubprocessGetIfSignaledMethodInfo-    ResolveSubprocessMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSubprocessMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSubprocessMethod "getStatus" o = SubprocessGetStatusMethodInfo-    ResolveSubprocessMethod "getStderrPipe" o = SubprocessGetStderrPipeMethodInfo-    ResolveSubprocessMethod "getStdinPipe" o = SubprocessGetStdinPipeMethodInfo-    ResolveSubprocessMethod "getStdoutPipe" o = SubprocessGetStdoutPipeMethodInfo-    ResolveSubprocessMethod "getSuccessful" o = SubprocessGetSuccessfulMethodInfo-    ResolveSubprocessMethod "getTermSig" o = SubprocessGetTermSigMethodInfo-    ResolveSubprocessMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSubprocessMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSubprocessMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSubprocessMethod t Subprocess, O.MethodInfo info Subprocess p) => OL.IsLabel t (Subprocess -> 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---- VVV Prop "argv"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@argv@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSubprocessArgv :: (IsSubprocess o) => [T.Text] -> IO (GValueConstruct o)-constructSubprocessArgv val = B.Properties.constructObjectPropertyStringArray "argv" (Just val)--#if ENABLE_OVERLOADING-data SubprocessArgvPropertyInfo-instance AttrInfo SubprocessArgvPropertyInfo where-    type AttrAllowedOps SubprocessArgvPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint SubprocessArgvPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint SubprocessArgvPropertyInfo = IsSubprocess-    type AttrGetType SubprocessArgvPropertyInfo = ()-    type AttrLabel SubprocessArgvPropertyInfo = "argv"-    type AttrOrigin SubprocessArgvPropertyInfo = Subprocess-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSubprocessArgv-    attrClear _ = undefined-#endif---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "SubprocessFlags"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSubprocessFlags :: (IsSubprocess o) => [Gio.Flags.SubprocessFlags] -> IO (GValueConstruct o)-constructSubprocessFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data SubprocessFlagsPropertyInfo-instance AttrInfo SubprocessFlagsPropertyInfo where-    type AttrAllowedOps SubprocessFlagsPropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint SubprocessFlagsPropertyInfo = (~) [Gio.Flags.SubprocessFlags]-    type AttrBaseTypeConstraint SubprocessFlagsPropertyInfo = IsSubprocess-    type AttrGetType SubprocessFlagsPropertyInfo = ()-    type AttrLabel SubprocessFlagsPropertyInfo = "flags"-    type AttrOrigin SubprocessFlagsPropertyInfo = Subprocess-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSubprocessFlags-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Subprocess-type instance O.AttributeList Subprocess = SubprocessAttributeList-type SubprocessAttributeList = ('[ '("argv", SubprocessArgvPropertyInfo), '("flags", SubprocessFlagsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-subprocessArgv :: AttrLabelProxy "argv"-subprocessArgv = AttrLabelProxy--subprocessFlags :: AttrLabelProxy "flags"-subprocessFlags = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Subprocess = SubprocessSignalList-type SubprocessSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Subprocess::new--- method type : Constructor--- Args : [Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "commandline arguments for the subprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "SubprocessFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags that define the behaviour of the subprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Subprocess"}))--- throws : True--- Skip return : False--foreign import ccall "g_subprocess_newv" g_subprocess_newv :: -    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TFileName)-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "SubprocessFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Subprocess)--{- |-Create a new process with the given flags and argument list.--The argument list is expected to be 'Nothing'-terminated.--/Since: 2.40/--}-subprocessNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [[Char]]-    {- ^ /@argv@/: commandline arguments for the subprocess -}-    -> [Gio.Flags.SubprocessFlags]-    {- ^ /@flags@/: flags that define the behaviour of the subprocess -}-    -> m Subprocess-    {- ^ __Returns:__ A newly created 'GI.Gio.Objects.Subprocess.Subprocess', or 'Nothing' on error (and /@error@/-  will be set) /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessNew argv flags = liftIO $ do-    argv' <- packZeroTerminatedFileNameArray argv-    let flags' = gflagsToWord flags-    onException (do-        result <- propagateGError $ g_subprocess_newv argv' flags'-        checkUnexpectedReturnNULL "subprocessNew" result-        result' <- (wrapObject Subprocess) result-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        return result'-     ) (do-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-     )--#if ENABLE_OVERLOADING-#endif---- method Subprocess::communicate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to send to the stdin of the subprocess, or %NULL", 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", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data read from the subprocess stdout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data read from the subprocess stderr", 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 "g_subprocess_communicate" g_subprocess_communicate :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Ptr GLib.Bytes.Bytes ->                 -- stdin_buf : TInterface (Name {namespace = "GLib", name = "Bytes"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GLib.Bytes.Bytes) ->           -- stdout_buf : TInterface (Name {namespace = "GLib", name = "Bytes"})-    Ptr (Ptr GLib.Bytes.Bytes) ->           -- stderr_buf : TInterface (Name {namespace = "GLib", name = "Bytes"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Communicate with the subprocess until it terminates, and all input-and output has been completed.--If /@stdinBuf@/ is given, the subprocess must have been created with-'GI.Gio.Flags.SubprocessFlagsStdinPipe'.  The given data is fed to the-stdin of the subprocess and the pipe is closed (ie: EOF).--At the same time (as not to cause blocking when dealing with large-amounts of data), if 'GI.Gio.Flags.SubprocessFlagsStdoutPipe' or-'GI.Gio.Flags.SubprocessFlagsStderrPipe' were used, reads from those-streams.  The data that was read is returned in /@stdout@/ and\/or-the /@stderr@/.--If the subprocess was created with 'GI.Gio.Flags.SubprocessFlagsStdoutPipe',-/@stdoutBuf@/ will contain the data read from stdout.  Otherwise, for-subprocesses not created with 'GI.Gio.Flags.SubprocessFlagsStdoutPipe',-/@stdoutBuf@/ will be set to 'Nothing'.  Similar provisions apply to-/@stderrBuf@/ and 'GI.Gio.Flags.SubprocessFlagsStderrPipe'.--As usual, any output variable may be given as 'Nothing' to ignore it.--If you desire the stdout and stderr data to be interleaved, create-the subprocess with 'GI.Gio.Flags.SubprocessFlagsStdoutPipe' and-'GI.Gio.Flags.SubprocessFlagsStderrMerge'.  The merged result will be returned-in /@stdoutBuf@/ and /@stderrBuf@/ will be set to 'Nothing'.--In case of any error (including cancellation), 'False' will be-returned with /@error@/ set.  Some or all of the stdin data may have-been written.  Any stdout or stderr data that has been read will be-discarded. None of the out variables (aside from /@error@/) will have-been set to anything in particular and should not be inspected.--In the case that 'True' is returned, the subprocess has exited and the-exit status inspection APIs (eg: 'GI.Gio.Objects.Subprocess.subprocessGetIfExited',-'GI.Gio.Objects.Subprocess.subprocessGetExitStatus') may be used.--You should not attempt to use any of the subprocess pipes after-starting this function, since they may be left in strange states,-even if the operation was cancelled.  You should especially not-attempt to interact with the pipes while the operation is in progress-(either from another thread or if using the asynchronous version).--/Since: 2.40/--}-subprocessCommunicate ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> Maybe (GLib.Bytes.Bytes)-    {- ^ /@stdinBuf@/: data to send to the stdin of the subprocess, or 'Nothing' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m ((Maybe GLib.Bytes.Bytes, Maybe GLib.Bytes.Bytes))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessCommunicate subprocess stdinBuf cancellable = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    maybeStdinBuf <- case stdinBuf of-        Nothing -> return nullPtr-        Just jStdinBuf -> do-            jStdinBuf' <- unsafeManagedPtrGetPtr jStdinBuf-            return jStdinBuf'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    stdoutBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes.Bytes))-    stderrBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes.Bytes))-    onException (do-        _ <- propagateGError $ g_subprocess_communicate subprocess' maybeStdinBuf maybeCancellable stdoutBuf stderrBuf-        stdoutBuf' <- peek stdoutBuf-        maybeStdoutBuf' <- convertIfNonNull stdoutBuf' $ \stdoutBuf'' -> do-            stdoutBuf''' <- (wrapBoxed GLib.Bytes.Bytes) stdoutBuf''-            return stdoutBuf'''-        stderrBuf' <- peek stderrBuf-        maybeStderrBuf' <- convertIfNonNull stderrBuf' $ \stderrBuf'' -> do-            stderrBuf''' <- (wrapBoxed GLib.Bytes.Bytes) stderrBuf''-            return stderrBuf'''-        touchManagedPtr subprocess-        whenJust stdinBuf touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem stdoutBuf-        freeMem stderrBuf-        return (maybeStdoutBuf', maybeStderrBuf')-     ) (do-        freeMem stdoutBuf-        freeMem stderrBuf-     )--#if ENABLE_OVERLOADING-data SubprocessCommunicateMethodInfo-instance (signature ~ (Maybe (GLib.Bytes.Bytes) -> Maybe (b) -> m ((Maybe GLib.Bytes.Bytes, Maybe GLib.Bytes.Bytes))), MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SubprocessCommunicateMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicate--#endif---- method Subprocess::communicate_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Self", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Input data, or %NULL", 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 "Callback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, 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 = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_communicate_async" g_subprocess_communicate_async :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Ptr GLib.Bytes.Bytes ->                 -- stdin_buf : TInterface (Name {namespace = "GLib", name = "Bytes"})-    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 ()--{- |-Asynchronous version of 'GI.Gio.Objects.Subprocess.subprocessCommunicate'.  Complete-invocation with 'GI.Gio.Objects.Subprocess.subprocessCommunicateFinish'.--}-subprocessCommunicateAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@subprocess@/: Self -}-    -> Maybe (GLib.Bytes.Bytes)-    {- ^ /@stdinBuf@/: Input data, or 'Nothing' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: Cancellable -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: Callback -}-    -> m ()-subprocessCommunicateAsync subprocess stdinBuf cancellable callback = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    maybeStdinBuf <- case stdinBuf of-        Nothing -> return nullPtr-        Just jStdinBuf -> do-            jStdinBuf' <- unsafeManagedPtrGetPtr jStdinBuf-            return jStdinBuf'-    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-    g_subprocess_communicate_async subprocess' maybeStdinBuf maybeCancellable maybeCallback userData-    touchManagedPtr subprocess-    whenJust stdinBuf touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SubprocessCommunicateAsyncMethodInfo-instance (signature ~ (Maybe (GLib.Bytes.Bytes) -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SubprocessCommunicateAsyncMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateAsync--#endif---- method Subprocess::communicate_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Self", 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 "Result", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Return location for stdout data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Return location for stderr data", 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 "g_subprocess_communicate_finish" g_subprocess_communicate_finish :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GLib.Bytes.Bytes) ->           -- stdout_buf : TInterface (Name {namespace = "GLib", name = "Bytes"})-    Ptr (Ptr GLib.Bytes.Bytes) ->           -- stderr_buf : TInterface (Name {namespace = "GLib", name = "Bytes"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Complete an invocation of 'GI.Gio.Objects.Subprocess.subprocessCommunicateAsync'.--}-subprocessCommunicateFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@subprocess@/: Self -}-    -> b-    {- ^ /@result@/: Result -}-    -> m ((Maybe GLib.Bytes.Bytes, Maybe GLib.Bytes.Bytes))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessCommunicateFinish subprocess result_ = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result_' <- unsafeManagedPtrCastPtr result_-    stdoutBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes.Bytes))-    stderrBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes.Bytes))-    onException (do-        _ <- propagateGError $ g_subprocess_communicate_finish subprocess' result_' stdoutBuf stderrBuf-        stdoutBuf' <- peek stdoutBuf-        maybeStdoutBuf' <- convertIfNonNull stdoutBuf' $ \stdoutBuf'' -> do-            stdoutBuf''' <- (wrapBoxed GLib.Bytes.Bytes) stdoutBuf''-            return stdoutBuf'''-        stderrBuf' <- peek stderrBuf-        maybeStderrBuf' <- convertIfNonNull stderrBuf' $ \stderrBuf'' -> do-            stderrBuf''' <- (wrapBoxed GLib.Bytes.Bytes) stderrBuf''-            return stderrBuf'''-        touchManagedPtr subprocess-        touchManagedPtr result_-        freeMem stdoutBuf-        freeMem stderrBuf-        return (maybeStdoutBuf', maybeStderrBuf')-     ) (do-        freeMem stdoutBuf-        freeMem stderrBuf-     )--#if ENABLE_OVERLOADING-data SubprocessCommunicateFinishMethodInfo-instance (signature ~ (b -> m ((Maybe GLib.Bytes.Bytes, Maybe GLib.Bytes.Bytes))), MonadIO m, IsSubprocess a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SubprocessCommunicateFinishMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateFinish--#endif---- method Subprocess::communicate_utf8--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to send to the stdin of the subprocess, or %NULL", 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", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data read from the subprocess stdout", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data read from the subprocess stderr", 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 "g_subprocess_communicate_utf8" g_subprocess_communicate_utf8 :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    CString ->                              -- stdin_buf : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr CString ->                          -- stdout_buf : TBasicType TUTF8-    Ptr CString ->                          -- stderr_buf : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Like 'GI.Gio.Objects.Subprocess.subprocessCommunicate', but validates the output of the-process as UTF-8, and returns it as a regular NUL terminated string.--On error, /@stdoutBuf@/ and /@stderrBuf@/ will be set to undefined values and-should not be used.--}-subprocessCommunicateUtf8 ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> Maybe (T.Text)-    {- ^ /@stdinBuf@/: data to send to the stdin of the subprocess, or 'Nothing' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m ((Maybe T.Text, Maybe T.Text))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessCommunicateUtf8 subprocess stdinBuf cancellable = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    maybeStdinBuf <- case stdinBuf of-        Nothing -> return nullPtr-        Just jStdinBuf -> do-            jStdinBuf' <- textToCString jStdinBuf-            return jStdinBuf'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    stdoutBuf <- allocMem :: IO (Ptr CString)-    stderrBuf <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_subprocess_communicate_utf8 subprocess' maybeStdinBuf maybeCancellable stdoutBuf stderrBuf-        stdoutBuf' <- peek stdoutBuf-        maybeStdoutBuf' <- convertIfNonNull stdoutBuf' $ \stdoutBuf'' -> do-            stdoutBuf''' <- cstringToText stdoutBuf''-            return stdoutBuf'''-        freeMem stdoutBuf'-        stderrBuf' <- peek stderrBuf-        maybeStderrBuf' <- convertIfNonNull stderrBuf' $ \stderrBuf'' -> do-            stderrBuf''' <- cstringToText stderrBuf''-            return stderrBuf'''-        freeMem stderrBuf'-        touchManagedPtr subprocess-        whenJust cancellable touchManagedPtr-        freeMem maybeStdinBuf-        freeMem stdoutBuf-        freeMem stderrBuf-        return (maybeStdoutBuf', maybeStderrBuf')-     ) (do-        freeMem maybeStdinBuf-        freeMem stdoutBuf-        freeMem stderrBuf-     )--#if ENABLE_OVERLOADING-data SubprocessCommunicateUtf8MethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m ((Maybe T.Text, Maybe T.Text))), MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SubprocessCommunicateUtf8MethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateUtf8--#endif---- method Subprocess::communicate_utf8_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Self", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Input data, or %NULL", 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 "Callback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, 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 = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_communicate_utf8_async" g_subprocess_communicate_utf8_async :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    CString ->                              -- stdin_buf : TBasicType TUTF8-    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 ()--{- |-Asynchronous version of 'GI.Gio.Objects.Subprocess.subprocessCommunicateUtf8'.  Complete-invocation with 'GI.Gio.Objects.Subprocess.subprocessCommunicateUtf8Finish'.--}-subprocessCommunicateUtf8Async ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@subprocess@/: Self -}-    -> Maybe (T.Text)-    {- ^ /@stdinBuf@/: Input data, or 'Nothing' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: Cancellable -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: Callback -}-    -> m ()-subprocessCommunicateUtf8Async subprocess stdinBuf cancellable callback = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    maybeStdinBuf <- case stdinBuf of-        Nothing -> return nullPtr-        Just jStdinBuf -> do-            jStdinBuf' <- textToCString jStdinBuf-            return jStdinBuf'-    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-    g_subprocess_communicate_utf8_async subprocess' maybeStdinBuf maybeCancellable maybeCallback userData-    touchManagedPtr subprocess-    whenJust cancellable touchManagedPtr-    freeMem maybeStdinBuf-    return ()--#if ENABLE_OVERLOADING-data SubprocessCommunicateUtf8AsyncMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SubprocessCommunicateUtf8AsyncMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateUtf8Async--#endif---- method Subprocess::communicate_utf8_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Self", 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 "Result", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Return location for stdout data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "Return location for stderr data", 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 "g_subprocess_communicate_utf8_finish" g_subprocess_communicate_utf8_finish :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr CString ->                          -- stdout_buf : TBasicType TUTF8-    Ptr CString ->                          -- stderr_buf : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Complete an invocation of 'GI.Gio.Objects.Subprocess.subprocessCommunicateUtf8Async'.--}-subprocessCommunicateUtf8Finish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@subprocess@/: Self -}-    -> b-    {- ^ /@result@/: Result -}-    -> m ((Maybe T.Text, Maybe T.Text))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessCommunicateUtf8Finish subprocess result_ = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result_' <- unsafeManagedPtrCastPtr result_-    stdoutBuf <- allocMem :: IO (Ptr CString)-    stderrBuf <- allocMem :: IO (Ptr CString)-    onException (do-        _ <- propagateGError $ g_subprocess_communicate_utf8_finish subprocess' result_' stdoutBuf stderrBuf-        stdoutBuf' <- peek stdoutBuf-        maybeStdoutBuf' <- convertIfNonNull stdoutBuf' $ \stdoutBuf'' -> do-            stdoutBuf''' <- cstringToText stdoutBuf''-            return stdoutBuf'''-        freeMem stdoutBuf'-        stderrBuf' <- peek stderrBuf-        maybeStderrBuf' <- convertIfNonNull stderrBuf' $ \stderrBuf'' -> do-            stderrBuf''' <- cstringToText stderrBuf''-            return stderrBuf'''-        freeMem stderrBuf'-        touchManagedPtr subprocess-        touchManagedPtr result_-        freeMem stdoutBuf-        freeMem stderrBuf-        return (maybeStdoutBuf', maybeStderrBuf')-     ) (do-        freeMem stdoutBuf-        freeMem stderrBuf-     )--#if ENABLE_OVERLOADING-data SubprocessCommunicateUtf8FinishMethodInfo-instance (signature ~ (b -> m ((Maybe T.Text, Maybe T.Text))), MonadIO m, IsSubprocess a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SubprocessCommunicateUtf8FinishMethodInfo a signature where-    overloadedMethod _ = subprocessCommunicateUtf8Finish--#endif---- method Subprocess::force_exit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_force_exit" g_subprocess_force_exit :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO ()--{- |-Use an operating-system specific method to attempt an immediate,-forceful termination of the process.  There is no mechanism to-determine whether or not the request itself was successful;-however, you can use 'GI.Gio.Objects.Subprocess.subprocessWait' to monitor the status of-the process after calling this function.--On Unix, this function sends @/SIGKILL/@.--/Since: 2.40/--}-subprocessForceExit ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m ()-subprocessForceExit subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    g_subprocess_force_exit subprocess'-    touchManagedPtr subprocess-    return ()--#if ENABLE_OVERLOADING-data SubprocessForceExitMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessForceExitMethodInfo a signature where-    overloadedMethod _ = subprocessForceExit--#endif---- method Subprocess::get_exit_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "g_subprocess_get_exit_status" g_subprocess_get_exit_status :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO Int32--{- |-Check the exit status of the subprocess, given that it exited-normally.  This is the value passed to the @/exit()/@ system call or the-return value from main.--This is equivalent to the system WEXITSTATUS macro.--It is an error to call this function before 'GI.Gio.Objects.Subprocess.subprocessWait' and-unless 'GI.Gio.Objects.Subprocess.subprocessGetIfExited' returned 'True'.--/Since: 2.40/--}-subprocessGetExitStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Int32-    {- ^ __Returns:__ the exit status -}-subprocessGetExitStatus subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_exit_status subprocess'-    touchManagedPtr subprocess-    return result--#if ENABLE_OVERLOADING-data SubprocessGetExitStatusMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetExitStatusMethodInfo a signature where-    overloadedMethod _ = subprocessGetExitStatus--#endif---- method Subprocess::get_identifier--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "g_subprocess_get_identifier" g_subprocess_get_identifier :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO CString--{- |-On UNIX, returns the process ID as a decimal string.-On Windows, returns the result of @/GetProcessId()/@ also as a string.--}-subprocessGetIdentifier ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m T.Text-subprocessGetIdentifier subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_identifier subprocess'-    checkUnexpectedReturnNULL "subprocessGetIdentifier" result-    result' <- cstringToText result-    touchManagedPtr subprocess-    return result'--#if ENABLE_OVERLOADING-data SubprocessGetIdentifierMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetIdentifierMethodInfo a signature where-    overloadedMethod _ = subprocessGetIdentifier--#endif---- method Subprocess::get_if_exited--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "g_subprocess_get_if_exited" g_subprocess_get_if_exited :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO CInt--{- |-Check if the given subprocess exited normally (ie: by way of @/exit()/@-or return from @/main()/@).--This is equivalent to the system WIFEXITED macro.--It is an error to call this function before 'GI.Gio.Objects.Subprocess.subprocessWait' has-returned.--/Since: 2.40/--}-subprocessGetIfExited ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the case of a normal exit -}-subprocessGetIfExited subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_if_exited subprocess'-    let result' = (/= 0) result-    touchManagedPtr subprocess-    return result'--#if ENABLE_OVERLOADING-data SubprocessGetIfExitedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetIfExitedMethodInfo a signature where-    overloadedMethod _ = subprocessGetIfExited--#endif---- method Subprocess::get_if_signaled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "g_subprocess_get_if_signaled" g_subprocess_get_if_signaled :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO CInt--{- |-Check if the given subprocess terminated in response to a signal.--This is equivalent to the system WIFSIGNALED macro.--It is an error to call this function before 'GI.Gio.Objects.Subprocess.subprocessWait' has-returned.--/Since: 2.40/--}-subprocessGetIfSignaled ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the case of termination due to a signal -}-subprocessGetIfSignaled subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_if_signaled subprocess'-    let result' = (/= 0) result-    touchManagedPtr subprocess-    return result'--#if ENABLE_OVERLOADING-data SubprocessGetIfSignaledMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetIfSignaledMethodInfo a signature where-    overloadedMethod _ = subprocessGetIfSignaled--#endif---- method Subprocess::get_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "g_subprocess_get_status" g_subprocess_get_status :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO Int32--{- |-Gets the raw status code of the process, as from @/waitpid()/@.--This value has no particular meaning, but it can be used with the-macros defined by the system headers such as WIFEXITED.  It can also-be used with 'GI.GLib.Functions.spawnCheckExitStatus'.--It is more likely that you want to use 'GI.Gio.Objects.Subprocess.subprocessGetIfExited'-followed by 'GI.Gio.Objects.Subprocess.subprocessGetExitStatus'.--It is an error to call this function before 'GI.Gio.Objects.Subprocess.subprocessWait' has-returned.--/Since: 2.40/--}-subprocessGetStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Int32-    {- ^ __Returns:__ the (meaningless) @/waitpid()/@ exit status from the kernel -}-subprocessGetStatus subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_status subprocess'-    touchManagedPtr subprocess-    return result--#if ENABLE_OVERLOADING-data SubprocessGetStatusMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetStatusMethodInfo a signature where-    overloadedMethod _ = subprocessGetStatus--#endif---- method Subprocess::get_stderr_pipe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_get_stderr_pipe" g_subprocess_get_stderr_pipe :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO (Ptr Gio.InputStream.InputStream)--{- |-Gets the 'GI.Gio.Objects.InputStream.InputStream' from which to read the stderr output of-/@subprocess@/.--The process must have been created with-'GI.Gio.Flags.SubprocessFlagsStderrPipe'.--/Since: 2.40/--}-subprocessGetStderrPipe ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ the stderr pipe -}-subprocessGetStderrPipe subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_stderr_pipe subprocess'-    checkUnexpectedReturnNULL "subprocessGetStderrPipe" result-    result' <- (newObject Gio.InputStream.InputStream) result-    touchManagedPtr subprocess-    return result'--#if ENABLE_OVERLOADING-data SubprocessGetStderrPipeMethodInfo-instance (signature ~ (m Gio.InputStream.InputStream), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetStderrPipeMethodInfo a signature where-    overloadedMethod _ = subprocessGetStderrPipe--#endif---- method Subprocess::get_stdin_pipe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "OutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_get_stdin_pipe" g_subprocess_get_stdin_pipe :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO (Ptr Gio.OutputStream.OutputStream)--{- |-Gets the 'GI.Gio.Objects.OutputStream.OutputStream' that you can write to in order to give data-to the stdin of /@subprocess@/.--The process must have been created with-'GI.Gio.Flags.SubprocessFlagsStdinPipe'.--/Since: 2.40/--}-subprocessGetStdinPipe ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Gio.OutputStream.OutputStream-    {- ^ __Returns:__ the stdout pipe -}-subprocessGetStdinPipe subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_stdin_pipe subprocess'-    checkUnexpectedReturnNULL "subprocessGetStdinPipe" result-    result' <- (newObject Gio.OutputStream.OutputStream) result-    touchManagedPtr subprocess-    return result'--#if ENABLE_OVERLOADING-data SubprocessGetStdinPipeMethodInfo-instance (signature ~ (m Gio.OutputStream.OutputStream), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetStdinPipeMethodInfo a signature where-    overloadedMethod _ = subprocessGetStdinPipe--#endif---- method Subprocess::get_stdout_pipe--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_get_stdout_pipe" g_subprocess_get_stdout_pipe :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO (Ptr Gio.InputStream.InputStream)--{- |-Gets the 'GI.Gio.Objects.InputStream.InputStream' from which to read the stdout output of-/@subprocess@/.--The process must have been created with-'GI.Gio.Flags.SubprocessFlagsStdoutPipe'.--/Since: 2.40/--}-subprocessGetStdoutPipe ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ the stdout pipe -}-subprocessGetStdoutPipe subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_stdout_pipe subprocess'-    checkUnexpectedReturnNULL "subprocessGetStdoutPipe" result-    result' <- (newObject Gio.InputStream.InputStream) result-    touchManagedPtr subprocess-    return result'--#if ENABLE_OVERLOADING-data SubprocessGetStdoutPipeMethodInfo-instance (signature ~ (m Gio.InputStream.InputStream), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetStdoutPipeMethodInfo a signature where-    overloadedMethod _ = subprocessGetStdoutPipe--#endif---- method Subprocess::get_successful--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "g_subprocess_get_successful" g_subprocess_get_successful :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO CInt--{- |-Checks if the process was \"successful\".  A process is considered-successful if it exited cleanly with an exit status of 0, either by-way of the @/exit()/@ system call or return from @/main()/@.--It is an error to call this function before 'GI.Gio.Objects.Subprocess.subprocessWait' has-returned.--/Since: 2.40/--}-subprocessGetSuccessful ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the process exited cleanly with a exit status of 0 -}-subprocessGetSuccessful subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_successful subprocess'-    let result' = (/= 0) result-    touchManagedPtr subprocess-    return result'--#if ENABLE_OVERLOADING-data SubprocessGetSuccessfulMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetSuccessfulMethodInfo a signature where-    overloadedMethod _ = subprocessGetSuccessful--#endif---- method Subprocess::get_term_sig--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "g_subprocess_get_term_sig" g_subprocess_get_term_sig :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    IO Int32--{- |-Get the signal number that caused the subprocess to terminate, given-that it terminated due to a signal.--This is equivalent to the system WTERMSIG macro.--It is an error to call this function before 'GI.Gio.Objects.Subprocess.subprocessWait' and-unless 'GI.Gio.Objects.Subprocess.subprocessGetIfSignaled' returned 'True'.--/Since: 2.40/--}-subprocessGetTermSig ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> m Int32-    {- ^ __Returns:__ the signal causing termination -}-subprocessGetTermSig subprocess = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result <- g_subprocess_get_term_sig subprocess'-    touchManagedPtr subprocess-    return result--#if ENABLE_OVERLOADING-data SubprocessGetTermSigMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessGetTermSigMethodInfo a signature where-    overloadedMethod _ = subprocessGetTermSig--#endif---- method Subprocess::send_signal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the signal number to send", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_send_signal" g_subprocess_send_signal :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Int32 ->                                -- signal_num : TBasicType TInt-    IO ()--{- |-Sends the UNIX signal /@signalNum@/ to the subprocess, if it is still-running.--This API is race-free.  If the subprocess has terminated, it will not-be signalled.--This API is not available on Windows.--/Since: 2.40/--}-subprocessSendSignal ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> Int32-    {- ^ /@signalNum@/: the signal number to send -}-    -> m ()-subprocessSendSignal subprocess signalNum = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    g_subprocess_send_signal subprocess' signalNum-    touchManagedPtr subprocess-    return ()--#if ENABLE_OVERLOADING-data SubprocessSendSignalMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsSubprocess a) => O.MethodInfo SubprocessSendSignalMethodInfo a signature where-    overloadedMethod _ = subprocessSendSignal--#endif---- method Subprocess::wait--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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", 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 "g_subprocess_wait" g_subprocess_wait :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Synchronously wait for the subprocess to terminate.--After the process terminates you can query its exit status with-functions such as 'GI.Gio.Objects.Subprocess.subprocessGetIfExited' and-'GI.Gio.Objects.Subprocess.subprocessGetExitStatus'.--This function does not fail in the case of the subprocess having-abnormal termination.  See 'GI.Gio.Objects.Subprocess.subprocessWaitCheck' for that.--Cancelling /@cancellable@/ doesn\'t kill the subprocess.  Call-'GI.Gio.Objects.Subprocess.subprocessForceExit' if it is desirable.--/Since: 2.40/--}-subprocessWait ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessWait subprocess cancellable = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_subprocess_wait subprocess' maybeCancellable-        touchManagedPtr subprocess-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SubprocessWaitMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SubprocessWaitMethodInfo a signature where-    overloadedMethod _ = subprocessWait--#endif---- method Subprocess::wait_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "a #GAsyncReadyCallback to call when the operation is complete", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user_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 "g_subprocess_wait_async" g_subprocess_wait_async :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    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 ()--{- |-Wait for the subprocess to terminate.--This is the asynchronous version of 'GI.Gio.Objects.Subprocess.subprocessWait'.--/Since: 2.40/--}-subprocessWaitAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the operation is complete -}-    -> m ()-subprocessWaitAsync subprocess cancellable callback = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    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-    g_subprocess_wait_async subprocess' maybeCancellable maybeCallback userData-    touchManagedPtr subprocess-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SubprocessWaitAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SubprocessWaitAsyncMethodInfo a signature where-    overloadedMethod _ = subprocessWaitAsync--#endif---- method Subprocess::wait_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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", 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 "g_subprocess_wait_check" g_subprocess_wait_check :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Combines 'GI.Gio.Objects.Subprocess.subprocessWait' with 'GI.GLib.Functions.spawnCheckExitStatus'.--/Since: 2.40/--}-subprocessWaitCheck ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessWaitCheck subprocess cancellable = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_subprocess_wait_check subprocess' maybeCancellable-        touchManagedPtr subprocess-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SubprocessWaitCheckMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SubprocessWaitCheckMethodInfo a signature where-    overloadedMethod _ = subprocessWaitCheck--#endif---- method Subprocess::wait_check_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "a #GAsyncReadyCallback to call when the operation is complete", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user_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 "g_subprocess_wait_check_async" g_subprocess_wait_check_async :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    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 ()--{- |-Combines 'GI.Gio.Objects.Subprocess.subprocessWaitAsync' with 'GI.GLib.Functions.spawnCheckExitStatus'.--This is the asynchronous version of 'GI.Gio.Objects.Subprocess.subprocessWaitCheck'.--/Since: 2.40/--}-subprocessWaitCheckAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the operation is complete -}-    -> m ()-subprocessWaitCheckAsync subprocess cancellable callback = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    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-    g_subprocess_wait_check_async subprocess' maybeCancellable maybeCallback userData-    touchManagedPtr subprocess-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SubprocessWaitCheckAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSubprocess a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SubprocessWaitCheckAsyncMethodInfo a signature where-    overloadedMethod _ = subprocessWaitCheckAsync--#endif---- method Subprocess::wait_check_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "the #GAsyncResult passed to your #GAsyncReadyCallback", 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 "g_subprocess_wait_check_finish" g_subprocess_wait_check_finish :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Collects the result of a previous call to-'GI.Gio.Objects.Subprocess.subprocessWaitCheckAsync'.--/Since: 2.40/--}-subprocessWaitCheckFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessWaitCheckFinish subprocess result_ = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_subprocess_wait_check_finish subprocess' result_'-        touchManagedPtr subprocess-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SubprocessWaitCheckFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSubprocess a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SubprocessWaitCheckFinishMethodInfo a signature where-    overloadedMethod _ = subprocessWaitCheckFinish--#endif---- method Subprocess::wait_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "subprocess", argType = TInterface (Name {namespace = "Gio", name = "Subprocess"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", 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 "the #GAsyncResult passed to your #GAsyncReadyCallback", 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 "g_subprocess_wait_finish" g_subprocess_wait_finish :: -    Ptr Subprocess ->                       -- subprocess : TInterface (Name {namespace = "Gio", name = "Subprocess"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Collects the result of a previous call to-'GI.Gio.Objects.Subprocess.subprocessWaitAsync'.--/Since: 2.40/--}-subprocessWaitFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocess a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@subprocess@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' passed to your 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessWaitFinish subprocess result_ = liftIO $ do-    subprocess' <- unsafeManagedPtrCastPtr subprocess-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_subprocess_wait_finish subprocess' result_'-        touchManagedPtr subprocess-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SubprocessWaitFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSubprocess a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SubprocessWaitFinishMethodInfo a signature where-    overloadedMethod _ = subprocessWaitFinish--#endif--
− GI/Gio/Objects/Subprocess.hs-boot 
@@ -1,107 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Subprocess 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 Subprocess = Subprocess (ManagedPtr Subprocess)-instance GObject Subprocess where-class (GObject o, O.IsDescendantOf Subprocess o) => IsSubprocess o-instance (GObject o, O.IsDescendantOf Subprocess o) => IsSubprocess o-instance O.HasParentTypes Subprocess-#if ENABLE_OVERLOADING-data SubprocessArgvPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessCommunicateMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessCommunicateAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessCommunicateFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessCommunicateUtf8MethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessCommunicateUtf8AsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessCommunicateUtf8FinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessForceExitMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetExitStatusMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetIdentifierMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetIfExitedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetIfSignaledMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetStatusMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetStderrPipeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetStdinPipeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetStdoutPipeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetSuccessfulMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessGetTermSigMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessSendSignalMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessWaitMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessWaitAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessWaitCheckMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessWaitCheckAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessWaitCheckFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessWaitFinishMethodInfo-#endif
− GI/Gio/Objects/SubprocessLauncher.hs 
@@ -1,1069 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--This class contains a set of options for launching child processes,-such as where its standard input and output will be directed, the-argument list, the environment, and more.--While the 'GI.Gio.Objects.Subprocess.Subprocess' class has high level functions covering-popular cases, use of this class allows access to more advanced-options.  It can also be used to launch multiple subprocesses with-a similar configuration.--/Since: 2.40/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.SubprocessLauncher-    ( ---- * Exported types-    SubprocessLauncher(..)                  ,-    IsSubprocessLauncher                    ,-    toSubprocessLauncher                    ,-    noSubprocessLauncher                    ,--- -- * Methods--- ** getenv #method:getenv#--#if ENABLE_OVERLOADING-    SubprocessLauncherGetenvMethodInfo      ,-#endif-    subprocessLauncherGetenv                ,----- ** new #method:new#--    subprocessLauncherNew                   ,----- ** setCwd #method:setCwd#--#if ENABLE_OVERLOADING-    SubprocessLauncherSetCwdMethodInfo      ,-#endif-    subprocessLauncherSetCwd                ,----- ** setEnviron #method:setEnviron#--#if ENABLE_OVERLOADING-    SubprocessLauncherSetEnvironMethodInfo  ,-#endif-    subprocessLauncherSetEnviron            ,----- ** setFlags #method:setFlags#--#if ENABLE_OVERLOADING-    SubprocessLauncherSetFlagsMethodInfo    ,-#endif-    subprocessLauncherSetFlags              ,----- ** setStderrFilePath #method:setStderrFilePath#--#if ENABLE_OVERLOADING-    SubprocessLauncherSetStderrFilePathMethodInfo,-#endif-    subprocessLauncherSetStderrFilePath     ,----- ** setStdinFilePath #method:setStdinFilePath#--#if ENABLE_OVERLOADING-    SubprocessLauncherSetStdinFilePathMethodInfo,-#endif-    subprocessLauncherSetStdinFilePath      ,----- ** setStdoutFilePath #method:setStdoutFilePath#--#if ENABLE_OVERLOADING-    SubprocessLauncherSetStdoutFilePathMethodInfo,-#endif-    subprocessLauncherSetStdoutFilePath     ,----- ** setenv #method:setenv#--#if ENABLE_OVERLOADING-    SubprocessLauncherSetenvMethodInfo      ,-#endif-    subprocessLauncherSetenv                ,----- ** spawnv #method:spawnv#--#if ENABLE_OVERLOADING-    SubprocessLauncherSpawnvMethodInfo      ,-#endif-    subprocessLauncherSpawnv                ,----- ** takeFd #method:takeFd#--#if ENABLE_OVERLOADING-    SubprocessLauncherTakeFdMethodInfo      ,-#endif-    subprocessLauncherTakeFd                ,----- ** takeStderrFd #method:takeStderrFd#--#if ENABLE_OVERLOADING-    SubprocessLauncherTakeStderrFdMethodInfo,-#endif-    subprocessLauncherTakeStderrFd          ,----- ** takeStdinFd #method:takeStdinFd#--#if ENABLE_OVERLOADING-    SubprocessLauncherTakeStdinFdMethodInfo ,-#endif-    subprocessLauncherTakeStdinFd           ,----- ** takeStdoutFd #method:takeStdoutFd#--#if ENABLE_OVERLOADING-    SubprocessLauncherTakeStdoutFdMethodInfo,-#endif-    subprocessLauncherTakeStdoutFd          ,----- ** unsetenv #method:unsetenv#--#if ENABLE_OVERLOADING-    SubprocessLauncherUnsetenvMethodInfo    ,-#endif-    subprocessLauncherUnsetenv              ,----- -- * Properties--- ** flags #attr:flags#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SubprocessLauncherFlagsPropertyInfo     ,-#endif-    constructSubprocessLauncherFlags        ,-#if ENABLE_OVERLOADING-    subprocessLauncherFlags                 ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Objects.Subprocess as Gio.Subprocess---- | Memory-managed wrapper type.-newtype SubprocessLauncher = SubprocessLauncher (ManagedPtr SubprocessLauncher)-foreign import ccall "g_subprocess_launcher_get_type"-    c_g_subprocess_launcher_get_type :: IO GType--instance GObject SubprocessLauncher where-    gobjectType = c_g_subprocess_launcher_get_type-    ---- | Type class for types which can be safely cast to `SubprocessLauncher`, for instance with `toSubprocessLauncher`.-class (GObject o, O.IsDescendantOf SubprocessLauncher o) => IsSubprocessLauncher o-instance (GObject o, O.IsDescendantOf SubprocessLauncher o) => IsSubprocessLauncher o--instance O.HasParentTypes SubprocessLauncher-type instance O.ParentTypes SubprocessLauncher = '[GObject.Object.Object]---- | Cast to `SubprocessLauncher`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSubprocessLauncher :: (MonadIO m, IsSubprocessLauncher o) => o -> m SubprocessLauncher-toSubprocessLauncher = liftIO . unsafeCastTo SubprocessLauncher---- | A convenience alias for `Nothing` :: `Maybe` `SubprocessLauncher`.-noSubprocessLauncher :: Maybe SubprocessLauncher-noSubprocessLauncher = Nothing--#if ENABLE_OVERLOADING-type family ResolveSubprocessLauncherMethod (t :: Symbol) (o :: *) :: * where-    ResolveSubprocessLauncherMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSubprocessLauncherMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSubprocessLauncherMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSubprocessLauncherMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSubprocessLauncherMethod "getenv" o = SubprocessLauncherGetenvMethodInfo-    ResolveSubprocessLauncherMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSubprocessLauncherMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSubprocessLauncherMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSubprocessLauncherMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSubprocessLauncherMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSubprocessLauncherMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSubprocessLauncherMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSubprocessLauncherMethod "setenv" o = SubprocessLauncherSetenvMethodInfo-    ResolveSubprocessLauncherMethod "spawnv" o = SubprocessLauncherSpawnvMethodInfo-    ResolveSubprocessLauncherMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSubprocessLauncherMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSubprocessLauncherMethod "takeFd" o = SubprocessLauncherTakeFdMethodInfo-    ResolveSubprocessLauncherMethod "takeStderrFd" o = SubprocessLauncherTakeStderrFdMethodInfo-    ResolveSubprocessLauncherMethod "takeStdinFd" o = SubprocessLauncherTakeStdinFdMethodInfo-    ResolveSubprocessLauncherMethod "takeStdoutFd" o = SubprocessLauncherTakeStdoutFdMethodInfo-    ResolveSubprocessLauncherMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSubprocessLauncherMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSubprocessLauncherMethod "unsetenv" o = SubprocessLauncherUnsetenvMethodInfo-    ResolveSubprocessLauncherMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSubprocessLauncherMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSubprocessLauncherMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSubprocessLauncherMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSubprocessLauncherMethod "setCwd" o = SubprocessLauncherSetCwdMethodInfo-    ResolveSubprocessLauncherMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSubprocessLauncherMethod "setEnviron" o = SubprocessLauncherSetEnvironMethodInfo-    ResolveSubprocessLauncherMethod "setFlags" o = SubprocessLauncherSetFlagsMethodInfo-    ResolveSubprocessLauncherMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSubprocessLauncherMethod "setStderrFilePath" o = SubprocessLauncherSetStderrFilePathMethodInfo-    ResolveSubprocessLauncherMethod "setStdinFilePath" o = SubprocessLauncherSetStdinFilePathMethodInfo-    ResolveSubprocessLauncherMethod "setStdoutFilePath" o = SubprocessLauncherSetStdoutFilePathMethodInfo-    ResolveSubprocessLauncherMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSubprocessLauncherMethod t SubprocessLauncher, O.MethodInfo info SubprocessLauncher p) => OL.IsLabel t (SubprocessLauncher -> 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---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "SubprocessFlags"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Just False)--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSubprocessLauncherFlags :: (IsSubprocessLauncher o) => [Gio.Flags.SubprocessFlags] -> IO (GValueConstruct o)-constructSubprocessLauncherFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data SubprocessLauncherFlagsPropertyInfo-instance AttrInfo SubprocessLauncherFlagsPropertyInfo where-    type AttrAllowedOps SubprocessLauncherFlagsPropertyInfo = '[ 'AttrConstruct]-    type AttrSetTypeConstraint SubprocessLauncherFlagsPropertyInfo = (~) [Gio.Flags.SubprocessFlags]-    type AttrBaseTypeConstraint SubprocessLauncherFlagsPropertyInfo = IsSubprocessLauncher-    type AttrGetType SubprocessLauncherFlagsPropertyInfo = ()-    type AttrLabel SubprocessLauncherFlagsPropertyInfo = "flags"-    type AttrOrigin SubprocessLauncherFlagsPropertyInfo = SubprocessLauncher-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSubprocessLauncherFlags-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SubprocessLauncher-type instance O.AttributeList SubprocessLauncher = SubprocessLauncherAttributeList-type SubprocessLauncherAttributeList = ('[ '("flags", SubprocessLauncherFlagsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-subprocessLauncherFlags :: AttrLabelProxy "flags"-subprocessLauncherFlags = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SubprocessLauncher = SubprocessLauncherSignalList-type SubprocessLauncherSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method SubprocessLauncher::new--- method type : Constructor--- Args : [Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "SubprocessFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GSubprocessFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}))--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_new" g_subprocess_launcher_new :: -    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "SubprocessFlags"})-    IO (Ptr SubprocessLauncher)--{- |-Creates a new 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher'.--The launcher is created with the default options.  A copy of the-environment of the calling process is made at the time of this call-and will be used as the environment that the process is launched in.--/Since: 2.40/--}-subprocessLauncherNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Gio.Flags.SubprocessFlags]-    {- ^ /@flags@/: 'GI.Gio.Flags.SubprocessFlags' -}-    -> m SubprocessLauncher-subprocessLauncherNew flags = liftIO $ do-    let flags' = gflagsToWord flags-    result <- g_subprocess_launcher_new flags'-    checkUnexpectedReturnNULL "subprocessLauncherNew" result-    result' <- (wrapObject SubprocessLauncher) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method SubprocessLauncher::getenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the environment variable to get", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_getenv" g_subprocess_launcher_getenv :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    CString ->                              -- variable : TBasicType TFileName-    IO CString--{- |-Returns the value of the environment variable /@variable@/ in the-environment of processes launched from this launcher.--On UNIX, the returned string can be an arbitrary byte string.-On Windows, it will be UTF-8.--/Since: 2.40/--}-subprocessLauncherGetenv ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> [Char]-    {- ^ /@variable@/: the environment variable to get -}-    -> m [Char]-    {- ^ __Returns:__ the value of the environment variable,-    'Nothing' if unset -}-subprocessLauncherGetenv self variable = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    variable' <- stringToCString variable-    result <- g_subprocess_launcher_getenv self' variable'-    checkUnexpectedReturnNULL "subprocessLauncherGetenv" result-    result' <- cstringToString result-    touchManagedPtr self-    freeMem variable'-    return result'--#if ENABLE_OVERLOADING-data SubprocessLauncherGetenvMethodInfo-instance (signature ~ ([Char] -> m [Char]), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherGetenvMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherGetenv--#endif---- method SubprocessLauncher::set_cwd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cwd", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the cwd for launched processes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_set_cwd" g_subprocess_launcher_set_cwd :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    CString ->                              -- cwd : TBasicType TFileName-    IO ()--{- |-Sets the current working directory that processes will be launched-with.--By default processes are launched with the current working directory-of the launching process at the time of launch.--/Since: 2.40/--}-subprocessLauncherSetCwd ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> [Char]-    {- ^ /@cwd@/: the cwd for launched processes -}-    -> m ()-subprocessLauncherSetCwd self cwd = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    cwd' <- stringToCString cwd-    g_subprocess_launcher_set_cwd self' cwd'-    touchManagedPtr self-    freeMem cwd'-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherSetCwdMethodInfo-instance (signature ~ ([Char] -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherSetCwdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetCwd--#endif---- method SubprocessLauncher::set_environ--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "env", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "\n    the replacement environment", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_set_environ" g_subprocess_launcher_set_environ :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    Ptr CString ->                          -- env : TCArray True (-1) (-1) (TBasicType TFileName)-    IO ()--{- |-Replace the entire environment of processes launched from this-launcher with the given \'environ\' variable.--Typically you will build this variable by using 'GI.GLib.Functions.listenv' to copy-the process \'environ\' and using the functions 'GI.GLib.Functions.environSetenv',-'GI.GLib.Functions.environUnsetenv', etc.--As an alternative, you can use 'GI.Gio.Objects.SubprocessLauncher.subprocessLauncherSetenv',-'GI.Gio.Objects.SubprocessLauncher.subprocessLauncherUnsetenv', etc.--Pass an empty array to set an empty environment. Pass 'Nothing' to inherit the-parent process’ environment. As of GLib 2.54, the parent process’ environment-will be copied when 'GI.Gio.Objects.SubprocessLauncher.subprocessLauncherSetEnviron' is called.-Previously, it was copied when the subprocess was executed. This means the-copied environment may now be modified (using 'GI.Gio.Objects.SubprocessLauncher.subprocessLauncherSetenv',-etc.) before launching the subprocess.--On UNIX, all strings in this array can be arbitrary byte strings.-On Windows, they should be in UTF-8.--/Since: 2.40/--}-subprocessLauncherSetEnviron ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> [[Char]]-    {- ^ /@env@/: -    the replacement environment -}-    -> m ()-subprocessLauncherSetEnviron self env = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    env' <- packZeroTerminatedFileNameArray env-    g_subprocess_launcher_set_environ self' env'-    touchManagedPtr self-    mapZeroTerminatedCArray freeMem env'-    freeMem env'-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherSetEnvironMethodInfo-instance (signature ~ ([[Char]] -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherSetEnvironMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetEnviron--#endif---- method SubprocessLauncher::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "SubprocessFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GSubprocessFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_set_flags" g_subprocess_launcher_set_flags :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "SubprocessFlags"})-    IO ()--{- |-Sets the flags on the launcher.--The default flags are 'GI.Gio.Flags.SubprocessFlagsNone'.--You may not set flags that specify conflicting options for how to-handle a particular stdio stream (eg: specifying both-'GI.Gio.Flags.SubprocessFlagsStdinPipe' and-'GI.Gio.Flags.SubprocessFlagsStdinInherit').--You may also not set a flag that conflicts with a previous call to a-function like 'GI.Gio.Objects.SubprocessLauncher.subprocessLauncherSetStdinFilePath' or-'GI.Gio.Objects.SubprocessLauncher.subprocessLauncherTakeStdoutFd'.--/Since: 2.40/--}-subprocessLauncherSetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> [Gio.Flags.SubprocessFlags]-    {- ^ /@flags@/: 'GI.Gio.Flags.SubprocessFlags' -}-    -> m ()-subprocessLauncherSetFlags self flags = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    let flags' = gflagsToWord flags-    g_subprocess_launcher_set_flags self' flags'-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherSetFlagsMethodInfo-instance (signature ~ ([Gio.Flags.SubprocessFlags] -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherSetFlagsMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetFlags--#endif---- method SubprocessLauncher::set_stderr_file_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a filename or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_set_stderr_file_path" g_subprocess_launcher_set_stderr_file_path :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    CString ->                              -- path : TBasicType TFileName-    IO ()--{- |-Sets the file path to use as the stderr for spawned processes.--If /@path@/ is 'Nothing' then any previously given path is unset.--The file will be created or truncated when the process is spawned, as-would be the case if using \'2>\' at the shell.--If you want to send both stdout and stderr to the same file then use-'GI.Gio.Flags.SubprocessFlagsStderrMerge'.--You may not set a stderr file path if a stderr fd is already set or-if the launcher flags contain any flags directing stderr elsewhere.--This feature is only available on UNIX.--/Since: 2.40/--}-subprocessLauncherSetStderrFilePath ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> Maybe ([Char])-    {- ^ /@path@/: a filename or 'Nothing' -}-    -> m ()-subprocessLauncherSetStderrFilePath self path = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- stringToCString jPath-            return jPath'-    g_subprocess_launcher_set_stderr_file_path self' maybePath-    touchManagedPtr self-    freeMem maybePath-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherSetStderrFilePathMethodInfo-instance (signature ~ (Maybe ([Char]) -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherSetStderrFilePathMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetStderrFilePath--#endif---- method SubprocessLauncher::set_stdin_file_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_set_stdin_file_path" g_subprocess_launcher_set_stdin_file_path :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    CString ->                              -- path : TBasicType TUTF8-    IO ()--{- |-Sets the file path to use as the stdin for spawned processes.--If /@path@/ is 'Nothing' then any previously given path is unset.--The file must exist or spawning the process will fail.--You may not set a stdin file path if a stdin fd is already set or if-the launcher flags contain any flags directing stdin elsewhere.--This feature is only available on UNIX.--/Since: 2.40/--}-subprocessLauncherSetStdinFilePath ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> T.Text-    -> m ()-subprocessLauncherSetStdinFilePath self path = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    path' <- textToCString path-    g_subprocess_launcher_set_stdin_file_path self' path'-    touchManagedPtr self-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherSetStdinFilePathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherSetStdinFilePathMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetStdinFilePath--#endif---- method SubprocessLauncher::set_stdout_file_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a filename or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_set_stdout_file_path" g_subprocess_launcher_set_stdout_file_path :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    CString ->                              -- path : TBasicType TFileName-    IO ()--{- |-Sets the file path to use as the stdout for spawned processes.--If /@path@/ is 'Nothing' then any previously given path is unset.--The file will be created or truncated when the process is spawned, as-would be the case if using \'>\' at the shell.--You may not set a stdout file path if a stdout fd is already set or-if the launcher flags contain any flags directing stdout elsewhere.--This feature is only available on UNIX.--/Since: 2.40/--}-subprocessLauncherSetStdoutFilePath ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> Maybe ([Char])-    {- ^ /@path@/: a filename or 'Nothing' -}-    -> m ()-subprocessLauncherSetStdoutFilePath self path = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- stringToCString jPath-            return jPath'-    g_subprocess_launcher_set_stdout_file_path self' maybePath-    touchManagedPtr self-    freeMem maybePath-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherSetStdoutFilePathMethodInfo-instance (signature ~ (Maybe ([Char]) -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherSetStdoutFilePathMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetStdoutFilePath--#endif---- method SubprocessLauncher::setenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the environment variable to set,\n    must not contain '='", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for the variable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to change the variable if it already exists", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_setenv" g_subprocess_launcher_setenv :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    CString ->                              -- variable : TBasicType TFileName-    CString ->                              -- value : TBasicType TFileName-    CInt ->                                 -- overwrite : TBasicType TBoolean-    IO ()--{- |-Sets the environment variable /@variable@/ in the environment of-processes launched from this launcher.--On UNIX, both the variable\'s name and value can be arbitrary byte-strings, except that the variable\'s name cannot contain \'=\'.-On Windows, they should be in UTF-8.--/Since: 2.40/--}-subprocessLauncherSetenv ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> [Char]-    {- ^ /@variable@/: the environment variable to set,-    must not contain \'=\' -}-    -> [Char]-    {- ^ /@value@/: the new value for the variable -}-    -> Bool-    {- ^ /@overwrite@/: whether to change the variable if it already exists -}-    -> m ()-subprocessLauncherSetenv self variable value overwrite = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    variable' <- stringToCString variable-    value' <- stringToCString value-    let overwrite' = (fromIntegral . fromEnum) overwrite-    g_subprocess_launcher_setenv self' variable' value' overwrite'-    touchManagedPtr self-    freeMem variable'-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherSetenvMethodInfo-instance (signature ~ ([Char] -> [Char] -> Bool -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherSetenvMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSetenv--#endif---- method SubprocessLauncher::spawnv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Command line arguments", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Subprocess"}))--- throws : True--- Skip return : False--foreign import ccall "g_subprocess_launcher_spawnv" g_subprocess_launcher_spawnv :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    Ptr CString ->                          -- argv : TCArray True (-1) (-1) (TBasicType TFileName)-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.Subprocess.Subprocess)--{- |-Creates a 'GI.Gio.Objects.Subprocess.Subprocess' given a provided array of arguments.--/Since: 2.40/--}-subprocessLauncherSpawnv ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> [[Char]]-    {- ^ /@argv@/: Command line arguments -}-    -> m Gio.Subprocess.Subprocess-    {- ^ __Returns:__ A new 'GI.Gio.Objects.Subprocess.Subprocess', or 'Nothing' on error (and /@error@/ will be set) /(Can throw 'Data.GI.Base.GError.GError')/ -}-subprocessLauncherSpawnv self argv = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    argv' <- packZeroTerminatedFileNameArray argv-    onException (do-        result <- propagateGError $ g_subprocess_launcher_spawnv self' argv'-        checkUnexpectedReturnNULL "subprocessLauncherSpawnv" result-        result' <- (wrapObject Gio.Subprocess.Subprocess) result-        touchManagedPtr self-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-        return result'-     ) (do-        mapZeroTerminatedCArray freeMem argv'-        freeMem argv'-     )--#if ENABLE_OVERLOADING-data SubprocessLauncherSpawnvMethodInfo-instance (signature ~ ([[Char]] -> m Gio.Subprocess.Subprocess), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherSpawnvMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherSpawnv--#endif---- method SubprocessLauncher::take_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "File descriptor in parent process", 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 = Just "Target descriptor for child process", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_take_fd" g_subprocess_launcher_take_fd :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    Int32 ->                                -- source_fd : TBasicType TInt-    Int32 ->                                -- target_fd : TBasicType TInt-    IO ()--{- |-Transfer an arbitrary file descriptor from parent process to the-child.  This function takes \"ownership\" of the fd; it will be closed-in the parent when /@self@/ is freed.--By default, all file descriptors from the parent will be closed.-This function allows you to create (for example) a custom @/pipe()/@ or-@/socketpair()/@ before launching the process, and choose the target-descriptor in the child.--An example use case is GNUPG, which has a command line argument---passphrase-fd providing a file descriptor number where it expects-the passphrase to be written.--}-subprocessLauncherTakeFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> Int32-    {- ^ /@sourceFd@/: File descriptor in parent process -}-    -> Int32-    {- ^ /@targetFd@/: Target descriptor for child process -}-    -> m ()-subprocessLauncherTakeFd self sourceFd targetFd = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    g_subprocess_launcher_take_fd self' sourceFd targetFd-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherTakeFdMethodInfo-instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherTakeFdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherTakeFd--#endif---- method SubprocessLauncher::take_stderr_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file descriptor, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_take_stderr_fd" g_subprocess_launcher_take_stderr_fd :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    Int32 ->                                -- fd : TBasicType TInt-    IO ()--{- |-Sets the file descriptor to use as the stderr for spawned processes.--If /@fd@/ is -1 then any previously given fd is unset.--Note that the default behaviour is to pass stderr through to the-stderr of the parent process.--The passed /@fd@/ belongs to the 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher'.  It will be-automatically closed when the launcher is finalized.  The file-descriptor will also be closed on the child side when executing the-spawned process.--You may not set a stderr fd if a stderr file path is already set or-if the launcher flags contain any flags directing stderr elsewhere.--This feature is only available on UNIX.--/Since: 2.40/--}-subprocessLauncherTakeStderrFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> Int32-    {- ^ /@fd@/: a file descriptor, or -1 -}-    -> m ()-subprocessLauncherTakeStderrFd self fd = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    g_subprocess_launcher_take_stderr_fd self' fd-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherTakeStderrFdMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherTakeStderrFdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherTakeStderrFd--#endif---- method SubprocessLauncher::take_stdin_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file descriptor, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_take_stdin_fd" g_subprocess_launcher_take_stdin_fd :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    Int32 ->                                -- fd : TBasicType TInt-    IO ()--{- |-Sets the file descriptor to use as the stdin for spawned processes.--If /@fd@/ is -1 then any previously given fd is unset.--Note that if your intention is to have the stdin of the calling-process inherited by the child then 'GI.Gio.Flags.SubprocessFlagsStdinInherit'-is a better way to go about doing that.--The passed /@fd@/ is noted but will not be touched in the current-process.  It is therefore necessary that it be kept open by the-caller until the subprocess is spawned.  The file descriptor will-also not be explicitly closed on the child side, so it must be marked-O_CLOEXEC if that\'s what you want.--You may not set a stdin fd if a stdin file path is already set or if-the launcher flags contain any flags directing stdin elsewhere.--This feature is only available on UNIX.--/Since: 2.40/--}-subprocessLauncherTakeStdinFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> Int32-    {- ^ /@fd@/: a file descriptor, or -1 -}-    -> m ()-subprocessLauncherTakeStdinFd self fd = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    g_subprocess_launcher_take_stdin_fd self' fd-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherTakeStdinFdMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherTakeStdinFdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherTakeStdinFd--#endif---- method SubprocessLauncher::take_stdout_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocessLauncher", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file descriptor, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_take_stdout_fd" g_subprocess_launcher_take_stdout_fd :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    Int32 ->                                -- fd : TBasicType TInt-    IO ()--{- |-Sets the file descriptor to use as the stdout for spawned processes.--If /@fd@/ is -1 then any previously given fd is unset.--Note that the default behaviour is to pass stdout through to the-stdout of the parent process.--The passed /@fd@/ is noted but will not be touched in the current-process.  It is therefore necessary that it be kept open by the-caller until the subprocess is spawned.  The file descriptor will-also not be explicitly closed on the child side, so it must be marked-O_CLOEXEC if that\'s what you want.--You may not set a stdout fd if a stdout file path is already set or-if the launcher flags contain any flags directing stdout elsewhere.--This feature is only available on UNIX.--/Since: 2.40/--}-subprocessLauncherTakeStdoutFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.SubprocessLauncher.SubprocessLauncher' -}-    -> Int32-    {- ^ /@fd@/: a file descriptor, or -1 -}-    -> m ()-subprocessLauncherTakeStdoutFd self fd = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    g_subprocess_launcher_take_stdout_fd self' fd-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherTakeStdoutFdMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherTakeStdoutFdMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherTakeStdoutFd--#endif---- method SubprocessLauncher::unsetenv--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSubprocess", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the environment variable to unset,\n    must not contain '='", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_subprocess_launcher_unsetenv" g_subprocess_launcher_unsetenv :: -    Ptr SubprocessLauncher ->               -- self : TInterface (Name {namespace = "Gio", name = "SubprocessLauncher"})-    CString ->                              -- variable : TBasicType TFileName-    IO ()--{- |-Removes the environment variable /@variable@/ from the environment of-processes launched from this launcher.--On UNIX, the variable\'s name can be an arbitrary byte string not-containing \'=\'. On Windows, it should be in UTF-8.--/Since: 2.40/--}-subprocessLauncherUnsetenv ::-    (B.CallStack.HasCallStack, MonadIO m, IsSubprocessLauncher a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.Subprocess.Subprocess' -}-    -> [Char]-    {- ^ /@variable@/: the environment variable to unset,-    must not contain \'=\' -}-    -> m ()-subprocessLauncherUnsetenv self variable = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    variable' <- stringToCString variable-    g_subprocess_launcher_unsetenv self' variable'-    touchManagedPtr self-    freeMem variable'-    return ()--#if ENABLE_OVERLOADING-data SubprocessLauncherUnsetenvMethodInfo-instance (signature ~ ([Char] -> m ()), MonadIO m, IsSubprocessLauncher a) => O.MethodInfo SubprocessLauncherUnsetenvMethodInfo a signature where-    overloadedMethod _ = subprocessLauncherUnsetenv--#endif--
− GI/Gio/Objects/SubprocessLauncher.hs-boot 
@@ -1,74 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.SubprocessLauncher 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 SubprocessLauncher = SubprocessLauncher (ManagedPtr SubprocessLauncher)-instance GObject SubprocessLauncher where-class (GObject o, O.IsDescendantOf SubprocessLauncher o) => IsSubprocessLauncher o-instance (GObject o, O.IsDescendantOf SubprocessLauncher o) => IsSubprocessLauncher o-instance O.HasParentTypes SubprocessLauncher-#if ENABLE_OVERLOADING-data SubprocessLauncherFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherGetenvMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherSetCwdMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherSetEnvironMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherSetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherSetStderrFilePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherSetStdinFilePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherSetStdoutFilePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherSetenvMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherSpawnvMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherTakeFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherTakeStderrFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherTakeStdinFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherTakeStdoutFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data SubprocessLauncherUnsetenvMethodInfo-#endif
− GI/Gio/Objects/Task.hs 
@@ -1,2228 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.Task.Task' represents and manages a cancellable \"task\".--== Asynchronous operations--The most common usage of 'GI.Gio.Objects.Task.Task' is as a 'GI.Gio.Interfaces.AsyncResult.AsyncResult', to-manage data during an asynchronous operation. You call-'GI.Gio.Objects.Task.taskNew' in the \"start\" method, followed by-'GI.Gio.Objects.Task.taskSetTaskData' and the like if you need to keep some-additional data associated with the task, and then pass the-task object around through your asynchronous operation.-Eventually, you will call a method such as-'GI.Gio.Objects.Task.taskReturnPointer' or 'GI.Gio.Objects.Task.taskReturnError', which will-save the value you give it and then invoke the task\'s callback-function in the-[thread-default main context][g-main-context-push-thread-default]-where it was created (waiting until the next iteration of the main-loop first, if necessary). The caller will pass the 'GI.Gio.Objects.Task.Task' back to-the operation\'s finish function (as a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'), and you can-use 'GI.Gio.Objects.Task.taskPropagatePointer' or the like to extract the-return value.--Here is an example for using GTask as a GAsyncResult:--=== /C code/->->    typedef struct {->      CakeFrostingType frosting;->      char *message;->    } DecorationData;->->    static void->    decoration_data_free (DecorationData *decoration)->    {->      g_free (decoration->message);->      g_slice_free (DecorationData, decoration);->    }->->    static void->    baked_cb (Cake     *cake,->              gpointer  user_data)->    {->      GTask *task = user_data;->      DecorationData *decoration = g_task_get_task_data (task);->      GError *error = NULL;->->      if (cake == NULL)->        {->          g_task_return_new_error (task, BAKER_ERROR, BAKER_ERROR_NO_FLOUR,->                                   "Go to the supermarket");->          g_object_unref (task);->          return;->        }->->      if (!cake_decorate (cake, decoration->frosting, decoration->message, &error))->        {->          g_object_unref (cake);->          // g_task_return_error() takes ownership of error->          g_task_return_error (task, error);->          g_object_unref (task);->          return;->        }->->      g_task_return_pointer (task, cake, g_object_unref);->      g_object_unref (task);->    }->->    void->    baker_bake_cake_async (Baker               *self,->                           guint                radius,->                           CakeFlavor           flavor,->                           CakeFrostingType     frosting,->                           const char          *message,->                           GCancellable        *cancellable,->                           GAsyncReadyCallback  callback,->                           gpointer             user_data)->    {->      GTask *task;->      DecorationData *decoration;->      Cake  *cake;->->      task = g_task_new (self, cancellable, callback, user_data);->      if (radius < 3)->        {->          g_task_return_new_error (task, BAKER_ERROR, BAKER_ERROR_TOO_SMALL,->                                   "%ucm radius cakes are silly",->                                   radius);->          g_object_unref (task);->          return;->        }->->      cake = _baker_get_cached_cake (self, radius, flavor, frosting, message);->      if (cake != NULL)->        {->          // _baker_get_cached_cake() returns a reffed cake->          g_task_return_pointer (task, cake, g_object_unref);->          g_object_unref (task);->          return;->        }->->      decoration = g_slice_new (DecorationData);->      decoration->frosting = frosting;->      decoration->message = g_strdup (message);->      g_task_set_task_data (task, decoration, (GDestroyNotify) decoration_data_free);->->      _baker_begin_cake (self, radius, flavor, cancellable, baked_cb, task);->    }->->    Cake *->    baker_bake_cake_finish (Baker         *self,->                            GAsyncResult  *result,->                            GError       **error)->    {->      g_return_val_if_fail (g_task_is_valid (result, self), NULL);->->      return g_task_propagate_pointer (G_TASK (result), error);->    }---== Chained asynchronous operations--'GI.Gio.Objects.Task.Task' also tries to simplify asynchronous operations that-internally chain together several smaller asynchronous-operations. 'GI.Gio.Objects.Task.taskGetCancellable', 'GI.Gio.Objects.Task.taskGetContext',-and 'GI.Gio.Objects.Task.taskGetPriority' allow you to get back the task\'s-'GI.Gio.Objects.Cancellable.Cancellable', 'GI.GLib.Structs.MainContext.MainContext', and [I\/O priority][io-priority]-when starting a new subtask, so you don\'t have to keep track-of them yourself. @/g_task_attach_source()/@ simplifies the case-of waiting for a source to fire (automatically using the correct-'GI.GLib.Structs.MainContext.MainContext' and priority).--Here is an example for chained asynchronous operations:-  -=== /C code/->->    typedef struct {->      Cake *cake;->      CakeFrostingType frosting;->      char *message;->    } BakingData;->->    static void->    decoration_data_free (BakingData *bd)->    {->      if (bd->cake)->        g_object_unref (bd->cake);->      g_free (bd->message);->      g_slice_free (BakingData, bd);->    }->->    static void->    decorated_cb (Cake         *cake,->                  GAsyncResult *result,->                  gpointer      user_data)->    {->      GTask *task = user_data;->      GError *error = NULL;->->      if (!cake_decorate_finish (cake, result, &error))->        {->          g_object_unref (cake);->          g_task_return_error (task, error);->          g_object_unref (task);->          return;->        }->->      // baking_data_free() will drop its ref on the cake, so we have to->      // take another here to give to the caller.->      g_task_return_pointer (task, g_object_ref (cake), g_object_unref);->      g_object_unref (task);->    }->->    static gboolean->    decorator_ready (gpointer user_data)->    {->      GTask *task = user_data;->      BakingData *bd = g_task_get_task_data (task);->->      cake_decorate_async (bd->cake, bd->frosting, bd->message,->                           g_task_get_cancellable (task),->                           decorated_cb, task);->->      return G_SOURCE_REMOVE;->    }->->    static void->    baked_cb (Cake     *cake,->              gpointer  user_data)->    {->      GTask *task = user_data;->      BakingData *bd = g_task_get_task_data (task);->      GError *error = NULL;->->      if (cake == NULL)->        {->          g_task_return_new_error (task, BAKER_ERROR, BAKER_ERROR_NO_FLOUR,->                                   "Go to the supermarket");->          g_object_unref (task);->          return;->        }->->      bd->cake = cake;->->      // Bail out now if the user has already cancelled->      if (g_task_return_error_if_cancelled (task))->        {->          g_object_unref (task);->          return;->        }->->      if (cake_decorator_available (cake))->        decorator_ready (task);->      else->        {->          GSource *source;->->          source = cake_decorator_wait_source_new (cake);->          // Attach @source to @task's GMainContext and have it call->          // decorator_ready() when it is ready.->          g_task_attach_source (task, source, decorator_ready);->          g_source_unref (source);->        }->    }->->    void->    baker_bake_cake_async (Baker               *self,->                           guint                radius,->                           CakeFlavor           flavor,->                           CakeFrostingType     frosting,->                           const char          *message,->                           gint                 priority,->                           GCancellable        *cancellable,->                           GAsyncReadyCallback  callback,->                           gpointer             user_data)->    {->      GTask *task;->      BakingData *bd;->->      task = g_task_new (self, cancellable, callback, user_data);->      g_task_set_priority (task, priority);->->      bd = g_slice_new0 (BakingData);->      bd->frosting = frosting;->      bd->message = g_strdup (message);->      g_task_set_task_data (task, bd, (GDestroyNotify) baking_data_free);->->      _baker_begin_cake (self, radius, flavor, cancellable, baked_cb, task);->    }->->    Cake *->    baker_bake_cake_finish (Baker         *self,->                            GAsyncResult  *result,->                            GError       **error)->    {->      g_return_val_if_fail (g_task_is_valid (result, self), NULL);->->      return g_task_propagate_pointer (G_TASK (result), error);->    }---== Asynchronous operations from synchronous ones--You can use @/g_task_run_in_thread()/@ to turn a synchronous-operation into an asynchronous one, by running it in a thread.-When it completes, the result will be dispatched to the-[thread-default main context][g-main-context-push-thread-default]-where the 'GI.Gio.Objects.Task.Task' was created.--Running a task in a thread:-  -=== /C code/->->    typedef struct {->      guint radius;->      CakeFlavor flavor;->      CakeFrostingType frosting;->      char *message;->    } CakeData;->->    static void->    cake_data_free (CakeData *cake_data)->    {->      g_free (cake_data->message);->      g_slice_free (CakeData, cake_data);->    }->->    static void->    bake_cake_thread (GTask         *task,->                      gpointer       source_object,->                      gpointer       task_data,->                      GCancellable  *cancellable)->    {->      Baker *self = source_object;->      CakeData *cake_data = task_data;->      Cake *cake;->      GError *error = NULL;->->      cake = bake_cake (baker, cake_data->radius, cake_data->flavor,->                        cake_data->frosting, cake_data->message,->                        cancellable, &error);->      if (cake)->        g_task_return_pointer (task, cake, g_object_unref);->      else->        g_task_return_error (task, error);->    }->->    void->    baker_bake_cake_async (Baker               *self,->                           guint                radius,->                           CakeFlavor           flavor,->                           CakeFrostingType     frosting,->                           const char          *message,->                           GCancellable        *cancellable,->                           GAsyncReadyCallback  callback,->                           gpointer             user_data)->    {->      CakeData *cake_data;->      GTask *task;->->      cake_data = g_slice_new (CakeData);->      cake_data->radius = radius;->      cake_data->flavor = flavor;->      cake_data->frosting = frosting;->      cake_data->message = g_strdup (message);->      task = g_task_new (self, cancellable, callback, user_data);->      g_task_set_task_data (task, cake_data, (GDestroyNotify) cake_data_free);->      g_task_run_in_thread (task, bake_cake_thread);->      g_object_unref (task);->    }->->    Cake *->    baker_bake_cake_finish (Baker         *self,->                            GAsyncResult  *result,->                            GError       **error)->    {->      g_return_val_if_fail (g_task_is_valid (result, self), NULL);->->      return g_task_propagate_pointer (G_TASK (result), error);->    }---== Adding cancellability to uncancellable tasks--Finally, @/g_task_run_in_thread()/@ and @/g_task_run_in_thread_sync()/@-can be used to turn an uncancellable operation into a-cancellable one. If you call 'GI.Gio.Objects.Task.taskSetReturnOnCancel',-passing 'True', then if the task\'s 'GI.Gio.Objects.Cancellable.Cancellable' is cancelled,-it will return control back to the caller immediately, while-allowing the task thread to continue running in the background-(and simply discarding its result when it finally does finish).-Provided that the task thread is careful about how it uses-locks and other externally-visible resources, this allows you-to make \"GLib-friendly\" asynchronous and cancellable-synchronous variants of blocking APIs.--Cancelling a task:-  -=== /C code/->->    static void->    bake_cake_thread (GTask         *task,->                      gpointer       source_object,->                      gpointer       task_data,->                      GCancellable  *cancellable)->    {->      Baker *self = source_object;->      CakeData *cake_data = task_data;->      Cake *cake;->      GError *error = NULL;->->      cake = bake_cake (baker, cake_data->radius, cake_data->flavor,->                        cake_data->frosting, cake_data->message,->                        &error);->      if (error)->        {->          g_task_return_error (task, error);->          return;->        }->->      // If the task has already been cancelled, then we don't want to add->      // the cake to the cake cache. Likewise, we don't  want to have the->      // task get cancelled in the middle of updating the cache.->      // g_task_set_return_on_cancel() will return %TRUE here if it managed->      // to disable return-on-cancel, or %FALSE if the task was cancelled->      // before it could.->      if (g_task_set_return_on_cancel (task, FALSE))->        {->          // If the caller cancels at this point, their->          // GAsyncReadyCallback won't be invoked until we return,->          // so we don't have to worry that this code will run at->          // the same time as that code does. But if there were->          // other functions that might look at the cake cache,->          // then we'd probably need a GMutex here as well.->          baker_add_cake_to_cache (baker, cake);->          g_task_return_pointer (task, cake, g_object_unref);->        }->    }->->    void->    baker_bake_cake_async (Baker               *self,->                           guint                radius,->                           CakeFlavor           flavor,->                           CakeFrostingType     frosting,->                           const char          *message,->                           GCancellable        *cancellable,->                           GAsyncReadyCallback  callback,->                           gpointer             user_data)->    {->      CakeData *cake_data;->      GTask *task;->->      cake_data = g_slice_new (CakeData);->->      ...->->      task = g_task_new (self, cancellable, callback, user_data);->      g_task_set_task_data (task, cake_data, (GDestroyNotify) cake_data_free);->      g_task_set_return_on_cancel (task, TRUE);->      g_task_run_in_thread (task, bake_cake_thread);->    }->->    Cake *->    baker_bake_cake_sync (Baker               *self,->                          guint                radius,->                          CakeFlavor           flavor,->                          CakeFrostingType     frosting,->                          const char          *message,->                          GCancellable        *cancellable,->                          GError             **error)->    {->      CakeData *cake_data;->      GTask *task;->      Cake *cake;->->      cake_data = g_slice_new (CakeData);->->      ...->->      task = g_task_new (self, cancellable, NULL, NULL);->      g_task_set_task_data (task, cake_data, (GDestroyNotify) cake_data_free);->      g_task_set_return_on_cancel (task, TRUE);->      g_task_run_in_thread_sync (task, bake_cake_thread);->->      cake = g_task_propagate_pointer (task, error);->      g_object_unref (task);->      return cake;->    }---== Porting from GSimpleAsyncResult--'GI.Gio.Objects.Task.Task'\'s API attempts to be simpler than 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'\'s-in several ways:--* You can save task-specific data with 'GI.Gio.Objects.Task.taskSetTaskData', and-retrieve it later with 'GI.Gio.Objects.Task.taskGetTaskData'. This replaces the-abuse of @/g_simple_async_result_set_op_res_gpointer()/@ for the same-purpose with 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult'.-* In addition to the task data, 'GI.Gio.Objects.Task.Task' also keeps track of the-[priority][io-priority], 'GI.Gio.Objects.Cancellable.Cancellable', and-'GI.GLib.Structs.MainContext.MainContext' associated with the task, so tasks that consist of-a chain of simpler asynchronous operations will have easy access-to those values when starting each sub-task.-* 'GI.Gio.Objects.Task.taskReturnErrorIfCancelled' provides simplified-handling for cancellation. In addition, cancellation-overrides any other 'GI.Gio.Objects.Task.Task' return value by default, like-'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' does when-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultSetCheckCancellable' is called.-(You can use 'GI.Gio.Objects.Task.taskSetCheckCancellable' to turn off that-behavior.) On the other hand, @/g_task_run_in_thread()/@-guarantees that it will always run your-@task_func@, even if the task\'s 'GI.Gio.Objects.Cancellable.Cancellable'-is already cancelled before the task gets a chance to run;-you can start your @task_func@ with a-'GI.Gio.Objects.Task.taskReturnErrorIfCancelled' check if you need the-old behavior.-* The \"return\" methods (eg, 'GI.Gio.Objects.Task.taskReturnPointer')-automatically cause the task to be \"completed\" as well, and-there is no need to worry about the \"complete\" vs \"complete-in idle\" distinction. ('GI.Gio.Objects.Task.Task' automatically figures out-whether the task\'s callback can be invoked directly, or-if it needs to be sent to another 'GI.GLib.Structs.MainContext.MainContext', or delayed-until the next iteration of the current 'GI.GLib.Structs.MainContext.MainContext'.)-* The \"finish\" functions for 'GI.Gio.Objects.Task.Task' based operations are generally-much simpler than 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' ones, normally consisting-of only a single call to 'GI.Gio.Objects.Task.taskPropagatePointer' or the like.-Since 'GI.Gio.Objects.Task.taskPropagatePointer' \"steals\" the return value from-the 'GI.Gio.Objects.Task.Task', it is not necessary to juggle pointers around to-prevent it from being freed twice.-* With 'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult', it was common to call-'GI.Gio.Objects.SimpleAsyncResult.simpleAsyncResultPropagateError' from the-@_finish()@ wrapper function, and have-virtual method implementations only deal with successful-returns. This behavior is deprecated, because it makes it-difficult for a subclass to chain to a parent class\'s async-methods. Instead, the wrapper function should just be a-simple wrapper, and the virtual method should call an-appropriate @g_task_propagate_@ function.-Note that wrapper methods can now use-'GI.Gio.Interfaces.AsyncResult.asyncResultLegacyPropagateError' to do old-style-'GI.Gio.Objects.SimpleAsyncResult.SimpleAsyncResult' error-returning behavior, and-'GI.Gio.Interfaces.AsyncResult.asyncResultIsTagged' to check if a result is tagged as-having come from the @_async()@ wrapper-function (for \"short-circuit\" results, such as when passing-0 to 'GI.Gio.Objects.InputStream.inputStreamReadAsync').---}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Task-    ( ---- * Exported types-    Task(..)                                ,-    IsTask                                  ,-    toTask                                  ,-    noTask                                  ,--- -- * Methods--- ** getCancellable #method:getCancellable#--#if ENABLE_OVERLOADING-    TaskGetCancellableMethodInfo            ,-#endif-    taskGetCancellable                      ,----- ** getCheckCancellable #method:getCheckCancellable#--#if ENABLE_OVERLOADING-    TaskGetCheckCancellableMethodInfo       ,-#endif-    taskGetCheckCancellable                 ,----- ** getCompleted #method:getCompleted#--#if ENABLE_OVERLOADING-    TaskGetCompletedMethodInfo              ,-#endif-    taskGetCompleted                        ,----- ** getContext #method:getContext#--#if ENABLE_OVERLOADING-    TaskGetContextMethodInfo                ,-#endif-    taskGetContext                          ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    TaskGetNameMethodInfo                   ,-#endif-    taskGetName                             ,----- ** getPriority #method:getPriority#--#if ENABLE_OVERLOADING-    TaskGetPriorityMethodInfo               ,-#endif-    taskGetPriority                         ,----- ** getReturnOnCancel #method:getReturnOnCancel#--#if ENABLE_OVERLOADING-    TaskGetReturnOnCancelMethodInfo         ,-#endif-    taskGetReturnOnCancel                   ,----- ** getSourceObject #method:getSourceObject#--#if ENABLE_OVERLOADING-    TaskGetSourceObjectMethodInfo           ,-#endif-    taskGetSourceObject                     ,----- ** getSourceTag #method:getSourceTag#--#if ENABLE_OVERLOADING-    TaskGetSourceTagMethodInfo              ,-#endif-    taskGetSourceTag                        ,----- ** getTaskData #method:getTaskData#--#if ENABLE_OVERLOADING-    TaskGetTaskDataMethodInfo               ,-#endif-    taskGetTaskData                         ,----- ** hadError #method:hadError#--#if ENABLE_OVERLOADING-    TaskHadErrorMethodInfo                  ,-#endif-    taskHadError                            ,----- ** isValid #method:isValid#--    taskIsValid                             ,----- ** new #method:new#--    taskNew                                 ,----- ** propagateBoolean #method:propagateBoolean#--#if ENABLE_OVERLOADING-    TaskPropagateBooleanMethodInfo          ,-#endif-    taskPropagateBoolean                    ,----- ** propagateInt #method:propagateInt#--#if ENABLE_OVERLOADING-    TaskPropagateIntMethodInfo              ,-#endif-    taskPropagateInt                        ,----- ** propagatePointer #method:propagatePointer#--#if ENABLE_OVERLOADING-    TaskPropagatePointerMethodInfo          ,-#endif-    taskPropagatePointer                    ,----- ** reportError #method:reportError#--    taskReportError                         ,----- ** returnBoolean #method:returnBoolean#--#if ENABLE_OVERLOADING-    TaskReturnBooleanMethodInfo             ,-#endif-    taskReturnBoolean                       ,----- ** returnError #method:returnError#--#if ENABLE_OVERLOADING-    TaskReturnErrorMethodInfo               ,-#endif-    taskReturnError                         ,----- ** returnErrorIfCancelled #method:returnErrorIfCancelled#--#if ENABLE_OVERLOADING-    TaskReturnErrorIfCancelledMethodInfo    ,-#endif-    taskReturnErrorIfCancelled              ,----- ** returnInt #method:returnInt#--#if ENABLE_OVERLOADING-    TaskReturnIntMethodInfo                 ,-#endif-    taskReturnInt                           ,----- ** returnPointer #method:returnPointer#--#if ENABLE_OVERLOADING-    TaskReturnPointerMethodInfo             ,-#endif-    taskReturnPointer                       ,----- ** setCheckCancellable #method:setCheckCancellable#--#if ENABLE_OVERLOADING-    TaskSetCheckCancellableMethodInfo       ,-#endif-    taskSetCheckCancellable                 ,----- ** setName #method:setName#--#if ENABLE_OVERLOADING-    TaskSetNameMethodInfo                   ,-#endif-    taskSetName                             ,----- ** setPriority #method:setPriority#--#if ENABLE_OVERLOADING-    TaskSetPriorityMethodInfo               ,-#endif-    taskSetPriority                         ,----- ** setReturnOnCancel #method:setReturnOnCancel#--#if ENABLE_OVERLOADING-    TaskSetReturnOnCancelMethodInfo         ,-#endif-    taskSetReturnOnCancel                   ,----- ** setSourceTag #method:setSourceTag#--#if ENABLE_OVERLOADING-    TaskSetSourceTagMethodInfo              ,-#endif-    taskSetSourceTag                        ,----- ** setTaskData #method:setTaskData#--#if ENABLE_OVERLOADING-    TaskSetTaskDataMethodInfo               ,-#endif-    taskSetTaskData                         ,----- -- * Properties--- ** completed #attr:completed#-{- | Whether the task has completed, meaning its callback (if set) has been-invoked. This can only happen after 'GI.Gio.Objects.Task.taskReturnPointer',-'GI.Gio.Objects.Task.taskReturnError' or one of the other return functions have been called-on the task.--This property is guaranteed to change from 'False' to 'True' exactly once.--The 'GI.GObject.Objects.Object.Object'::@/notify/@ signal for this change is emitted in the same main-context as the task’s callback, immediately after that callback is invoked.--/Since: 2.44/--}-#if ENABLE_OVERLOADING-    TaskCompletedPropertyInfo               ,-#endif-    getTaskCompleted                        ,-#if ENABLE_OVERLOADING-    taskCompleted                           ,-#endif-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GLib.Structs.MainContext as GLib.MainContext-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable---- | Memory-managed wrapper type.-newtype Task = Task (ManagedPtr Task)-foreign import ccall "g_task_get_type"-    c_g_task_get_type :: IO GType--instance GObject Task where-    gobjectType = c_g_task_get_type-    ---- | Type class for types which can be safely cast to `Task`, for instance with `toTask`.-class (GObject o, O.IsDescendantOf Task o) => IsTask o-instance (GObject o, O.IsDescendantOf Task o) => IsTask o--instance O.HasParentTypes Task-type instance O.ParentTypes Task = '[GObject.Object.Object, Gio.AsyncResult.AsyncResult]---- | Cast to `Task`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTask :: (MonadIO m, IsTask o) => o -> m Task-toTask = liftIO . unsafeCastTo Task---- | A convenience alias for `Nothing` :: `Maybe` `Task`.-noTask :: Maybe Task-noTask = Nothing--#if ENABLE_OVERLOADING-type family ResolveTaskMethod (t :: Symbol) (o :: *) :: * where-    ResolveTaskMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTaskMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTaskMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTaskMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTaskMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTaskMethod "hadError" o = TaskHadErrorMethodInfo-    ResolveTaskMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTaskMethod "isTagged" o = Gio.AsyncResult.AsyncResultIsTaggedMethodInfo-    ResolveTaskMethod "legacyPropagateError" o = Gio.AsyncResult.AsyncResultLegacyPropagateErrorMethodInfo-    ResolveTaskMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTaskMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTaskMethod "propagateBoolean" o = TaskPropagateBooleanMethodInfo-    ResolveTaskMethod "propagateInt" o = TaskPropagateIntMethodInfo-    ResolveTaskMethod "propagatePointer" o = TaskPropagatePointerMethodInfo-    ResolveTaskMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTaskMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTaskMethod "returnBoolean" o = TaskReturnBooleanMethodInfo-    ResolveTaskMethod "returnError" o = TaskReturnErrorMethodInfo-    ResolveTaskMethod "returnErrorIfCancelled" o = TaskReturnErrorIfCancelledMethodInfo-    ResolveTaskMethod "returnInt" o = TaskReturnIntMethodInfo-    ResolveTaskMethod "returnPointer" o = TaskReturnPointerMethodInfo-    ResolveTaskMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTaskMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTaskMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTaskMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTaskMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTaskMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTaskMethod "getCancellable" o = TaskGetCancellableMethodInfo-    ResolveTaskMethod "getCheckCancellable" o = TaskGetCheckCancellableMethodInfo-    ResolveTaskMethod "getCompleted" o = TaskGetCompletedMethodInfo-    ResolveTaskMethod "getContext" o = TaskGetContextMethodInfo-    ResolveTaskMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTaskMethod "getName" o = TaskGetNameMethodInfo-    ResolveTaskMethod "getPriority" o = TaskGetPriorityMethodInfo-    ResolveTaskMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTaskMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTaskMethod "getReturnOnCancel" o = TaskGetReturnOnCancelMethodInfo-    ResolveTaskMethod "getSourceObject" o = TaskGetSourceObjectMethodInfo-    ResolveTaskMethod "getSourceTag" o = TaskGetSourceTagMethodInfo-    ResolveTaskMethod "getTaskData" o = TaskGetTaskDataMethodInfo-    ResolveTaskMethod "getUserData" o = Gio.AsyncResult.AsyncResultGetUserDataMethodInfo-    ResolveTaskMethod "setCheckCancellable" o = TaskSetCheckCancellableMethodInfo-    ResolveTaskMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTaskMethod "setName" o = TaskSetNameMethodInfo-    ResolveTaskMethod "setPriority" o = TaskSetPriorityMethodInfo-    ResolveTaskMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTaskMethod "setReturnOnCancel" o = TaskSetReturnOnCancelMethodInfo-    ResolveTaskMethod "setSourceTag" o = TaskSetSourceTagMethodInfo-    ResolveTaskMethod "setTaskData" o = TaskSetTaskDataMethodInfo-    ResolveTaskMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTaskMethod t Task, O.MethodInfo info Task p) => OL.IsLabel t (Task -> 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---- VVV Prop "completed"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@completed@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' task #completed-@--}-getTaskCompleted :: (MonadIO m, IsTask o) => o -> m Bool-getTaskCompleted obj = liftIO $ B.Properties.getObjectPropertyBool obj "completed"--#if ENABLE_OVERLOADING-data TaskCompletedPropertyInfo-instance AttrInfo TaskCompletedPropertyInfo where-    type AttrAllowedOps TaskCompletedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint TaskCompletedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint TaskCompletedPropertyInfo = IsTask-    type AttrGetType TaskCompletedPropertyInfo = Bool-    type AttrLabel TaskCompletedPropertyInfo = "completed"-    type AttrOrigin TaskCompletedPropertyInfo = Task-    attrGet _ = getTaskCompleted-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Task-type instance O.AttributeList Task = TaskAttributeList-type TaskAttributeList = ('[ '("completed", TaskCompletedPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-taskCompleted :: AttrLabelProxy "completed"-taskCompleted = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Task = TaskSignalList-type TaskSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Task::new--- method type : Constructor--- Args : [Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GObject that owns\n  this task, or %NULL.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to @callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Task"}))--- throws : False--- Skip return : False--foreign import ccall "g_task_new" g_task_new :: -    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- callback_data : TBasicType TPtr-    IO (Ptr Task)--{- |-Creates a 'GI.Gio.Objects.Task.Task' acting on /@sourceObject@/, which will eventually be-used to invoke /@callback@/ in the current-[thread-default main context][g-main-context-push-thread-default].--Call this in the \"start\" method of your asynchronous method, and-pass the 'GI.Gio.Objects.Task.Task' around throughout the asynchronous operation. You-can use 'GI.Gio.Objects.Task.taskSetTaskData' to attach task-specific data to the-object, which you can retrieve later via 'GI.Gio.Objects.Task.taskGetTaskData'.--By default, if /@cancellable@/ is cancelled, then the return value of-the task will always be 'GI.Gio.Enums.IOErrorEnumCancelled', even if the task had-already completed before the cancellation. This allows for-simplified handling in cases where cancellation may imply that-other objects that the task depends on have been destroyed. If you-do not want this behavior, you can use-'GI.Gio.Objects.Task.taskSetCheckCancellable' to change it.--/Since: 2.36/--}-taskNew ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a, Gio.Cancellable.IsCancellable b) =>-    Maybe (a)-    {- ^ /@sourceObject@/: the 'GI.GObject.Objects.Object.Object' that owns-  this task, or 'Nothing'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback'. -}-    -> m Task-    {- ^ __Returns:__ a 'GI.Gio.Objects.Task.Task'. -}-taskNew sourceObject cancellable callback = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    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 callbackData = nullPtr-    result <- g_task_new maybeSourceObject maybeCancellable maybeCallback callbackData-    checkUnexpectedReturnNULL "taskNew" result-    result' <- (wrapObject Task) result-    whenJust sourceObject touchManagedPtr-    whenJust cancellable touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-#endif---- method Task::get_cancellable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Cancellable"}))--- throws : False--- Skip return : False--foreign import ccall "g_task_get_cancellable" g_task_get_cancellable :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO (Ptr Gio.Cancellable.Cancellable)--{- |-Gets /@task@/\'s 'GI.Gio.Objects.Cancellable.Cancellable'--/Since: 2.36/--}-taskGetCancellable ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m Gio.Cancellable.Cancellable-    {- ^ __Returns:__ /@task@/\'s 'GI.Gio.Objects.Cancellable.Cancellable' -}-taskGetCancellable task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_cancellable task'-    checkUnexpectedReturnNULL "taskGetCancellable" result-    result' <- (newObject Gio.Cancellable.Cancellable) result-    touchManagedPtr task-    return result'--#if ENABLE_OVERLOADING-data TaskGetCancellableMethodInfo-instance (signature ~ (m Gio.Cancellable.Cancellable), MonadIO m, IsTask a) => O.MethodInfo TaskGetCancellableMethodInfo a signature where-    overloadedMethod _ = taskGetCancellable--#endif---- method Task::get_check_cancellable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", 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 "g_task_get_check_cancellable" g_task_get_check_cancellable :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO CInt--{- |-Gets /@task@/\'s check-cancellable flag. See-'GI.Gio.Objects.Task.taskSetCheckCancellable' for more details.--/Since: 2.36/--}-taskGetCheckCancellable ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> m Bool-taskGetCheckCancellable task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_check_cancellable task'-    let result' = (/= 0) result-    touchManagedPtr task-    return result'--#if ENABLE_OVERLOADING-data TaskGetCheckCancellableMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTask a) => O.MethodInfo TaskGetCheckCancellableMethodInfo a signature where-    overloadedMethod _ = taskGetCheckCancellable--#endif---- method Task::get_completed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask.", 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 "g_task_get_completed" g_task_get_completed :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO CInt--{- |-Gets the value of 'GI.Gio.Objects.Task.Task':@/completed/@. This changes from 'False' to 'True' after-the task’s callback is invoked, and will return 'False' if called from inside-the callback.--/Since: 2.44/--}-taskGetCompleted ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the task has completed, 'False' otherwise. -}-taskGetCompleted task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_completed task'-    let result' = (/= 0) result-    touchManagedPtr task-    return result'--#if ENABLE_OVERLOADING-data TaskGetCompletedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTask a) => O.MethodInfo TaskGetCompletedMethodInfo a signature where-    overloadedMethod _ = taskGetCompleted--#endif---- method Task::get_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "MainContext"}))--- throws : False--- Skip return : False--foreign import ccall "g_task_get_context" g_task_get_context :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO (Ptr GLib.MainContext.MainContext)--{- |-Gets the 'GI.GLib.Structs.MainContext.MainContext' that /@task@/ will return its result in (that-is, the context that was the-[thread-default main context][g-main-context-push-thread-default]-at the point when /@task@/ was created).--This will always return a non-'Nothing' value, even if the task\'s-context is the default 'GI.GLib.Structs.MainContext.MainContext'.--/Since: 2.36/--}-taskGetContext ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m GLib.MainContext.MainContext-    {- ^ __Returns:__ /@task@/\'s 'GI.GLib.Structs.MainContext.MainContext' -}-taskGetContext task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_context task'-    checkUnexpectedReturnNULL "taskGetContext" result-    result' <- (newBoxed GLib.MainContext.MainContext) result-    touchManagedPtr task-    return result'--#if ENABLE_OVERLOADING-data TaskGetContextMethodInfo-instance (signature ~ (m GLib.MainContext.MainContext), MonadIO m, IsTask a) => O.MethodInfo TaskGetContextMethodInfo a signature where-    overloadedMethod _ = taskGetContext--#endif---- method Task::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", 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 "g_task_get_name" g_task_get_name :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO CString--{- |-Gets /@task@/’s name. See 'GI.Gio.Objects.Task.taskSetName'.--/Since: 2.60/--}-taskGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ /@task@/’s name, or 'Nothing' -}-taskGetName task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_name task'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr task-    return maybeResult--#if ENABLE_OVERLOADING-data TaskGetNameMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTask a) => O.MethodInfo TaskGetNameMethodInfo a signature where-    overloadedMethod _ = taskGetName--#endif---- method Task::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", 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 "g_task_get_priority" g_task_get_priority :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO Int32--{- |-Gets /@task@/\'s priority--/Since: 2.36/--}-taskGetPriority ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m Int32-    {- ^ __Returns:__ /@task@/\'s priority -}-taskGetPriority task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_priority task'-    touchManagedPtr task-    return result--#if ENABLE_OVERLOADING-data TaskGetPriorityMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsTask a) => O.MethodInfo TaskGetPriorityMethodInfo a signature where-    overloadedMethod _ = taskGetPriority--#endif---- method Task::get_return_on_cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", 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 "g_task_get_return_on_cancel" g_task_get_return_on_cancel :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO CInt--{- |-Gets /@task@/\'s return-on-cancel flag. See-'GI.Gio.Objects.Task.taskSetReturnOnCancel' for more details.--/Since: 2.36/--}-taskGetReturnOnCancel ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> m Bool-taskGetReturnOnCancel task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_return_on_cancel task'-    let result' = (/= 0) result-    touchManagedPtr task-    return result'--#if ENABLE_OVERLOADING-data TaskGetReturnOnCancelMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTask a) => O.MethodInfo TaskGetReturnOnCancelMethodInfo a signature where-    overloadedMethod _ = taskGetReturnOnCancel--#endif---- method Task::get_source_object--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GObject", name = "Object"}))--- throws : False--- Skip return : False--foreign import ccall "g_task_get_source_object" g_task_get_source_object :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO (Ptr GObject.Object.Object)--{- |-Gets the source object from /@task@/. Like-'GI.Gio.Interfaces.AsyncResult.asyncResultGetSourceObject', but does not ref the object.--/Since: 2.36/--}-taskGetSourceObject ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m (Maybe GObject.Object.Object)-    {- ^ __Returns:__ /@task@/\'s source object, or 'Nothing' -}-taskGetSourceObject task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_source_object task'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject GObject.Object.Object) result'-        return result''-    touchManagedPtr task-    return maybeResult--#if ENABLE_OVERLOADING-data TaskGetSourceObjectMethodInfo-instance (signature ~ (m (Maybe GObject.Object.Object)), MonadIO m, IsTask a) => O.MethodInfo TaskGetSourceObjectMethodInfo a signature where-    overloadedMethod _ = taskGetSourceObject--#endif---- method Task::get_source_tag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "g_task_get_source_tag" g_task_get_source_tag :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO (Ptr ())--{- |-Gets /@task@/\'s source tag. See 'GI.Gio.Objects.Task.taskSetSourceTag'.--/Since: 2.36/--}-taskGetSourceTag ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m (Ptr ())-    {- ^ __Returns:__ /@task@/\'s source tag -}-taskGetSourceTag task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_source_tag task'-    touchManagedPtr task-    return result--#if ENABLE_OVERLOADING-data TaskGetSourceTagMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, IsTask a) => O.MethodInfo TaskGetSourceTagMethodInfo a signature where-    overloadedMethod _ = taskGetSourceTag--#endif---- method Task::get_task_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "g_task_get_task_data" g_task_get_task_data :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO (Ptr ())--{- |-Gets /@task@/\'s @task_data@.--/Since: 2.36/--}-taskGetTaskData ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m (Ptr ())-    {- ^ __Returns:__ /@task@/\'s @task_data@. -}-taskGetTaskData task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_get_task_data task'-    touchManagedPtr task-    return result--#if ENABLE_OVERLOADING-data TaskGetTaskDataMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, IsTask a) => O.MethodInfo TaskGetTaskDataMethodInfo a signature where-    overloadedMethod _ = taskGetTaskData--#endif---- method Task::had_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask.", 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 "g_task_had_error" g_task_had_error :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO CInt--{- |-Tests if /@task@/ resulted in an error.--/Since: 2.36/--}-taskHadError ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the task resulted in an error, 'False' otherwise. -}-taskHadError task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_had_error task'-    let result' = (/= 0) result-    touchManagedPtr task-    return result'--#if ENABLE_OVERLOADING-data TaskHadErrorMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTask a) => O.MethodInfo TaskHadErrorMethodInfo a signature where-    overloadedMethod _ = taskHadError--#endif---- method Task::propagate_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask.", 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 "g_task_propagate_boolean" g_task_propagate_boolean :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Gets the result of /@task@/ as a 'Bool'.--If the task resulted in an error, or was cancelled, then this will-instead return 'False' and set /@error@/.--Since this method transfers ownership of the return value (or-error) to the caller, you may only call it once.--/Since: 2.36/--}-taskPropagateBoolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-taskPropagateBoolean task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    onException (do-        _ <- propagateGError $ g_task_propagate_boolean task'-        touchManagedPtr task-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TaskPropagateBooleanMethodInfo-instance (signature ~ (m ()), MonadIO m, IsTask a) => O.MethodInfo TaskPropagateBooleanMethodInfo a signature where-    overloadedMethod _ = taskPropagateBoolean--#endif---- method Task::propagate_int--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : True--- Skip return : False--foreign import ccall "g_task_propagate_int" g_task_propagate_int :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Ptr (Ptr GError) ->                     -- error-    IO Int64--{- |-Gets the result of /@task@/ as an integer (@/gssize/@).--If the task resulted in an error, or was cancelled, then this will-instead return -1 and set /@error@/.--Since this method transfers ownership of the return value (or-error) to the caller, you may only call it once.--/Since: 2.36/--}-taskPropagateInt ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task'. -}-    -> m Int64-    {- ^ __Returns:__ the task result, or -1 on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-taskPropagateInt task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    onException (do-        result <- propagateGError $ g_task_propagate_int task'-        touchManagedPtr task-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TaskPropagateIntMethodInfo-instance (signature ~ (m Int64), MonadIO m, IsTask a) => O.MethodInfo TaskPropagateIntMethodInfo a signature where-    overloadedMethod _ = taskPropagateInt--#endif---- method Task::propagate_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : True--- Skip return : False--foreign import ccall "g_task_propagate_pointer" g_task_propagate_pointer :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr ())--{- |-Gets the result of /@task@/ as a pointer, and transfers ownership-of that value to the caller.--If the task resulted in an error, or was cancelled, then this will-instead return 'Nothing' and set /@error@/.--Since this method transfers ownership of the return value (or-error) to the caller, you may only call it once.--/Since: 2.36/--}-taskPropagatePointer ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m (Ptr ())-    {- ^ __Returns:__ the task result, or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-taskPropagatePointer task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    onException (do-        result <- propagateGError $ g_task_propagate_pointer task'-        touchManagedPtr task-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TaskPropagatePointerMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m, IsTask a) => O.MethodInfo TaskPropagatePointerMethodInfo a signature where-    overloadedMethod _ = taskPropagatePointer--#endif---- method Task::return_boolean--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #gboolean result of a task function.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_return_boolean" g_task_return_boolean :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    CInt ->                                 -- result : TBasicType TBoolean-    IO ()--{- |-Sets /@task@/\'s result to /@result@/ and completes the task (see-'GI.Gio.Objects.Task.taskReturnPointer' for more discussion of exactly what this-means).--/Since: 2.36/--}-taskReturnBoolean ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task'. -}-    -> Bool-    {- ^ /@result@/: the 'Bool' result of a task function. -}-    -> m ()-taskReturnBoolean task result_ = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    let result_' = (fromIntegral . fromEnum) result_-    g_task_return_boolean task' result_'-    touchManagedPtr task-    return ()--#if ENABLE_OVERLOADING-data TaskReturnBooleanMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskReturnBooleanMethodInfo a signature where-    overloadedMethod _ = taskReturnBoolean--#endif---- method Task::return_error--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GError result of a task function.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_return_error" g_task_return_error :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Ptr GError ->                           -- error : TError-    IO ()--{- |-Sets /@task@/\'s result to /@error@/ (which /@task@/ assumes ownership of)-and completes the task (see 'GI.Gio.Objects.Task.taskReturnPointer' for more-discussion of exactly what this means).--Note that since the task takes ownership of /@error@/, and since the-task may be completed before returning from 'GI.Gio.Objects.Task.taskReturnError',-you cannot assume that /@error@/ is still valid after calling this.-Call 'GI.GLib.Structs.Error.errorCopy' on the error if you need to keep a local copy-as well.--See also @/g_task_return_new_error()/@.--/Since: 2.36/--}-taskReturnError ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task'. -}-    -> GError-    {- ^ /@error@/: the 'GError' result of a task function. -}-    -> m ()-taskReturnError task error_ = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    error_' <- B.ManagedPtr.disownBoxed error_-    g_task_return_error task' error_'-    touchManagedPtr task-    touchManagedPtr error_-    return ()--#if ENABLE_OVERLOADING-data TaskReturnErrorMethodInfo-instance (signature ~ (GError -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskReturnErrorMethodInfo a signature where-    overloadedMethod _ = taskReturnError--#endif---- method Task::return_error_if_cancelled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", 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 "g_task_return_error_if_cancelled" g_task_return_error_if_cancelled :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    IO CInt--{- |-Checks if /@task@/\'s 'GI.Gio.Objects.Cancellable.Cancellable' has been cancelled, and if so, sets-/@task@/\'s error accordingly and completes the task (see-'GI.Gio.Objects.Task.taskReturnPointer' for more discussion of exactly what this-means).--/Since: 2.36/--}-taskReturnErrorIfCancelled ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@task@/ has been cancelled, 'False' if not -}-taskReturnErrorIfCancelled task = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    result <- g_task_return_error_if_cancelled task'-    let result' = (/= 0) result-    touchManagedPtr task-    return result'--#if ENABLE_OVERLOADING-data TaskReturnErrorIfCancelledMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTask a) => O.MethodInfo TaskReturnErrorIfCancelledMethodInfo a signature where-    overloadedMethod _ = taskReturnErrorIfCancelled--#endif---- method Task::return_int--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the integer (#gssize) result of a task function.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_return_int" g_task_return_int :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Int64 ->                                -- result : TBasicType TInt64-    IO ()--{- |-Sets /@task@/\'s result to /@result@/ and completes the task (see-'GI.Gio.Objects.Task.taskReturnPointer' for more discussion of exactly what this-means).--/Since: 2.36/--}-taskReturnInt ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task'. -}-    -> Int64-    {- ^ /@result@/: the integer (@/gssize/@) result of a task function. -}-    -> m ()-taskReturnInt task result_ = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    g_task_return_int task' result_-    touchManagedPtr task-    return ()--#if ENABLE_OVERLOADING-data TaskReturnIntMethodInfo-instance (signature ~ (Int64 -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskReturnIntMethodInfo a signature where-    overloadedMethod _ = taskReturnInt--#endif---- method Task::return_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the pointer result of a task\n    function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "result_destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify function.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_return_pointer" g_task_return_pointer :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Ptr () ->                               -- result : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- result_destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Sets /@task@/\'s result to /@result@/ and completes the task. If /@result@/-is not 'Nothing', then /@resultDestroy@/ will be used to free /@result@/ if-the caller does not take ownership of it with-'GI.Gio.Objects.Task.taskPropagatePointer'.--\"Completes the task\" means that for an ordinary asynchronous task-it will either invoke the task\'s callback, or else queue that-callback to be invoked in the proper 'GI.GLib.Structs.MainContext.MainContext', or in the next-iteration of the current 'GI.GLib.Structs.MainContext.MainContext'. For a task run via-@/g_task_run_in_thread()/@ or @/g_task_run_in_thread_sync()/@, calling this-method will save /@result@/ to be returned to the caller later, but-the task will not actually be completed until the 'GI.Gio.Callbacks.TaskThreadFunc'-exits.--Note that since the task may be completed before returning from-'GI.Gio.Objects.Task.taskReturnPointer', you cannot assume that /@result@/ is still-valid after calling this, unless you are still holding another-reference on it.--/Since: 2.36/--}-taskReturnPointer ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> Ptr ()-    {- ^ /@result@/: the pointer result of a task-    function -}-    -> Maybe (GLib.Callbacks.DestroyNotify)-    {- ^ /@resultDestroy@/: a 'GI.GLib.Callbacks.DestroyNotify' function. -}-    -> m ()-taskReturnPointer task result_ resultDestroy = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    maybeResultDestroy <- case resultDestroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jResultDestroy -> do-            ptrresultDestroy <- callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))-            jResultDestroy' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptrresultDestroy) jResultDestroy)-            poke ptrresultDestroy jResultDestroy'-            return jResultDestroy'-    g_task_return_pointer task' result_ maybeResultDestroy-    touchManagedPtr task-    return ()--#if ENABLE_OVERLOADING-data TaskReturnPointerMethodInfo-instance (signature ~ (Ptr () -> Maybe (GLib.Callbacks.DestroyNotify) -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskReturnPointerMethodInfo a signature where-    overloadedMethod _ = taskReturnPointer--#endif---- method Task::set_check_cancellable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_cancellable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether #GTask will check the state of\n  its #GCancellable for you.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_set_check_cancellable" g_task_set_check_cancellable :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    CInt ->                                 -- check_cancellable : TBasicType TBoolean-    IO ()--{- |-Sets or clears /@task@/\'s check-cancellable flag. If this is 'True'-(the default), then 'GI.Gio.Objects.Task.taskPropagatePointer', etc, and-'GI.Gio.Objects.Task.taskHadError' will check the task\'s 'GI.Gio.Objects.Cancellable.Cancellable' first, and-if it has been cancelled, then they will consider the task to have-returned an \"Operation was cancelled\" error-('GI.Gio.Enums.IOErrorEnumCancelled'), regardless of any other error or return-value the task may have had.--If /@checkCancellable@/ is 'False', then the 'GI.Gio.Objects.Task.Task' will not check the-cancellable itself, and it is up to /@task@/\'s owner to do this (eg,-via 'GI.Gio.Objects.Task.taskReturnErrorIfCancelled').--If you are using 'GI.Gio.Objects.Task.taskSetReturnOnCancel' as well, then-you must leave check-cancellable set 'True'.--/Since: 2.36/--}-taskSetCheckCancellable ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> Bool-    {- ^ /@checkCancellable@/: whether 'GI.Gio.Objects.Task.Task' will check the state of-  its 'GI.Gio.Objects.Cancellable.Cancellable' for you. -}-    -> m ()-taskSetCheckCancellable task checkCancellable = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    let checkCancellable' = (fromIntegral . fromEnum) checkCancellable-    g_task_set_check_cancellable task' checkCancellable'-    touchManagedPtr task-    return ()--#if ENABLE_OVERLOADING-data TaskSetCheckCancellableMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskSetCheckCancellableMethodInfo a signature where-    overloadedMethod _ = taskSetCheckCancellable--#endif---- method Task::set_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a human readable name for the task, or %NULL to unset it", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_set_name" g_task_set_name :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    CString ->                              -- name : TBasicType TUTF8-    IO ()--{- |-Sets /@task@/’s name, used in debugging and profiling. The name defaults to-'Nothing'.--The task name should describe in a human readable way what the task does.-For example, ‘Open file’ or ‘Connect to network host’. It is used to set the-name of the 'GI.GLib.Structs.Source.Source' used for idle completion of the task.--This function may only be called before the /@task@/ is first used in a thread-other than the one it was constructed in.--/Since: 2.60/--}-taskSetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: a 'GI.Gio.Objects.Task.Task' -}-    -> Maybe (T.Text)-    {- ^ /@name@/: a human readable name for the task, or 'Nothing' to unset it -}-    -> m ()-taskSetName task name = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    g_task_set_name task' maybeName-    touchManagedPtr task-    freeMem maybeName-    return ()--#if ENABLE_OVERLOADING-data TaskSetNameMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskSetNameMethodInfo a signature where-    overloadedMethod _ = taskSetName--#endif---- method Task::set_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the [priority][io-priority] of the request", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_set_priority" g_task_set_priority :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Int32 ->                                -- priority : TBasicType TInt-    IO ()--{- |-Sets /@task@/\'s priority. If you do not call this, it will default to-'GI.GLib.Constants.PRIORITY_DEFAULT'.--This will affect the priority of @/GSources/@ created with-@/g_task_attach_source()/@ and the scheduling of tasks run in threads,-and can also be explicitly retrieved later via-'GI.Gio.Objects.Task.taskGetPriority'.--/Since: 2.36/--}-taskSetPriority ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> Int32-    {- ^ /@priority@/: the [priority][io-priority] of the request -}-    -> m ()-taskSetPriority task priority = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    g_task_set_priority task' priority-    touchManagedPtr task-    return ()--#if ENABLE_OVERLOADING-data TaskSetPriorityMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskSetPriorityMethodInfo a signature where-    overloadedMethod _ = taskSetPriority--#endif---- method Task::set_return_on_cancel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "return_on_cancel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the task returns automatically when\n  it is cancelled.", 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 "g_task_set_return_on_cancel" g_task_set_return_on_cancel :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    CInt ->                                 -- return_on_cancel : TBasicType TBoolean-    IO CInt--{- |-Sets or clears /@task@/\'s return-on-cancel flag. This is only-meaningful for tasks run via @/g_task_run_in_thread()/@ or-@/g_task_run_in_thread_sync()/@.--If /@returnOnCancel@/ is 'True', then cancelling /@task@/\'s-'GI.Gio.Objects.Cancellable.Cancellable' will immediately cause it to return, as though the-task\'s 'GI.Gio.Callbacks.TaskThreadFunc' had called-'GI.Gio.Objects.Task.taskReturnErrorIfCancelled' and then returned.--This allows you to create a cancellable wrapper around an-uninterruptable function. The 'GI.Gio.Callbacks.TaskThreadFunc' just needs to be-careful that it does not modify any externally-visible state after-it has been cancelled. To do that, the thread should call-'GI.Gio.Objects.Task.taskSetReturnOnCancel' again to (atomically) set-return-on-cancel 'False' before making externally-visible changes;-if the task gets cancelled before the return-on-cancel flag could-be changed, 'GI.Gio.Objects.Task.taskSetReturnOnCancel' will indicate this by-returning 'False'.--You can disable and re-enable this flag multiple times if you wish.-If the task\'s 'GI.Gio.Objects.Cancellable.Cancellable' is cancelled while return-on-cancel is-'False', then calling 'GI.Gio.Objects.Task.taskSetReturnOnCancel' to set it 'True'-again will cause the task to be cancelled at that point.--If the task\'s 'GI.Gio.Objects.Cancellable.Cancellable' is already cancelled before you call-@/g_task_run_in_thread()/@\/@/g_task_run_in_thread_sync()/@, then the-'GI.Gio.Callbacks.TaskThreadFunc' will still be run (for consistency), but the task-will also be completed right away.--/Since: 2.36/--}-taskSetReturnOnCancel ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> Bool-    {- ^ /@returnOnCancel@/: whether the task returns automatically when-  it is cancelled. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@task@/\'s return-on-cancel flag was changed to-  match /@returnOnCancel@/. 'False' if /@task@/ has already been-  cancelled. -}-taskSetReturnOnCancel task returnOnCancel = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    let returnOnCancel' = (fromIntegral . fromEnum) returnOnCancel-    result <- g_task_set_return_on_cancel task' returnOnCancel'-    let result' = (/= 0) result-    touchManagedPtr task-    return result'--#if ENABLE_OVERLOADING-data TaskSetReturnOnCancelMethodInfo-instance (signature ~ (Bool -> m Bool), MonadIO m, IsTask a) => O.MethodInfo TaskSetReturnOnCancelMethodInfo a signature where-    overloadedMethod _ = taskSetReturnOnCancel--#endif---- method Task::set_source_tag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an opaque pointer indicating the source of this task", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_set_source_tag" g_task_set_source_tag :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Ptr () ->                               -- source_tag : TBasicType TPtr-    IO ()--{- |-Sets /@task@/\'s source tag. You can use this to tag a task return-value with a particular pointer (usually a pointer to the function-doing the tagging) and then later check it using-'GI.Gio.Objects.Task.taskGetSourceTag' (or 'GI.Gio.Interfaces.AsyncResult.asyncResultIsTagged') in the-task\'s \"finish\" function, to figure out if the response came from a-particular place.--/Since: 2.36/--}-taskSetSourceTag ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> Ptr ()-    {- ^ /@sourceTag@/: an opaque pointer indicating the source of this task -}-    -> m ()-taskSetSourceTag task sourceTag = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    g_task_set_source_tag task' sourceTag-    touchManagedPtr task-    return ()--#if ENABLE_OVERLOADING-data TaskSetSourceTagMethodInfo-instance (signature ~ (Ptr () -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskSetSourceTagMethodInfo a signature where-    overloadedMethod _ = taskSetSourceTag--#endif---- method Task::set_task_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "task", argType = TInterface (Name {namespace = "Gio", name = "Task"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GTask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "task_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "task-specific data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "task_data_destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "#GDestroyNotify for @task_data", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_set_task_data" g_task_set_task_data :: -    Ptr Task ->                             -- task : TInterface (Name {namespace = "Gio", name = "Task"})-    Ptr () ->                               -- task_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- task_data_destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Sets /@task@/\'s task data (freeing the existing task data, if any).--/Since: 2.36/--}-taskSetTaskData ::-    (B.CallStack.HasCallStack, MonadIO m, IsTask a) =>-    a-    {- ^ /@task@/: the 'GI.Gio.Objects.Task.Task' -}-    -> Ptr ()-    {- ^ /@taskData@/: task-specific data -}-    -> Maybe (GLib.Callbacks.DestroyNotify)-    {- ^ /@taskDataDestroy@/: 'GI.GLib.Callbacks.DestroyNotify' for /@taskData@/ -}-    -> m ()-taskSetTaskData task taskData taskDataDestroy = liftIO $ do-    task' <- unsafeManagedPtrCastPtr task-    maybeTaskDataDestroy <- case taskDataDestroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jTaskDataDestroy -> do-            ptrtaskDataDestroy <- callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))-            jTaskDataDestroy' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptrtaskDataDestroy) jTaskDataDestroy)-            poke ptrtaskDataDestroy jTaskDataDestroy'-            return jTaskDataDestroy'-    g_task_set_task_data task' taskData maybeTaskDataDestroy-    touchManagedPtr task-    return ()--#if ENABLE_OVERLOADING-data TaskSetTaskDataMethodInfo-instance (signature ~ (Ptr () -> Maybe (GLib.Callbacks.DestroyNotify) -> m ()), MonadIO m, IsTask a) => O.MethodInfo TaskSetTaskDataMethodInfo a signature where-    overloadedMethod _ = taskSetTaskData--#endif---- method Task::is_valid--- method type : MemberFunction--- Args : [Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the source object\n  expected to be associated with the task", 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 "g_task_is_valid" g_task_is_valid :: -    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    IO CInt--{- |-Checks that /@result@/ is a 'GI.Gio.Objects.Task.Task', and that /@sourceObject@/ is its-source object (or that /@sourceObject@/ is 'Nothing' and /@result@/ has no-source object). This can be used in @/g_return_if_fail()/@ checks.--/Since: 2.36/--}-taskIsValid ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.AsyncResult.IsAsyncResult a, GObject.Object.IsObject b) =>-    a-    {- ^ /@result@/: A 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> Maybe (b)-    {- ^ /@sourceObject@/: the source object-  expected to be associated with the task -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@result@/ and /@sourceObject@/ are valid, 'False'-if not -}-taskIsValid result_ sourceObject = liftIO $ do-    result_' <- unsafeManagedPtrCastPtr result_-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    result <- g_task_is_valid result_' maybeSourceObject-    let result' = (/= 0) result-    touchManagedPtr result_-    whenJust sourceObject touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-#endif---- method Task::report_error--- method type : MemberFunction--- Args : [Arg {argCName = "source_object", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GObject that owns\n  this task, 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 "a #GAsyncReadyCallback.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to @callback.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an opaque pointer indicating the source of this task", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "error to report", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_task_report_error" g_task_report_error :: -    Ptr GObject.Object.Object ->            -- source_object : TInterface (Name {namespace = "GObject", name = "Object"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- callback_data : TBasicType TPtr-    Ptr () ->                               -- source_tag : TBasicType TPtr-    Ptr GError ->                           -- error : TError-    IO ()--{- |-Creates a 'GI.Gio.Objects.Task.Task' and then immediately calls 'GI.Gio.Objects.Task.taskReturnError'-on it. Use this in the wrapper function of an asynchronous method-when you want to avoid even calling the virtual method. You can-then use 'GI.Gio.Interfaces.AsyncResult.asyncResultIsTagged' in the finish method wrapper to-check if the result there is tagged as having been created by the-wrapper method, and deal with it appropriately if so.--See also @/g_task_report_new_error()/@.--/Since: 2.36/--}-taskReportError ::-    (B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>-    Maybe (a)-    {- ^ /@sourceObject@/: the 'GI.GObject.Objects.Object.Object' that owns-  this task, or 'Nothing'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback'. -}-    -> Ptr ()-    {- ^ /@sourceTag@/: an opaque pointer indicating the source of this task -}-    -> GError-    {- ^ /@error@/: error to report -}-    -> m ()-taskReportError sourceObject callback sourceTag error_ = liftIO $ do-    maybeSourceObject <- case sourceObject of-        Nothing -> return nullPtr-        Just jSourceObject -> do-            jSourceObject' <- unsafeManagedPtrCastPtr jSourceObject-            return jSourceObject'-    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'-    error_' <- B.ManagedPtr.disownBoxed error_-    let callbackData = nullPtr-    g_task_report_error maybeSourceObject maybeCallback callbackData sourceTag error_'-    whenJust sourceObject touchManagedPtr-    touchManagedPtr error_-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/Task.hs-boot 
@@ -1,107 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Task 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 Task = Task (ManagedPtr Task)-instance GObject Task where-class (GObject o, O.IsDescendantOf Task o) => IsTask o-instance (GObject o, O.IsDescendantOf Task o) => IsTask o-instance O.HasParentTypes Task-#if ENABLE_OVERLOADING-data TaskCompletedPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetCancellableMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetCheckCancellableMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetCompletedMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetContextMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetPriorityMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetReturnOnCancelMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetSourceObjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetSourceTagMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskGetTaskDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskHadErrorMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskPropagateBooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskPropagateIntMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskPropagatePointerMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskReturnBooleanMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskReturnErrorMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskReturnErrorIfCancelledMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskReturnIntMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskReturnPointerMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskSetCheckCancellableMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskSetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskSetPriorityMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskSetReturnOnCancelMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskSetSourceTagMethodInfo-#endif-#if ENABLE_OVERLOADING-data TaskSetTaskDataMethodInfo-#endif
− GI/Gio/Objects/TcpConnection.hs 
@@ -1,317 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--This is the subclass of 'GI.Gio.Objects.SocketConnection.SocketConnection' that is created-for TCP\/IP sockets.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.TcpConnection-    ( ---- * Exported types-    TcpConnection(..)                       ,-    IsTcpConnection                         ,-    toTcpConnection                         ,-    noTcpConnection                         ,--- -- * Methods--- ** getGracefulDisconnect #method:getGracefulDisconnect#--#if ENABLE_OVERLOADING-    TcpConnectionGetGracefulDisconnectMethodInfo,-#endif-    tcpConnectionGetGracefulDisconnect      ,----- ** setGracefulDisconnect #method:setGracefulDisconnect#--#if ENABLE_OVERLOADING-    TcpConnectionSetGracefulDisconnectMethodInfo,-#endif-    tcpConnectionSetGracefulDisconnect      ,----- -- * Properties--- ** gracefulDisconnect #attr:gracefulDisconnect#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    TcpConnectionGracefulDisconnectPropertyInfo,-#endif-    constructTcpConnectionGracefulDisconnect,-    getTcpConnectionGracefulDisconnect      ,-    setTcpConnectionGracefulDisconnect      ,-#if ENABLE_OVERLOADING-    tcpConnectionGracefulDisconnect         ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection---- | Memory-managed wrapper type.-newtype TcpConnection = TcpConnection (ManagedPtr TcpConnection)-foreign import ccall "g_tcp_connection_get_type"-    c_g_tcp_connection_get_type :: IO GType--instance GObject TcpConnection where-    gobjectType = c_g_tcp_connection_get_type-    ---- | Type class for types which can be safely cast to `TcpConnection`, for instance with `toTcpConnection`.-class (GObject o, O.IsDescendantOf TcpConnection o) => IsTcpConnection o-instance (GObject o, O.IsDescendantOf TcpConnection o) => IsTcpConnection o--instance O.HasParentTypes TcpConnection-type instance O.ParentTypes TcpConnection = '[Gio.SocketConnection.SocketConnection, Gio.IOStream.IOStream, GObject.Object.Object]---- | Cast to `TcpConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTcpConnection :: (MonadIO m, IsTcpConnection o) => o -> m TcpConnection-toTcpConnection = liftIO . unsafeCastTo TcpConnection---- | A convenience alias for `Nothing` :: `Maybe` `TcpConnection`.-noTcpConnection :: Maybe TcpConnection-noTcpConnection = Nothing--#if ENABLE_OVERLOADING-type family ResolveTcpConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTcpConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTcpConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTcpConnectionMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveTcpConnectionMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveTcpConnectionMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveTcpConnectionMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveTcpConnectionMethod "connect" o = Gio.SocketConnection.SocketConnectionConnectMethodInfo-    ResolveTcpConnectionMethod "connectAsync" o = Gio.SocketConnection.SocketConnectionConnectAsyncMethodInfo-    ResolveTcpConnectionMethod "connectFinish" o = Gio.SocketConnection.SocketConnectionConnectFinishMethodInfo-    ResolveTcpConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTcpConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTcpConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTcpConnectionMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveTcpConnectionMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveTcpConnectionMethod "isConnected" o = Gio.SocketConnection.SocketConnectionIsConnectedMethodInfo-    ResolveTcpConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTcpConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTcpConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTcpConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTcpConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTcpConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTcpConnectionMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveTcpConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTcpConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTcpConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTcpConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTcpConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTcpConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTcpConnectionMethod "getGracefulDisconnect" o = TcpConnectionGetGracefulDisconnectMethodInfo-    ResolveTcpConnectionMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveTcpConnectionMethod "getLocalAddress" o = Gio.SocketConnection.SocketConnectionGetLocalAddressMethodInfo-    ResolveTcpConnectionMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveTcpConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTcpConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTcpConnectionMethod "getRemoteAddress" o = Gio.SocketConnection.SocketConnectionGetRemoteAddressMethodInfo-    ResolveTcpConnectionMethod "getSocket" o = Gio.SocketConnection.SocketConnectionGetSocketMethodInfo-    ResolveTcpConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTcpConnectionMethod "setGracefulDisconnect" o = TcpConnectionSetGracefulDisconnectMethodInfo-    ResolveTcpConnectionMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveTcpConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTcpConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTcpConnectionMethod t TcpConnection, O.MethodInfo info TcpConnection p) => OL.IsLabel t (TcpConnection -> 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---- VVV Prop "graceful-disconnect"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@graceful-disconnect@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tcpConnection #gracefulDisconnect-@--}-getTcpConnectionGracefulDisconnect :: (MonadIO m, IsTcpConnection o) => o -> m Bool-getTcpConnectionGracefulDisconnect obj = liftIO $ B.Properties.getObjectPropertyBool obj "graceful-disconnect"--{- |-Set the value of the “@graceful-disconnect@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tcpConnection [ #gracefulDisconnect 'Data.GI.Base.Attributes.:=' value ]-@--}-setTcpConnectionGracefulDisconnect :: (MonadIO m, IsTcpConnection o) => o -> Bool -> m ()-setTcpConnectionGracefulDisconnect obj val = liftIO $ B.Properties.setObjectPropertyBool obj "graceful-disconnect" val--{- |-Construct a `GValueConstruct` with valid value for the “@graceful-disconnect@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTcpConnectionGracefulDisconnect :: (IsTcpConnection o) => Bool -> IO (GValueConstruct o)-constructTcpConnectionGracefulDisconnect val = B.Properties.constructObjectPropertyBool "graceful-disconnect" val--#if ENABLE_OVERLOADING-data TcpConnectionGracefulDisconnectPropertyInfo-instance AttrInfo TcpConnectionGracefulDisconnectPropertyInfo where-    type AttrAllowedOps TcpConnectionGracefulDisconnectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TcpConnectionGracefulDisconnectPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint TcpConnectionGracefulDisconnectPropertyInfo = IsTcpConnection-    type AttrGetType TcpConnectionGracefulDisconnectPropertyInfo = Bool-    type AttrLabel TcpConnectionGracefulDisconnectPropertyInfo = "graceful-disconnect"-    type AttrOrigin TcpConnectionGracefulDisconnectPropertyInfo = TcpConnection-    attrGet _ = getTcpConnectionGracefulDisconnect-    attrSet _ = setTcpConnectionGracefulDisconnect-    attrConstruct _ = constructTcpConnectionGracefulDisconnect-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TcpConnection-type instance O.AttributeList TcpConnection = TcpConnectionAttributeList-type TcpConnectionAttributeList = ('[ '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("gracefulDisconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("inputStream", Gio.IOStream.IOStreamInputStreamPropertyInfo), '("outputStream", Gio.IOStream.IOStreamOutputStreamPropertyInfo), '("socket", Gio.SocketConnection.SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-tcpConnectionGracefulDisconnect :: AttrLabelProxy "gracefulDisconnect"-tcpConnectionGracefulDisconnect = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList TcpConnection = TcpConnectionSignalList-type TcpConnectionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method TcpConnection::get_graceful_disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "TcpConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTcpConnection", 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 "g_tcp_connection_get_graceful_disconnect" g_tcp_connection_get_graceful_disconnect :: -    Ptr TcpConnection ->                    -- connection : TInterface (Name {namespace = "Gio", name = "TcpConnection"})-    IO CInt--{- |-Checks if graceful disconnects are used. See-'GI.Gio.Objects.TcpConnection.tcpConnectionSetGracefulDisconnect'.--/Since: 2.22/--}-tcpConnectionGetGracefulDisconnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsTcpConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.TcpConnection.TcpConnection' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if graceful disconnect is used on close, 'False' otherwise -}-tcpConnectionGetGracefulDisconnect connection = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result <- g_tcp_connection_get_graceful_disconnect connection'-    let result' = (/= 0) result-    touchManagedPtr connection-    return result'--#if ENABLE_OVERLOADING-data TcpConnectionGetGracefulDisconnectMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTcpConnection a) => O.MethodInfo TcpConnectionGetGracefulDisconnectMethodInfo a signature where-    overloadedMethod _ = tcpConnectionGetGracefulDisconnect--#endif---- method TcpConnection::set_graceful_disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "TcpConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTcpConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "graceful_disconnect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Whether to do graceful disconnects or not", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tcp_connection_set_graceful_disconnect" g_tcp_connection_set_graceful_disconnect :: -    Ptr TcpConnection ->                    -- connection : TInterface (Name {namespace = "Gio", name = "TcpConnection"})-    CInt ->                                 -- graceful_disconnect : TBasicType TBoolean-    IO ()--{- |-This enables graceful disconnects on close. A graceful disconnect-means that we signal the receiving end that the connection is terminated-and wait for it to close the connection before closing the connection.--A graceful disconnect means that we can be sure that we successfully sent-all the outstanding data to the other end, or get an error reported.-However, it also means we have to wait for all the data to reach the-other side and for it to acknowledge this by closing the socket, which may-take a while. For this reason it is disabled by default.--/Since: 2.22/--}-tcpConnectionSetGracefulDisconnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsTcpConnection a) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.TcpConnection.TcpConnection' -}-    -> Bool-    {- ^ /@gracefulDisconnect@/: Whether to do graceful disconnects or not -}-    -> m ()-tcpConnectionSetGracefulDisconnect connection gracefulDisconnect = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    let gracefulDisconnect' = (fromIntegral . fromEnum) gracefulDisconnect-    g_tcp_connection_set_graceful_disconnect connection' gracefulDisconnect'-    touchManagedPtr connection-    return ()--#if ENABLE_OVERLOADING-data TcpConnectionSetGracefulDisconnectMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsTcpConnection a) => O.MethodInfo TcpConnectionSetGracefulDisconnectMethodInfo a signature where-    overloadedMethod _ = tcpConnectionSetGracefulDisconnect--#endif--
− GI/Gio/Objects/TcpConnection.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.TcpConnection 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 TcpConnection = TcpConnection (ManagedPtr TcpConnection)-instance GObject TcpConnection where-class (GObject o, O.IsDescendantOf TcpConnection o) => IsTcpConnection o-instance (GObject o, O.IsDescendantOf TcpConnection o) => IsTcpConnection o-instance O.HasParentTypes TcpConnection-#if ENABLE_OVERLOADING-data TcpConnectionGracefulDisconnectPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TcpConnectionGetGracefulDisconnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data TcpConnectionSetGracefulDisconnectMethodInfo-#endif
− GI/Gio/Objects/TcpWrapperConnection.hs 
@@ -1,298 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.TcpWrapperConnection.TcpWrapperConnection' can be used to wrap a 'GI.Gio.Objects.IOStream.IOStream' that is-based on a 'GI.Gio.Objects.Socket.Socket', but which is not actually a-'GI.Gio.Objects.SocketConnection.SocketConnection'. This is used by 'GI.Gio.Objects.SocketClient.SocketClient' so that it can-always return a 'GI.Gio.Objects.SocketConnection.SocketConnection', even when the connection it has-actually created is not directly a 'GI.Gio.Objects.SocketConnection.SocketConnection'.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.TcpWrapperConnection-    ( ---- * Exported types-    TcpWrapperConnection(..)                ,-    IsTcpWrapperConnection                  ,-    toTcpWrapperConnection                  ,-    noTcpWrapperConnection                  ,--- -- * Methods--- ** getBaseIoStream #method:getBaseIoStream#--#if ENABLE_OVERLOADING-    TcpWrapperConnectionGetBaseIoStreamMethodInfo,-#endif-    tcpWrapperConnectionGetBaseIoStream     ,----- ** new #method:new#--    tcpWrapperConnectionNew                 ,----- -- * Properties--- ** baseIoStream #attr:baseIoStream#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    TcpWrapperConnectionBaseIoStreamPropertyInfo,-#endif-    constructTcpWrapperConnectionBaseIoStream,-    getTcpWrapperConnectionBaseIoStream     ,-#if ENABLE_OVERLOADING-    tcpWrapperConnectionBaseIoStream        ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.Socket as Gio.Socket-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.TcpConnection as Gio.TcpConnection---- | Memory-managed wrapper type.-newtype TcpWrapperConnection = TcpWrapperConnection (ManagedPtr TcpWrapperConnection)-foreign import ccall "g_tcp_wrapper_connection_get_type"-    c_g_tcp_wrapper_connection_get_type :: IO GType--instance GObject TcpWrapperConnection where-    gobjectType = c_g_tcp_wrapper_connection_get_type-    ---- | Type class for types which can be safely cast to `TcpWrapperConnection`, for instance with `toTcpWrapperConnection`.-class (GObject o, O.IsDescendantOf TcpWrapperConnection o) => IsTcpWrapperConnection o-instance (GObject o, O.IsDescendantOf TcpWrapperConnection o) => IsTcpWrapperConnection o--instance O.HasParentTypes TcpWrapperConnection-type instance O.ParentTypes TcpWrapperConnection = '[Gio.TcpConnection.TcpConnection, Gio.SocketConnection.SocketConnection, Gio.IOStream.IOStream, GObject.Object.Object]---- | Cast to `TcpWrapperConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTcpWrapperConnection :: (MonadIO m, IsTcpWrapperConnection o) => o -> m TcpWrapperConnection-toTcpWrapperConnection = liftIO . unsafeCastTo TcpWrapperConnection---- | A convenience alias for `Nothing` :: `Maybe` `TcpWrapperConnection`.-noTcpWrapperConnection :: Maybe TcpWrapperConnection-noTcpWrapperConnection = Nothing--#if ENABLE_OVERLOADING-type family ResolveTcpWrapperConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTcpWrapperConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTcpWrapperConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTcpWrapperConnectionMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveTcpWrapperConnectionMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveTcpWrapperConnectionMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveTcpWrapperConnectionMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveTcpWrapperConnectionMethod "connect" o = Gio.SocketConnection.SocketConnectionConnectMethodInfo-    ResolveTcpWrapperConnectionMethod "connectAsync" o = Gio.SocketConnection.SocketConnectionConnectAsyncMethodInfo-    ResolveTcpWrapperConnectionMethod "connectFinish" o = Gio.SocketConnection.SocketConnectionConnectFinishMethodInfo-    ResolveTcpWrapperConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTcpWrapperConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTcpWrapperConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTcpWrapperConnectionMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveTcpWrapperConnectionMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveTcpWrapperConnectionMethod "isConnected" o = Gio.SocketConnection.SocketConnectionIsConnectedMethodInfo-    ResolveTcpWrapperConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTcpWrapperConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTcpWrapperConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTcpWrapperConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTcpWrapperConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTcpWrapperConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTcpWrapperConnectionMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveTcpWrapperConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTcpWrapperConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTcpWrapperConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTcpWrapperConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTcpWrapperConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTcpWrapperConnectionMethod "getBaseIoStream" o = TcpWrapperConnectionGetBaseIoStreamMethodInfo-    ResolveTcpWrapperConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTcpWrapperConnectionMethod "getGracefulDisconnect" o = Gio.TcpConnection.TcpConnectionGetGracefulDisconnectMethodInfo-    ResolveTcpWrapperConnectionMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveTcpWrapperConnectionMethod "getLocalAddress" o = Gio.SocketConnection.SocketConnectionGetLocalAddressMethodInfo-    ResolveTcpWrapperConnectionMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveTcpWrapperConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTcpWrapperConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTcpWrapperConnectionMethod "getRemoteAddress" o = Gio.SocketConnection.SocketConnectionGetRemoteAddressMethodInfo-    ResolveTcpWrapperConnectionMethod "getSocket" o = Gio.SocketConnection.SocketConnectionGetSocketMethodInfo-    ResolveTcpWrapperConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTcpWrapperConnectionMethod "setGracefulDisconnect" o = Gio.TcpConnection.TcpConnectionSetGracefulDisconnectMethodInfo-    ResolveTcpWrapperConnectionMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveTcpWrapperConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTcpWrapperConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTcpWrapperConnectionMethod t TcpWrapperConnection, O.MethodInfo info TcpWrapperConnection p) => OL.IsLabel t (TcpWrapperConnection -> 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---- VVV Prop "base-io-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "IOStream"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@base-io-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tcpWrapperConnection #baseIoStream-@--}-getTcpWrapperConnectionBaseIoStream :: (MonadIO m, IsTcpWrapperConnection o) => o -> m Gio.IOStream.IOStream-getTcpWrapperConnectionBaseIoStream obj = liftIO $ checkUnexpectedNothing "getTcpWrapperConnectionBaseIoStream" $ B.Properties.getObjectPropertyObject obj "base-io-stream" Gio.IOStream.IOStream--{- |-Construct a `GValueConstruct` with valid value for the “@base-io-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTcpWrapperConnectionBaseIoStream :: (IsTcpWrapperConnection o, Gio.IOStream.IsIOStream a) => a -> IO (GValueConstruct o)-constructTcpWrapperConnectionBaseIoStream val = B.Properties.constructObjectPropertyObject "base-io-stream" (Just val)--#if ENABLE_OVERLOADING-data TcpWrapperConnectionBaseIoStreamPropertyInfo-instance AttrInfo TcpWrapperConnectionBaseIoStreamPropertyInfo where-    type AttrAllowedOps TcpWrapperConnectionBaseIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TcpWrapperConnectionBaseIoStreamPropertyInfo = Gio.IOStream.IsIOStream-    type AttrBaseTypeConstraint TcpWrapperConnectionBaseIoStreamPropertyInfo = IsTcpWrapperConnection-    type AttrGetType TcpWrapperConnectionBaseIoStreamPropertyInfo = Gio.IOStream.IOStream-    type AttrLabel TcpWrapperConnectionBaseIoStreamPropertyInfo = "base-io-stream"-    type AttrOrigin TcpWrapperConnectionBaseIoStreamPropertyInfo = TcpWrapperConnection-    attrGet _ = getTcpWrapperConnectionBaseIoStream-    attrSet _ = undefined-    attrConstruct _ = constructTcpWrapperConnectionBaseIoStream-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TcpWrapperConnection-type instance O.AttributeList TcpWrapperConnection = TcpWrapperConnectionAttributeList-type TcpWrapperConnectionAttributeList = ('[ '("baseIoStream", TcpWrapperConnectionBaseIoStreamPropertyInfo), '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("gracefulDisconnect", Gio.TcpConnection.TcpConnectionGracefulDisconnectPropertyInfo), '("inputStream", Gio.IOStream.IOStreamInputStreamPropertyInfo), '("outputStream", Gio.IOStream.IOStreamOutputStreamPropertyInfo), '("socket", Gio.SocketConnection.SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-tcpWrapperConnectionBaseIoStream :: AttrLabelProxy "baseIoStream"-tcpWrapperConnectionBaseIoStream = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList TcpWrapperConnection = TcpWrapperConnectionSignalList-type TcpWrapperConnectionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method TcpWrapperConnection::new--- method type : Constructor--- Args : [Arg {argCName = "base_io_stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GIOStream to wrap", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GSocket associated with @base_io_stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TcpWrapperConnection"}))--- throws : False--- Skip return : False--foreign import ccall "g_tcp_wrapper_connection_new" g_tcp_wrapper_connection_new :: -    Ptr Gio.IOStream.IOStream ->            -- base_io_stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.Socket.Socket ->                -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    IO (Ptr TcpWrapperConnection)--{- |-Wraps /@baseIoStream@/ and /@socket@/ together as a 'GI.Gio.Objects.SocketConnection.SocketConnection'.--/Since: 2.28/--}-tcpWrapperConnectionNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.IOStream.IsIOStream a, Gio.Socket.IsSocket b) =>-    a-    {- ^ /@baseIoStream@/: the 'GI.Gio.Objects.IOStream.IOStream' to wrap -}-    -> b-    {- ^ /@socket@/: the 'GI.Gio.Objects.Socket.Socket' associated with /@baseIoStream@/ -}-    -> m TcpWrapperConnection-    {- ^ __Returns:__ the new 'GI.Gio.Objects.SocketConnection.SocketConnection'. -}-tcpWrapperConnectionNew baseIoStream socket = liftIO $ do-    baseIoStream' <- unsafeManagedPtrCastPtr baseIoStream-    socket' <- unsafeManagedPtrCastPtr socket-    result <- g_tcp_wrapper_connection_new baseIoStream' socket'-    checkUnexpectedReturnNULL "tcpWrapperConnectionNew" result-    result' <- (wrapObject TcpWrapperConnection) result-    touchManagedPtr baseIoStream-    touchManagedPtr socket-    return result'--#if ENABLE_OVERLOADING-#endif---- method TcpWrapperConnection::get_base_io_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TcpWrapperConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTcpWrapperConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_tcp_wrapper_connection_get_base_io_stream" g_tcp_wrapper_connection_get_base_io_stream :: -    Ptr TcpWrapperConnection ->             -- conn : TInterface (Name {namespace = "Gio", name = "TcpWrapperConnection"})-    IO (Ptr Gio.IOStream.IOStream)--{- |-Get\'s /@conn@/\'s base 'GI.Gio.Objects.IOStream.IOStream'--}-tcpWrapperConnectionGetBaseIoStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsTcpWrapperConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TcpWrapperConnection.TcpWrapperConnection' -}-    -> m Gio.IOStream.IOStream-    {- ^ __Returns:__ /@conn@/\'s base 'GI.Gio.Objects.IOStream.IOStream' -}-tcpWrapperConnectionGetBaseIoStream conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tcp_wrapper_connection_get_base_io_stream conn'-    checkUnexpectedReturnNULL "tcpWrapperConnectionGetBaseIoStream" result-    result' <- (newObject Gio.IOStream.IOStream) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TcpWrapperConnectionGetBaseIoStreamMethodInfo-instance (signature ~ (m Gio.IOStream.IOStream), MonadIO m, IsTcpWrapperConnection a) => O.MethodInfo TcpWrapperConnectionGetBaseIoStreamMethodInfo a signature where-    overloadedMethod _ = tcpWrapperConnectionGetBaseIoStream--#endif--
− GI/Gio/Objects/TcpWrapperConnection.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.TcpWrapperConnection 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 TcpWrapperConnection = TcpWrapperConnection (ManagedPtr TcpWrapperConnection)-instance GObject TcpWrapperConnection where-class (GObject o, O.IsDescendantOf TcpWrapperConnection o) => IsTcpWrapperConnection o-instance (GObject o, O.IsDescendantOf TcpWrapperConnection o) => IsTcpWrapperConnection o-instance O.HasParentTypes TcpWrapperConnection-#if ENABLE_OVERLOADING-data TcpWrapperConnectionBaseIoStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TcpWrapperConnectionGetBaseIoStreamMethodInfo-#endif
− GI/Gio/Objects/TestDBus.hs 
@@ -1,608 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A helper class for testing code which uses D-Bus without touching the user\'s-session bus.--Note that 'GI.Gio.Objects.TestDBus.TestDBus' modifies the user’s environment, calling @/setenv()/@.-This is not thread-safe, so all 'GI.Gio.Objects.TestDBus.TestDBus' calls should be completed before-threads are spawned, or should have appropriate locking to ensure no access-conflicts to environment variables shared between 'GI.Gio.Objects.TestDBus.TestDBus' and other-threads.--== Creating unit tests using GTestDBus--Testing of D-Bus services can be tricky because normally we only ever run-D-Bus services over an existing instance of the D-Bus daemon thus we-usually don\'t activate D-Bus services that are not yet installed into the-target system. The 'GI.Gio.Objects.TestDBus.TestDBus' object makes this easier for us by taking care-of the lower level tasks such as running a private D-Bus daemon and looking-up uninstalled services in customizable locations, typically in your source-code tree.--The first thing you will need is a separate service description file for the-D-Bus daemon. Typically a @services@ subdirectory of your @tests@ directory-is a good place to put this file.--The service file should list your service along with an absolute path to the-uninstalled service executable in your source tree. Using autotools we would-achieve this by adding a file such as @my-server.service.in@ in the services-directory and have it processed by configure.->->    [D-BUS Service]->    Name=org.gtk.GDBus.Examples.ObjectManager->    Exec=@abs_top_builddir@/gio/tests/gdbus-example-objectmanager-server--You will also need to indicate this service directory in your test-fixtures, so you will need to pass the path while compiling your-test cases. Typically this is done with autotools with an added-preprocessor flag specified to compile your tests such as:->->    -DTEST_SERVICES=\""$(abs_top_builddir)/tests/services"\"--    Once you have a service definition file which is local to your source tree,-you can proceed to set up a GTest fixture using the 'GI.Gio.Objects.TestDBus.TestDBus' scaffolding.--An example of a test fixture for D-Bus services can be found-here:-<https://git.gnome.org/browse/glib/tree/gio/tests/gdbus-test-fixture.c gdbus-test-fixture.c>--Note that these examples only deal with isolating the D-Bus aspect of your-service. To successfully run isolated unit tests on your service you may need-some additional modifications to your test case fixture. For example; if your-service uses GSettings and installs a schema then it is important that your test service-not load the schema in the ordinary installed location (chances are that your service-and schema files are not yet installed, or worse; there is an older version of the-schema file sitting in the install location).--Most of the time we can work around these obstacles using the-environment. Since the environment is inherited by the D-Bus daemon-created by 'GI.Gio.Objects.TestDBus.TestDBus' and then in turn inherited by any services the-D-Bus daemon activates, using the setup routine for your fixture is-a practical place to help sandbox your runtime environment. For the-rather typical GSettings case we can work around this by setting-@GSETTINGS_SCHEMA_DIR@ to the in tree directory holding your schemas-in the above @/fixture_setup()/@ routine.--The GSettings schemas need to be locally pre-compiled for this to work. This can be achieved-by compiling the schemas locally as a step before running test cases, an autotools setup might-do the following in the directory holding schemas:->->    all-am:->            $(GLIB_COMPILE_SCHEMAS) .->->    CLEANFILES += gschemas.compiled---/Since: 2.34/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.TestDBus-    ( ---- * Exported types-    TestDBus(..)                            ,-    IsTestDBus                              ,-    toTestDBus                              ,-    noTestDBus                              ,--- -- * Methods--- ** addServiceDir #method:addServiceDir#--#if ENABLE_OVERLOADING-    TestDBusAddServiceDirMethodInfo         ,-#endif-    testDBusAddServiceDir                   ,----- ** down #method:down#--#if ENABLE_OVERLOADING-    TestDBusDownMethodInfo                  ,-#endif-    testDBusDown                            ,----- ** getBusAddress #method:getBusAddress#--#if ENABLE_OVERLOADING-    TestDBusGetBusAddressMethodInfo         ,-#endif-    testDBusGetBusAddress                   ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    TestDBusGetFlagsMethodInfo              ,-#endif-    testDBusGetFlags                        ,----- ** new #method:new#--    testDBusNew                             ,----- ** stop #method:stop#--#if ENABLE_OVERLOADING-    TestDBusStopMethodInfo                  ,-#endif-    testDBusStop                            ,----- ** unset #method:unset#--    testDBusUnset                           ,----- ** up #method:up#--#if ENABLE_OVERLOADING-    TestDBusUpMethodInfo                    ,-#endif-    testDBusUp                              ,----- -- * Properties--- ** flags #attr:flags#-{- | 'GI.Gio.Flags.TestDBusFlags' specifying the behaviour of the D-Bus session.--/Since: 2.34/--}-#if ENABLE_OVERLOADING-    TestDBusFlagsPropertyInfo               ,-#endif-    constructTestDBusFlags                  ,-    getTestDBusFlags                        ,-#if ENABLE_OVERLOADING-    testDBusFlags                           ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags---- | Memory-managed wrapper type.-newtype TestDBus = TestDBus (ManagedPtr TestDBus)-foreign import ccall "g_test_dbus_get_type"-    c_g_test_dbus_get_type :: IO GType--instance GObject TestDBus where-    gobjectType = c_g_test_dbus_get_type-    ---- | Type class for types which can be safely cast to `TestDBus`, for instance with `toTestDBus`.-class (GObject o, O.IsDescendantOf TestDBus o) => IsTestDBus o-instance (GObject o, O.IsDescendantOf TestDBus o) => IsTestDBus o--instance O.HasParentTypes TestDBus-type instance O.ParentTypes TestDBus = '[GObject.Object.Object]---- | Cast to `TestDBus`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTestDBus :: (MonadIO m, IsTestDBus o) => o -> m TestDBus-toTestDBus = liftIO . unsafeCastTo TestDBus---- | A convenience alias for `Nothing` :: `Maybe` `TestDBus`.-noTestDBus :: Maybe TestDBus-noTestDBus = Nothing--#if ENABLE_OVERLOADING-type family ResolveTestDBusMethod (t :: Symbol) (o :: *) :: * where-    ResolveTestDBusMethod "addServiceDir" o = TestDBusAddServiceDirMethodInfo-    ResolveTestDBusMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTestDBusMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTestDBusMethod "down" o = TestDBusDownMethodInfo-    ResolveTestDBusMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTestDBusMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTestDBusMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTestDBusMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTestDBusMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTestDBusMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTestDBusMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTestDBusMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTestDBusMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTestDBusMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTestDBusMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTestDBusMethod "stop" o = TestDBusStopMethodInfo-    ResolveTestDBusMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTestDBusMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTestDBusMethod "up" o = TestDBusUpMethodInfo-    ResolveTestDBusMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTestDBusMethod "getBusAddress" o = TestDBusGetBusAddressMethodInfo-    ResolveTestDBusMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTestDBusMethod "getFlags" o = TestDBusGetFlagsMethodInfo-    ResolveTestDBusMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTestDBusMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTestDBusMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTestDBusMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTestDBusMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTestDBusMethod t TestDBus, O.MethodInfo info TestDBus p) => OL.IsLabel t (TestDBus -> 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---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "TestDBusFlags"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' testDBus #flags-@--}-getTestDBusFlags :: (MonadIO m, IsTestDBus o) => o -> m [Gio.Flags.TestDBusFlags]-getTestDBusFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTestDBusFlags :: (IsTestDBus o) => [Gio.Flags.TestDBusFlags] -> IO (GValueConstruct o)-constructTestDBusFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data TestDBusFlagsPropertyInfo-instance AttrInfo TestDBusFlagsPropertyInfo where-    type AttrAllowedOps TestDBusFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TestDBusFlagsPropertyInfo = (~) [Gio.Flags.TestDBusFlags]-    type AttrBaseTypeConstraint TestDBusFlagsPropertyInfo = IsTestDBus-    type AttrGetType TestDBusFlagsPropertyInfo = [Gio.Flags.TestDBusFlags]-    type AttrLabel TestDBusFlagsPropertyInfo = "flags"-    type AttrOrigin TestDBusFlagsPropertyInfo = TestDBus-    attrGet _ = getTestDBusFlags-    attrSet _ = undefined-    attrConstruct _ = constructTestDBusFlags-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TestDBus-type instance O.AttributeList TestDBus = TestDBusAttributeList-type TestDBusAttributeList = ('[ '("flags", TestDBusFlagsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-testDBusFlags :: AttrLabelProxy "flags"-testDBusFlags = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList TestDBus = TestDBusSignalList-type TestDBusSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method TestDBus::new--- method type : Constructor--- Args : [Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TestDBusFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTestDBusFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TestDBus"}))--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_new" g_test_dbus_new :: -    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TestDBusFlags"})-    IO (Ptr TestDBus)--{- |-Create a new 'GI.Gio.Objects.TestDBus.TestDBus' object.--}-testDBusNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Gio.Flags.TestDBusFlags]-    {- ^ /@flags@/: a 'GI.Gio.Flags.TestDBusFlags' -}-    -> m TestDBus-    {- ^ __Returns:__ a new 'GI.Gio.Objects.TestDBus.TestDBus'. -}-testDBusNew flags = liftIO $ do-    let flags' = gflagsToWord flags-    result <- g_test_dbus_new flags'-    checkUnexpectedReturnNULL "testDBusNew" result-    result' <- (wrapObject TestDBus) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method TestDBus::add_service_dir--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TestDBus"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTestDBus", 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 a directory containing .service files", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_add_service_dir" g_test_dbus_add_service_dir :: -    Ptr TestDBus ->                         -- self : TInterface (Name {namespace = "Gio", name = "TestDBus"})-    CString ->                              -- path : TBasicType TUTF8-    IO ()--{- |-Add a path where dbus-daemon will look up .service files. This can\'t be-called after 'GI.Gio.Objects.TestDBus.testDBusUp'.--}-testDBusAddServiceDir ::-    (B.CallStack.HasCallStack, MonadIO m, IsTestDBus a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TestDBus.TestDBus' -}-    -> T.Text-    {- ^ /@path@/: path to a directory containing .service files -}-    -> m ()-testDBusAddServiceDir self path = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    path' <- textToCString path-    g_test_dbus_add_service_dir self' path'-    touchManagedPtr self-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data TestDBusAddServiceDirMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsTestDBus a) => O.MethodInfo TestDBusAddServiceDirMethodInfo a signature where-    overloadedMethod _ = testDBusAddServiceDir--#endif---- method TestDBus::down--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TestDBus"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTestDBus", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_down" g_test_dbus_down :: -    Ptr TestDBus ->                         -- self : TInterface (Name {namespace = "Gio", name = "TestDBus"})-    IO ()--{- |-Stop the session bus started by 'GI.Gio.Objects.TestDBus.testDBusUp'.--This will wait for the singleton returned by 'GI.Gio.Functions.busGet' or 'GI.Gio.Functions.busGetSync'-is destroyed. This is done to ensure that the next unit test won\'t get a-leaked singleton from this test.--}-testDBusDown ::-    (B.CallStack.HasCallStack, MonadIO m, IsTestDBus a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TestDBus.TestDBus' -}-    -> m ()-testDBusDown self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    g_test_dbus_down self'-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data TestDBusDownMethodInfo-instance (signature ~ (m ()), MonadIO m, IsTestDBus a) => O.MethodInfo TestDBusDownMethodInfo a signature where-    overloadedMethod _ = testDBusDown--#endif---- method TestDBus::get_bus_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TestDBus"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTestDBus", 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 "g_test_dbus_get_bus_address" g_test_dbus_get_bus_address :: -    Ptr TestDBus ->                         -- self : TInterface (Name {namespace = "Gio", name = "TestDBus"})-    IO CString--{- |-Get the address on which dbus-daemon is running. If 'GI.Gio.Objects.TestDBus.testDBusUp' has not-been called yet, 'Nothing' is returned. This can be used with-'GI.Gio.Objects.DBusConnection.dBusConnectionNewForAddress'.--}-testDBusGetBusAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsTestDBus a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TestDBus.TestDBus' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the address of the bus, or 'Nothing'. -}-testDBusGetBusAddress self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- g_test_dbus_get_bus_address self'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr self-    return maybeResult--#if ENABLE_OVERLOADING-data TestDBusGetBusAddressMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTestDBus a) => O.MethodInfo TestDBusGetBusAddressMethodInfo a signature where-    overloadedMethod _ = testDBusGetBusAddress--#endif---- method TestDBus::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TestDBus"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTestDBus", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TestDBusFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_get_flags" g_test_dbus_get_flags :: -    Ptr TestDBus ->                         -- self : TInterface (Name {namespace = "Gio", name = "TestDBus"})-    IO CUInt--{- |-Get the flags of the 'GI.Gio.Objects.TestDBus.TestDBus' object.--}-testDBusGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsTestDBus a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TestDBus.TestDBus' -}-    -> m [Gio.Flags.TestDBusFlags]-    {- ^ __Returns:__ the value of 'GI.Gio.Objects.TestDBus.TestDBus':@/flags/@ property -}-testDBusGetFlags self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- g_test_dbus_get_flags self'-    let result' = wordToGFlags result-    touchManagedPtr self-    return result'--#if ENABLE_OVERLOADING-data TestDBusGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.TestDBusFlags]), MonadIO m, IsTestDBus a) => O.MethodInfo TestDBusGetFlagsMethodInfo a signature where-    overloadedMethod _ = testDBusGetFlags--#endif---- method TestDBus::stop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TestDBus"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTestDBus", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_stop" g_test_dbus_stop :: -    Ptr TestDBus ->                         -- self : TInterface (Name {namespace = "Gio", name = "TestDBus"})-    IO ()--{- |-Stop the session bus started by 'GI.Gio.Objects.TestDBus.testDBusUp'.--Unlike 'GI.Gio.Objects.TestDBus.testDBusDown', this won\'t verify the 'GI.Gio.Objects.DBusConnection.DBusConnection'-singleton returned by 'GI.Gio.Functions.busGet' or 'GI.Gio.Functions.busGetSync' is destroyed. Unit-tests wanting to verify behaviour after the session bus has been stopped-can use this function but should still call 'GI.Gio.Objects.TestDBus.testDBusDown' when done.--}-testDBusStop ::-    (B.CallStack.HasCallStack, MonadIO m, IsTestDBus a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TestDBus.TestDBus' -}-    -> m ()-testDBusStop self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    g_test_dbus_stop self'-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data TestDBusStopMethodInfo-instance (signature ~ (m ()), MonadIO m, IsTestDBus a) => O.MethodInfo TestDBusStopMethodInfo a signature where-    overloadedMethod _ = testDBusStop--#endif---- method TestDBus::up--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TestDBus"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTestDBus", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_up" g_test_dbus_up :: -    Ptr TestDBus ->                         -- self : TInterface (Name {namespace = "Gio", name = "TestDBus"})-    IO ()--{- |-Start a dbus-daemon instance and set DBUS_SESSION_BUS_ADDRESS. After this-call, it is safe for unit tests to start sending messages on the session bus.--If this function is called from setup callback of @/g_test_add()/@,-'GI.Gio.Objects.TestDBus.testDBusDown' must be called in its teardown callback.--If this function is called from unit test\'s @/main()/@, then 'GI.Gio.Objects.TestDBus.testDBusDown'-must be called after 'GI.GLib.Functions.testRun'.--}-testDBusUp ::-    (B.CallStack.HasCallStack, MonadIO m, IsTestDBus a) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TestDBus.TestDBus' -}-    -> m ()-testDBusUp self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    g_test_dbus_up self'-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data TestDBusUpMethodInfo-instance (signature ~ (m ()), MonadIO m, IsTestDBus a) => O.MethodInfo TestDBusUpMethodInfo a signature where-    overloadedMethod _ = testDBusUp--#endif---- method TestDBus::unset--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_test_dbus_unset" g_test_dbus_unset :: -    IO ()--{- |-Unset DISPLAY and DBUS_SESSION_BUS_ADDRESS env variables to ensure the test-won\'t use user\'s session bus.--This is useful for unit tests that want to verify behaviour when no session-bus is running. It is not necessary to call this if unit test already calls-'GI.Gio.Objects.TestDBus.testDBusUp' before acquiring the session bus.--}-testDBusUnset ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m ()-testDBusUnset  = liftIO $ do-    g_test_dbus_unset-    return ()--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/TestDBus.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.TestDBus 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 TestDBus = TestDBus (ManagedPtr TestDBus)-instance GObject TestDBus where-class (GObject o, O.IsDescendantOf TestDBus o) => IsTestDBus o-instance (GObject o, O.IsDescendantOf TestDBus o) => IsTestDBus o-instance O.HasParentTypes TestDBus-#if ENABLE_OVERLOADING-data TestDBusFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TestDBusAddServiceDirMethodInfo-#endif-#if ENABLE_OVERLOADING-data TestDBusDownMethodInfo-#endif-#if ENABLE_OVERLOADING-data TestDBusGetBusAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data TestDBusGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data TestDBusStopMethodInfo-#endif-#if ENABLE_OVERLOADING-data TestDBusUpMethodInfo-#endif
− GI/Gio/Objects/ThemedIcon.hs 
@@ -1,576 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.ThemedIcon.ThemedIcon' is an implementation of 'GI.Gio.Interfaces.Icon.Icon' that supports icon themes.-'GI.Gio.Objects.ThemedIcon.ThemedIcon' contains a list of all of the icons present in an icon-theme, so that icons can be looked up quickly. 'GI.Gio.Objects.ThemedIcon.ThemedIcon' does-not provide actual pixmaps for icons, just the icon names.-Ideally something like @/gtk_icon_theme_choose_icon()/@ should be used to-resolve the list of names so that fallback icons work nicely with-themes that inherit other themes.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ThemedIcon-    ( ---- * Exported types-    ThemedIcon(..)                          ,-    IsThemedIcon                            ,-    toThemedIcon                            ,-    noThemedIcon                            ,--- -- * Methods--- ** appendName #method:appendName#--#if ENABLE_OVERLOADING-    ThemedIconAppendNameMethodInfo          ,-#endif-    themedIconAppendName                    ,----- ** getNames #method:getNames#--#if ENABLE_OVERLOADING-    ThemedIconGetNamesMethodInfo            ,-#endif-    themedIconGetNames                      ,----- ** new #method:new#--    themedIconNew                           ,----- ** newFromNames #method:newFromNames#--    themedIconNewFromNames                  ,----- ** newWithDefaultFallbacks #method:newWithDefaultFallbacks#--    themedIconNewWithDefaultFallbacks       ,----- ** prependName #method:prependName#--#if ENABLE_OVERLOADING-    ThemedIconPrependNameMethodInfo         ,-#endif-    themedIconPrependName                   ,----- -- * Properties--- ** name #attr:name#-{- | The icon name.--}-#if ENABLE_OVERLOADING-    ThemedIconNamePropertyInfo              ,-#endif-    constructThemedIconName                 ,-#if ENABLE_OVERLOADING-    themedIconName                          ,-#endif----- ** names #attr:names#-{- | A 'Nothing'-terminated array of icon names.--}-#if ENABLE_OVERLOADING-    ThemedIconNamesPropertyInfo             ,-#endif-    constructThemedIconNames                ,-    getThemedIconNames                      ,-#if ENABLE_OVERLOADING-    themedIconNames                         ,-#endif----- ** useDefaultFallbacks #attr:useDefaultFallbacks#-{- | Whether to use the default fallbacks found by shortening the icon name-at \'-\' characters. If the \"names\" array has more than one element,-ignores any past the first.--For example, if the icon name was \"gnome-dev-cdrom-audio\", the array-would become--=== /C code/->->{->  "gnome-dev-cdrom-audio",->  "gnome-dev-cdrom",->  "gnome-dev",->  "gnome",->  NULL->};---}-#if ENABLE_OVERLOADING-    ThemedIconUseDefaultFallbacksPropertyInfo,-#endif-    constructThemedIconUseDefaultFallbacks  ,-    getThemedIconUseDefaultFallbacks        ,-#if ENABLE_OVERLOADING-    themedIconUseDefaultFallbacks           ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon---- | Memory-managed wrapper type.-newtype ThemedIcon = ThemedIcon (ManagedPtr ThemedIcon)-foreign import ccall "g_themed_icon_get_type"-    c_g_themed_icon_get_type :: IO GType--instance GObject ThemedIcon where-    gobjectType = c_g_themed_icon_get_type-    ---- | Type class for types which can be safely cast to `ThemedIcon`, for instance with `toThemedIcon`.-class (GObject o, O.IsDescendantOf ThemedIcon o) => IsThemedIcon o-instance (GObject o, O.IsDescendantOf ThemedIcon o) => IsThemedIcon o--instance O.HasParentTypes ThemedIcon-type instance O.ParentTypes ThemedIcon = '[GObject.Object.Object, Gio.Icon.Icon]---- | Cast to `ThemedIcon`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toThemedIcon :: (MonadIO m, IsThemedIcon o) => o -> m ThemedIcon-toThemedIcon = liftIO . unsafeCastTo ThemedIcon---- | A convenience alias for `Nothing` :: `Maybe` `ThemedIcon`.-noThemedIcon :: Maybe ThemedIcon-noThemedIcon = Nothing--#if ENABLE_OVERLOADING-type family ResolveThemedIconMethod (t :: Symbol) (o :: *) :: * where-    ResolveThemedIconMethod "appendName" o = ThemedIconAppendNameMethodInfo-    ResolveThemedIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveThemedIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveThemedIconMethod "equal" o = Gio.Icon.IconEqualMethodInfo-    ResolveThemedIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveThemedIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveThemedIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveThemedIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveThemedIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveThemedIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveThemedIconMethod "prependName" o = ThemedIconPrependNameMethodInfo-    ResolveThemedIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveThemedIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveThemedIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveThemedIconMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo-    ResolveThemedIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveThemedIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveThemedIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveThemedIconMethod "toString" o = Gio.Icon.IconToStringMethodInfo-    ResolveThemedIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveThemedIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveThemedIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveThemedIconMethod "getNames" o = ThemedIconGetNamesMethodInfo-    ResolveThemedIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveThemedIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveThemedIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveThemedIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveThemedIconMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveThemedIconMethod t ThemedIcon, O.MethodInfo info ThemedIcon p) => OL.IsLabel t (ThemedIcon -> 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---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructThemedIconName :: (IsThemedIcon o) => T.Text -> IO (GValueConstruct o)-constructThemedIconName val = B.Properties.constructObjectPropertyString "name" (Just val)--#if ENABLE_OVERLOADING-data ThemedIconNamePropertyInfo-instance AttrInfo ThemedIconNamePropertyInfo where-    type AttrAllowedOps ThemedIconNamePropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ThemedIconNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ThemedIconNamePropertyInfo = IsThemedIcon-    type AttrGetType ThemedIconNamePropertyInfo = ()-    type AttrLabel ThemedIconNamePropertyInfo = "name"-    type AttrOrigin ThemedIconNamePropertyInfo = ThemedIcon-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructThemedIconName-    attrClear _ = undefined-#endif---- VVV Prop "names"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@names@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' themedIcon #names-@--}-getThemedIconNames :: (MonadIO m, IsThemedIcon o) => o -> m [T.Text]-getThemedIconNames obj = liftIO $ checkUnexpectedNothing "getThemedIconNames" $ B.Properties.getObjectPropertyStringArray obj "names"--{- |-Construct a `GValueConstruct` with valid value for the “@names@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructThemedIconNames :: (IsThemedIcon o) => [T.Text] -> IO (GValueConstruct o)-constructThemedIconNames val = B.Properties.constructObjectPropertyStringArray "names" (Just val)--#if ENABLE_OVERLOADING-data ThemedIconNamesPropertyInfo-instance AttrInfo ThemedIconNamesPropertyInfo where-    type AttrAllowedOps ThemedIconNamesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ThemedIconNamesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint ThemedIconNamesPropertyInfo = IsThemedIcon-    type AttrGetType ThemedIconNamesPropertyInfo = [T.Text]-    type AttrLabel ThemedIconNamesPropertyInfo = "names"-    type AttrOrigin ThemedIconNamesPropertyInfo = ThemedIcon-    attrGet _ = getThemedIconNames-    attrSet _ = undefined-    attrConstruct _ = constructThemedIconNames-    attrClear _ = undefined-#endif---- VVV Prop "use-default-fallbacks"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@use-default-fallbacks@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' themedIcon #useDefaultFallbacks-@--}-getThemedIconUseDefaultFallbacks :: (MonadIO m, IsThemedIcon o) => o -> m Bool-getThemedIconUseDefaultFallbacks obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-default-fallbacks"--{- |-Construct a `GValueConstruct` with valid value for the “@use-default-fallbacks@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructThemedIconUseDefaultFallbacks :: (IsThemedIcon o) => Bool -> IO (GValueConstruct o)-constructThemedIconUseDefaultFallbacks val = B.Properties.constructObjectPropertyBool "use-default-fallbacks" val--#if ENABLE_OVERLOADING-data ThemedIconUseDefaultFallbacksPropertyInfo-instance AttrInfo ThemedIconUseDefaultFallbacksPropertyInfo where-    type AttrAllowedOps ThemedIconUseDefaultFallbacksPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ThemedIconUseDefaultFallbacksPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint ThemedIconUseDefaultFallbacksPropertyInfo = IsThemedIcon-    type AttrGetType ThemedIconUseDefaultFallbacksPropertyInfo = Bool-    type AttrLabel ThemedIconUseDefaultFallbacksPropertyInfo = "use-default-fallbacks"-    type AttrOrigin ThemedIconUseDefaultFallbacksPropertyInfo = ThemedIcon-    attrGet _ = getThemedIconUseDefaultFallbacks-    attrSet _ = undefined-    attrConstruct _ = constructThemedIconUseDefaultFallbacks-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ThemedIcon-type instance O.AttributeList ThemedIcon = ThemedIconAttributeList-type ThemedIconAttributeList = ('[ '("name", ThemedIconNamePropertyInfo), '("names", ThemedIconNamesPropertyInfo), '("useDefaultFallbacks", ThemedIconUseDefaultFallbacksPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-themedIconName :: AttrLabelProxy "name"-themedIconName = AttrLabelProxy--themedIconNames :: AttrLabelProxy "names"-themedIconNames = AttrLabelProxy--themedIconUseDefaultFallbacks :: AttrLabelProxy "useDefaultFallbacks"-themedIconUseDefaultFallbacks = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ThemedIcon = ThemedIconSignalList-type ThemedIconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ThemedIcon::new--- method type : Constructor--- Args : [Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing an icon name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ThemedIcon"}))--- throws : False--- Skip return : False--foreign import ccall "g_themed_icon_new" g_themed_icon_new :: -    CString ->                              -- iconname : TBasicType TUTF8-    IO (Ptr ThemedIcon)--{- |-Creates a new themed icon for /@iconname@/.--}-themedIconNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@iconname@/: a string containing an icon name. -}-    -> m ThemedIcon-    {- ^ __Returns:__ a new 'GI.Gio.Objects.ThemedIcon.ThemedIcon'. -}-themedIconNew iconname = liftIO $ do-    iconname' <- textToCString iconname-    result <- g_themed_icon_new iconname'-    checkUnexpectedReturnNULL "themedIconNew" result-    result' <- (wrapObject ThemedIcon) result-    freeMem iconname'-    return result'--#if ENABLE_OVERLOADING-#endif---- method ThemedIcon::new_from_names--- method type : Constructor--- Args : [Arg {argCName = "iconnames", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of strings containing icon names.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the @iconnames array, or -1 if @iconnames is\n    %NULL-terminated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the @iconnames array, or -1 if @iconnames is\n    %NULL-terminated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ThemedIcon"}))--- throws : False--- Skip return : False--foreign import ccall "g_themed_icon_new_from_names" g_themed_icon_new_from_names :: -    Ptr CString ->                          -- iconnames : TCArray False (-1) 1 (TBasicType TUTF8)-    Int32 ->                                -- len : TBasicType TInt-    IO (Ptr ThemedIcon)--{- |-Creates a new themed icon for /@iconnames@/.--}-themedIconNewFromNames ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [T.Text]-    {- ^ /@iconnames@/: an array of strings containing icon names. -}-    -> m ThemedIcon-    {- ^ __Returns:__ a new 'GI.Gio.Objects.ThemedIcon.ThemedIcon' -}-themedIconNewFromNames iconnames = liftIO $ do-    let len = fromIntegral $ length iconnames-    iconnames' <- packUTF8CArray iconnames-    result <- g_themed_icon_new_from_names iconnames' len-    checkUnexpectedReturnNULL "themedIconNewFromNames" result-    result' <- (wrapObject ThemedIcon) result-    (mapCArrayWithLength len) freeMem iconnames'-    freeMem iconnames'-    return result'--#if ENABLE_OVERLOADING-#endif---- method ThemedIcon::new_with_default_fallbacks--- method type : Constructor--- Args : [Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing an icon name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ThemedIcon"}))--- throws : False--- Skip return : False--foreign import ccall "g_themed_icon_new_with_default_fallbacks" g_themed_icon_new_with_default_fallbacks :: -    CString ->                              -- iconname : TBasicType TUTF8-    IO (Ptr ThemedIcon)--{- |-Creates a new themed icon for /@iconname@/, and all the names-that can be created by shortening /@iconname@/ at \'-\' characters.--In the following example, /@icon1@/ and /@icon2@/ are equivalent:--=== /C code/->->const char *names[] = {->  "gnome-dev-cdrom-audio",->  "gnome-dev-cdrom",->  "gnome-dev",->  "gnome"->};->->icon1 = g_themed_icon_new_from_names (names, 4);->icon2 = g_themed_icon_new_with_default_fallbacks ("gnome-dev-cdrom-audio");--}-themedIconNewWithDefaultFallbacks ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@iconname@/: a string containing an icon name -}-    -> m ThemedIcon-    {- ^ __Returns:__ a new 'GI.Gio.Objects.ThemedIcon.ThemedIcon'. -}-themedIconNewWithDefaultFallbacks iconname = liftIO $ do-    iconname' <- textToCString iconname-    result <- g_themed_icon_new_with_default_fallbacks iconname'-    checkUnexpectedReturnNULL "themedIconNewWithDefaultFallbacks" result-    result' <- (wrapObject ThemedIcon) result-    freeMem iconname'-    return result'--#if ENABLE_OVERLOADING-#endif---- method ThemedIcon::append_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "ThemedIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GThemedIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of icon to append to list of icons from within @icon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_themed_icon_append_name" g_themed_icon_append_name :: -    Ptr ThemedIcon ->                       -- icon : TInterface (Name {namespace = "Gio", name = "ThemedIcon"})-    CString ->                              -- iconname : TBasicType TUTF8-    IO ()--{- |-Append a name to the list of icons from within /@icon@/.--Note that doing so invalidates the hash computed by prior calls-to 'GI.Gio.Functions.iconHash'.--}-themedIconAppendName ::-    (B.CallStack.HasCallStack, MonadIO m, IsThemedIcon a) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Objects.ThemedIcon.ThemedIcon' -}-    -> T.Text-    {- ^ /@iconname@/: name of icon to append to list of icons from within /@icon@/. -}-    -> m ()-themedIconAppendName icon iconname = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    iconname' <- textToCString iconname-    g_themed_icon_append_name icon' iconname'-    touchManagedPtr icon-    freeMem iconname'-    return ()--#if ENABLE_OVERLOADING-data ThemedIconAppendNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsThemedIcon a) => O.MethodInfo ThemedIconAppendNameMethodInfo a signature where-    overloadedMethod _ = themedIconAppendName--#endif---- method ThemedIcon::get_names--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "ThemedIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GThemedIcon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_themed_icon_get_names" g_themed_icon_get_names :: -    Ptr ThemedIcon ->                       -- icon : TInterface (Name {namespace = "Gio", name = "ThemedIcon"})-    IO (Ptr CString)--{- |-Gets the names of icons from within /@icon@/.--}-themedIconGetNames ::-    (B.CallStack.HasCallStack, MonadIO m, IsThemedIcon a) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Objects.ThemedIcon.ThemedIcon'. -}-    -> m [T.Text]-    {- ^ __Returns:__ a list of icon names. -}-themedIconGetNames icon = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    result <- g_themed_icon_get_names icon'-    checkUnexpectedReturnNULL "themedIconGetNames" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr icon-    return result'--#if ENABLE_OVERLOADING-data ThemedIconGetNamesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsThemedIcon a) => O.MethodInfo ThemedIconGetNamesMethodInfo a signature where-    overloadedMethod _ = themedIconGetNames--#endif---- method ThemedIcon::prepend_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "ThemedIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GThemedIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "name of icon to prepend to list of icons from within @icon.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_themed_icon_prepend_name" g_themed_icon_prepend_name :: -    Ptr ThemedIcon ->                       -- icon : TInterface (Name {namespace = "Gio", name = "ThemedIcon"})-    CString ->                              -- iconname : TBasicType TUTF8-    IO ()--{- |-Prepend a name to the list of icons from within /@icon@/.--Note that doing so invalidates the hash computed by prior calls-to 'GI.Gio.Functions.iconHash'.--/Since: 2.18/--}-themedIconPrependName ::-    (B.CallStack.HasCallStack, MonadIO m, IsThemedIcon a) =>-    a-    {- ^ /@icon@/: a 'GI.Gio.Objects.ThemedIcon.ThemedIcon' -}-    -> T.Text-    {- ^ /@iconname@/: name of icon to prepend to list of icons from within /@icon@/. -}-    -> m ()-themedIconPrependName icon iconname = liftIO $ do-    icon' <- unsafeManagedPtrCastPtr icon-    iconname' <- textToCString iconname-    g_themed_icon_prepend_name icon' iconname'-    touchManagedPtr icon-    freeMem iconname'-    return ()--#if ENABLE_OVERLOADING-data ThemedIconPrependNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsThemedIcon a) => O.MethodInfo ThemedIconPrependNameMethodInfo a signature where-    overloadedMethod _ = themedIconPrependName--#endif--
− GI/Gio/Objects/ThemedIcon.hs-boot 
@@ -1,47 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ThemedIcon 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 ThemedIcon = ThemedIcon (ManagedPtr ThemedIcon)-instance GObject ThemedIcon where-class (GObject o, O.IsDescendantOf ThemedIcon o) => IsThemedIcon o-instance (GObject o, O.IsDescendantOf ThemedIcon o) => IsThemedIcon o-instance O.HasParentTypes ThemedIcon-#if ENABLE_OVERLOADING-data ThemedIconNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ThemedIconNamesPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ThemedIconUseDefaultFallbacksPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ThemedIconAppendNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data ThemedIconGetNamesMethodInfo-#endif-#if ENABLE_OVERLOADING-data ThemedIconPrependNameMethodInfo-#endif
− GI/Gio/Objects/ThreadedSocketService.hs 
@@ -1,358 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.ThreadedSocketService.ThreadedSocketService' is a simple subclass of 'GI.Gio.Objects.SocketService.SocketService'-that handles incoming connections by creating a worker thread and-dispatching the connection to it by emitting the-'GI.Gio.Objects.ThreadedSocketService.ThreadedSocketService'::@/run/@ signal in the new thread.--The signal handler may perform blocking IO and need not return-until the connection is closed.--The service is implemented using a thread pool, so there is a-limited amount of threads available to serve incoming requests.-The service automatically stops the 'GI.Gio.Objects.SocketService.SocketService' from accepting-new connections when all threads are busy.--As with 'GI.Gio.Objects.SocketService.SocketService', you may connect to 'GI.Gio.Objects.ThreadedSocketService.ThreadedSocketService'::@/run/@,-or subclass and override the default handler.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ThreadedSocketService-    ( ---- * Exported types-    ThreadedSocketService(..)               ,-    IsThreadedSocketService                 ,-    toThreadedSocketService                 ,-    noThreadedSocketService                 ,--- -- * Methods--- ** new #method:new#--    threadedSocketServiceNew                ,----- -- * Properties--- ** maxThreads #attr:maxThreads#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ThreadedSocketServiceMaxThreadsPropertyInfo,-#endif-    constructThreadedSocketServiceMaxThreads,-    getThreadedSocketServiceMaxThreads      ,-#if ENABLE_OVERLOADING-    threadedSocketServiceMaxThreads         ,-#endif----- -- * Signals--- ** run #signal:run#--    C_ThreadedSocketServiceRunCallback      ,-    ThreadedSocketServiceRunCallback        ,-#if ENABLE_OVERLOADING-    ThreadedSocketServiceRunSignalInfo      ,-#endif-    afterThreadedSocketServiceRun           ,-    genClosure_ThreadedSocketServiceRun     ,-    mk_ThreadedSocketServiceRunCallback     ,-    noThreadedSocketServiceRunCallback      ,-    onThreadedSocketServiceRun              ,-    wrap_ThreadedSocketServiceRunCallback   ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketListener as Gio.SocketListener-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketService as Gio.SocketService---- | Memory-managed wrapper type.-newtype ThreadedSocketService = ThreadedSocketService (ManagedPtr ThreadedSocketService)-foreign import ccall "g_threaded_socket_service_get_type"-    c_g_threaded_socket_service_get_type :: IO GType--instance GObject ThreadedSocketService where-    gobjectType = c_g_threaded_socket_service_get_type-    ---- | Type class for types which can be safely cast to `ThreadedSocketService`, for instance with `toThreadedSocketService`.-class (GObject o, O.IsDescendantOf ThreadedSocketService o) => IsThreadedSocketService o-instance (GObject o, O.IsDescendantOf ThreadedSocketService o) => IsThreadedSocketService o--instance O.HasParentTypes ThreadedSocketService-type instance O.ParentTypes ThreadedSocketService = '[Gio.SocketService.SocketService, Gio.SocketListener.SocketListener, GObject.Object.Object]---- | Cast to `ThreadedSocketService`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toThreadedSocketService :: (MonadIO m, IsThreadedSocketService o) => o -> m ThreadedSocketService-toThreadedSocketService = liftIO . unsafeCastTo ThreadedSocketService---- | A convenience alias for `Nothing` :: `Maybe` `ThreadedSocketService`.-noThreadedSocketService :: Maybe ThreadedSocketService-noThreadedSocketService = Nothing--#if ENABLE_OVERLOADING-type family ResolveThreadedSocketServiceMethod (t :: Symbol) (o :: *) :: * where-    ResolveThreadedSocketServiceMethod "accept" o = Gio.SocketListener.SocketListenerAcceptMethodInfo-    ResolveThreadedSocketServiceMethod "acceptAsync" o = Gio.SocketListener.SocketListenerAcceptAsyncMethodInfo-    ResolveThreadedSocketServiceMethod "acceptFinish" o = Gio.SocketListener.SocketListenerAcceptFinishMethodInfo-    ResolveThreadedSocketServiceMethod "acceptSocket" o = Gio.SocketListener.SocketListenerAcceptSocketMethodInfo-    ResolveThreadedSocketServiceMethod "acceptSocketAsync" o = Gio.SocketListener.SocketListenerAcceptSocketAsyncMethodInfo-    ResolveThreadedSocketServiceMethod "acceptSocketFinish" o = Gio.SocketListener.SocketListenerAcceptSocketFinishMethodInfo-    ResolveThreadedSocketServiceMethod "addAddress" o = Gio.SocketListener.SocketListenerAddAddressMethodInfo-    ResolveThreadedSocketServiceMethod "addAnyInetPort" o = Gio.SocketListener.SocketListenerAddAnyInetPortMethodInfo-    ResolveThreadedSocketServiceMethod "addInetPort" o = Gio.SocketListener.SocketListenerAddInetPortMethodInfo-    ResolveThreadedSocketServiceMethod "addSocket" o = Gio.SocketListener.SocketListenerAddSocketMethodInfo-    ResolveThreadedSocketServiceMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveThreadedSocketServiceMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveThreadedSocketServiceMethod "close" o = Gio.SocketListener.SocketListenerCloseMethodInfo-    ResolveThreadedSocketServiceMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveThreadedSocketServiceMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveThreadedSocketServiceMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveThreadedSocketServiceMethod "isActive" o = Gio.SocketService.SocketServiceIsActiveMethodInfo-    ResolveThreadedSocketServiceMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveThreadedSocketServiceMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveThreadedSocketServiceMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveThreadedSocketServiceMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveThreadedSocketServiceMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveThreadedSocketServiceMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveThreadedSocketServiceMethod "start" o = Gio.SocketService.SocketServiceStartMethodInfo-    ResolveThreadedSocketServiceMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveThreadedSocketServiceMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveThreadedSocketServiceMethod "stop" o = Gio.SocketService.SocketServiceStopMethodInfo-    ResolveThreadedSocketServiceMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveThreadedSocketServiceMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveThreadedSocketServiceMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveThreadedSocketServiceMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveThreadedSocketServiceMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveThreadedSocketServiceMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveThreadedSocketServiceMethod "setBacklog" o = Gio.SocketListener.SocketListenerSetBacklogMethodInfo-    ResolveThreadedSocketServiceMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveThreadedSocketServiceMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveThreadedSocketServiceMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveThreadedSocketServiceMethod t ThreadedSocketService, O.MethodInfo info ThreadedSocketService p) => OL.IsLabel t (ThreadedSocketService -> 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 ThreadedSocketService::run-{- |-The ::run signal is emitted in a worker thread in response to an-incoming connection. This thread is dedicated to handling-/@connection@/ and may perform blocking IO. The signal handler need-not return until the connection is closed.--}-type ThreadedSocketServiceRunCallback =-    Gio.SocketConnection.SocketConnection-    {- ^ /@connection@/: a new 'GI.Gio.Objects.SocketConnection.SocketConnection' object. -}-    -> GObject.Object.Object-    {- ^ /@sourceObject@/: the source_object passed to 'GI.Gio.Objects.SocketListener.socketListenerAddAddress'. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' to stop further signal handlers from being called -}---- | A convenience synonym for @`Nothing` :: `Maybe` `ThreadedSocketServiceRunCallback`@.-noThreadedSocketServiceRunCallback :: Maybe ThreadedSocketServiceRunCallback-noThreadedSocketServiceRunCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ThreadedSocketServiceRunCallback =-    Ptr () ->                               -- object-    Ptr Gio.SocketConnection.SocketConnection ->-    Ptr GObject.Object.Object ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_ThreadedSocketServiceRunCallback`.-foreign import ccall "wrapper"-    mk_ThreadedSocketServiceRunCallback :: C_ThreadedSocketServiceRunCallback -> IO (FunPtr C_ThreadedSocketServiceRunCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ThreadedSocketServiceRun :: MonadIO m => ThreadedSocketServiceRunCallback -> m (GClosure C_ThreadedSocketServiceRunCallback)-genClosure_ThreadedSocketServiceRun cb = liftIO $ do-    let cb' = wrap_ThreadedSocketServiceRunCallback cb-    mk_ThreadedSocketServiceRunCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ThreadedSocketServiceRunCallback` into a `C_ThreadedSocketServiceRunCallback`.-wrap_ThreadedSocketServiceRunCallback ::-    ThreadedSocketServiceRunCallback ->-    C_ThreadedSocketServiceRunCallback-wrap_ThreadedSocketServiceRunCallback _cb _ connection sourceObject _ = do-    connection' <- (newObject Gio.SocketConnection.SocketConnection) connection-    sourceObject' <- (newObject GObject.Object.Object) sourceObject-    result <- _cb  connection' sourceObject'-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@run@” 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' threadedSocketService #run callback-@--}-onThreadedSocketServiceRun :: (IsThreadedSocketService a, MonadIO m) => a -> ThreadedSocketServiceRunCallback -> m SignalHandlerId-onThreadedSocketServiceRun obj cb = liftIO $ do-    let cb' = wrap_ThreadedSocketServiceRunCallback cb-    cb'' <- mk_ThreadedSocketServiceRunCallback cb'-    connectSignalFunPtr obj "run" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@run@” 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' threadedSocketService #run callback-@--}-afterThreadedSocketServiceRun :: (IsThreadedSocketService a, MonadIO m) => a -> ThreadedSocketServiceRunCallback -> m SignalHandlerId-afterThreadedSocketServiceRun obj cb = liftIO $ do-    let cb' = wrap_ThreadedSocketServiceRunCallback cb-    cb'' <- mk_ThreadedSocketServiceRunCallback cb'-    connectSignalFunPtr obj "run" cb'' SignalConnectAfter----- VVV Prop "max-threads"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@max-threads@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' threadedSocketService #maxThreads-@--}-getThreadedSocketServiceMaxThreads :: (MonadIO m, IsThreadedSocketService o) => o -> m Int32-getThreadedSocketServiceMaxThreads obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "max-threads"--{- |-Construct a `GValueConstruct` with valid value for the “@max-threads@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructThreadedSocketServiceMaxThreads :: (IsThreadedSocketService o) => Int32 -> IO (GValueConstruct o)-constructThreadedSocketServiceMaxThreads val = B.Properties.constructObjectPropertyInt32 "max-threads" val--#if ENABLE_OVERLOADING-data ThreadedSocketServiceMaxThreadsPropertyInfo-instance AttrInfo ThreadedSocketServiceMaxThreadsPropertyInfo where-    type AttrAllowedOps ThreadedSocketServiceMaxThreadsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ThreadedSocketServiceMaxThreadsPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint ThreadedSocketServiceMaxThreadsPropertyInfo = IsThreadedSocketService-    type AttrGetType ThreadedSocketServiceMaxThreadsPropertyInfo = Int32-    type AttrLabel ThreadedSocketServiceMaxThreadsPropertyInfo = "max-threads"-    type AttrOrigin ThreadedSocketServiceMaxThreadsPropertyInfo = ThreadedSocketService-    attrGet _ = getThreadedSocketServiceMaxThreads-    attrSet _ = undefined-    attrConstruct _ = constructThreadedSocketServiceMaxThreads-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ThreadedSocketService-type instance O.AttributeList ThreadedSocketService = ThreadedSocketServiceAttributeList-type ThreadedSocketServiceAttributeList = ('[ '("active", Gio.SocketService.SocketServiceActivePropertyInfo), '("listenBacklog", Gio.SocketListener.SocketListenerListenBacklogPropertyInfo), '("maxThreads", ThreadedSocketServiceMaxThreadsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-threadedSocketServiceMaxThreads :: AttrLabelProxy "maxThreads"-threadedSocketServiceMaxThreads = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data ThreadedSocketServiceRunSignalInfo-instance SignalInfo ThreadedSocketServiceRunSignalInfo where-    type HaskellCallbackType ThreadedSocketServiceRunSignalInfo = ThreadedSocketServiceRunCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ThreadedSocketServiceRunCallback cb-        cb'' <- mk_ThreadedSocketServiceRunCallback cb'-        connectSignalFunPtr obj "run" cb'' connectMode--type instance O.SignalList ThreadedSocketService = ThreadedSocketServiceSignalList-type ThreadedSocketServiceSignalList = ('[ '("event", Gio.SocketListener.SocketListenerEventSignalInfo), '("incoming", Gio.SocketService.SocketServiceIncomingSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("run", ThreadedSocketServiceRunSignalInfo)] :: [(Symbol, *)])--#endif---- method ThreadedSocketService::new--- method type : Constructor--- Args : [Arg {argCName = "max_threads", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximal number of threads to execute concurrently\n  handling incoming clients, -1 means no limit", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ThreadedSocketService"}))--- throws : False--- Skip return : False--foreign import ccall "g_threaded_socket_service_new" g_threaded_socket_service_new :: -    Int32 ->                                -- max_threads : TBasicType TInt-    IO (Ptr ThreadedSocketService)--{- |-Creates a new 'GI.Gio.Objects.ThreadedSocketService.ThreadedSocketService' with no listeners. Listeners-must be added with one of the 'GI.Gio.Objects.SocketListener.SocketListener' \"add\" methods.--/Since: 2.22/--}-threadedSocketServiceNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Int32-    {- ^ /@maxThreads@/: the maximal number of threads to execute concurrently-  handling incoming clients, -1 means no limit -}-    -> m ThreadedSocketService-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SocketService.SocketService'. -}-threadedSocketServiceNew maxThreads = liftIO $ do-    result <- g_threaded_socket_service_new maxThreads-    checkUnexpectedReturnNULL "threadedSocketServiceNew" result-    result' <- (wrapObject ThreadedSocketService) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/ThreadedSocketService.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ThreadedSocketService 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 ThreadedSocketService = ThreadedSocketService (ManagedPtr ThreadedSocketService)-instance GObject ThreadedSocketService where-class (GObject o, O.IsDescendantOf ThreadedSocketService o) => IsThreadedSocketService o-instance (GObject o, O.IsDescendantOf ThreadedSocketService o) => IsThreadedSocketService o-instance O.HasParentTypes ThreadedSocketService-#if ENABLE_OVERLOADING-data ThreadedSocketServiceMaxThreadsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ThreadedSocketServiceRunSignalInfo-#endif
− GI/Gio/Objects/TlsCertificate.hs 
@@ -1,828 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A certificate used for TLS authentication and encryption.-This can represent either a certificate only (eg, the certificate-received by a client from a server), or the combination of-a certificate and a private key (which is needed when acting as a-'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection').--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.TlsCertificate-    ( ---- * Exported types-    TlsCertificate(..)                      ,-    IsTlsCertificate                        ,-    toTlsCertificate                        ,-    noTlsCertificate                        ,--- -- * Methods--- ** getIssuer #method:getIssuer#--#if ENABLE_OVERLOADING-    TlsCertificateGetIssuerMethodInfo       ,-#endif-    tlsCertificateGetIssuer                 ,----- ** isSame #method:isSame#--#if ENABLE_OVERLOADING-    TlsCertificateIsSameMethodInfo          ,-#endif-    tlsCertificateIsSame                    ,----- ** listNewFromFile #method:listNewFromFile#--    tlsCertificateListNewFromFile           ,----- ** newFromFile #method:newFromFile#--    tlsCertificateNewFromFile               ,----- ** newFromFiles #method:newFromFiles#--    tlsCertificateNewFromFiles              ,----- ** newFromPem #method:newFromPem#--    tlsCertificateNewFromPem                ,----- ** verify #method:verify#--#if ENABLE_OVERLOADING-    TlsCertificateVerifyMethodInfo          ,-#endif-    tlsCertificateVerify                    ,----- -- * Properties--- ** certificate #attr:certificate#-{- | The DER (binary) encoded representation of the certificate.-This property and the 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/certificate-pem/@ property-represent the same data, just in different forms.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsCertificateCertificatePropertyInfo   ,-#endif-    constructTlsCertificateCertificate      ,-    getTlsCertificateCertificate            ,-#if ENABLE_OVERLOADING-    tlsCertificateCertificate               ,-#endif----- ** certificatePem #attr:certificatePem#-{- | The PEM (ASCII) encoded representation of the certificate.-This property and the 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/certificate/@-property represent the same data, just in different forms.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsCertificateCertificatePemPropertyInfo,-#endif-    constructTlsCertificateCertificatePem   ,-    getTlsCertificateCertificatePem         ,-#if ENABLE_OVERLOADING-    tlsCertificateCertificatePem            ,-#endif----- ** issuer #attr:issuer#-{- | A 'GI.Gio.Objects.TlsCertificate.TlsCertificate' representing the entity that issued this-certificate. If 'Nothing', this means that the certificate is either-self-signed, or else the certificate of the issuer is not-available.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsCertificateIssuerPropertyInfo        ,-#endif-    constructTlsCertificateIssuer           ,-    getTlsCertificateIssuer                 ,-#if ENABLE_OVERLOADING-    tlsCertificateIssuer                    ,-#endif----- ** privateKey #attr:privateKey#-{- | The DER (binary) encoded representation of the certificate\'s-private key, in either PKCS@/1/@ format or unencrypted PKCS@/8/@-format. This property (or the 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/private-key-pem/@-property) can be set when constructing a key (eg, from a file),-but cannot be read.--PKCS@/8/@ format is supported since 2.32; earlier releases only-support PKCS@/1/@. You can use the @openssl rsa@-tool to convert PKCS@/8/@ keys to PKCS@/1/@.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsCertificatePrivateKeyPropertyInfo    ,-#endif-    constructTlsCertificatePrivateKey       ,-#if ENABLE_OVERLOADING-    tlsCertificatePrivateKey                ,-#endif----- ** privateKeyPem #attr:privateKeyPem#-{- | The PEM (ASCII) encoded representation of the certificate\'s-private key in either PKCS@/1/@ format (\"@BEGIN RSA PRIVATE-KEY@\") or unencrypted PKCS@/8/@ format (\"@BEGIN-PRIVATE KEY@\"). This property (or the-'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/private-key/@ property) can be set when-constructing a key (eg, from a file), but cannot be read.--PKCS@/8/@ format is supported since 2.32; earlier releases only-support PKCS@/1/@. You can use the @openssl rsa@-tool to convert PKCS@/8/@ keys to PKCS@/1/@.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsCertificatePrivateKeyPemPropertyInfo ,-#endif-    constructTlsCertificatePrivateKeyPem    ,-#if ENABLE_OVERLOADING-    tlsCertificatePrivateKeyPem             ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable---- | Memory-managed wrapper type.-newtype TlsCertificate = TlsCertificate (ManagedPtr TlsCertificate)-foreign import ccall "g_tls_certificate_get_type"-    c_g_tls_certificate_get_type :: IO GType--instance GObject TlsCertificate where-    gobjectType = c_g_tls_certificate_get_type-    ---- | Type class for types which can be safely cast to `TlsCertificate`, for instance with `toTlsCertificate`.-class (GObject o, O.IsDescendantOf TlsCertificate o) => IsTlsCertificate o-instance (GObject o, O.IsDescendantOf TlsCertificate o) => IsTlsCertificate o--instance O.HasParentTypes TlsCertificate-type instance O.ParentTypes TlsCertificate = '[GObject.Object.Object]---- | Cast to `TlsCertificate`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsCertificate :: (MonadIO m, IsTlsCertificate o) => o -> m TlsCertificate-toTlsCertificate = liftIO . unsafeCastTo TlsCertificate---- | A convenience alias for `Nothing` :: `Maybe` `TlsCertificate`.-noTlsCertificate :: Maybe TlsCertificate-noTlsCertificate = Nothing--#if ENABLE_OVERLOADING-type family ResolveTlsCertificateMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsCertificateMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsCertificateMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsCertificateMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsCertificateMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsCertificateMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsCertificateMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsCertificateMethod "isSame" o = TlsCertificateIsSameMethodInfo-    ResolveTlsCertificateMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsCertificateMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsCertificateMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsCertificateMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsCertificateMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsCertificateMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsCertificateMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsCertificateMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsCertificateMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsCertificateMethod "verify" o = TlsCertificateVerifyMethodInfo-    ResolveTlsCertificateMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsCertificateMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsCertificateMethod "getIssuer" o = TlsCertificateGetIssuerMethodInfo-    ResolveTlsCertificateMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsCertificateMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsCertificateMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsCertificateMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsCertificateMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsCertificateMethod t TlsCertificate, O.MethodInfo info TlsCertificate p) => OL.IsLabel t (TlsCertificate -> 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---- VVV Prop "certificate"-   -- Type: TByteArray-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsCertificate #certificate-@--}-getTlsCertificateCertificate :: (MonadIO m, IsTlsCertificate o) => o -> m (Maybe ByteString)-getTlsCertificateCertificate obj = liftIO $ B.Properties.getObjectPropertyByteArray obj "certificate"--{- |-Construct a `GValueConstruct` with valid value for the “@certificate@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsCertificateCertificate :: (IsTlsCertificate o) => ByteString -> IO (GValueConstruct o)-constructTlsCertificateCertificate val = B.Properties.constructObjectPropertyByteArray "certificate" (Just val)--#if ENABLE_OVERLOADING-data TlsCertificateCertificatePropertyInfo-instance AttrInfo TlsCertificateCertificatePropertyInfo where-    type AttrAllowedOps TlsCertificateCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificateCertificatePropertyInfo = (~) ByteString-    type AttrBaseTypeConstraint TlsCertificateCertificatePropertyInfo = IsTlsCertificate-    type AttrGetType TlsCertificateCertificatePropertyInfo = (Maybe ByteString)-    type AttrLabel TlsCertificateCertificatePropertyInfo = "certificate"-    type AttrOrigin TlsCertificateCertificatePropertyInfo = TlsCertificate-    attrGet _ = getTlsCertificateCertificate-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificateCertificate-    attrClear _ = undefined-#endif---- VVV Prop "certificate-pem"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@certificate-pem@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsCertificate #certificatePem-@--}-getTlsCertificateCertificatePem :: (MonadIO m, IsTlsCertificate o) => o -> m (Maybe T.Text)-getTlsCertificateCertificatePem obj = liftIO $ B.Properties.getObjectPropertyString obj "certificate-pem"--{- |-Construct a `GValueConstruct` with valid value for the “@certificate-pem@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsCertificateCertificatePem :: (IsTlsCertificate o) => T.Text -> IO (GValueConstruct o)-constructTlsCertificateCertificatePem val = B.Properties.constructObjectPropertyString "certificate-pem" (Just val)--#if ENABLE_OVERLOADING-data TlsCertificateCertificatePemPropertyInfo-instance AttrInfo TlsCertificateCertificatePemPropertyInfo where-    type AttrAllowedOps TlsCertificateCertificatePemPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificateCertificatePemPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsCertificateCertificatePemPropertyInfo = IsTlsCertificate-    type AttrGetType TlsCertificateCertificatePemPropertyInfo = (Maybe T.Text)-    type AttrLabel TlsCertificateCertificatePemPropertyInfo = "certificate-pem"-    type AttrOrigin TlsCertificateCertificatePemPropertyInfo = TlsCertificate-    attrGet _ = getTlsCertificateCertificatePem-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificateCertificatePem-    attrClear _ = undefined-#endif---- VVV Prop "issuer"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@issuer@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsCertificate #issuer-@--}-getTlsCertificateIssuer :: (MonadIO m, IsTlsCertificate o) => o -> m TlsCertificate-getTlsCertificateIssuer obj = liftIO $ checkUnexpectedNothing "getTlsCertificateIssuer" $ B.Properties.getObjectPropertyObject obj "issuer" TlsCertificate--{- |-Construct a `GValueConstruct` with valid value for the “@issuer@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsCertificateIssuer :: (IsTlsCertificate o, IsTlsCertificate a) => a -> IO (GValueConstruct o)-constructTlsCertificateIssuer val = B.Properties.constructObjectPropertyObject "issuer" (Just val)--#if ENABLE_OVERLOADING-data TlsCertificateIssuerPropertyInfo-instance AttrInfo TlsCertificateIssuerPropertyInfo where-    type AttrAllowedOps TlsCertificateIssuerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificateIssuerPropertyInfo = IsTlsCertificate-    type AttrBaseTypeConstraint TlsCertificateIssuerPropertyInfo = IsTlsCertificate-    type AttrGetType TlsCertificateIssuerPropertyInfo = TlsCertificate-    type AttrLabel TlsCertificateIssuerPropertyInfo = "issuer"-    type AttrOrigin TlsCertificateIssuerPropertyInfo = TlsCertificate-    attrGet _ = getTlsCertificateIssuer-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificateIssuer-    attrClear _ = undefined-#endif---- VVV Prop "private-key"-   -- Type: TByteArray-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@private-key@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsCertificatePrivateKey :: (IsTlsCertificate o) => ByteString -> IO (GValueConstruct o)-constructTlsCertificatePrivateKey val = B.Properties.constructObjectPropertyByteArray "private-key" (Just val)--#if ENABLE_OVERLOADING-data TlsCertificatePrivateKeyPropertyInfo-instance AttrInfo TlsCertificatePrivateKeyPropertyInfo where-    type AttrAllowedOps TlsCertificatePrivateKeyPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificatePrivateKeyPropertyInfo = (~) ByteString-    type AttrBaseTypeConstraint TlsCertificatePrivateKeyPropertyInfo = IsTlsCertificate-    type AttrGetType TlsCertificatePrivateKeyPropertyInfo = ()-    type AttrLabel TlsCertificatePrivateKeyPropertyInfo = "private-key"-    type AttrOrigin TlsCertificatePrivateKeyPropertyInfo = TlsCertificate-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificatePrivateKey-    attrClear _ = undefined-#endif---- VVV Prop "private-key-pem"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@private-key-pem@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsCertificatePrivateKeyPem :: (IsTlsCertificate o) => T.Text -> IO (GValueConstruct o)-constructTlsCertificatePrivateKeyPem val = B.Properties.constructObjectPropertyString "private-key-pem" (Just val)--#if ENABLE_OVERLOADING-data TlsCertificatePrivateKeyPemPropertyInfo-instance AttrInfo TlsCertificatePrivateKeyPemPropertyInfo where-    type AttrAllowedOps TlsCertificatePrivateKeyPemPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint TlsCertificatePrivateKeyPemPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsCertificatePrivateKeyPemPropertyInfo = IsTlsCertificate-    type AttrGetType TlsCertificatePrivateKeyPemPropertyInfo = ()-    type AttrLabel TlsCertificatePrivateKeyPemPropertyInfo = "private-key-pem"-    type AttrOrigin TlsCertificatePrivateKeyPemPropertyInfo = TlsCertificate-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructTlsCertificatePrivateKeyPem-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsCertificate-type instance O.AttributeList TlsCertificate = TlsCertificateAttributeList-type TlsCertificateAttributeList = ('[ '("certificate", TlsCertificateCertificatePropertyInfo), '("certificatePem", TlsCertificateCertificatePemPropertyInfo), '("issuer", TlsCertificateIssuerPropertyInfo), '("privateKey", TlsCertificatePrivateKeyPropertyInfo), '("privateKeyPem", TlsCertificatePrivateKeyPemPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-tlsCertificateCertificate :: AttrLabelProxy "certificate"-tlsCertificateCertificate = AttrLabelProxy--tlsCertificateCertificatePem :: AttrLabelProxy "certificatePem"-tlsCertificateCertificatePem = AttrLabelProxy--tlsCertificateIssuer :: AttrLabelProxy "issuer"-tlsCertificateIssuer = AttrLabelProxy--tlsCertificatePrivateKey :: AttrLabelProxy "privateKey"-tlsCertificatePrivateKey = AttrLabelProxy--tlsCertificatePrivateKeyPem :: AttrLabelProxy "privateKeyPem"-tlsCertificatePrivateKeyPem = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList TlsCertificate = TlsCertificateSignalList-type TlsCertificateSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method TlsCertificate::new_from_file--- method type : Constructor--- Args : [Arg {argCName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "file containing a PEM-encoded certificate to import", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_certificate_new_from_file" g_tls_certificate_new_from_file :: -    CString ->                              -- file : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)--{- |-Creates a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' from the PEM-encoded data in /@file@/. The-returned certificate will be the first certificate found in /@file@/. As-of GLib 2.44, if /@file@/ contains more certificates it will try to load-a certificate chain. All certificates will be verified in the order-found (top-level certificate should be the last one in the file) and-the 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/issuer/@ property of each certificate will be set-accordingly if the verification succeeds. If any certificate in the-chain cannot be verified, the first certificate in the file will-still be returned.--If /@file@/ cannot be read or parsed, the function will return 'Nothing' and-set /@error@/. Otherwise, this behaves like-'GI.Gio.Objects.TlsCertificate.tlsCertificateNewFromPem'.--/Since: 2.28/--}-tlsCertificateNewFromFile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@file@/: file containing a PEM-encoded certificate to import -}-    -> m TlsCertificate-    {- ^ __Returns:__ the new certificate, or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsCertificateNewFromFile file = liftIO $ do-    file' <- stringToCString file-    onException (do-        result <- propagateGError $ g_tls_certificate_new_from_file file'-        checkUnexpectedReturnNULL "tlsCertificateNewFromFile" result-        result' <- (wrapObject TlsCertificate) result-        freeMem file'-        return result'-     ) (do-        freeMem file'-     )--#if ENABLE_OVERLOADING-#endif---- method TlsCertificate::new_from_files--- method type : Constructor--- Args : [Arg {argCName = "cert_file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "file containing one or more PEM-encoded\n    certificates to import", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "file containing a PEM-encoded private key\n    to import", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_certificate_new_from_files" g_tls_certificate_new_from_files :: -    CString ->                              -- cert_file : TBasicType TFileName-    CString ->                              -- key_file : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)--{- |-Creates a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' from the PEM-encoded data in /@certFile@/-and /@keyFile@/. The returned certificate will be the first certificate-found in /@certFile@/. As of GLib 2.44, if /@certFile@/ contains more-certificates it will try to load a certificate chain. All-certificates will be verified in the order found (top-level-certificate should be the last one in the file) and the-'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/issuer/@ property of each certificate will be set-accordingly if the verification succeeds. If any certificate in the-chain cannot be verified, the first certificate in the file will-still be returned.--If either file cannot be read or parsed, the function will return-'Nothing' and set /@error@/. Otherwise, this behaves like-'GI.Gio.Objects.TlsCertificate.tlsCertificateNewFromPem'.--/Since: 2.28/--}-tlsCertificateNewFromFiles ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@certFile@/: file containing one or more PEM-encoded-    certificates to import -}-    -> [Char]-    {- ^ /@keyFile@/: file containing a PEM-encoded private key-    to import -}-    -> m TlsCertificate-    {- ^ __Returns:__ the new certificate, or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsCertificateNewFromFiles certFile keyFile = liftIO $ do-    certFile' <- stringToCString certFile-    keyFile' <- stringToCString keyFile-    onException (do-        result <- propagateGError $ g_tls_certificate_new_from_files certFile' keyFile'-        checkUnexpectedReturnNULL "tlsCertificateNewFromFiles" result-        result' <- (wrapObject TlsCertificate) result-        freeMem certFile'-        freeMem keyFile'-        return result'-     ) (do-        freeMem certFile'-        freeMem keyFile'-     )--#if ENABLE_OVERLOADING-#endif---- method TlsCertificate::new_from_pem--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "PEM-encoded certificate data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @data, or -1 if it's 0-terminated.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_certificate_new_from_pem" g_tls_certificate_new_from_pem :: -    CString ->                              -- data : TBasicType TUTF8-    Int64 ->                                -- length : TBasicType TInt64-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr TlsCertificate)--{- |-Creates a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' from the PEM-encoded data in /@data@/. If-/@data@/ includes both a certificate and a private key, then the-returned certificate will include the private key data as well. (See-the 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/private-key-pem/@ property for information about-supported formats.)--The returned certificate will be the first certificate found in-/@data@/. As of GLib 2.44, if /@data@/ contains more certificates it will-try to load a certificate chain. All certificates will be verified in-the order found (top-level certificate should be the last one in the-file) and the 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/issuer/@ property of each certificate-will be set accordingly if the verification succeeds. If any-certificate in the chain cannot be verified, the first certificate in-the file will still be returned.--/Since: 2.28/--}-tlsCertificateNewFromPem ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@data@/: PEM-encoded certificate data -}-    -> Int64-    {- ^ /@length@/: the length of /@data@/, or -1 if it\'s 0-terminated. -}-    -> m TlsCertificate-    {- ^ __Returns:__ the new certificate, or 'Nothing' if /@data@/ is invalid /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsCertificateNewFromPem data_ length_ = liftIO $ do-    data_' <- textToCString data_-    onException (do-        result <- propagateGError $ g_tls_certificate_new_from_pem data_' length_-        checkUnexpectedReturnNULL "tlsCertificateNewFromPem" result-        result' <- (wrapObject TlsCertificate) result-        freeMem data_'-        return result'-     ) (do-        freeMem data_'-     )--#if ENABLE_OVERLOADING-#endif---- method TlsCertificate::get_issuer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cert", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsCertificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_certificate_get_issuer" g_tls_certificate_get_issuer :: -    Ptr TlsCertificate ->                   -- cert : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    IO (Ptr TlsCertificate)--{- |-Gets the 'GI.Gio.Objects.TlsCertificate.TlsCertificate' representing /@cert@/\'s issuer, if known--/Since: 2.28/--}-tlsCertificateGetIssuer ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsCertificate a) =>-    a-    {- ^ /@cert@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}-    -> m TlsCertificate-    {- ^ __Returns:__ The certificate of /@cert@/\'s issuer,-or 'Nothing' if /@cert@/ is self-signed or signed with an unknown-certificate. -}-tlsCertificateGetIssuer cert = liftIO $ do-    cert' <- unsafeManagedPtrCastPtr cert-    result <- g_tls_certificate_get_issuer cert'-    checkUnexpectedReturnNULL "tlsCertificateGetIssuer" result-    result' <- (newObject TlsCertificate) result-    touchManagedPtr cert-    return result'--#if ENABLE_OVERLOADING-data TlsCertificateGetIssuerMethodInfo-instance (signature ~ (m TlsCertificate), MonadIO m, IsTlsCertificate a) => O.MethodInfo TlsCertificateGetIssuerMethodInfo a signature where-    overloadedMethod _ = tlsCertificateGetIssuer--#endif---- method TlsCertificate::is_same--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cert_one", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "first certificate to compare", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cert_two", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "second certificate to compare", 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 "g_tls_certificate_is_same" g_tls_certificate_is_same :: -    Ptr TlsCertificate ->                   -- cert_one : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    Ptr TlsCertificate ->                   -- cert_two : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    IO CInt--{- |-Check if two 'GI.Gio.Objects.TlsCertificate.TlsCertificate' objects represent the same certificate.-The raw DER byte data of the two certificates are checked for equality.-This has the effect that two certificates may compare equal even if-their 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/issuer/@, 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/private-key/@, or-'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/private-key-pem/@ properties differ.--/Since: 2.34/--}-tlsCertificateIsSame ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsCertificate a, IsTlsCertificate b) =>-    a-    {- ^ /@certOne@/: first certificate to compare -}-    -> b-    {- ^ /@certTwo@/: second certificate to compare -}-    -> m Bool-    {- ^ __Returns:__ whether the same or not -}-tlsCertificateIsSame certOne certTwo = liftIO $ do-    certOne' <- unsafeManagedPtrCastPtr certOne-    certTwo' <- unsafeManagedPtrCastPtr certTwo-    result <- g_tls_certificate_is_same certOne' certTwo'-    let result' = (/= 0) result-    touchManagedPtr certOne-    touchManagedPtr certTwo-    return result'--#if ENABLE_OVERLOADING-data TlsCertificateIsSameMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsTlsCertificate a, IsTlsCertificate b) => O.MethodInfo TlsCertificateIsSameMethodInfo a signature where-    overloadedMethod _ = tlsCertificateIsSame--#endif---- method TlsCertificate::verify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cert", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsCertificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected peer identity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trusted_ca", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the certificate of a trusted authority", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_certificate_verify" g_tls_certificate_verify :: -    Ptr TlsCertificate ->                   -- cert : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    Ptr Gio.SocketConnectable.SocketConnectable -> -- identity : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    Ptr TlsCertificate ->                   -- trusted_ca : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    IO CUInt--{- |-This verifies /@cert@/ and returns a set of 'GI.Gio.Flags.TlsCertificateFlags'-indicating any problems found with it. This can be used to verify a-certificate outside the context of making a connection, or to-check a certificate against a CA that is not part of the system-CA database.--If /@identity@/ is not 'Nothing', /@cert@/\'s name(s) will be compared against-it, and 'GI.Gio.Flags.TlsCertificateFlagsBadIdentity' will be set in the return-value if it does not match. If /@identity@/ is 'Nothing', that bit will-never be set in the return value.--If /@trustedCa@/ is not 'Nothing', then /@cert@/ (or one of the certificates-in its chain) must be signed by it, or else-'GI.Gio.Flags.TlsCertificateFlagsUnknownCa' will be set in the return value. If-/@trustedCa@/ is 'Nothing', that bit will never be set in the return-value.--(All other 'GI.Gio.Flags.TlsCertificateFlags' values will always be set or unset-as appropriate.)--/Since: 2.28/--}-tlsCertificateVerify ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsCertificate a, Gio.SocketConnectable.IsSocketConnectable b, IsTlsCertificate c) =>-    a-    {- ^ /@cert@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}-    -> Maybe (b)-    {- ^ /@identity@/: the expected peer identity -}-    -> Maybe (c)-    {- ^ /@trustedCa@/: the certificate of a trusted authority -}-    -> m [Gio.Flags.TlsCertificateFlags]-    {- ^ __Returns:__ the appropriate 'GI.Gio.Flags.TlsCertificateFlags' -}-tlsCertificateVerify cert identity trustedCa = liftIO $ do-    cert' <- unsafeManagedPtrCastPtr cert-    maybeIdentity <- case identity of-        Nothing -> return nullPtr-        Just jIdentity -> do-            jIdentity' <- unsafeManagedPtrCastPtr jIdentity-            return jIdentity'-    maybeTrustedCa <- case trustedCa of-        Nothing -> return nullPtr-        Just jTrustedCa -> do-            jTrustedCa' <- unsafeManagedPtrCastPtr jTrustedCa-            return jTrustedCa'-    result <- g_tls_certificate_verify cert' maybeIdentity maybeTrustedCa-    let result' = wordToGFlags result-    touchManagedPtr cert-    whenJust identity touchManagedPtr-    whenJust trustedCa touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data TlsCertificateVerifyMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (c) -> m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsTlsCertificate a, Gio.SocketConnectable.IsSocketConnectable b, IsTlsCertificate c) => O.MethodInfo TlsCertificateVerifyMethodInfo a signature where-    overloadedMethod _ = tlsCertificateVerify--#endif---- method TlsCertificate::list_new_from_file--- method type : MemberFunction--- Args : [Arg {argCName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "file containing PEM-encoded certificates to import", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "TlsCertificate"})))--- throws : True--- Skip return : False--foreign import ccall "g_tls_certificate_list_new_from_file" g_tls_certificate_list_new_from_file :: -    CString ->                              -- file : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr TlsCertificate)))--{- |-Creates one or more @/GTlsCertificates/@ from the PEM-encoded-data in /@file@/. If /@file@/ cannot be read or parsed, the function will-return 'Nothing' and set /@error@/. If /@file@/ does not contain any-PEM-encoded certificates, this will return an empty list and not-set /@error@/.--/Since: 2.28/--}-tlsCertificateListNewFromFile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@file@/: file containing PEM-encoded certificates to import -}-    -> m [TlsCertificate]-    {- ^ __Returns:__ a-'GI.GLib.Structs.List.List' containing 'GI.Gio.Objects.TlsCertificate.TlsCertificate' objects. You must free the list-and its contents when you are done with it. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsCertificateListNewFromFile file = liftIO $ do-    file' <- stringToCString file-    onException (do-        result <- propagateGError $ g_tls_certificate_list_new_from_file file'-        result' <- unpackGList result-        result'' <- mapM (wrapObject TlsCertificate) result'-        g_list_free result-        freeMem file'-        return result''-     ) (do-        freeMem file'-     )--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/TlsCertificate.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.TlsCertificate 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 TlsCertificate = TlsCertificate (ManagedPtr TlsCertificate)-instance GObject TlsCertificate where-class (GObject o, O.IsDescendantOf TlsCertificate o) => IsTlsCertificate o-instance (GObject o, O.IsDescendantOf TlsCertificate o) => IsTlsCertificate o-instance O.HasParentTypes TlsCertificate-#if ENABLE_OVERLOADING-data TlsCertificateCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsCertificateCertificatePemPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsCertificateIssuerPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsCertificatePrivateKeyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsCertificatePrivateKeyPemPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsCertificateGetIssuerMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsCertificateIsSameMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsCertificateVerifyMethodInfo-#endif
− GI/Gio/Objects/TlsConnection.hs 
@@ -1,2157 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.TlsConnection.TlsConnection' is the base TLS connection class type, which wraps-a 'GI.Gio.Objects.IOStream.IOStream' and provides TLS encryption on top of it. Its-subclasses, 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection' and 'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection',-implement client-side and server-side TLS, respectively.--For DTLS (Datagram TLS) support, see 'GI.Gio.Interfaces.DtlsConnection.DtlsConnection'.--/Since: 2.28/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.TlsConnection-    ( ---- * Exported types-    TlsConnection(..)                       ,-    IsTlsConnection                         ,-    toTlsConnection                         ,-    noTlsConnection                         ,--- -- * Methods--- ** emitAcceptCertificate #method:emitAcceptCertificate#--#if ENABLE_OVERLOADING-    TlsConnectionEmitAcceptCertificateMethodInfo,-#endif-    tlsConnectionEmitAcceptCertificate      ,----- ** getCertificate #method:getCertificate#--#if ENABLE_OVERLOADING-    TlsConnectionGetCertificateMethodInfo   ,-#endif-    tlsConnectionGetCertificate             ,----- ** getDatabase #method:getDatabase#--#if ENABLE_OVERLOADING-    TlsConnectionGetDatabaseMethodInfo      ,-#endif-    tlsConnectionGetDatabase                ,----- ** getInteraction #method:getInteraction#--#if ENABLE_OVERLOADING-    TlsConnectionGetInteractionMethodInfo   ,-#endif-    tlsConnectionGetInteraction             ,----- ** getNegotiatedProtocol #method:getNegotiatedProtocol#--#if ENABLE_OVERLOADING-    TlsConnectionGetNegotiatedProtocolMethodInfo,-#endif-    tlsConnectionGetNegotiatedProtocol      ,----- ** getPeerCertificate #method:getPeerCertificate#--#if ENABLE_OVERLOADING-    TlsConnectionGetPeerCertificateMethodInfo,-#endif-    tlsConnectionGetPeerCertificate         ,----- ** getPeerCertificateErrors #method:getPeerCertificateErrors#--#if ENABLE_OVERLOADING-    TlsConnectionGetPeerCertificateErrorsMethodInfo,-#endif-    tlsConnectionGetPeerCertificateErrors   ,----- ** getRehandshakeMode #method:getRehandshakeMode#--#if ENABLE_OVERLOADING-    TlsConnectionGetRehandshakeModeMethodInfo,-#endif-    tlsConnectionGetRehandshakeMode         ,----- ** getRequireCloseNotify #method:getRequireCloseNotify#--#if ENABLE_OVERLOADING-    TlsConnectionGetRequireCloseNotifyMethodInfo,-#endif-    tlsConnectionGetRequireCloseNotify      ,----- ** getUseSystemCertdb #method:getUseSystemCertdb#--#if ENABLE_OVERLOADING-    TlsConnectionGetUseSystemCertdbMethodInfo,-#endif-    tlsConnectionGetUseSystemCertdb         ,----- ** handshake #method:handshake#--#if ENABLE_OVERLOADING-    TlsConnectionHandshakeMethodInfo        ,-#endif-    tlsConnectionHandshake                  ,----- ** handshakeAsync #method:handshakeAsync#--#if ENABLE_OVERLOADING-    TlsConnectionHandshakeAsyncMethodInfo   ,-#endif-    tlsConnectionHandshakeAsync             ,----- ** handshakeFinish #method:handshakeFinish#--#if ENABLE_OVERLOADING-    TlsConnectionHandshakeFinishMethodInfo  ,-#endif-    tlsConnectionHandshakeFinish            ,----- ** setAdvertisedProtocols #method:setAdvertisedProtocols#--#if ENABLE_OVERLOADING-    TlsConnectionSetAdvertisedProtocolsMethodInfo,-#endif-    tlsConnectionSetAdvertisedProtocols     ,----- ** setCertificate #method:setCertificate#--#if ENABLE_OVERLOADING-    TlsConnectionSetCertificateMethodInfo   ,-#endif-    tlsConnectionSetCertificate             ,----- ** setDatabase #method:setDatabase#--#if ENABLE_OVERLOADING-    TlsConnectionSetDatabaseMethodInfo      ,-#endif-    tlsConnectionSetDatabase                ,----- ** setInteraction #method:setInteraction#--#if ENABLE_OVERLOADING-    TlsConnectionSetInteractionMethodInfo   ,-#endif-    tlsConnectionSetInteraction             ,----- ** setRehandshakeMode #method:setRehandshakeMode#--#if ENABLE_OVERLOADING-    TlsConnectionSetRehandshakeModeMethodInfo,-#endif-    tlsConnectionSetRehandshakeMode         ,----- ** setRequireCloseNotify #method:setRequireCloseNotify#--#if ENABLE_OVERLOADING-    TlsConnectionSetRequireCloseNotifyMethodInfo,-#endif-    tlsConnectionSetRequireCloseNotify      ,----- ** setUseSystemCertdb #method:setUseSystemCertdb#--#if ENABLE_OVERLOADING-    TlsConnectionSetUseSystemCertdbMethodInfo,-#endif-    tlsConnectionSetUseSystemCertdb         ,----- -- * Properties--- ** advertisedProtocols #attr:advertisedProtocols#-{- | The list of application-layer protocols that the connection-advertises that it is willing to speak. See-'GI.Gio.Objects.TlsConnection.tlsConnectionSetAdvertisedProtocols'.--/Since: 2.60/--}-#if ENABLE_OVERLOADING-    TlsConnectionAdvertisedProtocolsPropertyInfo,-#endif-    clearTlsConnectionAdvertisedProtocols   ,-    constructTlsConnectionAdvertisedProtocols,-    getTlsConnectionAdvertisedProtocols     ,-    setTlsConnectionAdvertisedProtocols     ,-#if ENABLE_OVERLOADING-    tlsConnectionAdvertisedProtocols        ,-#endif----- ** baseIoStream #attr:baseIoStream#-{- | The 'GI.Gio.Objects.IOStream.IOStream' that the connection wraps. The connection holds a reference-to this stream, and may run operations on the stream from other threads-throughout its lifetime. Consequently, after the 'GI.Gio.Objects.IOStream.IOStream' has been-constructed, application code may only run its own operations on this-stream when no 'GI.Gio.Objects.IOStream.IOStream' operations are running.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsConnectionBaseIoStreamPropertyInfo   ,-#endif-    constructTlsConnectionBaseIoStream      ,-    getTlsConnectionBaseIoStream            ,-#if ENABLE_OVERLOADING-    tlsConnectionBaseIoStream               ,-#endif----- ** certificate #attr:certificate#-{- | The connection\'s certificate; see-'GI.Gio.Objects.TlsConnection.tlsConnectionSetCertificate'.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsConnectionCertificatePropertyInfo    ,-#endif-    constructTlsConnectionCertificate       ,-    getTlsConnectionCertificate             ,-    setTlsConnectionCertificate             ,-#if ENABLE_OVERLOADING-    tlsConnectionCertificate                ,-#endif----- ** database #attr:database#-{- | The certificate database to use when verifying this TLS connection.-If no certificate database is set, then the default database will be-used. See 'GI.Gio.Interfaces.TlsBackend.tlsBackendGetDefaultDatabase'.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    TlsConnectionDatabasePropertyInfo       ,-#endif-    constructTlsConnectionDatabase          ,-    getTlsConnectionDatabase                ,-    setTlsConnectionDatabase                ,-#if ENABLE_OVERLOADING-    tlsConnectionDatabase                   ,-#endif----- ** interaction #attr:interaction#-{- | A 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object to be used when the connection or certificate-database need to interact with the user. This will be used to prompt the-user for passwords where necessary.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    TlsConnectionInteractionPropertyInfo    ,-#endif-    clearTlsConnectionInteraction           ,-    constructTlsConnectionInteraction       ,-    getTlsConnectionInteraction             ,-    setTlsConnectionInteraction             ,-#if ENABLE_OVERLOADING-    tlsConnectionInteraction                ,-#endif----- ** negotiatedProtocol #attr:negotiatedProtocol#-{- | The application-layer protocol negotiated during the TLS-handshake. See 'GI.Gio.Objects.TlsConnection.tlsConnectionGetNegotiatedProtocol'.--/Since: 2.60/--}-#if ENABLE_OVERLOADING-    TlsConnectionNegotiatedProtocolPropertyInfo,-#endif-    getTlsConnectionNegotiatedProtocol      ,-#if ENABLE_OVERLOADING-    tlsConnectionNegotiatedProtocol         ,-#endif----- ** peerCertificate #attr:peerCertificate#-{- | The connection\'s peer\'s certificate, after the TLS handshake has-completed and the certificate has been accepted. Note in-particular that this is not yet set during the emission of-'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@.--(You can watch for a 'GI.GObject.Objects.Object.Object'::@/notify/@ signal on this property to-detect when a handshake has occurred.)--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsConnectionPeerCertificatePropertyInfo,-#endif-    getTlsConnectionPeerCertificate         ,-#if ENABLE_OVERLOADING-    tlsConnectionPeerCertificate            ,-#endif----- ** peerCertificateErrors #attr:peerCertificateErrors#-{- | The errors noticed-and-ignored while verifying-'GI.Gio.Objects.TlsConnection.TlsConnection':@/peer-certificate/@. Normally this should be 0, but-it may not be if 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection':@/validation-flags/@ is not-'GI.Gio.Flags.TlsCertificateFlagsValidateAll', or if-'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@ overrode the default-behavior.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsConnectionPeerCertificateErrorsPropertyInfo,-#endif-    getTlsConnectionPeerCertificateErrors   ,-#if ENABLE_OVERLOADING-    tlsConnectionPeerCertificateErrors      ,-#endif----- ** rehandshakeMode #attr:rehandshakeMode#-{- | The rehandshaking mode. See-'GI.Gio.Objects.TlsConnection.tlsConnectionSetRehandshakeMode'.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsConnectionRehandshakeModePropertyInfo,-#endif-    constructTlsConnectionRehandshakeMode   ,-    getTlsConnectionRehandshakeMode         ,-    setTlsConnectionRehandshakeMode         ,-#if ENABLE_OVERLOADING-    tlsConnectionRehandshakeMode            ,-#endif----- ** requireCloseNotify #attr:requireCloseNotify#-{- | Whether or not proper TLS close notification is required.-See 'GI.Gio.Objects.TlsConnection.tlsConnectionSetRequireCloseNotify'.--/Since: 2.28/--}-#if ENABLE_OVERLOADING-    TlsConnectionRequireCloseNotifyPropertyInfo,-#endif-    constructTlsConnectionRequireCloseNotify,-    getTlsConnectionRequireCloseNotify      ,-    setTlsConnectionRequireCloseNotify      ,-#if ENABLE_OVERLOADING-    tlsConnectionRequireCloseNotify         ,-#endif----- ** useSystemCertdb #attr:useSystemCertdb#-{- | Whether or not the system certificate database will be used to-verify peer certificates. See-'GI.Gio.Objects.TlsConnection.tlsConnectionSetUseSystemCertdb'.--}-#if ENABLE_OVERLOADING-    TlsConnectionUseSystemCertdbPropertyInfo,-#endif-    constructTlsConnectionUseSystemCertdb   ,-    getTlsConnectionUseSystemCertdb         ,-    setTlsConnectionUseSystemCertdb         ,-#if ENABLE_OVERLOADING-    tlsConnectionUseSystemCertdb            ,-#endif----- -- * Signals--- ** acceptCertificate #signal:acceptCertificate#--    C_TlsConnectionAcceptCertificateCallback,-    TlsConnectionAcceptCertificateCallback  ,-#if ENABLE_OVERLOADING-    TlsConnectionAcceptCertificateSignalInfo,-#endif-    afterTlsConnectionAcceptCertificate     ,-    genClosure_TlsConnectionAcceptCertificate,-    mk_TlsConnectionAcceptCertificateCallback,-    noTlsConnectionAcceptCertificateCallback,-    onTlsConnectionAcceptCertificate        ,-    wrap_TlsConnectionAcceptCertificateCallback,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsInteraction as Gio.TlsInteraction---- | Memory-managed wrapper type.-newtype TlsConnection = TlsConnection (ManagedPtr TlsConnection)-foreign import ccall "g_tls_connection_get_type"-    c_g_tls_connection_get_type :: IO GType--instance GObject TlsConnection where-    gobjectType = c_g_tls_connection_get_type-    ---- | Type class for types which can be safely cast to `TlsConnection`, for instance with `toTlsConnection`.-class (GObject o, O.IsDescendantOf TlsConnection o) => IsTlsConnection o-instance (GObject o, O.IsDescendantOf TlsConnection o) => IsTlsConnection o--instance O.HasParentTypes TlsConnection-type instance O.ParentTypes TlsConnection = '[Gio.IOStream.IOStream, GObject.Object.Object]---- | Cast to `TlsConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsConnection :: (MonadIO m, IsTlsConnection o) => o -> m TlsConnection-toTlsConnection = liftIO . unsafeCastTo TlsConnection---- | A convenience alias for `Nothing` :: `Maybe` `TlsConnection`.-noTlsConnection :: Maybe TlsConnection-noTlsConnection = Nothing--#if ENABLE_OVERLOADING-type family ResolveTlsConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsConnectionMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveTlsConnectionMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveTlsConnectionMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveTlsConnectionMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveTlsConnectionMethod "emitAcceptCertificate" o = TlsConnectionEmitAcceptCertificateMethodInfo-    ResolveTlsConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsConnectionMethod "handshake" o = TlsConnectionHandshakeMethodInfo-    ResolveTlsConnectionMethod "handshakeAsync" o = TlsConnectionHandshakeAsyncMethodInfo-    ResolveTlsConnectionMethod "handshakeFinish" o = TlsConnectionHandshakeFinishMethodInfo-    ResolveTlsConnectionMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveTlsConnectionMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveTlsConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsConnectionMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveTlsConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsConnectionMethod "getCertificate" o = TlsConnectionGetCertificateMethodInfo-    ResolveTlsConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsConnectionMethod "getDatabase" o = TlsConnectionGetDatabaseMethodInfo-    ResolveTlsConnectionMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveTlsConnectionMethod "getInteraction" o = TlsConnectionGetInteractionMethodInfo-    ResolveTlsConnectionMethod "getNegotiatedProtocol" o = TlsConnectionGetNegotiatedProtocolMethodInfo-    ResolveTlsConnectionMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveTlsConnectionMethod "getPeerCertificate" o = TlsConnectionGetPeerCertificateMethodInfo-    ResolveTlsConnectionMethod "getPeerCertificateErrors" o = TlsConnectionGetPeerCertificateErrorsMethodInfo-    ResolveTlsConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsConnectionMethod "getRehandshakeMode" o = TlsConnectionGetRehandshakeModeMethodInfo-    ResolveTlsConnectionMethod "getRequireCloseNotify" o = TlsConnectionGetRequireCloseNotifyMethodInfo-    ResolveTlsConnectionMethod "getUseSystemCertdb" o = TlsConnectionGetUseSystemCertdbMethodInfo-    ResolveTlsConnectionMethod "setAdvertisedProtocols" o = TlsConnectionSetAdvertisedProtocolsMethodInfo-    ResolveTlsConnectionMethod "setCertificate" o = TlsConnectionSetCertificateMethodInfo-    ResolveTlsConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsConnectionMethod "setDatabase" o = TlsConnectionSetDatabaseMethodInfo-    ResolveTlsConnectionMethod "setInteraction" o = TlsConnectionSetInteractionMethodInfo-    ResolveTlsConnectionMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveTlsConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsConnectionMethod "setRehandshakeMode" o = TlsConnectionSetRehandshakeModeMethodInfo-    ResolveTlsConnectionMethod "setRequireCloseNotify" o = TlsConnectionSetRequireCloseNotifyMethodInfo-    ResolveTlsConnectionMethod "setUseSystemCertdb" o = TlsConnectionSetUseSystemCertdbMethodInfo-    ResolveTlsConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsConnectionMethod t TlsConnection, O.MethodInfo info TlsConnection p) => OL.IsLabel t (TlsConnection -> 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 TlsConnection::accept-certificate-{- |-Emitted during the TLS handshake after the peer certificate has-been received. You can examine /@peerCert@/\'s certification path by-calling 'GI.Gio.Objects.TlsCertificate.tlsCertificateGetIssuer' on it.--For a client-side connection, /@peerCert@/ is the server\'s-certificate, and the signal will only be emitted if the-certificate was not acceptable according to /@conn@/\'s-'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection':@/validation_flags/@. If you would like the-certificate to be accepted despite /@errors@/, return 'True' from the-signal handler. Otherwise, if no handler accepts the certificate,-the handshake will fail with 'GI.Gio.Enums.TlsErrorBadCertificate'.--For a server-side connection, /@peerCert@/ is the certificate-presented by the client, if this was requested via the server\'s-'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection':@/authentication_mode/@. On the server side,-the signal is always emitted when the client presents a-certificate, and the certificate will only be accepted if a-handler returns 'True'.--Note that if this signal is emitted as part of asynchronous I\/O-in the main thread, then you should not attempt to interact with-the user before returning from the signal handler. If you want to-let the user decide whether or not to accept the certificate, you-would have to return 'False' from the signal handler on the first-attempt, and then after the connection attempt returns a-'GI.Gio.Enums.TlsErrorBadCertificate', you can interact with the user, and-if the user decides to accept the certificate, remember that fact,-create a new connection, and return 'True' from the signal handler-the next time.--If you are doing I\/O in another thread, you do not-need to worry about this, and can simply block in the signal-handler until the UI thread returns an answer.--/Since: 2.28/--}-type TlsConnectionAcceptCertificateCallback =-    Gio.TlsCertificate.TlsCertificate-    {- ^ /@peerCert@/: the peer\'s 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}-    -> [Gio.Flags.TlsCertificateFlags]-    {- ^ /@errors@/: the problems with /@peerCert@/. -}-    -> IO Bool-    {- ^ __Returns:__ 'True' to accept /@peerCert@/ (which will also-immediately end the signal emission). 'False' to allow the signal-emission to continue, which will cause the handshake to fail if-no one else overrides it. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `TlsConnectionAcceptCertificateCallback`@.-noTlsConnectionAcceptCertificateCallback :: Maybe TlsConnectionAcceptCertificateCallback-noTlsConnectionAcceptCertificateCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_TlsConnectionAcceptCertificateCallback =-    Ptr () ->                               -- object-    Ptr Gio.TlsCertificate.TlsCertificate ->-    CUInt ->-    Ptr () ->                               -- user_data-    IO CInt---- | Generate a function pointer callable from C code, from a `C_TlsConnectionAcceptCertificateCallback`.-foreign import ccall "wrapper"-    mk_TlsConnectionAcceptCertificateCallback :: C_TlsConnectionAcceptCertificateCallback -> IO (FunPtr C_TlsConnectionAcceptCertificateCallback)---- | Wrap the callback into a `GClosure`.-genClosure_TlsConnectionAcceptCertificate :: MonadIO m => TlsConnectionAcceptCertificateCallback -> m (GClosure C_TlsConnectionAcceptCertificateCallback)-genClosure_TlsConnectionAcceptCertificate cb = liftIO $ do-    let cb' = wrap_TlsConnectionAcceptCertificateCallback cb-    mk_TlsConnectionAcceptCertificateCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `TlsConnectionAcceptCertificateCallback` into a `C_TlsConnectionAcceptCertificateCallback`.-wrap_TlsConnectionAcceptCertificateCallback ::-    TlsConnectionAcceptCertificateCallback ->-    C_TlsConnectionAcceptCertificateCallback-wrap_TlsConnectionAcceptCertificateCallback _cb _ peerCert errors _ = do-    peerCert' <- (newObject Gio.TlsCertificate.TlsCertificate) peerCert-    let errors' = wordToGFlags errors-    result <- _cb  peerCert' errors'-    let result' = (fromIntegral . fromEnum) result-    return result'---{- |-Connect a signal handler for the “@accept-certificate@” 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' tlsConnection #acceptCertificate callback-@--}-onTlsConnectionAcceptCertificate :: (IsTlsConnection a, MonadIO m) => a -> TlsConnectionAcceptCertificateCallback -> m SignalHandlerId-onTlsConnectionAcceptCertificate obj cb = liftIO $ do-    let cb' = wrap_TlsConnectionAcceptCertificateCallback cb-    cb'' <- mk_TlsConnectionAcceptCertificateCallback cb'-    connectSignalFunPtr obj "accept-certificate" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@accept-certificate@” 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' tlsConnection #acceptCertificate callback-@--}-afterTlsConnectionAcceptCertificate :: (IsTlsConnection a, MonadIO m) => a -> TlsConnectionAcceptCertificateCallback -> m SignalHandlerId-afterTlsConnectionAcceptCertificate obj cb = liftIO $ do-    let cb' = wrap_TlsConnectionAcceptCertificateCallback cb-    cb'' <- mk_TlsConnectionAcceptCertificateCallback cb'-    connectSignalFunPtr obj "accept-certificate" cb'' SignalConnectAfter----- VVV Prop "advertised-protocols"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Just True)--{- |-Get the value of the “@advertised-protocols@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #advertisedProtocols-@--}-getTlsConnectionAdvertisedProtocols :: (MonadIO m, IsTlsConnection o) => o -> m (Maybe [T.Text])-getTlsConnectionAdvertisedProtocols obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "advertised-protocols"--{- |-Set the value of the “@advertised-protocols@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsConnection [ #advertisedProtocols 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsConnectionAdvertisedProtocols :: (MonadIO m, IsTlsConnection o) => o -> [T.Text] -> m ()-setTlsConnectionAdvertisedProtocols obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "advertised-protocols" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@advertised-protocols@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsConnectionAdvertisedProtocols :: (IsTlsConnection o) => [T.Text] -> IO (GValueConstruct o)-constructTlsConnectionAdvertisedProtocols val = B.Properties.constructObjectPropertyStringArray "advertised-protocols" (Just val)--{- |-Set the value of the “@advertised-protocols@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #advertisedProtocols-@--}-clearTlsConnectionAdvertisedProtocols :: (MonadIO m, IsTlsConnection o) => o -> m ()-clearTlsConnectionAdvertisedProtocols obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "advertised-protocols" (Nothing :: Maybe [T.Text])--#if ENABLE_OVERLOADING-data TlsConnectionAdvertisedProtocolsPropertyInfo-instance AttrInfo TlsConnectionAdvertisedProtocolsPropertyInfo where-    type AttrAllowedOps TlsConnectionAdvertisedProtocolsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsConnectionAdvertisedProtocolsPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint TlsConnectionAdvertisedProtocolsPropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionAdvertisedProtocolsPropertyInfo = (Maybe [T.Text])-    type AttrLabel TlsConnectionAdvertisedProtocolsPropertyInfo = "advertised-protocols"-    type AttrOrigin TlsConnectionAdvertisedProtocolsPropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionAdvertisedProtocols-    attrSet _ = setTlsConnectionAdvertisedProtocols-    attrConstruct _ = constructTlsConnectionAdvertisedProtocols-    attrClear _ = clearTlsConnectionAdvertisedProtocols-#endif---- VVV Prop "base-io-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "IOStream"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@base-io-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #baseIoStream-@--}-getTlsConnectionBaseIoStream :: (MonadIO m, IsTlsConnection o) => o -> m (Maybe Gio.IOStream.IOStream)-getTlsConnectionBaseIoStream obj = liftIO $ B.Properties.getObjectPropertyObject obj "base-io-stream" Gio.IOStream.IOStream--{- |-Construct a `GValueConstruct` with valid value for the “@base-io-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsConnectionBaseIoStream :: (IsTlsConnection o, Gio.IOStream.IsIOStream a) => a -> IO (GValueConstruct o)-constructTlsConnectionBaseIoStream val = B.Properties.constructObjectPropertyObject "base-io-stream" (Just val)--#if ENABLE_OVERLOADING-data TlsConnectionBaseIoStreamPropertyInfo-instance AttrInfo TlsConnectionBaseIoStreamPropertyInfo where-    type AttrAllowedOps TlsConnectionBaseIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsConnectionBaseIoStreamPropertyInfo = Gio.IOStream.IsIOStream-    type AttrBaseTypeConstraint TlsConnectionBaseIoStreamPropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionBaseIoStreamPropertyInfo = (Maybe Gio.IOStream.IOStream)-    type AttrLabel TlsConnectionBaseIoStreamPropertyInfo = "base-io-stream"-    type AttrOrigin TlsConnectionBaseIoStreamPropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionBaseIoStream-    attrSet _ = undefined-    attrConstruct _ = constructTlsConnectionBaseIoStream-    attrClear _ = undefined-#endif---- VVV Prop "certificate"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #certificate-@--}-getTlsConnectionCertificate :: (MonadIO m, IsTlsConnection o) => o -> m Gio.TlsCertificate.TlsCertificate-getTlsConnectionCertificate obj = liftIO $ checkUnexpectedNothing "getTlsConnectionCertificate" $ B.Properties.getObjectPropertyObject obj "certificate" Gio.TlsCertificate.TlsCertificate--{- |-Set the value of the “@certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsConnection [ #certificate 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsConnectionCertificate :: (MonadIO m, IsTlsConnection o, Gio.TlsCertificate.IsTlsCertificate a) => o -> a -> m ()-setTlsConnectionCertificate obj val = liftIO $ B.Properties.setObjectPropertyObject obj "certificate" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@certificate@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsConnectionCertificate :: (IsTlsConnection o, Gio.TlsCertificate.IsTlsCertificate a) => a -> IO (GValueConstruct o)-constructTlsConnectionCertificate val = B.Properties.constructObjectPropertyObject "certificate" (Just val)--#if ENABLE_OVERLOADING-data TlsConnectionCertificatePropertyInfo-instance AttrInfo TlsConnectionCertificatePropertyInfo where-    type AttrAllowedOps TlsConnectionCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionCertificatePropertyInfo = Gio.TlsCertificate.IsTlsCertificate-    type AttrBaseTypeConstraint TlsConnectionCertificatePropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionCertificatePropertyInfo = Gio.TlsCertificate.TlsCertificate-    type AttrLabel TlsConnectionCertificatePropertyInfo = "certificate"-    type AttrOrigin TlsConnectionCertificatePropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionCertificate-    attrSet _ = setTlsConnectionCertificate-    attrConstruct _ = constructTlsConnectionCertificate-    attrClear _ = undefined-#endif---- VVV Prop "database"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@database@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #database-@--}-getTlsConnectionDatabase :: (MonadIO m, IsTlsConnection o) => o -> m Gio.TlsDatabase.TlsDatabase-getTlsConnectionDatabase obj = liftIO $ checkUnexpectedNothing "getTlsConnectionDatabase" $ B.Properties.getObjectPropertyObject obj "database" Gio.TlsDatabase.TlsDatabase--{- |-Set the value of the “@database@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsConnection [ #database 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsConnectionDatabase :: (MonadIO m, IsTlsConnection o, Gio.TlsDatabase.IsTlsDatabase a) => o -> a -> m ()-setTlsConnectionDatabase obj val = liftIO $ B.Properties.setObjectPropertyObject obj "database" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@database@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsConnectionDatabase :: (IsTlsConnection o, Gio.TlsDatabase.IsTlsDatabase a) => a -> IO (GValueConstruct o)-constructTlsConnectionDatabase val = B.Properties.constructObjectPropertyObject "database" (Just val)--#if ENABLE_OVERLOADING-data TlsConnectionDatabasePropertyInfo-instance AttrInfo TlsConnectionDatabasePropertyInfo where-    type AttrAllowedOps TlsConnectionDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionDatabasePropertyInfo = Gio.TlsDatabase.IsTlsDatabase-    type AttrBaseTypeConstraint TlsConnectionDatabasePropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionDatabasePropertyInfo = Gio.TlsDatabase.TlsDatabase-    type AttrLabel TlsConnectionDatabasePropertyInfo = "database"-    type AttrOrigin TlsConnectionDatabasePropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionDatabase-    attrSet _ = setTlsConnectionDatabase-    attrConstruct _ = constructTlsConnectionDatabase-    attrClear _ = undefined-#endif---- VVV Prop "interaction"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just True)--{- |-Get the value of the “@interaction@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #interaction-@--}-getTlsConnectionInteraction :: (MonadIO m, IsTlsConnection o) => o -> m Gio.TlsInteraction.TlsInteraction-getTlsConnectionInteraction obj = liftIO $ checkUnexpectedNothing "getTlsConnectionInteraction" $ B.Properties.getObjectPropertyObject obj "interaction" Gio.TlsInteraction.TlsInteraction--{- |-Set the value of the “@interaction@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsConnection [ #interaction 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsConnectionInteraction :: (MonadIO m, IsTlsConnection o, Gio.TlsInteraction.IsTlsInteraction a) => o -> a -> m ()-setTlsConnectionInteraction obj val = liftIO $ B.Properties.setObjectPropertyObject obj "interaction" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@interaction@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsConnectionInteraction :: (IsTlsConnection o, Gio.TlsInteraction.IsTlsInteraction a) => a -> IO (GValueConstruct o)-constructTlsConnectionInteraction val = B.Properties.constructObjectPropertyObject "interaction" (Just val)--{- |-Set the value of the “@interaction@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #interaction-@--}-clearTlsConnectionInteraction :: (MonadIO m, IsTlsConnection o) => o -> m ()-clearTlsConnectionInteraction obj = liftIO $ B.Properties.setObjectPropertyObject obj "interaction" (Nothing :: Maybe Gio.TlsInteraction.TlsInteraction)--#if ENABLE_OVERLOADING-data TlsConnectionInteractionPropertyInfo-instance AttrInfo TlsConnectionInteractionPropertyInfo where-    type AttrAllowedOps TlsConnectionInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsConnectionInteractionPropertyInfo = Gio.TlsInteraction.IsTlsInteraction-    type AttrBaseTypeConstraint TlsConnectionInteractionPropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionInteractionPropertyInfo = Gio.TlsInteraction.TlsInteraction-    type AttrLabel TlsConnectionInteractionPropertyInfo = "interaction"-    type AttrOrigin TlsConnectionInteractionPropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionInteraction-    attrSet _ = setTlsConnectionInteraction-    attrConstruct _ = constructTlsConnectionInteraction-    attrClear _ = clearTlsConnectionInteraction-#endif---- VVV Prop "negotiated-protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@negotiated-protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #negotiatedProtocol-@--}-getTlsConnectionNegotiatedProtocol :: (MonadIO m, IsTlsConnection o) => o -> m (Maybe T.Text)-getTlsConnectionNegotiatedProtocol obj = liftIO $ B.Properties.getObjectPropertyString obj "negotiated-protocol"--#if ENABLE_OVERLOADING-data TlsConnectionNegotiatedProtocolPropertyInfo-instance AttrInfo TlsConnectionNegotiatedProtocolPropertyInfo where-    type AttrAllowedOps TlsConnectionNegotiatedProtocolPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsConnectionNegotiatedProtocolPropertyInfo = (~) ()-    type AttrBaseTypeConstraint TlsConnectionNegotiatedProtocolPropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionNegotiatedProtocolPropertyInfo = (Maybe T.Text)-    type AttrLabel TlsConnectionNegotiatedProtocolPropertyInfo = "negotiated-protocol"-    type AttrOrigin TlsConnectionNegotiatedProtocolPropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionNegotiatedProtocol-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "peer-certificate"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@peer-certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #peerCertificate-@--}-getTlsConnectionPeerCertificate :: (MonadIO m, IsTlsConnection o) => o -> m Gio.TlsCertificate.TlsCertificate-getTlsConnectionPeerCertificate obj = liftIO $ checkUnexpectedNothing "getTlsConnectionPeerCertificate" $ B.Properties.getObjectPropertyObject obj "peer-certificate" Gio.TlsCertificate.TlsCertificate--#if ENABLE_OVERLOADING-data TlsConnectionPeerCertificatePropertyInfo-instance AttrInfo TlsConnectionPeerCertificatePropertyInfo where-    type AttrAllowedOps TlsConnectionPeerCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint TlsConnectionPeerCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint TlsConnectionPeerCertificatePropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionPeerCertificatePropertyInfo = Gio.TlsCertificate.TlsCertificate-    type AttrLabel TlsConnectionPeerCertificatePropertyInfo = "peer-certificate"-    type AttrOrigin TlsConnectionPeerCertificatePropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionPeerCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "peer-certificate-errors"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@peer-certificate-errors@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #peerCertificateErrors-@--}-getTlsConnectionPeerCertificateErrors :: (MonadIO m, IsTlsConnection o) => o -> m [Gio.Flags.TlsCertificateFlags]-getTlsConnectionPeerCertificateErrors obj = liftIO $ B.Properties.getObjectPropertyFlags obj "peer-certificate-errors"--#if ENABLE_OVERLOADING-data TlsConnectionPeerCertificateErrorsPropertyInfo-instance AttrInfo TlsConnectionPeerCertificateErrorsPropertyInfo where-    type AttrAllowedOps TlsConnectionPeerCertificateErrorsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionPeerCertificateErrorsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint TlsConnectionPeerCertificateErrorsPropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionPeerCertificateErrorsPropertyInfo = [Gio.Flags.TlsCertificateFlags]-    type AttrLabel TlsConnectionPeerCertificateErrorsPropertyInfo = "peer-certificate-errors"-    type AttrOrigin TlsConnectionPeerCertificateErrorsPropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionPeerCertificateErrors-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "rehandshake-mode"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsRehandshakeMode"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@rehandshake-mode@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #rehandshakeMode-@--}-getTlsConnectionRehandshakeMode :: (MonadIO m, IsTlsConnection o) => o -> m Gio.Enums.TlsRehandshakeMode-getTlsConnectionRehandshakeMode obj = liftIO $ B.Properties.getObjectPropertyEnum obj "rehandshake-mode"--{- |-Set the value of the “@rehandshake-mode@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsConnection [ #rehandshakeMode 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsConnectionRehandshakeMode :: (MonadIO m, IsTlsConnection o) => o -> Gio.Enums.TlsRehandshakeMode -> m ()-setTlsConnectionRehandshakeMode obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "rehandshake-mode" val--{- |-Construct a `GValueConstruct` with valid value for the “@rehandshake-mode@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsConnectionRehandshakeMode :: (IsTlsConnection o) => Gio.Enums.TlsRehandshakeMode -> IO (GValueConstruct o)-constructTlsConnectionRehandshakeMode val = B.Properties.constructObjectPropertyEnum "rehandshake-mode" val--#if ENABLE_OVERLOADING-data TlsConnectionRehandshakeModePropertyInfo-instance AttrInfo TlsConnectionRehandshakeModePropertyInfo where-    type AttrAllowedOps TlsConnectionRehandshakeModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionRehandshakeModePropertyInfo = (~) Gio.Enums.TlsRehandshakeMode-    type AttrBaseTypeConstraint TlsConnectionRehandshakeModePropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionRehandshakeModePropertyInfo = Gio.Enums.TlsRehandshakeMode-    type AttrLabel TlsConnectionRehandshakeModePropertyInfo = "rehandshake-mode"-    type AttrOrigin TlsConnectionRehandshakeModePropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionRehandshakeMode-    attrSet _ = setTlsConnectionRehandshakeMode-    attrConstruct _ = constructTlsConnectionRehandshakeMode-    attrClear _ = undefined-#endif---- VVV Prop "require-close-notify"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@require-close-notify@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #requireCloseNotify-@--}-getTlsConnectionRequireCloseNotify :: (MonadIO m, IsTlsConnection o) => o -> m Bool-getTlsConnectionRequireCloseNotify obj = liftIO $ B.Properties.getObjectPropertyBool obj "require-close-notify"--{- |-Set the value of the “@require-close-notify@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsConnection [ #requireCloseNotify 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsConnectionRequireCloseNotify :: (MonadIO m, IsTlsConnection o) => o -> Bool -> m ()-setTlsConnectionRequireCloseNotify obj val = liftIO $ B.Properties.setObjectPropertyBool obj "require-close-notify" val--{- |-Construct a `GValueConstruct` with valid value for the “@require-close-notify@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsConnectionRequireCloseNotify :: (IsTlsConnection o) => Bool -> IO (GValueConstruct o)-constructTlsConnectionRequireCloseNotify val = B.Properties.constructObjectPropertyBool "require-close-notify" val--#if ENABLE_OVERLOADING-data TlsConnectionRequireCloseNotifyPropertyInfo-instance AttrInfo TlsConnectionRequireCloseNotifyPropertyInfo where-    type AttrAllowedOps TlsConnectionRequireCloseNotifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionRequireCloseNotifyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint TlsConnectionRequireCloseNotifyPropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionRequireCloseNotifyPropertyInfo = Bool-    type AttrLabel TlsConnectionRequireCloseNotifyPropertyInfo = "require-close-notify"-    type AttrOrigin TlsConnectionRequireCloseNotifyPropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionRequireCloseNotify-    attrSet _ = setTlsConnectionRequireCloseNotify-    attrConstruct _ = constructTlsConnectionRequireCloseNotify-    attrClear _ = undefined-#endif---- VVV Prop "use-system-certdb"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@use-system-certdb@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsConnection #useSystemCertdb-@--}-getTlsConnectionUseSystemCertdb :: (MonadIO m, IsTlsConnection o) => o -> m Bool-getTlsConnectionUseSystemCertdb obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-system-certdb"--{- |-Set the value of the “@use-system-certdb@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsConnection [ #useSystemCertdb 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsConnectionUseSystemCertdb :: (MonadIO m, IsTlsConnection o) => o -> Bool -> m ()-setTlsConnectionUseSystemCertdb obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-system-certdb" val--{- |-Construct a `GValueConstruct` with valid value for the “@use-system-certdb@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsConnectionUseSystemCertdb :: (IsTlsConnection o) => Bool -> IO (GValueConstruct o)-constructTlsConnectionUseSystemCertdb val = B.Properties.constructObjectPropertyBool "use-system-certdb" val--#if ENABLE_OVERLOADING-data TlsConnectionUseSystemCertdbPropertyInfo-instance AttrInfo TlsConnectionUseSystemCertdbPropertyInfo where-    type AttrAllowedOps TlsConnectionUseSystemCertdbPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsConnectionUseSystemCertdbPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint TlsConnectionUseSystemCertdbPropertyInfo = IsTlsConnection-    type AttrGetType TlsConnectionUseSystemCertdbPropertyInfo = Bool-    type AttrLabel TlsConnectionUseSystemCertdbPropertyInfo = "use-system-certdb"-    type AttrOrigin TlsConnectionUseSystemCertdbPropertyInfo = TlsConnection-    attrGet _ = getTlsConnectionUseSystemCertdb-    attrSet _ = setTlsConnectionUseSystemCertdb-    attrConstruct _ = constructTlsConnectionUseSystemCertdb-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsConnection-type instance O.AttributeList TlsConnection = TlsConnectionAttributeList-type TlsConnectionAttributeList = ('[ '("advertisedProtocols", TlsConnectionAdvertisedProtocolsPropertyInfo), '("baseIoStream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("inputStream", Gio.IOStream.IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("negotiatedProtocol", TlsConnectionNegotiatedProtocolPropertyInfo), '("outputStream", Gio.IOStream.IOStreamOutputStreamPropertyInfo), '("peerCertificate", TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", TlsConnectionRequireCloseNotifyPropertyInfo), '("useSystemCertdb", TlsConnectionUseSystemCertdbPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-tlsConnectionAdvertisedProtocols :: AttrLabelProxy "advertisedProtocols"-tlsConnectionAdvertisedProtocols = AttrLabelProxy--tlsConnectionBaseIoStream :: AttrLabelProxy "baseIoStream"-tlsConnectionBaseIoStream = AttrLabelProxy--tlsConnectionCertificate :: AttrLabelProxy "certificate"-tlsConnectionCertificate = AttrLabelProxy--tlsConnectionDatabase :: AttrLabelProxy "database"-tlsConnectionDatabase = AttrLabelProxy--tlsConnectionInteraction :: AttrLabelProxy "interaction"-tlsConnectionInteraction = AttrLabelProxy--tlsConnectionNegotiatedProtocol :: AttrLabelProxy "negotiatedProtocol"-tlsConnectionNegotiatedProtocol = AttrLabelProxy--tlsConnectionPeerCertificate :: AttrLabelProxy "peerCertificate"-tlsConnectionPeerCertificate = AttrLabelProxy--tlsConnectionPeerCertificateErrors :: AttrLabelProxy "peerCertificateErrors"-tlsConnectionPeerCertificateErrors = AttrLabelProxy--tlsConnectionRehandshakeMode :: AttrLabelProxy "rehandshakeMode"-tlsConnectionRehandshakeMode = AttrLabelProxy--tlsConnectionRequireCloseNotify :: AttrLabelProxy "requireCloseNotify"-tlsConnectionRequireCloseNotify = AttrLabelProxy--tlsConnectionUseSystemCertdb :: AttrLabelProxy "useSystemCertdb"-tlsConnectionUseSystemCertdb = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data TlsConnectionAcceptCertificateSignalInfo-instance SignalInfo TlsConnectionAcceptCertificateSignalInfo where-    type HaskellCallbackType TlsConnectionAcceptCertificateSignalInfo = TlsConnectionAcceptCertificateCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_TlsConnectionAcceptCertificateCallback cb-        cb'' <- mk_TlsConnectionAcceptCertificateCallback cb'-        connectSignalFunPtr obj "accept-certificate" cb'' connectMode--type instance O.SignalList TlsConnection = TlsConnectionSignalList-type TlsConnectionSignalList = ('[ '("acceptCertificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method TlsConnection::emit_accept_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "peer_cert", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the peer's #GTlsCertificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the problems with @peer_cert", 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 "g_tls_connection_emit_accept_certificate" g_tls_connection_emit_accept_certificate :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- peer_cert : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    CUInt ->                                -- errors : TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-    IO CInt--{- |-Used by 'GI.Gio.Objects.TlsConnection.TlsConnection' implementations to emit the-'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@ signal.--/Since: 2.28/--}-tlsConnectionEmitAcceptCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> b-    {- ^ /@peerCert@/: the peer\'s 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}-    -> [Gio.Flags.TlsCertificateFlags]-    {- ^ /@errors@/: the problems with /@peerCert@/ -}-    -> m Bool-    {- ^ __Returns:__ 'True' if one of the signal handlers has returned-    'True' to accept /@peerCert@/ -}-tlsConnectionEmitAcceptCertificate conn peerCert errors = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    peerCert' <- unsafeManagedPtrCastPtr peerCert-    let errors' = gflagsToWord errors-    result <- g_tls_connection_emit_accept_certificate conn' peerCert' errors'-    let result' = (/= 0) result-    touchManagedPtr conn-    touchManagedPtr peerCert-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionEmitAcceptCertificateMethodInfo-instance (signature ~ (b -> [Gio.Flags.TlsCertificateFlags] -> m Bool), MonadIO m, IsTlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) => O.MethodInfo TlsConnectionEmitAcceptCertificateMethodInfo a signature where-    overloadedMethod _ = tlsConnectionEmitAcceptCertificate--#endif---- method TlsConnection::get_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_certificate" g_tls_connection_get_certificate :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO (Ptr Gio.TlsCertificate.TlsCertificate)--{- |-Gets /@conn@/\'s certificate, as set by-'GI.Gio.Objects.TlsConnection.tlsConnectionSetCertificate'.--/Since: 2.28/--}-tlsConnectionGetCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> m Gio.TlsCertificate.TlsCertificate-    {- ^ __Returns:__ /@conn@/\'s certificate, or 'Nothing' -}-tlsConnectionGetCertificate conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_certificate conn'-    checkUnexpectedReturnNULL "tlsConnectionGetCertificate" result-    result' <- (newObject Gio.TlsCertificate.TlsCertificate) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionGetCertificateMethodInfo-instance (signature ~ (m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetCertificateMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetCertificate--#endif---- method TlsConnection::get_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsDatabase"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_database" g_tls_connection_get_database :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO (Ptr Gio.TlsDatabase.TlsDatabase)--{- |-Gets the certificate database that /@conn@/ uses to verify-peer certificates. See 'GI.Gio.Objects.TlsConnection.tlsConnectionSetDatabase'.--/Since: 2.30/--}-tlsConnectionGetDatabase ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> m Gio.TlsDatabase.TlsDatabase-    {- ^ __Returns:__ the certificate database that /@conn@/ uses or 'Nothing' -}-tlsConnectionGetDatabase conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_database conn'-    checkUnexpectedReturnNULL "tlsConnectionGetDatabase" result-    result' <- (newObject Gio.TlsDatabase.TlsDatabase) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionGetDatabaseMethodInfo-instance (signature ~ (m Gio.TlsDatabase.TlsDatabase), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetDatabaseMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetDatabase--#endif---- method TlsConnection::get_interaction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsInteraction"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_interaction" g_tls_connection_get_interaction :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO (Ptr Gio.TlsInteraction.TlsInteraction)--{- |-Get the object that will be used to interact with the user. It will be used-for things like prompting the user for passwords. If 'Nothing' is returned, then-no user interaction will occur for this connection.--/Since: 2.30/--}-tlsConnectionGetInteraction ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a connection -}-    -> m Gio.TlsInteraction.TlsInteraction-    {- ^ __Returns:__ The interaction object. -}-tlsConnectionGetInteraction conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_interaction conn'-    checkUnexpectedReturnNULL "tlsConnectionGetInteraction" result-    result' <- (newObject Gio.TlsInteraction.TlsInteraction) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionGetInteractionMethodInfo-instance (signature ~ (m Gio.TlsInteraction.TlsInteraction), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetInteractionMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetInteraction--#endif---- method TlsConnection::get_negotiated_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", 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 "g_tls_connection_get_negotiated_protocol" g_tls_connection_get_negotiated_protocol :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO CString--{- |-Gets the name of the application-layer protocol negotiated during-the handshake.--If the peer did not use the ALPN extension, or did not advertise a-protocol that matched one of /@conn@/\'s protocols, or the TLS backend-does not support ALPN, then this will be 'Nothing'. See-'GI.Gio.Objects.TlsConnection.tlsConnectionSetAdvertisedProtocols'.--/Since: 2.60/--}-tlsConnectionGetNegotiatedProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the negotiated protocol, or 'Nothing' -}-tlsConnectionGetNegotiatedProtocol conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_negotiated_protocol conn'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr conn-    return maybeResult--#if ENABLE_OVERLOADING-data TlsConnectionGetNegotiatedProtocolMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetNegotiatedProtocolMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetNegotiatedProtocol--#endif---- method TlsConnection::get_peer_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_peer_certificate" g_tls_connection_get_peer_certificate :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO (Ptr Gio.TlsCertificate.TlsCertificate)--{- |-Gets /@conn@/\'s peer\'s certificate after the handshake has completed.-(It is not set during the emission of-'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@.)--/Since: 2.28/--}-tlsConnectionGetPeerCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> m Gio.TlsCertificate.TlsCertificate-    {- ^ __Returns:__ /@conn@/\'s peer\'s certificate, or 'Nothing' -}-tlsConnectionGetPeerCertificate conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_peer_certificate conn'-    checkUnexpectedReturnNULL "tlsConnectionGetPeerCertificate" result-    result' <- (newObject Gio.TlsCertificate.TlsCertificate) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionGetPeerCertificateMethodInfo-instance (signature ~ (m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetPeerCertificateMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetPeerCertificate--#endif---- method TlsConnection::get_peer_certificate_errors--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_peer_certificate_errors" g_tls_connection_get_peer_certificate_errors :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO CUInt--{- |-Gets the errors associated with validating /@conn@/\'s peer\'s-certificate, after the handshake has completed. (It is not set-during the emission of 'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@.)--/Since: 2.28/--}-tlsConnectionGetPeerCertificateErrors ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> m [Gio.Flags.TlsCertificateFlags]-    {- ^ __Returns:__ /@conn@/\'s peer\'s certificate errors -}-tlsConnectionGetPeerCertificateErrors conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_peer_certificate_errors conn'-    let result' = wordToGFlags result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionGetPeerCertificateErrorsMethodInfo-instance (signature ~ (m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetPeerCertificateErrorsMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetPeerCertificateErrors--#endif---- method TlsConnection::get_rehandshake_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsRehandshakeMode"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_get_rehandshake_mode" g_tls_connection_get_rehandshake_mode :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO CUInt--{-# DEPRECATED tlsConnectionGetRehandshakeMode ["(Since version 2.60.)","Changing the rehandshake mode is no longer","  required for compatibility. Also, rehandshaking has been removed","  from the TLS protocol in TLS 1.3."] #-}-{- |-Gets /@conn@/ rehandshaking mode. See-'GI.Gio.Objects.TlsConnection.tlsConnectionSetRehandshakeMode' for details.--/Since: 2.28/--}-tlsConnectionGetRehandshakeMode ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> m Gio.Enums.TlsRehandshakeMode-    {- ^ __Returns:__ /@conn@/\'s rehandshaking mode -}-tlsConnectionGetRehandshakeMode conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_rehandshake_mode conn'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionGetRehandshakeModeMethodInfo-instance (signature ~ (m Gio.Enums.TlsRehandshakeMode), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetRehandshakeModeMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetRehandshakeMode--#endif---- method TlsConnection::get_require_close_notify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", 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 "g_tls_connection_get_require_close_notify" g_tls_connection_get_require_close_notify :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO CInt--{- |-Tests whether or not /@conn@/ expects a proper TLS close notification-when the connection is closed. See-'GI.Gio.Objects.TlsConnection.tlsConnectionSetRequireCloseNotify' for details.--/Since: 2.28/--}-tlsConnectionGetRequireCloseNotify ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@conn@/ requires a proper TLS close-notification. -}-tlsConnectionGetRequireCloseNotify conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_require_close_notify conn'-    let result' = (/= 0) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionGetRequireCloseNotifyMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetRequireCloseNotifyMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetRequireCloseNotify--#endif---- method TlsConnection::get_use_system_certdb--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", 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 "g_tls_connection_get_use_system_certdb" g_tls_connection_get_use_system_certdb :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    IO CInt--{-# DEPRECATED tlsConnectionGetUseSystemCertdb ["(Since version 2.30)","Use 'GI.Gio.Objects.TlsConnection.tlsConnectionGetDatabase' instead"] #-}-{- |-Gets whether /@conn@/ uses the system certificate database to verify-peer certificates. See 'GI.Gio.Objects.TlsConnection.tlsConnectionSetUseSystemCertdb'.--}-tlsConnectionGetUseSystemCertdb ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> m Bool-    {- ^ __Returns:__ whether /@conn@/ uses the system certificate database -}-tlsConnectionGetUseSystemCertdb conn = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result <- g_tls_connection_get_use_system_certdb conn'-    let result' = (/= 0) result-    touchManagedPtr conn-    return result'--#if ENABLE_OVERLOADING-data TlsConnectionGetUseSystemCertdbMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionGetUseSystemCertdbMethodInfo a signature where-    overloadedMethod _ = tlsConnectionGetUseSystemCertdb--#endif---- method TlsConnection::handshake--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_tls_connection_handshake" g_tls_connection_handshake :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Attempts a TLS handshake on /@conn@/.--On the client side, it is never necessary to call this method;-although the connection needs to perform a handshake after-connecting (or after sending a \"STARTTLS\"-type command) and may-need to rehandshake later if the server requests it,-'GI.Gio.Objects.TlsConnection.TlsConnection' will handle this for you automatically when you try-to send or receive data on the connection. However, you can call-'GI.Gio.Objects.TlsConnection.tlsConnectionHandshake' manually if you want to know for sure-whether the initial handshake succeeded or failed (as opposed to-just immediately trying to write to /@conn@/\'s output stream, in which-case if it fails, it may not be possible to tell if it failed-before or after completing the handshake).--Likewise, on the server side, although a handshake is necessary at-the beginning of the communication, you do not need to call this-function explicitly unless you want clearer error reporting.--If TLS 1.2 or older is in use, you may call-'GI.Gio.Objects.TlsConnection.tlsConnectionHandshake' after the initial handshake to-rehandshake; however, this usage is deprecated because rehandshaking-is no longer part of the TLS protocol in TLS 1.3. Accordingly, the-behavior of calling this function after the initial handshake is now-undefined, except it is guaranteed to be reasonable and-nondestructive so as to preserve compatibility with code written for-older versions of GLib.--'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept_certificate/@ may be emitted during the-handshake.--/Since: 2.28/--}-tlsConnectionHandshake ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsConnectionHandshake conn cancellable = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_tls_connection_handshake conn' maybeCancellable-        touchManagedPtr conn-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsConnectionHandshakeMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo TlsConnectionHandshakeMethodInfo a signature where-    overloadedMethod _ = tlsConnectionHandshake--#endif---- method TlsConnection::handshake_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", 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 "the [I/O priority][io-priority] of the request", 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 "callback to call when the handshake is complete", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_handshake_async" g_tls_connection_handshake_async :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    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 performs a TLS handshake on /@conn@/. See-'GI.Gio.Objects.TlsConnection.tlsConnectionHandshake' for more information.--/Since: 2.28/--}-tlsConnectionHandshakeAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> Int32-    {- ^ /@ioPriority@/: the [I\/O priority][io-priority] of the request -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the handshake is complete -}-    -> m ()-tlsConnectionHandshakeAsync conn ioPriority cancellable callback = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    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-    g_tls_connection_handshake_async conn' ioPriority maybeCancellable maybeCallback userData-    touchManagedPtr conn-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data TlsConnectionHandshakeAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo TlsConnectionHandshakeAsyncMethodInfo a signature where-    overloadedMethod _ = tlsConnectionHandshakeAsync--#endif---- method TlsConnection::handshake_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", 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 "a #GAsyncResult.", 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 "g_tls_connection_handshake_finish" g_tls_connection_handshake_finish :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finish an asynchronous TLS handshake operation. See-'GI.Gio.Objects.TlsConnection.tlsConnectionHandshake' for more information.--/Since: 2.28/--}-tlsConnectionHandshakeFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsConnectionHandshakeFinish conn result_ = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_tls_connection_handshake_finish conn' result_'-        touchManagedPtr conn-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsConnectionHandshakeFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsTlsConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsConnectionHandshakeFinishMethodInfo a signature where-    overloadedMethod _ = tlsConnectionHandshakeFinish--#endif---- method TlsConnection::set_advertised_protocols--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a %NULL-terminated\n  array of ALPN protocol names (eg, \"http/1.1\", \"h2\"), or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_set_advertised_protocols" g_tls_connection_set_advertised_protocols :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()--{- |-Sets the list of application-layer protocols to advertise that the-caller is willing to speak on this connection. The-Application-Layer Protocol Negotiation (ALPN) extension will be-used to negotiate a compatible protocol with the peer; use-'GI.Gio.Objects.TlsConnection.tlsConnectionGetNegotiatedProtocol' to find the negotiated-protocol after the handshake.  Specifying 'Nothing' for the the value-of /@protocols@/ will disable ALPN negotiation.--See <https://www.iana.org/assignments/tls-extensiontype-values/tls-extensiontype-values.xhtml#alpn-protocol-ids IANA TLS ALPN Protocol IDs>-for a list of registered protocol IDs.--/Since: 2.60/--}-tlsConnectionSetAdvertisedProtocols ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> Maybe ([T.Text])-    {- ^ /@protocols@/: a 'Nothing'-terminated-  array of ALPN protocol names (eg, \"http\/1.1\", \"h2\"), or 'Nothing' -}-    -> m ()-tlsConnectionSetAdvertisedProtocols conn protocols = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    g_tls_connection_set_advertised_protocols conn' maybeProtocols-    touchManagedPtr conn-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()--#if ENABLE_OVERLOADING-data TlsConnectionSetAdvertisedProtocolsMethodInfo-instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionSetAdvertisedProtocolsMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetAdvertisedProtocols--#endif---- method TlsConnection::set_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the certificate to use for @conn", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_set_certificate" g_tls_connection_set_certificate :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    IO ()--{- |-This sets the certificate that /@conn@/ will present to its peer-during the TLS handshake. For a 'GI.Gio.Interfaces.TlsServerConnection.TlsServerConnection', it is-mandatory to set this, and that will normally be done at construct-time.--For a 'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection', this is optional. If a handshake fails-with 'GI.Gio.Enums.TlsErrorCertificateRequired', that means that the server-requires a certificate, and if you try connecting again, you should-call this method first. You can call-'GI.Gio.Interfaces.TlsClientConnection.tlsClientConnectionGetAcceptedCas' on the failed connection-to get a list of Certificate Authorities that the server will-accept certificates from.--(It is also possible that a server will allow the connection with-or without a certificate; in that case, if you don\'t provide a-certificate, you can tell that the server requested one by the fact-that 'GI.Gio.Interfaces.TlsClientConnection.tlsClientConnectionGetAcceptedCas' will return-non-'Nothing'.)--/Since: 2.28/--}-tlsConnectionSetCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> b-    {- ^ /@certificate@/: the certificate to use for /@conn@/ -}-    -> m ()-tlsConnectionSetCertificate conn certificate = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    certificate' <- unsafeManagedPtrCastPtr certificate-    g_tls_connection_set_certificate conn' certificate'-    touchManagedPtr conn-    touchManagedPtr certificate-    return ()--#if ENABLE_OVERLOADING-data TlsConnectionSetCertificateMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsTlsConnection a, Gio.TlsCertificate.IsTlsCertificate b) => O.MethodInfo TlsConnectionSetCertificateMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetCertificate--#endif---- method TlsConnection::set_database--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "database", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_set_database" g_tls_connection_set_database :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    Ptr Gio.TlsDatabase.TlsDatabase ->      -- database : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    IO ()--{- |-Sets the certificate database that is used to verify peer certificates.-This is set to the default database by default. See-'GI.Gio.Interfaces.TlsBackend.tlsBackendGetDefaultDatabase'. If set to 'Nothing', then-peer certificate validation will always set the-'GI.Gio.Flags.TlsCertificateFlagsUnknownCa' error (meaning-'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@ will always be emitted on-client-side connections, unless that bit is not set in-'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection':@/validation-flags/@).--/Since: 2.30/--}-tlsConnectionSetDatabase ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a, Gio.TlsDatabase.IsTlsDatabase b) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> b-    {- ^ /@database@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> m ()-tlsConnectionSetDatabase conn database = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    database' <- unsafeManagedPtrCastPtr database-    g_tls_connection_set_database conn' database'-    touchManagedPtr conn-    touchManagedPtr database-    return ()--#if ENABLE_OVERLOADING-data TlsConnectionSetDatabaseMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsTlsConnection a, Gio.TlsDatabase.IsTlsDatabase b) => O.MethodInfo TlsConnectionSetDatabaseMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetDatabase--#endif---- method TlsConnection::set_interaction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an interaction object, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_set_interaction" g_tls_connection_set_interaction :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    IO ()--{- |-Set the object that will be used to interact with the user. It will be used-for things like prompting the user for passwords.--The /@interaction@/ argument will normally be a derived subclass of-'GI.Gio.Objects.TlsInteraction.TlsInteraction'. 'Nothing' can also be provided if no user interaction-should occur for this connection.--/Since: 2.30/--}-tlsConnectionSetInteraction ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a, Gio.TlsInteraction.IsTlsInteraction b) =>-    a-    {- ^ /@conn@/: a connection -}-    -> Maybe (b)-    {- ^ /@interaction@/: an interaction object, or 'Nothing' -}-    -> m ()-tlsConnectionSetInteraction conn interaction = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    g_tls_connection_set_interaction conn' maybeInteraction-    touchManagedPtr conn-    whenJust interaction touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data TlsConnectionSetInteractionMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTlsConnection a, Gio.TlsInteraction.IsTlsInteraction b) => O.MethodInfo TlsConnectionSetInteractionMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetInteraction--#endif---- method TlsConnection::set_rehandshake_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface (Name {namespace = "Gio", name = "TlsRehandshakeMode"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the rehandshaking mode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_set_rehandshake_mode" g_tls_connection_set_rehandshake_mode :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    CUInt ->                                -- mode : TInterface (Name {namespace = "Gio", name = "TlsRehandshakeMode"})-    IO ()--{-# DEPRECATED tlsConnectionSetRehandshakeMode ["(Since version 2.60.)","Changing the rehandshake mode is no longer","  required for compatibility. Also, rehandshaking has been removed","  from the TLS protocol in TLS 1.3."] #-}-{- |-Sets how /@conn@/ behaves with respect to rehandshaking requests, when-TLS 1.2 or older is in use.--'GI.Gio.Enums.TlsRehandshakeModeNever' means that it will never agree to-rehandshake after the initial handshake is complete. (For a client,-this means it will refuse rehandshake requests from the server, and-for a server, this means it will close the connection with an error-if the client attempts to rehandshake.)--'GI.Gio.Enums.TlsRehandshakeModeSafely' means that the connection will allow a-rehandshake only if the other end of the connection supports the-TLS @renegotiation_info@ extension. This is the default behavior,-but means that rehandshaking will not work against older-implementations that do not support that extension.--'GI.Gio.Enums.TlsRehandshakeModeUnsafely' means that the connection will allow-rehandshaking even without the @renegotiation_info@ extension. On-the server side in particular, this is not recommended, since it-leaves the server open to certain attacks. However, this mode is-necessary if you need to allow renegotiation with older client-software.--/Since: 2.28/--}-tlsConnectionSetRehandshakeMode ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> Gio.Enums.TlsRehandshakeMode-    {- ^ /@mode@/: the rehandshaking mode -}-    -> m ()-tlsConnectionSetRehandshakeMode conn mode = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let mode' = (fromIntegral . fromEnum) mode-    g_tls_connection_set_rehandshake_mode conn' mode'-    touchManagedPtr conn-    return ()--#if ENABLE_OVERLOADING-data TlsConnectionSetRehandshakeModeMethodInfo-instance (signature ~ (Gio.Enums.TlsRehandshakeMode -> m ()), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionSetRehandshakeModeMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetRehandshakeMode--#endif---- method TlsConnection::set_require_close_notify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "require_close_notify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether or not to require close notification", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_set_require_close_notify" g_tls_connection_set_require_close_notify :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    CInt ->                                 -- require_close_notify : TBasicType TBoolean-    IO ()--{- |-Sets whether or not /@conn@/ expects a proper TLS close notification-before the connection is closed. If this is 'True' (the default),-then /@conn@/ will expect to receive a TLS close notification from its-peer before the connection is closed, and will return a-'GI.Gio.Enums.TlsErrorEof' error if the connection is closed without proper-notification (since this may indicate a network error, or-man-in-the-middle attack).--In some protocols, the application will know whether or not the-connection was closed cleanly based on application-level data-(because the application-level data includes a length field, or is-somehow self-delimiting); in this case, the close notify is-redundant and sometimes omitted. (TLS 1.1 explicitly allows this;-in TLS 1.0 it is technically an error, but often done anyway.) You-can use 'GI.Gio.Objects.TlsConnection.tlsConnectionSetRequireCloseNotify' to tell /@conn@/-to allow an \"unannounced\" connection close, in which case the close-will show up as a 0-length read, as in a non-TLS-'GI.Gio.Objects.SocketConnection.SocketConnection', and it is up to the application to check that-the data has been fully received.--Note that this only affects the behavior when the peer closes the-connection; when the application calls 'GI.Gio.Objects.IOStream.iOStreamClose' itself-on /@conn@/, this will send a close notification regardless of the-setting of this property. If you explicitly want to do an unclean-close, you can close /@conn@/\'s 'GI.Gio.Objects.TlsConnection.TlsConnection':@/base-io-stream/@ rather-than closing /@conn@/ itself, but note that this may only be done when no other-operations are pending on /@conn@/ or the base I\/O stream.--/Since: 2.28/--}-tlsConnectionSetRequireCloseNotify ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> Bool-    {- ^ /@requireCloseNotify@/: whether or not to require close notification -}-    -> m ()-tlsConnectionSetRequireCloseNotify conn requireCloseNotify = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let requireCloseNotify' = (fromIntegral . fromEnum) requireCloseNotify-    g_tls_connection_set_require_close_notify conn' requireCloseNotify'-    touchManagedPtr conn-    return ()--#if ENABLE_OVERLOADING-data TlsConnectionSetRequireCloseNotifyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionSetRequireCloseNotifyMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetRequireCloseNotify--#endif---- method TlsConnection::set_use_system_certdb--- method type : OrdinaryMethod--- Args : [Arg {argCName = "conn", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_system_certdb", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to use the system certificate database", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_connection_set_use_system_certdb" g_tls_connection_set_use_system_certdb :: -    Ptr TlsConnection ->                    -- conn : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    CInt ->                                 -- use_system_certdb : TBasicType TBoolean-    IO ()--{-# DEPRECATED tlsConnectionSetUseSystemCertdb ["(Since version 2.30)","Use 'GI.Gio.Objects.TlsConnection.tlsConnectionSetDatabase' instead"] #-}-{- |-Sets whether /@conn@/ uses the system certificate database to verify-peer certificates. This is 'True' by default. If set to 'False', then-peer certificate validation will always set the-'GI.Gio.Flags.TlsCertificateFlagsUnknownCa' error (meaning-'GI.Gio.Objects.TlsConnection.TlsConnection'::@/accept-certificate/@ will always be emitted on-client-side connections, unless that bit is not set in-'GI.Gio.Interfaces.TlsClientConnection.TlsClientConnection':@/validation-flags/@).--}-tlsConnectionSetUseSystemCertdb ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsConnection a) =>-    a-    {- ^ /@conn@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' -}-    -> Bool-    {- ^ /@useSystemCertdb@/: whether to use the system certificate database -}-    -> m ()-tlsConnectionSetUseSystemCertdb conn useSystemCertdb = liftIO $ do-    conn' <- unsafeManagedPtrCastPtr conn-    let useSystemCertdb' = (fromIntegral . fromEnum) useSystemCertdb-    g_tls_connection_set_use_system_certdb conn' useSystemCertdb'-    touchManagedPtr conn-    return ()--#if ENABLE_OVERLOADING-data TlsConnectionSetUseSystemCertdbMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsTlsConnection a) => O.MethodInfo TlsConnectionSetUseSystemCertdbMethodInfo a signature where-    overloadedMethod _ = tlsConnectionSetUseSystemCertdb--#endif--
− GI/Gio/Objects/TlsConnection.hs-boot 
@@ -1,125 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.TlsConnection 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 TlsConnection = TlsConnection (ManagedPtr TlsConnection)-instance GObject TlsConnection where-class (GObject o, O.IsDescendantOf TlsConnection o) => IsTlsConnection o-instance (GObject o, O.IsDescendantOf TlsConnection o) => IsTlsConnection o-instance O.HasParentTypes TlsConnection-#if ENABLE_OVERLOADING-data TlsConnectionAdvertisedProtocolsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionBaseIoStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionDatabasePropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionInteractionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionNegotiatedProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionPeerCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionPeerCertificateErrorsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionRehandshakeModePropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionRequireCloseNotifyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionUseSystemCertdbPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionAcceptCertificateSignalInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionEmitAcceptCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetDatabaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetInteractionMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetNegotiatedProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetPeerCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetPeerCertificateErrorsMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetRehandshakeModeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetRequireCloseNotifyMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionGetUseSystemCertdbMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionHandshakeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionHandshakeAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionHandshakeFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionSetAdvertisedProtocolsMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionSetCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionSetDatabaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionSetInteractionMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionSetRehandshakeModeMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionSetRequireCloseNotifyMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsConnectionSetUseSystemCertdbMethodInfo-#endif
− GI/Gio/Objects/TlsDatabase.hs 
@@ -1,1195 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.TlsDatabase.TlsDatabase' is used to lookup certificates and other information-from a certificate or key store. It is an abstract base class which-TLS library specific subtypes override.--A 'GI.Gio.Objects.TlsDatabase.TlsDatabase' may be accessed from multiple threads by the TLS backend.-All implementations are required to be fully thread-safe.--Most common client applications will not directly interact with-'GI.Gio.Objects.TlsDatabase.TlsDatabase'. It is used internally by 'GI.Gio.Objects.TlsConnection.TlsConnection'.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.TlsDatabase-    ( ---- * Exported types-    TlsDatabase(..)                         ,-    IsTlsDatabase                           ,-    toTlsDatabase                           ,-    noTlsDatabase                           ,--- -- * Methods--- ** createCertificateHandle #method:createCertificateHandle#--#if ENABLE_OVERLOADING-    TlsDatabaseCreateCertificateHandleMethodInfo,-#endif-    tlsDatabaseCreateCertificateHandle      ,----- ** lookupCertificateForHandle #method:lookupCertificateForHandle#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificateForHandleMethodInfo,-#endif-    tlsDatabaseLookupCertificateForHandle   ,----- ** lookupCertificateForHandleAsync #method:lookupCertificateForHandleAsync#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificateForHandleAsyncMethodInfo,-#endif-    tlsDatabaseLookupCertificateForHandleAsync,----- ** lookupCertificateForHandleFinish #method:lookupCertificateForHandleFinish#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificateForHandleFinishMethodInfo,-#endif-    tlsDatabaseLookupCertificateForHandleFinish,----- ** lookupCertificateIssuer #method:lookupCertificateIssuer#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificateIssuerMethodInfo,-#endif-    tlsDatabaseLookupCertificateIssuer      ,----- ** lookupCertificateIssuerAsync #method:lookupCertificateIssuerAsync#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificateIssuerAsyncMethodInfo,-#endif-    tlsDatabaseLookupCertificateIssuerAsync ,----- ** lookupCertificateIssuerFinish #method:lookupCertificateIssuerFinish#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificateIssuerFinishMethodInfo,-#endif-    tlsDatabaseLookupCertificateIssuerFinish,----- ** lookupCertificatesIssuedBy #method:lookupCertificatesIssuedBy#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificatesIssuedByMethodInfo,-#endif-    tlsDatabaseLookupCertificatesIssuedBy   ,----- ** lookupCertificatesIssuedByAsync #method:lookupCertificatesIssuedByAsync#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo,-#endif-    tlsDatabaseLookupCertificatesIssuedByAsync,----- ** lookupCertificatesIssuedByFinish #method:lookupCertificatesIssuedByFinish#--#if ENABLE_OVERLOADING-    TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo,-#endif-    tlsDatabaseLookupCertificatesIssuedByFinish,----- ** verifyChain #method:verifyChain#--#if ENABLE_OVERLOADING-    TlsDatabaseVerifyChainMethodInfo        ,-#endif-    tlsDatabaseVerifyChain                  ,----- ** verifyChainAsync #method:verifyChainAsync#--#if ENABLE_OVERLOADING-    TlsDatabaseVerifyChainAsyncMethodInfo   ,-#endif-    tlsDatabaseVerifyChainAsync             ,----- ** verifyChainFinish #method:verifyChainFinish#--#if ENABLE_OVERLOADING-    TlsDatabaseVerifyChainFinishMethodInfo  ,-#endif-    tlsDatabaseVerifyChainFinish            ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsInteraction as Gio.TlsInteraction---- | Memory-managed wrapper type.-newtype TlsDatabase = TlsDatabase (ManagedPtr TlsDatabase)-foreign import ccall "g_tls_database_get_type"-    c_g_tls_database_get_type :: IO GType--instance GObject TlsDatabase where-    gobjectType = c_g_tls_database_get_type-    ---- | Type class for types which can be safely cast to `TlsDatabase`, for instance with `toTlsDatabase`.-class (GObject o, O.IsDescendantOf TlsDatabase o) => IsTlsDatabase o-instance (GObject o, O.IsDescendantOf TlsDatabase o) => IsTlsDatabase o--instance O.HasParentTypes TlsDatabase-type instance O.ParentTypes TlsDatabase = '[GObject.Object.Object]---- | Cast to `TlsDatabase`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsDatabase :: (MonadIO m, IsTlsDatabase o) => o -> m TlsDatabase-toTlsDatabase = liftIO . unsafeCastTo TlsDatabase---- | A convenience alias for `Nothing` :: `Maybe` `TlsDatabase`.-noTlsDatabase :: Maybe TlsDatabase-noTlsDatabase = Nothing--#if ENABLE_OVERLOADING-type family ResolveTlsDatabaseMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsDatabaseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsDatabaseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsDatabaseMethod "createCertificateHandle" o = TlsDatabaseCreateCertificateHandleMethodInfo-    ResolveTlsDatabaseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsDatabaseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsDatabaseMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsDatabaseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificateForHandle" o = TlsDatabaseLookupCertificateForHandleMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificateForHandleAsync" o = TlsDatabaseLookupCertificateForHandleAsyncMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificateForHandleFinish" o = TlsDatabaseLookupCertificateForHandleFinishMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificateIssuer" o = TlsDatabaseLookupCertificateIssuerMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificateIssuerAsync" o = TlsDatabaseLookupCertificateIssuerAsyncMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificateIssuerFinish" o = TlsDatabaseLookupCertificateIssuerFinishMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificatesIssuedBy" o = TlsDatabaseLookupCertificatesIssuedByMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificatesIssuedByAsync" o = TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo-    ResolveTlsDatabaseMethod "lookupCertificatesIssuedByFinish" o = TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo-    ResolveTlsDatabaseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsDatabaseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsDatabaseMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsDatabaseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsDatabaseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsDatabaseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsDatabaseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsDatabaseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsDatabaseMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsDatabaseMethod "verifyChain" o = TlsDatabaseVerifyChainMethodInfo-    ResolveTlsDatabaseMethod "verifyChainAsync" o = TlsDatabaseVerifyChainAsyncMethodInfo-    ResolveTlsDatabaseMethod "verifyChainFinish" o = TlsDatabaseVerifyChainFinishMethodInfo-    ResolveTlsDatabaseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsDatabaseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsDatabaseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsDatabaseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsDatabaseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsDatabaseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsDatabaseMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsDatabaseMethod t TlsDatabase, O.MethodInfo info TlsDatabase p) => OL.IsLabel t (TlsDatabase -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsDatabase-type instance O.AttributeList TlsDatabase = TlsDatabaseAttributeList-type TlsDatabaseAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList TlsDatabase = TlsDatabaseSignalList-type TlsDatabaseSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method TlsDatabase::create_certificate_handle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "certificate for which to create a handle.", 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 "g_tls_database_create_certificate_handle" g_tls_database_create_certificate_handle :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    IO CString--{- |-Create a handle string for the certificate. The database will only be able-to create a handle for certificates that originate from the database. In-cases where the database cannot create a handle for a certificate, 'Nothing'-will be returned.--This handle should be stable across various instances of the application,-and between applications. If a certificate is modified in the database,-then it is not guaranteed that this handle will continue to point to it.--/Since: 2.30/--}-tlsDatabaseCreateCertificateHandle ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@certificate@/: certificate for which to create a handle. -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ a newly allocated string containing the-handle. -}-tlsDatabaseCreateCertificateHandle self certificate = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    certificate' <- unsafeManagedPtrCastPtr certificate-    result <- g_tls_database_create_certificate_handle self' certificate'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr self-    touchManagedPtr certificate-    return maybeResult--#if ENABLE_OVERLOADING-data TlsDatabaseCreateCertificateHandleMethodInfo-instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b) => O.MethodInfo TlsDatabaseCreateCertificateHandleMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseCreateCertificateHandle--#endif---- method TlsDatabase::lookup_certificate_for_handle--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a certificate handle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "used to interact with the user if necessary", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags which affect the lookup.", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificate_for_handle" g_tls_database_lookup_certificate_for_handle :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    CString ->                              -- handle : TBasicType TUTF8-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.TlsCertificate.TlsCertificate)--{- |-Lookup a certificate by its handle.--The handle should have been created by calling-'GI.Gio.Objects.TlsDatabase.tlsDatabaseCreateCertificateHandle' on a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' object of-the same TLS backend. The handle is designed to remain valid across-instantiations of the database.--If the handle is no longer valid, or does not point to a certificate in-this database, then 'Nothing' will be returned.--This function can block, use 'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificateForHandleAsync' to perform-the lookup operation asynchronously.--/Since: 2.30/--}-tlsDatabaseLookupCertificateForHandle ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsInteraction.IsTlsInteraction b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> T.Text-    {- ^ /@handle@/: a certificate handle -}-    -> Maybe (b)-    {- ^ /@interaction@/: used to interact with the user if necessary -}-    -> Gio.Enums.TlsDatabaseLookupFlags-    {- ^ /@flags@/: Flags which affect the lookup. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m (Maybe Gio.TlsCertificate.TlsCertificate)-    {- ^ __Returns:__ a newly allocated-'GI.Gio.Objects.TlsCertificate.TlsCertificate', or 'Nothing'. Use 'GI.GObject.Objects.Object.objectUnref' to release the certificate. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsDatabaseLookupCertificateForHandle self handle interaction flags cancellable = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    handle' <- textToCString handle-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificate_for_handle self' handle' maybeInteraction flags' maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- (wrapObject Gio.TlsCertificate.TlsCertificate) result'-            return result''-        touchManagedPtr self-        whenJust interaction touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem handle'-        return maybeResult-     ) (do-        freeMem handle'-     )--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateForHandleMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Gio.Enums.TlsDatabaseLookupFlags -> Maybe (c) -> m (Maybe Gio.TlsCertificate.TlsCertificate)), MonadIO m, IsTlsDatabase a, Gio.TlsInteraction.IsTlsInteraction b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsDatabaseLookupCertificateForHandleMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateForHandle--#endif---- method TlsDatabase::lookup_certificate_for_handle_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a certificate handle", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "used to interact with the user if necessary", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags which affect the lookup.", 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 "callback to call when the operation completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificate_for_handle_async" g_tls_database_lookup_certificate_for_handle_async :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    CString ->                              -- handle : TBasicType TUTF8-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"})-    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 lookup a certificate by its handle in the database. See-'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificateForHandle' for more information.--/Since: 2.30/--}-tlsDatabaseLookupCertificateForHandleAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsInteraction.IsTlsInteraction b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> T.Text-    {- ^ /@handle@/: a certificate handle -}-    -> Maybe (b)-    {- ^ /@interaction@/: used to interact with the user if necessary -}-    -> Gio.Enums.TlsDatabaseLookupFlags-    {- ^ /@flags@/: Flags which affect the lookup. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the operation completes -}-    -> m ()-tlsDatabaseLookupCertificateForHandleAsync self handle interaction flags cancellable callback = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    handle' <- textToCString handle-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    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-    g_tls_database_lookup_certificate_for_handle_async self' handle' maybeInteraction flags' maybeCancellable maybeCallback userData-    touchManagedPtr self-    whenJust interaction touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem handle'-    return ()--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateForHandleAsyncMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Gio.Enums.TlsDatabaseLookupFlags -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsDatabase a, Gio.TlsInteraction.IsTlsInteraction b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsDatabaseLookupCertificateForHandleAsyncMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateForHandleAsync--#endif---- method TlsDatabase::lookup_certificate_for_handle_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificate_for_handle_finish" g_tls_database_lookup_certificate_for_handle_finish :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.TlsCertificate.TlsCertificate)--{- |-Finish an asynchronous lookup of a certificate by its handle. See-@/g_tls_database_lookup_certificate_by_handle()/@ for more information.--If the handle is no longer valid, or does not point to a certificate in-this database, then 'Nothing' will be returned.--/Since: 2.30/--}-tlsDatabaseLookupCertificateForHandleFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.TlsCertificate.TlsCertificate-    {- ^ __Returns:__ a newly allocated 'GI.Gio.Objects.TlsCertificate.TlsCertificate' object.-Use 'GI.GObject.Objects.Object.objectUnref' to release the certificate. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsDatabaseLookupCertificateForHandleFinish self result_ = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificate_for_handle_finish self' result_'-        checkUnexpectedReturnNULL "tlsDatabaseLookupCertificateForHandleFinish" result-        result' <- (wrapObject Gio.TlsCertificate.TlsCertificate) result-        touchManagedPtr self-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateForHandleFinishMethodInfo-instance (signature ~ (b -> m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsTlsDatabase a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsDatabaseLookupCertificateForHandleFinishMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateForHandleFinish--#endif---- method TlsDatabase::lookup_certificate_issuer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsCertificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "used to interact with the user if necessary", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags which affect the lookup operation", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificate_issuer" g_tls_database_lookup_certificate_issuer :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.TlsCertificate.TlsCertificate)--{- |-Lookup the issuer of /@certificate@/ in the database.--The 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/issuer/@ property-of /@certificate@/ is not modified, and the two certificates are not hooked-into a chain.--This function can block, use 'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificateIssuerAsync' to perform-the lookup operation asynchronously.--/Since: 2.30/--}-tlsDatabaseLookupCertificateIssuer ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b, Gio.TlsInteraction.IsTlsInteraction c, Gio.Cancellable.IsCancellable d) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}-    -> Maybe (c)-    {- ^ /@interaction@/: used to interact with the user if necessary -}-    -> Gio.Enums.TlsDatabaseLookupFlags-    {- ^ /@flags@/: flags which affect the lookup operation -}-    -> Maybe (d)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m Gio.TlsCertificate.TlsCertificate-    {- ^ __Returns:__ a newly allocated issuer 'GI.Gio.Objects.TlsCertificate.TlsCertificate',-or 'Nothing'. Use 'GI.GObject.Objects.Object.objectUnref' to release the certificate. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsDatabaseLookupCertificateIssuer self certificate interaction flags cancellable = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    certificate' <- unsafeManagedPtrCastPtr certificate-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificate_issuer self' certificate' maybeInteraction flags' maybeCancellable-        checkUnexpectedReturnNULL "tlsDatabaseLookupCertificateIssuer" result-        result' <- (wrapObject Gio.TlsCertificate.TlsCertificate) result-        touchManagedPtr self-        touchManagedPtr certificate-        whenJust interaction touchManagedPtr-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateIssuerMethodInfo-instance (signature ~ (b -> Maybe (c) -> Gio.Enums.TlsDatabaseLookupFlags -> Maybe (d) -> m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b, Gio.TlsInteraction.IsTlsInteraction c, Gio.Cancellable.IsCancellable d) => O.MethodInfo TlsDatabaseLookupCertificateIssuerMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateIssuer--#endif---- method TlsDatabase::lookup_certificate_issuer_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsCertificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "used to interact with the user if necessary", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags which affect the lookup operation", 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 "callback to call when the operation completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificate_issuer_async" g_tls_database_lookup_certificate_issuer_async :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"})-    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 lookup the issuer of /@certificate@/ in the database. See-'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificateIssuer' for more information.--/Since: 2.30/--}-tlsDatabaseLookupCertificateIssuerAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b, Gio.TlsInteraction.IsTlsInteraction c, Gio.Cancellable.IsCancellable d) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@certificate@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' -}-    -> Maybe (c)-    {- ^ /@interaction@/: used to interact with the user if necessary -}-    -> Gio.Enums.TlsDatabaseLookupFlags-    {- ^ /@flags@/: flags which affect the lookup operation -}-    -> Maybe (d)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the operation completes -}-    -> m ()-tlsDatabaseLookupCertificateIssuerAsync self certificate interaction flags cancellable callback = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    certificate' <- unsafeManagedPtrCastPtr certificate-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    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-    g_tls_database_lookup_certificate_issuer_async self' certificate' maybeInteraction flags' maybeCancellable maybeCallback userData-    touchManagedPtr self-    touchManagedPtr certificate-    whenJust interaction touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateIssuerAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Gio.Enums.TlsDatabaseLookupFlags -> Maybe (d) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b, Gio.TlsInteraction.IsTlsInteraction c, Gio.Cancellable.IsCancellable d) => O.MethodInfo TlsDatabaseLookupCertificateIssuerAsyncMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateIssuerAsync--#endif---- method TlsDatabase::lookup_certificate_issuer_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificate"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificate_issuer_finish" g_tls_database_lookup_certificate_issuer_finish :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.TlsCertificate.TlsCertificate)--{- |-Finish an asynchronous lookup issuer operation. See-'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificateIssuer' for more information.--/Since: 2.30/--}-tlsDatabaseLookupCertificateIssuerFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.TlsCertificate.TlsCertificate-    {- ^ __Returns:__ a newly allocated issuer 'GI.Gio.Objects.TlsCertificate.TlsCertificate',-or 'Nothing'. Use 'GI.GObject.Objects.Object.objectUnref' to release the certificate. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsDatabaseLookupCertificateIssuerFinish self result_ = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificate_issuer_finish self' result_'-        checkUnexpectedReturnNULL "tlsDatabaseLookupCertificateIssuerFinish" result-        result' <- (wrapObject Gio.TlsCertificate.TlsCertificate) result-        touchManagedPtr self-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateIssuerFinishMethodInfo-instance (signature ~ (b -> m Gio.TlsCertificate.TlsCertificate), MonadIO m, IsTlsDatabase a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsDatabaseLookupCertificateIssuerFinishMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificateIssuerFinish--#endif---- method TlsDatabase::lookup_certificates_issued_by--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GByteArray which holds the DER encoded issuer DN.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "used to interact with the user if necessary", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags which affect the lookup operation.", 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}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "TlsCertificate"})))--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificates_issued_by" g_tls_database_lookup_certificates_issued_by :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr GByteArray ->                       -- issuer_raw_dn : TByteArray-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.TlsCertificate.TlsCertificate)))--{- |-Lookup certificates issued by this issuer in the database.--This function can block, use 'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificatesIssuedByAsync' to perform-the lookup operation asynchronously.--/Since: 2.30/--}-tlsDatabaseLookupCertificatesIssuedBy ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsInteraction.IsTlsInteraction b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> ByteString-    {- ^ /@issuerRawDn@/: a 'GI.GLib.Structs.ByteArray.ByteArray' which holds the DER encoded issuer DN. -}-    -> Maybe (b)-    {- ^ /@interaction@/: used to interact with the user if necessary -}-    -> Gio.Enums.TlsDatabaseLookupFlags-    {- ^ /@flags@/: Flags which affect the lookup operation. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m [Gio.TlsCertificate.TlsCertificate]-    {- ^ __Returns:__ a newly allocated list of 'GI.Gio.Objects.TlsCertificate.TlsCertificate'-objects. Use 'GI.GObject.Objects.Object.objectUnref' on each certificate, and @/g_list_free()/@ on the release the list. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsDatabaseLookupCertificatesIssuedBy self issuerRawDn interaction flags cancellable = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    issuerRawDn' <- packGByteArray issuerRawDn-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificates_issued_by self' issuerRawDn' maybeInteraction flags' maybeCancellable-        result' <- unpackGList result-        result'' <- mapM (wrapObject Gio.TlsCertificate.TlsCertificate) result'-        g_list_free result-        touchManagedPtr self-        whenJust interaction touchManagedPtr-        whenJust cancellable touchManagedPtr-        unrefGByteArray issuerRawDn'-        return result''-     ) (do-        unrefGByteArray issuerRawDn'-     )--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificatesIssuedByMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> Gio.Enums.TlsDatabaseLookupFlags -> Maybe (c) -> m [Gio.TlsCertificate.TlsCertificate]), MonadIO m, IsTlsDatabase a, Gio.TlsInteraction.IsTlsInteraction b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsDatabaseLookupCertificatesIssuedByMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedBy--#endif---- method TlsDatabase::lookup_certificates_issued_by_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GByteArray which holds the DER encoded issuer DN.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "used to interact with the user if necessary", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Flags which affect the lookup operation.", 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 "callback to call when the operation completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificates_issued_by_async" g_tls_database_lookup_certificates_issued_by_async :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr GByteArray ->                       -- issuer_raw_dn : TByteArray-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsDatabaseLookupFlags"})-    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 lookup certificates issued by this issuer in the database. See-'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificatesIssuedBy' for more information.--The database may choose to hold a reference to the issuer byte array for the duration-of of this asynchronous operation. The byte array should not be modified during-this time.--/Since: 2.30/--}-tlsDatabaseLookupCertificatesIssuedByAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsInteraction.IsTlsInteraction b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> ByteString-    {- ^ /@issuerRawDn@/: a 'GI.GLib.Structs.ByteArray.ByteArray' which holds the DER encoded issuer DN. -}-    -> Maybe (b)-    {- ^ /@interaction@/: used to interact with the user if necessary -}-    -> Gio.Enums.TlsDatabaseLookupFlags-    {- ^ /@flags@/: Flags which affect the lookup operation. -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the operation completes -}-    -> m ()-tlsDatabaseLookupCertificatesIssuedByAsync self issuerRawDn interaction flags cancellable callback = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    issuerRawDn' <- packGByteArray issuerRawDn-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = (fromIntegral . fromEnum) flags-    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-    g_tls_database_lookup_certificates_issued_by_async self' issuerRawDn' maybeInteraction flags' maybeCancellable maybeCallback userData-    touchManagedPtr self-    whenJust interaction touchManagedPtr-    whenJust cancellable touchManagedPtr-    unrefGByteArray issuerRawDn'-    return ()--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> Gio.Enums.TlsDatabaseLookupFlags -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsDatabase a, Gio.TlsInteraction.IsTlsInteraction b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedByAsync--#endif---- method TlsDatabase::lookup_certificates_issued_by_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "TlsCertificate"})))--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_lookup_certificates_issued_by_finish" g_tls_database_lookup_certificates_issued_by_finish :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr (GList (Ptr Gio.TlsCertificate.TlsCertificate)))--{- |-Finish an asynchronous lookup of certificates. See-'GI.Gio.Objects.TlsDatabase.tlsDatabaseLookupCertificatesIssuedBy' for more information.--/Since: 2.30/--}-tlsDatabaseLookupCertificatesIssuedByFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m [Gio.TlsCertificate.TlsCertificate]-    {- ^ __Returns:__ a newly allocated list of 'GI.Gio.Objects.TlsCertificate.TlsCertificate'-objects. Use 'GI.GObject.Objects.Object.objectUnref' on each certificate, and @/g_list_free()/@ on the release the list. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsDatabaseLookupCertificatesIssuedByFinish self result_ = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_database_lookup_certificates_issued_by_finish self' result_'-        result' <- unpackGList result-        result'' <- mapM (wrapObject Gio.TlsCertificate.TlsCertificate) result'-        g_list_free result-        touchManagedPtr self-        touchManagedPtr result_-        return result''-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo-instance (signature ~ (b -> m [Gio.TlsCertificate.TlsCertificate]), MonadIO m, IsTlsDatabase a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedByFinish--#endif---- method TlsDatabase::verify_chain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chain", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsCertificate chain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the purpose that this certificate chain will be used for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected peer identity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "used to interact with the user if necessary", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabaseVerifyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "additional verify flags", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_verify_chain" g_tls_database_verify_chain :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- chain : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    CString ->                              -- purpose : TBasicType TUTF8-    Ptr Gio.SocketConnectable.SocketConnectable -> -- identity : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsDatabaseVerifyFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Determines the validity of a certificate chain after looking up and-adding any missing certificates to the chain.--/@chain@/ is a chain of 'GI.Gio.Objects.TlsCertificate.TlsCertificate' objects each pointing to the next-certificate in the chain by its 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/issuer/@ property. The chain may initially-consist of one or more certificates. After the verification process is-complete, /@chain@/ may be modified by adding missing certificates, or removing-extra certificates. If a certificate anchor was found, then it is added to-the /@chain@/.--/@purpose@/ describes the purpose (or usage) for which the certificate-is being used. Typically /@purpose@/ will be set to 'GI.Gio.Constants.TLS_DATABASE_PURPOSE_AUTHENTICATE_SERVER'-which means that the certificate is being used to authenticate a server-(and we are acting as the client).--The /@identity@/ is used to check for pinned certificates (trust exceptions)-in the database. These will override the normal verification process on a-host by host basis.--Currently there are no /@flags@/, and 'GI.Gio.Flags.TlsDatabaseVerifyFlagsNone' should be-used.--If /@chain@/ is found to be valid, then the return value will be 0. If-/@chain@/ is found to be invalid, then the return value will indicate-the problems found. If the function is unable to determine whether-/@chain@/ is valid or not (eg, because /@cancellable@/ is triggered-before it completes) then the return value will be-'GI.Gio.Flags.TlsCertificateFlagsGenericError' and /@error@/ will be set-accordingly. /@error@/ is not set when /@chain@/ is successfully analyzed-but found to be invalid.--This function can block, use 'GI.Gio.Objects.TlsDatabase.tlsDatabaseVerifyChainAsync' to perform-the verification operation asynchronously.--/Since: 2.30/--}-tlsDatabaseVerifyChain ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b, Gio.SocketConnectable.IsSocketConnectable c, Gio.TlsInteraction.IsTlsInteraction d, Gio.Cancellable.IsCancellable e) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@chain@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' chain -}-    -> T.Text-    {- ^ /@purpose@/: the purpose that this certificate chain will be used for. -}-    -> Maybe (c)-    {- ^ /@identity@/: the expected peer identity -}-    -> Maybe (d)-    {- ^ /@interaction@/: used to interact with the user if necessary -}-    -> [Gio.Flags.TlsDatabaseVerifyFlags]-    {- ^ /@flags@/: additional verify flags -}-    -> Maybe (e)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m [Gio.Flags.TlsCertificateFlags]-    {- ^ __Returns:__ the appropriate 'GI.Gio.Flags.TlsCertificateFlags' which represents the-result of verification. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsDatabaseVerifyChain self chain purpose identity interaction flags cancellable = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    chain' <- unsafeManagedPtrCastPtr chain-    purpose' <- textToCString purpose-    maybeIdentity <- case identity of-        Nothing -> return nullPtr-        Just jIdentity -> do-            jIdentity' <- unsafeManagedPtrCastPtr jIdentity-            return jIdentity'-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = gflagsToWord flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_database_verify_chain self' chain' purpose' maybeIdentity maybeInteraction flags' maybeCancellable-        let result' = wordToGFlags result-        touchManagedPtr self-        touchManagedPtr chain-        whenJust identity touchManagedPtr-        whenJust interaction touchManagedPtr-        whenJust cancellable touchManagedPtr-        freeMem purpose'-        return result'-     ) (do-        freeMem purpose'-     )--#if ENABLE_OVERLOADING-data TlsDatabaseVerifyChainMethodInfo-instance (signature ~ (b -> T.Text -> Maybe (c) -> Maybe (d) -> [Gio.Flags.TlsDatabaseVerifyFlags] -> Maybe (e) -> m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b, Gio.SocketConnectable.IsSocketConnectable c, Gio.TlsInteraction.IsTlsInteraction d, Gio.Cancellable.IsCancellable e) => O.MethodInfo TlsDatabaseVerifyChainMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseVerifyChain--#endif---- method TlsDatabase::verify_chain_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chain", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsCertificate chain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the purpose that this certificate chain will be used for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface (Name {namespace = "Gio", name = "SocketConnectable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the expected peer identity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "used to interact with the user if necessary", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabaseVerifyFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "additional verify flags", 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 "callback to call when the operation completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to the callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_database_verify_chain_async" g_tls_database_verify_chain_async :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.TlsCertificate.TlsCertificate -> -- chain : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    CString ->                              -- purpose : TBasicType TUTF8-    Ptr Gio.SocketConnectable.SocketConnectable -> -- identity : TInterface (Name {namespace = "Gio", name = "SocketConnectable"})-    Ptr Gio.TlsInteraction.TlsInteraction -> -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsDatabaseVerifyFlags"})-    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 determines the validity of a certificate chain after-looking up and adding any missing certificates to the chain. See-'GI.Gio.Objects.TlsDatabase.tlsDatabaseVerifyChain' for more information.--/Since: 2.30/--}-tlsDatabaseVerifyChainAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b, Gio.SocketConnectable.IsSocketConnectable c, Gio.TlsInteraction.IsTlsInteraction d, Gio.Cancellable.IsCancellable e) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@chain@/: a 'GI.Gio.Objects.TlsCertificate.TlsCertificate' chain -}-    -> T.Text-    {- ^ /@purpose@/: the purpose that this certificate chain will be used for. -}-    -> Maybe (c)-    {- ^ /@identity@/: the expected peer identity -}-    -> Maybe (d)-    {- ^ /@interaction@/: used to interact with the user if necessary -}-    -> [Gio.Flags.TlsDatabaseVerifyFlags]-    {- ^ /@flags@/: additional verify flags -}-    -> Maybe (e)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when the operation completes -}-    -> m ()-tlsDatabaseVerifyChainAsync self chain purpose identity interaction flags cancellable callback = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    chain' <- unsafeManagedPtrCastPtr chain-    purpose' <- textToCString purpose-    maybeIdentity <- case identity of-        Nothing -> return nullPtr-        Just jIdentity -> do-            jIdentity' <- unsafeManagedPtrCastPtr jIdentity-            return jIdentity'-    maybeInteraction <- case interaction of-        Nothing -> return nullPtr-        Just jInteraction -> do-            jInteraction' <- unsafeManagedPtrCastPtr jInteraction-            return jInteraction'-    let flags' = gflagsToWord flags-    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-    g_tls_database_verify_chain_async self' chain' purpose' maybeIdentity maybeInteraction flags' maybeCancellable maybeCallback userData-    touchManagedPtr self-    touchManagedPtr chain-    whenJust identity touchManagedPtr-    whenJust interaction touchManagedPtr-    whenJust cancellable touchManagedPtr-    freeMem purpose'-    return ()--#if ENABLE_OVERLOADING-data TlsDatabaseVerifyChainAsyncMethodInfo-instance (signature ~ (b -> T.Text -> Maybe (c) -> Maybe (d) -> [Gio.Flags.TlsDatabaseVerifyFlags] -> Maybe (e) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsDatabase a, Gio.TlsCertificate.IsTlsCertificate b, Gio.SocketConnectable.IsSocketConnectable c, Gio.TlsInteraction.IsTlsInteraction d, Gio.Cancellable.IsCancellable e) => O.MethodInfo TlsDatabaseVerifyChainAsyncMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseVerifyChainAsync--#endif---- method TlsDatabase::verify_chain_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Gio", name = "TlsDatabase"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsDatabase", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_database_verify_chain_finish" g_tls_database_verify_chain_finish :: -    Ptr TlsDatabase ->                      -- self : TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Finish an asynchronous verify chain operation. See-'GI.Gio.Objects.TlsDatabase.tlsDatabaseVerifyChain' for more information.--If /@chain@/ is found to be valid, then the return value will be 0. If-/@chain@/ is found to be invalid, then the return value will indicate-the problems found. If the function is unable to determine whether-/@chain@/ is valid or not (eg, because /@cancellable@/ is triggered-before it completes) then the return value will be-'GI.Gio.Flags.TlsCertificateFlagsGenericError' and /@error@/ will be set-accordingly. /@error@/ is not set when /@chain@/ is successfully analyzed-but found to be invalid.--/Since: 2.30/--}-tlsDatabaseVerifyChainFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsDatabase a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@self@/: a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m [Gio.Flags.TlsCertificateFlags]-    {- ^ __Returns:__ the appropriate 'GI.Gio.Flags.TlsCertificateFlags' which represents the-result of verification. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsDatabaseVerifyChainFinish self result_ = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_database_verify_chain_finish self' result_'-        let result' = wordToGFlags result-        touchManagedPtr self-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsDatabaseVerifyChainFinishMethodInfo-instance (signature ~ (b -> m [Gio.Flags.TlsCertificateFlags]), MonadIO m, IsTlsDatabase a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsDatabaseVerifyChainFinishMethodInfo a signature where-    overloadedMethod _ = tlsDatabaseVerifyChainFinish--#endif--
− GI/Gio/Objects/TlsDatabase.hs-boot 
@@ -1,68 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.TlsDatabase 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 TlsDatabase = TlsDatabase (ManagedPtr TlsDatabase)-instance GObject TlsDatabase where-class (GObject o, O.IsDescendantOf TlsDatabase o) => IsTlsDatabase o-instance (GObject o, O.IsDescendantOf TlsDatabase o) => IsTlsDatabase o-instance O.HasParentTypes TlsDatabase-#if ENABLE_OVERLOADING-data TlsDatabaseCreateCertificateHandleMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateForHandleMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateForHandleAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateForHandleFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateIssuerMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateIssuerAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificateIssuerFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificatesIssuedByMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseVerifyChainMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseVerifyChainAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsDatabaseVerifyChainFinishMethodInfo-#endif
− GI/Gio/Objects/TlsInteraction.hs 
@@ -1,777 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.TlsInteraction.TlsInteraction' provides a mechanism for the TLS connection and database-code to interact with the user. It can be used to ask the user for passwords.--To use a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' with a TLS connection use-'GI.Gio.Objects.TlsConnection.tlsConnectionSetInteraction'.--Callers should instantiate a derived class that implements the various-interaction methods to show the required dialogs.--Callers should use the \'invoke\' functions like-'GI.Gio.Objects.TlsInteraction.tlsInteractionInvokeAskPassword' to run interaction methods. These-functions make sure that the interaction is invoked in the main loop-and not in the current thread, if the current thread is not running the-main loop.--Derived classes can choose to implement whichever interactions methods they\'d-like to support by overriding those virtual methods in their class-initialization function. Any interactions not implemented will return-'GI.Gio.Enums.TlsInteractionResultUnhandled'. If a derived class implements an async method,-it must also implement the corresponding finish method.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.TlsInteraction-    ( ---- * Exported types-    TlsInteraction(..)                      ,-    IsTlsInteraction                        ,-    toTlsInteraction                        ,-    noTlsInteraction                        ,--- -- * Methods--- ** askPassword #method:askPassword#--#if ENABLE_OVERLOADING-    TlsInteractionAskPasswordMethodInfo     ,-#endif-    tlsInteractionAskPassword               ,----- ** askPasswordAsync #method:askPasswordAsync#--#if ENABLE_OVERLOADING-    TlsInteractionAskPasswordAsyncMethodInfo,-#endif-    tlsInteractionAskPasswordAsync          ,----- ** askPasswordFinish #method:askPasswordFinish#--#if ENABLE_OVERLOADING-    TlsInteractionAskPasswordFinishMethodInfo,-#endif-    tlsInteractionAskPasswordFinish         ,----- ** invokeAskPassword #method:invokeAskPassword#--#if ENABLE_OVERLOADING-    TlsInteractionInvokeAskPasswordMethodInfo,-#endif-    tlsInteractionInvokeAskPassword         ,----- ** invokeRequestCertificate #method:invokeRequestCertificate#--#if ENABLE_OVERLOADING-    TlsInteractionInvokeRequestCertificateMethodInfo,-#endif-    tlsInteractionInvokeRequestCertificate  ,----- ** requestCertificate #method:requestCertificate#--#if ENABLE_OVERLOADING-    TlsInteractionRequestCertificateMethodInfo,-#endif-    tlsInteractionRequestCertificate        ,----- ** requestCertificateAsync #method:requestCertificateAsync#--#if ENABLE_OVERLOADING-    TlsInteractionRequestCertificateAsyncMethodInfo,-#endif-    tlsInteractionRequestCertificateAsync   ,----- ** requestCertificateFinish #method:requestCertificateFinish#--#if ENABLE_OVERLOADING-    TlsInteractionRequestCertificateFinishMethodInfo,-#endif-    tlsInteractionRequestCertificateFinish  ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsConnection as Gio.TlsConnection-import {-# SOURCE #-} qualified GI.Gio.Objects.TlsPassword as Gio.TlsPassword---- | Memory-managed wrapper type.-newtype TlsInteraction = TlsInteraction (ManagedPtr TlsInteraction)-foreign import ccall "g_tls_interaction_get_type"-    c_g_tls_interaction_get_type :: IO GType--instance GObject TlsInteraction where-    gobjectType = c_g_tls_interaction_get_type-    ---- | Type class for types which can be safely cast to `TlsInteraction`, for instance with `toTlsInteraction`.-class (GObject o, O.IsDescendantOf TlsInteraction o) => IsTlsInteraction o-instance (GObject o, O.IsDescendantOf TlsInteraction o) => IsTlsInteraction o--instance O.HasParentTypes TlsInteraction-type instance O.ParentTypes TlsInteraction = '[GObject.Object.Object]---- | Cast to `TlsInteraction`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsInteraction :: (MonadIO m, IsTlsInteraction o) => o -> m TlsInteraction-toTlsInteraction = liftIO . unsafeCastTo TlsInteraction---- | A convenience alias for `Nothing` :: `Maybe` `TlsInteraction`.-noTlsInteraction :: Maybe TlsInteraction-noTlsInteraction = Nothing--#if ENABLE_OVERLOADING-type family ResolveTlsInteractionMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsInteractionMethod "askPassword" o = TlsInteractionAskPasswordMethodInfo-    ResolveTlsInteractionMethod "askPasswordAsync" o = TlsInteractionAskPasswordAsyncMethodInfo-    ResolveTlsInteractionMethod "askPasswordFinish" o = TlsInteractionAskPasswordFinishMethodInfo-    ResolveTlsInteractionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsInteractionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsInteractionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsInteractionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsInteractionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsInteractionMethod "invokeAskPassword" o = TlsInteractionInvokeAskPasswordMethodInfo-    ResolveTlsInteractionMethod "invokeRequestCertificate" o = TlsInteractionInvokeRequestCertificateMethodInfo-    ResolveTlsInteractionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsInteractionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsInteractionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsInteractionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsInteractionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsInteractionMethod "requestCertificate" o = TlsInteractionRequestCertificateMethodInfo-    ResolveTlsInteractionMethod "requestCertificateAsync" o = TlsInteractionRequestCertificateAsyncMethodInfo-    ResolveTlsInteractionMethod "requestCertificateFinish" o = TlsInteractionRequestCertificateFinishMethodInfo-    ResolveTlsInteractionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsInteractionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsInteractionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsInteractionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsInteractionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsInteractionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsInteractionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsInteractionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsInteractionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsInteractionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsInteractionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsInteractionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsInteractionMethod t TlsInteraction, O.MethodInfo info TlsInteraction p) => OL.IsLabel t (TlsInteraction -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsInteraction-type instance O.AttributeList TlsInteraction = TlsInteractionAttributeList-type TlsInteractionAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList TlsInteraction = TlsInteractionSignalList-type TlsInteractionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method TlsInteraction::ask_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsInteraction object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", 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 "an optional #GCancellable cancellation object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsInteractionResult"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_ask_password" g_tls_interaction_ask_password :: -    Ptr TlsInteraction ->                   -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    Ptr Gio.TlsPassword.TlsPassword ->      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Run synchronous interaction to ask the user for a password. In general,-'GI.Gio.Objects.TlsInteraction.tlsInteractionInvokeAskPassword' should be used instead of this-function.--Derived subclasses usually implement a password prompt, although they may-also choose to provide a password from elsewhere. The /@password@/ value will-be filled in and then /@callback@/ will be called. Alternatively the user may-abort this password request, which will usually abort the TLS connection.--If the interaction is cancelled by the cancellation object, or by the-user then 'GI.Gio.Enums.TlsInteractionResultFailed' will be returned with an error that-contains a 'GI.Gio.Enums.IOErrorEnumCancelled' error code. Certain implementations may-not support immediate cancellation.--/Since: 2.30/--}-tlsInteractionAskPassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@interaction@/: a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object -}-    -> b-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> Maybe (c)-    {- ^ /@cancellable@/: an optional 'GI.Gio.Objects.Cancellable.Cancellable' cancellation object -}-    -> m Gio.Enums.TlsInteractionResult-    {- ^ __Returns:__ The status of the ask password interaction. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsInteractionAskPassword interaction password cancellable = liftIO $ do-    interaction' <- unsafeManagedPtrCastPtr interaction-    password' <- unsafeManagedPtrCastPtr password-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_interaction_ask_password interaction' password' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr interaction-        touchManagedPtr password-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsInteractionAskPasswordMethodInfo-instance (signature ~ (b -> Maybe (c) -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionAskPasswordMethodInfo a signature where-    overloadedMethod _ = tlsInteractionAskPassword--#endif---- method TlsInteraction::ask_password_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsInteraction object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", 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 "an optional #GCancellable cancellation object", 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 "will be called when the interaction completes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, 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 the @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_interaction_ask_password_async" g_tls_interaction_ask_password_async :: -    Ptr TlsInteraction ->                   -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    Ptr Gio.TlsPassword.TlsPassword ->      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    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 ()--{- |-Run asynchronous interaction to ask the user for a password. In general,-'GI.Gio.Objects.TlsInteraction.tlsInteractionInvokeAskPassword' should be used instead of this-function.--Derived subclasses usually implement a password prompt, although they may-also choose to provide a password from elsewhere. The /@password@/ value will-be filled in and then /@callback@/ will be called. Alternatively the user may-abort this password request, which will usually abort the TLS connection.--If the interaction is cancelled by the cancellation object, or by the-user then 'GI.Gio.Enums.TlsInteractionResultFailed' will be returned with an error that-contains a 'GI.Gio.Enums.IOErrorEnumCancelled' error code. Certain implementations may-not support immediate cancellation.--Certain implementations may not support immediate cancellation.--/Since: 2.30/--}-tlsInteractionAskPasswordAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@interaction@/: a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object -}-    -> b-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> Maybe (c)-    {- ^ /@cancellable@/: an optional 'GI.Gio.Objects.Cancellable.Cancellable' cancellation object -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: will be called when the interaction completes -}-    -> m ()-tlsInteractionAskPasswordAsync interaction password cancellable callback = liftIO $ do-    interaction' <- unsafeManagedPtrCastPtr interaction-    password' <- unsafeManagedPtrCastPtr password-    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-    g_tls_interaction_ask_password_async interaction' password' maybeCancellable maybeCallback userData-    touchManagedPtr interaction-    touchManagedPtr password-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data TlsInteractionAskPasswordAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionAskPasswordAsyncMethodInfo a signature where-    overloadedMethod _ = tlsInteractionAskPasswordAsync--#endif---- method TlsInteraction::ask_password_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsInteraction object", 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 "the result passed to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsInteractionResult"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_ask_password_finish" g_tls_interaction_ask_password_finish :: -    Ptr TlsInteraction ->                   -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Complete an ask password user interaction request. This should be once-the 'GI.Gio.Objects.TlsInteraction.tlsInteractionAskPasswordAsync' completion callback is called.--If 'GI.Gio.Enums.TlsInteractionResultHandled' is returned, then the 'GI.Gio.Objects.TlsPassword.TlsPassword' passed-to 'GI.Gio.Objects.TlsInteraction.tlsInteractionAskPassword' will have its password filled in.--If the interaction is cancelled by the cancellation object, or by the-user then 'GI.Gio.Enums.TlsInteractionResultFailed' will be returned with an error that-contains a 'GI.Gio.Enums.IOErrorEnumCancelled' error code.--/Since: 2.30/--}-tlsInteractionAskPasswordFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@interaction@/: a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object -}-    -> b-    {- ^ /@result@/: the result passed to the callback -}-    -> m Gio.Enums.TlsInteractionResult-    {- ^ __Returns:__ The status of the ask password interaction. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsInteractionAskPasswordFinish interaction result_ = liftIO $ do-    interaction' <- unsafeManagedPtrCastPtr interaction-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_interaction_ask_password_finish interaction' result_'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr interaction-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsInteractionAskPasswordFinishMethodInfo-instance (signature ~ (b -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsInteractionAskPasswordFinishMethodInfo a signature where-    overloadedMethod _ = tlsInteractionAskPasswordFinish--#endif---- method TlsInteraction::invoke_ask_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsInteraction object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", 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 "an optional #GCancellable cancellation object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsInteractionResult"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_invoke_ask_password" g_tls_interaction_invoke_ask_password :: -    Ptr TlsInteraction ->                   -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    Ptr Gio.TlsPassword.TlsPassword ->      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Invoke the interaction to ask the user for a password. It invokes this-interaction in the main loop, specifically the 'GI.GLib.Structs.MainContext.MainContext' returned by-'GI.GLib.Functions.mainContextGetThreadDefault' when the interaction is created. This-is called by called by 'GI.Gio.Objects.TlsConnection.TlsConnection' or 'GI.Gio.Objects.TlsDatabase.TlsDatabase' to ask the user-for a password.--Derived subclasses usually implement a password prompt, although they may-also choose to provide a password from elsewhere. The /@password@/ value will-be filled in and then /@callback@/ will be called. Alternatively the user may-abort this password request, which will usually abort the TLS connection.--The implementation can either be a synchronous (eg: modal dialog) or an-asynchronous one (eg: modeless dialog). This function will take care of-calling which ever one correctly.--If the interaction is cancelled by the cancellation object, or by the-user then 'GI.Gio.Enums.TlsInteractionResultFailed' will be returned with an error that-contains a 'GI.Gio.Enums.IOErrorEnumCancelled' error code. Certain implementations may-not support immediate cancellation.--/Since: 2.30/--}-tlsInteractionInvokeAskPassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@interaction@/: a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object -}-    -> b-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> Maybe (c)-    {- ^ /@cancellable@/: an optional 'GI.Gio.Objects.Cancellable.Cancellable' cancellation object -}-    -> m Gio.Enums.TlsInteractionResult-    {- ^ __Returns:__ The status of the ask password interaction. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsInteractionInvokeAskPassword interaction password cancellable = liftIO $ do-    interaction' <- unsafeManagedPtrCastPtr interaction-    password' <- unsafeManagedPtrCastPtr password-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_interaction_invoke_ask_password interaction' password' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr interaction-        touchManagedPtr password-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsInteractionInvokeAskPasswordMethodInfo-instance (signature ~ (b -> Maybe (c) -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.TlsPassword.IsTlsPassword b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionInvokeAskPasswordMethodInfo a signature where-    overloadedMethod _ = tlsInteractionInvokeAskPassword--#endif---- method TlsInteraction::invoke_request_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsInteraction object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateRequestFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags providing more information about the request", 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 "an optional #GCancellable cancellation object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsInteractionResult"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_invoke_request_certificate" g_tls_interaction_invoke_request_certificate :: -    Ptr TlsInteraction ->                   -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    Ptr Gio.TlsConnection.TlsConnection ->  -- connection : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsCertificateRequestFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Invoke the interaction to ask the user to choose a certificate to-use with the connection. It invokes this interaction in the main-loop, specifically the 'GI.GLib.Structs.MainContext.MainContext' returned by-'GI.GLib.Functions.mainContextGetThreadDefault' when the interaction is-created. This is called by called by 'GI.Gio.Objects.TlsConnection.TlsConnection' when the peer-requests a certificate during the handshake.--Derived subclasses usually implement a certificate selector,-although they may also choose to provide a certificate from-elsewhere. Alternatively the user may abort this certificate-request, which may or may not abort the TLS connection.--The implementation can either be a synchronous (eg: modal dialog) or an-asynchronous one (eg: modeless dialog). This function will take care of-calling which ever one correctly.--If the interaction is cancelled by the cancellation object, or by the-user then 'GI.Gio.Enums.TlsInteractionResultFailed' will be returned with an error that-contains a 'GI.Gio.Enums.IOErrorEnumCancelled' error code. Certain implementations may-not support immediate cancellation.--/Since: 2.40/--}-tlsInteractionInvokeRequestCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@interaction@/: a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object -}-    -> b-    {- ^ /@connection@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' object -}-    -> Gio.Enums.TlsCertificateRequestFlags-    {- ^ /@flags@/: flags providing more information about the request -}-    -> Maybe (c)-    {- ^ /@cancellable@/: an optional 'GI.Gio.Objects.Cancellable.Cancellable' cancellation object -}-    -> m Gio.Enums.TlsInteractionResult-    {- ^ __Returns:__ The status of the certificate request interaction. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsInteractionInvokeRequestCertificate interaction connection flags cancellable = liftIO $ do-    interaction' <- unsafeManagedPtrCastPtr interaction-    connection' <- unsafeManagedPtrCastPtr connection-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_interaction_invoke_request_certificate interaction' connection' flags' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr interaction-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsInteractionInvokeRequestCertificateMethodInfo-instance (signature ~ (b -> Gio.Enums.TlsCertificateRequestFlags -> Maybe (c) -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionInvokeRequestCertificateMethodInfo a signature where-    overloadedMethod _ = tlsInteractionInvokeRequestCertificate--#endif---- method TlsInteraction::request_certificate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsInteraction object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateRequestFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags providing more information about the request", 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 "an optional #GCancellable cancellation object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsInteractionResult"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_request_certificate" g_tls_interaction_request_certificate :: -    Ptr TlsInteraction ->                   -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    Ptr Gio.TlsConnection.TlsConnection ->  -- connection : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsCertificateRequestFlags"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Run synchronous interaction to ask the user to choose a certificate to use-with the connection. In general, 'GI.Gio.Objects.TlsInteraction.tlsInteractionInvokeRequestCertificate'-should be used instead of this function.--Derived subclasses usually implement a certificate selector, although they may-also choose to provide a certificate from elsewhere. Alternatively the user may-abort this certificate request, which will usually abort the TLS connection.--If 'GI.Gio.Enums.TlsInteractionResultHandled' is returned, then the 'GI.Gio.Objects.TlsConnection.TlsConnection'-passed to 'GI.Gio.Objects.TlsInteraction.tlsInteractionRequestCertificate' will have had its-'GI.Gio.Objects.TlsConnection.TlsConnection':@/certificate/@ filled in.--If the interaction is cancelled by the cancellation object, or by the-user then 'GI.Gio.Enums.TlsInteractionResultFailed' will be returned with an error that-contains a 'GI.Gio.Enums.IOErrorEnumCancelled' error code. Certain implementations may-not support immediate cancellation.--/Since: 2.40/--}-tlsInteractionRequestCertificate ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@interaction@/: a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object -}-    -> b-    {- ^ /@connection@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' object -}-    -> Gio.Enums.TlsCertificateRequestFlags-    {- ^ /@flags@/: flags providing more information about the request -}-    -> Maybe (c)-    {- ^ /@cancellable@/: an optional 'GI.Gio.Objects.Cancellable.Cancellable' cancellation object -}-    -> m Gio.Enums.TlsInteractionResult-    {- ^ __Returns:__ The status of the request certificate interaction. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsInteractionRequestCertificate interaction connection flags cancellable = liftIO $ do-    interaction' <- unsafeManagedPtrCastPtr interaction-    connection' <- unsafeManagedPtrCastPtr connection-    let flags' = (fromIntegral . fromEnum) flags-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_tls_interaction_request_certificate interaction' connection' flags' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr interaction-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsInteractionRequestCertificateMethodInfo-instance (signature ~ (b -> Gio.Enums.TlsCertificateRequestFlags -> Maybe (c) -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionRequestCertificateMethodInfo a signature where-    overloadedMethod _ = tlsInteractionRequestCertificate--#endif---- method TlsInteraction::request_certificate_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsInteraction object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "TlsConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsConnection object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateRequestFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "flags providing more information about the request", 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 "an optional #GCancellable cancellation object", 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 "will be called when the interaction completes", 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 the @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_interaction_request_certificate_async" g_tls_interaction_request_certificate_async :: -    Ptr TlsInteraction ->                   -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    Ptr Gio.TlsConnection.TlsConnection ->  -- connection : TInterface (Name {namespace = "Gio", name = "TlsConnection"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsCertificateRequestFlags"})-    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 ()--{- |-Run asynchronous interaction to ask the user for a certificate to use with-the connection. In general, 'GI.Gio.Objects.TlsInteraction.tlsInteractionInvokeRequestCertificate' should-be used instead of this function.--Derived subclasses usually implement a certificate selector, although they may-also choose to provide a certificate from elsewhere. /@callback@/ will be called-when the operation completes. Alternatively the user may abort this certificate-request, which will usually abort the TLS connection.--/Since: 2.40/--}-tlsInteractionRequestCertificateAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@interaction@/: a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object -}-    -> b-    {- ^ /@connection@/: a 'GI.Gio.Objects.TlsConnection.TlsConnection' object -}-    -> Gio.Enums.TlsCertificateRequestFlags-    {- ^ /@flags@/: flags providing more information about the request -}-    -> Maybe (c)-    {- ^ /@cancellable@/: an optional 'GI.Gio.Objects.Cancellable.Cancellable' cancellation object -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: will be called when the interaction completes -}-    -> m ()-tlsInteractionRequestCertificateAsync interaction connection flags cancellable callback = liftIO $ do-    interaction' <- unsafeManagedPtrCastPtr interaction-    connection' <- unsafeManagedPtrCastPtr connection-    let flags' = (fromIntegral . fromEnum) flags-    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-    g_tls_interaction_request_certificate_async interaction' connection' flags' maybeCancellable maybeCallback userData-    touchManagedPtr interaction-    touchManagedPtr connection-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data TlsInteractionRequestCertificateAsyncMethodInfo-instance (signature ~ (b -> Gio.Enums.TlsCertificateRequestFlags -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsTlsInteraction a, Gio.TlsConnection.IsTlsConnection b, Gio.Cancellable.IsCancellable c) => O.MethodInfo TlsInteractionRequestCertificateAsyncMethodInfo a signature where-    overloadedMethod _ = tlsInteractionRequestCertificateAsync--#endif---- method TlsInteraction::request_certificate_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "interaction", argType = TInterface (Name {namespace = "Gio", name = "TlsInteraction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsInteraction object", 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 "the result passed to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsInteractionResult"}))--- throws : True--- Skip return : False--foreign import ccall "g_tls_interaction_request_certificate_finish" g_tls_interaction_request_certificate_finish :: -    Ptr TlsInteraction ->                   -- interaction : TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Complete an request certificate user interaction request. This should be once-the 'GI.Gio.Objects.TlsInteraction.tlsInteractionRequestCertificateAsync' completion callback is called.--If 'GI.Gio.Enums.TlsInteractionResultHandled' is returned, then the 'GI.Gio.Objects.TlsConnection.TlsConnection'-passed to 'GI.Gio.Objects.TlsInteraction.tlsInteractionRequestCertificateAsync' will have had its-'GI.Gio.Objects.TlsConnection.TlsConnection':@/certificate/@ filled in.--If the interaction is cancelled by the cancellation object, or by the-user then 'GI.Gio.Enums.TlsInteractionResultFailed' will be returned with an error that-contains a 'GI.Gio.Enums.IOErrorEnumCancelled' error code.--/Since: 2.40/--}-tlsInteractionRequestCertificateFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsInteraction a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@interaction@/: a 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object -}-    -> b-    {- ^ /@result@/: the result passed to the callback -}-    -> m Gio.Enums.TlsInteractionResult-    {- ^ __Returns:__ The status of the request certificate interaction. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tlsInteractionRequestCertificateFinish interaction result_ = liftIO $ do-    interaction' <- unsafeManagedPtrCastPtr interaction-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_tls_interaction_request_certificate_finish interaction' result_'-        let result' = (toEnum . fromIntegral) result-        touchManagedPtr interaction-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data TlsInteractionRequestCertificateFinishMethodInfo-instance (signature ~ (b -> m Gio.Enums.TlsInteractionResult), MonadIO m, IsTlsInteraction a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo TlsInteractionRequestCertificateFinishMethodInfo a signature where-    overloadedMethod _ = tlsInteractionRequestCertificateFinish--#endif--
− GI/Gio/Objects/TlsInteraction.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.TlsInteraction 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 TlsInteraction = TlsInteraction (ManagedPtr TlsInteraction)-instance GObject TlsInteraction where-class (GObject o, O.IsDescendantOf TlsInteraction o) => IsTlsInteraction o-instance (GObject o, O.IsDescendantOf TlsInteraction o) => IsTlsInteraction o-instance O.HasParentTypes TlsInteraction-#if ENABLE_OVERLOADING-data TlsInteractionAskPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsInteractionAskPasswordAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsInteractionAskPasswordFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsInteractionInvokeAskPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsInteractionInvokeRequestCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsInteractionRequestCertificateMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsInteractionRequestCertificateAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsInteractionRequestCertificateFinishMethodInfo-#endif
− GI/Gio/Objects/TlsPassword.hs 
@@ -1,783 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Holds a password used in TLS.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.TlsPassword-    ( ---- * Exported types-    TlsPassword(..)                         ,-    IsTlsPassword                           ,-    toTlsPassword                           ,-    noTlsPassword                           ,--- -- * Methods--- ** getDescription #method:getDescription#--#if ENABLE_OVERLOADING-    TlsPasswordGetDescriptionMethodInfo     ,-#endif-    tlsPasswordGetDescription               ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    TlsPasswordGetFlagsMethodInfo           ,-#endif-    tlsPasswordGetFlags                     ,----- ** getWarning #method:getWarning#--#if ENABLE_OVERLOADING-    TlsPasswordGetWarningMethodInfo         ,-#endif-    tlsPasswordGetWarning                   ,----- ** new #method:new#--    tlsPasswordNew                          ,----- ** setDescription #method:setDescription#--#if ENABLE_OVERLOADING-    TlsPasswordSetDescriptionMethodInfo     ,-#endif-    tlsPasswordSetDescription               ,----- ** setFlags #method:setFlags#--#if ENABLE_OVERLOADING-    TlsPasswordSetFlagsMethodInfo           ,-#endif-    tlsPasswordSetFlags                     ,----- ** setValue #method:setValue#--#if ENABLE_OVERLOADING-    TlsPasswordSetValueMethodInfo           ,-#endif-    tlsPasswordSetValue                     ,----- ** setValueFull #method:setValueFull#--#if ENABLE_OVERLOADING-    TlsPasswordSetValueFullMethodInfo       ,-#endif-    tlsPasswordSetValueFull                 ,----- ** setWarning #method:setWarning#--#if ENABLE_OVERLOADING-    TlsPasswordSetWarningMethodInfo         ,-#endif-    tlsPasswordSetWarning                   ,----- -- * Properties--- ** description #attr:description#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    TlsPasswordDescriptionPropertyInfo      ,-#endif-    constructTlsPasswordDescription         ,-    getTlsPasswordDescription               ,-    setTlsPasswordDescription               ,-#if ENABLE_OVERLOADING-    tlsPasswordDescription                  ,-#endif----- ** flags #attr:flags#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    TlsPasswordFlagsPropertyInfo            ,-#endif-    constructTlsPasswordFlags               ,-    getTlsPasswordFlags                     ,-    setTlsPasswordFlags                     ,-#if ENABLE_OVERLOADING-    tlsPasswordFlags                        ,-#endif----- ** warning #attr:warning#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    TlsPasswordWarningPropertyInfo          ,-#endif-    constructTlsPasswordWarning             ,-    getTlsPasswordWarning                   ,-    setTlsPasswordWarning                   ,-#if ENABLE_OVERLOADING-    tlsPasswordWarning                      ,-#endif-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags---- | Memory-managed wrapper type.-newtype TlsPassword = TlsPassword (ManagedPtr TlsPassword)-foreign import ccall "g_tls_password_get_type"-    c_g_tls_password_get_type :: IO GType--instance GObject TlsPassword where-    gobjectType = c_g_tls_password_get_type-    ---- | Type class for types which can be safely cast to `TlsPassword`, for instance with `toTlsPassword`.-class (GObject o, O.IsDescendantOf TlsPassword o) => IsTlsPassword o-instance (GObject o, O.IsDescendantOf TlsPassword o) => IsTlsPassword o--instance O.HasParentTypes TlsPassword-type instance O.ParentTypes TlsPassword = '[GObject.Object.Object]---- | Cast to `TlsPassword`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toTlsPassword :: (MonadIO m, IsTlsPassword o) => o -> m TlsPassword-toTlsPassword = liftIO . unsafeCastTo TlsPassword---- | A convenience alias for `Nothing` :: `Maybe` `TlsPassword`.-noTlsPassword :: Maybe TlsPassword-noTlsPassword = Nothing--#if ENABLE_OVERLOADING-type family ResolveTlsPasswordMethod (t :: Symbol) (o :: *) :: * where-    ResolveTlsPasswordMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveTlsPasswordMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveTlsPasswordMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveTlsPasswordMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveTlsPasswordMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveTlsPasswordMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveTlsPasswordMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveTlsPasswordMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveTlsPasswordMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveTlsPasswordMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveTlsPasswordMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveTlsPasswordMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveTlsPasswordMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveTlsPasswordMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveTlsPasswordMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveTlsPasswordMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveTlsPasswordMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveTlsPasswordMethod "getDescription" o = TlsPasswordGetDescriptionMethodInfo-    ResolveTlsPasswordMethod "getFlags" o = TlsPasswordGetFlagsMethodInfo-    ResolveTlsPasswordMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveTlsPasswordMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveTlsPasswordMethod "getWarning" o = TlsPasswordGetWarningMethodInfo-    ResolveTlsPasswordMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveTlsPasswordMethod "setDescription" o = TlsPasswordSetDescriptionMethodInfo-    ResolveTlsPasswordMethod "setFlags" o = TlsPasswordSetFlagsMethodInfo-    ResolveTlsPasswordMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveTlsPasswordMethod "setValue" o = TlsPasswordSetValueMethodInfo-    ResolveTlsPasswordMethod "setValueFull" o = TlsPasswordSetValueFullMethodInfo-    ResolveTlsPasswordMethod "setWarning" o = TlsPasswordSetWarningMethodInfo-    ResolveTlsPasswordMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveTlsPasswordMethod t TlsPassword, O.MethodInfo info TlsPassword p) => OL.IsLabel t (TlsPassword -> 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---- VVV Prop "description"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@description@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsPassword #description-@--}-getTlsPasswordDescription :: (MonadIO m, IsTlsPassword o) => o -> m T.Text-getTlsPasswordDescription obj = liftIO $ checkUnexpectedNothing "getTlsPasswordDescription" $ B.Properties.getObjectPropertyString obj "description"--{- |-Set the value of the “@description@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsPassword [ #description 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsPasswordDescription :: (MonadIO m, IsTlsPassword o) => o -> T.Text -> m ()-setTlsPasswordDescription obj val = liftIO $ B.Properties.setObjectPropertyString obj "description" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@description@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsPasswordDescription :: (IsTlsPassword o) => T.Text -> IO (GValueConstruct o)-constructTlsPasswordDescription val = B.Properties.constructObjectPropertyString "description" (Just val)--#if ENABLE_OVERLOADING-data TlsPasswordDescriptionPropertyInfo-instance AttrInfo TlsPasswordDescriptionPropertyInfo where-    type AttrAllowedOps TlsPasswordDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsPasswordDescriptionPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsPasswordDescriptionPropertyInfo = IsTlsPassword-    type AttrGetType TlsPasswordDescriptionPropertyInfo = T.Text-    type AttrLabel TlsPasswordDescriptionPropertyInfo = "description"-    type AttrOrigin TlsPasswordDescriptionPropertyInfo = TlsPassword-    attrGet _ = getTlsPasswordDescription-    attrSet _ = setTlsPasswordDescription-    attrConstruct _ = constructTlsPasswordDescription-    attrClear _ = undefined-#endif---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsPasswordFlags"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsPassword #flags-@--}-getTlsPasswordFlags :: (MonadIO m, IsTlsPassword o) => o -> m [Gio.Flags.TlsPasswordFlags]-getTlsPasswordFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"--{- |-Set the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsPassword [ #flags 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsPasswordFlags :: (MonadIO m, IsTlsPassword o) => o -> [Gio.Flags.TlsPasswordFlags] -> m ()-setTlsPasswordFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "flags" val--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsPasswordFlags :: (IsTlsPassword o) => [Gio.Flags.TlsPasswordFlags] -> IO (GValueConstruct o)-constructTlsPasswordFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data TlsPasswordFlagsPropertyInfo-instance AttrInfo TlsPasswordFlagsPropertyInfo where-    type AttrAllowedOps TlsPasswordFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsPasswordFlagsPropertyInfo = (~) [Gio.Flags.TlsPasswordFlags]-    type AttrBaseTypeConstraint TlsPasswordFlagsPropertyInfo = IsTlsPassword-    type AttrGetType TlsPasswordFlagsPropertyInfo = [Gio.Flags.TlsPasswordFlags]-    type AttrLabel TlsPasswordFlagsPropertyInfo = "flags"-    type AttrOrigin TlsPasswordFlagsPropertyInfo = TlsPassword-    attrGet _ = getTlsPasswordFlags-    attrSet _ = setTlsPasswordFlags-    attrConstruct _ = constructTlsPasswordFlags-    attrClear _ = undefined-#endif---- VVV Prop "warning"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@warning@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' tlsPassword #warning-@--}-getTlsPasswordWarning :: (MonadIO m, IsTlsPassword o) => o -> m T.Text-getTlsPasswordWarning obj = liftIO $ checkUnexpectedNothing "getTlsPasswordWarning" $ B.Properties.getObjectPropertyString obj "warning"--{- |-Set the value of the “@warning@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' tlsPassword [ #warning 'Data.GI.Base.Attributes.:=' value ]-@--}-setTlsPasswordWarning :: (MonadIO m, IsTlsPassword o) => o -> T.Text -> m ()-setTlsPasswordWarning obj val = liftIO $ B.Properties.setObjectPropertyString obj "warning" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@warning@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructTlsPasswordWarning :: (IsTlsPassword o) => T.Text -> IO (GValueConstruct o)-constructTlsPasswordWarning val = B.Properties.constructObjectPropertyString "warning" (Just val)--#if ENABLE_OVERLOADING-data TlsPasswordWarningPropertyInfo-instance AttrInfo TlsPasswordWarningPropertyInfo where-    type AttrAllowedOps TlsPasswordWarningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint TlsPasswordWarningPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint TlsPasswordWarningPropertyInfo = IsTlsPassword-    type AttrGetType TlsPasswordWarningPropertyInfo = T.Text-    type AttrLabel TlsPasswordWarningPropertyInfo = "warning"-    type AttrOrigin TlsPasswordWarningPropertyInfo = TlsPassword-    attrGet _ = getTlsPasswordWarning-    attrSet _ = setTlsPasswordWarning-    attrConstruct _ = constructTlsPasswordWarning-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList TlsPassword-type instance O.AttributeList TlsPassword = TlsPasswordAttributeList-type TlsPasswordAttributeList = ('[ '("description", TlsPasswordDescriptionPropertyInfo), '("flags", TlsPasswordFlagsPropertyInfo), '("warning", TlsPasswordWarningPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-tlsPasswordDescription :: AttrLabelProxy "description"-tlsPasswordDescription = AttrLabelProxy--tlsPasswordFlags :: AttrLabelProxy "flags"-tlsPasswordFlags = AttrLabelProxy--tlsPasswordWarning :: AttrLabelProxy "warning"-tlsPasswordWarning = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList TlsPassword = TlsPasswordSignalList-type TlsPasswordSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method TlsPassword::new--- method type : Constructor--- Args : [Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsPasswordFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the password flags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "description of what the password is for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsPassword"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_new" g_tls_password_new :: -    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsPasswordFlags"})-    CString ->                              -- description : TBasicType TUTF8-    IO (Ptr TlsPassword)--{- |-Create a new 'GI.Gio.Objects.TlsPassword.TlsPassword' object.--}-tlsPasswordNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Gio.Flags.TlsPasswordFlags]-    {- ^ /@flags@/: the password flags -}-    -> T.Text-    {- ^ /@description@/: description of what the password is for -}-    -> m TlsPassword-    {- ^ __Returns:__ The newly allocated password object -}-tlsPasswordNew flags description = liftIO $ do-    let flags' = gflagsToWord flags-    description' <- textToCString description-    result <- g_tls_password_new flags' description'-    checkUnexpectedReturnNULL "tlsPasswordNew" result-    result' <- (wrapObject TlsPassword) result-    freeMem description'-    return result'--#if ENABLE_OVERLOADING-#endif---- method TlsPassword::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword 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 "g_tls_password_get_description" g_tls_password_get_description :: -    Ptr TlsPassword ->                      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    IO CString--{- |-Get a description string about what the password will be used for.--/Since: 2.30/--}-tlsPasswordGetDescription ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsPassword a) =>-    a-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> m T.Text-    {- ^ __Returns:__ The description of the password. -}-tlsPasswordGetDescription password = liftIO $ do-    password' <- unsafeManagedPtrCastPtr password-    result <- g_tls_password_get_description password'-    checkUnexpectedReturnNULL "tlsPasswordGetDescription" result-    result' <- cstringToText result-    touchManagedPtr password-    return result'--#if ENABLE_OVERLOADING-data TlsPasswordGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsTlsPassword a) => O.MethodInfo TlsPasswordGetDescriptionMethodInfo a signature where-    overloadedMethod _ = tlsPasswordGetDescription--#endif---- method TlsPassword::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "TlsPasswordFlags"}))--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_get_flags" g_tls_password_get_flags :: -    Ptr TlsPassword ->                      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    IO CUInt--{- |-Get flags about the password.--/Since: 2.30/--}-tlsPasswordGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsPassword a) =>-    a-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> m [Gio.Flags.TlsPasswordFlags]-    {- ^ __Returns:__ The flags about the password. -}-tlsPasswordGetFlags password = liftIO $ do-    password' <- unsafeManagedPtrCastPtr password-    result <- g_tls_password_get_flags password'-    let result' = wordToGFlags result-    touchManagedPtr password-    return result'--#if ENABLE_OVERLOADING-data TlsPasswordGetFlagsMethodInfo-instance (signature ~ (m [Gio.Flags.TlsPasswordFlags]), MonadIO m, IsTlsPassword a) => O.MethodInfo TlsPasswordGetFlagsMethodInfo a signature where-    overloadedMethod _ = tlsPasswordGetFlags--#endif---- method TlsPassword::get_warning--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword 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 "g_tls_password_get_warning" g_tls_password_get_warning :: -    Ptr TlsPassword ->                      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    IO CString--{- |-Get a user readable translated warning. Usually this warning is a-representation of the password flags returned from-'GI.Gio.Objects.TlsPassword.tlsPasswordGetFlags'.--/Since: 2.30/--}-tlsPasswordGetWarning ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsPassword a) =>-    a-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> m T.Text-    {- ^ __Returns:__ The warning. -}-tlsPasswordGetWarning password = liftIO $ do-    password' <- unsafeManagedPtrCastPtr password-    result <- g_tls_password_get_warning password'-    checkUnexpectedReturnNULL "tlsPasswordGetWarning" result-    result' <- cstringToText result-    touchManagedPtr password-    return result'--#if ENABLE_OVERLOADING-data TlsPasswordGetWarningMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsTlsPassword a) => O.MethodInfo TlsPasswordGetWarningMethodInfo a signature where-    overloadedMethod _ = tlsPasswordGetWarning--#endif---- method TlsPassword::set_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The description of the password", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_set_description" g_tls_password_set_description :: -    Ptr TlsPassword ->                      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    CString ->                              -- description : TBasicType TUTF8-    IO ()--{- |-Set a description string about what the password will be used for.--/Since: 2.30/--}-tlsPasswordSetDescription ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsPassword a) =>-    a-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> T.Text-    {- ^ /@description@/: The description of the password -}-    -> m ()-tlsPasswordSetDescription password description = liftIO $ do-    password' <- unsafeManagedPtrCastPtr password-    description' <- textToCString description-    g_tls_password_set_description password' description'-    touchManagedPtr password-    freeMem description'-    return ()--#if ENABLE_OVERLOADING-data TlsPasswordSetDescriptionMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsTlsPassword a) => O.MethodInfo TlsPasswordSetDescriptionMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetDescription--#endif---- method TlsPassword::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "TlsPasswordFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The flags about the password", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_set_flags" g_tls_password_set_flags :: -    Ptr TlsPassword ->                      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "TlsPasswordFlags"})-    IO ()--{- |-Set flags about the password.--/Since: 2.30/--}-tlsPasswordSetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsPassword a) =>-    a-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> [Gio.Flags.TlsPasswordFlags]-    {- ^ /@flags@/: The flags about the password -}-    -> m ()-tlsPasswordSetFlags password flags = liftIO $ do-    password' <- unsafeManagedPtrCastPtr password-    let flags' = gflagsToWord flags-    g_tls_password_set_flags password' flags'-    touchManagedPtr password-    return ()--#if ENABLE_OVERLOADING-data TlsPasswordSetFlagsMethodInfo-instance (signature ~ ([Gio.Flags.TlsPasswordFlags] -> m ()), MonadIO m, IsTlsPassword a) => O.MethodInfo TlsPasswordSetFlagsMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetFlags--#endif---- method TlsPassword::set_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new password value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the password, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the password, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_set_value" g_tls_password_set_value :: -    Ptr TlsPassword ->                      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    Ptr Word8 ->                            -- value : TCArray False (-1) 2 (TBasicType TUInt8)-    Int64 ->                                -- length : TBasicType TInt64-    IO ()--{- |-Set the value for this password. The /@value@/ will be copied by the password-object.--Specify the /@length@/, for a non-nul-terminated password. Pass -1 as-/@length@/ if using a nul-terminated password, and /@length@/ will be-calculated automatically. (Note that the terminating nul is not-considered part of the password in this case.)--/Since: 2.30/--}-tlsPasswordSetValue ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsPassword a) =>-    a-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> ByteString-    {- ^ /@value@/: the new password value -}-    -> m ()-tlsPasswordSetValue password value = liftIO $ do-    let length_ = fromIntegral $ B.length value-    password' <- unsafeManagedPtrCastPtr password-    value' <- packByteString value-    g_tls_password_set_value password' value' length_-    touchManagedPtr password-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data TlsPasswordSetValueMethodInfo-instance (signature ~ (ByteString -> m ()), MonadIO m, IsTlsPassword a) => O.MethodInfo TlsPasswordSetValueMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetValue--#endif---- method TlsPassword::set_value_full--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the value for the password", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the password, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a function to use to free the password.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the password, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_set_value_full" g_tls_password_set_value_full :: -    Ptr TlsPassword ->                      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    Ptr Word8 ->                            -- value : TCArray False (-1) 2 (TBasicType TUInt8)-    Int64 ->                                -- length : TBasicType TInt64-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Provide the value for this password.--The /@value@/ will be owned by the password object, and later freed using-the /@destroy@/ function callback.--Specify the /@length@/, for a non-nul-terminated password. Pass -1 as-/@length@/ if using a nul-terminated password, and /@length@/ will be-calculated automatically. (Note that the terminating nul is not-considered part of the password in this case.)--/Since: 2.30/--}-tlsPasswordSetValueFull ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsPassword a) =>-    a-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> ByteString-    {- ^ /@value@/: the value for the password -}-    -> Maybe (GLib.Callbacks.DestroyNotify)-    {- ^ /@destroy@/: a function to use to free the password. -}-    -> m ()-tlsPasswordSetValueFull password value destroy = liftIO $ do-    let length_ = fromIntegral $ B.length value-    password' <- unsafeManagedPtrCastPtr password-    value' <- packByteString value-    maybeDestroy <- case destroy of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jDestroy -> do-            ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))-            jDestroy' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptrdestroy) jDestroy)-            poke ptrdestroy jDestroy'-            return jDestroy'-    g_tls_password_set_value_full password' value' length_ maybeDestroy-    touchManagedPtr password-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data TlsPasswordSetValueFullMethodInfo-instance (signature ~ (ByteString -> Maybe (GLib.Callbacks.DestroyNotify) -> m ()), MonadIO m, IsTlsPassword a) => O.MethodInfo TlsPasswordSetValueFullMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetValueFull--#endif---- method TlsPassword::set_warning--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password", argType = TInterface (Name {namespace = "Gio", name = "TlsPassword"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTlsPassword object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The user readable warning", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_tls_password_set_warning" g_tls_password_set_warning :: -    Ptr TlsPassword ->                      -- password : TInterface (Name {namespace = "Gio", name = "TlsPassword"})-    CString ->                              -- warning : TBasicType TUTF8-    IO ()--{- |-Set a user readable translated warning. Usually this warning is a-representation of the password flags returned from-'GI.Gio.Objects.TlsPassword.tlsPasswordGetFlags'.--/Since: 2.30/--}-tlsPasswordSetWarning ::-    (B.CallStack.HasCallStack, MonadIO m, IsTlsPassword a) =>-    a-    {- ^ /@password@/: a 'GI.Gio.Objects.TlsPassword.TlsPassword' object -}-    -> T.Text-    {- ^ /@warning@/: The user readable warning -}-    -> m ()-tlsPasswordSetWarning password warning = liftIO $ do-    password' <- unsafeManagedPtrCastPtr password-    warning' <- textToCString warning-    g_tls_password_set_warning password' warning'-    touchManagedPtr password-    freeMem warning'-    return ()--#if ENABLE_OVERLOADING-data TlsPasswordSetWarningMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsTlsPassword a) => O.MethodInfo TlsPasswordSetWarningMethodInfo a signature where-    overloadedMethod _ = tlsPasswordSetWarning--#endif--
− GI/Gio/Objects/TlsPassword.hs-boot 
@@ -1,62 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.TlsPassword 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 TlsPassword = TlsPassword (ManagedPtr TlsPassword)-instance GObject TlsPassword where-class (GObject o, O.IsDescendantOf TlsPassword o) => IsTlsPassword o-instance (GObject o, O.IsDescendantOf TlsPassword o) => IsTlsPassword o-instance O.HasParentTypes TlsPassword-#if ENABLE_OVERLOADING-data TlsPasswordDescriptionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordWarningPropertyInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordGetDescriptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordGetWarningMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordSetDescriptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordSetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordSetValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordSetValueFullMethodInfo-#endif-#if ENABLE_OVERLOADING-data TlsPasswordSetWarningMethodInfo-#endif
− GI/Gio/Objects/UnixConnection.hs 
@@ -1,687 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--This is the subclass of 'GI.Gio.Objects.SocketConnection.SocketConnection' that is created-for UNIX domain sockets.--It contains functions to do some of the UNIX socket specific-functionality like passing file descriptors.--Note that @\<gio\/gunixconnection.h>@ belongs to the UNIX-specific-GIO interfaces, thus you have to use the @gio-unix-2.0.pc@-pkg-config file when using it.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.UnixConnection-    ( ---- * Exported types-    UnixConnection(..)                      ,-    IsUnixConnection                        ,-    toUnixConnection                        ,-    noUnixConnection                        ,--- -- * Methods--- ** receiveCredentials #method:receiveCredentials#--#if ENABLE_OVERLOADING-    UnixConnectionReceiveCredentialsMethodInfo,-#endif-    unixConnectionReceiveCredentials        ,----- ** receiveCredentialsAsync #method:receiveCredentialsAsync#--#if ENABLE_OVERLOADING-    UnixConnectionReceiveCredentialsAsyncMethodInfo,-#endif-    unixConnectionReceiveCredentialsAsync   ,----- ** receiveCredentialsFinish #method:receiveCredentialsFinish#--#if ENABLE_OVERLOADING-    UnixConnectionReceiveCredentialsFinishMethodInfo,-#endif-    unixConnectionReceiveCredentialsFinish  ,----- ** receiveFd #method:receiveFd#--#if ENABLE_OVERLOADING-    UnixConnectionReceiveFdMethodInfo       ,-#endif-    unixConnectionReceiveFd                 ,----- ** sendCredentials #method:sendCredentials#--#if ENABLE_OVERLOADING-    UnixConnectionSendCredentialsMethodInfo ,-#endif-    unixConnectionSendCredentials           ,----- ** sendCredentialsAsync #method:sendCredentialsAsync#--#if ENABLE_OVERLOADING-    UnixConnectionSendCredentialsAsyncMethodInfo,-#endif-    unixConnectionSendCredentialsAsync      ,----- ** sendCredentialsFinish #method:sendCredentialsFinish#--#if ENABLE_OVERLOADING-    UnixConnectionSendCredentialsFinishMethodInfo,-#endif-    unixConnectionSendCredentialsFinish     ,----- ** sendFd #method:sendFd#--#if ENABLE_OVERLOADING-    UnixConnectionSendFdMethodInfo          ,-#endif-    unixConnectionSendFd                    ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import {-# SOURCE #-} qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import {-# SOURCE #-} qualified GI.Gio.Objects.Credentials as Gio.Credentials-import {-# SOURCE #-} qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketConnection as Gio.SocketConnection---- | Memory-managed wrapper type.-newtype UnixConnection = UnixConnection (ManagedPtr UnixConnection)-foreign import ccall "g_unix_connection_get_type"-    c_g_unix_connection_get_type :: IO GType--instance GObject UnixConnection where-    gobjectType = c_g_unix_connection_get_type-    ---- | Type class for types which can be safely cast to `UnixConnection`, for instance with `toUnixConnection`.-class (GObject o, O.IsDescendantOf UnixConnection o) => IsUnixConnection o-instance (GObject o, O.IsDescendantOf UnixConnection o) => IsUnixConnection o--instance O.HasParentTypes UnixConnection-type instance O.ParentTypes UnixConnection = '[Gio.SocketConnection.SocketConnection, Gio.IOStream.IOStream, GObject.Object.Object]---- | Cast to `UnixConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toUnixConnection :: (MonadIO m, IsUnixConnection o) => o -> m UnixConnection-toUnixConnection = liftIO . unsafeCastTo UnixConnection---- | A convenience alias for `Nothing` :: `Maybe` `UnixConnection`.-noUnixConnection :: Maybe UnixConnection-noUnixConnection = Nothing--#if ENABLE_OVERLOADING-type family ResolveUnixConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveUnixConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveUnixConnectionMethod "clearPending" o = Gio.IOStream.IOStreamClearPendingMethodInfo-    ResolveUnixConnectionMethod "close" o = Gio.IOStream.IOStreamCloseMethodInfo-    ResolveUnixConnectionMethod "closeAsync" o = Gio.IOStream.IOStreamCloseAsyncMethodInfo-    ResolveUnixConnectionMethod "closeFinish" o = Gio.IOStream.IOStreamCloseFinishMethodInfo-    ResolveUnixConnectionMethod "connect" o = Gio.SocketConnection.SocketConnectionConnectMethodInfo-    ResolveUnixConnectionMethod "connectAsync" o = Gio.SocketConnection.SocketConnectionConnectAsyncMethodInfo-    ResolveUnixConnectionMethod "connectFinish" o = Gio.SocketConnection.SocketConnectionConnectFinishMethodInfo-    ResolveUnixConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveUnixConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveUnixConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveUnixConnectionMethod "hasPending" o = Gio.IOStream.IOStreamHasPendingMethodInfo-    ResolveUnixConnectionMethod "isClosed" o = Gio.IOStream.IOStreamIsClosedMethodInfo-    ResolveUnixConnectionMethod "isConnected" o = Gio.SocketConnection.SocketConnectionIsConnectedMethodInfo-    ResolveUnixConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveUnixConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveUnixConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveUnixConnectionMethod "receiveCredentials" o = UnixConnectionReceiveCredentialsMethodInfo-    ResolveUnixConnectionMethod "receiveCredentialsAsync" o = UnixConnectionReceiveCredentialsAsyncMethodInfo-    ResolveUnixConnectionMethod "receiveCredentialsFinish" o = UnixConnectionReceiveCredentialsFinishMethodInfo-    ResolveUnixConnectionMethod "receiveFd" o = UnixConnectionReceiveFdMethodInfo-    ResolveUnixConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveUnixConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveUnixConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveUnixConnectionMethod "sendCredentials" o = UnixConnectionSendCredentialsMethodInfo-    ResolveUnixConnectionMethod "sendCredentialsAsync" o = UnixConnectionSendCredentialsAsyncMethodInfo-    ResolveUnixConnectionMethod "sendCredentialsFinish" o = UnixConnectionSendCredentialsFinishMethodInfo-    ResolveUnixConnectionMethod "sendFd" o = UnixConnectionSendFdMethodInfo-    ResolveUnixConnectionMethod "spliceAsync" o = Gio.IOStream.IOStreamSpliceAsyncMethodInfo-    ResolveUnixConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveUnixConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveUnixConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveUnixConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveUnixConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveUnixConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveUnixConnectionMethod "getInputStream" o = Gio.IOStream.IOStreamGetInputStreamMethodInfo-    ResolveUnixConnectionMethod "getLocalAddress" o = Gio.SocketConnection.SocketConnectionGetLocalAddressMethodInfo-    ResolveUnixConnectionMethod "getOutputStream" o = Gio.IOStream.IOStreamGetOutputStreamMethodInfo-    ResolveUnixConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveUnixConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveUnixConnectionMethod "getRemoteAddress" o = Gio.SocketConnection.SocketConnectionGetRemoteAddressMethodInfo-    ResolveUnixConnectionMethod "getSocket" o = Gio.SocketConnection.SocketConnectionGetSocketMethodInfo-    ResolveUnixConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveUnixConnectionMethod "setPending" o = Gio.IOStream.IOStreamSetPendingMethodInfo-    ResolveUnixConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveUnixConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixConnectionMethod t UnixConnection, O.MethodInfo info UnixConnection p) => OL.IsLabel t (UnixConnection -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixConnection-type instance O.AttributeList UnixConnection = UnixConnectionAttributeList-type UnixConnectionAttributeList = ('[ '("closed", Gio.IOStream.IOStreamClosedPropertyInfo), '("inputStream", Gio.IOStream.IOStreamInputStreamPropertyInfo), '("outputStream", Gio.IOStream.IOStreamOutputStreamPropertyInfo), '("socket", Gio.SocketConnection.SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList UnixConnection = UnixConnectionSignalList-type UnixConnectionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method UnixConnection::receive_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "UnixConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GUnixConnection.", 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}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Credentials"}))--- throws : True--- Skip return : False--foreign import ccall "g_unix_connection_receive_credentials" g_unix_connection_receive_credentials :: -    Ptr UnixConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "UnixConnection"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.Credentials.Credentials)--{- |-Receives credentials from the sending end of the connection.  The-sending end has to call 'GI.Gio.Objects.UnixConnection.unixConnectionSendCredentials' (or-similar) for this to work.--As well as reading the credentials this also reads (and discards) a-single byte from the stream, as this is required for credentials-passing to work on some implementations.--Other ways to exchange credentials with a foreign peer includes the-'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage' type and 'GI.Gio.Objects.Socket.socketGetCredentials' function.--/Since: 2.26/--}-unixConnectionReceiveCredentials ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.UnixConnection.UnixConnection'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> m Gio.Credentials.Credentials-    {- ^ __Returns:__ Received credentials on success (free with-'GI.GObject.Objects.Object.objectUnref'), 'Nothing' if /@error@/ is set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixConnectionReceiveCredentials connection cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_unix_connection_receive_credentials connection' maybeCancellable-        checkUnexpectedReturnNULL "unixConnectionReceiveCredentials" result-        result' <- (wrapObject Gio.Credentials.Credentials) result-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixConnectionReceiveCredentialsMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.Credentials.Credentials), MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UnixConnectionReceiveCredentialsMethodInfo a signature where-    overloadedMethod _ = unixConnectionReceiveCredentials--#endif---- method UnixConnection::receive_credentials_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "UnixConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GUnixConnection.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_unix_connection_receive_credentials_async" g_unix_connection_receive_credentials_async :: -    Ptr UnixConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "UnixConnection"})-    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 receive credentials.--For more details, see 'GI.Gio.Objects.UnixConnection.unixConnectionReceiveCredentials' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called. You can then call-'GI.Gio.Objects.UnixConnection.unixConnectionReceiveCredentialsFinish' to get the result of the operation.--/Since: 2.32/--}-unixConnectionReceiveCredentialsAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.UnixConnection.UnixConnection'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-unixConnectionReceiveCredentialsAsync connection cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    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-    g_unix_connection_receive_credentials_async connection' maybeCancellable maybeCallback userData-    touchManagedPtr connection-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data UnixConnectionReceiveCredentialsAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UnixConnectionReceiveCredentialsAsyncMethodInfo a signature where-    overloadedMethod _ = unixConnectionReceiveCredentialsAsync--#endif---- method UnixConnection::receive_credentials_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "UnixConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GUnixConnection.", 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 "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Credentials"}))--- throws : True--- Skip return : False--foreign import ccall "g_unix_connection_receive_credentials_finish" g_unix_connection_receive_credentials_finish :: -    Ptr UnixConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "UnixConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.Credentials.Credentials)--{- |-Finishes an asynchronous receive credentials operation started with-'GI.Gio.Objects.UnixConnection.unixConnectionReceiveCredentialsAsync'.--/Since: 2.32/--}-unixConnectionReceiveCredentialsFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.UnixConnection.UnixConnection'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m Gio.Credentials.Credentials-    {- ^ __Returns:__ a 'GI.Gio.Objects.Credentials.Credentials', or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixConnectionReceiveCredentialsFinish connection result_ = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ g_unix_connection_receive_credentials_finish connection' result_'-        checkUnexpectedReturnNULL "unixConnectionReceiveCredentialsFinish" result-        result' <- (wrapObject Gio.Credentials.Credentials) result-        touchManagedPtr connection-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixConnectionReceiveCredentialsFinishMethodInfo-instance (signature ~ (b -> m Gio.Credentials.Credentials), MonadIO m, IsUnixConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo UnixConnectionReceiveCredentialsFinishMethodInfo a signature where-    overloadedMethod _ = unixConnectionReceiveCredentialsFinish--#endif---- method UnixConnection::receive_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "UnixConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixConnection", 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 "optional #GCancellable object, %NULL to ignore", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_unix_connection_receive_fd" g_unix_connection_receive_fd :: -    Ptr UnixConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "UnixConnection"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Receives a file descriptor from the sending end of the connection.-The sending end has to call 'GI.Gio.Objects.UnixConnection.unixConnectionSendFd' for this-to work.--As well as reading the fd this also reads a single byte from the-stream, as this is required for fd passing to work on some-implementations.--/Since: 2.22/--}-unixConnectionReceiveFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.UnixConnection.UnixConnection' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore -}-    -> m Int32-    {- ^ __Returns:__ a file descriptor on success, -1 on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixConnectionReceiveFd connection cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ g_unix_connection_receive_fd connection' maybeCancellable-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixConnectionReceiveFdMethodInfo-instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UnixConnectionReceiveFdMethodInfo a signature where-    overloadedMethod _ = unixConnectionReceiveFd--#endif---- method UnixConnection::send_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "UnixConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GUnixConnection.", 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}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "g_unix_connection_send_credentials" g_unix_connection_send_credentials :: -    Ptr UnixConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "UnixConnection"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Passes the credentials of the current user the receiving side-of the connection. The receiving end has to call-'GI.Gio.Objects.UnixConnection.unixConnectionReceiveCredentials' (or similar) to accept the-credentials.--As well as sending the credentials this also writes a single NUL-byte to the stream, as this is required for credentials passing to-work on some implementations.--Other ways to exchange credentials with a foreign peer includes the-'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage' type and 'GI.Gio.Objects.Socket.socketGetCredentials' function.--/Since: 2.26/--}-unixConnectionSendCredentials ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.UnixConnection.UnixConnection'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: A 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixConnectionSendCredentials connection cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_unix_connection_send_credentials connection' maybeCancellable-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixConnectionSendCredentialsMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UnixConnectionSendCredentialsMethodInfo a signature where-    overloadedMethod _ = unixConnectionSendCredentials--#endif---- method UnixConnection::send_credentials_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "UnixConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GUnixConnection.", 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 "optional #GCancellable object, %NULL to ignore.", 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 "a #GAsyncReadyCallback to call when the request is satisfied", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data to pass to callback function", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_unix_connection_send_credentials_async" g_unix_connection_send_credentials_async :: -    Ptr UnixConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "UnixConnection"})-    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 send credentials.--For more details, see 'GI.Gio.Objects.UnixConnection.unixConnectionSendCredentials' which is-the synchronous version of this call.--When the operation is finished, /@callback@/ will be called. You can then call-'GI.Gio.Objects.UnixConnection.unixConnectionSendCredentialsFinish' to get the result of the operation.--/Since: 2.32/--}-unixConnectionSendCredentialsAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.UnixConnection.UnixConnection'. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' to call when the request is satisfied -}-    -> m ()-unixConnectionSendCredentialsAsync connection cancellable callback = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    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-    g_unix_connection_send_credentials_async connection' maybeCancellable maybeCallback userData-    touchManagedPtr connection-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data UnixConnectionSendCredentialsAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UnixConnectionSendCredentialsAsyncMethodInfo a signature where-    overloadedMethod _ = unixConnectionSendCredentialsAsync--#endif---- method UnixConnection::send_credentials_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "UnixConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GUnixConnection.", 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 "a #GAsyncResult.", 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 "g_unix_connection_send_credentials_finish" g_unix_connection_send_credentials_finish :: -    Ptr UnixConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "UnixConnection"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Finishes an asynchronous send credentials operation started with-'GI.Gio.Objects.UnixConnection.unixConnectionSendCredentialsAsync'.--/Since: 2.32/--}-unixConnectionSendCredentialsFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixConnection a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@connection@/: A 'GI.Gio.Objects.UnixConnection.UnixConnection'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixConnectionSendCredentialsFinish connection result_ = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        _ <- propagateGError $ g_unix_connection_send_credentials_finish connection' result_'-        touchManagedPtr connection-        touchManagedPtr result_-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixConnectionSendCredentialsFinishMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsUnixConnection a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo UnixConnectionSendCredentialsFinishMethodInfo a signature where-    overloadedMethod _ = unixConnectionSendCredentialsFinish--#endif---- method UnixConnection::send_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "UnixConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixConnection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file descriptor", 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 "optional #GCancellable object, %NULL to ignore.", 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 "g_unix_connection_send_fd" g_unix_connection_send_fd :: -    Ptr UnixConnection ->                   -- connection : TInterface (Name {namespace = "Gio", name = "UnixConnection"})-    Int32 ->                                -- fd : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Passes a file descriptor to the receiving side of the-connection. The receiving end has to call 'GI.Gio.Objects.UnixConnection.unixConnectionReceiveFd'-to accept the file descriptor.--As well as sending the fd this also writes a single byte to the-stream, as this is required for fd passing to work on some-implementations.--/Since: 2.22/--}-unixConnectionSendFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@connection@/: a 'GI.Gio.Objects.UnixConnection.UnixConnection' -}-    -> Int32-    {- ^ /@fd@/: a file descriptor -}-    -> Maybe (b)-    {- ^ /@cancellable@/: optional 'GI.Gio.Objects.Cancellable.Cancellable' object, 'Nothing' to ignore. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixConnectionSendFd connection fd cancellable = liftIO $ do-    connection' <- unsafeManagedPtrCastPtr connection-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        _ <- propagateGError $ g_unix_connection_send_fd connection' fd maybeCancellable-        touchManagedPtr connection-        whenJust cancellable touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixConnectionSendFdMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> m ()), MonadIO m, IsUnixConnection a, Gio.Cancellable.IsCancellable b) => O.MethodInfo UnixConnectionSendFdMethodInfo a signature where-    overloadedMethod _ = unixConnectionSendFd--#endif--
− GI/Gio/Objects/UnixConnection.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.UnixConnection 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 UnixConnection = UnixConnection (ManagedPtr UnixConnection)-instance GObject UnixConnection where-class (GObject o, O.IsDescendantOf UnixConnection o) => IsUnixConnection o-instance (GObject o, O.IsDescendantOf UnixConnection o) => IsUnixConnection o-instance O.HasParentTypes UnixConnection-#if ENABLE_OVERLOADING-data UnixConnectionReceiveCredentialsMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixConnectionReceiveCredentialsAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixConnectionReceiveCredentialsFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixConnectionReceiveFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixConnectionSendCredentialsMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixConnectionSendCredentialsAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixConnectionSendCredentialsFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixConnectionSendFdMethodInfo-#endif
− GI/Gio/Objects/UnixCredentialsMessage.hs 
@@ -1,353 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--This 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' contains a 'GI.Gio.Objects.Credentials.Credentials' instance.  It-may be sent using 'GI.Gio.Objects.Socket.socketSendMessage' and received using-'GI.Gio.Objects.Socket.socketReceiveMessage' over UNIX sockets (ie: sockets in the-'GI.Gio.Enums.SocketFamilyUnix' family).--For an easier way to send and receive credentials over-stream-oriented UNIX sockets, see-'GI.Gio.Objects.UnixConnection.unixConnectionSendCredentials' and-'GI.Gio.Objects.UnixConnection.unixConnectionReceiveCredentials'. To receive credentials of-a foreign process connected to a socket, use-'GI.Gio.Objects.Socket.socketGetCredentials'.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.UnixCredentialsMessage-    ( ---- * Exported types-    UnixCredentialsMessage(..)              ,-    IsUnixCredentialsMessage                ,-    toUnixCredentialsMessage                ,-    noUnixCredentialsMessage                ,--- -- * Methods--- ** getCredentials #method:getCredentials#--#if ENABLE_OVERLOADING-    UnixCredentialsMessageGetCredentialsMethodInfo,-#endif-    unixCredentialsMessageGetCredentials    ,----- ** isSupported #method:isSupported#--    unixCredentialsMessageIsSupported       ,----- ** new #method:new#--    unixCredentialsMessageNew               ,----- ** newWithCredentials #method:newWithCredentials#--    unixCredentialsMessageNewWithCredentials,----- -- * Properties--- ** credentials #attr:credentials#-{- | The credentials stored in the message.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    UnixCredentialsMessageCredentialsPropertyInfo,-#endif-    constructUnixCredentialsMessageCredentials,-    getUnixCredentialsMessageCredentials    ,-#if ENABLE_OVERLOADING-    unixCredentialsMessageCredentials       ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.Credentials as Gio.Credentials-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketControlMessage as Gio.SocketControlMessage---- | Memory-managed wrapper type.-newtype UnixCredentialsMessage = UnixCredentialsMessage (ManagedPtr UnixCredentialsMessage)-foreign import ccall "g_unix_credentials_message_get_type"-    c_g_unix_credentials_message_get_type :: IO GType--instance GObject UnixCredentialsMessage where-    gobjectType = c_g_unix_credentials_message_get_type-    ---- | Type class for types which can be safely cast to `UnixCredentialsMessage`, for instance with `toUnixCredentialsMessage`.-class (GObject o, O.IsDescendantOf UnixCredentialsMessage o) => IsUnixCredentialsMessage o-instance (GObject o, O.IsDescendantOf UnixCredentialsMessage o) => IsUnixCredentialsMessage o--instance O.HasParentTypes UnixCredentialsMessage-type instance O.ParentTypes UnixCredentialsMessage = '[Gio.SocketControlMessage.SocketControlMessage, GObject.Object.Object]---- | Cast to `UnixCredentialsMessage`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toUnixCredentialsMessage :: (MonadIO m, IsUnixCredentialsMessage o) => o -> m UnixCredentialsMessage-toUnixCredentialsMessage = liftIO . unsafeCastTo UnixCredentialsMessage---- | A convenience alias for `Nothing` :: `Maybe` `UnixCredentialsMessage`.-noUnixCredentialsMessage :: Maybe UnixCredentialsMessage-noUnixCredentialsMessage = Nothing--#if ENABLE_OVERLOADING-type family ResolveUnixCredentialsMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixCredentialsMessageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveUnixCredentialsMessageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveUnixCredentialsMessageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveUnixCredentialsMessageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveUnixCredentialsMessageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveUnixCredentialsMessageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveUnixCredentialsMessageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveUnixCredentialsMessageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveUnixCredentialsMessageMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveUnixCredentialsMessageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveUnixCredentialsMessageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveUnixCredentialsMessageMethod "serialize" o = Gio.SocketControlMessage.SocketControlMessageSerializeMethodInfo-    ResolveUnixCredentialsMessageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveUnixCredentialsMessageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveUnixCredentialsMessageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveUnixCredentialsMessageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveUnixCredentialsMessageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveUnixCredentialsMessageMethod "getCredentials" o = UnixCredentialsMessageGetCredentialsMethodInfo-    ResolveUnixCredentialsMessageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveUnixCredentialsMessageMethod "getLevel" o = Gio.SocketControlMessage.SocketControlMessageGetLevelMethodInfo-    ResolveUnixCredentialsMessageMethod "getMsgType" o = Gio.SocketControlMessage.SocketControlMessageGetMsgTypeMethodInfo-    ResolveUnixCredentialsMessageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveUnixCredentialsMessageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveUnixCredentialsMessageMethod "getSize" o = Gio.SocketControlMessage.SocketControlMessageGetSizeMethodInfo-    ResolveUnixCredentialsMessageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveUnixCredentialsMessageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveUnixCredentialsMessageMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixCredentialsMessageMethod t UnixCredentialsMessage, O.MethodInfo info UnixCredentialsMessage p) => OL.IsLabel t (UnixCredentialsMessage -> 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---- VVV Prop "credentials"-   -- Type: TInterface (Name {namespace = "Gio", name = "Credentials"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@credentials@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixCredentialsMessage #credentials-@--}-getUnixCredentialsMessageCredentials :: (MonadIO m, IsUnixCredentialsMessage o) => o -> m Gio.Credentials.Credentials-getUnixCredentialsMessageCredentials obj = liftIO $ checkUnexpectedNothing "getUnixCredentialsMessageCredentials" $ B.Properties.getObjectPropertyObject obj "credentials" Gio.Credentials.Credentials--{- |-Construct a `GValueConstruct` with valid value for the “@credentials@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixCredentialsMessageCredentials :: (IsUnixCredentialsMessage o, Gio.Credentials.IsCredentials a) => a -> IO (GValueConstruct o)-constructUnixCredentialsMessageCredentials val = B.Properties.constructObjectPropertyObject "credentials" (Just val)--#if ENABLE_OVERLOADING-data UnixCredentialsMessageCredentialsPropertyInfo-instance AttrInfo UnixCredentialsMessageCredentialsPropertyInfo where-    type AttrAllowedOps UnixCredentialsMessageCredentialsPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint UnixCredentialsMessageCredentialsPropertyInfo = Gio.Credentials.IsCredentials-    type AttrBaseTypeConstraint UnixCredentialsMessageCredentialsPropertyInfo = IsUnixCredentialsMessage-    type AttrGetType UnixCredentialsMessageCredentialsPropertyInfo = Gio.Credentials.Credentials-    type AttrLabel UnixCredentialsMessageCredentialsPropertyInfo = "credentials"-    type AttrOrigin UnixCredentialsMessageCredentialsPropertyInfo = UnixCredentialsMessage-    attrGet _ = getUnixCredentialsMessageCredentials-    attrSet _ = undefined-    attrConstruct _ = constructUnixCredentialsMessageCredentials-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixCredentialsMessage-type instance O.AttributeList UnixCredentialsMessage = UnixCredentialsMessageAttributeList-type UnixCredentialsMessageAttributeList = ('[ '("credentials", UnixCredentialsMessageCredentialsPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-unixCredentialsMessageCredentials :: AttrLabelProxy "credentials"-unixCredentialsMessageCredentials = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList UnixCredentialsMessage = UnixCredentialsMessageSignalList-type UnixCredentialsMessageSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method UnixCredentialsMessage::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixCredentialsMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_credentials_message_new" g_unix_credentials_message_new :: -    IO (Ptr UnixCredentialsMessage)--{- |-Creates a new 'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage' with credentials matching the current processes.--/Since: 2.26/--}-unixCredentialsMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m UnixCredentialsMessage-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage' -}-unixCredentialsMessageNew  = liftIO $ do-    result <- g_unix_credentials_message_new-    checkUnexpectedReturnNULL "unixCredentialsMessageNew" result-    result' <- (wrapObject UnixCredentialsMessage) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixCredentialsMessage::new_with_credentials--- method type : Constructor--- Args : [Arg {argCName = "credentials", argType = TInterface (Name {namespace = "Gio", name = "Credentials"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GCredentials object.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixCredentialsMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_credentials_message_new_with_credentials" g_unix_credentials_message_new_with_credentials :: -    Ptr Gio.Credentials.Credentials ->      -- credentials : TInterface (Name {namespace = "Gio", name = "Credentials"})-    IO (Ptr UnixCredentialsMessage)--{- |-Creates a new 'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage' holding /@credentials@/.--/Since: 2.26/--}-unixCredentialsMessageNewWithCredentials ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Credentials.IsCredentials a) =>-    a-    {- ^ /@credentials@/: A 'GI.Gio.Objects.Credentials.Credentials' object. -}-    -> m UnixCredentialsMessage-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage' -}-unixCredentialsMessageNewWithCredentials credentials = liftIO $ do-    credentials' <- unsafeManagedPtrCastPtr credentials-    result <- g_unix_credentials_message_new_with_credentials credentials'-    checkUnexpectedReturnNULL "unixCredentialsMessageNewWithCredentials" result-    result' <- (wrapObject UnixCredentialsMessage) result-    touchManagedPtr credentials-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixCredentialsMessage::get_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "UnixCredentialsMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GUnixCredentialsMessage.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Credentials"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_credentials_message_get_credentials" g_unix_credentials_message_get_credentials :: -    Ptr UnixCredentialsMessage ->           -- message : TInterface (Name {namespace = "Gio", name = "UnixCredentialsMessage"})-    IO (Ptr Gio.Credentials.Credentials)--{- |-Gets the credentials stored in /@message@/.--/Since: 2.26/--}-unixCredentialsMessageGetCredentials ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixCredentialsMessage a) =>-    a-    {- ^ /@message@/: A 'GI.Gio.Objects.UnixCredentialsMessage.UnixCredentialsMessage'. -}-    -> m Gio.Credentials.Credentials-    {- ^ __Returns:__ A 'GI.Gio.Objects.Credentials.Credentials' instance. Do not free, it is owned by /@message@/. -}-unixCredentialsMessageGetCredentials message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_unix_credentials_message_get_credentials message'-    checkUnexpectedReturnNULL "unixCredentialsMessageGetCredentials" result-    result' <- (newObject Gio.Credentials.Credentials) result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data UnixCredentialsMessageGetCredentialsMethodInfo-instance (signature ~ (m Gio.Credentials.Credentials), MonadIO m, IsUnixCredentialsMessage a) => O.MethodInfo UnixCredentialsMessageGetCredentialsMethodInfo a signature where-    overloadedMethod _ = unixCredentialsMessageGetCredentials--#endif---- method UnixCredentialsMessage::is_supported--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "g_unix_credentials_message_is_supported" g_unix_credentials_message_is_supported :: -    IO CInt--{- |-Checks if passing 'GI.Gio.Objects.Credentials.Credentials' on a 'GI.Gio.Objects.Socket.Socket' is supported on this platform.--/Since: 2.26/--}-unixCredentialsMessageIsSupported ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Bool-    {- ^ __Returns:__ 'True' if supported, 'False' otherwise -}-unixCredentialsMessageIsSupported  = liftIO $ do-    result <- g_unix_credentials_message_is_supported-    let result' = (/= 0) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/UnixCredentialsMessage.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.UnixCredentialsMessage 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 UnixCredentialsMessage = UnixCredentialsMessage (ManagedPtr UnixCredentialsMessage)-instance GObject UnixCredentialsMessage where-class (GObject o, O.IsDescendantOf UnixCredentialsMessage o) => IsUnixCredentialsMessage o-instance (GObject o, O.IsDescendantOf UnixCredentialsMessage o) => IsUnixCredentialsMessage o-instance O.HasParentTypes UnixCredentialsMessage-#if ENABLE_OVERLOADING-data UnixCredentialsMessageCredentialsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixCredentialsMessageGetCredentialsMethodInfo-#endif
− GI/Gio/Objects/UnixFDList.hs 
@@ -1,524 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Gio.Objects.UnixFDList.UnixFDList' contains a list of file descriptors.  It owns the file-descriptors that it contains, closing them when finalized.--It may be wrapped in a 'GI.Gio.Objects.UnixFDMessage.UnixFDMessage' and sent over a 'GI.Gio.Objects.Socket.Socket' in-the @/G_SOCKET_ADDRESS_UNIX/@ family by using 'GI.Gio.Objects.Socket.socketSendMessage'-and received using 'GI.Gio.Objects.Socket.socketReceiveMessage'.--Note that @\<gio\/gunixfdlist.h>@ belongs to the UNIX-specific GIO-interfaces, thus you have to use the @gio-unix-2.0.pc@ pkg-config-file when using it.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.UnixFDList-    ( ---- * Exported types-    UnixFDList(..)                          ,-    IsUnixFDList                            ,-    toUnixFDList                            ,-    noUnixFDList                            ,--- -- * Methods--- ** append #method:append#--#if ENABLE_OVERLOADING-    UnixFDListAppendMethodInfo              ,-#endif-    unixFDListAppend                        ,----- ** get #method:get#--#if ENABLE_OVERLOADING-    UnixFDListGetMethodInfo                 ,-#endif-    unixFDListGet                           ,----- ** getLength #method:getLength#--#if ENABLE_OVERLOADING-    UnixFDListGetLengthMethodInfo           ,-#endif-    unixFDListGetLength                     ,----- ** new #method:new#--    unixFDListNew                           ,----- ** newFromArray #method:newFromArray#--    unixFDListNewFromArray                  ,----- ** peekFds #method:peekFds#--#if ENABLE_OVERLOADING-    UnixFDListPeekFdsMethodInfo             ,-#endif-    unixFDListPeekFds                       ,----- ** stealFds #method:stealFds#--#if ENABLE_OVERLOADING-    UnixFDListStealFdsMethodInfo            ,-#endif-    unixFDListStealFds                      ,-----    ) 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 UnixFDList = UnixFDList (ManagedPtr UnixFDList)-foreign import ccall "g_unix_fd_list_get_type"-    c_g_unix_fd_list_get_type :: IO GType--instance GObject UnixFDList where-    gobjectType = c_g_unix_fd_list_get_type-    ---- | Type class for types which can be safely cast to `UnixFDList`, for instance with `toUnixFDList`.-class (GObject o, O.IsDescendantOf UnixFDList o) => IsUnixFDList o-instance (GObject o, O.IsDescendantOf UnixFDList o) => IsUnixFDList o--instance O.HasParentTypes UnixFDList-type instance O.ParentTypes UnixFDList = '[GObject.Object.Object]---- | Cast to `UnixFDList`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toUnixFDList :: (MonadIO m, IsUnixFDList o) => o -> m UnixFDList-toUnixFDList = liftIO . unsafeCastTo UnixFDList---- | A convenience alias for `Nothing` :: `Maybe` `UnixFDList`.-noUnixFDList :: Maybe UnixFDList-noUnixFDList = Nothing--#if ENABLE_OVERLOADING-type family ResolveUnixFDListMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixFDListMethod "append" o = UnixFDListAppendMethodInfo-    ResolveUnixFDListMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveUnixFDListMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveUnixFDListMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveUnixFDListMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveUnixFDListMethod "get" o = UnixFDListGetMethodInfo-    ResolveUnixFDListMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveUnixFDListMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveUnixFDListMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveUnixFDListMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveUnixFDListMethod "peekFds" o = UnixFDListPeekFdsMethodInfo-    ResolveUnixFDListMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveUnixFDListMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveUnixFDListMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveUnixFDListMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveUnixFDListMethod "stealFds" o = UnixFDListStealFdsMethodInfo-    ResolveUnixFDListMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveUnixFDListMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveUnixFDListMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveUnixFDListMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveUnixFDListMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveUnixFDListMethod "getLength" o = UnixFDListGetLengthMethodInfo-    ResolveUnixFDListMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveUnixFDListMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveUnixFDListMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveUnixFDListMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveUnixFDListMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixFDListMethod t UnixFDList, O.MethodInfo info UnixFDList p) => OL.IsLabel t (UnixFDList -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixFDList-type instance O.AttributeList UnixFDList = UnixFDListAttributeList-type UnixFDListAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList UnixFDList = UnixFDListSignalList-type UnixFDListSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method UnixFDList::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixFDList"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_list_new" g_unix_fd_list_new :: -    IO (Ptr UnixFDList)--{- |-Creates a new 'GI.Gio.Objects.UnixFDList.UnixFDList' containing no file descriptors.--/Since: 2.24/--}-unixFDListNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m UnixFDList-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixFDList.UnixFDList' -}-unixFDListNew  = liftIO $ do-    result <- g_unix_fd_list_new-    checkUnexpectedReturnNULL "unixFDListNew" result-    result' <- (wrapObject UnixFDList) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixFDList::new_from_array--- method type : Constructor--- Args : [Arg {argCName = "fds", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the initial list of file descriptors", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of #fds, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of #fds, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixFDList"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_list_new_from_array" g_unix_fd_list_new_from_array :: -    Ptr Int32 ->                            -- fds : TCArray False (-1) 1 (TBasicType TInt)-    Int32 ->                                -- n_fds : TBasicType TInt-    IO (Ptr UnixFDList)--{- |-Creates a new 'GI.Gio.Objects.UnixFDList.UnixFDList' containing the file descriptors given in-/@fds@/.  The file descriptors become the property of the new list and-may no longer be used by the caller.  The array itself is owned by-the caller.--Each file descriptor in the array should be set to close-on-exec.--If /@nFds@/ is -1 then /@fds@/ must be terminated with -1.--/Since: 2.24/--}-unixFDListNewFromArray ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Int32]-    {- ^ /@fds@/: the initial list of file descriptors -}-    -> m UnixFDList-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixFDList.UnixFDList' -}-unixFDListNewFromArray fds = liftIO $ do-    let nFds = fromIntegral $ length fds-    fds' <- packStorableArray fds-    result <- g_unix_fd_list_new_from_array fds' nFds-    checkUnexpectedReturnNULL "unixFDListNewFromArray" result-    result' <- (wrapObject UnixFDList) result-    freeMem fds'-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixFDList::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid open file descriptor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_unix_fd_list_append" g_unix_fd_list_append :: -    Ptr UnixFDList ->                       -- list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Int32 ->                                -- fd : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Adds a file descriptor to /@list@/.--The file descriptor is duplicated using @/dup()/@. You keep your copy-of the descriptor and the copy contained in /@list@/ will be closed-when /@list@/ is finalized.--A possible cause of failure is exceeding the per-process or-system-wide file descriptor limit.--The index of the file descriptor in the list is returned.  If you use-this index with 'GI.Gio.Objects.UnixFDList.unixFDListGet' then you will receive back a-duplicated copy of the same file descriptor.--/Since: 2.24/--}-unixFDListAppend ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixFDList a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Objects.UnixFDList.UnixFDList' -}-    -> Int32-    {- ^ /@fd@/: a valid open file descriptor -}-    -> m Int32-    {- ^ __Returns:__ the index of the appended fd in case of success, else -1-         (and /@error@/ is set) /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixFDListAppend list fd = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    onException (do-        result <- propagateGError $ g_unix_fd_list_append list' fd-        touchManagedPtr list-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixFDListAppendMethodInfo-instance (signature ~ (Int32 -> m Int32), MonadIO m, IsUnixFDList a) => O.MethodInfo UnixFDListAppendMethodInfo a signature where-    overloadedMethod _ = unixFDListAppend--#endif---- method UnixFDList::get--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index into the list", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : True--- Skip return : False--foreign import ccall "g_unix_fd_list_get" g_unix_fd_list_get :: -    Ptr UnixFDList ->                       -- list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Int32 ->                                -- index_ : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO Int32--{- |-Gets a file descriptor out of /@list@/.--/@index_@/ specifies the index of the file descriptor to get.  It is a-programmer error for /@index_@/ to be out of range; see-'GI.Gio.Objects.UnixFDList.unixFDListGetLength'.--The file descriptor is duplicated using @/dup()/@ and set as-close-on-exec before being returned.  You must call @/close()/@ on it-when you are done.--A possible cause of failure is exceeding the per-process or-system-wide file descriptor limit.--/Since: 2.24/--}-unixFDListGet ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixFDList a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Objects.UnixFDList.UnixFDList' -}-    -> Int32-    {- ^ /@index_@/: the index into the list -}-    -> m Int32-    {- ^ __Returns:__ the file descriptor, or -1 in case of error /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixFDListGet list index_ = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    onException (do-        result <- propagateGError $ g_unix_fd_list_get list' index_-        touchManagedPtr list-        return result-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixFDListGetMethodInfo-instance (signature ~ (Int32 -> m Int32), MonadIO m, IsUnixFDList a) => O.MethodInfo UnixFDListGetMethodInfo a signature where-    overloadedMethod _ = unixFDListGet--#endif---- method UnixFDList::get_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDList", 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 "g_unix_fd_list_get_length" g_unix_fd_list_get_length :: -    Ptr UnixFDList ->                       -- list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    IO Int32--{- |-Gets the length of /@list@/ (ie: the number of file descriptors-contained within).--/Since: 2.24/--}-unixFDListGetLength ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixFDList a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Objects.UnixFDList.UnixFDList' -}-    -> m Int32-    {- ^ __Returns:__ the length of /@list@/ -}-unixFDListGetLength list = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    result <- g_unix_fd_list_get_length list'-    touchManagedPtr list-    return result--#if ENABLE_OVERLOADING-data UnixFDListGetLengthMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsUnixFDList a) => O.MethodInfo UnixFDListGetLengthMethodInfo a signature where-    overloadedMethod _ = unixFDListGetLength--#endif---- method UnixFDList::peek_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the length of the returned\n    array, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the length of the returned\n    array, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TInt))--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_list_peek_fds" g_unix_fd_list_peek_fds :: -    Ptr UnixFDList ->                       -- list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Ptr Int32 ->                            -- length : TBasicType TInt-    IO (Ptr Int32)--{- |-Returns the array of file descriptors that is contained in this-object.--After this call, the descriptors remain the property of /@list@/.  The-caller must not close them and must not free the array.  The array is-valid only until /@list@/ is changed in any way.--If /@length@/ is non-'Nothing' then it is set to the number of file-descriptors in the returned array. The returned array is also-terminated with -1.--This function never returns 'Nothing'. In case there are no file-descriptors contained in /@list@/, an empty array is returned.--/Since: 2.24/--}-unixFDListPeekFds ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixFDList a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Objects.UnixFDList.UnixFDList' -}-    -> m [Int32]-    {- ^ __Returns:__ an array of file-    descriptors -}-unixFDListPeekFds list = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    length_ <- allocMem :: IO (Ptr Int32)-    result <- g_unix_fd_list_peek_fds list' length_-    length_' <- peek length_-    checkUnexpectedReturnNULL "unixFDListPeekFds" result-    result' <- (unpackStorableArrayWithLength length_') result-    touchManagedPtr list-    freeMem length_-    return result'--#if ENABLE_OVERLOADING-data UnixFDListPeekFdsMethodInfo-instance (signature ~ (m [Int32]), MonadIO m, IsUnixFDList a) => O.MethodInfo UnixFDListPeekFdsMethodInfo a signature where-    overloadedMethod _ = unixFDListPeekFds--#endif---- method UnixFDList::steal_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the length of the returned\n    array, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the length of the returned\n    array, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TInt))--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_list_steal_fds" g_unix_fd_list_steal_fds :: -    Ptr UnixFDList ->                       -- list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    Ptr Int32 ->                            -- length : TBasicType TInt-    IO (Ptr Int32)--{- |-Returns the array of file descriptors that is contained in this-object.--After this call, the descriptors are no longer contained in-/@list@/. Further calls will return an empty list (unless more-descriptors have been added).--The return result of this function must be freed with 'GI.GLib.Functions.free'.-The caller is also responsible for closing all of the file-descriptors.  The file descriptors in the array are set to-close-on-exec.--If /@length@/ is non-'Nothing' then it is set to the number of file-descriptors in the returned array. The returned array is also-terminated with -1.--This function never returns 'Nothing'. In case there are no file-descriptors contained in /@list@/, an empty array is returned.--/Since: 2.24/--}-unixFDListStealFds ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixFDList a) =>-    a-    {- ^ /@list@/: a 'GI.Gio.Objects.UnixFDList.UnixFDList' -}-    -> m [Int32]-    {- ^ __Returns:__ an array of file-    descriptors -}-unixFDListStealFds list = liftIO $ do-    list' <- unsafeManagedPtrCastPtr list-    length_ <- allocMem :: IO (Ptr Int32)-    result <- g_unix_fd_list_steal_fds list' length_-    length_' <- peek length_-    checkUnexpectedReturnNULL "unixFDListStealFds" result-    result' <- (unpackStorableArrayWithLength length_') result-    freeMem result-    touchManagedPtr list-    freeMem length_-    return result'--#if ENABLE_OVERLOADING-data UnixFDListStealFdsMethodInfo-instance (signature ~ (m [Int32]), MonadIO m, IsUnixFDList a) => O.MethodInfo UnixFDListStealFdsMethodInfo a signature where-    overloadedMethod _ = unixFDListStealFds--#endif--
− GI/Gio/Objects/UnixFDList.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.UnixFDList 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 UnixFDList = UnixFDList (ManagedPtr UnixFDList)-instance GObject UnixFDList where-class (GObject o, O.IsDescendantOf UnixFDList o) => IsUnixFDList o-instance (GObject o, O.IsDescendantOf UnixFDList o) => IsUnixFDList o-instance O.HasParentTypes UnixFDList-#if ENABLE_OVERLOADING-data UnixFDListAppendMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixFDListGetMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixFDListGetLengthMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixFDListPeekFdsMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixFDListStealFdsMethodInfo-#endif
− GI/Gio/Objects/UnixFDMessage.hs 
@@ -1,450 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--This 'GI.Gio.Objects.SocketControlMessage.SocketControlMessage' contains a 'GI.Gio.Objects.UnixFDList.UnixFDList'.-It may be sent using 'GI.Gio.Objects.Socket.socketSendMessage' and received using-'GI.Gio.Objects.Socket.socketReceiveMessage' over UNIX sockets (ie: sockets in the-@/G_SOCKET_ADDRESS_UNIX/@ family). The file descriptors are copied-between processes by the kernel.--For an easier way to send and receive file descriptors over-stream-oriented UNIX sockets, see 'GI.Gio.Objects.UnixConnection.unixConnectionSendFd' and-'GI.Gio.Objects.UnixConnection.unixConnectionReceiveFd'.--Note that @\<gio\/gunixfdmessage.h>@ belongs to the UNIX-specific GIO-interfaces, thus you have to use the @gio-unix-2.0.pc@ pkg-config-file when using it.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.UnixFDMessage-    ( ---- * Exported types-    UnixFDMessage(..)                       ,-    IsUnixFDMessage                         ,-    toUnixFDMessage                         ,-    noUnixFDMessage                         ,--- -- * Methods--- ** appendFd #method:appendFd#--#if ENABLE_OVERLOADING-    UnixFDMessageAppendFdMethodInfo         ,-#endif-    unixFDMessageAppendFd                   ,----- ** getFdList #method:getFdList#--#if ENABLE_OVERLOADING-    UnixFDMessageGetFdListMethodInfo        ,-#endif-    unixFDMessageGetFdList                  ,----- ** new #method:new#--    unixFDMessageNew                        ,----- ** newWithFdList #method:newWithFdList#--    unixFDMessageNewWithFdList              ,----- ** stealFds #method:stealFds#--#if ENABLE_OVERLOADING-    UnixFDMessageStealFdsMethodInfo         ,-#endif-    unixFDMessageStealFds                   ,----- -- * Properties--- ** fdList #attr:fdList#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    UnixFDMessageFdListPropertyInfo         ,-#endif-    constructUnixFDMessageFdList            ,-    getUnixFDMessageFdList                  ,-#if ENABLE_OVERLOADING-    unixFDMessageFdList                     ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.SocketControlMessage as Gio.SocketControlMessage-import {-# SOURCE #-} qualified GI.Gio.Objects.UnixFDList as Gio.UnixFDList---- | Memory-managed wrapper type.-newtype UnixFDMessage = UnixFDMessage (ManagedPtr UnixFDMessage)-foreign import ccall "g_unix_fd_message_get_type"-    c_g_unix_fd_message_get_type :: IO GType--instance GObject UnixFDMessage where-    gobjectType = c_g_unix_fd_message_get_type-    ---- | Type class for types which can be safely cast to `UnixFDMessage`, for instance with `toUnixFDMessage`.-class (GObject o, O.IsDescendantOf UnixFDMessage o) => IsUnixFDMessage o-instance (GObject o, O.IsDescendantOf UnixFDMessage o) => IsUnixFDMessage o--instance O.HasParentTypes UnixFDMessage-type instance O.ParentTypes UnixFDMessage = '[Gio.SocketControlMessage.SocketControlMessage, GObject.Object.Object]---- | Cast to `UnixFDMessage`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toUnixFDMessage :: (MonadIO m, IsUnixFDMessage o) => o -> m UnixFDMessage-toUnixFDMessage = liftIO . unsafeCastTo UnixFDMessage---- | A convenience alias for `Nothing` :: `Maybe` `UnixFDMessage`.-noUnixFDMessage :: Maybe UnixFDMessage-noUnixFDMessage = Nothing--#if ENABLE_OVERLOADING-type family ResolveUnixFDMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixFDMessageMethod "appendFd" o = UnixFDMessageAppendFdMethodInfo-    ResolveUnixFDMessageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveUnixFDMessageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveUnixFDMessageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveUnixFDMessageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveUnixFDMessageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveUnixFDMessageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveUnixFDMessageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveUnixFDMessageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveUnixFDMessageMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveUnixFDMessageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveUnixFDMessageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveUnixFDMessageMethod "serialize" o = Gio.SocketControlMessage.SocketControlMessageSerializeMethodInfo-    ResolveUnixFDMessageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveUnixFDMessageMethod "stealFds" o = UnixFDMessageStealFdsMethodInfo-    ResolveUnixFDMessageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveUnixFDMessageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveUnixFDMessageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveUnixFDMessageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveUnixFDMessageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveUnixFDMessageMethod "getFdList" o = UnixFDMessageGetFdListMethodInfo-    ResolveUnixFDMessageMethod "getLevel" o = Gio.SocketControlMessage.SocketControlMessageGetLevelMethodInfo-    ResolveUnixFDMessageMethod "getMsgType" o = Gio.SocketControlMessage.SocketControlMessageGetMsgTypeMethodInfo-    ResolveUnixFDMessageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveUnixFDMessageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveUnixFDMessageMethod "getSize" o = Gio.SocketControlMessage.SocketControlMessageGetSizeMethodInfo-    ResolveUnixFDMessageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveUnixFDMessageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveUnixFDMessageMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixFDMessageMethod t UnixFDMessage, O.MethodInfo info UnixFDMessage p) => OL.IsLabel t (UnixFDMessage -> 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---- VVV Prop "fd-list"-   -- Type: TInterface (Name {namespace = "Gio", name = "UnixFDList"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@fd-list@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixFDMessage #fdList-@--}-getUnixFDMessageFdList :: (MonadIO m, IsUnixFDMessage o) => o -> m Gio.UnixFDList.UnixFDList-getUnixFDMessageFdList obj = liftIO $ checkUnexpectedNothing "getUnixFDMessageFdList" $ B.Properties.getObjectPropertyObject obj "fd-list" Gio.UnixFDList.UnixFDList--{- |-Construct a `GValueConstruct` with valid value for the “@fd-list@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixFDMessageFdList :: (IsUnixFDMessage o, Gio.UnixFDList.IsUnixFDList a) => a -> IO (GValueConstruct o)-constructUnixFDMessageFdList val = B.Properties.constructObjectPropertyObject "fd-list" (Just val)--#if ENABLE_OVERLOADING-data UnixFDMessageFdListPropertyInfo-instance AttrInfo UnixFDMessageFdListPropertyInfo where-    type AttrAllowedOps UnixFDMessageFdListPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint UnixFDMessageFdListPropertyInfo = Gio.UnixFDList.IsUnixFDList-    type AttrBaseTypeConstraint UnixFDMessageFdListPropertyInfo = IsUnixFDMessage-    type AttrGetType UnixFDMessageFdListPropertyInfo = Gio.UnixFDList.UnixFDList-    type AttrLabel UnixFDMessageFdListPropertyInfo = "fd-list"-    type AttrOrigin UnixFDMessageFdListPropertyInfo = UnixFDMessage-    attrGet _ = getUnixFDMessageFdList-    attrSet _ = undefined-    attrConstruct _ = constructUnixFDMessageFdList-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixFDMessage-type instance O.AttributeList UnixFDMessage = UnixFDMessageAttributeList-type UnixFDMessageAttributeList = ('[ '("fdList", UnixFDMessageFdListPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-unixFDMessageFdList :: AttrLabelProxy "fdList"-unixFDMessageFdList = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList UnixFDMessage = UnixFDMessageSignalList-type UnixFDMessageSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method UnixFDMessage::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixFDMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_message_new" g_unix_fd_message_new :: -    IO (Ptr UnixFDMessage)--{- |-Creates a new 'GI.Gio.Objects.UnixFDMessage.UnixFDMessage' containing an empty file descriptor-list.--/Since: 2.22/--}-unixFDMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m UnixFDMessage-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixFDMessage.UnixFDMessage' -}-unixFDMessageNew  = liftIO $ do-    result <- g_unix_fd_message_new-    checkUnexpectedReturnNULL "unixFDMessageNew" result-    result' <- (wrapObject UnixFDMessage) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixFDMessage::new_with_fd_list--- method type : Constructor--- Args : [Arg {argCName = "fd_list", argType = TInterface (Name {namespace = "Gio", name = "UnixFDList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDList", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixFDMessage"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_message_new_with_fd_list" g_unix_fd_message_new_with_fd_list :: -    Ptr Gio.UnixFDList.UnixFDList ->        -- fd_list : TInterface (Name {namespace = "Gio", name = "UnixFDList"})-    IO (Ptr UnixFDMessage)--{- |-Creates a new 'GI.Gio.Objects.UnixFDMessage.UnixFDMessage' containing /@list@/.--/Since: 2.24/--}-unixFDMessageNewWithFdList ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.UnixFDList.IsUnixFDList a) =>-    a-    {- ^ /@fdList@/: a 'GI.Gio.Objects.UnixFDList.UnixFDList' -}-    -> m UnixFDMessage-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixFDMessage.UnixFDMessage' -}-unixFDMessageNewWithFdList fdList = liftIO $ do-    fdList' <- unsafeManagedPtrCastPtr fdList-    result <- g_unix_fd_message_new_with_fd_list fdList'-    checkUnexpectedReturnNULL "unixFDMessageNewWithFdList" result-    result' <- (wrapObject UnixFDMessage) result-    touchManagedPtr fdList-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixFDMessage::append_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "UnixFDMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid open file descriptor", 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 "g_unix_fd_message_append_fd" g_unix_fd_message_append_fd :: -    Ptr UnixFDMessage ->                    -- message : TInterface (Name {namespace = "Gio", name = "UnixFDMessage"})-    Int32 ->                                -- fd : TBasicType TInt-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Adds a file descriptor to /@message@/.--The file descriptor is duplicated using @/dup()/@. You keep your copy-of the descriptor and the copy contained in /@message@/ will be closed-when /@message@/ is finalized.--A possible cause of failure is exceeding the per-process or-system-wide file descriptor limit.--/Since: 2.22/--}-unixFDMessageAppendFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixFDMessage a) =>-    a-    {- ^ /@message@/: a 'GI.Gio.Objects.UnixFDMessage.UnixFDMessage' -}-    -> Int32-    {- ^ /@fd@/: a valid open file descriptor -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-unixFDMessageAppendFd message fd = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    onException (do-        _ <- propagateGError $ g_unix_fd_message_append_fd message' fd-        touchManagedPtr message-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data UnixFDMessageAppendFdMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsUnixFDMessage a) => O.MethodInfo UnixFDMessageAppendFdMethodInfo a signature where-    overloadedMethod _ = unixFDMessageAppendFd--#endif---- method UnixFDMessage::get_fd_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "UnixFDMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixFDList"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_message_get_fd_list" g_unix_fd_message_get_fd_list :: -    Ptr UnixFDMessage ->                    -- message : TInterface (Name {namespace = "Gio", name = "UnixFDMessage"})-    IO (Ptr Gio.UnixFDList.UnixFDList)--{- |-Gets the 'GI.Gio.Objects.UnixFDList.UnixFDList' contained in /@message@/.  This function does not-return a reference to the caller, but the returned list is valid for-the lifetime of /@message@/.--/Since: 2.24/--}-unixFDMessageGetFdList ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixFDMessage a) =>-    a-    {- ^ /@message@/: a 'GI.Gio.Objects.UnixFDMessage.UnixFDMessage' -}-    -> m Gio.UnixFDList.UnixFDList-    {- ^ __Returns:__ the 'GI.Gio.Objects.UnixFDList.UnixFDList' from /@message@/ -}-unixFDMessageGetFdList message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    result <- g_unix_fd_message_get_fd_list message'-    checkUnexpectedReturnNULL "unixFDMessageGetFdList" result-    result' <- (newObject Gio.UnixFDList.UnixFDList) result-    touchManagedPtr message-    return result'--#if ENABLE_OVERLOADING-data UnixFDMessageGetFdListMethodInfo-instance (signature ~ (m Gio.UnixFDList.UnixFDList), MonadIO m, IsUnixFDMessage a) => O.MethodInfo UnixFDMessageGetFdListMethodInfo a signature where-    overloadedMethod _ = unixFDMessageGetFdList--#endif---- method UnixFDMessage::steal_fds--- method type : OrdinaryMethod--- Args : [Arg {argCName = "message", argType = TInterface (Name {namespace = "Gio", name = "UnixFDMessage"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixFDMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the length of the returned\n    array, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to the length of the returned\n    array, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TCArray False (-1) 1 (TBasicType TInt))--- throws : False--- Skip return : False--foreign import ccall "g_unix_fd_message_steal_fds" g_unix_fd_message_steal_fds :: -    Ptr UnixFDMessage ->                    -- message : TInterface (Name {namespace = "Gio", name = "UnixFDMessage"})-    Ptr Int32 ->                            -- length : TBasicType TInt-    IO (Ptr Int32)--{- |-Returns the array of file descriptors that is contained in this-object.--After this call, the descriptors are no longer contained in-/@message@/. Further calls will return an empty list (unless more-descriptors have been added).--The return result of this function must be freed with 'GI.GLib.Functions.free'.-The caller is also responsible for closing all of the file-descriptors.--If /@length@/ is non-'Nothing' then it is set to the number of file-descriptors in the returned array. The returned array is also-terminated with -1.--This function never returns 'Nothing'. In case there are no file-descriptors contained in /@message@/, an empty array is returned.--/Since: 2.22/--}-unixFDMessageStealFds ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixFDMessage a) =>-    a-    {- ^ /@message@/: a 'GI.Gio.Objects.UnixFDMessage.UnixFDMessage' -}-    -> m [Int32]-    {- ^ __Returns:__ an array of file-    descriptors -}-unixFDMessageStealFds message = liftIO $ do-    message' <- unsafeManagedPtrCastPtr message-    length_ <- allocMem :: IO (Ptr Int32)-    result <- g_unix_fd_message_steal_fds message' length_-    length_' <- peek length_-    checkUnexpectedReturnNULL "unixFDMessageStealFds" result-    result' <- (unpackStorableArrayWithLength length_') result-    freeMem result-    touchManagedPtr message-    freeMem length_-    return result'--#if ENABLE_OVERLOADING-data UnixFDMessageStealFdsMethodInfo-instance (signature ~ (m [Int32]), MonadIO m, IsUnixFDMessage a) => O.MethodInfo UnixFDMessageStealFdsMethodInfo a signature where-    overloadedMethod _ = unixFDMessageStealFds--#endif--
− GI/Gio/Objects/UnixFDMessage.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.UnixFDMessage 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 UnixFDMessage = UnixFDMessage (ManagedPtr UnixFDMessage)-instance GObject UnixFDMessage where-class (GObject o, O.IsDescendantOf UnixFDMessage o) => IsUnixFDMessage o-instance (GObject o, O.IsDescendantOf UnixFDMessage o) => IsUnixFDMessage o-instance O.HasParentTypes UnixFDMessage-#if ENABLE_OVERLOADING-data UnixFDMessageFdListPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixFDMessageAppendFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixFDMessageGetFdListMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixFDMessageStealFdsMethodInfo-#endif
− GI/Gio/Objects/UnixInputStream.hs 
@@ -1,466 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.UnixInputStream.UnixInputStream' implements 'GI.Gio.Objects.InputStream.InputStream' for reading from a UNIX-file descriptor, including asynchronous operations. (If the file-descriptor refers to a socket or pipe, this will use @/poll()/@ to do-asynchronous I\/O. If it refers to a regular file, it will fall back-to doing asynchronous I\/O in another thread.)--Note that @\<gio\/gunixinputstream.h>@ belongs to the UNIX-specific GIO-interfaces, thus you have to use the @gio-unix-2.0.pc@ pkg-config-file when using it.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.UnixInputStream-    ( ---- * Exported types-    UnixInputStream(..)                     ,-    IsUnixInputStream                       ,-    toUnixInputStream                       ,-    noUnixInputStream                       ,--- -- * Methods--- ** getCloseFd #method:getCloseFd#--#if ENABLE_OVERLOADING-    UnixInputStreamGetCloseFdMethodInfo     ,-#endif-    unixInputStreamGetCloseFd               ,----- ** getFd #method:getFd#--#if ENABLE_OVERLOADING-    UnixInputStreamGetFdMethodInfo          ,-#endif-    unixInputStreamGetFd                    ,----- ** new #method:new#--    unixInputStreamNew                      ,----- ** setCloseFd #method:setCloseFd#--#if ENABLE_OVERLOADING-    UnixInputStreamSetCloseFdMethodInfo     ,-#endif-    unixInputStreamSetCloseFd               ,----- -- * Properties--- ** closeFd #attr:closeFd#-{- | Whether to close the file descriptor when the stream is closed.--/Since: 2.20/--}-#if ENABLE_OVERLOADING-    UnixInputStreamCloseFdPropertyInfo      ,-#endif-    constructUnixInputStreamCloseFd         ,-    getUnixInputStreamCloseFd               ,-    setUnixInputStreamCloseFd               ,-#if ENABLE_OVERLOADING-    unixInputStreamCloseFd                  ,-#endif----- ** fd #attr:fd#-{- | The file descriptor that the stream reads from.--/Since: 2.20/--}-#if ENABLE_OVERLOADING-    UnixInputStreamFdPropertyInfo           ,-#endif-    constructUnixInputStreamFd              ,-    getUnixInputStreamFd                    ,-#if ENABLE_OVERLOADING-    unixInputStreamFd                       ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.FileDescriptorBased as Gio.FileDescriptorBased-import {-# SOURCE #-} qualified GI.Gio.Interfaces.PollableInputStream as Gio.PollableInputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype UnixInputStream = UnixInputStream (ManagedPtr UnixInputStream)-foreign import ccall "g_unix_input_stream_get_type"-    c_g_unix_input_stream_get_type :: IO GType--instance GObject UnixInputStream where-    gobjectType = c_g_unix_input_stream_get_type-    ---- | Type class for types which can be safely cast to `UnixInputStream`, for instance with `toUnixInputStream`.-class (GObject o, O.IsDescendantOf UnixInputStream o) => IsUnixInputStream o-instance (GObject o, O.IsDescendantOf UnixInputStream o) => IsUnixInputStream o--instance O.HasParentTypes UnixInputStream-type instance O.ParentTypes UnixInputStream = '[Gio.InputStream.InputStream, GObject.Object.Object, Gio.FileDescriptorBased.FileDescriptorBased, Gio.PollableInputStream.PollableInputStream]---- | Cast to `UnixInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toUnixInputStream :: (MonadIO m, IsUnixInputStream o) => o -> m UnixInputStream-toUnixInputStream = liftIO . unsafeCastTo UnixInputStream---- | A convenience alias for `Nothing` :: `Maybe` `UnixInputStream`.-noUnixInputStream :: Maybe UnixInputStream-noUnixInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveUnixInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveUnixInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveUnixInputStreamMethod "canPoll" o = Gio.PollableInputStream.PollableInputStreamCanPollMethodInfo-    ResolveUnixInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolveUnixInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolveUnixInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolveUnixInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolveUnixInputStreamMethod "createSource" o = Gio.PollableInputStream.PollableInputStreamCreateSourceMethodInfo-    ResolveUnixInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveUnixInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveUnixInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveUnixInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolveUnixInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolveUnixInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveUnixInputStreamMethod "isReadable" o = Gio.PollableInputStream.PollableInputStreamIsReadableMethodInfo-    ResolveUnixInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveUnixInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveUnixInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolveUnixInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolveUnixInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolveUnixInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolveUnixInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolveUnixInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolveUnixInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolveUnixInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolveUnixInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolveUnixInputStreamMethod "readNonblocking" o = Gio.PollableInputStream.PollableInputStreamReadNonblockingMethodInfo-    ResolveUnixInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveUnixInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveUnixInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveUnixInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolveUnixInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolveUnixInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolveUnixInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveUnixInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveUnixInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveUnixInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveUnixInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveUnixInputStreamMethod "getCloseFd" o = UnixInputStreamGetCloseFdMethodInfo-    ResolveUnixInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveUnixInputStreamMethod "getFd" o = UnixInputStreamGetFdMethodInfo-    ResolveUnixInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveUnixInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveUnixInputStreamMethod "setCloseFd" o = UnixInputStreamSetCloseFdMethodInfo-    ResolveUnixInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveUnixInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolveUnixInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveUnixInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixInputStreamMethod t UnixInputStream, O.MethodInfo info UnixInputStream p) => OL.IsLabel t (UnixInputStream -> 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---- VVV Prop "close-fd"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@close-fd@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixInputStream #closeFd-@--}-getUnixInputStreamCloseFd :: (MonadIO m, IsUnixInputStream o) => o -> m Bool-getUnixInputStreamCloseFd obj = liftIO $ B.Properties.getObjectPropertyBool obj "close-fd"--{- |-Set the value of the “@close-fd@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' unixInputStream [ #closeFd 'Data.GI.Base.Attributes.:=' value ]-@--}-setUnixInputStreamCloseFd :: (MonadIO m, IsUnixInputStream o) => o -> Bool -> m ()-setUnixInputStreamCloseFd obj val = liftIO $ B.Properties.setObjectPropertyBool obj "close-fd" val--{- |-Construct a `GValueConstruct` with valid value for the “@close-fd@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixInputStreamCloseFd :: (IsUnixInputStream o) => Bool -> IO (GValueConstruct o)-constructUnixInputStreamCloseFd val = B.Properties.constructObjectPropertyBool "close-fd" val--#if ENABLE_OVERLOADING-data UnixInputStreamCloseFdPropertyInfo-instance AttrInfo UnixInputStreamCloseFdPropertyInfo where-    type AttrAllowedOps UnixInputStreamCloseFdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixInputStreamCloseFdPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint UnixInputStreamCloseFdPropertyInfo = IsUnixInputStream-    type AttrGetType UnixInputStreamCloseFdPropertyInfo = Bool-    type AttrLabel UnixInputStreamCloseFdPropertyInfo = "close-fd"-    type AttrOrigin UnixInputStreamCloseFdPropertyInfo = UnixInputStream-    attrGet _ = getUnixInputStreamCloseFd-    attrSet _ = setUnixInputStreamCloseFd-    attrConstruct _ = constructUnixInputStreamCloseFd-    attrClear _ = undefined-#endif---- VVV Prop "fd"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@fd@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixInputStream #fd-@--}-getUnixInputStreamFd :: (MonadIO m, IsUnixInputStream o) => o -> m Int32-getUnixInputStreamFd obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "fd"--{- |-Construct a `GValueConstruct` with valid value for the “@fd@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixInputStreamFd :: (IsUnixInputStream o) => Int32 -> IO (GValueConstruct o)-constructUnixInputStreamFd val = B.Properties.constructObjectPropertyInt32 "fd" val--#if ENABLE_OVERLOADING-data UnixInputStreamFdPropertyInfo-instance AttrInfo UnixInputStreamFdPropertyInfo where-    type AttrAllowedOps UnixInputStreamFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixInputStreamFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint UnixInputStreamFdPropertyInfo = IsUnixInputStream-    type AttrGetType UnixInputStreamFdPropertyInfo = Int32-    type AttrLabel UnixInputStreamFdPropertyInfo = "fd"-    type AttrOrigin UnixInputStreamFdPropertyInfo = UnixInputStream-    attrGet _ = getUnixInputStreamFd-    attrSet _ = undefined-    attrConstruct _ = constructUnixInputStreamFd-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixInputStream-type instance O.AttributeList UnixInputStream = UnixInputStreamAttributeList-type UnixInputStreamAttributeList = ('[ '("closeFd", UnixInputStreamCloseFdPropertyInfo), '("fd", UnixInputStreamFdPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-unixInputStreamCloseFd :: AttrLabelProxy "closeFd"-unixInputStreamCloseFd = AttrLabelProxy--unixInputStreamFd :: AttrLabelProxy "fd"-unixInputStreamFd = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList UnixInputStream = UnixInputStreamSignalList-type UnixInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method UnixInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a UNIX file descriptor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to close the file descriptor when done", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_input_stream_new" g_unix_input_stream_new :: -    Int32 ->                                -- fd : TBasicType TInt-    CInt ->                                 -- close_fd : TBasicType TBoolean-    IO (Ptr UnixInputStream)--{- |-Creates a new 'GI.Gio.Objects.UnixInputStream.UnixInputStream' for the given /@fd@/.--If /@closeFd@/ is 'True', the file descriptor will be closed-when the stream is closed.--}-unixInputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Int32-    {- ^ /@fd@/: a UNIX file descriptor -}-    -> Bool-    {- ^ /@closeFd@/: 'True' to close the file descriptor when done -}-    -> m UnixInputStream-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixInputStream.UnixInputStream' -}-unixInputStreamNew fd closeFd = liftIO $ do-    let closeFd' = (fromIntegral . fromEnum) closeFd-    result <- g_unix_input_stream_new fd closeFd'-    checkUnexpectedReturnNULL "unixInputStreamNew" result-    result' <- (wrapObject UnixInputStream) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixInputStream::get_close_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "UnixInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixInputStream", 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 "g_unix_input_stream_get_close_fd" g_unix_input_stream_get_close_fd :: -    Ptr UnixInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "UnixInputStream"})-    IO CInt--{- |-Returns whether the file descriptor of /@stream@/ will be-closed when the stream is closed.--/Since: 2.20/--}-unixInputStreamGetCloseFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.UnixInputStream.UnixInputStream' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the file descriptor is closed when done -}-unixInputStreamGetCloseFd stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_unix_input_stream_get_close_fd stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data UnixInputStreamGetCloseFdMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsUnixInputStream a) => O.MethodInfo UnixInputStreamGetCloseFdMethodInfo a signature where-    overloadedMethod _ = unixInputStreamGetCloseFd--#endif---- method UnixInputStream::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "UnixInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixInputStream", 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 "g_unix_input_stream_get_fd" g_unix_input_stream_get_fd :: -    Ptr UnixInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "UnixInputStream"})-    IO Int32--{- |-Return the UNIX file descriptor that the stream reads from.--/Since: 2.20/--}-unixInputStreamGetFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.UnixInputStream.UnixInputStream' -}-    -> m Int32-    {- ^ __Returns:__ The file descriptor of /@stream@/ -}-unixInputStreamGetFd stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_unix_input_stream_get_fd stream'-    touchManagedPtr stream-    return result--#if ENABLE_OVERLOADING-data UnixInputStreamGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsUnixInputStream a) => O.MethodInfo UnixInputStreamGetFdMethodInfo a signature where-    overloadedMethod _ = unixInputStreamGetFd--#endif---- method UnixInputStream::set_close_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "UnixInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to close the file descriptor when done", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_unix_input_stream_set_close_fd" g_unix_input_stream_set_close_fd :: -    Ptr UnixInputStream ->                  -- stream : TInterface (Name {namespace = "Gio", name = "UnixInputStream"})-    CInt ->                                 -- close_fd : TBasicType TBoolean-    IO ()--{- |-Sets whether the file descriptor of /@stream@/ shall be closed-when the stream is closed.--/Since: 2.20/--}-unixInputStreamSetCloseFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixInputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.UnixInputStream.UnixInputStream' -}-    -> Bool-    {- ^ /@closeFd@/: 'True' to close the file descriptor when done -}-    -> m ()-unixInputStreamSetCloseFd stream closeFd = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    let closeFd' = (fromIntegral . fromEnum) closeFd-    g_unix_input_stream_set_close_fd stream' closeFd'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data UnixInputStreamSetCloseFdMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsUnixInputStream a) => O.MethodInfo UnixInputStreamSetCloseFdMethodInfo a signature where-    overloadedMethod _ = unixInputStreamSetCloseFd--#endif--
− GI/Gio/Objects/UnixInputStream.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.UnixInputStream 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 UnixInputStream = UnixInputStream (ManagedPtr UnixInputStream)-instance GObject UnixInputStream where-class (GObject o, O.IsDescendantOf UnixInputStream o) => IsUnixInputStream o-instance (GObject o, O.IsDescendantOf UnixInputStream o) => IsUnixInputStream o-instance O.HasParentTypes UnixInputStream-#if ENABLE_OVERLOADING-data UnixInputStreamCloseFdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixInputStreamFdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixInputStreamGetCloseFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixInputStreamGetFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixInputStreamSetCloseFdMethodInfo-#endif
− GI/Gio/Objects/UnixMountMonitor.hs 
@@ -1,436 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Watches @/GUnixMounts/@ for changes.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.UnixMountMonitor-    ( ---- * Exported types-    UnixMountMonitor(..)                    ,-    IsUnixMountMonitor                      ,-    toUnixMountMonitor                      ,-    noUnixMountMonitor                      ,--- -- * Methods--- ** get #method:get#--    unixMountMonitorGet                     ,----- ** new #method:new#--    unixMountMonitorNew                     ,----- ** setRateLimit #method:setRateLimit#--#if ENABLE_OVERLOADING-    UnixMountMonitorSetRateLimitMethodInfo  ,-#endif-    unixMountMonitorSetRateLimit            ,----- -- * Signals--- ** mountpointsChanged #signal:mountpointsChanged#--    C_UnixMountMonitorMountpointsChangedCallback,-    UnixMountMonitorMountpointsChangedCallback,-#if ENABLE_OVERLOADING-    UnixMountMonitorMountpointsChangedSignalInfo,-#endif-    afterUnixMountMonitorMountpointsChanged ,-    genClosure_UnixMountMonitorMountpointsChanged,-    mk_UnixMountMonitorMountpointsChangedCallback,-    noUnixMountMonitorMountpointsChangedCallback,-    onUnixMountMonitorMountpointsChanged    ,-    wrap_UnixMountMonitorMountpointsChangedCallback,----- ** mountsChanged #signal:mountsChanged#--    C_UnixMountMonitorMountsChangedCallback ,-    UnixMountMonitorMountsChangedCallback   ,-#if ENABLE_OVERLOADING-    UnixMountMonitorMountsChangedSignalInfo ,-#endif-    afterUnixMountMonitorMountsChanged      ,-    genClosure_UnixMountMonitorMountsChanged,-    mk_UnixMountMonitorMountsChangedCallback,-    noUnixMountMonitorMountsChangedCallback ,-    onUnixMountMonitorMountsChanged         ,-    wrap_UnixMountMonitorMountsChangedCallback,-----    ) 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 UnixMountMonitor = UnixMountMonitor (ManagedPtr UnixMountMonitor)-foreign import ccall "g_unix_mount_monitor_get_type"-    c_g_unix_mount_monitor_get_type :: IO GType--instance GObject UnixMountMonitor where-    gobjectType = c_g_unix_mount_monitor_get_type-    ---- | Type class for types which can be safely cast to `UnixMountMonitor`, for instance with `toUnixMountMonitor`.-class (GObject o, O.IsDescendantOf UnixMountMonitor o) => IsUnixMountMonitor o-instance (GObject o, O.IsDescendantOf UnixMountMonitor o) => IsUnixMountMonitor o--instance O.HasParentTypes UnixMountMonitor-type instance O.ParentTypes UnixMountMonitor = '[GObject.Object.Object]---- | Cast to `UnixMountMonitor`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toUnixMountMonitor :: (MonadIO m, IsUnixMountMonitor o) => o -> m UnixMountMonitor-toUnixMountMonitor = liftIO . unsafeCastTo UnixMountMonitor---- | A convenience alias for `Nothing` :: `Maybe` `UnixMountMonitor`.-noUnixMountMonitor :: Maybe UnixMountMonitor-noUnixMountMonitor = Nothing--#if ENABLE_OVERLOADING-type family ResolveUnixMountMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixMountMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveUnixMountMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveUnixMountMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveUnixMountMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveUnixMountMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveUnixMountMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveUnixMountMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveUnixMountMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveUnixMountMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveUnixMountMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveUnixMountMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveUnixMountMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveUnixMountMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveUnixMountMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveUnixMountMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveUnixMountMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveUnixMountMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveUnixMountMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveUnixMountMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveUnixMountMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveUnixMountMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveUnixMountMonitorMethod "setRateLimit" o = UnixMountMonitorSetRateLimitMethodInfo-    ResolveUnixMountMonitorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixMountMonitorMethod t UnixMountMonitor, O.MethodInfo info UnixMountMonitor p) => OL.IsLabel t (UnixMountMonitor -> 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 UnixMountMonitor::mountpoints-changed-{- |-Emitted when the unix mount points have changed.--}-type UnixMountMonitorMountpointsChangedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `UnixMountMonitorMountpointsChangedCallback`@.-noUnixMountMonitorMountpointsChangedCallback :: Maybe UnixMountMonitorMountpointsChangedCallback-noUnixMountMonitorMountpointsChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_UnixMountMonitorMountpointsChangedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_UnixMountMonitorMountpointsChangedCallback`.-foreign import ccall "wrapper"-    mk_UnixMountMonitorMountpointsChangedCallback :: C_UnixMountMonitorMountpointsChangedCallback -> IO (FunPtr C_UnixMountMonitorMountpointsChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_UnixMountMonitorMountpointsChanged :: MonadIO m => UnixMountMonitorMountpointsChangedCallback -> m (GClosure C_UnixMountMonitorMountpointsChangedCallback)-genClosure_UnixMountMonitorMountpointsChanged cb = liftIO $ do-    let cb' = wrap_UnixMountMonitorMountpointsChangedCallback cb-    mk_UnixMountMonitorMountpointsChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `UnixMountMonitorMountpointsChangedCallback` into a `C_UnixMountMonitorMountpointsChangedCallback`.-wrap_UnixMountMonitorMountpointsChangedCallback ::-    UnixMountMonitorMountpointsChangedCallback ->-    C_UnixMountMonitorMountpointsChangedCallback-wrap_UnixMountMonitorMountpointsChangedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@mountpoints-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' unixMountMonitor #mountpointsChanged callback-@--}-onUnixMountMonitorMountpointsChanged :: (IsUnixMountMonitor a, MonadIO m) => a -> UnixMountMonitorMountpointsChangedCallback -> m SignalHandlerId-onUnixMountMonitorMountpointsChanged obj cb = liftIO $ do-    let cb' = wrap_UnixMountMonitorMountpointsChangedCallback cb-    cb'' <- mk_UnixMountMonitorMountpointsChangedCallback cb'-    connectSignalFunPtr obj "mountpoints-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@mountpoints-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' unixMountMonitor #mountpointsChanged callback-@--}-afterUnixMountMonitorMountpointsChanged :: (IsUnixMountMonitor a, MonadIO m) => a -> UnixMountMonitorMountpointsChangedCallback -> m SignalHandlerId-afterUnixMountMonitorMountpointsChanged obj cb = liftIO $ do-    let cb' = wrap_UnixMountMonitorMountpointsChangedCallback cb-    cb'' <- mk_UnixMountMonitorMountpointsChangedCallback cb'-    connectSignalFunPtr obj "mountpoints-changed" cb'' SignalConnectAfter----- signal UnixMountMonitor::mounts-changed-{- |-Emitted when the unix mounts have changed.--}-type UnixMountMonitorMountsChangedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `UnixMountMonitorMountsChangedCallback`@.-noUnixMountMonitorMountsChangedCallback :: Maybe UnixMountMonitorMountsChangedCallback-noUnixMountMonitorMountsChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_UnixMountMonitorMountsChangedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_UnixMountMonitorMountsChangedCallback`.-foreign import ccall "wrapper"-    mk_UnixMountMonitorMountsChangedCallback :: C_UnixMountMonitorMountsChangedCallback -> IO (FunPtr C_UnixMountMonitorMountsChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_UnixMountMonitorMountsChanged :: MonadIO m => UnixMountMonitorMountsChangedCallback -> m (GClosure C_UnixMountMonitorMountsChangedCallback)-genClosure_UnixMountMonitorMountsChanged cb = liftIO $ do-    let cb' = wrap_UnixMountMonitorMountsChangedCallback cb-    mk_UnixMountMonitorMountsChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `UnixMountMonitorMountsChangedCallback` into a `C_UnixMountMonitorMountsChangedCallback`.-wrap_UnixMountMonitorMountsChangedCallback ::-    UnixMountMonitorMountsChangedCallback ->-    C_UnixMountMonitorMountsChangedCallback-wrap_UnixMountMonitorMountsChangedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@mounts-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' unixMountMonitor #mountsChanged callback-@--}-onUnixMountMonitorMountsChanged :: (IsUnixMountMonitor a, MonadIO m) => a -> UnixMountMonitorMountsChangedCallback -> m SignalHandlerId-onUnixMountMonitorMountsChanged obj cb = liftIO $ do-    let cb' = wrap_UnixMountMonitorMountsChangedCallback cb-    cb'' <- mk_UnixMountMonitorMountsChangedCallback cb'-    connectSignalFunPtr obj "mounts-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@mounts-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' unixMountMonitor #mountsChanged callback-@--}-afterUnixMountMonitorMountsChanged :: (IsUnixMountMonitor a, MonadIO m) => a -> UnixMountMonitorMountsChangedCallback -> m SignalHandlerId-afterUnixMountMonitorMountsChanged obj cb = liftIO $ do-    let cb' = wrap_UnixMountMonitorMountsChangedCallback cb-    cb'' <- mk_UnixMountMonitorMountsChangedCallback cb'-    connectSignalFunPtr obj "mounts-changed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixMountMonitor-type instance O.AttributeList UnixMountMonitor = UnixMountMonitorAttributeList-type UnixMountMonitorAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data UnixMountMonitorMountpointsChangedSignalInfo-instance SignalInfo UnixMountMonitorMountpointsChangedSignalInfo where-    type HaskellCallbackType UnixMountMonitorMountpointsChangedSignalInfo = UnixMountMonitorMountpointsChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_UnixMountMonitorMountpointsChangedCallback cb-        cb'' <- mk_UnixMountMonitorMountpointsChangedCallback cb'-        connectSignalFunPtr obj "mountpoints-changed" cb'' connectMode--data UnixMountMonitorMountsChangedSignalInfo-instance SignalInfo UnixMountMonitorMountsChangedSignalInfo where-    type HaskellCallbackType UnixMountMonitorMountsChangedSignalInfo = UnixMountMonitorMountsChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_UnixMountMonitorMountsChangedCallback cb-        cb'' <- mk_UnixMountMonitorMountsChangedCallback cb'-        connectSignalFunPtr obj "mounts-changed" cb'' connectMode--type instance O.SignalList UnixMountMonitor = UnixMountMonitorSignalList-type UnixMountMonitorSignalList = ('[ '("mountpointsChanged", UnixMountMonitorMountpointsChangedSignalInfo), '("mountsChanged", UnixMountMonitorMountsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method UnixMountMonitor::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixMountMonitor"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_monitor_new" g_unix_mount_monitor_new :: -    IO (Ptr UnixMountMonitor)--{-# DEPRECATED unixMountMonitorNew ["(Since version 2.44)","Use 'GI.Gio.Objects.UnixMountMonitor.unixMountMonitorGet' instead."] #-}-{- |-Deprecated alias for 'GI.Gio.Objects.UnixMountMonitor.unixMountMonitorGet'.--This function was never a true constructor, which is why it was-renamed.--}-unixMountMonitorNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m UnixMountMonitor-    {- ^ __Returns:__ a 'GI.Gio.Objects.UnixMountMonitor.UnixMountMonitor'. -}-unixMountMonitorNew  = liftIO $ do-    result <- g_unix_mount_monitor_new-    checkUnexpectedReturnNULL "unixMountMonitorNew" result-    result' <- (wrapObject UnixMountMonitor) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixMountMonitor::set_rate_limit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_monitor", argType = TInterface (Name {namespace = "Gio", name = "UnixMountMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountMonitor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a integer with the limit in milliseconds to\n    poll for changes.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_monitor_set_rate_limit" g_unix_mount_monitor_set_rate_limit :: -    Ptr UnixMountMonitor ->                 -- mount_monitor : TInterface (Name {namespace = "Gio", name = "UnixMountMonitor"})-    Int32 ->                                -- limit_msec : TBasicType TInt-    IO ()--{-# DEPRECATED unixMountMonitorSetRateLimit ["(Since version 2.44)","This function does nothing.  Don\\'t call it."] #-}-{- |-This function does nothing.--Before 2.44, this was a partially-effective way of controlling the-rate at which events would be reported under some uncommon-circumstances.  Since /@mountMonitor@/ is a singleton, it also meant-that calling this function would have side effects for other users of-the monitor.--/Since: 2.18/--}-unixMountMonitorSetRateLimit ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixMountMonitor a) =>-    a-    {- ^ /@mountMonitor@/: a 'GI.Gio.Objects.UnixMountMonitor.UnixMountMonitor' -}-    -> Int32-    {- ^ /@limitMsec@/: a integer with the limit in milliseconds to-    poll for changes. -}-    -> m ()-unixMountMonitorSetRateLimit mountMonitor limitMsec = liftIO $ do-    mountMonitor' <- unsafeManagedPtrCastPtr mountMonitor-    g_unix_mount_monitor_set_rate_limit mountMonitor' limitMsec-    touchManagedPtr mountMonitor-    return ()--#if ENABLE_OVERLOADING-data UnixMountMonitorSetRateLimitMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, IsUnixMountMonitor a) => O.MethodInfo UnixMountMonitorSetRateLimitMethodInfo a signature where-    overloadedMethod _ = unixMountMonitorSetRateLimit--#endif---- method UnixMountMonitor::get--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixMountMonitor"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_monitor_get" g_unix_mount_monitor_get :: -    IO (Ptr UnixMountMonitor)--{- |-Gets the 'GI.Gio.Objects.UnixMountMonitor.UnixMountMonitor' for the current thread-default main-context.--The mount monitor can be used to monitor for changes to the list of-mounted filesystems as well as the list of mount points (ie: fstab-entries).--You must only call 'GI.GObject.Objects.Object.objectUnref' on the return value from under-the same main context as you called this function.--/Since: 2.44/--}-unixMountMonitorGet ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m UnixMountMonitor-    {- ^ __Returns:__ the 'GI.Gio.Objects.UnixMountMonitor.UnixMountMonitor'. -}-unixMountMonitorGet  = liftIO $ do-    result <- g_unix_mount_monitor_get-    checkUnexpectedReturnNULL "unixMountMonitorGet" result-    result' <- (wrapObject UnixMountMonitor) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/UnixMountMonitor.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.UnixMountMonitor 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 UnixMountMonitor = UnixMountMonitor (ManagedPtr UnixMountMonitor)-instance GObject UnixMountMonitor where-class (GObject o, O.IsDescendantOf UnixMountMonitor o) => IsUnixMountMonitor o-instance (GObject o, O.IsDescendantOf UnixMountMonitor o) => IsUnixMountMonitor o-instance O.HasParentTypes UnixMountMonitor-#if ENABLE_OVERLOADING-data UnixMountMonitorMountpointsChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountMonitorMountsChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountMonitorSetRateLimitMethodInfo-#endif
− GI/Gio/Objects/UnixOutputStream.hs 
@@ -1,477 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.UnixOutputStream.UnixOutputStream' implements 'GI.Gio.Objects.OutputStream.OutputStream' for writing to a UNIX-file descriptor, including asynchronous operations. (If the file-descriptor refers to a socket or pipe, this will use @/poll()/@ to do-asynchronous I\/O. If it refers to a regular file, it will fall back-to doing asynchronous I\/O in another thread.)--Note that @\<gio\/gunixoutputstream.h>@ belongs to the UNIX-specific GIO-interfaces, thus you have to use the @gio-unix-2.0.pc@ pkg-config file-when using it.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.UnixOutputStream-    ( ---- * Exported types-    UnixOutputStream(..)                    ,-    IsUnixOutputStream                      ,-    toUnixOutputStream                      ,-    noUnixOutputStream                      ,--- -- * Methods--- ** getCloseFd #method:getCloseFd#--#if ENABLE_OVERLOADING-    UnixOutputStreamGetCloseFdMethodInfo    ,-#endif-    unixOutputStreamGetCloseFd              ,----- ** getFd #method:getFd#--#if ENABLE_OVERLOADING-    UnixOutputStreamGetFdMethodInfo         ,-#endif-    unixOutputStreamGetFd                   ,----- ** new #method:new#--    unixOutputStreamNew                     ,----- ** setCloseFd #method:setCloseFd#--#if ENABLE_OVERLOADING-    UnixOutputStreamSetCloseFdMethodInfo    ,-#endif-    unixOutputStreamSetCloseFd              ,----- -- * Properties--- ** closeFd #attr:closeFd#-{- | Whether to close the file descriptor when the stream is closed.--/Since: 2.20/--}-#if ENABLE_OVERLOADING-    UnixOutputStreamCloseFdPropertyInfo     ,-#endif-    constructUnixOutputStreamCloseFd        ,-    getUnixOutputStreamCloseFd              ,-    setUnixOutputStreamCloseFd              ,-#if ENABLE_OVERLOADING-    unixOutputStreamCloseFd                 ,-#endif----- ** fd #attr:fd#-{- | The file descriptor that the stream writes to.--/Since: 2.20/--}-#if ENABLE_OVERLOADING-    UnixOutputStreamFdPropertyInfo          ,-#endif-    constructUnixOutputStreamFd             ,-    getUnixOutputStreamFd                   ,-#if ENABLE_OVERLOADING-    unixOutputStreamFd                      ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.FileDescriptorBased as Gio.FileDescriptorBased-import {-# SOURCE #-} qualified GI.Gio.Interfaces.PollableOutputStream as Gio.PollableOutputStream-import {-# SOURCE #-} qualified GI.Gio.Objects.OutputStream as Gio.OutputStream---- | Memory-managed wrapper type.-newtype UnixOutputStream = UnixOutputStream (ManagedPtr UnixOutputStream)-foreign import ccall "g_unix_output_stream_get_type"-    c_g_unix_output_stream_get_type :: IO GType--instance GObject UnixOutputStream where-    gobjectType = c_g_unix_output_stream_get_type-    ---- | Type class for types which can be safely cast to `UnixOutputStream`, for instance with `toUnixOutputStream`.-class (GObject o, O.IsDescendantOf UnixOutputStream o) => IsUnixOutputStream o-instance (GObject o, O.IsDescendantOf UnixOutputStream o) => IsUnixOutputStream o--instance O.HasParentTypes UnixOutputStream-type instance O.ParentTypes UnixOutputStream = '[Gio.OutputStream.OutputStream, GObject.Object.Object, Gio.FileDescriptorBased.FileDescriptorBased, Gio.PollableOutputStream.PollableOutputStream]---- | Cast to `UnixOutputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toUnixOutputStream :: (MonadIO m, IsUnixOutputStream o) => o -> m UnixOutputStream-toUnixOutputStream = liftIO . unsafeCastTo UnixOutputStream---- | A convenience alias for `Nothing` :: `Maybe` `UnixOutputStream`.-noUnixOutputStream :: Maybe UnixOutputStream-noUnixOutputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveUnixOutputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixOutputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveUnixOutputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveUnixOutputStreamMethod "canPoll" o = Gio.PollableOutputStream.PollableOutputStreamCanPollMethodInfo-    ResolveUnixOutputStreamMethod "clearPending" o = Gio.OutputStream.OutputStreamClearPendingMethodInfo-    ResolveUnixOutputStreamMethod "close" o = Gio.OutputStream.OutputStreamCloseMethodInfo-    ResolveUnixOutputStreamMethod "closeAsync" o = Gio.OutputStream.OutputStreamCloseAsyncMethodInfo-    ResolveUnixOutputStreamMethod "closeFinish" o = Gio.OutputStream.OutputStreamCloseFinishMethodInfo-    ResolveUnixOutputStreamMethod "createSource" o = Gio.PollableOutputStream.PollableOutputStreamCreateSourceMethodInfo-    ResolveUnixOutputStreamMethod "flush" o = Gio.OutputStream.OutputStreamFlushMethodInfo-    ResolveUnixOutputStreamMethod "flushAsync" o = Gio.OutputStream.OutputStreamFlushAsyncMethodInfo-    ResolveUnixOutputStreamMethod "flushFinish" o = Gio.OutputStream.OutputStreamFlushFinishMethodInfo-    ResolveUnixOutputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveUnixOutputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveUnixOutputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveUnixOutputStreamMethod "hasPending" o = Gio.OutputStream.OutputStreamHasPendingMethodInfo-    ResolveUnixOutputStreamMethod "isClosed" o = Gio.OutputStream.OutputStreamIsClosedMethodInfo-    ResolveUnixOutputStreamMethod "isClosing" o = Gio.OutputStream.OutputStreamIsClosingMethodInfo-    ResolveUnixOutputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveUnixOutputStreamMethod "isWritable" o = Gio.PollableOutputStream.PollableOutputStreamIsWritableMethodInfo-    ResolveUnixOutputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveUnixOutputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveUnixOutputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveUnixOutputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveUnixOutputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveUnixOutputStreamMethod "splice" o = Gio.OutputStream.OutputStreamSpliceMethodInfo-    ResolveUnixOutputStreamMethod "spliceAsync" o = Gio.OutputStream.OutputStreamSpliceAsyncMethodInfo-    ResolveUnixOutputStreamMethod "spliceFinish" o = Gio.OutputStream.OutputStreamSpliceFinishMethodInfo-    ResolveUnixOutputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveUnixOutputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveUnixOutputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveUnixOutputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveUnixOutputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveUnixOutputStreamMethod "write" o = Gio.OutputStream.OutputStreamWriteMethodInfo-    ResolveUnixOutputStreamMethod "writeAll" o = Gio.OutputStream.OutputStreamWriteAllMethodInfo-    ResolveUnixOutputStreamMethod "writeAllAsync" o = Gio.OutputStream.OutputStreamWriteAllAsyncMethodInfo-    ResolveUnixOutputStreamMethod "writeAllFinish" o = Gio.OutputStream.OutputStreamWriteAllFinishMethodInfo-    ResolveUnixOutputStreamMethod "writeAsync" o = Gio.OutputStream.OutputStreamWriteAsyncMethodInfo-    ResolveUnixOutputStreamMethod "writeBytes" o = Gio.OutputStream.OutputStreamWriteBytesMethodInfo-    ResolveUnixOutputStreamMethod "writeBytesAsync" o = Gio.OutputStream.OutputStreamWriteBytesAsyncMethodInfo-    ResolveUnixOutputStreamMethod "writeBytesFinish" o = Gio.OutputStream.OutputStreamWriteBytesFinishMethodInfo-    ResolveUnixOutputStreamMethod "writeFinish" o = Gio.OutputStream.OutputStreamWriteFinishMethodInfo-    ResolveUnixOutputStreamMethod "writeNonblocking" o = Gio.PollableOutputStream.PollableOutputStreamWriteNonblockingMethodInfo-    ResolveUnixOutputStreamMethod "writev" o = Gio.OutputStream.OutputStreamWritevMethodInfo-    ResolveUnixOutputStreamMethod "writevAll" o = Gio.OutputStream.OutputStreamWritevAllMethodInfo-    ResolveUnixOutputStreamMethod "writevAllAsync" o = Gio.OutputStream.OutputStreamWritevAllAsyncMethodInfo-    ResolveUnixOutputStreamMethod "writevAllFinish" o = Gio.OutputStream.OutputStreamWritevAllFinishMethodInfo-    ResolveUnixOutputStreamMethod "writevAsync" o = Gio.OutputStream.OutputStreamWritevAsyncMethodInfo-    ResolveUnixOutputStreamMethod "writevFinish" o = Gio.OutputStream.OutputStreamWritevFinishMethodInfo-    ResolveUnixOutputStreamMethod "writevNonblocking" o = Gio.PollableOutputStream.PollableOutputStreamWritevNonblockingMethodInfo-    ResolveUnixOutputStreamMethod "getCloseFd" o = UnixOutputStreamGetCloseFdMethodInfo-    ResolveUnixOutputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveUnixOutputStreamMethod "getFd" o = UnixOutputStreamGetFdMethodInfo-    ResolveUnixOutputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveUnixOutputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveUnixOutputStreamMethod "setCloseFd" o = UnixOutputStreamSetCloseFdMethodInfo-    ResolveUnixOutputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveUnixOutputStreamMethod "setPending" o = Gio.OutputStream.OutputStreamSetPendingMethodInfo-    ResolveUnixOutputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveUnixOutputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixOutputStreamMethod t UnixOutputStream, O.MethodInfo info UnixOutputStream p) => OL.IsLabel t (UnixOutputStream -> 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---- VVV Prop "close-fd"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@close-fd@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixOutputStream #closeFd-@--}-getUnixOutputStreamCloseFd :: (MonadIO m, IsUnixOutputStream o) => o -> m Bool-getUnixOutputStreamCloseFd obj = liftIO $ B.Properties.getObjectPropertyBool obj "close-fd"--{- |-Set the value of the “@close-fd@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' unixOutputStream [ #closeFd 'Data.GI.Base.Attributes.:=' value ]-@--}-setUnixOutputStreamCloseFd :: (MonadIO m, IsUnixOutputStream o) => o -> Bool -> m ()-setUnixOutputStreamCloseFd obj val = liftIO $ B.Properties.setObjectPropertyBool obj "close-fd" val--{- |-Construct a `GValueConstruct` with valid value for the “@close-fd@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixOutputStreamCloseFd :: (IsUnixOutputStream o) => Bool -> IO (GValueConstruct o)-constructUnixOutputStreamCloseFd val = B.Properties.constructObjectPropertyBool "close-fd" val--#if ENABLE_OVERLOADING-data UnixOutputStreamCloseFdPropertyInfo-instance AttrInfo UnixOutputStreamCloseFdPropertyInfo where-    type AttrAllowedOps UnixOutputStreamCloseFdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixOutputStreamCloseFdPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint UnixOutputStreamCloseFdPropertyInfo = IsUnixOutputStream-    type AttrGetType UnixOutputStreamCloseFdPropertyInfo = Bool-    type AttrLabel UnixOutputStreamCloseFdPropertyInfo = "close-fd"-    type AttrOrigin UnixOutputStreamCloseFdPropertyInfo = UnixOutputStream-    attrGet _ = getUnixOutputStreamCloseFd-    attrSet _ = setUnixOutputStreamCloseFd-    attrConstruct _ = constructUnixOutputStreamCloseFd-    attrClear _ = undefined-#endif---- VVV Prop "fd"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@fd@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixOutputStream #fd-@--}-getUnixOutputStreamFd :: (MonadIO m, IsUnixOutputStream o) => o -> m Int32-getUnixOutputStreamFd obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "fd"--{- |-Construct a `GValueConstruct` with valid value for the “@fd@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixOutputStreamFd :: (IsUnixOutputStream o) => Int32 -> IO (GValueConstruct o)-constructUnixOutputStreamFd val = B.Properties.constructObjectPropertyInt32 "fd" val--#if ENABLE_OVERLOADING-data UnixOutputStreamFdPropertyInfo-instance AttrInfo UnixOutputStreamFdPropertyInfo where-    type AttrAllowedOps UnixOutputStreamFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixOutputStreamFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint UnixOutputStreamFdPropertyInfo = IsUnixOutputStream-    type AttrGetType UnixOutputStreamFdPropertyInfo = Int32-    type AttrLabel UnixOutputStreamFdPropertyInfo = "fd"-    type AttrOrigin UnixOutputStreamFdPropertyInfo = UnixOutputStream-    attrGet _ = getUnixOutputStreamFd-    attrSet _ = undefined-    attrConstruct _ = constructUnixOutputStreamFd-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixOutputStream-type instance O.AttributeList UnixOutputStream = UnixOutputStreamAttributeList-type UnixOutputStreamAttributeList = ('[ '("closeFd", UnixOutputStreamCloseFdPropertyInfo), '("fd", UnixOutputStreamFdPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-unixOutputStreamCloseFd :: AttrLabelProxy "closeFd"-unixOutputStreamCloseFd = AttrLabelProxy--unixOutputStreamFd :: AttrLabelProxy "fd"-unixOutputStreamFd = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList UnixOutputStream = UnixOutputStreamSignalList-type UnixOutputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method UnixOutputStream::new--- method type : Constructor--- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a UNIX file descriptor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to close the file descriptor when done", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixOutputStream"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_output_stream_new" g_unix_output_stream_new :: -    Int32 ->                                -- fd : TBasicType TInt-    CInt ->                                 -- close_fd : TBasicType TBoolean-    IO (Ptr UnixOutputStream)--{- |-Creates a new 'GI.Gio.Objects.UnixOutputStream.UnixOutputStream' for the given /@fd@/.--If /@closeFd@/, is 'True', the file descriptor will be closed when-the output stream is destroyed.--}-unixOutputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Int32-    {- ^ /@fd@/: a UNIX file descriptor -}-    -> Bool-    {- ^ /@closeFd@/: 'True' to close the file descriptor when done -}-    -> m UnixOutputStream-    {- ^ __Returns:__ a new 'GI.Gio.Objects.OutputStream.OutputStream' -}-unixOutputStreamNew fd closeFd = liftIO $ do-    let closeFd' = (fromIntegral . fromEnum) closeFd-    result <- g_unix_output_stream_new fd closeFd'-    checkUnexpectedReturnNULL "unixOutputStreamNew" result-    result' <- (wrapObject UnixOutputStream) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixOutputStream::get_close_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "UnixOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixOutputStream", 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 "g_unix_output_stream_get_close_fd" g_unix_output_stream_get_close_fd :: -    Ptr UnixOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "UnixOutputStream"})-    IO CInt--{- |-Returns whether the file descriptor of /@stream@/ will be-closed when the stream is closed.--/Since: 2.20/--}-unixOutputStreamGetCloseFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.UnixOutputStream.UnixOutputStream' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the file descriptor is closed when done -}-unixOutputStreamGetCloseFd stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_unix_output_stream_get_close_fd stream'-    let result' = (/= 0) result-    touchManagedPtr stream-    return result'--#if ENABLE_OVERLOADING-data UnixOutputStreamGetCloseFdMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsUnixOutputStream a) => O.MethodInfo UnixOutputStreamGetCloseFdMethodInfo a signature where-    overloadedMethod _ = unixOutputStreamGetCloseFd--#endif---- method UnixOutputStream::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "UnixOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixOutputStream", 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 "g_unix_output_stream_get_fd" g_unix_output_stream_get_fd :: -    Ptr UnixOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "UnixOutputStream"})-    IO Int32--{- |-Return the UNIX file descriptor that the stream writes to.--/Since: 2.20/--}-unixOutputStreamGetFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.UnixOutputStream.UnixOutputStream' -}-    -> m Int32-    {- ^ __Returns:__ The file descriptor of /@stream@/ -}-unixOutputStreamGetFd stream = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    result <- g_unix_output_stream_get_fd stream'-    touchManagedPtr stream-    return result--#if ENABLE_OVERLOADING-data UnixOutputStreamGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsUnixOutputStream a) => O.MethodInfo UnixOutputStreamGetFdMethodInfo a signature where-    overloadedMethod _ = unixOutputStreamGetFd--#endif---- method UnixOutputStream::set_close_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "UnixOutputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixOutputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to close the file descriptor when done", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_unix_output_stream_set_close_fd" g_unix_output_stream_set_close_fd :: -    Ptr UnixOutputStream ->                 -- stream : TInterface (Name {namespace = "Gio", name = "UnixOutputStream"})-    CInt ->                                 -- close_fd : TBasicType TBoolean-    IO ()--{- |-Sets whether the file descriptor of /@stream@/ shall be closed-when the stream is closed.--/Since: 2.20/--}-unixOutputStreamSetCloseFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixOutputStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.UnixOutputStream.UnixOutputStream' -}-    -> Bool-    {- ^ /@closeFd@/: 'True' to close the file descriptor when done -}-    -> m ()-unixOutputStreamSetCloseFd stream closeFd = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    let closeFd' = (fromIntegral . fromEnum) closeFd-    g_unix_output_stream_set_close_fd stream' closeFd'-    touchManagedPtr stream-    return ()--#if ENABLE_OVERLOADING-data UnixOutputStreamSetCloseFdMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, IsUnixOutputStream a) => O.MethodInfo UnixOutputStreamSetCloseFdMethodInfo a signature where-    overloadedMethod _ = unixOutputStreamSetCloseFd--#endif--
− GI/Gio/Objects/UnixOutputStream.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.UnixOutputStream 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 UnixOutputStream = UnixOutputStream (ManagedPtr UnixOutputStream)-instance GObject UnixOutputStream where-class (GObject o, O.IsDescendantOf UnixOutputStream o) => IsUnixOutputStream o-instance (GObject o, O.IsDescendantOf UnixOutputStream o) => IsUnixOutputStream o-instance O.HasParentTypes UnixOutputStream-#if ENABLE_OVERLOADING-data UnixOutputStreamCloseFdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixOutputStreamFdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixOutputStreamGetCloseFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixOutputStreamGetFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixOutputStreamSetCloseFdMethodInfo-#endif
− GI/Gio/Objects/UnixSocketAddress.hs 
@@ -1,744 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Support for UNIX-domain (also known as local) sockets.--UNIX domain sockets are generally visible in the filesystem.-However, some systems support abstract socket names which are not-visible in the filesystem and not affected by the filesystem-permissions, visibility, etc. Currently this is only supported-under Linux. If you attempt to use abstract sockets on other-systems, function calls may return 'GI.Gio.Enums.IOErrorEnumNotSupported'-errors. You can use 'GI.Gio.Objects.UnixSocketAddress.unixSocketAddressAbstractNamesSupported'-to see if abstract names are supported.--Note that @\<gio\/gunixsocketaddress.h>@ belongs to the UNIX-specific GIO-interfaces, thus you have to use the @gio-unix-2.0.pc@ pkg-config file-when using it.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.UnixSocketAddress-    ( ---- * Exported types-    UnixSocketAddress(..)                   ,-    IsUnixSocketAddress                     ,-    toUnixSocketAddress                     ,-    noUnixSocketAddress                     ,--- -- * Methods--- ** abstractNamesSupported #method:abstractNamesSupported#--    unixSocketAddressAbstractNamesSupported ,----- ** getAddressType #method:getAddressType#--#if ENABLE_OVERLOADING-    UnixSocketAddressGetAddressTypeMethodInfo,-#endif-    unixSocketAddressGetAddressType         ,----- ** getIsAbstract #method:getIsAbstract#--#if ENABLE_OVERLOADING-    UnixSocketAddressGetIsAbstractMethodInfo,-#endif-    unixSocketAddressGetIsAbstract          ,----- ** getPath #method:getPath#--#if ENABLE_OVERLOADING-    UnixSocketAddressGetPathMethodInfo      ,-#endif-    unixSocketAddressGetPath                ,----- ** getPathLen #method:getPathLen#--#if ENABLE_OVERLOADING-    UnixSocketAddressGetPathLenMethodInfo   ,-#endif-    unixSocketAddressGetPathLen             ,----- ** new #method:new#--    unixSocketAddressNew                    ,----- ** newAbstract #method:newAbstract#--    unixSocketAddressNewAbstract            ,----- ** newWithType #method:newWithType#--    unixSocketAddressNewWithType            ,----- -- * Properties--- ** abstract #attr:abstract#-{- | Whether or not this is an abstract address--}-#if ENABLE_OVERLOADING-    UnixSocketAddressAbstractPropertyInfo   ,-#endif-    constructUnixSocketAddressAbstract      ,-    getUnixSocketAddressAbstract            ,-#if ENABLE_OVERLOADING-    unixSocketAddressAbstract               ,-#endif----- ** addressType #attr:addressType#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    UnixSocketAddressAddressTypePropertyInfo,-#endif-    constructUnixSocketAddressAddressType   ,-    getUnixSocketAddressAddressType         ,-#if ENABLE_OVERLOADING-    unixSocketAddressAddressType            ,-#endif----- ** path #attr:path#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    UnixSocketAddressPathPropertyInfo       ,-#endif-    constructUnixSocketAddressPath          ,-    getUnixSocketAddressPath                ,-#if ENABLE_OVERLOADING-    unixSocketAddressPath                   ,-#endif----- ** pathAsArray #attr:pathAsArray#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    UnixSocketAddressPathAsArrayPropertyInfo,-#endif-    constructUnixSocketAddressPathAsArray   ,-    getUnixSocketAddressPathAsArray         ,-#if ENABLE_OVERLOADING-    unixSocketAddressPathAsArray            ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress---- | Memory-managed wrapper type.-newtype UnixSocketAddress = UnixSocketAddress (ManagedPtr UnixSocketAddress)-foreign import ccall "g_unix_socket_address_get_type"-    c_g_unix_socket_address_get_type :: IO GType--instance GObject UnixSocketAddress where-    gobjectType = c_g_unix_socket_address_get_type-    ---- | Type class for types which can be safely cast to `UnixSocketAddress`, for instance with `toUnixSocketAddress`.-class (GObject o, O.IsDescendantOf UnixSocketAddress o) => IsUnixSocketAddress o-instance (GObject o, O.IsDescendantOf UnixSocketAddress o) => IsUnixSocketAddress o--instance O.HasParentTypes UnixSocketAddress-type instance O.ParentTypes UnixSocketAddress = '[Gio.SocketAddress.SocketAddress, GObject.Object.Object, Gio.SocketConnectable.SocketConnectable]---- | Cast to `UnixSocketAddress`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toUnixSocketAddress :: (MonadIO m, IsUnixSocketAddress o) => o -> m UnixSocketAddress-toUnixSocketAddress = liftIO . unsafeCastTo UnixSocketAddress---- | A convenience alias for `Nothing` :: `Maybe` `UnixSocketAddress`.-noUnixSocketAddress :: Maybe UnixSocketAddress-noUnixSocketAddress = Nothing--#if ENABLE_OVERLOADING-type family ResolveUnixSocketAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixSocketAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveUnixSocketAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveUnixSocketAddressMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo-    ResolveUnixSocketAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveUnixSocketAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveUnixSocketAddressMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveUnixSocketAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveUnixSocketAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveUnixSocketAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveUnixSocketAddressMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo-    ResolveUnixSocketAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveUnixSocketAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveUnixSocketAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveUnixSocketAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveUnixSocketAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveUnixSocketAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveUnixSocketAddressMethod "toNative" o = Gio.SocketAddress.SocketAddressToNativeMethodInfo-    ResolveUnixSocketAddressMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo-    ResolveUnixSocketAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveUnixSocketAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveUnixSocketAddressMethod "getAddressType" o = UnixSocketAddressGetAddressTypeMethodInfo-    ResolveUnixSocketAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveUnixSocketAddressMethod "getFamily" o = Gio.SocketAddress.SocketAddressGetFamilyMethodInfo-    ResolveUnixSocketAddressMethod "getIsAbstract" o = UnixSocketAddressGetIsAbstractMethodInfo-    ResolveUnixSocketAddressMethod "getNativeSize" o = Gio.SocketAddress.SocketAddressGetNativeSizeMethodInfo-    ResolveUnixSocketAddressMethod "getPath" o = UnixSocketAddressGetPathMethodInfo-    ResolveUnixSocketAddressMethod "getPathLen" o = UnixSocketAddressGetPathLenMethodInfo-    ResolveUnixSocketAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveUnixSocketAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveUnixSocketAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveUnixSocketAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveUnixSocketAddressMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixSocketAddressMethod t UnixSocketAddress, O.MethodInfo info UnixSocketAddress p) => OL.IsLabel t (UnixSocketAddress -> 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---- VVV Prop "abstract"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@abstract@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixSocketAddress #abstract-@--}-getUnixSocketAddressAbstract :: (MonadIO m, IsUnixSocketAddress o) => o -> m Bool-getUnixSocketAddressAbstract obj = liftIO $ B.Properties.getObjectPropertyBool obj "abstract"--{- |-Construct a `GValueConstruct` with valid value for the “@abstract@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixSocketAddressAbstract :: (IsUnixSocketAddress o) => Bool -> IO (GValueConstruct o)-constructUnixSocketAddressAbstract val = B.Properties.constructObjectPropertyBool "abstract" val--#if ENABLE_OVERLOADING-data UnixSocketAddressAbstractPropertyInfo-instance AttrInfo UnixSocketAddressAbstractPropertyInfo where-    type AttrAllowedOps UnixSocketAddressAbstractPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixSocketAddressAbstractPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint UnixSocketAddressAbstractPropertyInfo = IsUnixSocketAddress-    type AttrGetType UnixSocketAddressAbstractPropertyInfo = Bool-    type AttrLabel UnixSocketAddressAbstractPropertyInfo = "abstract"-    type AttrOrigin UnixSocketAddressAbstractPropertyInfo = UnixSocketAddress-    attrGet _ = getUnixSocketAddressAbstract-    attrSet _ = undefined-    attrConstruct _ = constructUnixSocketAddressAbstract-    attrClear _ = undefined-#endif---- VVV Prop "address-type"-   -- Type: TInterface (Name {namespace = "Gio", name = "UnixSocketAddressType"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@address-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixSocketAddress #addressType-@--}-getUnixSocketAddressAddressType :: (MonadIO m, IsUnixSocketAddress o) => o -> m Gio.Enums.UnixSocketAddressType-getUnixSocketAddressAddressType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "address-type"--{- |-Construct a `GValueConstruct` with valid value for the “@address-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixSocketAddressAddressType :: (IsUnixSocketAddress o) => Gio.Enums.UnixSocketAddressType -> IO (GValueConstruct o)-constructUnixSocketAddressAddressType val = B.Properties.constructObjectPropertyEnum "address-type" val--#if ENABLE_OVERLOADING-data UnixSocketAddressAddressTypePropertyInfo-instance AttrInfo UnixSocketAddressAddressTypePropertyInfo where-    type AttrAllowedOps UnixSocketAddressAddressTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint UnixSocketAddressAddressTypePropertyInfo = (~) Gio.Enums.UnixSocketAddressType-    type AttrBaseTypeConstraint UnixSocketAddressAddressTypePropertyInfo = IsUnixSocketAddress-    type AttrGetType UnixSocketAddressAddressTypePropertyInfo = Gio.Enums.UnixSocketAddressType-    type AttrLabel UnixSocketAddressAddressTypePropertyInfo = "address-type"-    type AttrOrigin UnixSocketAddressAddressTypePropertyInfo = UnixSocketAddress-    attrGet _ = getUnixSocketAddressAddressType-    attrSet _ = undefined-    attrConstruct _ = constructUnixSocketAddressAddressType-    attrClear _ = undefined-#endif---- VVV Prop "path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixSocketAddress #path-@--}-getUnixSocketAddressPath :: (MonadIO m, IsUnixSocketAddress o) => o -> m T.Text-getUnixSocketAddressPath obj = liftIO $ checkUnexpectedNothing "getUnixSocketAddressPath" $ B.Properties.getObjectPropertyString obj "path"--{- |-Construct a `GValueConstruct` with valid value for the “@path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixSocketAddressPath :: (IsUnixSocketAddress o) => T.Text -> IO (GValueConstruct o)-constructUnixSocketAddressPath val = B.Properties.constructObjectPropertyString "path" (Just val)--#if ENABLE_OVERLOADING-data UnixSocketAddressPathPropertyInfo-instance AttrInfo UnixSocketAddressPathPropertyInfo where-    type AttrAllowedOps UnixSocketAddressPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint UnixSocketAddressPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint UnixSocketAddressPathPropertyInfo = IsUnixSocketAddress-    type AttrGetType UnixSocketAddressPathPropertyInfo = T.Text-    type AttrLabel UnixSocketAddressPathPropertyInfo = "path"-    type AttrOrigin UnixSocketAddressPathPropertyInfo = UnixSocketAddress-    attrGet _ = getUnixSocketAddressPath-    attrSet _ = undefined-    attrConstruct _ = constructUnixSocketAddressPath-    attrClear _ = undefined-#endif---- VVV Prop "path-as-array"-   -- Type: TByteArray-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@path-as-array@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' unixSocketAddress #pathAsArray-@--}-getUnixSocketAddressPathAsArray :: (MonadIO m, IsUnixSocketAddress o) => o -> m (Maybe ByteString)-getUnixSocketAddressPathAsArray obj = liftIO $ B.Properties.getObjectPropertyByteArray obj "path-as-array"--{- |-Construct a `GValueConstruct` with valid value for the “@path-as-array@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructUnixSocketAddressPathAsArray :: (IsUnixSocketAddress o) => ByteString -> IO (GValueConstruct o)-constructUnixSocketAddressPathAsArray val = B.Properties.constructObjectPropertyByteArray "path-as-array" (Just val)--#if ENABLE_OVERLOADING-data UnixSocketAddressPathAsArrayPropertyInfo-instance AttrInfo UnixSocketAddressPathAsArrayPropertyInfo where-    type AttrAllowedOps UnixSocketAddressPathAsArrayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = (~) ByteString-    type AttrBaseTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = IsUnixSocketAddress-    type AttrGetType UnixSocketAddressPathAsArrayPropertyInfo = (Maybe ByteString)-    type AttrLabel UnixSocketAddressPathAsArrayPropertyInfo = "path-as-array"-    type AttrOrigin UnixSocketAddressPathAsArrayPropertyInfo = UnixSocketAddress-    attrGet _ = getUnixSocketAddressPathAsArray-    attrSet _ = undefined-    attrConstruct _ = constructUnixSocketAddressPathAsArray-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixSocketAddress-type instance O.AttributeList UnixSocketAddress = UnixSocketAddressAttributeList-type UnixSocketAddressAttributeList = ('[ '("abstract", UnixSocketAddressAbstractPropertyInfo), '("addressType", UnixSocketAddressAddressTypePropertyInfo), '("family", Gio.SocketAddress.SocketAddressFamilyPropertyInfo), '("path", UnixSocketAddressPathPropertyInfo), '("pathAsArray", UnixSocketAddressPathAsArrayPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-unixSocketAddressAbstract :: AttrLabelProxy "abstract"-unixSocketAddressAbstract = AttrLabelProxy--unixSocketAddressAddressType :: AttrLabelProxy "addressType"-unixSocketAddressAddressType = AttrLabelProxy--unixSocketAddressPath :: AttrLabelProxy "path"-unixSocketAddressPath = AttrLabelProxy--unixSocketAddressPathAsArray :: AttrLabelProxy "pathAsArray"-unixSocketAddressPathAsArray = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList UnixSocketAddress = UnixSocketAddressSignalList-type UnixSocketAddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method UnixSocketAddress::new--- method type : Constructor--- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the socket path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_socket_address_new" g_unix_socket_address_new :: -    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr UnixSocketAddress)--{- |-Creates a new 'GI.Gio.Objects.UnixSocketAddress.UnixSocketAddress' for /@path@/.--To create abstract socket addresses, on systems that support that,-use 'GI.Gio.Objects.UnixSocketAddress.unixSocketAddressNewAbstract'.--/Since: 2.22/--}-unixSocketAddressNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@path@/: the socket path -}-    -> m UnixSocketAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixSocketAddress.UnixSocketAddress' -}-unixSocketAddressNew path = liftIO $ do-    path' <- textToCString path-    result <- g_unix_socket_address_new path'-    checkUnexpectedReturnNULL "unixSocketAddressNew" result-    result' <- (wrapObject UnixSocketAddress) result-    freeMem path'-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixSocketAddress::new_abstract--- method type : Constructor--- Args : [Arg {argCName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the abstract name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @path, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @path, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_socket_address_new_abstract" g_unix_socket_address_new_abstract :: -    Ptr Int8 ->                             -- path : TCArray False (-1) 1 (TBasicType TInt8)-    Int32 ->                                -- path_len : TBasicType TInt-    IO (Ptr UnixSocketAddress)--{-# DEPRECATED unixSocketAddressNewAbstract ["Use 'GI.Gio.Objects.UnixSocketAddress.unixSocketAddressNewWithType'."] #-}-{- |-Creates a new 'GI.Gio.Enums.UnixSocketAddressTypeAbstractPadded'-'GI.Gio.Objects.UnixSocketAddress.UnixSocketAddress' for /@path@/.--}-unixSocketAddressNewAbstract ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Int8]-    {- ^ /@path@/: the abstract name -}-    -> m UnixSocketAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixSocketAddress.UnixSocketAddress' -}-unixSocketAddressNewAbstract path = liftIO $ do-    let pathLen = fromIntegral $ length path-    path' <- packStorableArray path-    result <- g_unix_socket_address_new_abstract path' pathLen-    checkUnexpectedReturnNULL "unixSocketAddressNewAbstract" result-    result' <- (wrapObject UnixSocketAddress) result-    freeMem path'-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixSocketAddress::new_with_type--- method type : Constructor--- Args : [Arg {argCName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @path, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "UnixSocketAddressType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixSocketAddressType", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @path, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_socket_address_new_with_type" g_unix_socket_address_new_with_type :: -    Ptr Int8 ->                             -- path : TCArray False (-1) 1 (TBasicType TInt8)-    Int32 ->                                -- path_len : TBasicType TInt-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "UnixSocketAddressType"})-    IO (Ptr UnixSocketAddress)--{- |-Creates a new 'GI.Gio.Objects.UnixSocketAddress.UnixSocketAddress' of type /@type@/ with name /@path@/.--If /@type@/ is 'GI.Gio.Enums.UnixSocketAddressTypePath', this is equivalent to-calling 'GI.Gio.Objects.UnixSocketAddress.unixSocketAddressNew'.--If /@type@/ is 'GI.Gio.Enums.UnixSocketAddressTypeAnonymous', /@path@/ and /@pathLen@/ will be-ignored.--If /@pathType@/ is 'GI.Gio.Enums.UnixSocketAddressTypeAbstract', then /@pathLen@/-bytes of /@path@/ will be copied to the socket\'s path, and only those-bytes will be considered part of the name. (If /@pathLen@/ is -1,-then /@path@/ is assumed to be NUL-terminated.) For example, if /@path@/-was \"test\", then calling 'GI.Gio.Objects.SocketAddress.socketAddressGetNativeSize' on the-returned socket would return 7 (2 bytes of overhead, 1 byte for the-abstract-socket indicator byte, and 4 bytes for the name \"test\").--If /@pathType@/ is 'GI.Gio.Enums.UnixSocketAddressTypeAbstractPadded', then-/@pathLen@/ bytes of /@path@/ will be copied to the socket\'s path, the-rest of the path will be padded with 0 bytes, and the entire-zero-padded buffer will be considered the name. (As above, if-/@pathLen@/ is -1, then /@path@/ is assumed to be NUL-terminated.) In-this case, 'GI.Gio.Objects.SocketAddress.socketAddressGetNativeSize' will always return-the full size of a @struct sockaddr_un@, although-'GI.Gio.Objects.UnixSocketAddress.unixSocketAddressGetPathLen' will still return just the-length of /@path@/.--'GI.Gio.Enums.UnixSocketAddressTypeAbstract' is preferred over-'GI.Gio.Enums.UnixSocketAddressTypeAbstractPadded' for new programs. Of course,-when connecting to a server created by another process, you must-use the appropriate type corresponding to how that process created-its listening socket.--/Since: 2.26/--}-unixSocketAddressNewWithType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Int8]-    {- ^ /@path@/: the name -}-    -> Gio.Enums.UnixSocketAddressType-    {- ^ /@type@/: a 'GI.Gio.Enums.UnixSocketAddressType' -}-    -> m UnixSocketAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.UnixSocketAddress.UnixSocketAddress' -}-unixSocketAddressNewWithType path type_ = liftIO $ do-    let pathLen = fromIntegral $ length path-    path' <- packStorableArray path-    let type_' = (fromIntegral . fromEnum) type_-    result <- g_unix_socket_address_new_with_type path' pathLen type_'-    checkUnexpectedReturnNULL "unixSocketAddressNewWithType" result-    result' <- (wrapObject UnixSocketAddress) result-    freeMem path'-    return result'--#if ENABLE_OVERLOADING-#endif---- method UnixSocketAddress::get_address_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetSocketAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixSocketAddressType"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_socket_address_get_address_type" g_unix_socket_address_get_address_type :: -    Ptr UnixSocketAddress ->                -- address : TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"})-    IO CUInt--{- |-Gets /@address@/\'s type.--/Since: 2.26/--}-unixSocketAddressGetAddressType ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' -}-    -> m Gio.Enums.UnixSocketAddressType-    {- ^ __Returns:__ a 'GI.Gio.Enums.UnixSocketAddressType' -}-unixSocketAddressGetAddressType address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_unix_socket_address_get_address_type address'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data UnixSocketAddressGetAddressTypeMethodInfo-instance (signature ~ (m Gio.Enums.UnixSocketAddressType), MonadIO m, IsUnixSocketAddress a) => O.MethodInfo UnixSocketAddressGetAddressTypeMethodInfo a signature where-    overloadedMethod _ = unixSocketAddressGetAddressType--#endif---- method UnixSocketAddress::get_is_abstract--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetSocketAddress", 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 "g_unix_socket_address_get_is_abstract" g_unix_socket_address_get_is_abstract :: -    Ptr UnixSocketAddress ->                -- address : TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"})-    IO CInt--{-# DEPRECATED unixSocketAddressGetIsAbstract ["Use 'GI.Gio.Objects.UnixSocketAddress.unixSocketAddressGetAddressType'"] #-}-{- |-Tests if /@address@/ is abstract.--/Since: 2.22/--}-unixSocketAddressGetIsAbstract ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the address is abstract, 'False' otherwise -}-unixSocketAddressGetIsAbstract address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_unix_socket_address_get_is_abstract address'-    let result' = (/= 0) result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data UnixSocketAddressGetIsAbstractMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsUnixSocketAddress a) => O.MethodInfo UnixSocketAddressGetIsAbstractMethodInfo a signature where-    overloadedMethod _ = unixSocketAddressGetIsAbstract--#endif---- method UnixSocketAddress::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetSocketAddress", 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 "g_unix_socket_address_get_path" g_unix_socket_address_get_path :: -    Ptr UnixSocketAddress ->                -- address : TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"})-    IO CString--{- |-Gets /@address@/\'s path, or for abstract sockets the \"name\".--Guaranteed to be zero-terminated, but an abstract socket-may contain embedded zeros, and thus you should use-'GI.Gio.Objects.UnixSocketAddress.unixSocketAddressGetPathLen' to get the true length-of this string.--/Since: 2.22/--}-unixSocketAddressGetPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' -}-    -> m T.Text-    {- ^ __Returns:__ the path for /@address@/ -}-unixSocketAddressGetPath address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_unix_socket_address_get_path address'-    checkUnexpectedReturnNULL "unixSocketAddressGetPath" result-    result' <- cstringToText result-    touchManagedPtr address-    return result'--#if ENABLE_OVERLOADING-data UnixSocketAddressGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsUnixSocketAddress a) => O.MethodInfo UnixSocketAddressGetPathMethodInfo a signature where-    overloadedMethod _ = unixSocketAddressGetPath--#endif---- method UnixSocketAddress::get_path_len--- method type : OrdinaryMethod--- Args : [Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GInetSocketAddress", 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 "g_unix_socket_address_get_path_len" g_unix_socket_address_get_path_len :: -    Ptr UnixSocketAddress ->                -- address : TInterface (Name {namespace = "Gio", name = "UnixSocketAddress"})-    IO Word64--{- |-Gets the length of /@address@/\'s path.--For details, see 'GI.Gio.Objects.UnixSocketAddress.unixSocketAddressGetPath'.--/Since: 2.22/--}-unixSocketAddressGetPathLen ::-    (B.CallStack.HasCallStack, MonadIO m, IsUnixSocketAddress a) =>-    a-    {- ^ /@address@/: a 'GI.Gio.Objects.InetSocketAddress.InetSocketAddress' -}-    -> m Word64-    {- ^ __Returns:__ the length of the path -}-unixSocketAddressGetPathLen address = liftIO $ do-    address' <- unsafeManagedPtrCastPtr address-    result <- g_unix_socket_address_get_path_len address'-    touchManagedPtr address-    return result--#if ENABLE_OVERLOADING-data UnixSocketAddressGetPathLenMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsUnixSocketAddress a) => O.MethodInfo UnixSocketAddressGetPathLenMethodInfo a signature where-    overloadedMethod _ = unixSocketAddressGetPathLen--#endif---- method UnixSocketAddress::abstract_names_supported--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "g_unix_socket_address_abstract_names_supported" g_unix_socket_address_abstract_names_supported :: -    IO CInt--{- |-Checks if abstract UNIX domain socket names are supported.--/Since: 2.22/--}-unixSocketAddressAbstractNamesSupported ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Bool-    {- ^ __Returns:__ 'True' if supported, 'False' otherwise -}-unixSocketAddressAbstractNamesSupported  = liftIO $ do-    result <- g_unix_socket_address_abstract_names_supported-    let result' = (/= 0) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/UnixSocketAddress.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.UnixSocketAddress 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 UnixSocketAddress = UnixSocketAddress (ManagedPtr UnixSocketAddress)-instance GObject UnixSocketAddress where-class (GObject o, O.IsDescendantOf UnixSocketAddress o) => IsUnixSocketAddress o-instance (GObject o, O.IsDescendantOf UnixSocketAddress o) => IsUnixSocketAddress o-instance O.HasParentTypes UnixSocketAddress-#if ENABLE_OVERLOADING-data UnixSocketAddressAbstractPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixSocketAddressAddressTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixSocketAddressPathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixSocketAddressPathAsArrayPropertyInfo-#endif-#if ENABLE_OVERLOADING-data UnixSocketAddressGetAddressTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixSocketAddressGetIsAbstractMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixSocketAddressGetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixSocketAddressGetPathLenMethodInfo-#endif
− GI/Gio/Objects/Vfs.hs 
@@ -1,590 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Entry point for using GIO functionality.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.Vfs-    ( ---- * Exported types-    Vfs(..)                                 ,-    IsVfs                                   ,-    toVfs                                   ,-    noVfs                                   ,--- -- * Methods--- ** getDefault #method:getDefault#--    vfsGetDefault                           ,----- ** getFileForPath #method:getFileForPath#--#if ENABLE_OVERLOADING-    VfsGetFileForPathMethodInfo             ,-#endif-    vfsGetFileForPath                       ,----- ** getFileForUri #method:getFileForUri#--#if ENABLE_OVERLOADING-    VfsGetFileForUriMethodInfo              ,-#endif-    vfsGetFileForUri                        ,----- ** getLocal #method:getLocal#--    vfsGetLocal                             ,----- ** getSupportedUriSchemes #method:getSupportedUriSchemes#--#if ENABLE_OVERLOADING-    VfsGetSupportedUriSchemesMethodInfo     ,-#endif-    vfsGetSupportedUriSchemes               ,----- ** isActive #method:isActive#--#if ENABLE_OVERLOADING-    VfsIsActiveMethodInfo                   ,-#endif-    vfsIsActive                             ,----- ** parseName #method:parseName#--#if ENABLE_OVERLOADING-    VfsParseNameMethodInfo                  ,-#endif-    vfsParseName                            ,----- ** registerUriScheme #method:registerUriScheme#--#if ENABLE_OVERLOADING-    VfsRegisterUriSchemeMethodInfo          ,-#endif-    vfsRegisterUriScheme                    ,----- ** unregisterUriScheme #method:unregisterUriScheme#--#if ENABLE_OVERLOADING-    VfsUnregisterUriSchemeMethodInfo        ,-#endif-    vfsUnregisterUriScheme                  ,-----    ) 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.Callbacks as GLib.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File---- | Memory-managed wrapper type.-newtype Vfs = Vfs (ManagedPtr Vfs)-foreign import ccall "g_vfs_get_type"-    c_g_vfs_get_type :: IO GType--instance GObject Vfs where-    gobjectType = c_g_vfs_get_type-    ---- | Type class for types which can be safely cast to `Vfs`, for instance with `toVfs`.-class (GObject o, O.IsDescendantOf Vfs o) => IsVfs o-instance (GObject o, O.IsDescendantOf Vfs o) => IsVfs o--instance O.HasParentTypes Vfs-type instance O.ParentTypes Vfs = '[GObject.Object.Object]---- | Cast to `Vfs`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toVfs :: (MonadIO m, IsVfs o) => o -> m Vfs-toVfs = liftIO . unsafeCastTo Vfs---- | A convenience alias for `Nothing` :: `Maybe` `Vfs`.-noVfs :: Maybe Vfs-noVfs = Nothing--#if ENABLE_OVERLOADING-type family ResolveVfsMethod (t :: Symbol) (o :: *) :: * where-    ResolveVfsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveVfsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveVfsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveVfsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveVfsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveVfsMethod "isActive" o = VfsIsActiveMethodInfo-    ResolveVfsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveVfsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveVfsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveVfsMethod "parseName" o = VfsParseNameMethodInfo-    ResolveVfsMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveVfsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveVfsMethod "registerUriScheme" o = VfsRegisterUriSchemeMethodInfo-    ResolveVfsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveVfsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveVfsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveVfsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveVfsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveVfsMethod "unregisterUriScheme" o = VfsUnregisterUriSchemeMethodInfo-    ResolveVfsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveVfsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveVfsMethod "getFileForPath" o = VfsGetFileForPathMethodInfo-    ResolveVfsMethod "getFileForUri" o = VfsGetFileForUriMethodInfo-    ResolveVfsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveVfsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveVfsMethod "getSupportedUriSchemes" o = VfsGetSupportedUriSchemesMethodInfo-    ResolveVfsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveVfsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveVfsMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveVfsMethod t Vfs, O.MethodInfo info Vfs p) => OL.IsLabel t (Vfs -> 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--#if ENABLE_OVERLOADING-instance O.HasAttributeList Vfs-type instance O.AttributeList Vfs = VfsAttributeList-type VfsAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Vfs = VfsSignalList-type VfsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Vfs::get_file_for_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVfs.", 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 "a string containing a VFS path.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_file_for_path" g_vfs_get_file_for_path :: -    Ptr Vfs ->                              -- vfs : TInterface (Name {namespace = "Gio", name = "Vfs"})-    CString ->                              -- path : TBasicType TUTF8-    IO (Ptr Gio.File.File)--{- |-Gets a 'GI.Gio.Interfaces.File.File' for /@path@/.--}-vfsGetFileForPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsVfs a) =>-    a-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs'. -}-    -> T.Text-    {- ^ /@path@/: a string containing a VFS path. -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File'.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-vfsGetFileForPath vfs path = liftIO $ do-    vfs' <- unsafeManagedPtrCastPtr vfs-    path' <- textToCString path-    result <- g_vfs_get_file_for_path vfs' path'-    checkUnexpectedReturnNULL "vfsGetFileForPath" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr vfs-    freeMem path'-    return result'--#if ENABLE_OVERLOADING-data VfsGetFileForPathMethodInfo-instance (signature ~ (T.Text -> m Gio.File.File), MonadIO m, IsVfs a) => O.MethodInfo VfsGetFileForPathMethodInfo a signature where-    overloadedMethod _ = vfsGetFileForPath--#endif---- method Vfs::get_file_for_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a#GVfs.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing a URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_file_for_uri" g_vfs_get_file_for_uri :: -    Ptr Vfs ->                              -- vfs : TInterface (Name {namespace = "Gio", name = "Vfs"})-    CString ->                              -- uri : TBasicType TUTF8-    IO (Ptr Gio.File.File)--{- |-Gets a 'GI.Gio.Interfaces.File.File' for /@uri@/.--This operation never fails, but the returned object-might not support any I\/O operation if the URI-is malformed or if the URI scheme is not supported.--}-vfsGetFileForUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsVfs a) =>-    a-    {- ^ /@vfs@/: a'GI.Gio.Objects.Vfs.Vfs'. -}-    -> T.Text-    {- ^ /@uri@/: a string containing a URI -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File'.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-vfsGetFileForUri vfs uri = liftIO $ do-    vfs' <- unsafeManagedPtrCastPtr vfs-    uri' <- textToCString uri-    result <- g_vfs_get_file_for_uri vfs' uri'-    checkUnexpectedReturnNULL "vfsGetFileForUri" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr vfs-    freeMem uri'-    return result'--#if ENABLE_OVERLOADING-data VfsGetFileForUriMethodInfo-instance (signature ~ (T.Text -> m Gio.File.File), MonadIO m, IsVfs a) => O.MethodInfo VfsGetFileForUriMethodInfo a signature where-    overloadedMethod _ = vfsGetFileForUri--#endif---- method Vfs::get_supported_uri_schemes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVfs.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_supported_uri_schemes" g_vfs_get_supported_uri_schemes :: -    Ptr Vfs ->                              -- vfs : TInterface (Name {namespace = "Gio", name = "Vfs"})-    IO (Ptr CString)--{- |-Gets a list of URI schemes supported by /@vfs@/.--}-vfsGetSupportedUriSchemes ::-    (B.CallStack.HasCallStack, MonadIO m, IsVfs a) =>-    a-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs'. -}-    -> m [T.Text]-    {- ^ __Returns:__ a 'Nothing'-terminated array of strings.-    The returned array belongs to GIO and must-    not be freed or modified. -}-vfsGetSupportedUriSchemes vfs = liftIO $ do-    vfs' <- unsafeManagedPtrCastPtr vfs-    result <- g_vfs_get_supported_uri_schemes vfs'-    checkUnexpectedReturnNULL "vfsGetSupportedUriSchemes" result-    result' <- unpackZeroTerminatedUTF8CArray result-    touchManagedPtr vfs-    return result'--#if ENABLE_OVERLOADING-data VfsGetSupportedUriSchemesMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsVfs a) => O.MethodInfo VfsGetSupportedUriSchemesMethodInfo a signature where-    overloadedMethod _ = vfsGetSupportedUriSchemes--#endif---- method Vfs::is_active--- method type : OrdinaryMethod--- Args : [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVfs.", 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 "g_vfs_is_active" g_vfs_is_active :: -    Ptr Vfs ->                              -- vfs : TInterface (Name {namespace = "Gio", name = "Vfs"})-    IO CInt--{- |-Checks if the VFS is active.--}-vfsIsActive ::-    (B.CallStack.HasCallStack, MonadIO m, IsVfs a) =>-    a-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if construction of the /@vfs@/ was successful-    and it is now active. -}-vfsIsActive vfs = liftIO $ do-    vfs' <- unsafeManagedPtrCastPtr vfs-    result <- g_vfs_is_active vfs'-    let result' = (/= 0) result-    touchManagedPtr vfs-    return result'--#if ENABLE_OVERLOADING-data VfsIsActiveMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsVfs a) => O.MethodInfo VfsIsActiveMethodInfo a signature where-    overloadedMethod _ = vfsIsActive--#endif---- method Vfs::parse_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVfs.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string to be parsed by the VFS module.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "g_vfs_parse_name" g_vfs_parse_name :: -    Ptr Vfs ->                              -- vfs : TInterface (Name {namespace = "Gio", name = "Vfs"})-    CString ->                              -- parse_name : TBasicType TUTF8-    IO (Ptr Gio.File.File)--{- |-This operation never fails, but the returned object might-not support any I\/O operations if the /@parseName@/ cannot-be parsed by the 'GI.Gio.Objects.Vfs.Vfs' module.--}-vfsParseName ::-    (B.CallStack.HasCallStack, MonadIO m, IsVfs a) =>-    a-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs'. -}-    -> T.Text-    {- ^ /@parseName@/: a string to be parsed by the VFS module. -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' for the given /@parseName@/.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-vfsParseName vfs parseName = liftIO $ do-    vfs' <- unsafeManagedPtrCastPtr vfs-    parseName' <- textToCString parseName-    result <- g_vfs_parse_name vfs' parseName'-    checkUnexpectedReturnNULL "vfsParseName" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr vfs-    freeMem parseName'-    return result'--#if ENABLE_OVERLOADING-data VfsParseNameMethodInfo-instance (signature ~ (T.Text -> m Gio.File.File), MonadIO m, IsVfs a) => O.MethodInfo VfsParseNameMethodInfo a signature where-    overloadedMethod _ = vfsParseName--#endif---- method Vfs::register_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVfs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an URI scheme, e.g. \"http\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_func", argType = TInterface (Name {namespace = "Gio", name = "VfsFileLookupFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVfsFileLookupFunc", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "custom data passed to be passed to @uri_func, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "function to be called when unregistering the\n    URI scheme, or when @vfs is disposed, to free the resources used\n    by the URI lookup function", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parse_name_func", argType = TInterface (Name {namespace = "Gio", name = "VfsFileLookupFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GVfsFileLookupFunc", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 6, argDestroy = 7, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parse_name_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "custom data passed to be passed to\n    @parse_name_func, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parse_name_destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "function to be called when unregistering the\n    URI scheme, or when @vfs is disposed, to free the resources used\n    by the parse name lookup function", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "g_vfs_register_uri_scheme" g_vfs_register_uri_scheme :: -    Ptr Vfs ->                              -- vfs : TInterface (Name {namespace = "Gio", name = "Vfs"})-    CString ->                              -- scheme : TBasicType TUTF8-    FunPtr Gio.Callbacks.C_VfsFileLookupFunc -> -- uri_func : TInterface (Name {namespace = "Gio", name = "VfsFileLookupFunc"})-    Ptr () ->                               -- uri_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- uri_destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    FunPtr Gio.Callbacks.C_VfsFileLookupFunc -> -- parse_name_func : TInterface (Name {namespace = "Gio", name = "VfsFileLookupFunc"})-    Ptr () ->                               -- parse_name_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- parse_name_destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO CInt--{- |-Registers /@uriFunc@/ and /@parseNameFunc@/ as the 'GI.Gio.Interfaces.File.File' URI and parse name-lookup functions for URIs with a scheme matching /@scheme@/.-Note that /@scheme@/ is registered only within the running application, as-opposed to desktop-wide as it happens with GVfs backends.--When a 'GI.Gio.Interfaces.File.File' is requested with an URI containing /@scheme@/ (e.g. through-'GI.Gio.Functions.fileNewForUri'), /@uriFunc@/ will be called to allow a custom-constructor. The implementation of /@uriFunc@/ should not be blocking, and-must not call 'GI.Gio.Objects.Vfs.vfsRegisterUriScheme' or 'GI.Gio.Objects.Vfs.vfsUnregisterUriScheme'.--When 'GI.Gio.Functions.fileParseName' is called with a parse name obtained from such file,-/@parseNameFunc@/ will be called to allow the 'GI.Gio.Interfaces.File.File' to be created again. In-that case, it\'s responsibility of /@parseNameFunc@/ to make sure the parse-name matches what the custom 'GI.Gio.Interfaces.File.File' implementation returned when-'GI.Gio.Interfaces.File.fileGetParseName' was previously called. The implementation of-/@parseNameFunc@/ should not be blocking, and must not call-'GI.Gio.Objects.Vfs.vfsRegisterUriScheme' or 'GI.Gio.Objects.Vfs.vfsUnregisterUriScheme'.--It\'s an error to call this function twice with the same scheme. To unregister-a custom URI scheme, use 'GI.Gio.Objects.Vfs.vfsUnregisterUriScheme'.--/Since: 2.50/--}-vfsRegisterUriScheme ::-    (B.CallStack.HasCallStack, MonadIO m, IsVfs a) =>-    a-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs' -}-    -> T.Text-    {- ^ /@scheme@/: an URI scheme, e.g. \"http\" -}-    -> Maybe (Gio.Callbacks.VfsFileLookupFunc)-    {- ^ /@uriFunc@/: a 'GI.Gio.Callbacks.VfsFileLookupFunc' -}-    -> Maybe (Gio.Callbacks.VfsFileLookupFunc)-    {- ^ /@parseNameFunc@/: a 'GI.Gio.Callbacks.VfsFileLookupFunc' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@scheme@/ was successfully registered, or 'False' if a handler-    for /@scheme@/ already exists. -}-vfsRegisterUriScheme vfs scheme uriFunc parseNameFunc = liftIO $ do-    vfs' <- unsafeManagedPtrCastPtr vfs-    scheme' <- textToCString scheme-    maybeUriFunc <- case uriFunc of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jUriFunc -> do-            jUriFunc' <- Gio.Callbacks.mk_VfsFileLookupFunc (Gio.Callbacks.wrap_VfsFileLookupFunc Nothing (Gio.Callbacks.drop_closures_VfsFileLookupFunc jUriFunc))-            return jUriFunc'-    maybeParseNameFunc <- case parseNameFunc of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jParseNameFunc -> do-            jParseNameFunc' <- Gio.Callbacks.mk_VfsFileLookupFunc (Gio.Callbacks.wrap_VfsFileLookupFunc Nothing (Gio.Callbacks.drop_closures_VfsFileLookupFunc jParseNameFunc))-            return jParseNameFunc'-    let uriData = castFunPtrToPtr maybeUriFunc-    let uriDestroy = safeFreeFunPtrPtr-    let parseNameData = castFunPtrToPtr maybeParseNameFunc-    let parseNameDestroy = safeFreeFunPtrPtr-    result <- g_vfs_register_uri_scheme vfs' scheme' maybeUriFunc uriData uriDestroy maybeParseNameFunc parseNameData parseNameDestroy-    let result' = (/= 0) result-    touchManagedPtr vfs-    freeMem scheme'-    return result'--#if ENABLE_OVERLOADING-data VfsRegisterUriSchemeMethodInfo-instance (signature ~ (T.Text -> Maybe (Gio.Callbacks.VfsFileLookupFunc) -> Maybe (Gio.Callbacks.VfsFileLookupFunc) -> m Bool), MonadIO m, IsVfs a) => O.MethodInfo VfsRegisterUriSchemeMethodInfo a signature where-    overloadedMethod _ = vfsRegisterUriScheme--#endif---- method Vfs::unregister_uri_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "vfs", argType = TInterface (Name {namespace = "Gio", name = "Vfs"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVfs", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an URI scheme, e.g. \"http\"", 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 "g_vfs_unregister_uri_scheme" g_vfs_unregister_uri_scheme :: -    Ptr Vfs ->                              -- vfs : TInterface (Name {namespace = "Gio", name = "Vfs"})-    CString ->                              -- scheme : TBasicType TUTF8-    IO CInt--{- |-Unregisters the URI handler for /@scheme@/ previously registered with-'GI.Gio.Objects.Vfs.vfsRegisterUriScheme'.--/Since: 2.50/--}-vfsUnregisterUriScheme ::-    (B.CallStack.HasCallStack, MonadIO m, IsVfs a) =>-    a-    {- ^ /@vfs@/: a 'GI.Gio.Objects.Vfs.Vfs' -}-    -> T.Text-    {- ^ /@scheme@/: an URI scheme, e.g. \"http\" -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@scheme@/ was successfully unregistered, or 'False' if a-    handler for /@scheme@/ does not exist. -}-vfsUnregisterUriScheme vfs scheme = liftIO $ do-    vfs' <- unsafeManagedPtrCastPtr vfs-    scheme' <- textToCString scheme-    result <- g_vfs_unregister_uri_scheme vfs' scheme'-    let result' = (/= 0) result-    touchManagedPtr vfs-    freeMem scheme'-    return result'--#if ENABLE_OVERLOADING-data VfsUnregisterUriSchemeMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m, IsVfs a) => O.MethodInfo VfsUnregisterUriSchemeMethodInfo a signature where-    overloadedMethod _ = vfsUnregisterUriScheme--#endif---- method Vfs::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Vfs"}))--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_default" g_vfs_get_default :: -    IO (Ptr Vfs)--{- |-Gets the default 'GI.Gio.Objects.Vfs.Vfs' for the system.--}-vfsGetDefault ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Vfs-    {- ^ __Returns:__ a 'GI.Gio.Objects.Vfs.Vfs'. -}-vfsGetDefault  = liftIO $ do-    result <- g_vfs_get_default-    checkUnexpectedReturnNULL "vfsGetDefault" result-    result' <- (newObject Vfs) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Vfs::get_local--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Vfs"}))--- throws : False--- Skip return : False--foreign import ccall "g_vfs_get_local" g_vfs_get_local :: -    IO (Ptr Vfs)--{- |-Gets the local 'GI.Gio.Objects.Vfs.Vfs' for the system.--}-vfsGetLocal ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Vfs-    {- ^ __Returns:__ a 'GI.Gio.Objects.Vfs.Vfs'. -}-vfsGetLocal  = liftIO $ do-    result <- g_vfs_get_local-    checkUnexpectedReturnNULL "vfsGetLocal" result-    result' <- (newObject Vfs) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/Vfs.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.Vfs 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 Vfs = Vfs (ManagedPtr Vfs)-instance GObject Vfs where-class (GObject o, O.IsDescendantOf Vfs o) => IsVfs o-instance (GObject o, O.IsDescendantOf Vfs o) => IsVfs o-instance O.HasParentTypes Vfs-#if ENABLE_OVERLOADING-data VfsGetFileForPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data VfsGetFileForUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data VfsGetSupportedUriSchemesMethodInfo-#endif-#if ENABLE_OVERLOADING-data VfsIsActiveMethodInfo-#endif-#if ENABLE_OVERLOADING-data VfsParseNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data VfsRegisterUriSchemeMethodInfo-#endif-#if ENABLE_OVERLOADING-data VfsUnregisterUriSchemeMethodInfo-#endif
− GI/Gio/Objects/VolumeMonitor.hs 
@@ -1,1599 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Objects.VolumeMonitor.VolumeMonitor' is for listing the user interesting devices and volumes-on the computer. In other words, what a file selector or file manager-would show in a sidebar.--'GI.Gio.Objects.VolumeMonitor.VolumeMonitor' is not-[thread-default-context aware][g-main-context-push-thread-default],-and so should not be used other than from the main thread, with no-thread-default-context active.--In order to receive updates about volumes and mounts monitored through GVFS,-a main loop must be running.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.VolumeMonitor-    ( ---- * Exported types-    VolumeMonitor(..)                       ,-    IsVolumeMonitor                         ,-    toVolumeMonitor                         ,-    noVolumeMonitor                         ,--- -- * Methods--- ** adoptOrphanMount #method:adoptOrphanMount#--    volumeMonitorAdoptOrphanMount           ,----- ** get #method:get#--    volumeMonitorGet                        ,----- ** getConnectedDrives #method:getConnectedDrives#--#if ENABLE_OVERLOADING-    VolumeMonitorGetConnectedDrivesMethodInfo,-#endif-    volumeMonitorGetConnectedDrives         ,----- ** getMountForUuid #method:getMountForUuid#--#if ENABLE_OVERLOADING-    VolumeMonitorGetMountForUuidMethodInfo  ,-#endif-    volumeMonitorGetMountForUuid            ,----- ** getMounts #method:getMounts#--#if ENABLE_OVERLOADING-    VolumeMonitorGetMountsMethodInfo        ,-#endif-    volumeMonitorGetMounts                  ,----- ** getVolumeForUuid #method:getVolumeForUuid#--#if ENABLE_OVERLOADING-    VolumeMonitorGetVolumeForUuidMethodInfo ,-#endif-    volumeMonitorGetVolumeForUuid           ,----- ** getVolumes #method:getVolumes#--#if ENABLE_OVERLOADING-    VolumeMonitorGetVolumesMethodInfo       ,-#endif-    volumeMonitorGetVolumes                 ,----- -- * Signals--- ** driveChanged #signal:driveChanged#--    C_VolumeMonitorDriveChangedCallback     ,-    VolumeMonitorDriveChangedCallback       ,-#if ENABLE_OVERLOADING-    VolumeMonitorDriveChangedSignalInfo     ,-#endif-    afterVolumeMonitorDriveChanged          ,-    genClosure_VolumeMonitorDriveChanged    ,-    mk_VolumeMonitorDriveChangedCallback    ,-    noVolumeMonitorDriveChangedCallback     ,-    onVolumeMonitorDriveChanged             ,-    wrap_VolumeMonitorDriveChangedCallback  ,----- ** driveConnected #signal:driveConnected#--    C_VolumeMonitorDriveConnectedCallback   ,-    VolumeMonitorDriveConnectedCallback     ,-#if ENABLE_OVERLOADING-    VolumeMonitorDriveConnectedSignalInfo   ,-#endif-    afterVolumeMonitorDriveConnected        ,-    genClosure_VolumeMonitorDriveConnected  ,-    mk_VolumeMonitorDriveConnectedCallback  ,-    noVolumeMonitorDriveConnectedCallback   ,-    onVolumeMonitorDriveConnected           ,-    wrap_VolumeMonitorDriveConnectedCallback,----- ** driveDisconnected #signal:driveDisconnected#--    C_VolumeMonitorDriveDisconnectedCallback,-    VolumeMonitorDriveDisconnectedCallback  ,-#if ENABLE_OVERLOADING-    VolumeMonitorDriveDisconnectedSignalInfo,-#endif-    afterVolumeMonitorDriveDisconnected     ,-    genClosure_VolumeMonitorDriveDisconnected,-    mk_VolumeMonitorDriveDisconnectedCallback,-    noVolumeMonitorDriveDisconnectedCallback,-    onVolumeMonitorDriveDisconnected        ,-    wrap_VolumeMonitorDriveDisconnectedCallback,----- ** driveEjectButton #signal:driveEjectButton#--    C_VolumeMonitorDriveEjectButtonCallback ,-    VolumeMonitorDriveEjectButtonCallback   ,-#if ENABLE_OVERLOADING-    VolumeMonitorDriveEjectButtonSignalInfo ,-#endif-    afterVolumeMonitorDriveEjectButton      ,-    genClosure_VolumeMonitorDriveEjectButton,-    mk_VolumeMonitorDriveEjectButtonCallback,-    noVolumeMonitorDriveEjectButtonCallback ,-    onVolumeMonitorDriveEjectButton         ,-    wrap_VolumeMonitorDriveEjectButtonCallback,----- ** driveStopButton #signal:driveStopButton#--    C_VolumeMonitorDriveStopButtonCallback  ,-    VolumeMonitorDriveStopButtonCallback    ,-#if ENABLE_OVERLOADING-    VolumeMonitorDriveStopButtonSignalInfo  ,-#endif-    afterVolumeMonitorDriveStopButton       ,-    genClosure_VolumeMonitorDriveStopButton ,-    mk_VolumeMonitorDriveStopButtonCallback ,-    noVolumeMonitorDriveStopButtonCallback  ,-    onVolumeMonitorDriveStopButton          ,-    wrap_VolumeMonitorDriveStopButtonCallback,----- ** mountAdded #signal:mountAdded#--    C_VolumeMonitorMountAddedCallback       ,-    VolumeMonitorMountAddedCallback         ,-#if ENABLE_OVERLOADING-    VolumeMonitorMountAddedSignalInfo       ,-#endif-    afterVolumeMonitorMountAdded            ,-    genClosure_VolumeMonitorMountAdded      ,-    mk_VolumeMonitorMountAddedCallback      ,-    noVolumeMonitorMountAddedCallback       ,-    onVolumeMonitorMountAdded               ,-    wrap_VolumeMonitorMountAddedCallback    ,----- ** mountChanged #signal:mountChanged#--    C_VolumeMonitorMountChangedCallback     ,-    VolumeMonitorMountChangedCallback       ,-#if ENABLE_OVERLOADING-    VolumeMonitorMountChangedSignalInfo     ,-#endif-    afterVolumeMonitorMountChanged          ,-    genClosure_VolumeMonitorMountChanged    ,-    mk_VolumeMonitorMountChangedCallback    ,-    noVolumeMonitorMountChangedCallback     ,-    onVolumeMonitorMountChanged             ,-    wrap_VolumeMonitorMountChangedCallback  ,----- ** mountPreUnmount #signal:mountPreUnmount#--    C_VolumeMonitorMountPreUnmountCallback  ,-    VolumeMonitorMountPreUnmountCallback    ,-#if ENABLE_OVERLOADING-    VolumeMonitorMountPreUnmountSignalInfo  ,-#endif-    afterVolumeMonitorMountPreUnmount       ,-    genClosure_VolumeMonitorMountPreUnmount ,-    mk_VolumeMonitorMountPreUnmountCallback ,-    noVolumeMonitorMountPreUnmountCallback  ,-    onVolumeMonitorMountPreUnmount          ,-    wrap_VolumeMonitorMountPreUnmountCallback,----- ** mountRemoved #signal:mountRemoved#--    C_VolumeMonitorMountRemovedCallback     ,-    VolumeMonitorMountRemovedCallback       ,-#if ENABLE_OVERLOADING-    VolumeMonitorMountRemovedSignalInfo     ,-#endif-    afterVolumeMonitorMountRemoved          ,-    genClosure_VolumeMonitorMountRemoved    ,-    mk_VolumeMonitorMountRemovedCallback    ,-    noVolumeMonitorMountRemovedCallback     ,-    onVolumeMonitorMountRemoved             ,-    wrap_VolumeMonitorMountRemovedCallback  ,----- ** volumeAdded #signal:volumeAdded#--    C_VolumeMonitorVolumeAddedCallback      ,-    VolumeMonitorVolumeAddedCallback        ,-#if ENABLE_OVERLOADING-    VolumeMonitorVolumeAddedSignalInfo      ,-#endif-    afterVolumeMonitorVolumeAdded           ,-    genClosure_VolumeMonitorVolumeAdded     ,-    mk_VolumeMonitorVolumeAddedCallback     ,-    noVolumeMonitorVolumeAddedCallback      ,-    onVolumeMonitorVolumeAdded              ,-    wrap_VolumeMonitorVolumeAddedCallback   ,----- ** volumeChanged #signal:volumeChanged#--    C_VolumeMonitorVolumeChangedCallback    ,-    VolumeMonitorVolumeChangedCallback      ,-#if ENABLE_OVERLOADING-    VolumeMonitorVolumeChangedSignalInfo    ,-#endif-    afterVolumeMonitorVolumeChanged         ,-    genClosure_VolumeMonitorVolumeChanged   ,-    mk_VolumeMonitorVolumeChangedCallback   ,-    noVolumeMonitorVolumeChangedCallback    ,-    onVolumeMonitorVolumeChanged            ,-    wrap_VolumeMonitorVolumeChangedCallback ,----- ** volumeRemoved #signal:volumeRemoved#--    C_VolumeMonitorVolumeRemovedCallback    ,-    VolumeMonitorVolumeRemovedCallback      ,-#if ENABLE_OVERLOADING-    VolumeMonitorVolumeRemovedSignalInfo    ,-#endif-    afterVolumeMonitorVolumeRemoved         ,-    genClosure_VolumeMonitorVolumeRemoved   ,-    mk_VolumeMonitorVolumeRemovedCallback   ,-    noVolumeMonitorVolumeRemovedCallback    ,-    onVolumeMonitorVolumeRemoved            ,-    wrap_VolumeMonitorVolumeRemovedCallback ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Drive as Gio.Drive-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Mount as Gio.Mount-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Volume as Gio.Volume---- | Memory-managed wrapper type.-newtype VolumeMonitor = VolumeMonitor (ManagedPtr VolumeMonitor)-foreign import ccall "g_volume_monitor_get_type"-    c_g_volume_monitor_get_type :: IO GType--instance GObject VolumeMonitor where-    gobjectType = c_g_volume_monitor_get_type-    ---- | Type class for types which can be safely cast to `VolumeMonitor`, for instance with `toVolumeMonitor`.-class (GObject o, O.IsDescendantOf VolumeMonitor o) => IsVolumeMonitor o-instance (GObject o, O.IsDescendantOf VolumeMonitor o) => IsVolumeMonitor o--instance O.HasParentTypes VolumeMonitor-type instance O.ParentTypes VolumeMonitor = '[GObject.Object.Object]---- | Cast to `VolumeMonitor`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toVolumeMonitor :: (MonadIO m, IsVolumeMonitor o) => o -> m VolumeMonitor-toVolumeMonitor = liftIO . unsafeCastTo VolumeMonitor---- | A convenience alias for `Nothing` :: `Maybe` `VolumeMonitor`.-noVolumeMonitor :: Maybe VolumeMonitor-noVolumeMonitor = Nothing--#if ENABLE_OVERLOADING-type family ResolveVolumeMonitorMethod (t :: Symbol) (o :: *) :: * where-    ResolveVolumeMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveVolumeMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveVolumeMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveVolumeMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveVolumeMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveVolumeMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveVolumeMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveVolumeMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveVolumeMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveVolumeMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveVolumeMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveVolumeMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveVolumeMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveVolumeMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveVolumeMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveVolumeMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveVolumeMonitorMethod "getConnectedDrives" o = VolumeMonitorGetConnectedDrivesMethodInfo-    ResolveVolumeMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveVolumeMonitorMethod "getMountForUuid" o = VolumeMonitorGetMountForUuidMethodInfo-    ResolveVolumeMonitorMethod "getMounts" o = VolumeMonitorGetMountsMethodInfo-    ResolveVolumeMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveVolumeMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveVolumeMonitorMethod "getVolumeForUuid" o = VolumeMonitorGetVolumeForUuidMethodInfo-    ResolveVolumeMonitorMethod "getVolumes" o = VolumeMonitorGetVolumesMethodInfo-    ResolveVolumeMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveVolumeMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveVolumeMonitorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveVolumeMonitorMethod t VolumeMonitor, O.MethodInfo info VolumeMonitor p) => OL.IsLabel t (VolumeMonitor -> 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 VolumeMonitor::drive-changed-{- |-Emitted when a drive changes.--}-type VolumeMonitorDriveChangedCallback =-    Gio.Drive.Drive-    {- ^ /@drive@/: the drive that changed -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorDriveChangedCallback`@.-noVolumeMonitorDriveChangedCallback :: Maybe VolumeMonitorDriveChangedCallback-noVolumeMonitorDriveChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorDriveChangedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Drive.Drive ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorDriveChangedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorDriveChangedCallback :: C_VolumeMonitorDriveChangedCallback -> IO (FunPtr C_VolumeMonitorDriveChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorDriveChanged :: MonadIO m => VolumeMonitorDriveChangedCallback -> m (GClosure C_VolumeMonitorDriveChangedCallback)-genClosure_VolumeMonitorDriveChanged cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveChangedCallback cb-    mk_VolumeMonitorDriveChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorDriveChangedCallback` into a `C_VolumeMonitorDriveChangedCallback`.-wrap_VolumeMonitorDriveChangedCallback ::-    VolumeMonitorDriveChangedCallback ->-    C_VolumeMonitorDriveChangedCallback-wrap_VolumeMonitorDriveChangedCallback _cb _ drive _ = do-    drive' <- (newObject Gio.Drive.Drive) drive-    _cb  drive'---{- |-Connect a signal handler for the “@drive-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' volumeMonitor #driveChanged callback-@--}-onVolumeMonitorDriveChanged :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveChangedCallback -> m SignalHandlerId-onVolumeMonitorDriveChanged obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveChangedCallback cb-    cb'' <- mk_VolumeMonitorDriveChangedCallback cb'-    connectSignalFunPtr obj "drive-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@drive-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' volumeMonitor #driveChanged callback-@--}-afterVolumeMonitorDriveChanged :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveChangedCallback -> m SignalHandlerId-afterVolumeMonitorDriveChanged obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveChangedCallback cb-    cb'' <- mk_VolumeMonitorDriveChangedCallback cb'-    connectSignalFunPtr obj "drive-changed" cb'' SignalConnectAfter----- signal VolumeMonitor::drive-connected-{- |-Emitted when a drive is connected to the system.--}-type VolumeMonitorDriveConnectedCallback =-    Gio.Drive.Drive-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive' that was connected. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorDriveConnectedCallback`@.-noVolumeMonitorDriveConnectedCallback :: Maybe VolumeMonitorDriveConnectedCallback-noVolumeMonitorDriveConnectedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorDriveConnectedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Drive.Drive ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorDriveConnectedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorDriveConnectedCallback :: C_VolumeMonitorDriveConnectedCallback -> IO (FunPtr C_VolumeMonitorDriveConnectedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorDriveConnected :: MonadIO m => VolumeMonitorDriveConnectedCallback -> m (GClosure C_VolumeMonitorDriveConnectedCallback)-genClosure_VolumeMonitorDriveConnected cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveConnectedCallback cb-    mk_VolumeMonitorDriveConnectedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorDriveConnectedCallback` into a `C_VolumeMonitorDriveConnectedCallback`.-wrap_VolumeMonitorDriveConnectedCallback ::-    VolumeMonitorDriveConnectedCallback ->-    C_VolumeMonitorDriveConnectedCallback-wrap_VolumeMonitorDriveConnectedCallback _cb _ drive _ = do-    drive' <- (newObject Gio.Drive.Drive) drive-    _cb  drive'---{- |-Connect a signal handler for the “@drive-connected@” 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' volumeMonitor #driveConnected callback-@--}-onVolumeMonitorDriveConnected :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveConnectedCallback -> m SignalHandlerId-onVolumeMonitorDriveConnected obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveConnectedCallback cb-    cb'' <- mk_VolumeMonitorDriveConnectedCallback cb'-    connectSignalFunPtr obj "drive-connected" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@drive-connected@” 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' volumeMonitor #driveConnected callback-@--}-afterVolumeMonitorDriveConnected :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveConnectedCallback -> m SignalHandlerId-afterVolumeMonitorDriveConnected obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveConnectedCallback cb-    cb'' <- mk_VolumeMonitorDriveConnectedCallback cb'-    connectSignalFunPtr obj "drive-connected" cb'' SignalConnectAfter----- signal VolumeMonitor::drive-disconnected-{- |-Emitted when a drive is disconnected from the system.--}-type VolumeMonitorDriveDisconnectedCallback =-    Gio.Drive.Drive-    {- ^ /@drive@/: a 'GI.Gio.Interfaces.Drive.Drive' that was disconnected. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorDriveDisconnectedCallback`@.-noVolumeMonitorDriveDisconnectedCallback :: Maybe VolumeMonitorDriveDisconnectedCallback-noVolumeMonitorDriveDisconnectedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorDriveDisconnectedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Drive.Drive ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorDriveDisconnectedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorDriveDisconnectedCallback :: C_VolumeMonitorDriveDisconnectedCallback -> IO (FunPtr C_VolumeMonitorDriveDisconnectedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorDriveDisconnected :: MonadIO m => VolumeMonitorDriveDisconnectedCallback -> m (GClosure C_VolumeMonitorDriveDisconnectedCallback)-genClosure_VolumeMonitorDriveDisconnected cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveDisconnectedCallback cb-    mk_VolumeMonitorDriveDisconnectedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorDriveDisconnectedCallback` into a `C_VolumeMonitorDriveDisconnectedCallback`.-wrap_VolumeMonitorDriveDisconnectedCallback ::-    VolumeMonitorDriveDisconnectedCallback ->-    C_VolumeMonitorDriveDisconnectedCallback-wrap_VolumeMonitorDriveDisconnectedCallback _cb _ drive _ = do-    drive' <- (newObject Gio.Drive.Drive) drive-    _cb  drive'---{- |-Connect a signal handler for the “@drive-disconnected@” 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' volumeMonitor #driveDisconnected callback-@--}-onVolumeMonitorDriveDisconnected :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveDisconnectedCallback -> m SignalHandlerId-onVolumeMonitorDriveDisconnected obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveDisconnectedCallback cb-    cb'' <- mk_VolumeMonitorDriveDisconnectedCallback cb'-    connectSignalFunPtr obj "drive-disconnected" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@drive-disconnected@” 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' volumeMonitor #driveDisconnected callback-@--}-afterVolumeMonitorDriveDisconnected :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveDisconnectedCallback -> m SignalHandlerId-afterVolumeMonitorDriveDisconnected obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveDisconnectedCallback cb-    cb'' <- mk_VolumeMonitorDriveDisconnectedCallback cb'-    connectSignalFunPtr obj "drive-disconnected" cb'' SignalConnectAfter----- signal VolumeMonitor::drive-eject-button-{- |-Emitted when the eject button is pressed on /@drive@/.--/Since: 2.18/--}-type VolumeMonitorDriveEjectButtonCallback =-    Gio.Drive.Drive-    {- ^ /@drive@/: the drive where the eject button was pressed -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorDriveEjectButtonCallback`@.-noVolumeMonitorDriveEjectButtonCallback :: Maybe VolumeMonitorDriveEjectButtonCallback-noVolumeMonitorDriveEjectButtonCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorDriveEjectButtonCallback =-    Ptr () ->                               -- object-    Ptr Gio.Drive.Drive ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorDriveEjectButtonCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorDriveEjectButtonCallback :: C_VolumeMonitorDriveEjectButtonCallback -> IO (FunPtr C_VolumeMonitorDriveEjectButtonCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorDriveEjectButton :: MonadIO m => VolumeMonitorDriveEjectButtonCallback -> m (GClosure C_VolumeMonitorDriveEjectButtonCallback)-genClosure_VolumeMonitorDriveEjectButton cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveEjectButtonCallback cb-    mk_VolumeMonitorDriveEjectButtonCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorDriveEjectButtonCallback` into a `C_VolumeMonitorDriveEjectButtonCallback`.-wrap_VolumeMonitorDriveEjectButtonCallback ::-    VolumeMonitorDriveEjectButtonCallback ->-    C_VolumeMonitorDriveEjectButtonCallback-wrap_VolumeMonitorDriveEjectButtonCallback _cb _ drive _ = do-    drive' <- (newObject Gio.Drive.Drive) drive-    _cb  drive'---{- |-Connect a signal handler for the “@drive-eject-button@” 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' volumeMonitor #driveEjectButton callback-@--}-onVolumeMonitorDriveEjectButton :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveEjectButtonCallback -> m SignalHandlerId-onVolumeMonitorDriveEjectButton obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveEjectButtonCallback cb-    cb'' <- mk_VolumeMonitorDriveEjectButtonCallback cb'-    connectSignalFunPtr obj "drive-eject-button" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@drive-eject-button@” 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' volumeMonitor #driveEjectButton callback-@--}-afterVolumeMonitorDriveEjectButton :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveEjectButtonCallback -> m SignalHandlerId-afterVolumeMonitorDriveEjectButton obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveEjectButtonCallback cb-    cb'' <- mk_VolumeMonitorDriveEjectButtonCallback cb'-    connectSignalFunPtr obj "drive-eject-button" cb'' SignalConnectAfter----- signal VolumeMonitor::drive-stop-button-{- |-Emitted when the stop button is pressed on /@drive@/.--/Since: 2.22/--}-type VolumeMonitorDriveStopButtonCallback =-    Gio.Drive.Drive-    {- ^ /@drive@/: the drive where the stop button was pressed -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorDriveStopButtonCallback`@.-noVolumeMonitorDriveStopButtonCallback :: Maybe VolumeMonitorDriveStopButtonCallback-noVolumeMonitorDriveStopButtonCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorDriveStopButtonCallback =-    Ptr () ->                               -- object-    Ptr Gio.Drive.Drive ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorDriveStopButtonCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorDriveStopButtonCallback :: C_VolumeMonitorDriveStopButtonCallback -> IO (FunPtr C_VolumeMonitorDriveStopButtonCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorDriveStopButton :: MonadIO m => VolumeMonitorDriveStopButtonCallback -> m (GClosure C_VolumeMonitorDriveStopButtonCallback)-genClosure_VolumeMonitorDriveStopButton cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveStopButtonCallback cb-    mk_VolumeMonitorDriveStopButtonCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorDriveStopButtonCallback` into a `C_VolumeMonitorDriveStopButtonCallback`.-wrap_VolumeMonitorDriveStopButtonCallback ::-    VolumeMonitorDriveStopButtonCallback ->-    C_VolumeMonitorDriveStopButtonCallback-wrap_VolumeMonitorDriveStopButtonCallback _cb _ drive _ = do-    drive' <- (newObject Gio.Drive.Drive) drive-    _cb  drive'---{- |-Connect a signal handler for the “@drive-stop-button@” 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' volumeMonitor #driveStopButton callback-@--}-onVolumeMonitorDriveStopButton :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveStopButtonCallback -> m SignalHandlerId-onVolumeMonitorDriveStopButton obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveStopButtonCallback cb-    cb'' <- mk_VolumeMonitorDriveStopButtonCallback cb'-    connectSignalFunPtr obj "drive-stop-button" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@drive-stop-button@” 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' volumeMonitor #driveStopButton callback-@--}-afterVolumeMonitorDriveStopButton :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorDriveStopButtonCallback -> m SignalHandlerId-afterVolumeMonitorDriveStopButton obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorDriveStopButtonCallback cb-    cb'' <- mk_VolumeMonitorDriveStopButtonCallback cb'-    connectSignalFunPtr obj "drive-stop-button" cb'' SignalConnectAfter----- signal VolumeMonitor::mount-added-{- |-Emitted when a mount is added.--}-type VolumeMonitorMountAddedCallback =-    Gio.Mount.Mount-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount' that was added. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorMountAddedCallback`@.-noVolumeMonitorMountAddedCallback :: Maybe VolumeMonitorMountAddedCallback-noVolumeMonitorMountAddedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorMountAddedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Mount.Mount ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorMountAddedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorMountAddedCallback :: C_VolumeMonitorMountAddedCallback -> IO (FunPtr C_VolumeMonitorMountAddedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorMountAdded :: MonadIO m => VolumeMonitorMountAddedCallback -> m (GClosure C_VolumeMonitorMountAddedCallback)-genClosure_VolumeMonitorMountAdded cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountAddedCallback cb-    mk_VolumeMonitorMountAddedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorMountAddedCallback` into a `C_VolumeMonitorMountAddedCallback`.-wrap_VolumeMonitorMountAddedCallback ::-    VolumeMonitorMountAddedCallback ->-    C_VolumeMonitorMountAddedCallback-wrap_VolumeMonitorMountAddedCallback _cb _ mount _ = do-    mount' <- (newObject Gio.Mount.Mount) mount-    _cb  mount'---{- |-Connect a signal handler for the “@mount-added@” 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' volumeMonitor #mountAdded callback-@--}-onVolumeMonitorMountAdded :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorMountAddedCallback -> m SignalHandlerId-onVolumeMonitorMountAdded obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountAddedCallback cb-    cb'' <- mk_VolumeMonitorMountAddedCallback cb'-    connectSignalFunPtr obj "mount-added" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@mount-added@” 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' volumeMonitor #mountAdded callback-@--}-afterVolumeMonitorMountAdded :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorMountAddedCallback -> m SignalHandlerId-afterVolumeMonitorMountAdded obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountAddedCallback cb-    cb'' <- mk_VolumeMonitorMountAddedCallback cb'-    connectSignalFunPtr obj "mount-added" cb'' SignalConnectAfter----- signal VolumeMonitor::mount-changed-{- |-Emitted when a mount changes.--}-type VolumeMonitorMountChangedCallback =-    Gio.Mount.Mount-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount' that changed. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorMountChangedCallback`@.-noVolumeMonitorMountChangedCallback :: Maybe VolumeMonitorMountChangedCallback-noVolumeMonitorMountChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorMountChangedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Mount.Mount ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorMountChangedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorMountChangedCallback :: C_VolumeMonitorMountChangedCallback -> IO (FunPtr C_VolumeMonitorMountChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorMountChanged :: MonadIO m => VolumeMonitorMountChangedCallback -> m (GClosure C_VolumeMonitorMountChangedCallback)-genClosure_VolumeMonitorMountChanged cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountChangedCallback cb-    mk_VolumeMonitorMountChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorMountChangedCallback` into a `C_VolumeMonitorMountChangedCallback`.-wrap_VolumeMonitorMountChangedCallback ::-    VolumeMonitorMountChangedCallback ->-    C_VolumeMonitorMountChangedCallback-wrap_VolumeMonitorMountChangedCallback _cb _ mount _ = do-    mount' <- (newObject Gio.Mount.Mount) mount-    _cb  mount'---{- |-Connect a signal handler for the “@mount-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' volumeMonitor #mountChanged callback-@--}-onVolumeMonitorMountChanged :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorMountChangedCallback -> m SignalHandlerId-onVolumeMonitorMountChanged obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountChangedCallback cb-    cb'' <- mk_VolumeMonitorMountChangedCallback cb'-    connectSignalFunPtr obj "mount-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@mount-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' volumeMonitor #mountChanged callback-@--}-afterVolumeMonitorMountChanged :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorMountChangedCallback -> m SignalHandlerId-afterVolumeMonitorMountChanged obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountChangedCallback cb-    cb'' <- mk_VolumeMonitorMountChangedCallback cb'-    connectSignalFunPtr obj "mount-changed" cb'' SignalConnectAfter----- signal VolumeMonitor::mount-pre-unmount-{- |-May be emitted when a mount is about to be removed.--This signal depends on the backend and is only emitted if-GIO was used to unmount.--}-type VolumeMonitorMountPreUnmountCallback =-    Gio.Mount.Mount-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount' that is being unmounted. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorMountPreUnmountCallback`@.-noVolumeMonitorMountPreUnmountCallback :: Maybe VolumeMonitorMountPreUnmountCallback-noVolumeMonitorMountPreUnmountCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorMountPreUnmountCallback =-    Ptr () ->                               -- object-    Ptr Gio.Mount.Mount ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorMountPreUnmountCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorMountPreUnmountCallback :: C_VolumeMonitorMountPreUnmountCallback -> IO (FunPtr C_VolumeMonitorMountPreUnmountCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorMountPreUnmount :: MonadIO m => VolumeMonitorMountPreUnmountCallback -> m (GClosure C_VolumeMonitorMountPreUnmountCallback)-genClosure_VolumeMonitorMountPreUnmount cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountPreUnmountCallback cb-    mk_VolumeMonitorMountPreUnmountCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorMountPreUnmountCallback` into a `C_VolumeMonitorMountPreUnmountCallback`.-wrap_VolumeMonitorMountPreUnmountCallback ::-    VolumeMonitorMountPreUnmountCallback ->-    C_VolumeMonitorMountPreUnmountCallback-wrap_VolumeMonitorMountPreUnmountCallback _cb _ mount _ = do-    mount' <- (newObject Gio.Mount.Mount) mount-    _cb  mount'---{- |-Connect a signal handler for the “@mount-pre-unmount@” 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' volumeMonitor #mountPreUnmount callback-@--}-onVolumeMonitorMountPreUnmount :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorMountPreUnmountCallback -> m SignalHandlerId-onVolumeMonitorMountPreUnmount obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountPreUnmountCallback cb-    cb'' <- mk_VolumeMonitorMountPreUnmountCallback cb'-    connectSignalFunPtr obj "mount-pre-unmount" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@mount-pre-unmount@” 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' volumeMonitor #mountPreUnmount callback-@--}-afterVolumeMonitorMountPreUnmount :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorMountPreUnmountCallback -> m SignalHandlerId-afterVolumeMonitorMountPreUnmount obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountPreUnmountCallback cb-    cb'' <- mk_VolumeMonitorMountPreUnmountCallback cb'-    connectSignalFunPtr obj "mount-pre-unmount" cb'' SignalConnectAfter----- signal VolumeMonitor::mount-removed-{- |-Emitted when a mount is removed.--}-type VolumeMonitorMountRemovedCallback =-    Gio.Mount.Mount-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount' that was removed. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorMountRemovedCallback`@.-noVolumeMonitorMountRemovedCallback :: Maybe VolumeMonitorMountRemovedCallback-noVolumeMonitorMountRemovedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorMountRemovedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Mount.Mount ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorMountRemovedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorMountRemovedCallback :: C_VolumeMonitorMountRemovedCallback -> IO (FunPtr C_VolumeMonitorMountRemovedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorMountRemoved :: MonadIO m => VolumeMonitorMountRemovedCallback -> m (GClosure C_VolumeMonitorMountRemovedCallback)-genClosure_VolumeMonitorMountRemoved cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountRemovedCallback cb-    mk_VolumeMonitorMountRemovedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorMountRemovedCallback` into a `C_VolumeMonitorMountRemovedCallback`.-wrap_VolumeMonitorMountRemovedCallback ::-    VolumeMonitorMountRemovedCallback ->-    C_VolumeMonitorMountRemovedCallback-wrap_VolumeMonitorMountRemovedCallback _cb _ mount _ = do-    mount' <- (newObject Gio.Mount.Mount) mount-    _cb  mount'---{- |-Connect a signal handler for the “@mount-removed@” 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' volumeMonitor #mountRemoved callback-@--}-onVolumeMonitorMountRemoved :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorMountRemovedCallback -> m SignalHandlerId-onVolumeMonitorMountRemoved obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountRemovedCallback cb-    cb'' <- mk_VolumeMonitorMountRemovedCallback cb'-    connectSignalFunPtr obj "mount-removed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@mount-removed@” 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' volumeMonitor #mountRemoved callback-@--}-afterVolumeMonitorMountRemoved :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorMountRemovedCallback -> m SignalHandlerId-afterVolumeMonitorMountRemoved obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorMountRemovedCallback cb-    cb'' <- mk_VolumeMonitorMountRemovedCallback cb'-    connectSignalFunPtr obj "mount-removed" cb'' SignalConnectAfter----- signal VolumeMonitor::volume-added-{- |-Emitted when a mountable volume is added to the system.--}-type VolumeMonitorVolumeAddedCallback =-    Gio.Volume.Volume-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' that was added. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorVolumeAddedCallback`@.-noVolumeMonitorVolumeAddedCallback :: Maybe VolumeMonitorVolumeAddedCallback-noVolumeMonitorVolumeAddedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorVolumeAddedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Volume.Volume ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorVolumeAddedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorVolumeAddedCallback :: C_VolumeMonitorVolumeAddedCallback -> IO (FunPtr C_VolumeMonitorVolumeAddedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorVolumeAdded :: MonadIO m => VolumeMonitorVolumeAddedCallback -> m (GClosure C_VolumeMonitorVolumeAddedCallback)-genClosure_VolumeMonitorVolumeAdded cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeAddedCallback cb-    mk_VolumeMonitorVolumeAddedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorVolumeAddedCallback` into a `C_VolumeMonitorVolumeAddedCallback`.-wrap_VolumeMonitorVolumeAddedCallback ::-    VolumeMonitorVolumeAddedCallback ->-    C_VolumeMonitorVolumeAddedCallback-wrap_VolumeMonitorVolumeAddedCallback _cb _ volume _ = do-    volume' <- (newObject Gio.Volume.Volume) volume-    _cb  volume'---{- |-Connect a signal handler for the “@volume-added@” 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' volumeMonitor #volumeAdded callback-@--}-onVolumeMonitorVolumeAdded :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorVolumeAddedCallback -> m SignalHandlerId-onVolumeMonitorVolumeAdded obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeAddedCallback cb-    cb'' <- mk_VolumeMonitorVolumeAddedCallback cb'-    connectSignalFunPtr obj "volume-added" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@volume-added@” 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' volumeMonitor #volumeAdded callback-@--}-afterVolumeMonitorVolumeAdded :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorVolumeAddedCallback -> m SignalHandlerId-afterVolumeMonitorVolumeAdded obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeAddedCallback cb-    cb'' <- mk_VolumeMonitorVolumeAddedCallback cb'-    connectSignalFunPtr obj "volume-added" cb'' SignalConnectAfter----- signal VolumeMonitor::volume-changed-{- |-Emitted when mountable volume is changed.--}-type VolumeMonitorVolumeChangedCallback =-    Gio.Volume.Volume-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' that changed. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorVolumeChangedCallback`@.-noVolumeMonitorVolumeChangedCallback :: Maybe VolumeMonitorVolumeChangedCallback-noVolumeMonitorVolumeChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorVolumeChangedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Volume.Volume ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorVolumeChangedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorVolumeChangedCallback :: C_VolumeMonitorVolumeChangedCallback -> IO (FunPtr C_VolumeMonitorVolumeChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorVolumeChanged :: MonadIO m => VolumeMonitorVolumeChangedCallback -> m (GClosure C_VolumeMonitorVolumeChangedCallback)-genClosure_VolumeMonitorVolumeChanged cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeChangedCallback cb-    mk_VolumeMonitorVolumeChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorVolumeChangedCallback` into a `C_VolumeMonitorVolumeChangedCallback`.-wrap_VolumeMonitorVolumeChangedCallback ::-    VolumeMonitorVolumeChangedCallback ->-    C_VolumeMonitorVolumeChangedCallback-wrap_VolumeMonitorVolumeChangedCallback _cb _ volume _ = do-    volume' <- (newObject Gio.Volume.Volume) volume-    _cb  volume'---{- |-Connect a signal handler for the “@volume-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' volumeMonitor #volumeChanged callback-@--}-onVolumeMonitorVolumeChanged :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorVolumeChangedCallback -> m SignalHandlerId-onVolumeMonitorVolumeChanged obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeChangedCallback cb-    cb'' <- mk_VolumeMonitorVolumeChangedCallback cb'-    connectSignalFunPtr obj "volume-changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@volume-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' volumeMonitor #volumeChanged callback-@--}-afterVolumeMonitorVolumeChanged :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorVolumeChangedCallback -> m SignalHandlerId-afterVolumeMonitorVolumeChanged obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeChangedCallback cb-    cb'' <- mk_VolumeMonitorVolumeChangedCallback cb'-    connectSignalFunPtr obj "volume-changed" cb'' SignalConnectAfter----- signal VolumeMonitor::volume-removed-{- |-Emitted when a mountable volume is removed from the system.--}-type VolumeMonitorVolumeRemovedCallback =-    Gio.Volume.Volume-    {- ^ /@volume@/: a 'GI.Gio.Interfaces.Volume.Volume' that was removed. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `VolumeMonitorVolumeRemovedCallback`@.-noVolumeMonitorVolumeRemovedCallback :: Maybe VolumeMonitorVolumeRemovedCallback-noVolumeMonitorVolumeRemovedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_VolumeMonitorVolumeRemovedCallback =-    Ptr () ->                               -- object-    Ptr Gio.Volume.Volume ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_VolumeMonitorVolumeRemovedCallback`.-foreign import ccall "wrapper"-    mk_VolumeMonitorVolumeRemovedCallback :: C_VolumeMonitorVolumeRemovedCallback -> IO (FunPtr C_VolumeMonitorVolumeRemovedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_VolumeMonitorVolumeRemoved :: MonadIO m => VolumeMonitorVolumeRemovedCallback -> m (GClosure C_VolumeMonitorVolumeRemovedCallback)-genClosure_VolumeMonitorVolumeRemoved cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeRemovedCallback cb-    mk_VolumeMonitorVolumeRemovedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `VolumeMonitorVolumeRemovedCallback` into a `C_VolumeMonitorVolumeRemovedCallback`.-wrap_VolumeMonitorVolumeRemovedCallback ::-    VolumeMonitorVolumeRemovedCallback ->-    C_VolumeMonitorVolumeRemovedCallback-wrap_VolumeMonitorVolumeRemovedCallback _cb _ volume _ = do-    volume' <- (newObject Gio.Volume.Volume) volume-    _cb  volume'---{- |-Connect a signal handler for the “@volume-removed@” 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' volumeMonitor #volumeRemoved callback-@--}-onVolumeMonitorVolumeRemoved :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorVolumeRemovedCallback -> m SignalHandlerId-onVolumeMonitorVolumeRemoved obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeRemovedCallback cb-    cb'' <- mk_VolumeMonitorVolumeRemovedCallback cb'-    connectSignalFunPtr obj "volume-removed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@volume-removed@” 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' volumeMonitor #volumeRemoved callback-@--}-afterVolumeMonitorVolumeRemoved :: (IsVolumeMonitor a, MonadIO m) => a -> VolumeMonitorVolumeRemovedCallback -> m SignalHandlerId-afterVolumeMonitorVolumeRemoved obj cb = liftIO $ do-    let cb' = wrap_VolumeMonitorVolumeRemovedCallback cb-    cb'' <- mk_VolumeMonitorVolumeRemovedCallback cb'-    connectSignalFunPtr obj "volume-removed" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList VolumeMonitor-type instance O.AttributeList VolumeMonitor = VolumeMonitorAttributeList-type VolumeMonitorAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data VolumeMonitorDriveChangedSignalInfo-instance SignalInfo VolumeMonitorDriveChangedSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveChangedSignalInfo = VolumeMonitorDriveChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorDriveChangedCallback cb-        cb'' <- mk_VolumeMonitorDriveChangedCallback cb'-        connectSignalFunPtr obj "drive-changed" cb'' connectMode--data VolumeMonitorDriveConnectedSignalInfo-instance SignalInfo VolumeMonitorDriveConnectedSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveConnectedSignalInfo = VolumeMonitorDriveConnectedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorDriveConnectedCallback cb-        cb'' <- mk_VolumeMonitorDriveConnectedCallback cb'-        connectSignalFunPtr obj "drive-connected" cb'' connectMode--data VolumeMonitorDriveDisconnectedSignalInfo-instance SignalInfo VolumeMonitorDriveDisconnectedSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveDisconnectedSignalInfo = VolumeMonitorDriveDisconnectedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorDriveDisconnectedCallback cb-        cb'' <- mk_VolumeMonitorDriveDisconnectedCallback cb'-        connectSignalFunPtr obj "drive-disconnected" cb'' connectMode--data VolumeMonitorDriveEjectButtonSignalInfo-instance SignalInfo VolumeMonitorDriveEjectButtonSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveEjectButtonSignalInfo = VolumeMonitorDriveEjectButtonCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorDriveEjectButtonCallback cb-        cb'' <- mk_VolumeMonitorDriveEjectButtonCallback cb'-        connectSignalFunPtr obj "drive-eject-button" cb'' connectMode--data VolumeMonitorDriveStopButtonSignalInfo-instance SignalInfo VolumeMonitorDriveStopButtonSignalInfo where-    type HaskellCallbackType VolumeMonitorDriveStopButtonSignalInfo = VolumeMonitorDriveStopButtonCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorDriveStopButtonCallback cb-        cb'' <- mk_VolumeMonitorDriveStopButtonCallback cb'-        connectSignalFunPtr obj "drive-stop-button" cb'' connectMode--data VolumeMonitorMountAddedSignalInfo-instance SignalInfo VolumeMonitorMountAddedSignalInfo where-    type HaskellCallbackType VolumeMonitorMountAddedSignalInfo = VolumeMonitorMountAddedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorMountAddedCallback cb-        cb'' <- mk_VolumeMonitorMountAddedCallback cb'-        connectSignalFunPtr obj "mount-added" cb'' connectMode--data VolumeMonitorMountChangedSignalInfo-instance SignalInfo VolumeMonitorMountChangedSignalInfo where-    type HaskellCallbackType VolumeMonitorMountChangedSignalInfo = VolumeMonitorMountChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorMountChangedCallback cb-        cb'' <- mk_VolumeMonitorMountChangedCallback cb'-        connectSignalFunPtr obj "mount-changed" cb'' connectMode--data VolumeMonitorMountPreUnmountSignalInfo-instance SignalInfo VolumeMonitorMountPreUnmountSignalInfo where-    type HaskellCallbackType VolumeMonitorMountPreUnmountSignalInfo = VolumeMonitorMountPreUnmountCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorMountPreUnmountCallback cb-        cb'' <- mk_VolumeMonitorMountPreUnmountCallback cb'-        connectSignalFunPtr obj "mount-pre-unmount" cb'' connectMode--data VolumeMonitorMountRemovedSignalInfo-instance SignalInfo VolumeMonitorMountRemovedSignalInfo where-    type HaskellCallbackType VolumeMonitorMountRemovedSignalInfo = VolumeMonitorMountRemovedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorMountRemovedCallback cb-        cb'' <- mk_VolumeMonitorMountRemovedCallback cb'-        connectSignalFunPtr obj "mount-removed" cb'' connectMode--data VolumeMonitorVolumeAddedSignalInfo-instance SignalInfo VolumeMonitorVolumeAddedSignalInfo where-    type HaskellCallbackType VolumeMonitorVolumeAddedSignalInfo = VolumeMonitorVolumeAddedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorVolumeAddedCallback cb-        cb'' <- mk_VolumeMonitorVolumeAddedCallback cb'-        connectSignalFunPtr obj "volume-added" cb'' connectMode--data VolumeMonitorVolumeChangedSignalInfo-instance SignalInfo VolumeMonitorVolumeChangedSignalInfo where-    type HaskellCallbackType VolumeMonitorVolumeChangedSignalInfo = VolumeMonitorVolumeChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorVolumeChangedCallback cb-        cb'' <- mk_VolumeMonitorVolumeChangedCallback cb'-        connectSignalFunPtr obj "volume-changed" cb'' connectMode--data VolumeMonitorVolumeRemovedSignalInfo-instance SignalInfo VolumeMonitorVolumeRemovedSignalInfo where-    type HaskellCallbackType VolumeMonitorVolumeRemovedSignalInfo = VolumeMonitorVolumeRemovedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_VolumeMonitorVolumeRemovedCallback cb-        cb'' <- mk_VolumeMonitorVolumeRemovedCallback cb'-        connectSignalFunPtr obj "volume-removed" cb'' connectMode--type instance O.SignalList VolumeMonitor = VolumeMonitorSignalList-type VolumeMonitorSignalList = ('[ '("driveChanged", VolumeMonitorDriveChangedSignalInfo), '("driveConnected", VolumeMonitorDriveConnectedSignalInfo), '("driveDisconnected", VolumeMonitorDriveDisconnectedSignalInfo), '("driveEjectButton", VolumeMonitorDriveEjectButtonSignalInfo), '("driveStopButton", VolumeMonitorDriveStopButtonSignalInfo), '("mountAdded", VolumeMonitorMountAddedSignalInfo), '("mountChanged", VolumeMonitorMountChangedSignalInfo), '("mountPreUnmount", VolumeMonitorMountPreUnmountSignalInfo), '("mountRemoved", VolumeMonitorMountRemovedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("volumeAdded", VolumeMonitorVolumeAddedSignalInfo), '("volumeChanged", VolumeMonitorVolumeChangedSignalInfo), '("volumeRemoved", VolumeMonitorVolumeRemovedSignalInfo)] :: [(Symbol, *)])--#endif---- method VolumeMonitor::get_connected_drives--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume_monitor", argType = TInterface (Name {namespace = "Gio", name = "VolumeMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolumeMonitor.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "Drive"})))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get_connected_drives" g_volume_monitor_get_connected_drives :: -    Ptr VolumeMonitor ->                    -- volume_monitor : TInterface (Name {namespace = "Gio", name = "VolumeMonitor"})-    IO (Ptr (GList (Ptr Gio.Drive.Drive)))--{- |-Gets a list of drives connected to the system.--The returned list should be freed with @/g_list_free()/@, after-its elements have been unreffed with 'GI.GObject.Objects.Object.objectUnref'.--}-volumeMonitorGetConnectedDrives ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>-    a-    {- ^ /@volumeMonitor@/: a 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'. -}-    -> m [Gio.Drive.Drive]-    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of connected 'GI.Gio.Interfaces.Drive.Drive' objects. -}-volumeMonitorGetConnectedDrives volumeMonitor = liftIO $ do-    volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor-    result <- g_volume_monitor_get_connected_drives volumeMonitor'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Gio.Drive.Drive) result'-    g_list_free result-    touchManagedPtr volumeMonitor-    return result''--#if ENABLE_OVERLOADING-data VolumeMonitorGetConnectedDrivesMethodInfo-instance (signature ~ (m [Gio.Drive.Drive]), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetConnectedDrivesMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetConnectedDrives--#endif---- method VolumeMonitor::get_mount_for_uuid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume_monitor", argType = TInterface (Name {namespace = "Gio", name = "VolumeMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolumeMonitor.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the UUID to look for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Mount"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get_mount_for_uuid" g_volume_monitor_get_mount_for_uuid :: -    Ptr VolumeMonitor ->                    -- volume_monitor : TInterface (Name {namespace = "Gio", name = "VolumeMonitor"})-    CString ->                              -- uuid : TBasicType TUTF8-    IO (Ptr Gio.Mount.Mount)--{- |-Finds a 'GI.Gio.Interfaces.Mount.Mount' object by its UUID (see 'GI.Gio.Interfaces.Mount.mountGetUuid')--}-volumeMonitorGetMountForUuid ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>-    a-    {- ^ /@volumeMonitor@/: a 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'. -}-    -> T.Text-    {- ^ /@uuid@/: the UUID to look for -}-    -> m Gio.Mount.Mount-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Mount.Mount' or 'Nothing' if no such mount is available.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-volumeMonitorGetMountForUuid volumeMonitor uuid = liftIO $ do-    volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor-    uuid' <- textToCString uuid-    result <- g_volume_monitor_get_mount_for_uuid volumeMonitor' uuid'-    checkUnexpectedReturnNULL "volumeMonitorGetMountForUuid" result-    result' <- (wrapObject Gio.Mount.Mount) result-    touchManagedPtr volumeMonitor-    freeMem uuid'-    return result'--#if ENABLE_OVERLOADING-data VolumeMonitorGetMountForUuidMethodInfo-instance (signature ~ (T.Text -> m Gio.Mount.Mount), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetMountForUuidMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetMountForUuid--#endif---- method VolumeMonitor::get_mounts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume_monitor", argType = TInterface (Name {namespace = "Gio", name = "VolumeMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolumeMonitor.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "Mount"})))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get_mounts" g_volume_monitor_get_mounts :: -    Ptr VolumeMonitor ->                    -- volume_monitor : TInterface (Name {namespace = "Gio", name = "VolumeMonitor"})-    IO (Ptr (GList (Ptr Gio.Mount.Mount)))--{- |-Gets a list of the mounts on the system.--The returned list should be freed with @/g_list_free()/@, after-its elements have been unreffed with 'GI.GObject.Objects.Object.objectUnref'.--}-volumeMonitorGetMounts ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>-    a-    {- ^ /@volumeMonitor@/: a 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'. -}-    -> m [Gio.Mount.Mount]-    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of 'GI.Gio.Interfaces.Mount.Mount' objects. -}-volumeMonitorGetMounts volumeMonitor = liftIO $ do-    volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor-    result <- g_volume_monitor_get_mounts volumeMonitor'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Gio.Mount.Mount) result'-    g_list_free result-    touchManagedPtr volumeMonitor-    return result''--#if ENABLE_OVERLOADING-data VolumeMonitorGetMountsMethodInfo-instance (signature ~ (m [Gio.Mount.Mount]), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetMountsMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetMounts--#endif---- method VolumeMonitor::get_volume_for_uuid--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume_monitor", argType = TInterface (Name {namespace = "Gio", name = "VolumeMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolumeMonitor.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the UUID to look for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Volume"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get_volume_for_uuid" g_volume_monitor_get_volume_for_uuid :: -    Ptr VolumeMonitor ->                    -- volume_monitor : TInterface (Name {namespace = "Gio", name = "VolumeMonitor"})-    CString ->                              -- uuid : TBasicType TUTF8-    IO (Ptr Gio.Volume.Volume)--{- |-Finds a 'GI.Gio.Interfaces.Volume.Volume' object by its UUID (see 'GI.Gio.Interfaces.Volume.volumeGetUuid')--}-volumeMonitorGetVolumeForUuid ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>-    a-    {- ^ /@volumeMonitor@/: a 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'. -}-    -> T.Text-    {- ^ /@uuid@/: the UUID to look for -}-    -> m Gio.Volume.Volume-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Volume.Volume' or 'Nothing' if no such volume is available.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref'. -}-volumeMonitorGetVolumeForUuid volumeMonitor uuid = liftIO $ do-    volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor-    uuid' <- textToCString uuid-    result <- g_volume_monitor_get_volume_for_uuid volumeMonitor' uuid'-    checkUnexpectedReturnNULL "volumeMonitorGetVolumeForUuid" result-    result' <- (wrapObject Gio.Volume.Volume) result-    touchManagedPtr volumeMonitor-    freeMem uuid'-    return result'--#if ENABLE_OVERLOADING-data VolumeMonitorGetVolumeForUuidMethodInfo-instance (signature ~ (T.Text -> m Gio.Volume.Volume), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetVolumeForUuidMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetVolumeForUuid--#endif---- method VolumeMonitor::get_volumes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "volume_monitor", argType = TInterface (Name {namespace = "Gio", name = "VolumeMonitor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVolumeMonitor.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "Volume"})))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get_volumes" g_volume_monitor_get_volumes :: -    Ptr VolumeMonitor ->                    -- volume_monitor : TInterface (Name {namespace = "Gio", name = "VolumeMonitor"})-    IO (Ptr (GList (Ptr Gio.Volume.Volume)))--{- |-Gets a list of the volumes on the system.--The returned list should be freed with @/g_list_free()/@, after-its elements have been unreffed with 'GI.GObject.Objects.Object.objectUnref'.--}-volumeMonitorGetVolumes ::-    (B.CallStack.HasCallStack, MonadIO m, IsVolumeMonitor a) =>-    a-    {- ^ /@volumeMonitor@/: a 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'. -}-    -> m [Gio.Volume.Volume]-    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of 'GI.Gio.Interfaces.Volume.Volume' objects. -}-volumeMonitorGetVolumes volumeMonitor = liftIO $ do-    volumeMonitor' <- unsafeManagedPtrCastPtr volumeMonitor-    result <- g_volume_monitor_get_volumes volumeMonitor'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Gio.Volume.Volume) result'-    g_list_free result-    touchManagedPtr volumeMonitor-    return result''--#if ENABLE_OVERLOADING-data VolumeMonitorGetVolumesMethodInfo-instance (signature ~ (m [Gio.Volume.Volume]), MonadIO m, IsVolumeMonitor a) => O.MethodInfo VolumeMonitorGetVolumesMethodInfo a signature where-    overloadedMethod _ = volumeMonitorGetVolumes--#endif---- method VolumeMonitor::adopt_orphan_mount--- method type : MemberFunction--- Args : [Arg {argCName = "mount", argType = TInterface (Name {namespace = "Gio", name = "Mount"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GMount object to find a parent for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Volume"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_adopt_orphan_mount" g_volume_monitor_adopt_orphan_mount :: -    Ptr Gio.Mount.Mount ->                  -- mount : TInterface (Name {namespace = "Gio", name = "Mount"})-    IO (Ptr Gio.Volume.Volume)--{-# DEPRECATED volumeMonitorAdoptOrphanMount ["(Since version 2.20)","Instead of using this function, 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'","implementations should instead create shadow mounts with the URI of","the mount they intend to adopt. See the proxy volume monitor in","gvfs for an example of this. Also see 'GI.Gio.Interfaces.Mount.mountIsShadowed',","'GI.Gio.Interfaces.Mount.mountShadow' and 'GI.Gio.Interfaces.Mount.mountUnshadow' functions."] #-}-{- |-This function should be called by any 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor'-implementation when a new 'GI.Gio.Interfaces.Mount.Mount' object is created that is not-associated with a 'GI.Gio.Interfaces.Volume.Volume' object. It must be called just before-emitting the /@mountAdded@/ signal.--If the return value is not 'Nothing', the caller must associate the-returned 'GI.Gio.Interfaces.Volume.Volume' object with the 'GI.Gio.Interfaces.Mount.Mount'. This involves returning-it in its 'GI.Gio.Interfaces.Mount.mountGetVolume' implementation. The caller must-also listen for the \"removed\" signal on the returned object-and give up its reference when handling that signal--Similarly, if implementing 'GI.Gio.Objects.VolumeMonitor.volumeMonitorAdoptOrphanMount',-the implementor must take a reference to /@mount@/ and return it in-its 'GI.Gio.Interfaces.Volume.volumeGetMount' implemented. Also, the implementor must-listen for the \"unmounted\" signal on /@mount@/ and give up its-reference upon handling that signal.--There are two main use cases for this function.--One is when implementing a user space file system driver that reads-blocks of a block device that is already represented by the native-volume monitor (for example a CD Audio file system driver). Such-a driver will generate its own 'GI.Gio.Interfaces.Mount.Mount' object that needs to be-associated with the 'GI.Gio.Interfaces.Volume.Volume' object that represents the volume.--The other is for implementing a 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor' whose sole purpose-is to return 'GI.Gio.Interfaces.Volume.Volume' objects representing entries in the users-\"favorite servers\" list or similar.--}-volumeMonitorAdoptOrphanMount ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.Mount.IsMount a) =>-    a-    {- ^ /@mount@/: a 'GI.Gio.Interfaces.Mount.Mount' object to find a parent for -}-    -> m Gio.Volume.Volume-    {- ^ __Returns:__ the 'GI.Gio.Interfaces.Volume.Volume' object that is the parent for /@mount@/ or 'Nothing'-if no wants to adopt the 'GI.Gio.Interfaces.Mount.Mount'. -}-volumeMonitorAdoptOrphanMount mount = liftIO $ do-    mount' <- unsafeManagedPtrCastPtr mount-    result <- g_volume_monitor_adopt_orphan_mount mount'-    checkUnexpectedReturnNULL "volumeMonitorAdoptOrphanMount" result-    result' <- (wrapObject Gio.Volume.Volume) result-    touchManagedPtr mount-    return result'--#if ENABLE_OVERLOADING-#endif---- method VolumeMonitor::get--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "VolumeMonitor"}))--- throws : False--- Skip return : False--foreign import ccall "g_volume_monitor_get" g_volume_monitor_get :: -    IO (Ptr VolumeMonitor)--{- |-Gets the volume monitor used by gio.--}-volumeMonitorGet ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m VolumeMonitor-    {- ^ __Returns:__ a reference to the 'GI.Gio.Objects.VolumeMonitor.VolumeMonitor' used by gio. Call-   'GI.GObject.Objects.Object.objectUnref' when done with it. -}-volumeMonitorGet  = liftIO $ do-    result <- g_volume_monitor_get-    checkUnexpectedReturnNULL "volumeMonitorGet" result-    result' <- (wrapObject VolumeMonitor) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Gio/Objects/VolumeMonitor.hs-boot 
@@ -1,80 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.VolumeMonitor 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 VolumeMonitor = VolumeMonitor (ManagedPtr VolumeMonitor)-instance GObject VolumeMonitor where-class (GObject o, O.IsDescendantOf VolumeMonitor o) => IsVolumeMonitor o-instance (GObject o, O.IsDescendantOf VolumeMonitor o) => IsVolumeMonitor o-instance O.HasParentTypes VolumeMonitor-#if ENABLE_OVERLOADING-data VolumeMonitorDriveChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorDriveConnectedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorDriveDisconnectedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorDriveEjectButtonSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorDriveStopButtonSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorMountAddedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorMountChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorMountPreUnmountSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorMountRemovedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorVolumeAddedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorVolumeChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorVolumeRemovedSignalInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorGetConnectedDrivesMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorGetMountForUuidMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorGetMountsMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorGetVolumeForUuidMethodInfo-#endif-#if ENABLE_OVERLOADING-data VolumeMonitorGetVolumesMethodInfo-#endif
− GI/Gio/Objects/ZlibCompressor.hs 
@@ -1,467 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Zlib decompression--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ZlibCompressor-    ( ---- * Exported types-    ZlibCompressor(..)                      ,-    IsZlibCompressor                        ,-    toZlibCompressor                        ,-    noZlibCompressor                        ,--- -- * Methods--- ** getFileInfo #method:getFileInfo#--#if ENABLE_OVERLOADING-    ZlibCompressorGetFileInfoMethodInfo     ,-#endif-    zlibCompressorGetFileInfo               ,----- ** new #method:new#--    zlibCompressorNew                       ,----- ** setFileInfo #method:setFileInfo#--#if ENABLE_OVERLOADING-    ZlibCompressorSetFileInfoMethodInfo     ,-#endif-    zlibCompressorSetFileInfo               ,----- -- * Properties--- ** fileInfo #attr:fileInfo#-{- | If set to a non-'Nothing' 'GI.Gio.Objects.FileInfo.FileInfo' object, and 'GI.Gio.Objects.ZlibCompressor.ZlibCompressor':@/format/@ is-'GI.Gio.Enums.ZlibCompressorFormatGzip', the compressor will write the file name-and modification time from the file info to the GZIP header.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    ZlibCompressorFileInfoPropertyInfo      ,-#endif-    clearZlibCompressorFileInfo             ,-    constructZlibCompressorFileInfo         ,-    getZlibCompressorFileInfo               ,-    setZlibCompressorFileInfo               ,-#if ENABLE_OVERLOADING-    zlibCompressorFileInfo                  ,-#endif----- ** format #attr:format#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ZlibCompressorFormatPropertyInfo        ,-#endif-    constructZlibCompressorFormat           ,-    getZlibCompressorFormat                 ,-#if ENABLE_OVERLOADING-    zlibCompressorFormat                    ,-#endif----- ** level #attr:level#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ZlibCompressorLevelPropertyInfo         ,-#endif-    constructZlibCompressorLevel            ,-    getZlibCompressorLevel                  ,-#if ENABLE_OVERLOADING-    zlibCompressorLevel                     ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Converter as Gio.Converter-import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo---- | Memory-managed wrapper type.-newtype ZlibCompressor = ZlibCompressor (ManagedPtr ZlibCompressor)-foreign import ccall "g_zlib_compressor_get_type"-    c_g_zlib_compressor_get_type :: IO GType--instance GObject ZlibCompressor where-    gobjectType = c_g_zlib_compressor_get_type-    ---- | Type class for types which can be safely cast to `ZlibCompressor`, for instance with `toZlibCompressor`.-class (GObject o, O.IsDescendantOf ZlibCompressor o) => IsZlibCompressor o-instance (GObject o, O.IsDescendantOf ZlibCompressor o) => IsZlibCompressor o--instance O.HasParentTypes ZlibCompressor-type instance O.ParentTypes ZlibCompressor = '[GObject.Object.Object, Gio.Converter.Converter]---- | Cast to `ZlibCompressor`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toZlibCompressor :: (MonadIO m, IsZlibCompressor o) => o -> m ZlibCompressor-toZlibCompressor = liftIO . unsafeCastTo ZlibCompressor---- | A convenience alias for `Nothing` :: `Maybe` `ZlibCompressor`.-noZlibCompressor :: Maybe ZlibCompressor-noZlibCompressor = Nothing--#if ENABLE_OVERLOADING-type family ResolveZlibCompressorMethod (t :: Symbol) (o :: *) :: * where-    ResolveZlibCompressorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveZlibCompressorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveZlibCompressorMethod "convert" o = Gio.Converter.ConverterConvertMethodInfo-    ResolveZlibCompressorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveZlibCompressorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveZlibCompressorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveZlibCompressorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveZlibCompressorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveZlibCompressorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveZlibCompressorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveZlibCompressorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveZlibCompressorMethod "reset" o = Gio.Converter.ConverterResetMethodInfo-    ResolveZlibCompressorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveZlibCompressorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveZlibCompressorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveZlibCompressorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveZlibCompressorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveZlibCompressorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveZlibCompressorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveZlibCompressorMethod "getFileInfo" o = ZlibCompressorGetFileInfoMethodInfo-    ResolveZlibCompressorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveZlibCompressorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveZlibCompressorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveZlibCompressorMethod "setFileInfo" o = ZlibCompressorSetFileInfoMethodInfo-    ResolveZlibCompressorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveZlibCompressorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveZlibCompressorMethod t ZlibCompressor, O.MethodInfo info ZlibCompressor p) => OL.IsLabel t (ZlibCompressor -> 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---- VVV Prop "file-info"-   -- Type: TInterface (Name {namespace = "Gio", name = "FileInfo"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just True)--{- |-Get the value of the “@file-info@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' zlibCompressor #fileInfo-@--}-getZlibCompressorFileInfo :: (MonadIO m, IsZlibCompressor o) => o -> m Gio.FileInfo.FileInfo-getZlibCompressorFileInfo obj = liftIO $ checkUnexpectedNothing "getZlibCompressorFileInfo" $ B.Properties.getObjectPropertyObject obj "file-info" Gio.FileInfo.FileInfo--{- |-Set the value of the “@file-info@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' zlibCompressor [ #fileInfo 'Data.GI.Base.Attributes.:=' value ]-@--}-setZlibCompressorFileInfo :: (MonadIO m, IsZlibCompressor o, Gio.FileInfo.IsFileInfo a) => o -> a -> m ()-setZlibCompressorFileInfo obj val = liftIO $ B.Properties.setObjectPropertyObject obj "file-info" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@file-info@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructZlibCompressorFileInfo :: (IsZlibCompressor o, Gio.FileInfo.IsFileInfo a) => a -> IO (GValueConstruct o)-constructZlibCompressorFileInfo val = B.Properties.constructObjectPropertyObject "file-info" (Just val)--{- |-Set the value of the “@file-info@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #fileInfo-@--}-clearZlibCompressorFileInfo :: (MonadIO m, IsZlibCompressor o) => o -> m ()-clearZlibCompressorFileInfo obj = liftIO $ B.Properties.setObjectPropertyObject obj "file-info" (Nothing :: Maybe Gio.FileInfo.FileInfo)--#if ENABLE_OVERLOADING-data ZlibCompressorFileInfoPropertyInfo-instance AttrInfo ZlibCompressorFileInfoPropertyInfo where-    type AttrAllowedOps ZlibCompressorFileInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ZlibCompressorFileInfoPropertyInfo = Gio.FileInfo.IsFileInfo-    type AttrBaseTypeConstraint ZlibCompressorFileInfoPropertyInfo = IsZlibCompressor-    type AttrGetType ZlibCompressorFileInfoPropertyInfo = Gio.FileInfo.FileInfo-    type AttrLabel ZlibCompressorFileInfoPropertyInfo = "file-info"-    type AttrOrigin ZlibCompressorFileInfoPropertyInfo = ZlibCompressor-    attrGet _ = getZlibCompressorFileInfo-    attrSet _ = setZlibCompressorFileInfo-    attrConstruct _ = constructZlibCompressorFileInfo-    attrClear _ = clearZlibCompressorFileInfo-#endif---- VVV Prop "format"-   -- Type: TInterface (Name {namespace = "Gio", name = "ZlibCompressorFormat"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@format@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' zlibCompressor #format-@--}-getZlibCompressorFormat :: (MonadIO m, IsZlibCompressor o) => o -> m Gio.Enums.ZlibCompressorFormat-getZlibCompressorFormat obj = liftIO $ B.Properties.getObjectPropertyEnum obj "format"--{- |-Construct a `GValueConstruct` with valid value for the “@format@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructZlibCompressorFormat :: (IsZlibCompressor o) => Gio.Enums.ZlibCompressorFormat -> IO (GValueConstruct o)-constructZlibCompressorFormat val = B.Properties.constructObjectPropertyEnum "format" val--#if ENABLE_OVERLOADING-data ZlibCompressorFormatPropertyInfo-instance AttrInfo ZlibCompressorFormatPropertyInfo where-    type AttrAllowedOps ZlibCompressorFormatPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ZlibCompressorFormatPropertyInfo = (~) Gio.Enums.ZlibCompressorFormat-    type AttrBaseTypeConstraint ZlibCompressorFormatPropertyInfo = IsZlibCompressor-    type AttrGetType ZlibCompressorFormatPropertyInfo = Gio.Enums.ZlibCompressorFormat-    type AttrLabel ZlibCompressorFormatPropertyInfo = "format"-    type AttrOrigin ZlibCompressorFormatPropertyInfo = ZlibCompressor-    attrGet _ = getZlibCompressorFormat-    attrSet _ = undefined-    attrConstruct _ = constructZlibCompressorFormat-    attrClear _ = undefined-#endif---- VVV Prop "level"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@level@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' zlibCompressor #level-@--}-getZlibCompressorLevel :: (MonadIO m, IsZlibCompressor o) => o -> m Int32-getZlibCompressorLevel obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "level"--{- |-Construct a `GValueConstruct` with valid value for the “@level@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructZlibCompressorLevel :: (IsZlibCompressor o) => Int32 -> IO (GValueConstruct o)-constructZlibCompressorLevel val = B.Properties.constructObjectPropertyInt32 "level" val--#if ENABLE_OVERLOADING-data ZlibCompressorLevelPropertyInfo-instance AttrInfo ZlibCompressorLevelPropertyInfo where-    type AttrAllowedOps ZlibCompressorLevelPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ZlibCompressorLevelPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint ZlibCompressorLevelPropertyInfo = IsZlibCompressor-    type AttrGetType ZlibCompressorLevelPropertyInfo = Int32-    type AttrLabel ZlibCompressorLevelPropertyInfo = "level"-    type AttrOrigin ZlibCompressorLevelPropertyInfo = ZlibCompressor-    attrGet _ = getZlibCompressorLevel-    attrSet _ = undefined-    attrConstruct _ = constructZlibCompressorLevel-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ZlibCompressor-type instance O.AttributeList ZlibCompressor = ZlibCompressorAttributeList-type ZlibCompressorAttributeList = ('[ '("fileInfo", ZlibCompressorFileInfoPropertyInfo), '("format", ZlibCompressorFormatPropertyInfo), '("level", ZlibCompressorLevelPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-zlibCompressorFileInfo :: AttrLabelProxy "fileInfo"-zlibCompressorFileInfo = AttrLabelProxy--zlibCompressorFormat :: AttrLabelProxy "format"-zlibCompressorFormat = AttrLabelProxy--zlibCompressorLevel :: AttrLabelProxy "level"-zlibCompressorLevel = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ZlibCompressor = ZlibCompressorSignalList-type ZlibCompressorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ZlibCompressor::new--- method type : Constructor--- Args : [Arg {argCName = "format", argType = TInterface (Name {namespace = "Gio", name = "ZlibCompressorFormat"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The format to use for the compressed data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "compression level (0-9), -1 for default", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ZlibCompressor"}))--- throws : False--- Skip return : False--foreign import ccall "g_zlib_compressor_new" g_zlib_compressor_new :: -    CUInt ->                                -- format : TInterface (Name {namespace = "Gio", name = "ZlibCompressorFormat"})-    Int32 ->                                -- level : TBasicType TInt-    IO (Ptr ZlibCompressor)--{- |-Creates a new 'GI.Gio.Objects.ZlibCompressor.ZlibCompressor'.--/Since: 2.24/--}-zlibCompressorNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Enums.ZlibCompressorFormat-    {- ^ /@format@/: The format to use for the compressed data -}-    -> Int32-    {- ^ /@level@/: compression level (0-9), -1 for default -}-    -> m ZlibCompressor-    {- ^ __Returns:__ a new 'GI.Gio.Objects.ZlibCompressor.ZlibCompressor' -}-zlibCompressorNew format level = liftIO $ do-    let format' = (fromIntegral . fromEnum) format-    result <- g_zlib_compressor_new format' level-    checkUnexpectedReturnNULL "zlibCompressorNew" result-    result' <- (wrapObject ZlibCompressor) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method ZlibCompressor::get_file_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "compressor", argType = TInterface (Name {namespace = "Gio", name = "ZlibCompressor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GZlibCompressor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_zlib_compressor_get_file_info" g_zlib_compressor_get_file_info :: -    Ptr ZlibCompressor ->                   -- compressor : TInterface (Name {namespace = "Gio", name = "ZlibCompressor"})-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Returns the 'GI.Gio.Objects.ZlibCompressor.ZlibCompressor':@/file-info/@ property.--/Since: 2.26/--}-zlibCompressorGetFileInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsZlibCompressor a) =>-    a-    {- ^ /@compressor@/: a 'GI.Gio.Objects.ZlibCompressor.ZlibCompressor' -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInfo.FileInfo', or 'Nothing' -}-zlibCompressorGetFileInfo compressor = liftIO $ do-    compressor' <- unsafeManagedPtrCastPtr compressor-    result <- g_zlib_compressor_get_file_info compressor'-    checkUnexpectedReturnNULL "zlibCompressorGetFileInfo" result-    result' <- (newObject Gio.FileInfo.FileInfo) result-    touchManagedPtr compressor-    return result'--#if ENABLE_OVERLOADING-data ZlibCompressorGetFileInfoMethodInfo-instance (signature ~ (m Gio.FileInfo.FileInfo), MonadIO m, IsZlibCompressor a) => O.MethodInfo ZlibCompressorGetFileInfoMethodInfo a signature where-    overloadedMethod _ = zlibCompressorGetFileInfo--#endif---- method ZlibCompressor::set_file_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "compressor", argType = TInterface (Name {namespace = "Gio", name = "ZlibCompressor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GZlibCompressor", 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 = True, argDoc = Documentation {rawDocText = Just "a #GFileInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_zlib_compressor_set_file_info" g_zlib_compressor_set_file_info :: -    Ptr ZlibCompressor ->                   -- compressor : TInterface (Name {namespace = "Gio", name = "ZlibCompressor"})-    Ptr Gio.FileInfo.FileInfo ->            -- file_info : TInterface (Name {namespace = "Gio", name = "FileInfo"})-    IO ()--{- |-Sets /@fileInfo@/ in /@compressor@/. If non-'Nothing', and /@compressor@/\'s-'GI.Gio.Objects.ZlibCompressor.ZlibCompressor':@/format/@ property is 'GI.Gio.Enums.ZlibCompressorFormatGzip',-it will be used to set the file name and modification time in-the GZIP header of the compressed data.--Note: it is an error to call this function while a compression is in-progress; it may only be called immediately after creation of /@compressor@/,-or after resetting it with 'GI.Gio.Interfaces.Converter.converterReset'.--/Since: 2.26/--}-zlibCompressorSetFileInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsZlibCompressor a, Gio.FileInfo.IsFileInfo b) =>-    a-    {- ^ /@compressor@/: a 'GI.Gio.Objects.ZlibCompressor.ZlibCompressor' -}-    -> Maybe (b)-    {- ^ /@fileInfo@/: a 'GI.Gio.Objects.FileInfo.FileInfo' -}-    -> m ()-zlibCompressorSetFileInfo compressor fileInfo = liftIO $ do-    compressor' <- unsafeManagedPtrCastPtr compressor-    maybeFileInfo <- case fileInfo of-        Nothing -> return nullPtr-        Just jFileInfo -> do-            jFileInfo' <- unsafeManagedPtrCastPtr jFileInfo-            return jFileInfo'-    g_zlib_compressor_set_file_info compressor' maybeFileInfo-    touchManagedPtr compressor-    whenJust fileInfo touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data ZlibCompressorSetFileInfoMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsZlibCompressor a, Gio.FileInfo.IsFileInfo b) => O.MethodInfo ZlibCompressorSetFileInfoMethodInfo a signature where-    overloadedMethod _ = zlibCompressorSetFileInfo--#endif--
− GI/Gio/Objects/ZlibCompressor.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ZlibCompressor 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 ZlibCompressor = ZlibCompressor (ManagedPtr ZlibCompressor)-instance GObject ZlibCompressor where-class (GObject o, O.IsDescendantOf ZlibCompressor o) => IsZlibCompressor o-instance (GObject o, O.IsDescendantOf ZlibCompressor o) => IsZlibCompressor o-instance O.HasParentTypes ZlibCompressor-#if ENABLE_OVERLOADING-data ZlibCompressorFileInfoPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ZlibCompressorFormatPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ZlibCompressorLevelPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ZlibCompressorGetFileInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data ZlibCompressorSetFileInfoMethodInfo-#endif
− GI/Gio/Objects/ZlibDecompressor.hs 
@@ -1,325 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Zlib decompression--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Objects.ZlibDecompressor-    ( ---- * Exported types-    ZlibDecompressor(..)                    ,-    IsZlibDecompressor                      ,-    toZlibDecompressor                      ,-    noZlibDecompressor                      ,--- -- * Methods--- ** getFileInfo #method:getFileInfo#--#if ENABLE_OVERLOADING-    ZlibDecompressorGetFileInfoMethodInfo   ,-#endif-    zlibDecompressorGetFileInfo             ,----- ** new #method:new#--    zlibDecompressorNew                     ,----- -- * Properties--- ** fileInfo #attr:fileInfo#-{- | A 'GI.Gio.Objects.FileInfo.FileInfo' containing the information found in the GZIP header-of the data stream processed, or 'Nothing' if the header was not yet-fully processed, is not present at all, or the compressor\'s-'GI.Gio.Objects.ZlibDecompressor.ZlibDecompressor':@/format/@ property is not 'GI.Gio.Enums.ZlibCompressorFormatGzip'.--/Since: 2.26/--}-#if ENABLE_OVERLOADING-    ZlibDecompressorFileInfoPropertyInfo    ,-#endif-    getZlibDecompressorFileInfo             ,-#if ENABLE_OVERLOADING-    zlibDecompressorFileInfo                ,-#endif----- ** format #attr:format#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ZlibDecompressorFormatPropertyInfo      ,-#endif-    constructZlibDecompressorFormat         ,-    getZlibDecompressorFormat               ,-#if ENABLE_OVERLOADING-    zlibDecompressorFormat                  ,-#endif-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Interfaces.Converter as Gio.Converter-import {-# SOURCE #-} qualified GI.Gio.Objects.FileInfo as Gio.FileInfo---- | Memory-managed wrapper type.-newtype ZlibDecompressor = ZlibDecompressor (ManagedPtr ZlibDecompressor)-foreign import ccall "g_zlib_decompressor_get_type"-    c_g_zlib_decompressor_get_type :: IO GType--instance GObject ZlibDecompressor where-    gobjectType = c_g_zlib_decompressor_get_type-    ---- | Type class for types which can be safely cast to `ZlibDecompressor`, for instance with `toZlibDecompressor`.-class (GObject o, O.IsDescendantOf ZlibDecompressor o) => IsZlibDecompressor o-instance (GObject o, O.IsDescendantOf ZlibDecompressor o) => IsZlibDecompressor o--instance O.HasParentTypes ZlibDecompressor-type instance O.ParentTypes ZlibDecompressor = '[GObject.Object.Object, Gio.Converter.Converter]---- | Cast to `ZlibDecompressor`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toZlibDecompressor :: (MonadIO m, IsZlibDecompressor o) => o -> m ZlibDecompressor-toZlibDecompressor = liftIO . unsafeCastTo ZlibDecompressor---- | A convenience alias for `Nothing` :: `Maybe` `ZlibDecompressor`.-noZlibDecompressor :: Maybe ZlibDecompressor-noZlibDecompressor = Nothing--#if ENABLE_OVERLOADING-type family ResolveZlibDecompressorMethod (t :: Symbol) (o :: *) :: * where-    ResolveZlibDecompressorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveZlibDecompressorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveZlibDecompressorMethod "convert" o = Gio.Converter.ConverterConvertMethodInfo-    ResolveZlibDecompressorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveZlibDecompressorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveZlibDecompressorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveZlibDecompressorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveZlibDecompressorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveZlibDecompressorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveZlibDecompressorMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveZlibDecompressorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveZlibDecompressorMethod "reset" o = Gio.Converter.ConverterResetMethodInfo-    ResolveZlibDecompressorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveZlibDecompressorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveZlibDecompressorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveZlibDecompressorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveZlibDecompressorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveZlibDecompressorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveZlibDecompressorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveZlibDecompressorMethod "getFileInfo" o = ZlibDecompressorGetFileInfoMethodInfo-    ResolveZlibDecompressorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveZlibDecompressorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveZlibDecompressorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveZlibDecompressorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveZlibDecompressorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveZlibDecompressorMethod t ZlibDecompressor, O.MethodInfo info ZlibDecompressor p) => OL.IsLabel t (ZlibDecompressor -> 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---- VVV Prop "file-info"-   -- Type: TInterface (Name {namespace = "Gio", name = "FileInfo"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@file-info@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' zlibDecompressor #fileInfo-@--}-getZlibDecompressorFileInfo :: (MonadIO m, IsZlibDecompressor o) => o -> m Gio.FileInfo.FileInfo-getZlibDecompressorFileInfo obj = liftIO $ checkUnexpectedNothing "getZlibDecompressorFileInfo" $ B.Properties.getObjectPropertyObject obj "file-info" Gio.FileInfo.FileInfo--#if ENABLE_OVERLOADING-data ZlibDecompressorFileInfoPropertyInfo-instance AttrInfo ZlibDecompressorFileInfoPropertyInfo where-    type AttrAllowedOps ZlibDecompressorFileInfoPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ZlibDecompressorFileInfoPropertyInfo = (~) ()-    type AttrBaseTypeConstraint ZlibDecompressorFileInfoPropertyInfo = IsZlibDecompressor-    type AttrGetType ZlibDecompressorFileInfoPropertyInfo = Gio.FileInfo.FileInfo-    type AttrLabel ZlibDecompressorFileInfoPropertyInfo = "file-info"-    type AttrOrigin ZlibDecompressorFileInfoPropertyInfo = ZlibDecompressor-    attrGet _ = getZlibDecompressorFileInfo-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "format"-   -- Type: TInterface (Name {namespace = "Gio", name = "ZlibCompressorFormat"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@format@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' zlibDecompressor #format-@--}-getZlibDecompressorFormat :: (MonadIO m, IsZlibDecompressor o) => o -> m Gio.Enums.ZlibCompressorFormat-getZlibDecompressorFormat obj = liftIO $ B.Properties.getObjectPropertyEnum obj "format"--{- |-Construct a `GValueConstruct` with valid value for the “@format@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructZlibDecompressorFormat :: (IsZlibDecompressor o) => Gio.Enums.ZlibCompressorFormat -> IO (GValueConstruct o)-constructZlibDecompressorFormat val = B.Properties.constructObjectPropertyEnum "format" val--#if ENABLE_OVERLOADING-data ZlibDecompressorFormatPropertyInfo-instance AttrInfo ZlibDecompressorFormatPropertyInfo where-    type AttrAllowedOps ZlibDecompressorFormatPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ZlibDecompressorFormatPropertyInfo = (~) Gio.Enums.ZlibCompressorFormat-    type AttrBaseTypeConstraint ZlibDecompressorFormatPropertyInfo = IsZlibDecompressor-    type AttrGetType ZlibDecompressorFormatPropertyInfo = Gio.Enums.ZlibCompressorFormat-    type AttrLabel ZlibDecompressorFormatPropertyInfo = "format"-    type AttrOrigin ZlibDecompressorFormatPropertyInfo = ZlibDecompressor-    attrGet _ = getZlibDecompressorFormat-    attrSet _ = undefined-    attrConstruct _ = constructZlibDecompressorFormat-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ZlibDecompressor-type instance O.AttributeList ZlibDecompressor = ZlibDecompressorAttributeList-type ZlibDecompressorAttributeList = ('[ '("fileInfo", ZlibDecompressorFileInfoPropertyInfo), '("format", ZlibDecompressorFormatPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-zlibDecompressorFileInfo :: AttrLabelProxy "fileInfo"-zlibDecompressorFileInfo = AttrLabelProxy--zlibDecompressorFormat :: AttrLabelProxy "format"-zlibDecompressorFormat = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ZlibDecompressor = ZlibDecompressorSignalList-type ZlibDecompressorSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ZlibDecompressor::new--- method type : Constructor--- Args : [Arg {argCName = "format", argType = TInterface (Name {namespace = "Gio", name = "ZlibCompressorFormat"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The format to use for the compressed data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "ZlibDecompressor"}))--- throws : False--- Skip return : False--foreign import ccall "g_zlib_decompressor_new" g_zlib_decompressor_new :: -    CUInt ->                                -- format : TInterface (Name {namespace = "Gio", name = "ZlibCompressorFormat"})-    IO (Ptr ZlibDecompressor)--{- |-Creates a new 'GI.Gio.Objects.ZlibDecompressor.ZlibDecompressor'.--/Since: 2.24/--}-zlibDecompressorNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Gio.Enums.ZlibCompressorFormat-    {- ^ /@format@/: The format to use for the compressed data -}-    -> m ZlibDecompressor-    {- ^ __Returns:__ a new 'GI.Gio.Objects.ZlibDecompressor.ZlibDecompressor' -}-zlibDecompressorNew format = liftIO $ do-    let format' = (fromIntegral . fromEnum) format-    result <- g_zlib_decompressor_new format'-    checkUnexpectedReturnNULL "zlibDecompressorNew" result-    result' <- (wrapObject ZlibDecompressor) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method ZlibDecompressor::get_file_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "decompressor", argType = TInterface (Name {namespace = "Gio", name = "ZlibDecompressor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GZlibDecompressor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_zlib_decompressor_get_file_info" g_zlib_decompressor_get_file_info :: -    Ptr ZlibDecompressor ->                 -- decompressor : TInterface (Name {namespace = "Gio", name = "ZlibDecompressor"})-    IO (Ptr Gio.FileInfo.FileInfo)--{- |-Retrieves the 'GI.Gio.Objects.FileInfo.FileInfo' constructed from the GZIP header data-of compressed data processed by /@compressor@/, or 'Nothing' if /@decompressor@/\'s-'GI.Gio.Objects.ZlibDecompressor.ZlibDecompressor':@/format/@ property is not 'GI.Gio.Enums.ZlibCompressorFormatGzip',-or the header data was not fully processed yet, or it not present in the-data stream at all.--/Since: 2.26/--}-zlibDecompressorGetFileInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsZlibDecompressor a) =>-    a-    {- ^ /@decompressor@/: a 'GI.Gio.Objects.ZlibDecompressor.ZlibDecompressor' -}-    -> m Gio.FileInfo.FileInfo-    {- ^ __Returns:__ a 'GI.Gio.Objects.FileInfo.FileInfo', or 'Nothing' -}-zlibDecompressorGetFileInfo decompressor = liftIO $ do-    decompressor' <- unsafeManagedPtrCastPtr decompressor-    result <- g_zlib_decompressor_get_file_info decompressor'-    checkUnexpectedReturnNULL "zlibDecompressorGetFileInfo" result-    result' <- (newObject Gio.FileInfo.FileInfo) result-    touchManagedPtr decompressor-    return result'--#if ENABLE_OVERLOADING-data ZlibDecompressorGetFileInfoMethodInfo-instance (signature ~ (m Gio.FileInfo.FileInfo), MonadIO m, IsZlibDecompressor a) => O.MethodInfo ZlibDecompressorGetFileInfoMethodInfo a signature where-    overloadedMethod _ = zlibDecompressorGetFileInfo--#endif--
− GI/Gio/Objects/ZlibDecompressor.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Objects.ZlibDecompressor 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 ZlibDecompressor = ZlibDecompressor (ManagedPtr ZlibDecompressor)-instance GObject ZlibDecompressor where-class (GObject o, O.IsDescendantOf ZlibDecompressor o) => IsZlibDecompressor o-instance (GObject o, O.IsDescendantOf ZlibDecompressor o) => IsZlibDecompressor o-instance O.HasParentTypes ZlibDecompressor-#if ENABLE_OVERLOADING-data ZlibDecompressorFileInfoPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ZlibDecompressorFormatPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ZlibDecompressorGetFileInfoMethodInfo-#endif
− GI/Gio/Structs.hs 
@@ -1,103 +0,0 @@---{- |-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.Gio.Structs-    (     module GI.Gio.Structs.ActionEntry       ,-    module GI.Gio.Structs.DBusAnnotationInfo,-    module GI.Gio.Structs.DBusArgInfo       ,-    module GI.Gio.Structs.DBusErrorEntry    ,-    module GI.Gio.Structs.DBusInterfaceInfo ,-    module GI.Gio.Structs.DBusInterfaceVTable,-    module GI.Gio.Structs.DBusMethodInfo    ,-    module GI.Gio.Structs.DBusNodeInfo      ,-    module GI.Gio.Structs.DBusPropertyInfo  ,-    module GI.Gio.Structs.DBusSignalInfo    ,-    module GI.Gio.Structs.DBusSubtreeVTable ,-    module GI.Gio.Structs.FileAttributeInfo ,-    module GI.Gio.Structs.FileAttributeInfoList,-    module GI.Gio.Structs.FileAttributeMatcher,-    module GI.Gio.Structs.IOExtension       ,-    module GI.Gio.Structs.IOExtensionPoint  ,-    module GI.Gio.Structs.IOModuleScope     ,-    module GI.Gio.Structs.IOSchedulerJob    ,-    module GI.Gio.Structs.IOStreamAdapter   ,-    module GI.Gio.Structs.InputMessage      ,-    module GI.Gio.Structs.InputVector       ,-    module GI.Gio.Structs.NativeSocketAddress,-    module GI.Gio.Structs.OutputMessage     ,-    module GI.Gio.Structs.OutputVector      ,-    module GI.Gio.Structs.Resource          ,-    module GI.Gio.Structs.SettingsSchema    ,-    module GI.Gio.Structs.SettingsSchemaKey ,-    module GI.Gio.Structs.SettingsSchemaSource,-    module GI.Gio.Structs.SrvTarget         ,-    module GI.Gio.Structs.StaticResource    ,-    module GI.Gio.Structs.UnixMountEntry    ,-    module GI.Gio.Structs.UnixMountPoint    ,---    ) where--import GI.Gio.Structs.ActionEntry-import GI.Gio.Structs.DBusAnnotationInfo-import GI.Gio.Structs.DBusArgInfo-import GI.Gio.Structs.DBusErrorEntry-import GI.Gio.Structs.DBusInterfaceInfo-import GI.Gio.Structs.DBusInterfaceVTable-import GI.Gio.Structs.DBusMethodInfo-import GI.Gio.Structs.DBusNodeInfo-import GI.Gio.Structs.DBusPropertyInfo-import GI.Gio.Structs.DBusSignalInfo-import GI.Gio.Structs.DBusSubtreeVTable-import GI.Gio.Structs.FileAttributeInfo-import GI.Gio.Structs.FileAttributeInfoList-import GI.Gio.Structs.FileAttributeMatcher-import GI.Gio.Structs.IOExtension-import GI.Gio.Structs.IOExtensionPoint-import GI.Gio.Structs.IOModuleScope-import GI.Gio.Structs.IOSchedulerJob-import GI.Gio.Structs.IOStreamAdapter-import GI.Gio.Structs.InputMessage-import GI.Gio.Structs.InputVector-import GI.Gio.Structs.NativeSocketAddress-import GI.Gio.Structs.OutputMessage-import GI.Gio.Structs.OutputVector-import GI.Gio.Structs.Resource-import GI.Gio.Structs.SettingsSchema-import GI.Gio.Structs.SettingsSchemaKey-import GI.Gio.Structs.SettingsSchemaSource-import GI.Gio.Structs.SrvTarget-import GI.Gio.Structs.StaticResource-import GI.Gio.Structs.UnixMountEntry-import GI.Gio.Structs.UnixMountPoint--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---
− GI/Gio/Structs/ActionEntry.hs 
@@ -1,462 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--This struct defines a single action.  It is for use with-'GI.Gio.Interfaces.ActionMap.actionMapAddActionEntries'.--The order of the items in the structure are intended to reflect-frequency of use.  It is permissible to use an incomplete initialiser-in order to leave some of the later values as 'Nothing'.  All values-after /@name@/ are optional.  Additional optional fields may be added in-the future.--See 'GI.Gio.Interfaces.ActionMap.actionMapAddActionEntries' for an example.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.ActionEntry-    ( ---- * Exported types-    ActionEntry(..)                         ,-    newZeroActionEntry                      ,-    noActionEntry                           ,--- -- * Properties--- ** activate #attr:activate#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    actionEntry_activate                    ,-#endif-    clearActionEntryActivate                ,-    getActionEntryActivate                  ,-    setActionEntryActivate                  ,----- ** changeState #attr:changeState#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    actionEntry_changeState                 ,-#endif-    clearActionEntryChangeState             ,-    getActionEntryChangeState               ,-    setActionEntryChangeState               ,----- ** name #attr:name#-{- | the name of the action--}-#if ENABLE_OVERLOADING-    actionEntry_name                        ,-#endif-    clearActionEntryName                    ,-    getActionEntryName                      ,-    setActionEntryName                      ,----- ** parameterType #attr:parameterType#-{- | the type of the parameter that must be passed to the-                 activate function for this action, given as a single-                 GVariant type string (or 'Nothing' for no parameter)--}-#if ENABLE_OVERLOADING-    actionEntry_parameterType               ,-#endif-    clearActionEntryParameterType           ,-    getActionEntryParameterType             ,-    setActionEntryParameterType             ,----- ** state #attr:state#-{- | the initial state for this action, given in-        [GVariant text format][gvariant-text].  The state is parsed-        with no extra type information, so type tags must be added to-        the string if they are necessary.  Stateless actions should-        give 'Nothing' here.--}-#if ENABLE_OVERLOADING-    actionEntry_state                       ,-#endif-    clearActionEntryState                   ,-    getActionEntryState                     ,-    setActionEntryState                     ,-----    ) 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.Callbacks as Gio.Callbacks---- | Memory-managed wrapper type.-newtype ActionEntry = ActionEntry (ManagedPtr ActionEntry)-instance WrappedPtr ActionEntry where-    wrappedPtrCalloc = callocBytes 64-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 64 >=> wrapPtr ActionEntry)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `ActionEntry` struct initialized to zero.-newZeroActionEntry :: MonadIO m => m ActionEntry-newZeroActionEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionEntry--instance tag ~ 'AttrSet => Constructible ActionEntry tag where-    new _ attrs = do-        o <- newZeroActionEntry-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `ActionEntry`.-noActionEntry :: Maybe ActionEntry-noActionEntry = Nothing--{- |-Get the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' actionEntry #name-@--}-getActionEntryName :: MonadIO m => ActionEntry -> m (Maybe T.Text)-getActionEntryName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' actionEntry [ #name 'Data.GI.Base.Attributes.:=' value ]-@--}-setActionEntryName :: MonadIO m => ActionEntry -> CString -> m ()-setActionEntryName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--{- |-Set the value of the “@name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #name-@--}-clearActionEntryName :: MonadIO m => ActionEntry -> m ()-clearActionEntryName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data ActionEntryNameFieldInfo-instance AttrInfo ActionEntryNameFieldInfo where-    type AttrAllowedOps ActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionEntryNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionEntryNameFieldInfo = (~) ActionEntry-    type AttrGetType ActionEntryNameFieldInfo = Maybe T.Text-    type AttrLabel ActionEntryNameFieldInfo = "name"-    type AttrOrigin ActionEntryNameFieldInfo = ActionEntry-    attrGet _ = getActionEntryName-    attrSet _ = setActionEntryName-    attrConstruct = undefined-    attrClear _ = clearActionEntryName--actionEntry_name :: AttrLabelProxy "name"-actionEntry_name = AttrLabelProxy--#endif---{- |-Get the value of the “@activate@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' actionEntry #activate-@--}-getActionEntryActivate :: MonadIO m => ActionEntry -> m (Maybe Gio.Callbacks.ActionEntryActivateFieldCallback_WithClosures)-getActionEntryActivate s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (FunPtr Gio.Callbacks.C_ActionEntryActivateFieldCallback)-    result <- SP.convertFunPtrIfNonNull val $ \val' -> do-        let val'' = Gio.Callbacks.dynamic_ActionEntryActivateFieldCallback val'-        return val''-    return result--{- |-Set the value of the “@activate@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' actionEntry [ #activate 'Data.GI.Base.Attributes.:=' value ]-@--}-setActionEntryActivate :: MonadIO m => ActionEntry -> FunPtr Gio.Callbacks.C_ActionEntryActivateFieldCallback -> m ()-setActionEntryActivate s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: FunPtr Gio.Callbacks.C_ActionEntryActivateFieldCallback)--{- |-Set the value of the “@activate@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #activate-@--}-clearActionEntryActivate :: MonadIO m => ActionEntry -> m ()-clearActionEntryActivate s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullFunPtr :: FunPtr Gio.Callbacks.C_ActionEntryActivateFieldCallback)--#if ENABLE_OVERLOADING-data ActionEntryActivateFieldInfo-instance AttrInfo ActionEntryActivateFieldInfo where-    type AttrAllowedOps ActionEntryActivateFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionEntryActivateFieldInfo = (~) (FunPtr Gio.Callbacks.C_ActionEntryActivateFieldCallback)-    type AttrBaseTypeConstraint ActionEntryActivateFieldInfo = (~) ActionEntry-    type AttrGetType ActionEntryActivateFieldInfo = Maybe Gio.Callbacks.ActionEntryActivateFieldCallback_WithClosures-    type AttrLabel ActionEntryActivateFieldInfo = "activate"-    type AttrOrigin ActionEntryActivateFieldInfo = ActionEntry-    attrGet _ = getActionEntryActivate-    attrSet _ = setActionEntryActivate-    attrConstruct = undefined-    attrClear _ = clearActionEntryActivate--actionEntry_activate :: AttrLabelProxy "activate"-actionEntry_activate = AttrLabelProxy--#endif---{- |-Get the value of the “@parameter_type@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' actionEntry #parameterType-@--}-getActionEntryParameterType :: MonadIO m => ActionEntry -> m (Maybe T.Text)-getActionEntryParameterType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@parameter_type@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' actionEntry [ #parameterType 'Data.GI.Base.Attributes.:=' value ]-@--}-setActionEntryParameterType :: MonadIO m => ActionEntry -> CString -> m ()-setActionEntryParameterType s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--{- |-Set the value of the “@parameter_type@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #parameterType-@--}-clearActionEntryParameterType :: MonadIO m => ActionEntry -> m ()-clearActionEntryParameterType s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data ActionEntryParameterTypeFieldInfo-instance AttrInfo ActionEntryParameterTypeFieldInfo where-    type AttrAllowedOps ActionEntryParameterTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionEntryParameterTypeFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionEntryParameterTypeFieldInfo = (~) ActionEntry-    type AttrGetType ActionEntryParameterTypeFieldInfo = Maybe T.Text-    type AttrLabel ActionEntryParameterTypeFieldInfo = "parameter_type"-    type AttrOrigin ActionEntryParameterTypeFieldInfo = ActionEntry-    attrGet _ = getActionEntryParameterType-    attrSet _ = setActionEntryParameterType-    attrConstruct = undefined-    attrClear _ = clearActionEntryParameterType--actionEntry_parameterType :: AttrLabelProxy "parameterType"-actionEntry_parameterType = AttrLabelProxy--#endif---{- |-Get the value of the “@state@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' actionEntry #state-@--}-getActionEntryState :: MonadIO m => ActionEntry -> m (Maybe T.Text)-getActionEntryState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@state@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' actionEntry [ #state 'Data.GI.Base.Attributes.:=' value ]-@--}-setActionEntryState :: MonadIO m => ActionEntry -> CString -> m ()-setActionEntryState s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: CString)--{- |-Set the value of the “@state@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #state-@--}-clearActionEntryState :: MonadIO m => ActionEntry -> m ()-clearActionEntryState s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data ActionEntryStateFieldInfo-instance AttrInfo ActionEntryStateFieldInfo where-    type AttrAllowedOps ActionEntryStateFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionEntryStateFieldInfo = (~) CString-    type AttrBaseTypeConstraint ActionEntryStateFieldInfo = (~) ActionEntry-    type AttrGetType ActionEntryStateFieldInfo = Maybe T.Text-    type AttrLabel ActionEntryStateFieldInfo = "state"-    type AttrOrigin ActionEntryStateFieldInfo = ActionEntry-    attrGet _ = getActionEntryState-    attrSet _ = setActionEntryState-    attrConstruct = undefined-    attrClear _ = clearActionEntryState--actionEntry_state :: AttrLabelProxy "state"-actionEntry_state = AttrLabelProxy--#endif---{- |-Get the value of the “@change_state@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' actionEntry #changeState-@--}-getActionEntryChangeState :: MonadIO m => ActionEntry -> m (Maybe Gio.Callbacks.ActionEntryChangeStateFieldCallback_WithClosures)-getActionEntryChangeState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (FunPtr Gio.Callbacks.C_ActionEntryChangeStateFieldCallback)-    result <- SP.convertFunPtrIfNonNull val $ \val' -> do-        let val'' = Gio.Callbacks.dynamic_ActionEntryChangeStateFieldCallback val'-        return val''-    return result--{- |-Set the value of the “@change_state@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' actionEntry [ #changeState 'Data.GI.Base.Attributes.:=' value ]-@--}-setActionEntryChangeState :: MonadIO m => ActionEntry -> FunPtr Gio.Callbacks.C_ActionEntryChangeStateFieldCallback -> m ()-setActionEntryChangeState s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: FunPtr Gio.Callbacks.C_ActionEntryChangeStateFieldCallback)--{- |-Set the value of the “@change_state@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #changeState-@--}-clearActionEntryChangeState :: MonadIO m => ActionEntry -> m ()-clearActionEntryChangeState s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (FP.nullFunPtr :: FunPtr Gio.Callbacks.C_ActionEntryChangeStateFieldCallback)--#if ENABLE_OVERLOADING-data ActionEntryChangeStateFieldInfo-instance AttrInfo ActionEntryChangeStateFieldInfo where-    type AttrAllowedOps ActionEntryChangeStateFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ActionEntryChangeStateFieldInfo = (~) (FunPtr Gio.Callbacks.C_ActionEntryChangeStateFieldCallback)-    type AttrBaseTypeConstraint ActionEntryChangeStateFieldInfo = (~) ActionEntry-    type AttrGetType ActionEntryChangeStateFieldInfo = Maybe Gio.Callbacks.ActionEntryChangeStateFieldCallback_WithClosures-    type AttrLabel ActionEntryChangeStateFieldInfo = "change_state"-    type AttrOrigin ActionEntryChangeStateFieldInfo = ActionEntry-    attrGet _ = getActionEntryChangeState-    attrSet _ = setActionEntryChangeState-    attrConstruct = undefined-    attrClear _ = clearActionEntryChangeState--actionEntry_changeState :: AttrLabelProxy "changeState"-actionEntry_changeState = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList ActionEntry-type instance O.AttributeList ActionEntry = ActionEntryAttributeList-type ActionEntryAttributeList = ('[ '("name", ActionEntryNameFieldInfo), '("activate", ActionEntryActivateFieldInfo), '("parameterType", ActionEntryParameterTypeFieldInfo), '("state", ActionEntryStateFieldInfo), '("changeState", ActionEntryChangeStateFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveActionEntryMethod (t :: Symbol) (o :: *) :: * where-    ResolveActionEntryMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveActionEntryMethod t ActionEntry, O.MethodInfo info ActionEntry p) => OL.IsLabel t (ActionEntry -> 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--
− GI/Gio/Structs/ActionEntry.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.ActionEntry 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 ActionEntry = ActionEntry (ManagedPtr ActionEntry)-instance WrappedPtr ActionEntry where
− GI/Gio/Structs/DBusAnnotationInfo.hs 
@@ -1,512 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Information about an annotation.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusAnnotationInfo-    ( ---- * Exported types-    DBusAnnotationInfo(..)                  ,-    newZeroDBusAnnotationInfo               ,-    noDBusAnnotationInfo                    ,--- -- * Methods--- ** lookup #method:lookup#--    dBusAnnotationInfoLookup                ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    DBusAnnotationInfoRefMethodInfo         ,-#endif-    dBusAnnotationInfoRef                   ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    DBusAnnotationInfoUnrefMethodInfo       ,-#endif-    dBusAnnotationInfoUnref                 ,----- -- * Properties--- ** annotations #attr:annotations#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusAnnotationInfo.DBusAnnotationInfo' structures or 'Nothing' if there are no annotations.--}-    clearDBusAnnotationInfoAnnotations      ,-#if ENABLE_OVERLOADING-    dBusAnnotationInfo_annotations          ,-#endif-    getDBusAnnotationInfoAnnotations        ,-    setDBusAnnotationInfoAnnotations        ,----- ** key #attr:key#-{- | The name of the annotation, e.g. \"org.freedesktop.DBus.Deprecated\".--}-    clearDBusAnnotationInfoKey              ,-#if ENABLE_OVERLOADING-    dBusAnnotationInfo_key                  ,-#endif-    getDBusAnnotationInfoKey                ,-    setDBusAnnotationInfoKey                ,----- ** refCount #attr:refCount#-{- | The reference count or -1 if statically allocated.--}-#if ENABLE_OVERLOADING-    dBusAnnotationInfo_refCount             ,-#endif-    getDBusAnnotationInfoRefCount           ,-    setDBusAnnotationInfoRefCount           ,----- ** value #attr:value#-{- | The value of the annotation.--}-    clearDBusAnnotationInfoValue            ,-#if ENABLE_OVERLOADING-    dBusAnnotationInfo_value                ,-#endif-    getDBusAnnotationInfoValue              ,-    setDBusAnnotationInfoValue              ,-----    ) 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----- | Memory-managed wrapper type.-newtype DBusAnnotationInfo = DBusAnnotationInfo (ManagedPtr DBusAnnotationInfo)-foreign import ccall "g_dbus_annotation_info_get_type" c_g_dbus_annotation_info_get_type :: -    IO GType--instance BoxedObject DBusAnnotationInfo where-    boxedType _ = c_g_dbus_annotation_info_get_type---- | Construct a `DBusAnnotationInfo` struct initialized to zero.-newZeroDBusAnnotationInfo :: MonadIO m => m DBusAnnotationInfo-newZeroDBusAnnotationInfo = liftIO $ callocBoxedBytes 32 >>= wrapBoxed DBusAnnotationInfo--instance tag ~ 'AttrSet => Constructible DBusAnnotationInfo tag where-    new _ attrs = do-        o <- newZeroDBusAnnotationInfo-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusAnnotationInfo`.-noDBusAnnotationInfo :: Maybe DBusAnnotationInfo-noDBusAnnotationInfo = Nothing--{- |-Get the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusAnnotationInfo #refCount-@--}-getDBusAnnotationInfoRefCount :: MonadIO m => DBusAnnotationInfo -> m Int32-getDBusAnnotationInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusAnnotationInfo [ #refCount 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusAnnotationInfoRefCount :: MonadIO m => DBusAnnotationInfo -> Int32 -> m ()-setDBusAnnotationInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-data DBusAnnotationInfoRefCountFieldInfo-instance AttrInfo DBusAnnotationInfoRefCountFieldInfo where-    type AttrAllowedOps DBusAnnotationInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusAnnotationInfoRefCountFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DBusAnnotationInfoRefCountFieldInfo = (~) DBusAnnotationInfo-    type AttrGetType DBusAnnotationInfoRefCountFieldInfo = Int32-    type AttrLabel DBusAnnotationInfoRefCountFieldInfo = "ref_count"-    type AttrOrigin DBusAnnotationInfoRefCountFieldInfo = DBusAnnotationInfo-    attrGet _ = getDBusAnnotationInfoRefCount-    attrSet _ = setDBusAnnotationInfoRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusAnnotationInfo_refCount :: AttrLabelProxy "refCount"-dBusAnnotationInfo_refCount = AttrLabelProxy--#endif---{- |-Get the value of the “@key@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusAnnotationInfo #key-@--}-getDBusAnnotationInfoKey :: MonadIO m => DBusAnnotationInfo -> m (Maybe T.Text)-getDBusAnnotationInfoKey s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@key@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusAnnotationInfo [ #key 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusAnnotationInfoKey :: MonadIO m => DBusAnnotationInfo -> CString -> m ()-setDBusAnnotationInfoKey s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@key@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #key-@--}-clearDBusAnnotationInfoKey :: MonadIO m => DBusAnnotationInfo -> m ()-clearDBusAnnotationInfoKey s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusAnnotationInfoKeyFieldInfo-instance AttrInfo DBusAnnotationInfoKeyFieldInfo where-    type AttrAllowedOps DBusAnnotationInfoKeyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusAnnotationInfoKeyFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusAnnotationInfoKeyFieldInfo = (~) DBusAnnotationInfo-    type AttrGetType DBusAnnotationInfoKeyFieldInfo = Maybe T.Text-    type AttrLabel DBusAnnotationInfoKeyFieldInfo = "key"-    type AttrOrigin DBusAnnotationInfoKeyFieldInfo = DBusAnnotationInfo-    attrGet _ = getDBusAnnotationInfoKey-    attrSet _ = setDBusAnnotationInfoKey-    attrConstruct = undefined-    attrClear _ = clearDBusAnnotationInfoKey--dBusAnnotationInfo_key :: AttrLabelProxy "key"-dBusAnnotationInfo_key = AttrLabelProxy--#endif---{- |-Get the value of the “@value@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusAnnotationInfo #value-@--}-getDBusAnnotationInfoValue :: MonadIO m => DBusAnnotationInfo -> m (Maybe T.Text)-getDBusAnnotationInfoValue s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@value@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusAnnotationInfo [ #value 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusAnnotationInfoValue :: MonadIO m => DBusAnnotationInfo -> CString -> m ()-setDBusAnnotationInfoValue s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--{- |-Set the value of the “@value@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #value-@--}-clearDBusAnnotationInfoValue :: MonadIO m => DBusAnnotationInfo -> m ()-clearDBusAnnotationInfoValue s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusAnnotationInfoValueFieldInfo-instance AttrInfo DBusAnnotationInfoValueFieldInfo where-    type AttrAllowedOps DBusAnnotationInfoValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusAnnotationInfoValueFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusAnnotationInfoValueFieldInfo = (~) DBusAnnotationInfo-    type AttrGetType DBusAnnotationInfoValueFieldInfo = Maybe T.Text-    type AttrLabel DBusAnnotationInfoValueFieldInfo = "value"-    type AttrOrigin DBusAnnotationInfoValueFieldInfo = DBusAnnotationInfo-    attrGet _ = getDBusAnnotationInfoValue-    attrSet _ = setDBusAnnotationInfoValue-    attrConstruct = undefined-    attrClear _ = clearDBusAnnotationInfoValue--dBusAnnotationInfo_value :: AttrLabelProxy "value"-dBusAnnotationInfo_value = AttrLabelProxy--#endif---{- |-Get the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusAnnotationInfo #annotations-@--}-getDBusAnnotationInfoAnnotations :: MonadIO m => DBusAnnotationInfo -> m (Maybe [DBusAnnotationInfo])-getDBusAnnotationInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusAnnotationInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusAnnotationInfo) val''-        return val'''-    return result--{- |-Set the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusAnnotationInfo [ #annotations 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusAnnotationInfoAnnotations :: MonadIO m => DBusAnnotationInfo -> Ptr (Ptr DBusAnnotationInfo) -> m ()-setDBusAnnotationInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusAnnotationInfo))--{- |-Set the value of the “@annotations@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #annotations-@--}-clearDBusAnnotationInfoAnnotations :: MonadIO m => DBusAnnotationInfo -> m ()-clearDBusAnnotationInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: Ptr (Ptr DBusAnnotationInfo))--#if ENABLE_OVERLOADING-data DBusAnnotationInfoAnnotationsFieldInfo-instance AttrInfo DBusAnnotationInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusAnnotationInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusAnnotationInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusAnnotationInfoAnnotationsFieldInfo = (~) DBusAnnotationInfo-    type AttrGetType DBusAnnotationInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo]-    type AttrLabel DBusAnnotationInfoAnnotationsFieldInfo = "annotations"-    type AttrOrigin DBusAnnotationInfoAnnotationsFieldInfo = DBusAnnotationInfo-    attrGet _ = getDBusAnnotationInfoAnnotations-    attrSet _ = setDBusAnnotationInfoAnnotations-    attrConstruct = undefined-    attrClear _ = clearDBusAnnotationInfoAnnotations--dBusAnnotationInfo_annotations :: AttrLabelProxy "annotations"-dBusAnnotationInfo_annotations = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusAnnotationInfo-type instance O.AttributeList DBusAnnotationInfo = DBusAnnotationInfoAttributeList-type DBusAnnotationInfoAttributeList = ('[ '("refCount", DBusAnnotationInfoRefCountFieldInfo), '("key", DBusAnnotationInfoKeyFieldInfo), '("value", DBusAnnotationInfoValueFieldInfo), '("annotations", DBusAnnotationInfoAnnotationsFieldInfo)] :: [(Symbol, *)])-#endif---- method DBusAnnotationInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusAnnotationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusNodeInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusAnnotationInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_annotation_info_ref" g_dbus_annotation_info_ref :: -    Ptr DBusAnnotationInfo ->               -- info : TInterface (Name {namespace = "Gio", name = "DBusAnnotationInfo"})-    IO (Ptr DBusAnnotationInfo)--{- |-If /@info@/ is statically allocated does nothing. Otherwise increases-the reference count.--/Since: 2.26/--}-dBusAnnotationInfoRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusAnnotationInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo' -}-    -> m DBusAnnotationInfo-    {- ^ __Returns:__ The same /@info@/. -}-dBusAnnotationInfoRef info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    result <- g_dbus_annotation_info_ref info'-    checkUnexpectedReturnNULL "dBusAnnotationInfoRef" result-    result' <- (wrapBoxed DBusAnnotationInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DBusAnnotationInfoRefMethodInfo-instance (signature ~ (m DBusAnnotationInfo), MonadIO m) => O.MethodInfo DBusAnnotationInfoRefMethodInfo DBusAnnotationInfo signature where-    overloadedMethod _ = dBusAnnotationInfoRef--#endif---- method DBusAnnotationInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusAnnotationInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusAnnotationInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_annotation_info_unref" g_dbus_annotation_info_unref :: -    Ptr DBusAnnotationInfo ->               -- info : TInterface (Name {namespace = "Gio", name = "DBusAnnotationInfo"})-    IO ()--{- |-If /@info@/ is statically allocated, does nothing. Otherwise decreases-the reference count of /@info@/. When its reference count drops to 0,-the memory used is freed.--/Since: 2.26/--}-dBusAnnotationInfoUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusAnnotationInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusAnnotationInfo.DBusAnnotationInfo'. -}-    -> m ()-dBusAnnotationInfoUnref info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_annotation_info_unref info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusAnnotationInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusAnnotationInfoUnrefMethodInfo DBusAnnotationInfo signature where-    overloadedMethod _ = dBusAnnotationInfoUnref--#endif---- method DBusAnnotationInfo::lookup--- method type : MemberFunction--- Args : [Arg {argCName = "annotations", argType = TCArray True (-1) (-1) (TInterface (Name {namespace = "Gio", name = "DBusAnnotationInfo"})), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A %NULL-terminated array of annotations or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the annotation to look up.", 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 "g_dbus_annotation_info_lookup" g_dbus_annotation_info_lookup :: -    Ptr (Ptr DBusAnnotationInfo) ->         -- annotations : TCArray True (-1) (-1) (TInterface (Name {namespace = "Gio", name = "DBusAnnotationInfo"}))-    CString ->                              -- name : TBasicType TUTF8-    IO CString--{- |-Looks up the value of an annotation.--The cost of this function is O(n) in number of annotations.--/Since: 2.26/--}-dBusAnnotationInfoLookup ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe ([DBusAnnotationInfo])-    {- ^ /@annotations@/: A 'Nothing'-terminated array of annotations or 'Nothing'. -}-    -> T.Text-    {- ^ /@name@/: The name of the annotation to look up. -}-    -> m T.Text-    {- ^ __Returns:__ The value or 'Nothing' if not found. Do not free, it is owned by /@annotations@/. -}-dBusAnnotationInfoLookup annotations name = liftIO $ do-    maybeAnnotations <- case annotations of-        Nothing -> return nullPtr-        Just jAnnotations -> do-            jAnnotations' <- mapM unsafeManagedPtrGetPtr jAnnotations-            jAnnotations'' <- packZeroTerminatedPtrArray jAnnotations'-            return jAnnotations''-    name' <- textToCString name-    result <- g_dbus_annotation_info_lookup maybeAnnotations name'-    checkUnexpectedReturnNULL "dBusAnnotationInfoLookup" result-    result' <- cstringToText result-    whenJust annotations (mapM_ touchManagedPtr)-    freeMem maybeAnnotations-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveDBusAnnotationInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusAnnotationInfoMethod "ref" o = DBusAnnotationInfoRefMethodInfo-    ResolveDBusAnnotationInfoMethod "unref" o = DBusAnnotationInfoUnrefMethodInfo-    ResolveDBusAnnotationInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusAnnotationInfoMethod t DBusAnnotationInfo, O.MethodInfo info DBusAnnotationInfo p) => OL.IsLabel t (DBusAnnotationInfo -> 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--
− GI/Gio/Structs/DBusAnnotationInfo.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusAnnotationInfo 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 DBusAnnotationInfo = DBusAnnotationInfo (ManagedPtr DBusAnnotationInfo)-instance BoxedObject DBusAnnotationInfo where-#if ENABLE_OVERLOADING-data DBusAnnotationInfoRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusAnnotationInfoUnrefMethodInfo-#endif
− GI/Gio/Structs/DBusArgInfo.hs 
@@ -1,461 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Information about an argument for a method or a signal.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusArgInfo-    ( ---- * Exported types-    DBusArgInfo(..)                         ,-    newZeroDBusArgInfo                      ,-    noDBusArgInfo                           ,--- -- * Methods--- ** ref #method:ref#--#if ENABLE_OVERLOADING-    DBusArgInfoRefMethodInfo                ,-#endif-    dBusArgInfoRef                          ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    DBusArgInfoUnrefMethodInfo              ,-#endif-    dBusArgInfoUnref                        ,----- -- * Properties--- ** annotations #attr:annotations#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusAnnotationInfo.DBusAnnotationInfo' structures or 'Nothing' if there are no annotations.--}-    clearDBusArgInfoAnnotations             ,-#if ENABLE_OVERLOADING-    dBusArgInfo_annotations                 ,-#endif-    getDBusArgInfoAnnotations               ,-    setDBusArgInfoAnnotations               ,----- ** name #attr:name#-{- | Name of the argument, e.g. /@unixUserId@/.--}-    clearDBusArgInfoName                    ,-#if ENABLE_OVERLOADING-    dBusArgInfo_name                        ,-#endif-    getDBusArgInfoName                      ,-    setDBusArgInfoName                      ,----- ** refCount #attr:refCount#-{- | The reference count or -1 if statically allocated.--}-#if ENABLE_OVERLOADING-    dBusArgInfo_refCount                    ,-#endif-    getDBusArgInfoRefCount                  ,-    setDBusArgInfoRefCount                  ,----- ** signature #attr:signature#-{- | D-Bus signature of the argument (a single complete type).--}-    clearDBusArgInfoSignature               ,-#if ENABLE_OVERLOADING-    dBusArgInfo_signature                   ,-#endif-    getDBusArgInfoSignature                 ,-    setDBusArgInfoSignature                 ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo---- | Memory-managed wrapper type.-newtype DBusArgInfo = DBusArgInfo (ManagedPtr DBusArgInfo)-foreign import ccall "g_dbus_arg_info_get_type" c_g_dbus_arg_info_get_type :: -    IO GType--instance BoxedObject DBusArgInfo where-    boxedType _ = c_g_dbus_arg_info_get_type---- | Construct a `DBusArgInfo` struct initialized to zero.-newZeroDBusArgInfo :: MonadIO m => m DBusArgInfo-newZeroDBusArgInfo = liftIO $ callocBoxedBytes 32 >>= wrapBoxed DBusArgInfo--instance tag ~ 'AttrSet => Constructible DBusArgInfo tag where-    new _ attrs = do-        o <- newZeroDBusArgInfo-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusArgInfo`.-noDBusArgInfo :: Maybe DBusArgInfo-noDBusArgInfo = Nothing--{- |-Get the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusArgInfo #refCount-@--}-getDBusArgInfoRefCount :: MonadIO m => DBusArgInfo -> m Int32-getDBusArgInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusArgInfo [ #refCount 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusArgInfoRefCount :: MonadIO m => DBusArgInfo -> Int32 -> m ()-setDBusArgInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-data DBusArgInfoRefCountFieldInfo-instance AttrInfo DBusArgInfoRefCountFieldInfo where-    type AttrAllowedOps DBusArgInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusArgInfoRefCountFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DBusArgInfoRefCountFieldInfo = (~) DBusArgInfo-    type AttrGetType DBusArgInfoRefCountFieldInfo = Int32-    type AttrLabel DBusArgInfoRefCountFieldInfo = "ref_count"-    type AttrOrigin DBusArgInfoRefCountFieldInfo = DBusArgInfo-    attrGet _ = getDBusArgInfoRefCount-    attrSet _ = setDBusArgInfoRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusArgInfo_refCount :: AttrLabelProxy "refCount"-dBusArgInfo_refCount = AttrLabelProxy--#endif---{- |-Get the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusArgInfo #name-@--}-getDBusArgInfoName :: MonadIO m => DBusArgInfo -> m (Maybe T.Text)-getDBusArgInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusArgInfo [ #name 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusArgInfoName :: MonadIO m => DBusArgInfo -> CString -> m ()-setDBusArgInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #name-@--}-clearDBusArgInfoName :: MonadIO m => DBusArgInfo -> m ()-clearDBusArgInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusArgInfoNameFieldInfo-instance AttrInfo DBusArgInfoNameFieldInfo where-    type AttrAllowedOps DBusArgInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusArgInfoNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusArgInfoNameFieldInfo = (~) DBusArgInfo-    type AttrGetType DBusArgInfoNameFieldInfo = Maybe T.Text-    type AttrLabel DBusArgInfoNameFieldInfo = "name"-    type AttrOrigin DBusArgInfoNameFieldInfo = DBusArgInfo-    attrGet _ = getDBusArgInfoName-    attrSet _ = setDBusArgInfoName-    attrConstruct = undefined-    attrClear _ = clearDBusArgInfoName--dBusArgInfo_name :: AttrLabelProxy "name"-dBusArgInfo_name = AttrLabelProxy--#endif---{- |-Get the value of the “@signature@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusArgInfo #signature-@--}-getDBusArgInfoSignature :: MonadIO m => DBusArgInfo -> m (Maybe T.Text)-getDBusArgInfoSignature s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@signature@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusArgInfo [ #signature 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusArgInfoSignature :: MonadIO m => DBusArgInfo -> CString -> m ()-setDBusArgInfoSignature s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--{- |-Set the value of the “@signature@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #signature-@--}-clearDBusArgInfoSignature :: MonadIO m => DBusArgInfo -> m ()-clearDBusArgInfoSignature s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusArgInfoSignatureFieldInfo-instance AttrInfo DBusArgInfoSignatureFieldInfo where-    type AttrAllowedOps DBusArgInfoSignatureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusArgInfoSignatureFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusArgInfoSignatureFieldInfo = (~) DBusArgInfo-    type AttrGetType DBusArgInfoSignatureFieldInfo = Maybe T.Text-    type AttrLabel DBusArgInfoSignatureFieldInfo = "signature"-    type AttrOrigin DBusArgInfoSignatureFieldInfo = DBusArgInfo-    attrGet _ = getDBusArgInfoSignature-    attrSet _ = setDBusArgInfoSignature-    attrConstruct = undefined-    attrClear _ = clearDBusArgInfoSignature--dBusArgInfo_signature :: AttrLabelProxy "signature"-dBusArgInfo_signature = AttrLabelProxy--#endif---{- |-Get the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusArgInfo #annotations-@--}-getDBusArgInfoAnnotations :: MonadIO m => DBusArgInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])-getDBusArgInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusAnnotationInfo.DBusAnnotationInfo) val''-        return val'''-    return result--{- |-Set the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusArgInfo [ #annotations 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusArgInfoAnnotations :: MonadIO m => DBusArgInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()-setDBusArgInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--{- |-Set the value of the “@annotations@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #annotations-@--}-clearDBusArgInfoAnnotations :: MonadIO m => DBusArgInfo -> m ()-clearDBusArgInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--#if ENABLE_OVERLOADING-data DBusArgInfoAnnotationsFieldInfo-instance AttrInfo DBusArgInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusArgInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusArgInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusArgInfoAnnotationsFieldInfo = (~) DBusArgInfo-    type AttrGetType DBusArgInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]-    type AttrLabel DBusArgInfoAnnotationsFieldInfo = "annotations"-    type AttrOrigin DBusArgInfoAnnotationsFieldInfo = DBusArgInfo-    attrGet _ = getDBusArgInfoAnnotations-    attrSet _ = setDBusArgInfoAnnotations-    attrConstruct = undefined-    attrClear _ = clearDBusArgInfoAnnotations--dBusArgInfo_annotations :: AttrLabelProxy "annotations"-dBusArgInfo_annotations = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusArgInfo-type instance O.AttributeList DBusArgInfo = DBusArgInfoAttributeList-type DBusArgInfoAttributeList = ('[ '("refCount", DBusArgInfoRefCountFieldInfo), '("name", DBusArgInfoNameFieldInfo), '("signature", DBusArgInfoSignatureFieldInfo), '("annotations", DBusArgInfoAnnotationsFieldInfo)] :: [(Symbol, *)])-#endif---- method DBusArgInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusArgInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusArgInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusArgInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_arg_info_ref" g_dbus_arg_info_ref :: -    Ptr DBusArgInfo ->                      -- info : TInterface (Name {namespace = "Gio", name = "DBusArgInfo"})-    IO (Ptr DBusArgInfo)--{- |-If /@info@/ is statically allocated does nothing. Otherwise increases-the reference count.--/Since: 2.26/--}-dBusArgInfoRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusArgInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusArgInfo.DBusArgInfo' -}-    -> m DBusArgInfo-    {- ^ __Returns:__ The same /@info@/. -}-dBusArgInfoRef info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    result <- g_dbus_arg_info_ref info'-    checkUnexpectedReturnNULL "dBusArgInfoRef" result-    result' <- (wrapBoxed DBusArgInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DBusArgInfoRefMethodInfo-instance (signature ~ (m DBusArgInfo), MonadIO m) => O.MethodInfo DBusArgInfoRefMethodInfo DBusArgInfo signature where-    overloadedMethod _ = dBusArgInfoRef--#endif---- method DBusArgInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusArgInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusArgInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_arg_info_unref" g_dbus_arg_info_unref :: -    Ptr DBusArgInfo ->                      -- info : TInterface (Name {namespace = "Gio", name = "DBusArgInfo"})-    IO ()--{- |-If /@info@/ is statically allocated, does nothing. Otherwise decreases-the reference count of /@info@/. When its reference count drops to 0,-the memory used is freed.--/Since: 2.26/--}-dBusArgInfoUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusArgInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusArgInfo.DBusArgInfo'. -}-    -> m ()-dBusArgInfoUnref info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_arg_info_unref info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusArgInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusArgInfoUnrefMethodInfo DBusArgInfo signature where-    overloadedMethod _ = dBusArgInfoUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveDBusArgInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusArgInfoMethod "ref" o = DBusArgInfoRefMethodInfo-    ResolveDBusArgInfoMethod "unref" o = DBusArgInfoUnrefMethodInfo-    ResolveDBusArgInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusArgInfoMethod t DBusArgInfo, O.MethodInfo info DBusArgInfo p) => OL.IsLabel t (DBusArgInfo -> 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--
− GI/Gio/Structs/DBusArgInfo.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusArgInfo 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 DBusArgInfo = DBusArgInfo (ManagedPtr DBusArgInfo)-instance BoxedObject DBusArgInfo where-#if ENABLE_OVERLOADING-data DBusArgInfoRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusArgInfoUnrefMethodInfo-#endif
− GI/Gio/Structs/DBusErrorEntry.hs 
@@ -1,219 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Struct used in 'GI.Gio.Functions.dbusErrorRegisterErrorDomain'.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusErrorEntry-    ( ---- * Exported types-    DBusErrorEntry(..)                      ,-    newZeroDBusErrorEntry                   ,-    noDBusErrorEntry                        ,--- -- * Properties--- ** dbusErrorName #attr:dbusErrorName#-{- | The D-Bus error name to associate with /@errorCode@/.--}-    clearDBusErrorEntryDbusErrorName        ,-#if ENABLE_OVERLOADING-    dBusErrorEntry_dbusErrorName            ,-#endif-    getDBusErrorEntryDbusErrorName          ,-    setDBusErrorEntryDbusErrorName          ,----- ** errorCode #attr:errorCode#-{- | An error code.--}-#if ENABLE_OVERLOADING-    dBusErrorEntry_errorCode                ,-#endif-    getDBusErrorEntryErrorCode              ,-    setDBusErrorEntryErrorCode              ,-----    ) 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----- | Memory-managed wrapper type.-newtype DBusErrorEntry = DBusErrorEntry (ManagedPtr DBusErrorEntry)-instance WrappedPtr DBusErrorEntry where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 16 >=> wrapPtr DBusErrorEntry)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `DBusErrorEntry` struct initialized to zero.-newZeroDBusErrorEntry :: MonadIO m => m DBusErrorEntry-newZeroDBusErrorEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr DBusErrorEntry--instance tag ~ 'AttrSet => Constructible DBusErrorEntry tag where-    new _ attrs = do-        o <- newZeroDBusErrorEntry-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusErrorEntry`.-noDBusErrorEntry :: Maybe DBusErrorEntry-noDBusErrorEntry = Nothing--{- |-Get the value of the “@error_code@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusErrorEntry #errorCode-@--}-getDBusErrorEntryErrorCode :: MonadIO m => DBusErrorEntry -> m Int32-getDBusErrorEntryErrorCode s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@error_code@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusErrorEntry [ #errorCode 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusErrorEntryErrorCode :: MonadIO m => DBusErrorEntry -> Int32 -> m ()-setDBusErrorEntryErrorCode s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-data DBusErrorEntryErrorCodeFieldInfo-instance AttrInfo DBusErrorEntryErrorCodeFieldInfo where-    type AttrAllowedOps DBusErrorEntryErrorCodeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusErrorEntryErrorCodeFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DBusErrorEntryErrorCodeFieldInfo = (~) DBusErrorEntry-    type AttrGetType DBusErrorEntryErrorCodeFieldInfo = Int32-    type AttrLabel DBusErrorEntryErrorCodeFieldInfo = "error_code"-    type AttrOrigin DBusErrorEntryErrorCodeFieldInfo = DBusErrorEntry-    attrGet _ = getDBusErrorEntryErrorCode-    attrSet _ = setDBusErrorEntryErrorCode-    attrConstruct = undefined-    attrClear _ = undefined--dBusErrorEntry_errorCode :: AttrLabelProxy "errorCode"-dBusErrorEntry_errorCode = AttrLabelProxy--#endif---{- |-Get the value of the “@dbus_error_name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusErrorEntry #dbusErrorName-@--}-getDBusErrorEntryDbusErrorName :: MonadIO m => DBusErrorEntry -> m (Maybe T.Text)-getDBusErrorEntryDbusErrorName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@dbus_error_name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusErrorEntry [ #dbusErrorName 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusErrorEntryDbusErrorName :: MonadIO m => DBusErrorEntry -> CString -> m ()-setDBusErrorEntryDbusErrorName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@dbus_error_name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #dbusErrorName-@--}-clearDBusErrorEntryDbusErrorName :: MonadIO m => DBusErrorEntry -> m ()-clearDBusErrorEntryDbusErrorName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusErrorEntryDbusErrorNameFieldInfo-instance AttrInfo DBusErrorEntryDbusErrorNameFieldInfo where-    type AttrAllowedOps DBusErrorEntryDbusErrorNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusErrorEntryDbusErrorNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusErrorEntryDbusErrorNameFieldInfo = (~) DBusErrorEntry-    type AttrGetType DBusErrorEntryDbusErrorNameFieldInfo = Maybe T.Text-    type AttrLabel DBusErrorEntryDbusErrorNameFieldInfo = "dbus_error_name"-    type AttrOrigin DBusErrorEntryDbusErrorNameFieldInfo = DBusErrorEntry-    attrGet _ = getDBusErrorEntryDbusErrorName-    attrSet _ = setDBusErrorEntryDbusErrorName-    attrConstruct = undefined-    attrClear _ = clearDBusErrorEntryDbusErrorName--dBusErrorEntry_dbusErrorName :: AttrLabelProxy "dbusErrorName"-dBusErrorEntry_dbusErrorName = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusErrorEntry-type instance O.AttributeList DBusErrorEntry = DBusErrorEntryAttributeList-type DBusErrorEntryAttributeList = ('[ '("errorCode", DBusErrorEntryErrorCodeFieldInfo), '("dbusErrorName", DBusErrorEntryDbusErrorNameFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveDBusErrorEntryMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusErrorEntryMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusErrorEntryMethod t DBusErrorEntry, O.MethodInfo info DBusErrorEntry p) => OL.IsLabel t (DBusErrorEntry -> 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--
− GI/Gio/Structs/DBusErrorEntry.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusErrorEntry 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 DBusErrorEntry = DBusErrorEntry (ManagedPtr DBusErrorEntry)-instance WrappedPtr DBusErrorEntry where
− GI/Gio/Structs/DBusInterfaceInfo.hs 
@@ -1,931 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Information about a D-Bus interface.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusInterfaceInfo-    ( ---- * Exported types-    DBusInterfaceInfo(..)                   ,-    newZeroDBusInterfaceInfo                ,-    noDBusInterfaceInfo                     ,--- -- * Methods--- ** cacheBuild #method:cacheBuild#--#if ENABLE_OVERLOADING-    DBusInterfaceInfoCacheBuildMethodInfo   ,-#endif-    dBusInterfaceInfoCacheBuild             ,----- ** cacheRelease #method:cacheRelease#--#if ENABLE_OVERLOADING-    DBusInterfaceInfoCacheReleaseMethodInfo ,-#endif-    dBusInterfaceInfoCacheRelease           ,----- ** generateXml #method:generateXml#--#if ENABLE_OVERLOADING-    DBusInterfaceInfoGenerateXmlMethodInfo  ,-#endif-    dBusInterfaceInfoGenerateXml            ,----- ** lookupMethod #method:lookupMethod#--#if ENABLE_OVERLOADING-    DBusInterfaceInfoLookupMethodMethodInfo ,-#endif-    dBusInterfaceInfoLookupMethod           ,----- ** lookupProperty #method:lookupProperty#--#if ENABLE_OVERLOADING-    DBusInterfaceInfoLookupPropertyMethodInfo,-#endif-    dBusInterfaceInfoLookupProperty         ,----- ** lookupSignal #method:lookupSignal#--#if ENABLE_OVERLOADING-    DBusInterfaceInfoLookupSignalMethodInfo ,-#endif-    dBusInterfaceInfoLookupSignal           ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    DBusInterfaceInfoRefMethodInfo          ,-#endif-    dBusInterfaceInfoRef                    ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    DBusInterfaceInfoUnrefMethodInfo        ,-#endif-    dBusInterfaceInfoUnref                  ,----- -- * Properties--- ** annotations #attr:annotations#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusAnnotationInfo.DBusAnnotationInfo' structures or 'Nothing' if there are no annotations.--}-    clearDBusInterfaceInfoAnnotations       ,-#if ENABLE_OVERLOADING-    dBusInterfaceInfo_annotations           ,-#endif-    getDBusInterfaceInfoAnnotations         ,-    setDBusInterfaceInfoAnnotations         ,----- ** methods #attr:methods#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusMethodInfo.DBusMethodInfo' structures or 'Nothing' if there are no methods.--}-    clearDBusInterfaceInfoMethods           ,-#if ENABLE_OVERLOADING-    dBusInterfaceInfo_methods               ,-#endif-    getDBusInterfaceInfoMethods             ,-    setDBusInterfaceInfoMethods             ,----- ** name #attr:name#-{- | The name of the D-Bus interface, e.g. \"org.freedesktop.DBus.Properties\".--}-    clearDBusInterfaceInfoName              ,-#if ENABLE_OVERLOADING-    dBusInterfaceInfo_name                  ,-#endif-    getDBusInterfaceInfoName                ,-    setDBusInterfaceInfoName                ,----- ** properties #attr:properties#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusPropertyInfo.DBusPropertyInfo' structures or 'Nothing' if there are no properties.--}-    clearDBusInterfaceInfoProperties        ,-#if ENABLE_OVERLOADING-    dBusInterfaceInfo_properties            ,-#endif-    getDBusInterfaceInfoProperties          ,-    setDBusInterfaceInfoProperties          ,----- ** refCount #attr:refCount#-{- | The reference count or -1 if statically allocated.--}-#if ENABLE_OVERLOADING-    dBusInterfaceInfo_refCount              ,-#endif-    getDBusInterfaceInfoRefCount            ,-    setDBusInterfaceInfoRefCount            ,----- ** signals #attr:signals#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusSignalInfo.DBusSignalInfo' structures or 'Nothing' if there are no signals.--}-    clearDBusInterfaceInfoSignals           ,-#if ENABLE_OVERLOADING-    dBusInterfaceInfo_signals               ,-#endif-    getDBusInterfaceInfoSignals             ,-    setDBusInterfaceInfoSignals             ,-----    ) 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.String as GLib.String-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusMethodInfo as Gio.DBusMethodInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusPropertyInfo as Gio.DBusPropertyInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusSignalInfo as Gio.DBusSignalInfo---- | Memory-managed wrapper type.-newtype DBusInterfaceInfo = DBusInterfaceInfo (ManagedPtr DBusInterfaceInfo)-foreign import ccall "g_dbus_interface_info_get_type" c_g_dbus_interface_info_get_type :: -    IO GType--instance BoxedObject DBusInterfaceInfo where-    boxedType _ = c_g_dbus_interface_info_get_type---- | Construct a `DBusInterfaceInfo` struct initialized to zero.-newZeroDBusInterfaceInfo :: MonadIO m => m DBusInterfaceInfo-newZeroDBusInterfaceInfo = liftIO $ callocBoxedBytes 48 >>= wrapBoxed DBusInterfaceInfo--instance tag ~ 'AttrSet => Constructible DBusInterfaceInfo tag where-    new _ attrs = do-        o <- newZeroDBusInterfaceInfo-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusInterfaceInfo`.-noDBusInterfaceInfo :: Maybe DBusInterfaceInfo-noDBusInterfaceInfo = Nothing--{- |-Get the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceInfo #refCount-@--}-getDBusInterfaceInfoRefCount :: MonadIO m => DBusInterfaceInfo -> m Int32-getDBusInterfaceInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceInfo [ #refCount 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceInfoRefCount :: MonadIO m => DBusInterfaceInfo -> Int32 -> m ()-setDBusInterfaceInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-data DBusInterfaceInfoRefCountFieldInfo-instance AttrInfo DBusInterfaceInfoRefCountFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusInterfaceInfoRefCountFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DBusInterfaceInfoRefCountFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoRefCountFieldInfo = Int32-    type AttrLabel DBusInterfaceInfoRefCountFieldInfo = "ref_count"-    type AttrOrigin DBusInterfaceInfoRefCountFieldInfo = DBusInterfaceInfo-    attrGet _ = getDBusInterfaceInfoRefCount-    attrSet _ = setDBusInterfaceInfoRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusInterfaceInfo_refCount :: AttrLabelProxy "refCount"-dBusInterfaceInfo_refCount = AttrLabelProxy--#endif---{- |-Get the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceInfo #name-@--}-getDBusInterfaceInfoName :: MonadIO m => DBusInterfaceInfo -> m (Maybe T.Text)-getDBusInterfaceInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceInfo [ #name 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceInfoName :: MonadIO m => DBusInterfaceInfo -> CString -> m ()-setDBusInterfaceInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #name-@--}-clearDBusInterfaceInfoName :: MonadIO m => DBusInterfaceInfo -> m ()-clearDBusInterfaceInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusInterfaceInfoNameFieldInfo-instance AttrInfo DBusInterfaceInfoNameFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusInterfaceInfoNameFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoNameFieldInfo = Maybe T.Text-    type AttrLabel DBusInterfaceInfoNameFieldInfo = "name"-    type AttrOrigin DBusInterfaceInfoNameFieldInfo = DBusInterfaceInfo-    attrGet _ = getDBusInterfaceInfoName-    attrSet _ = setDBusInterfaceInfoName-    attrConstruct = undefined-    attrClear _ = clearDBusInterfaceInfoName--dBusInterfaceInfo_name :: AttrLabelProxy "name"-dBusInterfaceInfo_name = AttrLabelProxy--#endif---{- |-Get the value of the “@methods@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceInfo #methods-@--}-getDBusInterfaceInfoMethods :: MonadIO m => DBusInterfaceInfo -> m (Maybe [Gio.DBusMethodInfo.DBusMethodInfo])-getDBusInterfaceInfoMethods s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr Gio.DBusMethodInfo.DBusMethodInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusMethodInfo.DBusMethodInfo) val''-        return val'''-    return result--{- |-Set the value of the “@methods@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceInfo [ #methods 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceInfoMethods :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr Gio.DBusMethodInfo.DBusMethodInfo) -> m ()-setDBusInterfaceInfoMethods s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (Ptr Gio.DBusMethodInfo.DBusMethodInfo))--{- |-Set the value of the “@methods@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #methods-@--}-clearDBusInterfaceInfoMethods :: MonadIO m => DBusInterfaceInfo -> m ()-clearDBusInterfaceInfoMethods s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr (Ptr Gio.DBusMethodInfo.DBusMethodInfo))--#if ENABLE_OVERLOADING-data DBusInterfaceInfoMethodsFieldInfo-instance AttrInfo DBusInterfaceInfoMethodsFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoMethodsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoMethodsFieldInfo = (~) (Ptr (Ptr Gio.DBusMethodInfo.DBusMethodInfo))-    type AttrBaseTypeConstraint DBusInterfaceInfoMethodsFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoMethodsFieldInfo = Maybe [Gio.DBusMethodInfo.DBusMethodInfo]-    type AttrLabel DBusInterfaceInfoMethodsFieldInfo = "methods"-    type AttrOrigin DBusInterfaceInfoMethodsFieldInfo = DBusInterfaceInfo-    attrGet _ = getDBusInterfaceInfoMethods-    attrSet _ = setDBusInterfaceInfoMethods-    attrConstruct = undefined-    attrClear _ = clearDBusInterfaceInfoMethods--dBusInterfaceInfo_methods :: AttrLabelProxy "methods"-dBusInterfaceInfo_methods = AttrLabelProxy--#endif---{- |-Get the value of the “@signals@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceInfo #signals-@--}-getDBusInterfaceInfoSignals :: MonadIO m => DBusInterfaceInfo -> m (Maybe [Gio.DBusSignalInfo.DBusSignalInfo])-getDBusInterfaceInfoSignals s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr Gio.DBusSignalInfo.DBusSignalInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusSignalInfo.DBusSignalInfo) val''-        return val'''-    return result--{- |-Set the value of the “@signals@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceInfo [ #signals 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceInfoSignals :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr Gio.DBusSignalInfo.DBusSignalInfo) -> m ()-setDBusInterfaceInfoSignals s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr Gio.DBusSignalInfo.DBusSignalInfo))--{- |-Set the value of the “@signals@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #signals-@--}-clearDBusInterfaceInfoSignals :: MonadIO m => DBusInterfaceInfo -> m ()-clearDBusInterfaceInfoSignals s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: Ptr (Ptr Gio.DBusSignalInfo.DBusSignalInfo))--#if ENABLE_OVERLOADING-data DBusInterfaceInfoSignalsFieldInfo-instance AttrInfo DBusInterfaceInfoSignalsFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoSignalsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoSignalsFieldInfo = (~) (Ptr (Ptr Gio.DBusSignalInfo.DBusSignalInfo))-    type AttrBaseTypeConstraint DBusInterfaceInfoSignalsFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoSignalsFieldInfo = Maybe [Gio.DBusSignalInfo.DBusSignalInfo]-    type AttrLabel DBusInterfaceInfoSignalsFieldInfo = "signals"-    type AttrOrigin DBusInterfaceInfoSignalsFieldInfo = DBusInterfaceInfo-    attrGet _ = getDBusInterfaceInfoSignals-    attrSet _ = setDBusInterfaceInfoSignals-    attrConstruct = undefined-    attrClear _ = clearDBusInterfaceInfoSignals--dBusInterfaceInfo_signals :: AttrLabelProxy "signals"-dBusInterfaceInfo_signals = AttrLabelProxy--#endif---{- |-Get the value of the “@properties@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceInfo #properties-@--}-getDBusInterfaceInfoProperties :: MonadIO m => DBusInterfaceInfo -> m (Maybe [Gio.DBusPropertyInfo.DBusPropertyInfo])-getDBusInterfaceInfoProperties s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr Gio.DBusPropertyInfo.DBusPropertyInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusPropertyInfo.DBusPropertyInfo) val''-        return val'''-    return result--{- |-Set the value of the “@properties@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceInfo [ #properties 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceInfoProperties :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr Gio.DBusPropertyInfo.DBusPropertyInfo) -> m ()-setDBusInterfaceInfoProperties s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr (Ptr Gio.DBusPropertyInfo.DBusPropertyInfo))--{- |-Set the value of the “@properties@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #properties-@--}-clearDBusInterfaceInfoProperties :: MonadIO m => DBusInterfaceInfo -> m ()-clearDBusInterfaceInfoProperties s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr (Ptr Gio.DBusPropertyInfo.DBusPropertyInfo))--#if ENABLE_OVERLOADING-data DBusInterfaceInfoPropertiesFieldInfo-instance AttrInfo DBusInterfaceInfoPropertiesFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoPropertiesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoPropertiesFieldInfo = (~) (Ptr (Ptr Gio.DBusPropertyInfo.DBusPropertyInfo))-    type AttrBaseTypeConstraint DBusInterfaceInfoPropertiesFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoPropertiesFieldInfo = Maybe [Gio.DBusPropertyInfo.DBusPropertyInfo]-    type AttrLabel DBusInterfaceInfoPropertiesFieldInfo = "properties"-    type AttrOrigin DBusInterfaceInfoPropertiesFieldInfo = DBusInterfaceInfo-    attrGet _ = getDBusInterfaceInfoProperties-    attrSet _ = setDBusInterfaceInfoProperties-    attrConstruct = undefined-    attrClear _ = clearDBusInterfaceInfoProperties--dBusInterfaceInfo_properties :: AttrLabelProxy "properties"-dBusInterfaceInfo_properties = AttrLabelProxy--#endif---{- |-Get the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceInfo #annotations-@--}-getDBusInterfaceInfoAnnotations :: MonadIO m => DBusInterfaceInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])-getDBusInterfaceInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusAnnotationInfo.DBusAnnotationInfo) val''-        return val'''-    return result--{- |-Set the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceInfo [ #annotations 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceInfoAnnotations :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()-setDBusInterfaceInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--{- |-Set the value of the “@annotations@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #annotations-@--}-clearDBusInterfaceInfoAnnotations :: MonadIO m => DBusInterfaceInfo -> m ()-clearDBusInterfaceInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--#if ENABLE_OVERLOADING-data DBusInterfaceInfoAnnotationsFieldInfo-instance AttrInfo DBusInterfaceInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusInterfaceInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusInterfaceInfoAnnotationsFieldInfo = (~) DBusInterfaceInfo-    type AttrGetType DBusInterfaceInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]-    type AttrLabel DBusInterfaceInfoAnnotationsFieldInfo = "annotations"-    type AttrOrigin DBusInterfaceInfoAnnotationsFieldInfo = DBusInterfaceInfo-    attrGet _ = getDBusInterfaceInfoAnnotations-    attrSet _ = setDBusInterfaceInfoAnnotations-    attrConstruct = undefined-    attrClear _ = clearDBusInterfaceInfoAnnotations--dBusInterfaceInfo_annotations :: AttrLabelProxy "annotations"-dBusInterfaceInfo_annotations = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusInterfaceInfo-type instance O.AttributeList DBusInterfaceInfo = DBusInterfaceInfoAttributeList-type DBusInterfaceInfoAttributeList = ('[ '("refCount", DBusInterfaceInfoRefCountFieldInfo), '("name", DBusInterfaceInfoNameFieldInfo), '("methods", DBusInterfaceInfoMethodsFieldInfo), '("signals", DBusInterfaceInfoSignalsFieldInfo), '("properties", DBusInterfaceInfoPropertiesFieldInfo), '("annotations", DBusInterfaceInfoAnnotationsFieldInfo)] :: [(Symbol, *)])-#endif---- method DBusInterfaceInfo::cache_build--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_cache_build" g_dbus_interface_info_cache_build :: -    Ptr DBusInterfaceInfo ->                -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    IO ()--{- |-Builds a lookup-cache to speed up-'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoLookupMethod',-'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoLookupSignal' and-'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoLookupProperty'.--If this has already been called with /@info@/, the existing cache is-used and its use count is increased.--Note that /@info@/ cannot be modified until-'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoCacheRelease' is called.--/Since: 2.30/--}-dBusInterfaceInfoCacheBuild ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusInterfaceInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo'. -}-    -> m ()-dBusInterfaceInfoCacheBuild info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_interface_info_cache_build info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceInfoCacheBuildMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusInterfaceInfoCacheBuildMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoCacheBuild--#endif---- method DBusInterfaceInfo::cache_release--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A GDBusInterfaceInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_cache_release" g_dbus_interface_info_cache_release :: -    Ptr DBusInterfaceInfo ->                -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    IO ()--{- |-Decrements the usage count for the cache for /@info@/ built by-'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoCacheBuild' (if any) and frees the-resources used by the cache if the usage count drops to zero.--/Since: 2.30/--}-dBusInterfaceInfoCacheRelease ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusInterfaceInfo-    {- ^ /@info@/: A GDBusInterfaceInfo -}-    -> m ()-dBusInterfaceInfoCacheRelease info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_interface_info_cache_release info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceInfoCacheReleaseMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusInterfaceInfoCacheReleaseMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoCacheRelease--#endif---- method DBusInterfaceInfo::generate_xml--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusNodeInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Indentation level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_builder", argType = TInterface (Name {namespace = "GLib", name = "String"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GString to to append XML data to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_generate_xml" g_dbus_interface_info_generate_xml :: -    Ptr DBusInterfaceInfo ->                -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    Word32 ->                               -- indent : TBasicType TUInt-    Ptr GLib.String.String ->               -- string_builder : TInterface (Name {namespace = "GLib", name = "String"})-    IO ()--{- |-Appends an XML representation of /@info@/ (and its children) to /@stringBuilder@/.--This function is typically used for generating introspection XML-documents at run-time for handling the-@org.freedesktop.DBus.Introspectable.Introspect@-method.--/Since: 2.26/--}-dBusInterfaceInfoGenerateXml ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusInterfaceInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo' -}-    -> Word32-    {- ^ /@indent@/: Indentation level. -}-    -> GLib.String.String-    {- ^ /@stringBuilder@/: A 'GI.GLib.Structs.String.String' to to append XML data to. -}-    -> m ()-dBusInterfaceInfoGenerateXml info indent stringBuilder = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    stringBuilder' <- unsafeManagedPtrGetPtr stringBuilder-    g_dbus_interface_info_generate_xml info' indent stringBuilder'-    touchManagedPtr info-    touchManagedPtr stringBuilder-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceInfoGenerateXmlMethodInfo-instance (signature ~ (Word32 -> GLib.String.String -> m ()), MonadIO m) => O.MethodInfo DBusInterfaceInfoGenerateXmlMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoGenerateXml--#endif---- method DBusInterfaceInfo::lookup_method--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus method name (typically in CamelCase)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMethodInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_lookup_method" g_dbus_interface_info_lookup_method :: -    Ptr DBusInterfaceInfo ->                -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Gio.DBusMethodInfo.DBusMethodInfo)--{- |-Looks up information about a method.--The cost of this function is O(n) in number of methods unless-'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoCacheBuild' has been used on /@info@/.--/Since: 2.26/--}-dBusInterfaceInfoLookupMethod ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusInterfaceInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo'. -}-    -> T.Text-    {- ^ /@name@/: A D-Bus method name (typically in CamelCase) -}-    -> m Gio.DBusMethodInfo.DBusMethodInfo-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusMethodInfo.DBusMethodInfo' or 'Nothing' if not found. Do not free, it is owned by /@info@/. -}-dBusInterfaceInfoLookupMethod info name = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    name' <- textToCString name-    result <- g_dbus_interface_info_lookup_method info' name'-    checkUnexpectedReturnNULL "dBusInterfaceInfoLookupMethod" result-    result' <- (newBoxed Gio.DBusMethodInfo.DBusMethodInfo) result-    touchManagedPtr info-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceInfoLookupMethodMethodInfo-instance (signature ~ (T.Text -> m Gio.DBusMethodInfo.DBusMethodInfo), MonadIO m) => O.MethodInfo DBusInterfaceInfoLookupMethodMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoLookupMethod--#endif---- method DBusInterfaceInfo::lookup_property--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus property name (typically in CamelCase).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusPropertyInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_lookup_property" g_dbus_interface_info_lookup_property :: -    Ptr DBusInterfaceInfo ->                -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Gio.DBusPropertyInfo.DBusPropertyInfo)--{- |-Looks up information about a property.--The cost of this function is O(n) in number of properties unless-'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoCacheBuild' has been used on /@info@/.--/Since: 2.26/--}-dBusInterfaceInfoLookupProperty ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusInterfaceInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo'. -}-    -> T.Text-    {- ^ /@name@/: A D-Bus property name (typically in CamelCase). -}-    -> m Gio.DBusPropertyInfo.DBusPropertyInfo-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusPropertyInfo.DBusPropertyInfo' or 'Nothing' if not found. Do not free, it is owned by /@info@/. -}-dBusInterfaceInfoLookupProperty info name = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    name' <- textToCString name-    result <- g_dbus_interface_info_lookup_property info' name'-    checkUnexpectedReturnNULL "dBusInterfaceInfoLookupProperty" result-    result' <- (newBoxed Gio.DBusPropertyInfo.DBusPropertyInfo) result-    touchManagedPtr info-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceInfoLookupPropertyMethodInfo-instance (signature ~ (T.Text -> m Gio.DBusPropertyInfo.DBusPropertyInfo), MonadIO m) => O.MethodInfo DBusInterfaceInfoLookupPropertyMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoLookupProperty--#endif---- method DBusInterfaceInfo::lookup_signal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus signal name (typically in CamelCase)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusSignalInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_lookup_signal" g_dbus_interface_info_lookup_signal :: -    Ptr DBusInterfaceInfo ->                -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Gio.DBusSignalInfo.DBusSignalInfo)--{- |-Looks up information about a signal.--The cost of this function is O(n) in number of signals unless-'GI.Gio.Structs.DBusInterfaceInfo.dBusInterfaceInfoCacheBuild' has been used on /@info@/.--/Since: 2.26/--}-dBusInterfaceInfoLookupSignal ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusInterfaceInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo'. -}-    -> T.Text-    {- ^ /@name@/: A D-Bus signal name (typically in CamelCase) -}-    -> m Gio.DBusSignalInfo.DBusSignalInfo-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusSignalInfo.DBusSignalInfo' or 'Nothing' if not found. Do not free, it is owned by /@info@/. -}-dBusInterfaceInfoLookupSignal info name = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    name' <- textToCString name-    result <- g_dbus_interface_info_lookup_signal info' name'-    checkUnexpectedReturnNULL "dBusInterfaceInfoLookupSignal" result-    result' <- (newBoxed Gio.DBusSignalInfo.DBusSignalInfo) result-    touchManagedPtr info-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceInfoLookupSignalMethodInfo-instance (signature ~ (T.Text -> m Gio.DBusSignalInfo.DBusSignalInfo), MonadIO m) => O.MethodInfo DBusInterfaceInfoLookupSignalMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoLookupSignal--#endif---- method DBusInterfaceInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_ref" g_dbus_interface_info_ref :: -    Ptr DBusInterfaceInfo ->                -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    IO (Ptr DBusInterfaceInfo)--{- |-If /@info@/ is statically allocated does nothing. Otherwise increases-the reference count.--/Since: 2.26/--}-dBusInterfaceInfoRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusInterfaceInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' -}-    -> m DBusInterfaceInfo-    {- ^ __Returns:__ The same /@info@/. -}-dBusInterfaceInfoRef info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    result <- g_dbus_interface_info_ref info'-    checkUnexpectedReturnNULL "dBusInterfaceInfoRef" result-    result' <- (wrapBoxed DBusInterfaceInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DBusInterfaceInfoRefMethodInfo-instance (signature ~ (m DBusInterfaceInfo), MonadIO m) => O.MethodInfo DBusInterfaceInfoRefMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoRef--#endif---- method DBusInterfaceInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusInterfaceInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_interface_info_unref" g_dbus_interface_info_unref :: -    Ptr DBusInterfaceInfo ->                -- info : TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"})-    IO ()--{- |-If /@info@/ is statically allocated, does nothing. Otherwise decreases-the reference count of /@info@/. When its reference count drops to 0,-the memory used is freed.--/Since: 2.26/--}-dBusInterfaceInfoUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusInterfaceInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo'. -}-    -> m ()-dBusInterfaceInfoUnref info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_interface_info_unref info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusInterfaceInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusInterfaceInfoUnrefMethodInfo DBusInterfaceInfo signature where-    overloadedMethod _ = dBusInterfaceInfoUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveDBusInterfaceInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusInterfaceInfoMethod "cacheBuild" o = DBusInterfaceInfoCacheBuildMethodInfo-    ResolveDBusInterfaceInfoMethod "cacheRelease" o = DBusInterfaceInfoCacheReleaseMethodInfo-    ResolveDBusInterfaceInfoMethod "generateXml" o = DBusInterfaceInfoGenerateXmlMethodInfo-    ResolveDBusInterfaceInfoMethod "lookupMethod" o = DBusInterfaceInfoLookupMethodMethodInfo-    ResolveDBusInterfaceInfoMethod "lookupProperty" o = DBusInterfaceInfoLookupPropertyMethodInfo-    ResolveDBusInterfaceInfoMethod "lookupSignal" o = DBusInterfaceInfoLookupSignalMethodInfo-    ResolveDBusInterfaceInfoMethod "ref" o = DBusInterfaceInfoRefMethodInfo-    ResolveDBusInterfaceInfoMethod "unref" o = DBusInterfaceInfoUnrefMethodInfo-    ResolveDBusInterfaceInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusInterfaceInfoMethod t DBusInterfaceInfo, O.MethodInfo info DBusInterfaceInfo p) => OL.IsLabel t (DBusInterfaceInfo -> 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--
− GI/Gio/Structs/DBusInterfaceInfo.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusInterfaceInfo 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 DBusInterfaceInfo = DBusInterfaceInfo (ManagedPtr DBusInterfaceInfo)-instance BoxedObject DBusInterfaceInfo where-#if ENABLE_OVERLOADING-data DBusInterfaceInfoCacheBuildMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceInfoCacheReleaseMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceInfoGenerateXmlMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceInfoLookupMethodMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceInfoLookupPropertyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceInfoLookupSignalMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceInfoRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusInterfaceInfoUnrefMethodInfo-#endif
− GI/Gio/Structs/DBusInterfaceVTable.hs 
@@ -1,347 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Virtual table for handling properties and method calls for a D-Bus-interface.--Since 2.38, if you want to handle getting\/setting D-Bus properties-asynchronously, give 'Nothing' as your @/get_property()/@ or @/set_property()/@-function. The D-Bus call will be directed to your /@methodCall@/ function,-with the provided /@interfaceName@/ set to \"org.freedesktop.DBus.Properties\".--Ownership of the 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation' object passed to the-@/method_call()/@ function is transferred to your handler; you must-call one of the methods of 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation' to return a reply-(possibly empty), or an error. These functions also take ownership-of the passed-in invocation object, so unless the invocation-object has otherwise been referenced, it will be then be freed.-Calling one of these functions may be done within your-@/method_call()/@ implementation but it also can be done at a later-point to handle the method asynchronously.--The usual checks on the validity of the calls is performed. For-@Get@ calls, an error is automatically returned if the property does-not exist or the permissions do not allow access. The same checks are-performed for @Set@ calls, and the provided value is also checked for-being the correct type.--For both @Get@ and @Set@ calls, the 'GI.Gio.Objects.DBusMethodInvocation.DBusMethodInvocation'-passed to the /@methodCall@/ handler can be queried with-'GI.Gio.Objects.DBusMethodInvocation.dBusMethodInvocationGetPropertyInfo' to get a pointer-to the 'GI.Gio.Structs.DBusPropertyInfo.DBusPropertyInfo' of the property.--If you have readable properties specified in your interface info,-you must ensure that you either provide a non-'Nothing' /@getProperty@/()-function or provide implementations of both the @Get@ and @GetAll@-methods on org.freedesktop.DBus.Properties interface in your /@methodCall@/-function. Note that the required return type of the @Get@ call is-@(v)@, not the type of the property. @GetAll@ expects a return value-of type @a{sv}@.--If you have writable properties specified in your interface info,-you must ensure that you either provide a non-'Nothing' /@setProperty@/()-function or provide an implementation of the @Set@ call. If implementing-the call, you must return the value of type @/G_VARIANT_TYPE_UNIT/@.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusInterfaceVTable-    ( ---- * Exported types-    DBusInterfaceVTable(..)                 ,-    newZeroDBusInterfaceVTable              ,-    noDBusInterfaceVTable                   ,--- -- * Properties--- ** getProperty #attr:getProperty#-{- | Function for getting a property.--}-    clearDBusInterfaceVTableGetProperty     ,-#if ENABLE_OVERLOADING-    dBusInterfaceVTable_getProperty         ,-#endif-    getDBusInterfaceVTableGetProperty       ,-    setDBusInterfaceVTableGetProperty       ,----- ** methodCall #attr:methodCall#-{- | Function for handling incoming method calls.--}-    clearDBusInterfaceVTableMethodCall      ,-#if ENABLE_OVERLOADING-    dBusInterfaceVTable_methodCall          ,-#endif-    getDBusInterfaceVTableMethodCall        ,-    setDBusInterfaceVTableMethodCall        ,----- ** setProperty #attr:setProperty#-{- | Function for setting a property.--}-    clearDBusInterfaceVTableSetProperty     ,-#if ENABLE_OVERLOADING-    dBusInterfaceVTable_setProperty         ,-#endif-    getDBusInterfaceVTableSetProperty       ,-    setDBusInterfaceVTableSetProperty       ,-----    ) 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.Callbacks as Gio.Callbacks---- | Memory-managed wrapper type.-newtype DBusInterfaceVTable = DBusInterfaceVTable (ManagedPtr DBusInterfaceVTable)-instance WrappedPtr DBusInterfaceVTable where-    wrappedPtrCalloc = callocBytes 88-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 88 >=> wrapPtr DBusInterfaceVTable)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `DBusInterfaceVTable` struct initialized to zero.-newZeroDBusInterfaceVTable :: MonadIO m => m DBusInterfaceVTable-newZeroDBusInterfaceVTable = liftIO $ wrappedPtrCalloc >>= wrapPtr DBusInterfaceVTable--instance tag ~ 'AttrSet => Constructible DBusInterfaceVTable tag where-    new _ attrs = do-        o <- newZeroDBusInterfaceVTable-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusInterfaceVTable`.-noDBusInterfaceVTable :: Maybe DBusInterfaceVTable-noDBusInterfaceVTable = Nothing--{- |-Get the value of the “@method_call@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceVTable #methodCall-@--}-getDBusInterfaceVTableMethodCall :: MonadIO m => DBusInterfaceVTable -> m (Maybe Gio.Callbacks.DBusInterfaceMethodCallFunc_WithClosures)-getDBusInterfaceVTableMethodCall s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)-    result <- SP.convertFunPtrIfNonNull val $ \val' -> do-        let val'' = Gio.Callbacks.dynamic_DBusInterfaceMethodCallFunc val'-        return val''-    return result--{- |-Set the value of the “@method_call@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceVTable [ #methodCall 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceVTableMethodCall :: MonadIO m => DBusInterfaceVTable -> FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc -> m ()-setDBusInterfaceVTableMethodCall s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)--{- |-Set the value of the “@method_call@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #methodCall-@--}-clearDBusInterfaceVTableMethodCall :: MonadIO m => DBusInterfaceVTable -> m ()-clearDBusInterfaceVTableMethodCall s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullFunPtr :: FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)--#if ENABLE_OVERLOADING-data DBusInterfaceVTableMethodCallFieldInfo-instance AttrInfo DBusInterfaceVTableMethodCallFieldInfo where-    type AttrAllowedOps DBusInterfaceVTableMethodCallFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceVTableMethodCallFieldInfo = (~) (FunPtr Gio.Callbacks.C_DBusInterfaceMethodCallFunc)-    type AttrBaseTypeConstraint DBusInterfaceVTableMethodCallFieldInfo = (~) DBusInterfaceVTable-    type AttrGetType DBusInterfaceVTableMethodCallFieldInfo = Maybe Gio.Callbacks.DBusInterfaceMethodCallFunc_WithClosures-    type AttrLabel DBusInterfaceVTableMethodCallFieldInfo = "method_call"-    type AttrOrigin DBusInterfaceVTableMethodCallFieldInfo = DBusInterfaceVTable-    attrGet _ = getDBusInterfaceVTableMethodCall-    attrSet _ = setDBusInterfaceVTableMethodCall-    attrConstruct = undefined-    attrClear _ = clearDBusInterfaceVTableMethodCall--dBusInterfaceVTable_methodCall :: AttrLabelProxy "methodCall"-dBusInterfaceVTable_methodCall = AttrLabelProxy--#endif---{- |-Get the value of the “@get_property@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceVTable #getProperty-@--}-getDBusInterfaceVTableGetProperty :: MonadIO m => DBusInterfaceVTable -> m (Maybe Gio.Callbacks.DBusInterfaceGetPropertyFunc_WithClosures)-getDBusInterfaceVTableGetProperty s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)-    result <- SP.convertFunPtrIfNonNull val $ \val' -> do-        let val'' = Gio.Callbacks.dynamic_DBusInterfaceGetPropertyFunc val'-        return val''-    return result--{- |-Set the value of the “@get_property@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceVTable [ #getProperty 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceVTableGetProperty :: MonadIO m => DBusInterfaceVTable -> FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc -> m ()-setDBusInterfaceVTableGetProperty s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)--{- |-Set the value of the “@get_property@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #getProperty-@--}-clearDBusInterfaceVTableGetProperty :: MonadIO m => DBusInterfaceVTable -> m ()-clearDBusInterfaceVTableGetProperty s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullFunPtr :: FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)--#if ENABLE_OVERLOADING-data DBusInterfaceVTableGetPropertyFieldInfo-instance AttrInfo DBusInterfaceVTableGetPropertyFieldInfo where-    type AttrAllowedOps DBusInterfaceVTableGetPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceVTableGetPropertyFieldInfo = (~) (FunPtr Gio.Callbacks.C_DBusInterfaceGetPropertyFunc)-    type AttrBaseTypeConstraint DBusInterfaceVTableGetPropertyFieldInfo = (~) DBusInterfaceVTable-    type AttrGetType DBusInterfaceVTableGetPropertyFieldInfo = Maybe Gio.Callbacks.DBusInterfaceGetPropertyFunc_WithClosures-    type AttrLabel DBusInterfaceVTableGetPropertyFieldInfo = "get_property"-    type AttrOrigin DBusInterfaceVTableGetPropertyFieldInfo = DBusInterfaceVTable-    attrGet _ = getDBusInterfaceVTableGetProperty-    attrSet _ = setDBusInterfaceVTableGetProperty-    attrConstruct = undefined-    attrClear _ = clearDBusInterfaceVTableGetProperty--dBusInterfaceVTable_getProperty :: AttrLabelProxy "getProperty"-dBusInterfaceVTable_getProperty = AttrLabelProxy--#endif---{- |-Get the value of the “@set_property@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusInterfaceVTable #setProperty-@--}-getDBusInterfaceVTableSetProperty :: MonadIO m => DBusInterfaceVTable -> m (Maybe Gio.Callbacks.DBusInterfaceSetPropertyFunc_WithClosures)-getDBusInterfaceVTableSetProperty s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)-    result <- SP.convertFunPtrIfNonNull val $ \val' -> do-        let val'' = Gio.Callbacks.dynamic_DBusInterfaceSetPropertyFunc val'-        return val''-    return result--{- |-Set the value of the “@set_property@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusInterfaceVTable [ #setProperty 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusInterfaceVTableSetProperty :: MonadIO m => DBusInterfaceVTable -> FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc -> m ()-setDBusInterfaceVTableSetProperty s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)--{- |-Set the value of the “@set_property@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #setProperty-@--}-clearDBusInterfaceVTableSetProperty :: MonadIO m => DBusInterfaceVTable -> m ()-clearDBusInterfaceVTableSetProperty s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullFunPtr :: FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)--#if ENABLE_OVERLOADING-data DBusInterfaceVTableSetPropertyFieldInfo-instance AttrInfo DBusInterfaceVTableSetPropertyFieldInfo where-    type AttrAllowedOps DBusInterfaceVTableSetPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusInterfaceVTableSetPropertyFieldInfo = (~) (FunPtr Gio.Callbacks.C_DBusInterfaceSetPropertyFunc)-    type AttrBaseTypeConstraint DBusInterfaceVTableSetPropertyFieldInfo = (~) DBusInterfaceVTable-    type AttrGetType DBusInterfaceVTableSetPropertyFieldInfo = Maybe Gio.Callbacks.DBusInterfaceSetPropertyFunc_WithClosures-    type AttrLabel DBusInterfaceVTableSetPropertyFieldInfo = "set_property"-    type AttrOrigin DBusInterfaceVTableSetPropertyFieldInfo = DBusInterfaceVTable-    attrGet _ = getDBusInterfaceVTableSetProperty-    attrSet _ = setDBusInterfaceVTableSetProperty-    attrConstruct = undefined-    attrClear _ = clearDBusInterfaceVTableSetProperty--dBusInterfaceVTable_setProperty :: AttrLabelProxy "setProperty"-dBusInterfaceVTable_setProperty = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusInterfaceVTable-type instance O.AttributeList DBusInterfaceVTable = DBusInterfaceVTableAttributeList-type DBusInterfaceVTableAttributeList = ('[ '("methodCall", DBusInterfaceVTableMethodCallFieldInfo), '("getProperty", DBusInterfaceVTableGetPropertyFieldInfo), '("setProperty", DBusInterfaceVTableSetPropertyFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveDBusInterfaceVTableMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusInterfaceVTableMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusInterfaceVTableMethod t DBusInterfaceVTable, O.MethodInfo info DBusInterfaceVTable p) => OL.IsLabel t (DBusInterfaceVTable -> 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--
− GI/Gio/Structs/DBusInterfaceVTable.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusInterfaceVTable 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 DBusInterfaceVTable = DBusInterfaceVTable (ManagedPtr DBusInterfaceVTable)-instance WrappedPtr DBusInterfaceVTable where
− GI/Gio/Structs/DBusMethodInfo.hs 
@@ -1,535 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Information about a method on an D-Bus interface.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusMethodInfo-    ( ---- * Exported types-    DBusMethodInfo(..)                      ,-    newZeroDBusMethodInfo                   ,-    noDBusMethodInfo                        ,--- -- * Methods--- ** ref #method:ref#--#if ENABLE_OVERLOADING-    DBusMethodInfoRefMethodInfo             ,-#endif-    dBusMethodInfoRef                       ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    DBusMethodInfoUnrefMethodInfo           ,-#endif-    dBusMethodInfoUnref                     ,----- -- * Properties--- ** annotations #attr:annotations#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusAnnotationInfo.DBusAnnotationInfo' structures or 'Nothing' if there are no annotations.--}-    clearDBusMethodInfoAnnotations          ,-#if ENABLE_OVERLOADING-    dBusMethodInfo_annotations              ,-#endif-    getDBusMethodInfoAnnotations            ,-    setDBusMethodInfoAnnotations            ,----- ** inArgs #attr:inArgs#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusArgInfo.DBusArgInfo' structures or 'Nothing' if there are no in arguments.--}-    clearDBusMethodInfoInArgs               ,-#if ENABLE_OVERLOADING-    dBusMethodInfo_inArgs                   ,-#endif-    getDBusMethodInfoInArgs                 ,-    setDBusMethodInfoInArgs                 ,----- ** name #attr:name#-{- | The name of the D-Bus method, e.g. /@requestName@/.--}-    clearDBusMethodInfoName                 ,-#if ENABLE_OVERLOADING-    dBusMethodInfo_name                     ,-#endif-    getDBusMethodInfoName                   ,-    setDBusMethodInfoName                   ,----- ** outArgs #attr:outArgs#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusArgInfo.DBusArgInfo' structures or 'Nothing' if there are no out arguments.--}-    clearDBusMethodInfoOutArgs              ,-#if ENABLE_OVERLOADING-    dBusMethodInfo_outArgs                  ,-#endif-    getDBusMethodInfoOutArgs                ,-    setDBusMethodInfoOutArgs                ,----- ** refCount #attr:refCount#-{- | The reference count or -1 if statically allocated.--}-#if ENABLE_OVERLOADING-    dBusMethodInfo_refCount                 ,-#endif-    getDBusMethodInfoRefCount               ,-    setDBusMethodInfoRefCount               ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusArgInfo as Gio.DBusArgInfo---- | Memory-managed wrapper type.-newtype DBusMethodInfo = DBusMethodInfo (ManagedPtr DBusMethodInfo)-foreign import ccall "g_dbus_method_info_get_type" c_g_dbus_method_info_get_type :: -    IO GType--instance BoxedObject DBusMethodInfo where-    boxedType _ = c_g_dbus_method_info_get_type---- | Construct a `DBusMethodInfo` struct initialized to zero.-newZeroDBusMethodInfo :: MonadIO m => m DBusMethodInfo-newZeroDBusMethodInfo = liftIO $ callocBoxedBytes 40 >>= wrapBoxed DBusMethodInfo--instance tag ~ 'AttrSet => Constructible DBusMethodInfo tag where-    new _ attrs = do-        o <- newZeroDBusMethodInfo-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusMethodInfo`.-noDBusMethodInfo :: Maybe DBusMethodInfo-noDBusMethodInfo = Nothing--{- |-Get the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusMethodInfo #refCount-@--}-getDBusMethodInfoRefCount :: MonadIO m => DBusMethodInfo -> m Int32-getDBusMethodInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusMethodInfo [ #refCount 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusMethodInfoRefCount :: MonadIO m => DBusMethodInfo -> Int32 -> m ()-setDBusMethodInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-data DBusMethodInfoRefCountFieldInfo-instance AttrInfo DBusMethodInfoRefCountFieldInfo where-    type AttrAllowedOps DBusMethodInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusMethodInfoRefCountFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DBusMethodInfoRefCountFieldInfo = (~) DBusMethodInfo-    type AttrGetType DBusMethodInfoRefCountFieldInfo = Int32-    type AttrLabel DBusMethodInfoRefCountFieldInfo = "ref_count"-    type AttrOrigin DBusMethodInfoRefCountFieldInfo = DBusMethodInfo-    attrGet _ = getDBusMethodInfoRefCount-    attrSet _ = setDBusMethodInfoRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusMethodInfo_refCount :: AttrLabelProxy "refCount"-dBusMethodInfo_refCount = AttrLabelProxy--#endif---{- |-Get the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusMethodInfo #name-@--}-getDBusMethodInfoName :: MonadIO m => DBusMethodInfo -> m (Maybe T.Text)-getDBusMethodInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusMethodInfo [ #name 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusMethodInfoName :: MonadIO m => DBusMethodInfo -> CString -> m ()-setDBusMethodInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #name-@--}-clearDBusMethodInfoName :: MonadIO m => DBusMethodInfo -> m ()-clearDBusMethodInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusMethodInfoNameFieldInfo-instance AttrInfo DBusMethodInfoNameFieldInfo where-    type AttrAllowedOps DBusMethodInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusMethodInfoNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusMethodInfoNameFieldInfo = (~) DBusMethodInfo-    type AttrGetType DBusMethodInfoNameFieldInfo = Maybe T.Text-    type AttrLabel DBusMethodInfoNameFieldInfo = "name"-    type AttrOrigin DBusMethodInfoNameFieldInfo = DBusMethodInfo-    attrGet _ = getDBusMethodInfoName-    attrSet _ = setDBusMethodInfoName-    attrConstruct = undefined-    attrClear _ = clearDBusMethodInfoName--dBusMethodInfo_name :: AttrLabelProxy "name"-dBusMethodInfo_name = AttrLabelProxy--#endif---{- |-Get the value of the “@in_args@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusMethodInfo #inArgs-@--}-getDBusMethodInfoInArgs :: MonadIO m => DBusMethodInfo -> m (Maybe [Gio.DBusArgInfo.DBusArgInfo])-getDBusMethodInfoInArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusArgInfo.DBusArgInfo) val''-        return val'''-    return result--{- |-Set the value of the “@in_args@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusMethodInfo [ #inArgs 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusMethodInfoInArgs :: MonadIO m => DBusMethodInfo -> Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo) -> m ()-setDBusMethodInfoInArgs s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))--{- |-Set the value of the “@in_args@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #inArgs-@--}-clearDBusMethodInfoInArgs :: MonadIO m => DBusMethodInfo -> m ()-clearDBusMethodInfoInArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))--#if ENABLE_OVERLOADING-data DBusMethodInfoInArgsFieldInfo-instance AttrInfo DBusMethodInfoInArgsFieldInfo where-    type AttrAllowedOps DBusMethodInfoInArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusMethodInfoInArgsFieldInfo = (~) (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))-    type AttrBaseTypeConstraint DBusMethodInfoInArgsFieldInfo = (~) DBusMethodInfo-    type AttrGetType DBusMethodInfoInArgsFieldInfo = Maybe [Gio.DBusArgInfo.DBusArgInfo]-    type AttrLabel DBusMethodInfoInArgsFieldInfo = "in_args"-    type AttrOrigin DBusMethodInfoInArgsFieldInfo = DBusMethodInfo-    attrGet _ = getDBusMethodInfoInArgs-    attrSet _ = setDBusMethodInfoInArgs-    attrConstruct = undefined-    attrClear _ = clearDBusMethodInfoInArgs--dBusMethodInfo_inArgs :: AttrLabelProxy "inArgs"-dBusMethodInfo_inArgs = AttrLabelProxy--#endif---{- |-Get the value of the “@out_args@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusMethodInfo #outArgs-@--}-getDBusMethodInfoOutArgs :: MonadIO m => DBusMethodInfo -> m (Maybe [Gio.DBusArgInfo.DBusArgInfo])-getDBusMethodInfoOutArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusArgInfo.DBusArgInfo) val''-        return val'''-    return result--{- |-Set the value of the “@out_args@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusMethodInfo [ #outArgs 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusMethodInfoOutArgs :: MonadIO m => DBusMethodInfo -> Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo) -> m ()-setDBusMethodInfoOutArgs s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))--{- |-Set the value of the “@out_args@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #outArgs-@--}-clearDBusMethodInfoOutArgs :: MonadIO m => DBusMethodInfo -> m ()-clearDBusMethodInfoOutArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))--#if ENABLE_OVERLOADING-data DBusMethodInfoOutArgsFieldInfo-instance AttrInfo DBusMethodInfoOutArgsFieldInfo where-    type AttrAllowedOps DBusMethodInfoOutArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~) (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))-    type AttrBaseTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~) DBusMethodInfo-    type AttrGetType DBusMethodInfoOutArgsFieldInfo = Maybe [Gio.DBusArgInfo.DBusArgInfo]-    type AttrLabel DBusMethodInfoOutArgsFieldInfo = "out_args"-    type AttrOrigin DBusMethodInfoOutArgsFieldInfo = DBusMethodInfo-    attrGet _ = getDBusMethodInfoOutArgs-    attrSet _ = setDBusMethodInfoOutArgs-    attrConstruct = undefined-    attrClear _ = clearDBusMethodInfoOutArgs--dBusMethodInfo_outArgs :: AttrLabelProxy "outArgs"-dBusMethodInfo_outArgs = AttrLabelProxy--#endif---{- |-Get the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusMethodInfo #annotations-@--}-getDBusMethodInfoAnnotations :: MonadIO m => DBusMethodInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])-getDBusMethodInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusAnnotationInfo.DBusAnnotationInfo) val''-        return val'''-    return result--{- |-Set the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusMethodInfo [ #annotations 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusMethodInfoAnnotations :: MonadIO m => DBusMethodInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()-setDBusMethodInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--{- |-Set the value of the “@annotations@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #annotations-@--}-clearDBusMethodInfoAnnotations :: MonadIO m => DBusMethodInfo -> m ()-clearDBusMethodInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--#if ENABLE_OVERLOADING-data DBusMethodInfoAnnotationsFieldInfo-instance AttrInfo DBusMethodInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusMethodInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~) DBusMethodInfo-    type AttrGetType DBusMethodInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]-    type AttrLabel DBusMethodInfoAnnotationsFieldInfo = "annotations"-    type AttrOrigin DBusMethodInfoAnnotationsFieldInfo = DBusMethodInfo-    attrGet _ = getDBusMethodInfoAnnotations-    attrSet _ = setDBusMethodInfoAnnotations-    attrConstruct = undefined-    attrClear _ = clearDBusMethodInfoAnnotations--dBusMethodInfo_annotations :: AttrLabelProxy "annotations"-dBusMethodInfo_annotations = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusMethodInfo-type instance O.AttributeList DBusMethodInfo = DBusMethodInfoAttributeList-type DBusMethodInfoAttributeList = ('[ '("refCount", DBusMethodInfoRefCountFieldInfo), '("name", DBusMethodInfoNameFieldInfo), '("inArgs", DBusMethodInfoInArgsFieldInfo), '("outArgs", DBusMethodInfoOutArgsFieldInfo), '("annotations", DBusMethodInfoAnnotationsFieldInfo)] :: [(Symbol, *)])-#endif---- method DBusMethodInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusMethodInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_info_ref" g_dbus_method_info_ref :: -    Ptr DBusMethodInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DBusMethodInfo"})-    IO (Ptr DBusMethodInfo)--{- |-If /@info@/ is statically allocated does nothing. Otherwise increases-the reference count.--/Since: 2.26/--}-dBusMethodInfoRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusMethodInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusMethodInfo.DBusMethodInfo' -}-    -> m DBusMethodInfo-    {- ^ __Returns:__ The same /@info@/. -}-dBusMethodInfoRef info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    result <- g_dbus_method_info_ref info'-    checkUnexpectedReturnNULL "dBusMethodInfoRef" result-    result' <- (wrapBoxed DBusMethodInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DBusMethodInfoRefMethodInfo-instance (signature ~ (m DBusMethodInfo), MonadIO m) => O.MethodInfo DBusMethodInfoRefMethodInfo DBusMethodInfo signature where-    overloadedMethod _ = dBusMethodInfoRef--#endif---- method DBusMethodInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusMethodInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusMethodInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_method_info_unref" g_dbus_method_info_unref :: -    Ptr DBusMethodInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DBusMethodInfo"})-    IO ()--{- |-If /@info@/ is statically allocated, does nothing. Otherwise decreases-the reference count of /@info@/. When its reference count drops to 0,-the memory used is freed.--/Since: 2.26/--}-dBusMethodInfoUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusMethodInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusMethodInfo.DBusMethodInfo'. -}-    -> m ()-dBusMethodInfoUnref info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_method_info_unref info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusMethodInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusMethodInfoUnrefMethodInfo DBusMethodInfo signature where-    overloadedMethod _ = dBusMethodInfoUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveDBusMethodInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusMethodInfoMethod "ref" o = DBusMethodInfoRefMethodInfo-    ResolveDBusMethodInfoMethod "unref" o = DBusMethodInfoUnrefMethodInfo-    ResolveDBusMethodInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusMethodInfoMethod t DBusMethodInfo, O.MethodInfo info DBusMethodInfo p) => OL.IsLabel t (DBusMethodInfo -> 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--
− GI/Gio/Structs/DBusMethodInfo.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusMethodInfo 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 DBusMethodInfo = DBusMethodInfo (ManagedPtr DBusMethodInfo)-instance BoxedObject DBusMethodInfo where-#if ENABLE_OVERLOADING-data DBusMethodInfoRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusMethodInfoUnrefMethodInfo-#endif
− GI/Gio/Structs/DBusNodeInfo.hs 
@@ -1,697 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Information about nodes in a remote object hierarchy.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusNodeInfo-    ( ---- * Exported types-    DBusNodeInfo(..)                        ,-    newZeroDBusNodeInfo                     ,-    noDBusNodeInfo                          ,--- -- * Methods--- ** generateXml #method:generateXml#--#if ENABLE_OVERLOADING-    DBusNodeInfoGenerateXmlMethodInfo       ,-#endif-    dBusNodeInfoGenerateXml                 ,----- ** lookupInterface #method:lookupInterface#--#if ENABLE_OVERLOADING-    DBusNodeInfoLookupInterfaceMethodInfo   ,-#endif-    dBusNodeInfoLookupInterface             ,----- ** newForXml #method:newForXml#--    dBusNodeInfoNewForXml                   ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    DBusNodeInfoRefMethodInfo               ,-#endif-    dBusNodeInfoRef                         ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    DBusNodeInfoUnrefMethodInfo             ,-#endif-    dBusNodeInfoUnref                       ,----- -- * Properties--- ** annotations #attr:annotations#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusAnnotationInfo.DBusAnnotationInfo' structures or 'Nothing' if there are no annotations.--}-    clearDBusNodeInfoAnnotations            ,-#if ENABLE_OVERLOADING-    dBusNodeInfo_annotations                ,-#endif-    getDBusNodeInfoAnnotations              ,-    setDBusNodeInfoAnnotations              ,----- ** interfaces #attr:interfaces#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' structures or 'Nothing' if there are no interfaces.--}-    clearDBusNodeInfoInterfaces             ,-#if ENABLE_OVERLOADING-    dBusNodeInfo_interfaces                 ,-#endif-    getDBusNodeInfoInterfaces               ,-    setDBusNodeInfoInterfaces               ,----- ** nodes #attr:nodes#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo' structures or 'Nothing' if there are no nodes.--}-    clearDBusNodeInfoNodes                  ,-#if ENABLE_OVERLOADING-    dBusNodeInfo_nodes                      ,-#endif-    getDBusNodeInfoNodes                    ,-    setDBusNodeInfoNodes                    ,----- ** path #attr:path#-{- | The path of the node or 'Nothing' if omitted. Note that this may be a relative path. See the D-Bus specification for more details.--}-    clearDBusNodeInfoPath                   ,-#if ENABLE_OVERLOADING-    dBusNodeInfo_path                       ,-#endif-    getDBusNodeInfoPath                     ,-    setDBusNodeInfoPath                     ,----- ** refCount #attr:refCount#-{- | The reference count or -1 if statically allocated.--}-#if ENABLE_OVERLOADING-    dBusNodeInfo_refCount                   ,-#endif-    getDBusNodeInfoRefCount                 ,-    setDBusNodeInfoRefCount                 ,-----    ) 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.String as GLib.String-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusInterfaceInfo as Gio.DBusInterfaceInfo---- | Memory-managed wrapper type.-newtype DBusNodeInfo = DBusNodeInfo (ManagedPtr DBusNodeInfo)-foreign import ccall "g_dbus_node_info_get_type" c_g_dbus_node_info_get_type :: -    IO GType--instance BoxedObject DBusNodeInfo where-    boxedType _ = c_g_dbus_node_info_get_type---- | Construct a `DBusNodeInfo` struct initialized to zero.-newZeroDBusNodeInfo :: MonadIO m => m DBusNodeInfo-newZeroDBusNodeInfo = liftIO $ callocBoxedBytes 40 >>= wrapBoxed DBusNodeInfo--instance tag ~ 'AttrSet => Constructible DBusNodeInfo tag where-    new _ attrs = do-        o <- newZeroDBusNodeInfo-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusNodeInfo`.-noDBusNodeInfo :: Maybe DBusNodeInfo-noDBusNodeInfo = Nothing--{- |-Get the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusNodeInfo #refCount-@--}-getDBusNodeInfoRefCount :: MonadIO m => DBusNodeInfo -> m Int32-getDBusNodeInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusNodeInfo [ #refCount 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusNodeInfoRefCount :: MonadIO m => DBusNodeInfo -> Int32 -> m ()-setDBusNodeInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-data DBusNodeInfoRefCountFieldInfo-instance AttrInfo DBusNodeInfoRefCountFieldInfo where-    type AttrAllowedOps DBusNodeInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusNodeInfoRefCountFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DBusNodeInfoRefCountFieldInfo = (~) DBusNodeInfo-    type AttrGetType DBusNodeInfoRefCountFieldInfo = Int32-    type AttrLabel DBusNodeInfoRefCountFieldInfo = "ref_count"-    type AttrOrigin DBusNodeInfoRefCountFieldInfo = DBusNodeInfo-    attrGet _ = getDBusNodeInfoRefCount-    attrSet _ = setDBusNodeInfoRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusNodeInfo_refCount :: AttrLabelProxy "refCount"-dBusNodeInfo_refCount = AttrLabelProxy--#endif---{- |-Get the value of the “@path@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusNodeInfo #path-@--}-getDBusNodeInfoPath :: MonadIO m => DBusNodeInfo -> m (Maybe T.Text)-getDBusNodeInfoPath s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@path@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusNodeInfo [ #path 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusNodeInfoPath :: MonadIO m => DBusNodeInfo -> CString -> m ()-setDBusNodeInfoPath s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@path@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #path-@--}-clearDBusNodeInfoPath :: MonadIO m => DBusNodeInfo -> m ()-clearDBusNodeInfoPath s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusNodeInfoPathFieldInfo-instance AttrInfo DBusNodeInfoPathFieldInfo where-    type AttrAllowedOps DBusNodeInfoPathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusNodeInfoPathFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusNodeInfoPathFieldInfo = (~) DBusNodeInfo-    type AttrGetType DBusNodeInfoPathFieldInfo = Maybe T.Text-    type AttrLabel DBusNodeInfoPathFieldInfo = "path"-    type AttrOrigin DBusNodeInfoPathFieldInfo = DBusNodeInfo-    attrGet _ = getDBusNodeInfoPath-    attrSet _ = setDBusNodeInfoPath-    attrConstruct = undefined-    attrClear _ = clearDBusNodeInfoPath--dBusNodeInfo_path :: AttrLabelProxy "path"-dBusNodeInfo_path = AttrLabelProxy--#endif---{- |-Get the value of the “@interfaces@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusNodeInfo #interfaces-@--}-getDBusNodeInfoInterfaces :: MonadIO m => DBusNodeInfo -> m (Maybe [Gio.DBusInterfaceInfo.DBusInterfaceInfo])-getDBusNodeInfoInterfaces s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) val''-        return val'''-    return result--{- |-Set the value of the “@interfaces@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusNodeInfo [ #interfaces 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusNodeInfoInterfaces :: MonadIO m => DBusNodeInfo -> Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo) -> m ()-setDBusNodeInfoInterfaces s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo))--{- |-Set the value of the “@interfaces@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #interfaces-@--}-clearDBusNodeInfoInterfaces :: MonadIO m => DBusNodeInfo -> m ()-clearDBusNodeInfoInterfaces s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo))--#if ENABLE_OVERLOADING-data DBusNodeInfoInterfacesFieldInfo-instance AttrInfo DBusNodeInfoInterfacesFieldInfo where-    type AttrAllowedOps DBusNodeInfoInterfacesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusNodeInfoInterfacesFieldInfo = (~) (Ptr (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo))-    type AttrBaseTypeConstraint DBusNodeInfoInterfacesFieldInfo = (~) DBusNodeInfo-    type AttrGetType DBusNodeInfoInterfacesFieldInfo = Maybe [Gio.DBusInterfaceInfo.DBusInterfaceInfo]-    type AttrLabel DBusNodeInfoInterfacesFieldInfo = "interfaces"-    type AttrOrigin DBusNodeInfoInterfacesFieldInfo = DBusNodeInfo-    attrGet _ = getDBusNodeInfoInterfaces-    attrSet _ = setDBusNodeInfoInterfaces-    attrConstruct = undefined-    attrClear _ = clearDBusNodeInfoInterfaces--dBusNodeInfo_interfaces :: AttrLabelProxy "interfaces"-dBusNodeInfo_interfaces = AttrLabelProxy--#endif---{- |-Get the value of the “@nodes@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusNodeInfo #nodes-@--}-getDBusNodeInfoNodes :: MonadIO m => DBusNodeInfo -> m (Maybe [DBusNodeInfo])-getDBusNodeInfoNodes s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusNodeInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed DBusNodeInfo) val''-        return val'''-    return result--{- |-Set the value of the “@nodes@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusNodeInfo [ #nodes 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusNodeInfoNodes :: MonadIO m => DBusNodeInfo -> Ptr (Ptr DBusNodeInfo) -> m ()-setDBusNodeInfoNodes s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusNodeInfo))--{- |-Set the value of the “@nodes@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #nodes-@--}-clearDBusNodeInfoNodes :: MonadIO m => DBusNodeInfo -> m ()-clearDBusNodeInfoNodes s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: Ptr (Ptr DBusNodeInfo))--#if ENABLE_OVERLOADING-data DBusNodeInfoNodesFieldInfo-instance AttrInfo DBusNodeInfoNodesFieldInfo where-    type AttrAllowedOps DBusNodeInfoNodesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusNodeInfoNodesFieldInfo = (~) (Ptr (Ptr DBusNodeInfo))-    type AttrBaseTypeConstraint DBusNodeInfoNodesFieldInfo = (~) DBusNodeInfo-    type AttrGetType DBusNodeInfoNodesFieldInfo = Maybe [DBusNodeInfo]-    type AttrLabel DBusNodeInfoNodesFieldInfo = "nodes"-    type AttrOrigin DBusNodeInfoNodesFieldInfo = DBusNodeInfo-    attrGet _ = getDBusNodeInfoNodes-    attrSet _ = setDBusNodeInfoNodes-    attrConstruct = undefined-    attrClear _ = clearDBusNodeInfoNodes--dBusNodeInfo_nodes :: AttrLabelProxy "nodes"-dBusNodeInfo_nodes = AttrLabelProxy--#endif---{- |-Get the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusNodeInfo #annotations-@--}-getDBusNodeInfoAnnotations :: MonadIO m => DBusNodeInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])-getDBusNodeInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusAnnotationInfo.DBusAnnotationInfo) val''-        return val'''-    return result--{- |-Set the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusNodeInfo [ #annotations 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusNodeInfoAnnotations :: MonadIO m => DBusNodeInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()-setDBusNodeInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--{- |-Set the value of the “@annotations@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #annotations-@--}-clearDBusNodeInfoAnnotations :: MonadIO m => DBusNodeInfo -> m ()-clearDBusNodeInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--#if ENABLE_OVERLOADING-data DBusNodeInfoAnnotationsFieldInfo-instance AttrInfo DBusNodeInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusNodeInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusNodeInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusNodeInfoAnnotationsFieldInfo = (~) DBusNodeInfo-    type AttrGetType DBusNodeInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]-    type AttrLabel DBusNodeInfoAnnotationsFieldInfo = "annotations"-    type AttrOrigin DBusNodeInfoAnnotationsFieldInfo = DBusNodeInfo-    attrGet _ = getDBusNodeInfoAnnotations-    attrSet _ = setDBusNodeInfoAnnotations-    attrConstruct = undefined-    attrClear _ = clearDBusNodeInfoAnnotations--dBusNodeInfo_annotations :: AttrLabelProxy "annotations"-dBusNodeInfo_annotations = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusNodeInfo-type instance O.AttributeList DBusNodeInfo = DBusNodeInfoAttributeList-type DBusNodeInfoAttributeList = ('[ '("refCount", DBusNodeInfoRefCountFieldInfo), '("path", DBusNodeInfoPathFieldInfo), '("interfaces", DBusNodeInfoInterfacesFieldInfo), '("nodes", DBusNodeInfoNodesFieldInfo), '("annotations", DBusNodeInfoAnnotationsFieldInfo)] :: [(Symbol, *)])-#endif---- method DBusNodeInfo::new_for_xml--- method type : Constructor--- Args : [Arg {argCName = "xml_data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Valid D-Bus introspection XML.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"}))--- throws : True--- Skip return : False--foreign import ccall "g_dbus_node_info_new_for_xml" g_dbus_node_info_new_for_xml :: -    CString ->                              -- xml_data : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr DBusNodeInfo)--{- |-Parses /@xmlData@/ and returns a 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo' representing the data.--The introspection XML must contain exactly one top-level-\<node> element.--Note that this routine is using a-[GMarkup][glib-Simple-XML-Subset-Parser.description]-based-parser that only accepts a subset of valid XML documents.--/Since: 2.26/--}-dBusNodeInfoNewForXml ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@xmlData@/: Valid D-Bus introspection XML. -}-    -> m DBusNodeInfo-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo' structure or 'Nothing' if /@error@/ is set. Free-with 'GI.Gio.Structs.DBusNodeInfo.dBusNodeInfoUnref'. /(Can throw 'Data.GI.Base.GError.GError')/ -}-dBusNodeInfoNewForXml xmlData = liftIO $ do-    xmlData' <- textToCString xmlData-    onException (do-        result <- propagateGError $ g_dbus_node_info_new_for_xml xmlData'-        checkUnexpectedReturnNULL "dBusNodeInfoNewForXml" result-        result' <- (wrapBoxed DBusNodeInfo) result-        freeMem xmlData'-        return result'-     ) (do-        freeMem xmlData'-     )--#if ENABLE_OVERLOADING-#endif---- method DBusNodeInfo::generate_xml--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusNodeInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Indentation level.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_builder", argType = TInterface (Name {namespace = "GLib", name = "String"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GString to to append XML data to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_node_info_generate_xml" g_dbus_node_info_generate_xml :: -    Ptr DBusNodeInfo ->                     -- info : TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"})-    Word32 ->                               -- indent : TBasicType TUInt-    Ptr GLib.String.String ->               -- string_builder : TInterface (Name {namespace = "GLib", name = "String"})-    IO ()--{- |-Appends an XML representation of /@info@/ (and its children) to /@stringBuilder@/.--This function is typically used for generating introspection XML documents at run-time for-handling the @org.freedesktop.DBus.Introspectable.Introspect@  method.--/Since: 2.26/--}-dBusNodeInfoGenerateXml ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusNodeInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo'. -}-    -> Word32-    {- ^ /@indent@/: Indentation level. -}-    -> GLib.String.String-    {- ^ /@stringBuilder@/: A 'GI.GLib.Structs.String.String' to to append XML data to. -}-    -> m ()-dBusNodeInfoGenerateXml info indent stringBuilder = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    stringBuilder' <- unsafeManagedPtrGetPtr stringBuilder-    g_dbus_node_info_generate_xml info' indent stringBuilder'-    touchManagedPtr info-    touchManagedPtr stringBuilder-    return ()--#if ENABLE_OVERLOADING-data DBusNodeInfoGenerateXmlMethodInfo-instance (signature ~ (Word32 -> GLib.String.String -> m ()), MonadIO m) => O.MethodInfo DBusNodeInfoGenerateXmlMethodInfo DBusNodeInfo signature where-    overloadedMethod _ = dBusNodeInfoGenerateXml--#endif---- method DBusNodeInfo::lookup_interface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusNodeInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A D-Bus interface name.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusInterfaceInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_node_info_lookup_interface" g_dbus_node_info_lookup_interface :: -    Ptr DBusNodeInfo ->                     -- info : TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Gio.DBusInterfaceInfo.DBusInterfaceInfo)--{- |-Looks up information about an interface.--The cost of this function is O(n) in number of interfaces.--/Since: 2.26/--}-dBusNodeInfoLookupInterface ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusNodeInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo'. -}-    -> T.Text-    {- ^ /@name@/: A D-Bus interface name. -}-    -> m Gio.DBusInterfaceInfo.DBusInterfaceInfo-    {- ^ __Returns:__ A 'GI.Gio.Structs.DBusInterfaceInfo.DBusInterfaceInfo' or 'Nothing' if not found. Do not free, it is owned by /@info@/. -}-dBusNodeInfoLookupInterface info name = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    name' <- textToCString name-    result <- g_dbus_node_info_lookup_interface info' name'-    checkUnexpectedReturnNULL "dBusNodeInfoLookupInterface" result-    result' <- (newBoxed Gio.DBusInterfaceInfo.DBusInterfaceInfo) result-    touchManagedPtr info-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data DBusNodeInfoLookupInterfaceMethodInfo-instance (signature ~ (T.Text -> m Gio.DBusInterfaceInfo.DBusInterfaceInfo), MonadIO m) => O.MethodInfo DBusNodeInfoLookupInterfaceMethodInfo DBusNodeInfo signature where-    overloadedMethod _ = dBusNodeInfoLookupInterface--#endif---- method DBusNodeInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusNodeInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_node_info_ref" g_dbus_node_info_ref :: -    Ptr DBusNodeInfo ->                     -- info : TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"})-    IO (Ptr DBusNodeInfo)--{- |-If /@info@/ is statically allocated does nothing. Otherwise increases-the reference count.--/Since: 2.26/--}-dBusNodeInfoRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusNodeInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo' -}-    -> m DBusNodeInfo-    {- ^ __Returns:__ The same /@info@/. -}-dBusNodeInfoRef info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    result <- g_dbus_node_info_ref info'-    checkUnexpectedReturnNULL "dBusNodeInfoRef" result-    result' <- (wrapBoxed DBusNodeInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DBusNodeInfoRefMethodInfo-instance (signature ~ (m DBusNodeInfo), MonadIO m) => O.MethodInfo DBusNodeInfoRefMethodInfo DBusNodeInfo signature where-    overloadedMethod _ = dBusNodeInfoRef--#endif---- method DBusNodeInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusNodeInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_node_info_unref" g_dbus_node_info_unref :: -    Ptr DBusNodeInfo ->                     -- info : TInterface (Name {namespace = "Gio", name = "DBusNodeInfo"})-    IO ()--{- |-If /@info@/ is statically allocated, does nothing. Otherwise decreases-the reference count of /@info@/. When its reference count drops to 0,-the memory used is freed.--/Since: 2.26/--}-dBusNodeInfoUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusNodeInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusNodeInfo.DBusNodeInfo'. -}-    -> m ()-dBusNodeInfoUnref info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_node_info_unref info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusNodeInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusNodeInfoUnrefMethodInfo DBusNodeInfo signature where-    overloadedMethod _ = dBusNodeInfoUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveDBusNodeInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusNodeInfoMethod "generateXml" o = DBusNodeInfoGenerateXmlMethodInfo-    ResolveDBusNodeInfoMethod "lookupInterface" o = DBusNodeInfoLookupInterfaceMethodInfo-    ResolveDBusNodeInfoMethod "ref" o = DBusNodeInfoRefMethodInfo-    ResolveDBusNodeInfoMethod "unref" o = DBusNodeInfoUnrefMethodInfo-    ResolveDBusNodeInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusNodeInfoMethod t DBusNodeInfo, O.MethodInfo info DBusNodeInfo p) => OL.IsLabel t (DBusNodeInfo -> 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--
− GI/Gio/Structs/DBusNodeInfo.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusNodeInfo 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 DBusNodeInfo = DBusNodeInfo (ManagedPtr DBusNodeInfo)-instance BoxedObject DBusNodeInfo where-#if ENABLE_OVERLOADING-data DBusNodeInfoGenerateXmlMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusNodeInfoLookupInterfaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusNodeInfoRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusNodeInfoUnrefMethodInfo-#endif
− GI/Gio/Structs/DBusPropertyInfo.hs 
@@ -1,519 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Information about a D-Bus property on a D-Bus interface.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusPropertyInfo-    ( ---- * Exported types-    DBusPropertyInfo(..)                    ,-    newZeroDBusPropertyInfo                 ,-    noDBusPropertyInfo                      ,--- -- * Methods--- ** ref #method:ref#--#if ENABLE_OVERLOADING-    DBusPropertyInfoRefMethodInfo           ,-#endif-    dBusPropertyInfoRef                     ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    DBusPropertyInfoUnrefMethodInfo         ,-#endif-    dBusPropertyInfoUnref                   ,----- -- * Properties--- ** annotations #attr:annotations#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusAnnotationInfo.DBusAnnotationInfo' structures or 'Nothing' if there are no annotations.--}-    clearDBusPropertyInfoAnnotations        ,-#if ENABLE_OVERLOADING-    dBusPropertyInfo_annotations            ,-#endif-    getDBusPropertyInfoAnnotations          ,-    setDBusPropertyInfoAnnotations          ,----- ** flags #attr:flags#-{- | Access control flags for the property.--}-#if ENABLE_OVERLOADING-    dBusPropertyInfo_flags                  ,-#endif-    getDBusPropertyInfoFlags                ,-    setDBusPropertyInfoFlags                ,----- ** name #attr:name#-{- | The name of the D-Bus property, e.g. \"SupportedFilesystems\".--}-    clearDBusPropertyInfoName               ,-#if ENABLE_OVERLOADING-    dBusPropertyInfo_name                   ,-#endif-    getDBusPropertyInfoName                 ,-    setDBusPropertyInfoName                 ,----- ** refCount #attr:refCount#-{- | The reference count or -1 if statically allocated.--}-#if ENABLE_OVERLOADING-    dBusPropertyInfo_refCount               ,-#endif-    getDBusPropertyInfoRefCount             ,-    setDBusPropertyInfoRefCount             ,----- ** signature #attr:signature#-{- | The D-Bus signature of the property (a single complete type).--}-    clearDBusPropertyInfoSignature          ,-#if ENABLE_OVERLOADING-    dBusPropertyInfo_signature              ,-#endif-    getDBusPropertyInfoSignature            ,-    setDBusPropertyInfoSignature            ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo---- | Memory-managed wrapper type.-newtype DBusPropertyInfo = DBusPropertyInfo (ManagedPtr DBusPropertyInfo)-foreign import ccall "g_dbus_property_info_get_type" c_g_dbus_property_info_get_type :: -    IO GType--instance BoxedObject DBusPropertyInfo where-    boxedType _ = c_g_dbus_property_info_get_type---- | Construct a `DBusPropertyInfo` struct initialized to zero.-newZeroDBusPropertyInfo :: MonadIO m => m DBusPropertyInfo-newZeroDBusPropertyInfo = liftIO $ callocBoxedBytes 40 >>= wrapBoxed DBusPropertyInfo--instance tag ~ 'AttrSet => Constructible DBusPropertyInfo tag where-    new _ attrs = do-        o <- newZeroDBusPropertyInfo-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusPropertyInfo`.-noDBusPropertyInfo :: Maybe DBusPropertyInfo-noDBusPropertyInfo = Nothing--{- |-Get the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusPropertyInfo #refCount-@--}-getDBusPropertyInfoRefCount :: MonadIO m => DBusPropertyInfo -> m Int32-getDBusPropertyInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusPropertyInfo [ #refCount 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusPropertyInfoRefCount :: MonadIO m => DBusPropertyInfo -> Int32 -> m ()-setDBusPropertyInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-data DBusPropertyInfoRefCountFieldInfo-instance AttrInfo DBusPropertyInfoRefCountFieldInfo where-    type AttrAllowedOps DBusPropertyInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~) DBusPropertyInfo-    type AttrGetType DBusPropertyInfoRefCountFieldInfo = Int32-    type AttrLabel DBusPropertyInfoRefCountFieldInfo = "ref_count"-    type AttrOrigin DBusPropertyInfoRefCountFieldInfo = DBusPropertyInfo-    attrGet _ = getDBusPropertyInfoRefCount-    attrSet _ = setDBusPropertyInfoRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusPropertyInfo_refCount :: AttrLabelProxy "refCount"-dBusPropertyInfo_refCount = AttrLabelProxy--#endif---{- |-Get the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusPropertyInfo #name-@--}-getDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)-getDBusPropertyInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusPropertyInfo [ #name 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> CString -> m ()-setDBusPropertyInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #name-@--}-clearDBusPropertyInfoName :: MonadIO m => DBusPropertyInfo -> m ()-clearDBusPropertyInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusPropertyInfoNameFieldInfo-instance AttrInfo DBusPropertyInfoNameFieldInfo where-    type AttrAllowedOps DBusPropertyInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusPropertyInfoNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusPropertyInfoNameFieldInfo = (~) DBusPropertyInfo-    type AttrGetType DBusPropertyInfoNameFieldInfo = Maybe T.Text-    type AttrLabel DBusPropertyInfoNameFieldInfo = "name"-    type AttrOrigin DBusPropertyInfoNameFieldInfo = DBusPropertyInfo-    attrGet _ = getDBusPropertyInfoName-    attrSet _ = setDBusPropertyInfoName-    attrConstruct = undefined-    attrClear _ = clearDBusPropertyInfoName--dBusPropertyInfo_name :: AttrLabelProxy "name"-dBusPropertyInfo_name = AttrLabelProxy--#endif---{- |-Get the value of the “@signature@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusPropertyInfo #signature-@--}-getDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text)-getDBusPropertyInfoSignature s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@signature@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusPropertyInfo [ #signature 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> CString -> m ()-setDBusPropertyInfoSignature s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--{- |-Set the value of the “@signature@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #signature-@--}-clearDBusPropertyInfoSignature :: MonadIO m => DBusPropertyInfo -> m ()-clearDBusPropertyInfoSignature s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusPropertyInfoSignatureFieldInfo-instance AttrInfo DBusPropertyInfoSignatureFieldInfo where-    type AttrAllowedOps DBusPropertyInfoSignatureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~) DBusPropertyInfo-    type AttrGetType DBusPropertyInfoSignatureFieldInfo = Maybe T.Text-    type AttrLabel DBusPropertyInfoSignatureFieldInfo = "signature"-    type AttrOrigin DBusPropertyInfoSignatureFieldInfo = DBusPropertyInfo-    attrGet _ = getDBusPropertyInfoSignature-    attrSet _ = setDBusPropertyInfoSignature-    attrConstruct = undefined-    attrClear _ = clearDBusPropertyInfoSignature--dBusPropertyInfo_signature :: AttrLabelProxy "signature"-dBusPropertyInfo_signature = AttrLabelProxy--#endif---{- |-Get the value of the “@flags@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusPropertyInfo #flags-@--}-getDBusPropertyInfoFlags :: MonadIO m => DBusPropertyInfo -> m [Gio.Flags.DBusPropertyInfoFlags]-getDBusPropertyInfoFlags s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CUInt-    let val' = wordToGFlags val-    return val'--{- |-Set the value of the “@flags@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusPropertyInfo [ #flags 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusPropertyInfoFlags :: MonadIO m => DBusPropertyInfo -> [Gio.Flags.DBusPropertyInfoFlags] -> m ()-setDBusPropertyInfoFlags s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 24) (val' :: CUInt)--#if ENABLE_OVERLOADING-data DBusPropertyInfoFlagsFieldInfo-instance AttrInfo DBusPropertyInfoFlagsFieldInfo where-    type AttrAllowedOps DBusPropertyInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) [Gio.Flags.DBusPropertyInfoFlags]-    type AttrBaseTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) DBusPropertyInfo-    type AttrGetType DBusPropertyInfoFlagsFieldInfo = [Gio.Flags.DBusPropertyInfoFlags]-    type AttrLabel DBusPropertyInfoFlagsFieldInfo = "flags"-    type AttrOrigin DBusPropertyInfoFlagsFieldInfo = DBusPropertyInfo-    attrGet _ = getDBusPropertyInfoFlags-    attrSet _ = setDBusPropertyInfoFlags-    attrConstruct = undefined-    attrClear _ = undefined--dBusPropertyInfo_flags :: AttrLabelProxy "flags"-dBusPropertyInfo_flags = AttrLabelProxy--#endif---{- |-Get the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusPropertyInfo #annotations-@--}-getDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])-getDBusPropertyInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusAnnotationInfo.DBusAnnotationInfo) val''-        return val'''-    return result--{- |-Set the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusPropertyInfo [ #annotations 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()-setDBusPropertyInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--{- |-Set the value of the “@annotations@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #annotations-@--}-clearDBusPropertyInfoAnnotations :: MonadIO m => DBusPropertyInfo -> m ()-clearDBusPropertyInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--#if ENABLE_OVERLOADING-data DBusPropertyInfoAnnotationsFieldInfo-instance AttrInfo DBusPropertyInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusPropertyInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) DBusPropertyInfo-    type AttrGetType DBusPropertyInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]-    type AttrLabel DBusPropertyInfoAnnotationsFieldInfo = "annotations"-    type AttrOrigin DBusPropertyInfoAnnotationsFieldInfo = DBusPropertyInfo-    attrGet _ = getDBusPropertyInfoAnnotations-    attrSet _ = setDBusPropertyInfoAnnotations-    attrConstruct = undefined-    attrClear _ = clearDBusPropertyInfoAnnotations--dBusPropertyInfo_annotations :: AttrLabelProxy "annotations"-dBusPropertyInfo_annotations = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusPropertyInfo-type instance O.AttributeList DBusPropertyInfo = DBusPropertyInfoAttributeList-type DBusPropertyInfoAttributeList = ('[ '("refCount", DBusPropertyInfoRefCountFieldInfo), '("name", DBusPropertyInfoNameFieldInfo), '("signature", DBusPropertyInfoSignatureFieldInfo), '("flags", DBusPropertyInfoFlagsFieldInfo), '("annotations", DBusPropertyInfoAnnotationsFieldInfo)] :: [(Symbol, *)])-#endif---- method DBusPropertyInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusPropertyInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusPropertyInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusPropertyInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_property_info_ref" g_dbus_property_info_ref :: -    Ptr DBusPropertyInfo ->                 -- info : TInterface (Name {namespace = "Gio", name = "DBusPropertyInfo"})-    IO (Ptr DBusPropertyInfo)--{- |-If /@info@/ is statically allocated does nothing. Otherwise increases-the reference count.--/Since: 2.26/--}-dBusPropertyInfoRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusPropertyInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusPropertyInfo.DBusPropertyInfo' -}-    -> m DBusPropertyInfo-    {- ^ __Returns:__ The same /@info@/. -}-dBusPropertyInfoRef info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    result <- g_dbus_property_info_ref info'-    checkUnexpectedReturnNULL "dBusPropertyInfoRef" result-    result' <- (wrapBoxed DBusPropertyInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DBusPropertyInfoRefMethodInfo-instance (signature ~ (m DBusPropertyInfo), MonadIO m) => O.MethodInfo DBusPropertyInfoRefMethodInfo DBusPropertyInfo signature where-    overloadedMethod _ = dBusPropertyInfoRef--#endif---- method DBusPropertyInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusPropertyInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusPropertyInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_property_info_unref" g_dbus_property_info_unref :: -    Ptr DBusPropertyInfo ->                 -- info : TInterface (Name {namespace = "Gio", name = "DBusPropertyInfo"})-    IO ()--{- |-If /@info@/ is statically allocated, does nothing. Otherwise decreases-the reference count of /@info@/. When its reference count drops to 0,-the memory used is freed.--/Since: 2.26/--}-dBusPropertyInfoUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusPropertyInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusPropertyInfo.DBusPropertyInfo'. -}-    -> m ()-dBusPropertyInfoUnref info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_property_info_unref info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusPropertyInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusPropertyInfoUnrefMethodInfo DBusPropertyInfo signature where-    overloadedMethod _ = dBusPropertyInfoUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveDBusPropertyInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusPropertyInfoMethod "ref" o = DBusPropertyInfoRefMethodInfo-    ResolveDBusPropertyInfoMethod "unref" o = DBusPropertyInfoUnrefMethodInfo-    ResolveDBusPropertyInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusPropertyInfoMethod t DBusPropertyInfo, O.MethodInfo info DBusPropertyInfo p) => OL.IsLabel t (DBusPropertyInfo -> 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--
− GI/Gio/Structs/DBusPropertyInfo.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusPropertyInfo 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 DBusPropertyInfo = DBusPropertyInfo (ManagedPtr DBusPropertyInfo)-instance BoxedObject DBusPropertyInfo where-#if ENABLE_OVERLOADING-data DBusPropertyInfoRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusPropertyInfoUnrefMethodInfo-#endif
− GI/Gio/Structs/DBusSignalInfo.hs 
@@ -1,463 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Information about a signal on a D-Bus interface.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusSignalInfo-    ( ---- * Exported types-    DBusSignalInfo(..)                      ,-    newZeroDBusSignalInfo                   ,-    noDBusSignalInfo                        ,--- -- * Methods--- ** ref #method:ref#--#if ENABLE_OVERLOADING-    DBusSignalInfoRefMethodInfo             ,-#endif-    dBusSignalInfoRef                       ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    DBusSignalInfoUnrefMethodInfo           ,-#endif-    dBusSignalInfoUnref                     ,----- -- * Properties--- ** annotations #attr:annotations#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusAnnotationInfo.DBusAnnotationInfo' structures or 'Nothing' if there are no annotations.--}-    clearDBusSignalInfoAnnotations          ,-#if ENABLE_OVERLOADING-    dBusSignalInfo_annotations              ,-#endif-    getDBusSignalInfoAnnotations            ,-    setDBusSignalInfoAnnotations            ,----- ** args #attr:args#-{- | A pointer to a 'Nothing'-terminated array of pointers to 'GI.Gio.Structs.DBusArgInfo.DBusArgInfo' structures or 'Nothing' if there are no arguments.--}-    clearDBusSignalInfoArgs                 ,-#if ENABLE_OVERLOADING-    dBusSignalInfo_args                     ,-#endif-    getDBusSignalInfoArgs                   ,-    setDBusSignalInfoArgs                   ,----- ** name #attr:name#-{- | The name of the D-Bus signal, e.g. \"NameOwnerChanged\".--}-    clearDBusSignalInfoName                 ,-#if ENABLE_OVERLOADING-    dBusSignalInfo_name                     ,-#endif-    getDBusSignalInfoName                   ,-    setDBusSignalInfoName                   ,----- ** refCount #attr:refCount#-{- | The reference count or -1 if statically allocated.--}-#if ENABLE_OVERLOADING-    dBusSignalInfo_refCount                 ,-#endif-    getDBusSignalInfoRefCount               ,-    setDBusSignalInfoRefCount               ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Structs.DBusAnnotationInfo as Gio.DBusAnnotationInfo-import {-# SOURCE #-} qualified GI.Gio.Structs.DBusArgInfo as Gio.DBusArgInfo---- | Memory-managed wrapper type.-newtype DBusSignalInfo = DBusSignalInfo (ManagedPtr DBusSignalInfo)-foreign import ccall "g_dbus_signal_info_get_type" c_g_dbus_signal_info_get_type :: -    IO GType--instance BoxedObject DBusSignalInfo where-    boxedType _ = c_g_dbus_signal_info_get_type---- | Construct a `DBusSignalInfo` struct initialized to zero.-newZeroDBusSignalInfo :: MonadIO m => m DBusSignalInfo-newZeroDBusSignalInfo = liftIO $ callocBoxedBytes 32 >>= wrapBoxed DBusSignalInfo--instance tag ~ 'AttrSet => Constructible DBusSignalInfo tag where-    new _ attrs = do-        o <- newZeroDBusSignalInfo-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusSignalInfo`.-noDBusSignalInfo :: Maybe DBusSignalInfo-noDBusSignalInfo = Nothing--{- |-Get the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusSignalInfo #refCount-@--}-getDBusSignalInfoRefCount :: MonadIO m => DBusSignalInfo -> m Int32-getDBusSignalInfoRefCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@ref_count@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusSignalInfo [ #refCount 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusSignalInfoRefCount :: MonadIO m => DBusSignalInfo -> Int32 -> m ()-setDBusSignalInfoRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-data DBusSignalInfoRefCountFieldInfo-instance AttrInfo DBusSignalInfoRefCountFieldInfo where-    type AttrAllowedOps DBusSignalInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DBusSignalInfoRefCountFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DBusSignalInfoRefCountFieldInfo = (~) DBusSignalInfo-    type AttrGetType DBusSignalInfoRefCountFieldInfo = Int32-    type AttrLabel DBusSignalInfoRefCountFieldInfo = "ref_count"-    type AttrOrigin DBusSignalInfoRefCountFieldInfo = DBusSignalInfo-    attrGet _ = getDBusSignalInfoRefCount-    attrSet _ = setDBusSignalInfoRefCount-    attrConstruct = undefined-    attrClear _ = undefined--dBusSignalInfo_refCount :: AttrLabelProxy "refCount"-dBusSignalInfo_refCount = AttrLabelProxy--#endif---{- |-Get the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusSignalInfo #name-@--}-getDBusSignalInfoName :: MonadIO m => DBusSignalInfo -> m (Maybe T.Text)-getDBusSignalInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusSignalInfo [ #name 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusSignalInfoName :: MonadIO m => DBusSignalInfo -> CString -> m ()-setDBusSignalInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #name-@--}-clearDBusSignalInfoName :: MonadIO m => DBusSignalInfo -> m ()-clearDBusSignalInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data DBusSignalInfoNameFieldInfo-instance AttrInfo DBusSignalInfoNameFieldInfo where-    type AttrAllowedOps DBusSignalInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusSignalInfoNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint DBusSignalInfoNameFieldInfo = (~) DBusSignalInfo-    type AttrGetType DBusSignalInfoNameFieldInfo = Maybe T.Text-    type AttrLabel DBusSignalInfoNameFieldInfo = "name"-    type AttrOrigin DBusSignalInfoNameFieldInfo = DBusSignalInfo-    attrGet _ = getDBusSignalInfoName-    attrSet _ = setDBusSignalInfoName-    attrConstruct = undefined-    attrClear _ = clearDBusSignalInfoName--dBusSignalInfo_name :: AttrLabelProxy "name"-dBusSignalInfo_name = AttrLabelProxy--#endif---{- |-Get the value of the “@args@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusSignalInfo #args-@--}-getDBusSignalInfoArgs :: MonadIO m => DBusSignalInfo -> m (Maybe [Gio.DBusArgInfo.DBusArgInfo])-getDBusSignalInfoArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusArgInfo.DBusArgInfo) val''-        return val'''-    return result--{- |-Set the value of the “@args@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusSignalInfo [ #args 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusSignalInfoArgs :: MonadIO m => DBusSignalInfo -> Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo) -> m ()-setDBusSignalInfoArgs s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))--{- |-Set the value of the “@args@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #args-@--}-clearDBusSignalInfoArgs :: MonadIO m => DBusSignalInfo -> m ()-clearDBusSignalInfoArgs s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))--#if ENABLE_OVERLOADING-data DBusSignalInfoArgsFieldInfo-instance AttrInfo DBusSignalInfoArgsFieldInfo where-    type AttrAllowedOps DBusSignalInfoArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusSignalInfoArgsFieldInfo = (~) (Ptr (Ptr Gio.DBusArgInfo.DBusArgInfo))-    type AttrBaseTypeConstraint DBusSignalInfoArgsFieldInfo = (~) DBusSignalInfo-    type AttrGetType DBusSignalInfoArgsFieldInfo = Maybe [Gio.DBusArgInfo.DBusArgInfo]-    type AttrLabel DBusSignalInfoArgsFieldInfo = "args"-    type AttrOrigin DBusSignalInfoArgsFieldInfo = DBusSignalInfo-    attrGet _ = getDBusSignalInfoArgs-    attrSet _ = setDBusSignalInfoArgs-    attrConstruct = undefined-    attrClear _ = clearDBusSignalInfoArgs--dBusSignalInfo_args :: AttrLabelProxy "args"-dBusSignalInfo_args = AttrLabelProxy--#endif---{- |-Get the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusSignalInfo #annotations-@--}-getDBusSignalInfoAnnotations :: MonadIO m => DBusSignalInfo -> m (Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo])-getDBusSignalInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- unpackZeroTerminatedPtrArray val'-        val''' <- mapM (newBoxed Gio.DBusAnnotationInfo.DBusAnnotationInfo) val''-        return val'''-    return result--{- |-Set the value of the “@annotations@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusSignalInfo [ #annotations 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusSignalInfoAnnotations :: MonadIO m => DBusSignalInfo -> Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo) -> m ()-setDBusSignalInfoAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--{- |-Set the value of the “@annotations@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #annotations-@--}-clearDBusSignalInfoAnnotations :: MonadIO m => DBusSignalInfo -> m ()-clearDBusSignalInfoAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))--#if ENABLE_OVERLOADING-data DBusSignalInfoAnnotationsFieldInfo-instance AttrInfo DBusSignalInfoAnnotationsFieldInfo where-    type AttrAllowedOps DBusSignalInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusSignalInfoAnnotationsFieldInfo = (~) (Ptr (Ptr Gio.DBusAnnotationInfo.DBusAnnotationInfo))-    type AttrBaseTypeConstraint DBusSignalInfoAnnotationsFieldInfo = (~) DBusSignalInfo-    type AttrGetType DBusSignalInfoAnnotationsFieldInfo = Maybe [Gio.DBusAnnotationInfo.DBusAnnotationInfo]-    type AttrLabel DBusSignalInfoAnnotationsFieldInfo = "annotations"-    type AttrOrigin DBusSignalInfoAnnotationsFieldInfo = DBusSignalInfo-    attrGet _ = getDBusSignalInfoAnnotations-    attrSet _ = setDBusSignalInfoAnnotations-    attrConstruct = undefined-    attrClear _ = clearDBusSignalInfoAnnotations--dBusSignalInfo_annotations :: AttrLabelProxy "annotations"-dBusSignalInfo_annotations = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusSignalInfo-type instance O.AttributeList DBusSignalInfo = DBusSignalInfoAttributeList-type DBusSignalInfoAttributeList = ('[ '("refCount", DBusSignalInfoRefCountFieldInfo), '("name", DBusSignalInfoNameFieldInfo), '("args", DBusSignalInfoArgsFieldInfo), '("annotations", DBusSignalInfoAnnotationsFieldInfo)] :: [(Symbol, *)])-#endif---- method DBusSignalInfo::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusSignalInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusSignalInfo", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "DBusSignalInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_dbus_signal_info_ref" g_dbus_signal_info_ref :: -    Ptr DBusSignalInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DBusSignalInfo"})-    IO (Ptr DBusSignalInfo)--{- |-If /@info@/ is statically allocated does nothing. Otherwise increases-the reference count.--/Since: 2.26/--}-dBusSignalInfoRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusSignalInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusSignalInfo.DBusSignalInfo' -}-    -> m DBusSignalInfo-    {- ^ __Returns:__ The same /@info@/. -}-dBusSignalInfoRef info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    result <- g_dbus_signal_info_ref info'-    checkUnexpectedReturnNULL "dBusSignalInfoRef" result-    result' <- (wrapBoxed DBusSignalInfo) result-    touchManagedPtr info-    return result'--#if ENABLE_OVERLOADING-data DBusSignalInfoRefMethodInfo-instance (signature ~ (m DBusSignalInfo), MonadIO m) => O.MethodInfo DBusSignalInfoRefMethodInfo DBusSignalInfo signature where-    overloadedMethod _ = dBusSignalInfoRef--#endif---- method DBusSignalInfo::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "info", argType = TInterface (Name {namespace = "Gio", name = "DBusSignalInfo"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GDBusSignalInfo.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_dbus_signal_info_unref" g_dbus_signal_info_unref :: -    Ptr DBusSignalInfo ->                   -- info : TInterface (Name {namespace = "Gio", name = "DBusSignalInfo"})-    IO ()--{- |-If /@info@/ is statically allocated, does nothing. Otherwise decreases-the reference count of /@info@/. When its reference count drops to 0,-the memory used is freed.--/Since: 2.26/--}-dBusSignalInfoUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    DBusSignalInfo-    {- ^ /@info@/: A 'GI.Gio.Structs.DBusSignalInfo.DBusSignalInfo'. -}-    -> m ()-dBusSignalInfoUnref info = liftIO $ do-    info' <- unsafeManagedPtrGetPtr info-    g_dbus_signal_info_unref info'-    touchManagedPtr info-    return ()--#if ENABLE_OVERLOADING-data DBusSignalInfoUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DBusSignalInfoUnrefMethodInfo DBusSignalInfo signature where-    overloadedMethod _ = dBusSignalInfoUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveDBusSignalInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusSignalInfoMethod "ref" o = DBusSignalInfoRefMethodInfo-    ResolveDBusSignalInfoMethod "unref" o = DBusSignalInfoUnrefMethodInfo-    ResolveDBusSignalInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusSignalInfoMethod t DBusSignalInfo, O.MethodInfo info DBusSignalInfo p) => OL.IsLabel t (DBusSignalInfo -> 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--
− GI/Gio/Structs/DBusSignalInfo.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusSignalInfo 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 DBusSignalInfo = DBusSignalInfo (ManagedPtr DBusSignalInfo)-instance BoxedObject DBusSignalInfo where-#if ENABLE_OVERLOADING-data DBusSignalInfoRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data DBusSignalInfoUnrefMethodInfo-#endif
− GI/Gio/Structs/DBusSubtreeVTable.hs 
@@ -1,236 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Virtual table for handling subtrees registered with 'GI.Gio.Objects.DBusConnection.dBusConnectionRegisterSubtree'.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.DBusSubtreeVTable-    ( ---- * Exported types-    DBusSubtreeVTable(..)                   ,-    newZeroDBusSubtreeVTable                ,-    noDBusSubtreeVTable                     ,--- -- * Properties--- ** dispatch #attr:dispatch#-{- | Function for dispatching a remote call on a child node.--}-    clearDBusSubtreeVTableDispatch          ,-#if ENABLE_OVERLOADING-    dBusSubtreeVTable_dispatch              ,-#endif-    getDBusSubtreeVTableDispatch            ,-    setDBusSubtreeVTableDispatch            ,----- ** introspect #attr:introspect#-{- | Function for introspecting a child node.--}-    clearDBusSubtreeVTableIntrospect        ,-#if ENABLE_OVERLOADING-    dBusSubtreeVTable_introspect            ,-#endif-    getDBusSubtreeVTableIntrospect          ,-    setDBusSubtreeVTableIntrospect          ,-----    ) 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.Callbacks as Gio.Callbacks---- | Memory-managed wrapper type.-newtype DBusSubtreeVTable = DBusSubtreeVTable (ManagedPtr DBusSubtreeVTable)-instance WrappedPtr DBusSubtreeVTable where-    wrappedPtrCalloc = callocBytes 88-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 88 >=> wrapPtr DBusSubtreeVTable)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `DBusSubtreeVTable` struct initialized to zero.-newZeroDBusSubtreeVTable :: MonadIO m => m DBusSubtreeVTable-newZeroDBusSubtreeVTable = liftIO $ wrappedPtrCalloc >>= wrapPtr DBusSubtreeVTable--instance tag ~ 'AttrSet => Constructible DBusSubtreeVTable tag where-    new _ attrs = do-        o <- newZeroDBusSubtreeVTable-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `DBusSubtreeVTable`.-noDBusSubtreeVTable :: Maybe DBusSubtreeVTable-noDBusSubtreeVTable = Nothing--{- |-Get the value of the “@introspect@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusSubtreeVTable #introspect-@--}-getDBusSubtreeVTableIntrospect :: MonadIO m => DBusSubtreeVTable -> m (Maybe Gio.Callbacks.DBusSubtreeIntrospectFunc_WithClosures)-getDBusSubtreeVTableIntrospect s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (FunPtr Gio.Callbacks.C_DBusSubtreeIntrospectFunc)-    result <- SP.convertFunPtrIfNonNull val $ \val' -> do-        let val'' = Gio.Callbacks.dynamic_DBusSubtreeIntrospectFunc val'-        return val''-    return result--{- |-Set the value of the “@introspect@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusSubtreeVTable [ #introspect 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusSubtreeVTableIntrospect :: MonadIO m => DBusSubtreeVTable -> FunPtr Gio.Callbacks.C_DBusSubtreeIntrospectFunc -> m ()-setDBusSubtreeVTableIntrospect s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: FunPtr Gio.Callbacks.C_DBusSubtreeIntrospectFunc)--{- |-Set the value of the “@introspect@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #introspect-@--}-clearDBusSubtreeVTableIntrospect :: MonadIO m => DBusSubtreeVTable -> m ()-clearDBusSubtreeVTableIntrospect s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullFunPtr :: FunPtr Gio.Callbacks.C_DBusSubtreeIntrospectFunc)--#if ENABLE_OVERLOADING-data DBusSubtreeVTableIntrospectFieldInfo-instance AttrInfo DBusSubtreeVTableIntrospectFieldInfo where-    type AttrAllowedOps DBusSubtreeVTableIntrospectFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusSubtreeVTableIntrospectFieldInfo = (~) (FunPtr Gio.Callbacks.C_DBusSubtreeIntrospectFunc)-    type AttrBaseTypeConstraint DBusSubtreeVTableIntrospectFieldInfo = (~) DBusSubtreeVTable-    type AttrGetType DBusSubtreeVTableIntrospectFieldInfo = Maybe Gio.Callbacks.DBusSubtreeIntrospectFunc_WithClosures-    type AttrLabel DBusSubtreeVTableIntrospectFieldInfo = "introspect"-    type AttrOrigin DBusSubtreeVTableIntrospectFieldInfo = DBusSubtreeVTable-    attrGet _ = getDBusSubtreeVTableIntrospect-    attrSet _ = setDBusSubtreeVTableIntrospect-    attrConstruct = undefined-    attrClear _ = clearDBusSubtreeVTableIntrospect--dBusSubtreeVTable_introspect :: AttrLabelProxy "introspect"-dBusSubtreeVTable_introspect = AttrLabelProxy--#endif---{- |-Get the value of the “@dispatch@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' dBusSubtreeVTable #dispatch-@--}-getDBusSubtreeVTableDispatch :: MonadIO m => DBusSubtreeVTable -> m (Maybe Gio.Callbacks.DBusSubtreeDispatchFunc_WithClosures)-getDBusSubtreeVTableDispatch s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (FunPtr Gio.Callbacks.C_DBusSubtreeDispatchFunc)-    result <- SP.convertFunPtrIfNonNull val $ \val' -> do-        let val'' = Gio.Callbacks.dynamic_DBusSubtreeDispatchFunc val'-        return val''-    return result--{- |-Set the value of the “@dispatch@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' dBusSubtreeVTable [ #dispatch 'Data.GI.Base.Attributes.:=' value ]-@--}-setDBusSubtreeVTableDispatch :: MonadIO m => DBusSubtreeVTable -> FunPtr Gio.Callbacks.C_DBusSubtreeDispatchFunc -> m ()-setDBusSubtreeVTableDispatch s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: FunPtr Gio.Callbacks.C_DBusSubtreeDispatchFunc)--{- |-Set the value of the “@dispatch@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #dispatch-@--}-clearDBusSubtreeVTableDispatch :: MonadIO m => DBusSubtreeVTable -> m ()-clearDBusSubtreeVTableDispatch s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullFunPtr :: FunPtr Gio.Callbacks.C_DBusSubtreeDispatchFunc)--#if ENABLE_OVERLOADING-data DBusSubtreeVTableDispatchFieldInfo-instance AttrInfo DBusSubtreeVTableDispatchFieldInfo where-    type AttrAllowedOps DBusSubtreeVTableDispatchFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DBusSubtreeVTableDispatchFieldInfo = (~) (FunPtr Gio.Callbacks.C_DBusSubtreeDispatchFunc)-    type AttrBaseTypeConstraint DBusSubtreeVTableDispatchFieldInfo = (~) DBusSubtreeVTable-    type AttrGetType DBusSubtreeVTableDispatchFieldInfo = Maybe Gio.Callbacks.DBusSubtreeDispatchFunc_WithClosures-    type AttrLabel DBusSubtreeVTableDispatchFieldInfo = "dispatch"-    type AttrOrigin DBusSubtreeVTableDispatchFieldInfo = DBusSubtreeVTable-    attrGet _ = getDBusSubtreeVTableDispatch-    attrSet _ = setDBusSubtreeVTableDispatch-    attrConstruct = undefined-    attrClear _ = clearDBusSubtreeVTableDispatch--dBusSubtreeVTable_dispatch :: AttrLabelProxy "dispatch"-dBusSubtreeVTable_dispatch = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList DBusSubtreeVTable-type instance O.AttributeList DBusSubtreeVTable = DBusSubtreeVTableAttributeList-type DBusSubtreeVTableAttributeList = ('[ '("introspect", DBusSubtreeVTableIntrospectFieldInfo), '("dispatch", DBusSubtreeVTableDispatchFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveDBusSubtreeVTableMethod (t :: Symbol) (o :: *) :: * where-    ResolveDBusSubtreeVTableMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveDBusSubtreeVTableMethod t DBusSubtreeVTable, O.MethodInfo info DBusSubtreeVTable p) => OL.IsLabel t (DBusSubtreeVTable -> 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--
− GI/Gio/Structs/DBusSubtreeVTable.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.DBusSubtreeVTable 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 DBusSubtreeVTable = DBusSubtreeVTable (ManagedPtr DBusSubtreeVTable)-instance WrappedPtr DBusSubtreeVTable where
− GI/Gio/Structs/FileAttributeInfo.hs 
@@ -1,278 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Information about a specific attribute.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.FileAttributeInfo-    ( ---- * Exported types-    FileAttributeInfo(..)                   ,-    newZeroFileAttributeInfo                ,-    noFileAttributeInfo                     ,--- -- * Properties--- ** flags #attr:flags#-{- | a set of 'GI.Gio.Flags.FileAttributeInfoFlags'.--}-#if ENABLE_OVERLOADING-    fileAttributeInfo_flags                 ,-#endif-    getFileAttributeInfoFlags               ,-    setFileAttributeInfoFlags               ,----- ** name #attr:name#-{- | the name of the attribute.--}-    clearFileAttributeInfoName              ,-#if ENABLE_OVERLOADING-    fileAttributeInfo_name                  ,-#endif-    getFileAttributeInfoName                ,-    setFileAttributeInfoName                ,----- ** type #attr:type#-{- | the 'GI.Gio.Enums.FileAttributeType' type of the attribute.--}-#if ENABLE_OVERLOADING-    fileAttributeInfo_type                  ,-#endif-    getFileAttributeInfoType                ,-    setFileAttributeInfoType                ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags---- | Memory-managed wrapper type.-newtype FileAttributeInfo = FileAttributeInfo (ManagedPtr FileAttributeInfo)-instance WrappedPtr FileAttributeInfo where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 16 >=> wrapPtr FileAttributeInfo)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `FileAttributeInfo` struct initialized to zero.-newZeroFileAttributeInfo :: MonadIO m => m FileAttributeInfo-newZeroFileAttributeInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr FileAttributeInfo--instance tag ~ 'AttrSet => Constructible FileAttributeInfo tag where-    new _ attrs = do-        o <- newZeroFileAttributeInfo-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `FileAttributeInfo`.-noFileAttributeInfo :: Maybe FileAttributeInfo-noFileAttributeInfo = Nothing--{- |-Get the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' fileAttributeInfo #name-@--}-getFileAttributeInfoName :: MonadIO m => FileAttributeInfo -> m (Maybe T.Text)-getFileAttributeInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' fileAttributeInfo [ #name 'Data.GI.Base.Attributes.:=' value ]-@--}-setFileAttributeInfoName :: MonadIO m => FileAttributeInfo -> CString -> m ()-setFileAttributeInfoName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--{- |-Set the value of the “@name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #name-@--}-clearFileAttributeInfoName :: MonadIO m => FileAttributeInfo -> m ()-clearFileAttributeInfoName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-data FileAttributeInfoNameFieldInfo-instance AttrInfo FileAttributeInfoNameFieldInfo where-    type AttrAllowedOps FileAttributeInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FileAttributeInfoNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint FileAttributeInfoNameFieldInfo = (~) FileAttributeInfo-    type AttrGetType FileAttributeInfoNameFieldInfo = Maybe T.Text-    type AttrLabel FileAttributeInfoNameFieldInfo = "name"-    type AttrOrigin FileAttributeInfoNameFieldInfo = FileAttributeInfo-    attrGet _ = getFileAttributeInfoName-    attrSet _ = setFileAttributeInfoName-    attrConstruct = undefined-    attrClear _ = clearFileAttributeInfoName--fileAttributeInfo_name :: AttrLabelProxy "name"-fileAttributeInfo_name = AttrLabelProxy--#endif---{- |-Get the value of the “@type@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' fileAttributeInfo #type-@--}-getFileAttributeInfoType :: MonadIO m => FileAttributeInfo -> m Gio.Enums.FileAttributeType-getFileAttributeInfoType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--{- |-Set the value of the “@type@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' fileAttributeInfo [ #type 'Data.GI.Base.Attributes.:=' value ]-@--}-setFileAttributeInfoType :: MonadIO m => FileAttributeInfo -> Gio.Enums.FileAttributeType -> m ()-setFileAttributeInfoType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 8) (val' :: CUInt)--#if ENABLE_OVERLOADING-data FileAttributeInfoTypeFieldInfo-instance AttrInfo FileAttributeInfoTypeFieldInfo where-    type AttrAllowedOps FileAttributeInfoTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint FileAttributeInfoTypeFieldInfo = (~) Gio.Enums.FileAttributeType-    type AttrBaseTypeConstraint FileAttributeInfoTypeFieldInfo = (~) FileAttributeInfo-    type AttrGetType FileAttributeInfoTypeFieldInfo = Gio.Enums.FileAttributeType-    type AttrLabel FileAttributeInfoTypeFieldInfo = "type"-    type AttrOrigin FileAttributeInfoTypeFieldInfo = FileAttributeInfo-    attrGet _ = getFileAttributeInfoType-    attrSet _ = setFileAttributeInfoType-    attrConstruct = undefined-    attrClear _ = undefined--fileAttributeInfo_type :: AttrLabelProxy "type"-fileAttributeInfo_type = AttrLabelProxy--#endif---{- |-Get the value of the “@flags@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' fileAttributeInfo #flags-@--}-getFileAttributeInfoFlags :: MonadIO m => FileAttributeInfo -> m [Gio.Flags.FileAttributeInfoFlags]-getFileAttributeInfoFlags s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO CUInt-    let val' = wordToGFlags val-    return val'--{- |-Set the value of the “@flags@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' fileAttributeInfo [ #flags 'Data.GI.Base.Attributes.:=' value ]-@--}-setFileAttributeInfoFlags :: MonadIO m => FileAttributeInfo -> [Gio.Flags.FileAttributeInfoFlags] -> m ()-setFileAttributeInfoFlags s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 12) (val' :: CUInt)--#if ENABLE_OVERLOADING-data FileAttributeInfoFlagsFieldInfo-instance AttrInfo FileAttributeInfoFlagsFieldInfo where-    type AttrAllowedOps FileAttributeInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint FileAttributeInfoFlagsFieldInfo = (~) [Gio.Flags.FileAttributeInfoFlags]-    type AttrBaseTypeConstraint FileAttributeInfoFlagsFieldInfo = (~) FileAttributeInfo-    type AttrGetType FileAttributeInfoFlagsFieldInfo = [Gio.Flags.FileAttributeInfoFlags]-    type AttrLabel FileAttributeInfoFlagsFieldInfo = "flags"-    type AttrOrigin FileAttributeInfoFlagsFieldInfo = FileAttributeInfo-    attrGet _ = getFileAttributeInfoFlags-    attrSet _ = setFileAttributeInfoFlags-    attrConstruct = undefined-    attrClear _ = undefined--fileAttributeInfo_flags :: AttrLabelProxy "flags"-fileAttributeInfo_flags = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList FileAttributeInfo-type instance O.AttributeList FileAttributeInfo = FileAttributeInfoAttributeList-type FileAttributeInfoAttributeList = ('[ '("name", FileAttributeInfoNameFieldInfo), '("type", FileAttributeInfoTypeFieldInfo), '("flags", FileAttributeInfoFlagsFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveFileAttributeInfoMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileAttributeInfoMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileAttributeInfoMethod t FileAttributeInfo, O.MethodInfo info FileAttributeInfo p) => OL.IsLabel t (FileAttributeInfo -> 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--
− GI/Gio/Structs/FileAttributeInfo.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.FileAttributeInfo 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 FileAttributeInfo = FileAttributeInfo (ManagedPtr FileAttributeInfo)-instance WrappedPtr FileAttributeInfo where
− GI/Gio/Structs/FileAttributeInfoList.hs 
@@ -1,497 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Acts as a lightweight registry for possible valid file attributes.-The registry stores Key-Value pair formats as @/GFileAttributeInfos/@.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.FileAttributeInfoList-    ( ---- * Exported types-    FileAttributeInfoList(..)               ,-    newZeroFileAttributeInfoList            ,-    noFileAttributeInfoList                 ,--- -- * Methods--- ** add #method:add#--#if ENABLE_OVERLOADING-    FileAttributeInfoListAddMethodInfo      ,-#endif-    fileAttributeInfoListAdd                ,----- ** dup #method:dup#--#if ENABLE_OVERLOADING-    FileAttributeInfoListDupMethodInfo      ,-#endif-    fileAttributeInfoListDup                ,----- ** lookup #method:lookup#--#if ENABLE_OVERLOADING-    FileAttributeInfoListLookupMethodInfo   ,-#endif-    fileAttributeInfoListLookup             ,----- ** new #method:new#--    fileAttributeInfoListNew                ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    FileAttributeInfoListRefMethodInfo      ,-#endif-    fileAttributeInfoListRef                ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    FileAttributeInfoListUnrefMethodInfo    ,-#endif-    fileAttributeInfoListUnref              ,----- -- * Properties--- ** infos #attr:infos#-{- | an array of @/GFileAttributeInfos/@.--}-    clearFileAttributeInfoListInfos         ,-#if ENABLE_OVERLOADING-    fileAttributeInfoList_infos             ,-#endif-    getFileAttributeInfoListInfos           ,-    setFileAttributeInfoListInfos           ,----- ** nInfos #attr:nInfos#-{- | the number of values in the array.--}-#if ENABLE_OVERLOADING-    fileAttributeInfoList_nInfos            ,-#endif-    getFileAttributeInfoListNInfos          ,-    setFileAttributeInfoListNInfos          ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Structs.FileAttributeInfo as Gio.FileAttributeInfo---- | Memory-managed wrapper type.-newtype FileAttributeInfoList = FileAttributeInfoList (ManagedPtr FileAttributeInfoList)-foreign import ccall "g_file_attribute_info_list_get_type" c_g_file_attribute_info_list_get_type :: -    IO GType--instance BoxedObject FileAttributeInfoList where-    boxedType _ = c_g_file_attribute_info_list_get_type---- | Construct a `FileAttributeInfoList` struct initialized to zero.-newZeroFileAttributeInfoList :: MonadIO m => m FileAttributeInfoList-newZeroFileAttributeInfoList = liftIO $ callocBoxedBytes 16 >>= wrapBoxed FileAttributeInfoList--instance tag ~ 'AttrSet => Constructible FileAttributeInfoList tag where-    new _ attrs = do-        o <- newZeroFileAttributeInfoList-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `FileAttributeInfoList`.-noFileAttributeInfoList :: Maybe FileAttributeInfoList-noFileAttributeInfoList = Nothing--{- |-Get the value of the “@infos@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' fileAttributeInfoList #infos-@--}-getFileAttributeInfoListInfos :: MonadIO m => FileAttributeInfoList -> m (Maybe Gio.FileAttributeInfo.FileAttributeInfo)-getFileAttributeInfoListInfos s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gio.FileAttributeInfo.FileAttributeInfo)-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- (newPtr Gio.FileAttributeInfo.FileAttributeInfo) val'-        return val''-    return result--{- |-Set the value of the “@infos@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' fileAttributeInfoList [ #infos 'Data.GI.Base.Attributes.:=' value ]-@--}-setFileAttributeInfoListInfos :: MonadIO m => FileAttributeInfoList -> Ptr Gio.FileAttributeInfo.FileAttributeInfo -> m ()-setFileAttributeInfoListInfos s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr Gio.FileAttributeInfo.FileAttributeInfo)--{- |-Set the value of the “@infos@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #infos-@--}-clearFileAttributeInfoListInfos :: MonadIO m => FileAttributeInfoList -> m ()-clearFileAttributeInfoListInfos s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr Gio.FileAttributeInfo.FileAttributeInfo)--#if ENABLE_OVERLOADING-data FileAttributeInfoListInfosFieldInfo-instance AttrInfo FileAttributeInfoListInfosFieldInfo where-    type AttrAllowedOps FileAttributeInfoListInfosFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint FileAttributeInfoListInfosFieldInfo = (~) (Ptr Gio.FileAttributeInfo.FileAttributeInfo)-    type AttrBaseTypeConstraint FileAttributeInfoListInfosFieldInfo = (~) FileAttributeInfoList-    type AttrGetType FileAttributeInfoListInfosFieldInfo = Maybe Gio.FileAttributeInfo.FileAttributeInfo-    type AttrLabel FileAttributeInfoListInfosFieldInfo = "infos"-    type AttrOrigin FileAttributeInfoListInfosFieldInfo = FileAttributeInfoList-    attrGet _ = getFileAttributeInfoListInfos-    attrSet _ = setFileAttributeInfoListInfos-    attrConstruct = undefined-    attrClear _ = clearFileAttributeInfoListInfos--fileAttributeInfoList_infos :: AttrLabelProxy "infos"-fileAttributeInfoList_infos = AttrLabelProxy--#endif---{- |-Get the value of the “@n_infos@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' fileAttributeInfoList #nInfos-@--}-getFileAttributeInfoListNInfos :: MonadIO m => FileAttributeInfoList -> m Int32-getFileAttributeInfoListNInfos s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--{- |-Set the value of the “@n_infos@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' fileAttributeInfoList [ #nInfos 'Data.GI.Base.Attributes.:=' value ]-@--}-setFileAttributeInfoListNInfos :: MonadIO m => FileAttributeInfoList -> Int32 -> m ()-setFileAttributeInfoListNInfos s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int32)--#if ENABLE_OVERLOADING-data FileAttributeInfoListNInfosFieldInfo-instance AttrInfo FileAttributeInfoListNInfosFieldInfo where-    type AttrAllowedOps FileAttributeInfoListNInfosFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint FileAttributeInfoListNInfosFieldInfo = (~) Int32-    type AttrBaseTypeConstraint FileAttributeInfoListNInfosFieldInfo = (~) FileAttributeInfoList-    type AttrGetType FileAttributeInfoListNInfosFieldInfo = Int32-    type AttrLabel FileAttributeInfoListNInfosFieldInfo = "n_infos"-    type AttrOrigin FileAttributeInfoListNInfosFieldInfo = FileAttributeInfoList-    attrGet _ = getFileAttributeInfoListNInfos-    attrSet _ = setFileAttributeInfoListNInfos-    attrConstruct = undefined-    attrClear _ = undefined--fileAttributeInfoList_nInfos :: AttrLabelProxy "nInfos"-fileAttributeInfoList_nInfos = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList FileAttributeInfoList-type instance O.AttributeList FileAttributeInfoList = FileAttributeInfoListAttributeList-type FileAttributeInfoListAttributeList = ('[ '("infos", FileAttributeInfoListInfosFieldInfo), '("nInfos", FileAttributeInfoListNInfosFieldInfo)] :: [(Symbol, *)])-#endif---- method FileAttributeInfoList::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_new" g_file_attribute_info_list_new :: -    IO (Ptr FileAttributeInfoList)--{- |-Creates a new file attribute info list.--}-fileAttributeInfoListNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m FileAttributeInfoList-    {- ^ __Returns:__ a 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList'. -}-fileAttributeInfoListNew  = liftIO $ do-    result <- g_file_attribute_info_list_new-    checkUnexpectedReturnNULL "fileAttributeInfoListNew" result-    result' <- (wrapBoxed FileAttributeInfoList) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method FileAttributeInfoList::add--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeInfoList.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the attribute to add.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GFileAttributeType for the attribute.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeInfoFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GFileAttributeInfoFlags for the attribute.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_add" g_file_attribute_info_list_add :: -    Ptr FileAttributeInfoList ->            -- list : TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"})-    CString ->                              -- name : TBasicType TUTF8-    CUInt ->                                -- type : TInterface (Name {namespace = "Gio", name = "FileAttributeType"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Gio", name = "FileAttributeInfoFlags"})-    IO ()--{- |-Adds a new attribute with /@name@/ to the /@list@/, setting-its /@type@/ and /@flags@/.--}-fileAttributeInfoListAdd ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeInfoList-    {- ^ /@list@/: a 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList'. -}-    -> T.Text-    {- ^ /@name@/: the name of the attribute to add. -}-    -> Gio.Enums.FileAttributeType-    {- ^ /@type@/: the 'GI.Gio.Enums.FileAttributeType' for the attribute. -}-    -> [Gio.Flags.FileAttributeInfoFlags]-    {- ^ /@flags@/: 'GI.Gio.Flags.FileAttributeInfoFlags' for the attribute. -}-    -> m ()-fileAttributeInfoListAdd list name type_ flags = liftIO $ do-    list' <- unsafeManagedPtrGetPtr list-    name' <- textToCString name-    let type_' = (fromIntegral . fromEnum) type_-    let flags' = gflagsToWord flags-    g_file_attribute_info_list_add list' name' type_' flags'-    touchManagedPtr list-    freeMem name'-    return ()--#if ENABLE_OVERLOADING-data FileAttributeInfoListAddMethodInfo-instance (signature ~ (T.Text -> Gio.Enums.FileAttributeType -> [Gio.Flags.FileAttributeInfoFlags] -> m ()), MonadIO m) => O.MethodInfo FileAttributeInfoListAddMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListAdd--#endif---- method FileAttributeInfoList::dup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeInfoList to duplicate.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_dup" g_file_attribute_info_list_dup :: -    Ptr FileAttributeInfoList ->            -- list : TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"})-    IO (Ptr FileAttributeInfoList)--{- |-Makes a duplicate of a file attribute info list.--}-fileAttributeInfoListDup ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeInfoList-    {- ^ /@list@/: a 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList' to duplicate. -}-    -> m FileAttributeInfoList-    {- ^ __Returns:__ a copy of the given /@list@/. -}-fileAttributeInfoListDup list = liftIO $ do-    list' <- unsafeManagedPtrGetPtr list-    result <- g_file_attribute_info_list_dup list'-    checkUnexpectedReturnNULL "fileAttributeInfoListDup" result-    result' <- (wrapBoxed FileAttributeInfoList) result-    touchManagedPtr list-    return result'--#if ENABLE_OVERLOADING-data FileAttributeInfoListDupMethodInfo-instance (signature ~ (m FileAttributeInfoList), MonadIO m) => O.MethodInfo FileAttributeInfoListDupMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListDup--#endif---- method FileAttributeInfoList::lookup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeInfoList.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the attribute to lookup.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeInfo"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_lookup" g_file_attribute_info_list_lookup :: -    Ptr FileAttributeInfoList ->            -- list : TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Gio.FileAttributeInfo.FileAttributeInfo)--{- |-Gets the file attribute with the name /@name@/ from /@list@/.--}-fileAttributeInfoListLookup ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeInfoList-    {- ^ /@list@/: a 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList'. -}-    -> T.Text-    {- ^ /@name@/: the name of the attribute to lookup. -}-    -> m Gio.FileAttributeInfo.FileAttributeInfo-    {- ^ __Returns:__ a 'GI.Gio.Structs.FileAttributeInfo.FileAttributeInfo' for the /@name@/, or 'Nothing' if an-attribute isn\'t found. -}-fileAttributeInfoListLookup list name = liftIO $ do-    list' <- unsafeManagedPtrGetPtr list-    name' <- textToCString name-    result <- g_file_attribute_info_list_lookup list' name'-    checkUnexpectedReturnNULL "fileAttributeInfoListLookup" result-    result' <- (newPtr Gio.FileAttributeInfo.FileAttributeInfo) result-    touchManagedPtr list-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data FileAttributeInfoListLookupMethodInfo-instance (signature ~ (T.Text -> m Gio.FileAttributeInfo.FileAttributeInfo), MonadIO m) => O.MethodInfo FileAttributeInfoListLookupMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListLookup--#endif---- method FileAttributeInfoList::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeInfoList to reference.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_ref" g_file_attribute_info_list_ref :: -    Ptr FileAttributeInfoList ->            -- list : TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"})-    IO (Ptr FileAttributeInfoList)--{- |-References a file attribute info list.--}-fileAttributeInfoListRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeInfoList-    {- ^ /@list@/: a 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList' to reference. -}-    -> m FileAttributeInfoList-    {- ^ __Returns:__ 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList' or 'Nothing' on error. -}-fileAttributeInfoListRef list = liftIO $ do-    list' <- unsafeManagedPtrGetPtr list-    result <- g_file_attribute_info_list_ref list'-    checkUnexpectedReturnNULL "fileAttributeInfoListRef" result-    result' <- (wrapBoxed FileAttributeInfoList) result-    touchManagedPtr list-    return result'--#if ENABLE_OVERLOADING-data FileAttributeInfoListRefMethodInfo-instance (signature ~ (m FileAttributeInfoList), MonadIO m) => O.MethodInfo FileAttributeInfoListRefMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListRef--#endif---- method FileAttributeInfoList::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "list", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GFileAttributeInfoList to unreference.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_info_list_unref" g_file_attribute_info_list_unref :: -    Ptr FileAttributeInfoList ->            -- list : TInterface (Name {namespace = "Gio", name = "FileAttributeInfoList"})-    IO ()--{- |-Removes a reference from the given /@list@/. If the reference count-falls to zero, the /@list@/ is deleted.--}-fileAttributeInfoListUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeInfoList-    {- ^ /@list@/: The 'GI.Gio.Structs.FileAttributeInfoList.FileAttributeInfoList' to unreference. -}-    -> m ()-fileAttributeInfoListUnref list = liftIO $ do-    list' <- unsafeManagedPtrGetPtr list-    g_file_attribute_info_list_unref list'-    touchManagedPtr list-    return ()--#if ENABLE_OVERLOADING-data FileAttributeInfoListUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo FileAttributeInfoListUnrefMethodInfo FileAttributeInfoList signature where-    overloadedMethod _ = fileAttributeInfoListUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveFileAttributeInfoListMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileAttributeInfoListMethod "add" o = FileAttributeInfoListAddMethodInfo-    ResolveFileAttributeInfoListMethod "dup" o = FileAttributeInfoListDupMethodInfo-    ResolveFileAttributeInfoListMethod "lookup" o = FileAttributeInfoListLookupMethodInfo-    ResolveFileAttributeInfoListMethod "ref" o = FileAttributeInfoListRefMethodInfo-    ResolveFileAttributeInfoListMethod "unref" o = FileAttributeInfoListUnrefMethodInfo-    ResolveFileAttributeInfoListMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileAttributeInfoListMethod t FileAttributeInfoList, O.MethodInfo info FileAttributeInfoList p) => OL.IsLabel t (FileAttributeInfoList -> 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--
− GI/Gio/Structs/FileAttributeInfoList.hs-boot 
@@ -1,41 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.FileAttributeInfoList 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 FileAttributeInfoList = FileAttributeInfoList (ManagedPtr FileAttributeInfoList)-instance BoxedObject FileAttributeInfoList where-#if ENABLE_OVERLOADING-data FileAttributeInfoListAddMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeInfoListDupMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeInfoListLookupMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeInfoListRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeInfoListUnrefMethodInfo-#endif
− GI/Gio/Structs/FileAttributeMatcher.hs 
@@ -1,536 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Determines if a string matches a file attribute.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.FileAttributeMatcher-    ( ---- * Exported types-    FileAttributeMatcher(..)                ,-    noFileAttributeMatcher                  ,--- -- * Methods--- ** enumerateNamespace #method:enumerateNamespace#--#if ENABLE_OVERLOADING-    FileAttributeMatcherEnumerateNamespaceMethodInfo,-#endif-    fileAttributeMatcherEnumerateNamespace  ,----- ** enumerateNext #method:enumerateNext#--#if ENABLE_OVERLOADING-    FileAttributeMatcherEnumerateNextMethodInfo,-#endif-    fileAttributeMatcherEnumerateNext       ,----- ** matches #method:matches#--#if ENABLE_OVERLOADING-    FileAttributeMatcherMatchesMethodInfo   ,-#endif-    fileAttributeMatcherMatches             ,----- ** matchesOnly #method:matchesOnly#--#if ENABLE_OVERLOADING-    FileAttributeMatcherMatchesOnlyMethodInfo,-#endif-    fileAttributeMatcherMatchesOnly         ,----- ** new #method:new#--    fileAttributeMatcherNew                 ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    FileAttributeMatcherRefMethodInfo       ,-#endif-    fileAttributeMatcherRef                 ,----- ** subtract #method:subtract#--#if ENABLE_OVERLOADING-    FileAttributeMatcherSubtractMethodInfo  ,-#endif-    fileAttributeMatcherSubtract            ,----- ** toString #method:toString#--#if ENABLE_OVERLOADING-    FileAttributeMatcherToStringMethodInfo  ,-#endif-    fileAttributeMatcherToString            ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    FileAttributeMatcherUnrefMethodInfo     ,-#endif-    fileAttributeMatcherUnref               ,-----    ) 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----- | Memory-managed wrapper type.-newtype FileAttributeMatcher = FileAttributeMatcher (ManagedPtr FileAttributeMatcher)-foreign import ccall "g_file_attribute_matcher_get_type" c_g_file_attribute_matcher_get_type :: -    IO GType--instance BoxedObject FileAttributeMatcher where-    boxedType _ = c_g_file_attribute_matcher_get_type---- | A convenience alias for `Nothing` :: `Maybe` `FileAttributeMatcher`.-noFileAttributeMatcher :: Maybe FileAttributeMatcher-noFileAttributeMatcher = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList FileAttributeMatcher-type instance O.AttributeList FileAttributeMatcher = FileAttributeMatcherAttributeList-type FileAttributeMatcherAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method FileAttributeMatcher::new--- method type : Constructor--- Args : [Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an attribute string to match.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_matcher_new" g_file_attribute_matcher_new :: -    CString ->                              -- attributes : TBasicType TUTF8-    IO (Ptr FileAttributeMatcher)--{- |-Creates a new file attribute matcher, which matches attributes-against a given string. @/GFileAttributeMatchers/@ are reference-counted structures, and are created with a reference count of 1. If-the number of references falls to 0, the 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher' is-automatically destroyed.--The /@attribute@/ string should be formatted with specific keys separated-from namespaces with a double colon. Several \"namespace::key\" strings may be-concatenated with a single comma (e.g. \"standard::type,standard::is-hidden\").-The wildcard \"*\" may be used to match all keys and namespaces, or-\"namespace::*\" will match all keys in a given namespace.--== Examples of file attribute matcher strings and results---* @\"*\"@: matches all attributes.-* @\"standard::is-hidden\"@: matches only the key is-hidden in the-standard namespace.-* @\"standard::type,unix::*\"@: matches the type key in the standard-namespace and all keys in the unix namespace.--}-fileAttributeMatcherNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@attributes@/: an attribute string to match. -}-    -> m FileAttributeMatcher-    {- ^ __Returns:__ a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher' -}-fileAttributeMatcherNew attributes = liftIO $ do-    attributes' <- textToCString attributes-    result <- g_file_attribute_matcher_new attributes'-    checkUnexpectedReturnNULL "fileAttributeMatcherNew" result-    result' <- (wrapBoxed FileAttributeMatcher) result-    freeMem attributes'-    return result'--#if ENABLE_OVERLOADING-#endif---- method FileAttributeMatcher::enumerate_namespace--- method type : OrdinaryMethod--- Args : [Arg {argCName = "matcher", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeMatcher.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ns", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string containing a file attribute namespace.", 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 "g_file_attribute_matcher_enumerate_namespace" g_file_attribute_matcher_enumerate_namespace :: -    Ptr FileAttributeMatcher ->             -- matcher : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    CString ->                              -- ns : TBasicType TUTF8-    IO CInt--{- |-Checks if the matcher will match all of the keys in a given namespace.-This will always return 'True' if a wildcard character is in use (e.g. if-matcher was created with \"standard::*\" and /@ns@/ is \"standard\", or if matcher was created-using \"*\" and namespace is anything.)--TODO: this is awkwardly worded.--}-fileAttributeMatcherEnumerateNamespace ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeMatcher-    {- ^ /@matcher@/: a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-    -> T.Text-    {- ^ /@ns@/: a string containing a file attribute namespace. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the matcher matches all of the entries-in the given /@ns@/, 'False' otherwise. -}-fileAttributeMatcherEnumerateNamespace matcher ns = liftIO $ do-    matcher' <- unsafeManagedPtrGetPtr matcher-    ns' <- textToCString ns-    result <- g_file_attribute_matcher_enumerate_namespace matcher' ns'-    let result' = (/= 0) result-    touchManagedPtr matcher-    freeMem ns'-    return result'--#if ENABLE_OVERLOADING-data FileAttributeMatcherEnumerateNamespaceMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.MethodInfo FileAttributeMatcherEnumerateNamespaceMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherEnumerateNamespace--#endif---- method FileAttributeMatcher::enumerate_next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "matcher", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeMatcher.", 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 "g_file_attribute_matcher_enumerate_next" g_file_attribute_matcher_enumerate_next :: -    Ptr FileAttributeMatcher ->             -- matcher : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    IO CString--{- |-Gets the next matched attribute from a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'.--}-fileAttributeMatcherEnumerateNext ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeMatcher-    {- ^ /@matcher@/: a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the next attribute or 'Nothing' if-no more attribute exist. -}-fileAttributeMatcherEnumerateNext matcher = liftIO $ do-    matcher' <- unsafeManagedPtrGetPtr matcher-    result <- g_file_attribute_matcher_enumerate_next matcher'-    checkUnexpectedReturnNULL "fileAttributeMatcherEnumerateNext" result-    result' <- cstringToText result-    touchManagedPtr matcher-    return result'--#if ENABLE_OVERLOADING-data FileAttributeMatcherEnumerateNextMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo FileAttributeMatcherEnumerateNextMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherEnumerateNext--#endif---- method FileAttributeMatcher::matches--- method type : OrdinaryMethod--- Args : [Arg {argCName = "matcher", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeMatcher.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", 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 "g_file_attribute_matcher_matches" g_file_attribute_matcher_matches :: -    Ptr FileAttributeMatcher ->             -- matcher : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CInt--{- |-Checks if an attribute will be matched by an attribute matcher. If-the matcher was created with the \"*\" matching string, this function-will always return 'True'.--}-fileAttributeMatcherMatches ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeMatcher-    {- ^ /@matcher@/: a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@attribute@/ matches /@matcher@/. 'False' otherwise. -}-fileAttributeMatcherMatches matcher attribute = liftIO $ do-    matcher' <- unsafeManagedPtrGetPtr matcher-    attribute' <- textToCString attribute-    result <- g_file_attribute_matcher_matches matcher' attribute'-    let result' = (/= 0) result-    touchManagedPtr matcher-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileAttributeMatcherMatchesMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.MethodInfo FileAttributeMatcherMatchesMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherMatches--#endif---- method FileAttributeMatcher::matches_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "matcher", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeMatcher.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a file attribute key.", 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 "g_file_attribute_matcher_matches_only" g_file_attribute_matcher_matches_only :: -    Ptr FileAttributeMatcher ->             -- matcher : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    CString ->                              -- attribute : TBasicType TUTF8-    IO CInt--{- |-Checks if a attribute matcher only matches a given attribute. Always-returns 'False' if \"*\" was used when creating the matcher.--}-fileAttributeMatcherMatchesOnly ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeMatcher-    {- ^ /@matcher@/: a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-    -> T.Text-    {- ^ /@attribute@/: a file attribute key. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the matcher only matches /@attribute@/. 'False' otherwise. -}-fileAttributeMatcherMatchesOnly matcher attribute = liftIO $ do-    matcher' <- unsafeManagedPtrGetPtr matcher-    attribute' <- textToCString attribute-    result <- g_file_attribute_matcher_matches_only matcher' attribute'-    let result' = (/= 0) result-    touchManagedPtr matcher-    freeMem attribute'-    return result'--#if ENABLE_OVERLOADING-data FileAttributeMatcherMatchesOnlyMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.MethodInfo FileAttributeMatcherMatchesOnlyMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherMatchesOnly--#endif---- method FileAttributeMatcher::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "matcher", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeMatcher.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_matcher_ref" g_file_attribute_matcher_ref :: -    Ptr FileAttributeMatcher ->             -- matcher : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    IO (Ptr FileAttributeMatcher)--{- |-References a file attribute matcher.--}-fileAttributeMatcherRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeMatcher-    {- ^ /@matcher@/: a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-    -> m FileAttributeMatcher-    {- ^ __Returns:__ a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-fileAttributeMatcherRef matcher = liftIO $ do-    matcher' <- unsafeManagedPtrGetPtr matcher-    result <- g_file_attribute_matcher_ref matcher'-    checkUnexpectedReturnNULL "fileAttributeMatcherRef" result-    result' <- (wrapBoxed FileAttributeMatcher) result-    touchManagedPtr matcher-    return result'--#if ENABLE_OVERLOADING-data FileAttributeMatcherRefMethodInfo-instance (signature ~ (m FileAttributeMatcher), MonadIO m) => O.MethodInfo FileAttributeMatcherRefMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherRef--#endif---- method FileAttributeMatcher::subtract--- method type : OrdinaryMethod--- Args : [Arg {argCName = "matcher", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Matcher to subtract from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtract", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The matcher to subtract", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}))--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_matcher_subtract" g_file_attribute_matcher_subtract :: -    Ptr FileAttributeMatcher ->             -- matcher : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    Ptr FileAttributeMatcher ->             -- subtract : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    IO (Ptr FileAttributeMatcher)--{- |-Subtracts all attributes of /@subtract@/ from /@matcher@/ and returns-a matcher that supports those attributes.--Note that currently it is not possible to remove a single-attribute when the /@matcher@/ matches the whole namespace - or remove-a namespace or attribute when the matcher matches everything. This-is a limitation of the current implementation, but may be fixed-in the future.--}-fileAttributeMatcherSubtract ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeMatcher-    {- ^ /@matcher@/: Matcher to subtract from -}-    -> FileAttributeMatcher-    {- ^ /@subtract@/: The matcher to subtract -}-    -> m FileAttributeMatcher-    {- ^ __Returns:__ A file attribute matcher matching all attributes of-    /@matcher@/ that are not matched by /@subtract@/ -}-fileAttributeMatcherSubtract matcher subtract = liftIO $ do-    matcher' <- unsafeManagedPtrGetPtr matcher-    subtract' <- unsafeManagedPtrGetPtr subtract-    result <- g_file_attribute_matcher_subtract matcher' subtract'-    checkUnexpectedReturnNULL "fileAttributeMatcherSubtract" result-    result' <- (wrapBoxed FileAttributeMatcher) result-    touchManagedPtr matcher-    touchManagedPtr subtract-    return result'--#if ENABLE_OVERLOADING-data FileAttributeMatcherSubtractMethodInfo-instance (signature ~ (FileAttributeMatcher -> m FileAttributeMatcher), MonadIO m) => O.MethodInfo FileAttributeMatcherSubtractMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherSubtract--#endif---- method FileAttributeMatcher::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "matcher", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeMatcher.", 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 "g_file_attribute_matcher_to_string" g_file_attribute_matcher_to_string :: -    Ptr FileAttributeMatcher ->             -- matcher : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    IO CString--{- |-Prints what the matcher is matching against. The format will be-equal to the format passed to 'GI.Gio.Structs.FileAttributeMatcher.fileAttributeMatcherNew'.-The output however, might not be identical, as the matcher may-decide to use a different order or omit needless parts.--/Since: 2.32/--}-fileAttributeMatcherToString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeMatcher-    {- ^ /@matcher@/: a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-    -> m T.Text-    {- ^ __Returns:__ a string describing the attributes the matcher matches-  against or 'Nothing' if /@matcher@/ was 'Nothing'. -}-fileAttributeMatcherToString matcher = liftIO $ do-    matcher' <- unsafeManagedPtrGetPtr matcher-    result <- g_file_attribute_matcher_to_string matcher'-    checkUnexpectedReturnNULL "fileAttributeMatcherToString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr matcher-    return result'--#if ENABLE_OVERLOADING-data FileAttributeMatcherToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo FileAttributeMatcherToStringMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherToString--#endif---- method FileAttributeMatcher::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "matcher", argType = TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GFileAttributeMatcher.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_file_attribute_matcher_unref" g_file_attribute_matcher_unref :: -    Ptr FileAttributeMatcher ->             -- matcher : TInterface (Name {namespace = "Gio", name = "FileAttributeMatcher"})-    IO ()--{- |-Unreferences /@matcher@/. If the reference count falls below 1,-the /@matcher@/ is automatically freed.--}-fileAttributeMatcherUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FileAttributeMatcher-    {- ^ /@matcher@/: a 'GI.Gio.Structs.FileAttributeMatcher.FileAttributeMatcher'. -}-    -> m ()-fileAttributeMatcherUnref matcher = liftIO $ do-    matcher' <- unsafeManagedPtrGetPtr matcher-    g_file_attribute_matcher_unref matcher'-    touchManagedPtr matcher-    return ()--#if ENABLE_OVERLOADING-data FileAttributeMatcherUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo FileAttributeMatcherUnrefMethodInfo FileAttributeMatcher signature where-    overloadedMethod _ = fileAttributeMatcherUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveFileAttributeMatcherMethod (t :: Symbol) (o :: *) :: * where-    ResolveFileAttributeMatcherMethod "enumerateNamespace" o = FileAttributeMatcherEnumerateNamespaceMethodInfo-    ResolveFileAttributeMatcherMethod "enumerateNext" o = FileAttributeMatcherEnumerateNextMethodInfo-    ResolveFileAttributeMatcherMethod "matches" o = FileAttributeMatcherMatchesMethodInfo-    ResolveFileAttributeMatcherMethod "matchesOnly" o = FileAttributeMatcherMatchesOnlyMethodInfo-    ResolveFileAttributeMatcherMethod "ref" o = FileAttributeMatcherRefMethodInfo-    ResolveFileAttributeMatcherMethod "subtract" o = FileAttributeMatcherSubtractMethodInfo-    ResolveFileAttributeMatcherMethod "toString" o = FileAttributeMatcherToStringMethodInfo-    ResolveFileAttributeMatcherMethod "unref" o = FileAttributeMatcherUnrefMethodInfo-    ResolveFileAttributeMatcherMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveFileAttributeMatcherMethod t FileAttributeMatcher, O.MethodInfo info FileAttributeMatcher p) => OL.IsLabel t (FileAttributeMatcher -> 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--
− GI/Gio/Structs/FileAttributeMatcher.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.FileAttributeMatcher 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 FileAttributeMatcher = FileAttributeMatcher (ManagedPtr FileAttributeMatcher)-instance BoxedObject FileAttributeMatcher where-#if ENABLE_OVERLOADING-data FileAttributeMatcherEnumerateNamespaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeMatcherEnumerateNextMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeMatcherMatchesMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeMatcherMatchesOnlyMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeMatcherRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeMatcherSubtractMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeMatcherToStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data FileAttributeMatcherUnrefMethodInfo-#endif
− GI/Gio/Structs/IOExtension.hs 
@@ -1,216 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Structs.IOExtension.IOExtension' is an opaque data structure and can only be accessed-using the following functions.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.IOExtension-    ( ---- * Exported types-    IOExtension(..)                         ,-    noIOExtension                           ,--- -- * Methods--- ** getName #method:getName#--#if ENABLE_OVERLOADING-    IOExtensionGetNameMethodInfo            ,-#endif-    iOExtensionGetName                      ,----- ** getPriority #method:getPriority#--#if ENABLE_OVERLOADING-    IOExtensionGetPriorityMethodInfo        ,-#endif-    iOExtensionGetPriority                  ,----- ** getType #method:getType#--#if ENABLE_OVERLOADING-    IOExtensionGetTypeMethodInfo            ,-#endif-    iOExtensionGetType                      ,-----    ) 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----- | Memory-managed wrapper type.-newtype IOExtension = IOExtension (ManagedPtr IOExtension)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr IOExtension where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing---- | A convenience alias for `Nothing` :: `Maybe` `IOExtension`.-noIOExtension :: Maybe IOExtension-noIOExtension = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList IOExtension-type instance O.AttributeList IOExtension = IOExtensionAttributeList-type IOExtensionAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method IOExtension::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "extension", argType = TInterface (Name {namespace = "Gio", name = "IOExtension"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOExtension", 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 "g_io_extension_get_name" g_io_extension_get_name :: -    Ptr IOExtension ->                      -- extension : TInterface (Name {namespace = "Gio", name = "IOExtension"})-    IO CString--{- |-Gets the name under which /@extension@/ was registered.--Note that the same type may be registered as extension-for multiple extension points, under different names.--}-iOExtensionGetName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOExtension-    {- ^ /@extension@/: a 'GI.Gio.Structs.IOExtension.IOExtension' -}-    -> m T.Text-    {- ^ __Returns:__ the name of /@extension@/. -}-iOExtensionGetName extension = liftIO $ do-    extension' <- unsafeManagedPtrGetPtr extension-    result <- g_io_extension_get_name extension'-    checkUnexpectedReturnNULL "iOExtensionGetName" result-    result' <- cstringToText result-    touchManagedPtr extension-    return result'--#if ENABLE_OVERLOADING-data IOExtensionGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo IOExtensionGetNameMethodInfo IOExtension signature where-    overloadedMethod _ = iOExtensionGetName--#endif---- method IOExtension::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "extension", argType = TInterface (Name {namespace = "Gio", name = "IOExtension"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOExtension", 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 "g_io_extension_get_priority" g_io_extension_get_priority :: -    Ptr IOExtension ->                      -- extension : TInterface (Name {namespace = "Gio", name = "IOExtension"})-    IO Int32--{- |-Gets the priority with which /@extension@/ was registered.--}-iOExtensionGetPriority ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOExtension-    {- ^ /@extension@/: a 'GI.Gio.Structs.IOExtension.IOExtension' -}-    -> m Int32-    {- ^ __Returns:__ the priority of /@extension@/ -}-iOExtensionGetPriority extension = liftIO $ do-    extension' <- unsafeManagedPtrGetPtr extension-    result <- g_io_extension_get_priority extension'-    touchManagedPtr extension-    return result--#if ENABLE_OVERLOADING-data IOExtensionGetPriorityMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo IOExtensionGetPriorityMethodInfo IOExtension signature where-    overloadedMethod _ = iOExtensionGetPriority--#endif---- method IOExtension::get_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "extension", argType = TInterface (Name {namespace = "Gio", name = "IOExtension"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOExtension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_get_type" g_io_extension_get_type :: -    Ptr IOExtension ->                      -- extension : TInterface (Name {namespace = "Gio", name = "IOExtension"})-    IO CGType--{- |-Gets the type associated with /@extension@/.--}-iOExtensionGetType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOExtension-    {- ^ /@extension@/: a 'GI.Gio.Structs.IOExtension.IOExtension' -}-    -> m GType-    {- ^ __Returns:__ the type of /@extension@/ -}-iOExtensionGetType extension = liftIO $ do-    extension' <- unsafeManagedPtrGetPtr extension-    result <- g_io_extension_get_type extension'-    let result' = GType result-    touchManagedPtr extension-    return result'--#if ENABLE_OVERLOADING-data IOExtensionGetTypeMethodInfo-instance (signature ~ (m GType), MonadIO m) => O.MethodInfo IOExtensionGetTypeMethodInfo IOExtension signature where-    overloadedMethod _ = iOExtensionGetType--#endif--#if ENABLE_OVERLOADING-type family ResolveIOExtensionMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOExtensionMethod "getName" o = IOExtensionGetNameMethodInfo-    ResolveIOExtensionMethod "getPriority" o = IOExtensionGetPriorityMethodInfo-    ResolveIOExtensionMethod "getType" o = IOExtensionGetTypeMethodInfo-    ResolveIOExtensionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveIOExtensionMethod t IOExtension, O.MethodInfo info IOExtension p) => OL.IsLabel t (IOExtension -> 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--
− GI/Gio/Structs/IOExtension.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.IOExtension 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 IOExtension = IOExtension (ManagedPtr IOExtension)-instance WrappedPtr IOExtension where-#if ENABLE_OVERLOADING-data IOExtensionGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOExtensionGetPriorityMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOExtensionGetTypeMethodInfo-#endif
− GI/Gio/Structs/IOExtensionPoint.hs 
@@ -1,402 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Structs.IOExtensionPoint.IOExtensionPoint' is an opaque data structure and can only be accessed-using the following functions.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.IOExtensionPoint-    ( ---- * Exported types-    IOExtensionPoint(..)                    ,-    noIOExtensionPoint                      ,--- -- * Methods--- ** getExtensionByName #method:getExtensionByName#--#if ENABLE_OVERLOADING-    IOExtensionPointGetExtensionByNameMethodInfo,-#endif-    iOExtensionPointGetExtensionByName      ,----- ** getExtensions #method:getExtensions#--#if ENABLE_OVERLOADING-    IOExtensionPointGetExtensionsMethodInfo ,-#endif-    iOExtensionPointGetExtensions           ,----- ** getRequiredType #method:getRequiredType#--#if ENABLE_OVERLOADING-    IOExtensionPointGetRequiredTypeMethodInfo,-#endif-    iOExtensionPointGetRequiredType         ,----- ** implement #method:implement#--    iOExtensionPointImplement               ,----- ** lookup #method:lookup#--    iOExtensionPointLookup                  ,----- ** register #method:register#--    iOExtensionPointRegister                ,----- ** setRequiredType #method:setRequiredType#--#if ENABLE_OVERLOADING-    IOExtensionPointSetRequiredTypeMethodInfo,-#endif-    iOExtensionPointSetRequiredType         ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Structs.IOExtension as Gio.IOExtension---- | Memory-managed wrapper type.-newtype IOExtensionPoint = IOExtensionPoint (ManagedPtr IOExtensionPoint)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr IOExtensionPoint where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing---- | A convenience alias for `Nothing` :: `Maybe` `IOExtensionPoint`.-noIOExtensionPoint :: Maybe IOExtensionPoint-noIOExtensionPoint = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList IOExtensionPoint-type instance O.AttributeList IOExtensionPoint = IOExtensionPointAttributeList-type IOExtensionPointAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method IOExtensionPoint::get_extension_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "extension_point", argType = TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOExtensionPoint", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the extension to get", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOExtension"}))--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_point_get_extension_by_name" g_io_extension_point_get_extension_by_name :: -    Ptr IOExtensionPoint ->                 -- extension_point : TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Gio.IOExtension.IOExtension)--{- |-Finds a 'GI.Gio.Structs.IOExtension.IOExtension' for an extension point by name.--}-iOExtensionPointGetExtensionByName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOExtensionPoint-    {- ^ /@extensionPoint@/: a 'GI.Gio.Structs.IOExtensionPoint.IOExtensionPoint' -}-    -> T.Text-    {- ^ /@name@/: the name of the extension to get -}-    -> m Gio.IOExtension.IOExtension-    {- ^ __Returns:__ the 'GI.Gio.Structs.IOExtension.IOExtension' for /@extensionPoint@/ that has the-   given name, or 'Nothing' if there is no extension with that name -}-iOExtensionPointGetExtensionByName extensionPoint name = liftIO $ do-    extensionPoint' <- unsafeManagedPtrGetPtr extensionPoint-    name' <- textToCString name-    result <- g_io_extension_point_get_extension_by_name extensionPoint' name'-    checkUnexpectedReturnNULL "iOExtensionPointGetExtensionByName" result-    result' <- (newPtr Gio.IOExtension.IOExtension) result-    touchManagedPtr extensionPoint-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data IOExtensionPointGetExtensionByNameMethodInfo-instance (signature ~ (T.Text -> m Gio.IOExtension.IOExtension), MonadIO m) => O.MethodInfo IOExtensionPointGetExtensionByNameMethodInfo IOExtensionPoint signature where-    overloadedMethod _ = iOExtensionPointGetExtensionByName--#endif---- method IOExtensionPoint::get_extensions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "extension_point", argType = TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOExtensionPoint", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface (Name {namespace = "Gio", name = "IOExtension"})))--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_point_get_extensions" g_io_extension_point_get_extensions :: -    Ptr IOExtensionPoint ->                 -- extension_point : TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"})-    IO (Ptr (GList (Ptr Gio.IOExtension.IOExtension)))--{- |-Gets a list of all extensions that implement this extension point.-The list is sorted by priority, beginning with the highest priority.--}-iOExtensionPointGetExtensions ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOExtensionPoint-    {- ^ /@extensionPoint@/: a 'GI.Gio.Structs.IOExtensionPoint.IOExtensionPoint' -}-    -> m [Gio.IOExtension.IOExtension]-    {- ^ __Returns:__ a 'GI.GLib.Structs.List.List' of-    @/GIOExtensions/@. The list is owned by GIO and should not be-    modified. -}-iOExtensionPointGetExtensions extensionPoint = liftIO $ do-    extensionPoint' <- unsafeManagedPtrGetPtr extensionPoint-    result <- g_io_extension_point_get_extensions extensionPoint'-    result' <- unpackGList result-    result'' <- mapM (newPtr Gio.IOExtension.IOExtension) result'-    touchManagedPtr extensionPoint-    return result''--#if ENABLE_OVERLOADING-data IOExtensionPointGetExtensionsMethodInfo-instance (signature ~ (m [Gio.IOExtension.IOExtension]), MonadIO m) => O.MethodInfo IOExtensionPointGetExtensionsMethodInfo IOExtensionPoint signature where-    overloadedMethod _ = iOExtensionPointGetExtensions--#endif---- method IOExtensionPoint::get_required_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "extension_point", argType = TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOExtensionPoint", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TGType)--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_point_get_required_type" g_io_extension_point_get_required_type :: -    Ptr IOExtensionPoint ->                 -- extension_point : TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"})-    IO CGType--{- |-Gets the required type for /@extensionPoint@/.--}-iOExtensionPointGetRequiredType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOExtensionPoint-    {- ^ /@extensionPoint@/: a 'GI.Gio.Structs.IOExtensionPoint.IOExtensionPoint' -}-    -> m GType-    {- ^ __Returns:__ the 'GType' that all implementations must have,-    or @/G_TYPE_INVALID/@ if the extension point has no required type -}-iOExtensionPointGetRequiredType extensionPoint = liftIO $ do-    extensionPoint' <- unsafeManagedPtrGetPtr extensionPoint-    result <- g_io_extension_point_get_required_type extensionPoint'-    let result' = GType result-    touchManagedPtr extensionPoint-    return result'--#if ENABLE_OVERLOADING-data IOExtensionPointGetRequiredTypeMethodInfo-instance (signature ~ (m GType), MonadIO m) => O.MethodInfo IOExtensionPointGetRequiredTypeMethodInfo IOExtensionPoint signature where-    overloadedMethod _ = iOExtensionPointGetRequiredType--#endif---- method IOExtensionPoint::set_required_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "extension_point", argType = TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOExtensionPoint", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType to require", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_point_set_required_type" g_io_extension_point_set_required_type :: -    Ptr IOExtensionPoint ->                 -- extension_point : TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"})-    CGType ->                               -- type : TBasicType TGType-    IO ()--{- |-Sets the required type for /@extensionPoint@/ to /@type@/.-All implementations must henceforth have this type.--}-iOExtensionPointSetRequiredType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOExtensionPoint-    {- ^ /@extensionPoint@/: a 'GI.Gio.Structs.IOExtensionPoint.IOExtensionPoint' -}-    -> GType-    {- ^ /@type@/: the 'GType' to require -}-    -> m ()-iOExtensionPointSetRequiredType extensionPoint type_ = liftIO $ do-    extensionPoint' <- unsafeManagedPtrGetPtr extensionPoint-    let type_' = gtypeToCGType type_-    g_io_extension_point_set_required_type extensionPoint' type_'-    touchManagedPtr extensionPoint-    return ()--#if ENABLE_OVERLOADING-data IOExtensionPointSetRequiredTypeMethodInfo-instance (signature ~ (GType -> m ()), MonadIO m) => O.MethodInfo IOExtensionPointSetRequiredTypeMethodInfo IOExtensionPoint signature where-    overloadedMethod _ = iOExtensionPointSetRequiredType--#endif---- method IOExtensionPoint::implement--- method type : MemberFunction--- Args : [Arg {argCName = "extension_point_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the extension point", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType to register as extension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extension_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name for the extension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the priority for the extension", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOExtension"}))--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_point_implement" g_io_extension_point_implement :: -    CString ->                              -- extension_point_name : TBasicType TUTF8-    CGType ->                               -- type : TBasicType TGType-    CString ->                              -- extension_name : TBasicType TUTF8-    Int32 ->                                -- priority : TBasicType TInt-    IO (Ptr Gio.IOExtension.IOExtension)--{- |-Registers /@type@/ as extension for the extension point with name-/@extensionPointName@/.--If /@type@/ has already been registered as an extension for this-extension point, the existing 'GI.Gio.Structs.IOExtension.IOExtension' object is returned.--}-iOExtensionPointImplement ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@extensionPointName@/: the name of the extension point -}-    -> GType-    {- ^ /@type@/: the 'GType' to register as extension -}-    -> T.Text-    {- ^ /@extensionName@/: the name for the extension -}-    -> Int32-    {- ^ /@priority@/: the priority for the extension -}-    -> m Gio.IOExtension.IOExtension-    {- ^ __Returns:__ a 'GI.Gio.Structs.IOExtension.IOExtension' object for 'GType' -}-iOExtensionPointImplement extensionPointName type_ extensionName priority = liftIO $ do-    extensionPointName' <- textToCString extensionPointName-    let type_' = gtypeToCGType type_-    extensionName' <- textToCString extensionName-    result <- g_io_extension_point_implement extensionPointName' type_' extensionName' priority-    checkUnexpectedReturnNULL "iOExtensionPointImplement" result-    result' <- (newPtr Gio.IOExtension.IOExtension) result-    freeMem extensionPointName'-    freeMem extensionName'-    return result'--#if ENABLE_OVERLOADING-#endif---- method IOExtensionPoint::lookup--- method type : MemberFunction--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the extension point", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"}))--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_point_lookup" g_io_extension_point_lookup :: -    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr IOExtensionPoint)--{- |-Looks up an existing extension point.--}-iOExtensionPointLookup ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@name@/: the name of the extension point -}-    -> m IOExtensionPoint-    {- ^ __Returns:__ the 'GI.Gio.Structs.IOExtensionPoint.IOExtensionPoint', or 'Nothing' if there-   is no registered extension point with the given name. -}-iOExtensionPointLookup name = liftIO $ do-    name' <- textToCString name-    result <- g_io_extension_point_lookup name'-    checkUnexpectedReturnNULL "iOExtensionPointLookup" result-    result' <- (newPtr IOExtensionPoint) result-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-#endif---- method IOExtensionPoint::register--- method type : MemberFunction--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The name of the extension point", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOExtensionPoint"}))--- throws : False--- Skip return : False--foreign import ccall "g_io_extension_point_register" g_io_extension_point_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr IOExtensionPoint)--{- |-Registers an extension point.--}-iOExtensionPointRegister ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@name@/: The name of the extension point -}-    -> m IOExtensionPoint-    {- ^ __Returns:__ the new 'GI.Gio.Structs.IOExtensionPoint.IOExtensionPoint'. This object is-   owned by GIO and should not be freed. -}-iOExtensionPointRegister name = liftIO $ do-    name' <- textToCString name-    result <- g_io_extension_point_register name'-    checkUnexpectedReturnNULL "iOExtensionPointRegister" result-    result' <- (newPtr IOExtensionPoint) result-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveIOExtensionPointMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOExtensionPointMethod "getExtensionByName" o = IOExtensionPointGetExtensionByNameMethodInfo-    ResolveIOExtensionPointMethod "getExtensions" o = IOExtensionPointGetExtensionsMethodInfo-    ResolveIOExtensionPointMethod "getRequiredType" o = IOExtensionPointGetRequiredTypeMethodInfo-    ResolveIOExtensionPointMethod "setRequiredType" o = IOExtensionPointSetRequiredTypeMethodInfo-    ResolveIOExtensionPointMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveIOExtensionPointMethod t IOExtensionPoint, O.MethodInfo info IOExtensionPoint p) => OL.IsLabel t (IOExtensionPoint -> 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--
− GI/Gio/Structs/IOExtensionPoint.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.IOExtensionPoint 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 IOExtensionPoint = IOExtensionPoint (ManagedPtr IOExtensionPoint)-instance WrappedPtr IOExtensionPoint where-#if ENABLE_OVERLOADING-data IOExtensionPointGetExtensionByNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOExtensionPointGetExtensionsMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOExtensionPointGetRequiredTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOExtensionPointSetRequiredTypeMethodInfo-#endif
− GI/Gio/Structs/IOModuleScope.hs 
@@ -1,181 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Represents a scope for loading IO modules. A scope can be used for blocking-duplicate modules, or blocking a module you don\'t want to load.--The scope can be used with @/g_io_modules_load_all_in_directory_with_scope()/@-or 'GI.Gio.Functions.ioModulesScanAllInDirectoryWithScope'.--/Since: 2.30/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.IOModuleScope-    ( ---- * Exported types-    IOModuleScope(..)                       ,-    noIOModuleScope                         ,--- -- * Methods--- ** block #method:block#--#if ENABLE_OVERLOADING-    IOModuleScopeBlockMethodInfo            ,-#endif-    iOModuleScopeBlock                      ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    IOModuleScopeFreeMethodInfo             ,-#endif-    iOModuleScopeFree                       ,-----    ) 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----- | Memory-managed wrapper type.-newtype IOModuleScope = IOModuleScope (ManagedPtr IOModuleScope)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr IOModuleScope where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing---- | A convenience alias for `Nothing` :: `Maybe` `IOModuleScope`.-noIOModuleScope :: Maybe IOModuleScope-noIOModuleScope = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList IOModuleScope-type instance O.AttributeList IOModuleScope = IOModuleScopeAttributeList-type IOModuleScopeAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method IOModuleScope::block--- method type : OrdinaryMethod--- Args : [Arg {argCName = "scope", argType = TInterface (Name {namespace = "Gio", name = "IOModuleScope"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a module loading scope", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "basename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the basename to block", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_module_scope_block" g_io_module_scope_block :: -    Ptr IOModuleScope ->                    -- scope : TInterface (Name {namespace = "Gio", name = "IOModuleScope"})-    CString ->                              -- basename : TBasicType TUTF8-    IO ()--{- |-Block modules with the given /@basename@/ from being loaded when-this scope is used with 'GI.Gio.Functions.ioModulesScanAllInDirectoryWithScope'-or @/g_io_modules_load_all_in_directory_with_scope()/@.--/Since: 2.30/--}-iOModuleScopeBlock ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOModuleScope-    {- ^ /@scope@/: a module loading scope -}-    -> T.Text-    {- ^ /@basename@/: the basename to block -}-    -> m ()-iOModuleScopeBlock scope basename = liftIO $ do-    scope' <- unsafeManagedPtrGetPtr scope-    basename' <- textToCString basename-    g_io_module_scope_block scope' basename'-    touchManagedPtr scope-    freeMem basename'-    return ()--#if ENABLE_OVERLOADING-data IOModuleScopeBlockMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo IOModuleScopeBlockMethodInfo IOModuleScope signature where-    overloadedMethod _ = iOModuleScopeBlock--#endif---- method IOModuleScope::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "scope", argType = TInterface (Name {namespace = "Gio", name = "IOModuleScope"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a module loading scope", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_module_scope_free" g_io_module_scope_free :: -    Ptr IOModuleScope ->                    -- scope : TInterface (Name {namespace = "Gio", name = "IOModuleScope"})-    IO ()--{- |-Free a module scope.--/Since: 2.30/--}-iOModuleScopeFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOModuleScope-    {- ^ /@scope@/: a module loading scope -}-    -> m ()-iOModuleScopeFree scope = liftIO $ do-    scope' <- unsafeManagedPtrGetPtr scope-    g_io_module_scope_free scope'-    touchManagedPtr scope-    return ()--#if ENABLE_OVERLOADING-data IOModuleScopeFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo IOModuleScopeFreeMethodInfo IOModuleScope signature where-    overloadedMethod _ = iOModuleScopeFree--#endif--#if ENABLE_OVERLOADING-type family ResolveIOModuleScopeMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOModuleScopeMethod "block" o = IOModuleScopeBlockMethodInfo-    ResolveIOModuleScopeMethod "free" o = IOModuleScopeFreeMethodInfo-    ResolveIOModuleScopeMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveIOModuleScopeMethod t IOModuleScope, O.MethodInfo info IOModuleScope p) => OL.IsLabel t (IOModuleScope -> 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--
− GI/Gio/Structs/IOModuleScope.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.IOModuleScope 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 IOModuleScope = IOModuleScope (ManagedPtr IOModuleScope)-instance WrappedPtr IOModuleScope where-#if ENABLE_OVERLOADING-data IOModuleScopeBlockMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOModuleScopeFreeMethodInfo-#endif
− GI/Gio/Structs/IOSchedulerJob.hs 
@@ -1,195 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Opaque class for defining and scheduling IO jobs.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.IOSchedulerJob-    ( ---- * Exported types-    IOSchedulerJob(..)                      ,-    noIOSchedulerJob                        ,--- -- * Methods--- ** sendToMainloop #method:sendToMainloop#--#if ENABLE_OVERLOADING-    IOSchedulerJobSendToMainloopMethodInfo  ,-#endif-    iOSchedulerJobSendToMainloop            ,----- ** sendToMainloopAsync #method:sendToMainloopAsync#--#if ENABLE_OVERLOADING-    IOSchedulerJobSendToMainloopAsyncMethodInfo,-#endif-    iOSchedulerJobSendToMainloopAsync       ,-----    ) 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.Callbacks as GLib.Callbacks---- | Memory-managed wrapper type.-newtype IOSchedulerJob = IOSchedulerJob (ManagedPtr IOSchedulerJob)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr IOSchedulerJob where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing---- | A convenience alias for `Nothing` :: `Maybe` `IOSchedulerJob`.-noIOSchedulerJob :: Maybe IOSchedulerJob-noIOSchedulerJob = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList IOSchedulerJob-type instance O.AttributeList IOSchedulerJob = IOSchedulerJobAttributeList-type IOSchedulerJobAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method IOSchedulerJob::send_to_mainloop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "job", argType = TInterface (Name {namespace = "Gio", name = "IOSchedulerJob"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOSchedulerJob", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "GLib", name = "SourceFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSourceFunc callback that will be called in the original thread", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify for @user_data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "g_io_scheduler_job_send_to_mainloop" g_io_scheduler_job_send_to_mainloop :: -    Ptr IOSchedulerJob ->                   -- job : TInterface (Name {namespace = "Gio", name = "IOSchedulerJob"})-    FunPtr GLib.Callbacks.C_SourceFunc ->   -- func : TInterface (Name {namespace = "GLib", name = "SourceFunc"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO CInt--{-# DEPRECATED iOSchedulerJobSendToMainloop ["Use @/g_main_context_invoke()/@."] #-}-{- |-Used from an I\/O job to send a callback to be run in the thread-that the job was started from, waiting for the result (and thus-blocking the I\/O job).--}-iOSchedulerJobSendToMainloop ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOSchedulerJob-    {- ^ /@job@/: a 'GI.Gio.Structs.IOSchedulerJob.IOSchedulerJob' -}-    -> GLib.Callbacks.SourceFunc-    {- ^ /@func@/: a 'GI.GLib.Callbacks.SourceFunc' callback that will be called in the original thread -}-    -> m Bool-    {- ^ __Returns:__ The return value of /@func@/ -}-iOSchedulerJobSendToMainloop job func = liftIO $ do-    job' <- unsafeManagedPtrGetPtr job-    func' <- GLib.Callbacks.mk_SourceFunc (GLib.Callbacks.wrap_SourceFunc Nothing (GLib.Callbacks.drop_closures_SourceFunc func))-    let userData = castFunPtrToPtr func'-    let notify = safeFreeFunPtrPtr-    result <- g_io_scheduler_job_send_to_mainloop job' func' userData notify-    let result' = (/= 0) result-    touchManagedPtr job-    return result'--#if ENABLE_OVERLOADING-data IOSchedulerJobSendToMainloopMethodInfo-instance (signature ~ (GLib.Callbacks.SourceFunc -> m Bool), MonadIO m) => O.MethodInfo IOSchedulerJobSendToMainloopMethodInfo IOSchedulerJob signature where-    overloadedMethod _ = iOSchedulerJobSendToMainloop--#endif---- method IOSchedulerJob::send_to_mainloop_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "job", argType = TInterface (Name {namespace = "Gio", name = "IOSchedulerJob"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOSchedulerJob", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "GLib", name = "SourceFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSourceFunc callback that will be called in the original thread", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify for @user_data, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_io_scheduler_job_send_to_mainloop_async" g_io_scheduler_job_send_to_mainloop_async :: -    Ptr IOSchedulerJob ->                   -- job : TInterface (Name {namespace = "Gio", name = "IOSchedulerJob"})-    FunPtr GLib.Callbacks.C_SourceFunc ->   -- func : TInterface (Name {namespace = "GLib", name = "SourceFunc"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{-# DEPRECATED iOSchedulerJobSendToMainloopAsync ["Use @/g_main_context_invoke()/@."] #-}-{- |-Used from an I\/O job to send a callback to be run asynchronously in-the thread that the job was started from. The callback will be run-when the main loop is available, but at that time the I\/O job might-have finished. The return value from the callback is ignored.--Note that if you are passing the /@userData@/ from 'GI.Gio.Functions.ioSchedulerPushJob'-on to this function you have to ensure that it is not freed before-/@func@/ is called, either by passing 'Nothing' as /@notify@/ to-'GI.Gio.Functions.ioSchedulerPushJob' or by using refcounting for /@userData@/.--}-iOSchedulerJobSendToMainloopAsync ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    IOSchedulerJob-    {- ^ /@job@/: a 'GI.Gio.Structs.IOSchedulerJob.IOSchedulerJob' -}-    -> GLib.Callbacks.SourceFunc-    {- ^ /@func@/: a 'GI.GLib.Callbacks.SourceFunc' callback that will be called in the original thread -}-    -> m ()-iOSchedulerJobSendToMainloopAsync job func = liftIO $ do-    job' <- unsafeManagedPtrGetPtr job-    func' <- GLib.Callbacks.mk_SourceFunc (GLib.Callbacks.wrap_SourceFunc Nothing (GLib.Callbacks.drop_closures_SourceFunc func))-    let userData = castFunPtrToPtr func'-    let notify = safeFreeFunPtrPtr-    g_io_scheduler_job_send_to_mainloop_async job' func' userData notify-    touchManagedPtr job-    return ()--#if ENABLE_OVERLOADING-data IOSchedulerJobSendToMainloopAsyncMethodInfo-instance (signature ~ (GLib.Callbacks.SourceFunc -> m ()), MonadIO m) => O.MethodInfo IOSchedulerJobSendToMainloopAsyncMethodInfo IOSchedulerJob signature where-    overloadedMethod _ = iOSchedulerJobSendToMainloopAsync--#endif--#if ENABLE_OVERLOADING-type family ResolveIOSchedulerJobMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOSchedulerJobMethod "sendToMainloop" o = IOSchedulerJobSendToMainloopMethodInfo-    ResolveIOSchedulerJobMethod "sendToMainloopAsync" o = IOSchedulerJobSendToMainloopAsyncMethodInfo-    ResolveIOSchedulerJobMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveIOSchedulerJobMethod t IOSchedulerJob, O.MethodInfo info IOSchedulerJob p) => OL.IsLabel t (IOSchedulerJob -> 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--
− GI/Gio/Structs/IOSchedulerJob.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.IOSchedulerJob 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 IOSchedulerJob = IOSchedulerJob (ManagedPtr IOSchedulerJob)-instance WrappedPtr IOSchedulerJob where-#if ENABLE_OVERLOADING-data IOSchedulerJobSendToMainloopMethodInfo-#endif-#if ENABLE_OVERLOADING-data IOSchedulerJobSendToMainloopAsyncMethodInfo-#endif
− GI/Gio/Structs/IOStreamAdapter.hs 
@@ -1,77 +0,0 @@---{- |-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.Gio.Structs.IOStreamAdapter-    ( ---- * Exported types-    IOStreamAdapter(..)                     ,-    noIOStreamAdapter                       ,---    ) 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----- | Memory-managed wrapper type.-newtype IOStreamAdapter = IOStreamAdapter (ManagedPtr IOStreamAdapter)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr IOStreamAdapter where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing---- | A convenience alias for `Nothing` :: `Maybe` `IOStreamAdapter`.-noIOStreamAdapter :: Maybe IOStreamAdapter-noIOStreamAdapter = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList IOStreamAdapter-type instance O.AttributeList IOStreamAdapter = IOStreamAdapterAttributeList-type IOStreamAdapterAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveIOStreamAdapterMethod (t :: Symbol) (o :: *) :: * where-    ResolveIOStreamAdapterMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveIOStreamAdapterMethod t IOStreamAdapter, O.MethodInfo info IOStreamAdapter p) => OL.IsLabel t (IOStreamAdapter -> 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--
− GI/Gio/Structs/IOStreamAdapter.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.IOStreamAdapter 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 IOStreamAdapter = IOStreamAdapter (ManagedPtr IOStreamAdapter)-instance WrappedPtr IOStreamAdapter where
− GI/Gio/Structs/InputMessage.hs 
@@ -1,409 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Structure used for scatter\/gather data input when receiving multiple-messages or packets in one go. You generally pass in an array of empty-@/GInputVectors/@ and the operation will use all the buffers as if they-were one buffer, and will set /@bytesReceived@/ to the total number of bytes-received across all @/GInputVectors/@.--This structure closely mirrors @struct mmsghdr@ and @struct msghdr@ from-the POSIX sockets API (see @man 2 recvmmsg@).--If /@address@/ is non-'Nothing' then it is set to the source address the message-was received from, and the caller must free it afterwards.--If /@controlMessages@/ is non-'Nothing' then it is set to an array of control-messages received with the message (if any), and the caller must free it-afterwards. /@numControlMessages@/ is set to the number of elements in-this array, which may be zero.--Flags relevant to this message will be returned in /@flags@/. For example,-@MSG_EOR@ or @MSG_TRUNC@.--/Since: 2.48/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.InputMessage-    ( ---- * Exported types-    InputMessage(..)                        ,-    newZeroInputMessage                     ,-    noInputMessage                          ,--- -- * Properties--- ** address #attr:address#-{- | return location-  for a 'GI.Gio.Objects.SocketAddress.SocketAddress', or 'Nothing'--}-    clearInputMessageAddress                ,-    getInputMessageAddress                  ,-#if ENABLE_OVERLOADING-    inputMessage_address                    ,-#endif-    setInputMessageAddress                  ,----- ** bytesReceived #attr:bytesReceived#-{- | will be set to the number of bytes that have been-  received--}-    getInputMessageBytesReceived            ,-#if ENABLE_OVERLOADING-    inputMessage_bytesReceived              ,-#endif-    setInputMessageBytesReceived            ,----- ** flags #attr:flags#-{- | collection of 'GI.Gio.Flags.SocketMsgFlags' for the received message,-  outputted by the call--}-    getInputMessageFlags                    ,-#if ENABLE_OVERLOADING-    inputMessage_flags                      ,-#endif-    setInputMessageFlags                    ,----- ** numControlMessages #attr:numControlMessages#-{- | return location for the number of-  elements in /@controlMessages@/--}-    getInputMessageNumControlMessages       ,-#if ENABLE_OVERLOADING-    inputMessage_numControlMessages         ,-#endif-    setInputMessageNumControlMessages       ,----- ** numVectors #attr:numVectors#-{- | the number of input vectors pointed to by /@vectors@/--}-    getInputMessageNumVectors               ,-#if ENABLE_OVERLOADING-    inputMessage_numVectors                 ,-#endif-    setInputMessageNumVectors               ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress---- | Memory-managed wrapper type.-newtype InputMessage = InputMessage (ManagedPtr InputMessage)-instance WrappedPtr InputMessage where-    wrappedPtrCalloc = callocBytes 56-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 56 >=> wrapPtr InputMessage)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `InputMessage` struct initialized to zero.-newZeroInputMessage :: MonadIO m => m InputMessage-newZeroInputMessage = liftIO $ wrappedPtrCalloc >>= wrapPtr InputMessage--instance tag ~ 'AttrSet => Constructible InputMessage tag where-    new _ attrs = do-        o <- newZeroInputMessage-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `InputMessage`.-noInputMessage :: Maybe InputMessage-noInputMessage = Nothing--{- |-Get the value of the “@address@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inputMessage #address-@--}-getInputMessageAddress :: MonadIO m => InputMessage -> m (Maybe Gio.SocketAddress.SocketAddress)-getInputMessageAddress s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gio.SocketAddress.SocketAddress)-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- (newObject Gio.SocketAddress.SocketAddress) val'-        return val''-    return result--{- |-Set the value of the “@address@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inputMessage [ #address 'Data.GI.Base.Attributes.:=' value ]-@--}-setInputMessageAddress :: MonadIO m => InputMessage -> Ptr Gio.SocketAddress.SocketAddress -> m ()-setInputMessageAddress s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr Gio.SocketAddress.SocketAddress)--{- |-Set the value of the “@address@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #address-@--}-clearInputMessageAddress :: MonadIO m => InputMessage -> m ()-clearInputMessageAddress s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr Gio.SocketAddress.SocketAddress)--#if ENABLE_OVERLOADING-data InputMessageAddressFieldInfo-instance AttrInfo InputMessageAddressFieldInfo where-    type AttrAllowedOps InputMessageAddressFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint InputMessageAddressFieldInfo = (~) (Ptr Gio.SocketAddress.SocketAddress)-    type AttrBaseTypeConstraint InputMessageAddressFieldInfo = (~) InputMessage-    type AttrGetType InputMessageAddressFieldInfo = Maybe Gio.SocketAddress.SocketAddress-    type AttrLabel InputMessageAddressFieldInfo = "address"-    type AttrOrigin InputMessageAddressFieldInfo = InputMessage-    attrGet _ = getInputMessageAddress-    attrSet _ = setInputMessageAddress-    attrConstruct = undefined-    attrClear _ = clearInputMessageAddress--inputMessage_address :: AttrLabelProxy "address"-inputMessage_address = AttrLabelProxy--#endif----- XXX Skipped attribute for "InputMessage:vectors" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 2 (TInterface (Name {namespace = \"Gio\", name = \"InputVector\"}))"-{- |-Get the value of the “@num_vectors@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inputMessage #numVectors-@--}-getInputMessageNumVectors :: MonadIO m => InputMessage -> m Word32-getInputMessageNumVectors s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Word32-    return val--{- |-Set the value of the “@num_vectors@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inputMessage [ #numVectors 'Data.GI.Base.Attributes.:=' value ]-@--}-setInputMessageNumVectors :: MonadIO m => InputMessage -> Word32 -> m ()-setInputMessageNumVectors s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Word32)--#if ENABLE_OVERLOADING-data InputMessageNumVectorsFieldInfo-instance AttrInfo InputMessageNumVectorsFieldInfo where-    type AttrAllowedOps InputMessageNumVectorsFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint InputMessageNumVectorsFieldInfo = (~) Word32-    type AttrBaseTypeConstraint InputMessageNumVectorsFieldInfo = (~) InputMessage-    type AttrGetType InputMessageNumVectorsFieldInfo = Word32-    type AttrLabel InputMessageNumVectorsFieldInfo = "num_vectors"-    type AttrOrigin InputMessageNumVectorsFieldInfo = InputMessage-    attrGet _ = getInputMessageNumVectors-    attrSet _ = setInputMessageNumVectors-    attrConstruct = undefined-    attrClear _ = undefined--inputMessage_numVectors :: AttrLabelProxy "numVectors"-inputMessage_numVectors = AttrLabelProxy--#endif---{- |-Get the value of the “@bytes_received@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inputMessage #bytesReceived-@--}-getInputMessageBytesReceived :: MonadIO m => InputMessage -> m Word64-getInputMessageBytesReceived s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Word64-    return val--{- |-Set the value of the “@bytes_received@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inputMessage [ #bytesReceived 'Data.GI.Base.Attributes.:=' value ]-@--}-setInputMessageBytesReceived :: MonadIO m => InputMessage -> Word64 -> m ()-setInputMessageBytesReceived s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Word64)--#if ENABLE_OVERLOADING-data InputMessageBytesReceivedFieldInfo-instance AttrInfo InputMessageBytesReceivedFieldInfo where-    type AttrAllowedOps InputMessageBytesReceivedFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint InputMessageBytesReceivedFieldInfo = (~) Word64-    type AttrBaseTypeConstraint InputMessageBytesReceivedFieldInfo = (~) InputMessage-    type AttrGetType InputMessageBytesReceivedFieldInfo = Word64-    type AttrLabel InputMessageBytesReceivedFieldInfo = "bytes_received"-    type AttrOrigin InputMessageBytesReceivedFieldInfo = InputMessage-    attrGet _ = getInputMessageBytesReceived-    attrSet _ = setInputMessageBytesReceived-    attrConstruct = undefined-    attrClear _ = undefined--inputMessage_bytesReceived :: AttrLabelProxy "bytesReceived"-inputMessage_bytesReceived = AttrLabelProxy--#endif---{- |-Get the value of the “@flags@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inputMessage #flags-@--}-getInputMessageFlags :: MonadIO m => InputMessage -> m Int32-getInputMessageFlags s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--{- |-Set the value of the “@flags@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inputMessage [ #flags 'Data.GI.Base.Attributes.:=' value ]-@--}-setInputMessageFlags :: MonadIO m => InputMessage -> Int32 -> m ()-setInputMessageFlags s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Int32)--#if ENABLE_OVERLOADING-data InputMessageFlagsFieldInfo-instance AttrInfo InputMessageFlagsFieldInfo where-    type AttrAllowedOps InputMessageFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint InputMessageFlagsFieldInfo = (~) Int32-    type AttrBaseTypeConstraint InputMessageFlagsFieldInfo = (~) InputMessage-    type AttrGetType InputMessageFlagsFieldInfo = Int32-    type AttrLabel InputMessageFlagsFieldInfo = "flags"-    type AttrOrigin InputMessageFlagsFieldInfo = InputMessage-    attrGet _ = getInputMessageFlags-    attrSet _ = setInputMessageFlags-    attrConstruct = undefined-    attrClear _ = undefined--inputMessage_flags :: AttrLabelProxy "flags"-inputMessage_flags = AttrLabelProxy--#endif----- XXX Skipped attribute for "InputMessage:control_messages" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 6 (TInterface (Name {namespace = \"Gio\", name = \"SocketControlMessage\"}))"-{- |-Get the value of the “@num_control_messages@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inputMessage #numControlMessages-@--}-getInputMessageNumControlMessages :: MonadIO m => InputMessage -> m Word32-getInputMessageNumControlMessages s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word32-    return val--{- |-Set the value of the “@num_control_messages@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inputMessage [ #numControlMessages 'Data.GI.Base.Attributes.:=' value ]-@--}-setInputMessageNumControlMessages :: MonadIO m => InputMessage -> Word32 -> m ()-setInputMessageNumControlMessages s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: Word32)--#if ENABLE_OVERLOADING-data InputMessageNumControlMessagesFieldInfo-instance AttrInfo InputMessageNumControlMessagesFieldInfo where-    type AttrAllowedOps InputMessageNumControlMessagesFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint InputMessageNumControlMessagesFieldInfo = (~) Word32-    type AttrBaseTypeConstraint InputMessageNumControlMessagesFieldInfo = (~) InputMessage-    type AttrGetType InputMessageNumControlMessagesFieldInfo = Word32-    type AttrLabel InputMessageNumControlMessagesFieldInfo = "num_control_messages"-    type AttrOrigin InputMessageNumControlMessagesFieldInfo = InputMessage-    attrGet _ = getInputMessageNumControlMessages-    attrSet _ = setInputMessageNumControlMessages-    attrConstruct = undefined-    attrClear _ = undefined--inputMessage_numControlMessages :: AttrLabelProxy "numControlMessages"-inputMessage_numControlMessages = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList InputMessage-type instance O.AttributeList InputMessage = InputMessageAttributeList-type InputMessageAttributeList = ('[ '("address", InputMessageAddressFieldInfo), '("numVectors", InputMessageNumVectorsFieldInfo), '("bytesReceived", InputMessageBytesReceivedFieldInfo), '("flags", InputMessageFlagsFieldInfo), '("numControlMessages", InputMessageNumControlMessagesFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveInputMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveInputMessageMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveInputMessageMethod t InputMessage, O.MethodInfo info InputMessage p) => OL.IsLabel t (InputMessage -> 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--
− GI/Gio/Structs/InputMessage.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.InputMessage 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 InputMessage = InputMessage (ManagedPtr InputMessage)-instance WrappedPtr InputMessage where
− GI/Gio/Structs/InputVector.hs 
@@ -1,219 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Structure used for scatter\/gather data input.-You generally pass in an array of @/GInputVectors/@-and the operation will store the read data starting in the-first buffer, switching to the next as needed.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.InputVector-    ( ---- * Exported types-    InputVector(..)                         ,-    newZeroInputVector                      ,-    noInputVector                           ,--- -- * Properties--- ** buffer #attr:buffer#-{- | Pointer to a buffer where data will be written.--}-    clearInputVectorBuffer                  ,-    getInputVectorBuffer                    ,-#if ENABLE_OVERLOADING-    inputVector_buffer                      ,-#endif-    setInputVectorBuffer                    ,----- ** size #attr:size#-{- | the available size in /@buffer@/.--}-    getInputVectorSize                      ,-#if ENABLE_OVERLOADING-    inputVector_size                        ,-#endif-    setInputVectorSize                      ,-----    ) 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----- | Memory-managed wrapper type.-newtype InputVector = InputVector (ManagedPtr InputVector)-instance WrappedPtr InputVector where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 16 >=> wrapPtr InputVector)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `InputVector` struct initialized to zero.-newZeroInputVector :: MonadIO m => m InputVector-newZeroInputVector = liftIO $ wrappedPtrCalloc >>= wrapPtr InputVector--instance tag ~ 'AttrSet => Constructible InputVector tag where-    new _ attrs = do-        o <- newZeroInputVector-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `InputVector`.-noInputVector :: Maybe InputVector-noInputVector = Nothing--{- |-Get the value of the “@buffer@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inputVector #buffer-@--}-getInputVectorBuffer :: MonadIO m => InputVector -> m (Ptr ())-getInputVectorBuffer s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--{- |-Set the value of the “@buffer@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inputVector [ #buffer 'Data.GI.Base.Attributes.:=' value ]-@--}-setInputVectorBuffer :: MonadIO m => InputVector -> Ptr () -> m ()-setInputVectorBuffer s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ())--{- |-Set the value of the “@buffer@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #buffer-@--}-clearInputVectorBuffer :: MonadIO m => InputVector -> m ()-clearInputVectorBuffer s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr ())--#if ENABLE_OVERLOADING-data InputVectorBufferFieldInfo-instance AttrInfo InputVectorBufferFieldInfo where-    type AttrAllowedOps InputVectorBufferFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint InputVectorBufferFieldInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint InputVectorBufferFieldInfo = (~) InputVector-    type AttrGetType InputVectorBufferFieldInfo = Ptr ()-    type AttrLabel InputVectorBufferFieldInfo = "buffer"-    type AttrOrigin InputVectorBufferFieldInfo = InputVector-    attrGet _ = getInputVectorBuffer-    attrSet _ = setInputVectorBuffer-    attrConstruct = undefined-    attrClear _ = clearInputVectorBuffer--inputVector_buffer :: AttrLabelProxy "buffer"-inputVector_buffer = AttrLabelProxy--#endif---{- |-Get the value of the “@size@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' inputVector #size-@--}-getInputVectorSize :: MonadIO m => InputVector -> m Word64-getInputVectorSize s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word64-    return val--{- |-Set the value of the “@size@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' inputVector [ #size 'Data.GI.Base.Attributes.:=' value ]-@--}-setInputVectorSize :: MonadIO m => InputVector -> Word64 -> m ()-setInputVectorSize s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Word64)--#if ENABLE_OVERLOADING-data InputVectorSizeFieldInfo-instance AttrInfo InputVectorSizeFieldInfo where-    type AttrAllowedOps InputVectorSizeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint InputVectorSizeFieldInfo = (~) Word64-    type AttrBaseTypeConstraint InputVectorSizeFieldInfo = (~) InputVector-    type AttrGetType InputVectorSizeFieldInfo = Word64-    type AttrLabel InputVectorSizeFieldInfo = "size"-    type AttrOrigin InputVectorSizeFieldInfo = InputVector-    attrGet _ = getInputVectorSize-    attrSet _ = setInputVectorSize-    attrConstruct = undefined-    attrClear _ = undefined--inputVector_size :: AttrLabelProxy "size"-inputVector_size = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList InputVector-type instance O.AttributeList InputVector = InputVectorAttributeList-type InputVectorAttributeList = ('[ '("buffer", InputVectorBufferFieldInfo), '("size", InputVectorSizeFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveInputVectorMethod (t :: Symbol) (o :: *) :: * where-    ResolveInputVectorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveInputVectorMethod t InputVector, O.MethodInfo info InputVector p) => OL.IsLabel t (InputVector -> 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--
− GI/Gio/Structs/InputVector.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.InputVector 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 InputVector = InputVector (ManagedPtr InputVector)-instance WrappedPtr InputVector where
− GI/Gio/Structs/NativeSocketAddress.hs 
@@ -1,77 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--An socket address of some unknown native type.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.NativeSocketAddress-    ( ---- * Exported types-    NativeSocketAddress(..)                 ,-    noNativeSocketAddress                   ,---    ) 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----- | Memory-managed wrapper type.-newtype NativeSocketAddress = NativeSocketAddress (ManagedPtr NativeSocketAddress)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr NativeSocketAddress where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing---- | A convenience alias for `Nothing` :: `Maybe` `NativeSocketAddress`.-noNativeSocketAddress :: Maybe NativeSocketAddress-noNativeSocketAddress = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList NativeSocketAddress-type instance O.AttributeList NativeSocketAddress = NativeSocketAddressAttributeList-type NativeSocketAddressAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveNativeSocketAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveNativeSocketAddressMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveNativeSocketAddressMethod t NativeSocketAddress, O.MethodInfo info NativeSocketAddress p) => OL.IsLabel t (NativeSocketAddress -> 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--
− GI/Gio/Structs/NativeSocketAddress.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.NativeSocketAddress 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 NativeSocketAddress = NativeSocketAddress (ManagedPtr NativeSocketAddress)-instance WrappedPtr NativeSocketAddress where
− GI/Gio/Structs/OutputMessage.hs 
@@ -1,410 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Structure used for scatter\/gather data output when sending multiple-messages or packets in one go. You generally pass in an array of-@/GOutputVectors/@ and the operation will use all the buffers as if they-were one buffer.--If /@address@/ is 'Nothing' then the message is sent to the default receiver-(as previously set by 'GI.Gio.Objects.Socket.socketConnect').--/Since: 2.44/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.OutputMessage-    ( ---- * Exported types-    OutputMessage(..)                       ,-    newZeroOutputMessage                    ,-    noOutputMessage                         ,--- -- * Properties--- ** address #attr:address#-{- | a 'GI.Gio.Objects.SocketAddress.SocketAddress', or 'Nothing'--}-    clearOutputMessageAddress               ,-    getOutputMessageAddress                 ,-#if ENABLE_OVERLOADING-    outputMessage_address                   ,-#endif-    setOutputMessageAddress                 ,----- ** bytesSent #attr:bytesSent#-{- | initialize to 0. Will be set to the number of bytes-    that have been sent--}-    getOutputMessageBytesSent               ,-#if ENABLE_OVERLOADING-    outputMessage_bytesSent                 ,-#endif-    setOutputMessageBytesSent               ,----- ** numControlMessages #attr:numControlMessages#-{- | number of elements in /@controlMessages@/.--}-    getOutputMessageNumControlMessages      ,-#if ENABLE_OVERLOADING-    outputMessage_numControlMessages        ,-#endif-    setOutputMessageNumControlMessages      ,----- ** numVectors #attr:numVectors#-{- | the number of output vectors pointed to by /@vectors@/.--}-    getOutputMessageNumVectors              ,-#if ENABLE_OVERLOADING-    outputMessage_numVectors                ,-#endif-    setOutputMessageNumVectors              ,----- ** vectors #attr:vectors#-{- | pointer to an array of output vectors--}-    clearOutputMessageVectors               ,-    getOutputMessageVectors                 ,-#if ENABLE_OVERLOADING-    outputMessage_vectors                   ,-#endif-    setOutputMessageVectors                 ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress-import {-# SOURCE #-} qualified GI.Gio.Structs.OutputVector as Gio.OutputVector---- | Memory-managed wrapper type.-newtype OutputMessage = OutputMessage (ManagedPtr OutputMessage)-instance WrappedPtr OutputMessage where-    wrappedPtrCalloc = callocBytes 40-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 40 >=> wrapPtr OutputMessage)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `OutputMessage` struct initialized to zero.-newZeroOutputMessage :: MonadIO m => m OutputMessage-newZeroOutputMessage = liftIO $ wrappedPtrCalloc >>= wrapPtr OutputMessage--instance tag ~ 'AttrSet => Constructible OutputMessage tag where-    new _ attrs = do-        o <- newZeroOutputMessage-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `OutputMessage`.-noOutputMessage :: Maybe OutputMessage-noOutputMessage = Nothing--{- |-Get the value of the “@address@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' outputMessage #address-@--}-getOutputMessageAddress :: MonadIO m => OutputMessage -> m (Maybe Gio.SocketAddress.SocketAddress)-getOutputMessageAddress s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Gio.SocketAddress.SocketAddress)-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- (newObject Gio.SocketAddress.SocketAddress) val'-        return val''-    return result--{- |-Set the value of the “@address@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' outputMessage [ #address 'Data.GI.Base.Attributes.:=' value ]-@--}-setOutputMessageAddress :: MonadIO m => OutputMessage -> Ptr Gio.SocketAddress.SocketAddress -> m ()-setOutputMessageAddress s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr Gio.SocketAddress.SocketAddress)--{- |-Set the value of the “@address@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #address-@--}-clearOutputMessageAddress :: MonadIO m => OutputMessage -> m ()-clearOutputMessageAddress s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr Gio.SocketAddress.SocketAddress)--#if ENABLE_OVERLOADING-data OutputMessageAddressFieldInfo-instance AttrInfo OutputMessageAddressFieldInfo where-    type AttrAllowedOps OutputMessageAddressFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint OutputMessageAddressFieldInfo = (~) (Ptr Gio.SocketAddress.SocketAddress)-    type AttrBaseTypeConstraint OutputMessageAddressFieldInfo = (~) OutputMessage-    type AttrGetType OutputMessageAddressFieldInfo = Maybe Gio.SocketAddress.SocketAddress-    type AttrLabel OutputMessageAddressFieldInfo = "address"-    type AttrOrigin OutputMessageAddressFieldInfo = OutputMessage-    attrGet _ = getOutputMessageAddress-    attrSet _ = setOutputMessageAddress-    attrConstruct = undefined-    attrClear _ = clearOutputMessageAddress--outputMessage_address :: AttrLabelProxy "address"-outputMessage_address = AttrLabelProxy--#endif---{- |-Get the value of the “@vectors@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' outputMessage #vectors-@--}-getOutputMessageVectors :: MonadIO m => OutputMessage -> m (Maybe Gio.OutputVector.OutputVector)-getOutputMessageVectors s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Gio.OutputVector.OutputVector)-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- (newPtr Gio.OutputVector.OutputVector) val'-        return val''-    return result--{- |-Set the value of the “@vectors@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' outputMessage [ #vectors 'Data.GI.Base.Attributes.:=' value ]-@--}-setOutputMessageVectors :: MonadIO m => OutputMessage -> Ptr Gio.OutputVector.OutputVector -> m ()-setOutputMessageVectors s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Gio.OutputVector.OutputVector)--{- |-Set the value of the “@vectors@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #vectors-@--}-clearOutputMessageVectors :: MonadIO m => OutputMessage -> m ()-clearOutputMessageVectors s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr Gio.OutputVector.OutputVector)--#if ENABLE_OVERLOADING-data OutputMessageVectorsFieldInfo-instance AttrInfo OutputMessageVectorsFieldInfo where-    type AttrAllowedOps OutputMessageVectorsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint OutputMessageVectorsFieldInfo = (~) (Ptr Gio.OutputVector.OutputVector)-    type AttrBaseTypeConstraint OutputMessageVectorsFieldInfo = (~) OutputMessage-    type AttrGetType OutputMessageVectorsFieldInfo = Maybe Gio.OutputVector.OutputVector-    type AttrLabel OutputMessageVectorsFieldInfo = "vectors"-    type AttrOrigin OutputMessageVectorsFieldInfo = OutputMessage-    attrGet _ = getOutputMessageVectors-    attrSet _ = setOutputMessageVectors-    attrConstruct = undefined-    attrClear _ = clearOutputMessageVectors--outputMessage_vectors :: AttrLabelProxy "vectors"-outputMessage_vectors = AttrLabelProxy--#endif---{- |-Get the value of the “@num_vectors@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' outputMessage #numVectors-@--}-getOutputMessageNumVectors :: MonadIO m => OutputMessage -> m Word32-getOutputMessageNumVectors s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Word32-    return val--{- |-Set the value of the “@num_vectors@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' outputMessage [ #numVectors 'Data.GI.Base.Attributes.:=' value ]-@--}-setOutputMessageNumVectors :: MonadIO m => OutputMessage -> Word32 -> m ()-setOutputMessageNumVectors s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Word32)--#if ENABLE_OVERLOADING-data OutputMessageNumVectorsFieldInfo-instance AttrInfo OutputMessageNumVectorsFieldInfo where-    type AttrAllowedOps OutputMessageNumVectorsFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint OutputMessageNumVectorsFieldInfo = (~) Word32-    type AttrBaseTypeConstraint OutputMessageNumVectorsFieldInfo = (~) OutputMessage-    type AttrGetType OutputMessageNumVectorsFieldInfo = Word32-    type AttrLabel OutputMessageNumVectorsFieldInfo = "num_vectors"-    type AttrOrigin OutputMessageNumVectorsFieldInfo = OutputMessage-    attrGet _ = getOutputMessageNumVectors-    attrSet _ = setOutputMessageNumVectors-    attrConstruct = undefined-    attrClear _ = undefined--outputMessage_numVectors :: AttrLabelProxy "numVectors"-outputMessage_numVectors = AttrLabelProxy--#endif---{- |-Get the value of the “@bytes_sent@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' outputMessage #bytesSent-@--}-getOutputMessageBytesSent :: MonadIO m => OutputMessage -> m Word32-getOutputMessageBytesSent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--{- |-Set the value of the “@bytes_sent@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' outputMessage [ #bytesSent 'Data.GI.Base.Attributes.:=' value ]-@--}-setOutputMessageBytesSent :: MonadIO m => OutputMessage -> Word32 -> m ()-setOutputMessageBytesSent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Word32)--#if ENABLE_OVERLOADING-data OutputMessageBytesSentFieldInfo-instance AttrInfo OutputMessageBytesSentFieldInfo where-    type AttrAllowedOps OutputMessageBytesSentFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint OutputMessageBytesSentFieldInfo = (~) Word32-    type AttrBaseTypeConstraint OutputMessageBytesSentFieldInfo = (~) OutputMessage-    type AttrGetType OutputMessageBytesSentFieldInfo = Word32-    type AttrLabel OutputMessageBytesSentFieldInfo = "bytes_sent"-    type AttrOrigin OutputMessageBytesSentFieldInfo = OutputMessage-    attrGet _ = getOutputMessageBytesSent-    attrSet _ = setOutputMessageBytesSent-    attrConstruct = undefined-    attrClear _ = undefined--outputMessage_bytesSent :: AttrLabelProxy "bytesSent"-outputMessage_bytesSent = AttrLabelProxy--#endif----- XXX Skipped attribute for "OutputMessage:control_messages" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 5 (TInterface (Name {namespace = \"Gio\", name = \"SocketControlMessage\"}))"-{- |-Get the value of the “@num_control_messages@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' outputMessage #numControlMessages-@--}-getOutputMessageNumControlMessages :: MonadIO m => OutputMessage -> m Word32-getOutputMessageNumControlMessages s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--{- |-Set the value of the “@num_control_messages@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' outputMessage [ #numControlMessages 'Data.GI.Base.Attributes.:=' value ]-@--}-setOutputMessageNumControlMessages :: MonadIO m => OutputMessage -> Word32 -> m ()-setOutputMessageNumControlMessages s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Word32)--#if ENABLE_OVERLOADING-data OutputMessageNumControlMessagesFieldInfo-instance AttrInfo OutputMessageNumControlMessagesFieldInfo where-    type AttrAllowedOps OutputMessageNumControlMessagesFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint OutputMessageNumControlMessagesFieldInfo = (~) Word32-    type AttrBaseTypeConstraint OutputMessageNumControlMessagesFieldInfo = (~) OutputMessage-    type AttrGetType OutputMessageNumControlMessagesFieldInfo = Word32-    type AttrLabel OutputMessageNumControlMessagesFieldInfo = "num_control_messages"-    type AttrOrigin OutputMessageNumControlMessagesFieldInfo = OutputMessage-    attrGet _ = getOutputMessageNumControlMessages-    attrSet _ = setOutputMessageNumControlMessages-    attrConstruct = undefined-    attrClear _ = undefined--outputMessage_numControlMessages :: AttrLabelProxy "numControlMessages"-outputMessage_numControlMessages = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList OutputMessage-type instance O.AttributeList OutputMessage = OutputMessageAttributeList-type OutputMessageAttributeList = ('[ '("address", OutputMessageAddressFieldInfo), '("vectors", OutputMessageVectorsFieldInfo), '("numVectors", OutputMessageNumVectorsFieldInfo), '("bytesSent", OutputMessageBytesSentFieldInfo), '("numControlMessages", OutputMessageNumControlMessagesFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveOutputMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveOutputMessageMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveOutputMessageMethod t OutputMessage, O.MethodInfo info OutputMessage p) => OL.IsLabel t (OutputMessage -> 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--
− GI/Gio/Structs/OutputMessage.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.OutputMessage 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 OutputMessage = OutputMessage (ManagedPtr OutputMessage)-instance WrappedPtr OutputMessage where
− GI/Gio/Structs/OutputVector.hs 
@@ -1,219 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Structure used for scatter\/gather data output.-You generally pass in an array of @/GOutputVectors/@-and the operation will use all the buffers as if they were-one buffer.--/Since: 2.22/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.OutputVector-    ( ---- * Exported types-    OutputVector(..)                        ,-    newZeroOutputVector                     ,-    noOutputVector                          ,--- -- * Properties--- ** buffer #attr:buffer#-{- | Pointer to a buffer of data to read.--}-    clearOutputVectorBuffer                 ,-    getOutputVectorBuffer                   ,-#if ENABLE_OVERLOADING-    outputVector_buffer                     ,-#endif-    setOutputVectorBuffer                   ,----- ** size #attr:size#-{- | the size of /@buffer@/.--}-    getOutputVectorSize                     ,-#if ENABLE_OVERLOADING-    outputVector_size                       ,-#endif-    setOutputVectorSize                     ,-----    ) 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----- | Memory-managed wrapper type.-newtype OutputVector = OutputVector (ManagedPtr OutputVector)-instance WrappedPtr OutputVector where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 16 >=> wrapPtr OutputVector)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `OutputVector` struct initialized to zero.-newZeroOutputVector :: MonadIO m => m OutputVector-newZeroOutputVector = liftIO $ wrappedPtrCalloc >>= wrapPtr OutputVector--instance tag ~ 'AttrSet => Constructible OutputVector tag where-    new _ attrs = do-        o <- newZeroOutputVector-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `OutputVector`.-noOutputVector :: Maybe OutputVector-noOutputVector = Nothing--{- |-Get the value of the “@buffer@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' outputVector #buffer-@--}-getOutputVectorBuffer :: MonadIO m => OutputVector -> m (Ptr ())-getOutputVectorBuffer s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--{- |-Set the value of the “@buffer@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' outputVector [ #buffer 'Data.GI.Base.Attributes.:=' value ]-@--}-setOutputVectorBuffer :: MonadIO m => OutputVector -> Ptr () -> m ()-setOutputVectorBuffer s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ())--{- |-Set the value of the “@buffer@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #buffer-@--}-clearOutputVectorBuffer :: MonadIO m => OutputVector -> m ()-clearOutputVectorBuffer s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr ())--#if ENABLE_OVERLOADING-data OutputVectorBufferFieldInfo-instance AttrInfo OutputVectorBufferFieldInfo where-    type AttrAllowedOps OutputVectorBufferFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint OutputVectorBufferFieldInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint OutputVectorBufferFieldInfo = (~) OutputVector-    type AttrGetType OutputVectorBufferFieldInfo = Ptr ()-    type AttrLabel OutputVectorBufferFieldInfo = "buffer"-    type AttrOrigin OutputVectorBufferFieldInfo = OutputVector-    attrGet _ = getOutputVectorBuffer-    attrSet _ = setOutputVectorBuffer-    attrConstruct = undefined-    attrClear _ = clearOutputVectorBuffer--outputVector_buffer :: AttrLabelProxy "buffer"-outputVector_buffer = AttrLabelProxy--#endif---{- |-Get the value of the “@size@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' outputVector #size-@--}-getOutputVectorSize :: MonadIO m => OutputVector -> m Word64-getOutputVectorSize s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word64-    return val--{- |-Set the value of the “@size@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' outputVector [ #size 'Data.GI.Base.Attributes.:=' value ]-@--}-setOutputVectorSize :: MonadIO m => OutputVector -> Word64 -> m ()-setOutputVectorSize s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Word64)--#if ENABLE_OVERLOADING-data OutputVectorSizeFieldInfo-instance AttrInfo OutputVectorSizeFieldInfo where-    type AttrAllowedOps OutputVectorSizeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint OutputVectorSizeFieldInfo = (~) Word64-    type AttrBaseTypeConstraint OutputVectorSizeFieldInfo = (~) OutputVector-    type AttrGetType OutputVectorSizeFieldInfo = Word64-    type AttrLabel OutputVectorSizeFieldInfo = "size"-    type AttrOrigin OutputVectorSizeFieldInfo = OutputVector-    attrGet _ = getOutputVectorSize-    attrSet _ = setOutputVectorSize-    attrConstruct = undefined-    attrClear _ = undefined--outputVector_size :: AttrLabelProxy "size"-outputVector_size = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList OutputVector-type instance O.AttributeList OutputVector = OutputVectorAttributeList-type OutputVectorAttributeList = ('[ '("buffer", OutputVectorBufferFieldInfo), '("size", OutputVectorSizeFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveOutputVectorMethod (t :: Symbol) (o :: *) :: * where-    ResolveOutputVectorMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveOutputVectorMethod t OutputVector, O.MethodInfo info OutputVector p) => OL.IsLabel t (OutputVector -> 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--
− GI/Gio/Structs/OutputVector.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.OutputVector 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 OutputVector = OutputVector (ManagedPtr OutputVector)-instance WrappedPtr OutputVector where
− GI/Gio/Structs/Resource.hs 
@@ -1,694 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Applications and libraries often contain binary or textual data that is-really part of the application, rather than user data. For instance-@/GtkBuilder/@ .ui files, splashscreen images, GMenu markup XML, CSS files,-icons, etc. These are often shipped as files in @$datadir\/appname@, or-manually included as literal strings in the code.--The 'GI.Gio.Structs.Resource.Resource' API and the [glib-compile-resources][glib-compile-resources] program-provide a convenient and efficient alternative to this which has some nice properties. You-maintain the files as normal files, so its easy to edit them, but during the build the files-are combined into a binary bundle that is linked into the executable. This means that loading-the resource files are efficient (as they are already in memory, shared with other instances) and-simple (no need to check for things like I\/O errors or locate the files in the filesystem). It-also makes it easier to create relocatable applications.--Resource files can also be marked as compressed. Such files will be included in the resource bundle-in a compressed form, but will be automatically uncompressed when the resource is used. This-is very useful e.g. for larger text files that are parsed once (or rarely) and then thrown away.--Resource files can also be marked to be preprocessed, by setting the value of the-@preprocess@ attribute to a comma-separated list of preprocessing options.-The only options currently supported are:--@xml-stripblanks@ which will use the xmllint command-to strip ignorable whitespace from the XML file. For this to work,-the @XMLLINT@ environment variable must be set to the full path to-the xmllint executable, or xmllint must be in the @PATH@; otherwise-the preprocessing step is skipped.--@to-pixdata@ which will use the gdk-pixbuf-pixdata command to convert-images to the GdkPixdata format, which allows you to create pixbufs directly using the data inside-the resource file, rather than an (uncompressed) copy if it. For this, the gdk-pixbuf-pixdata-program must be in the PATH, or the @GDK_PIXBUF_PIXDATA@ environment variable must be-set to the full path to the gdk-pixbuf-pixdata executable; otherwise the resource compiler will-abort.--Resource files will be exported in the GResource namespace using the-combination of the given @prefix@ and the filename from the @file@ element.-The @alias@ attribute can be used to alter the filename to expose them at a-different location in the resource namespace. Typically, this is used to-include files from a different source directory without exposing the source-directory in the resource namespace, as in the example below.--Resource bundles are created by the [glib-compile-resources][glib-compile-resources] program-which takes an XML file that describes the bundle, and a set of files that the XML references. These-are combined into a binary resource bundle.--An example resource description:->-><?xml version="1.0" encoding="UTF-8"?>-><gresources>->  <gresource prefix="/org/gtk/Example">->    <file>data/splashscreen.png</file>->    <file compressed="true">dialog.ui</file>->    <file preprocess="xml-stripblanks">menumarkup.xml</file>->    <file alias="example.css">data/example.css</file>->  </gresource>-></gresources>---This will create a resource bundle with the following files:->->/org/gtk/Example/data/splashscreen.png->/org/gtk/Example/dialog.ui->/org/gtk/Example/menumarkup.xml->/org/gtk/Example/example.css---Note that all resources in the process share the same namespace, so use Java-style-path prefixes (like in the above example) to avoid conflicts.--You can then use [glib-compile-resources][glib-compile-resources] to compile the XML to a-binary bundle that you can load with 'GI.Gio.Functions.resourceLoad'. However, its more common to use the --generate-source and---generate-header arguments to create a source file and header to link directly into your application.-This will generate @get_resource()@, @register_resource()@ and-@unregister_resource()@ functions, prefixed by the @--c-name@ argument passed-to [glib-compile-resources][glib-compile-resources]. @get_resource()@ returns-the generated 'GI.Gio.Structs.Resource.Resource' object. The register and unregister functions-register the resource so its files can be accessed using-'GI.Gio.Functions.resourcesLookupData'.--Once a 'GI.Gio.Structs.Resource.Resource' has been created and registered all the data in it can be accessed globally in the process by-using API calls like 'GI.Gio.Functions.resourcesOpenStream' to stream the data or 'GI.Gio.Functions.resourcesLookupData' to get a direct pointer-to the data. You can also use URIs like \"resource:\/\/\/org\/gtk\/Example\/data\/splashscreen.png\" with 'GI.Gio.Interfaces.File.File' to access-the resource data.--Some higher-level APIs, such as @/GtkApplication/@, will automatically load-resources from certain well-known paths in the resource namespace as a-convenience. See the documentation for those APIs for details.--There are two forms of the generated source, the default version uses the compiler support for constructor-and destructor functions (where available) to automatically create and register the 'GI.Gio.Structs.Resource.Resource' on startup-or library load time. If you pass @--manual-register@, two functions to register\/unregister the resource are created-instead. This requires an explicit initialization call in your application\/library, but it works on all platforms,-even on the minor ones where constructors are not supported. (Constructor support is available for at least Win32, Mac OS and Linux.)--Note that resource data can point directly into the data segment of e.g. a library, so if you are unloading libraries-during runtime you need to be very careful with keeping around pointers to data from a resource, as this goes away-when the library is unloaded. However, in practice this is not generally a problem, since most resource accesses-are for your own resources, and resource data is often used once, during parsing, and then released.--When debugging a program or testing a change to an installed version, it is often useful to be able to-replace resources in the program or library, without recompiling, for debugging or quick hacking and testing-purposes. Since GLib 2.50, it is possible to use the @G_RESOURCE_OVERLAYS@ environment variable to selectively overlay-resources with replacements from the filesystem.  It is a 'GI.GLib.Constants.SEARCHPATH_SEPARATOR'-separated list of substitutions to perform-during resource lookups.--A substitution has the form-->->   /org/gtk/libgtk=/home/desrt/gtk-overlay---The part before the @=@ is the resource subpath for which the overlay applies.  The part after is a-filesystem path which contains files and subdirectories as you would like to be loaded as resources with the-equivalent names.--In the example above, if an application tried to load a resource with the resource path-@\/org\/gtk\/libgtk\/ui\/gtkdialog.ui@ then GResource would check the filesystem path-@\/home\/desrt\/gtk-overlay\/ui\/gtkdialog.ui@.  If a file was found there, it would be used instead.  This is an-overlay, not an outright replacement, which means that if a file is not found at that path, the built-in-version will be used instead.  Whiteouts are not currently supported.--Substitutions must start with a slash, and must not contain a trailing slash before the \'=\'.  The path after-the slash should ideally be absolute, but this is not strictly required.  It is possible to overlay the-location of a single resource with an individual file.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.Resource-    ( ---- * Exported types-    Resource(..)                            ,-    noResource                              ,--- -- * Methods--- ** enumerateChildren #method:enumerateChildren#--#if ENABLE_OVERLOADING-    ResourceEnumerateChildrenMethodInfo     ,-#endif-    resourceEnumerateChildren               ,----- ** getInfo #method:getInfo#--#if ENABLE_OVERLOADING-    ResourceGetInfoMethodInfo               ,-#endif-    resourceGetInfo                         ,----- ** load #method:load#--    resourceLoad                            ,----- ** lookupData #method:lookupData#--#if ENABLE_OVERLOADING-    ResourceLookupDataMethodInfo            ,-#endif-    resourceLookupData                      ,----- ** newFromData #method:newFromData#--    resourceNewFromData                     ,----- ** openStream #method:openStream#--#if ENABLE_OVERLOADING-    ResourceOpenStreamMethodInfo            ,-#endif-    resourceOpenStream                      ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    ResourceRefMethodInfo                   ,-#endif-    resourceRef                             ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    ResourceUnrefMethodInfo                 ,-#endif-    resourceUnref                           ,-----    ) 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.Bytes as GLib.Bytes-import {-# SOURCE #-} qualified GI.Gio.Flags as Gio.Flags-import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream---- | Memory-managed wrapper type.-newtype Resource = Resource (ManagedPtr Resource)-foreign import ccall "g_resource_get_type" c_g_resource_get_type :: -    IO GType--instance BoxedObject Resource where-    boxedType _ = c_g_resource_get_type---- | A convenience alias for `Nothing` :: `Maybe` `Resource`.-noResource :: Maybe Resource-noResource = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList Resource-type instance O.AttributeList Resource = ResourceAttributeList-type ResourceAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method Resource::new_from_data--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TInterface (Name {namespace = "GLib", name = "Bytes"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GBytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Resource"}))--- throws : True--- Skip return : False--foreign import ccall "g_resource_new_from_data" g_resource_new_from_data :: -    Ptr GLib.Bytes.Bytes ->                 -- data : TInterface (Name {namespace = "GLib", name = "Bytes"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Resource)--{- |-Creates a GResource from a reference to the binary resource bundle.-This will keep a reference to /@data@/ while the resource lives, so-the data should not be modified or freed.--If you want to use this resource in the global resource namespace you need-to register it with 'GI.Gio.Functions.resourcesRegister'.--Note: /@data@/ must be backed by memory that is at least pointer aligned.-Otherwise this function will internally create a copy of the memory since-GLib 2.56, or in older versions fail and exit the process.--If /@data@/ is empty or corrupt, 'GI.Gio.Enums.ResourceErrorInternal' will be returned.--/Since: 2.32/--}-resourceNewFromData ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GLib.Bytes.Bytes-    {- ^ /@data@/: A 'GI.GLib.Structs.Bytes.Bytes' -}-    -> m Resource-    {- ^ __Returns:__ a new 'GI.Gio.Structs.Resource.Resource', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourceNewFromData data_ = liftIO $ do-    data_' <- unsafeManagedPtrGetPtr data_-    onException (do-        result <- propagateGError $ g_resource_new_from_data data_'-        checkUnexpectedReturnNULL "resourceNewFromData" result-        result' <- (wrapBoxed Resource) result-        touchManagedPtr data_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-#endif---- method Resource::enumerate_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "Gio", name = "Resource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResource", 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 "A pathname inside the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResourceLookupFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : True--- Skip return : False--foreign import ccall "g_resource_enumerate_children" g_resource_enumerate_children :: -    Ptr Resource ->                         -- resource : TInterface (Name {namespace = "Gio", name = "Resource"})-    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr CString)--{- |-Returns all the names of children at the specified /@path@/ in the resource.-The return result is a 'Nothing' terminated list of strings which should-be released with 'GI.GLib.Functions.strfreev'.--If /@path@/ is invalid or does not exist in the 'GI.Gio.Structs.Resource.Resource',-'GI.Gio.Enums.ResourceErrorNotFound' will be returned.--/@lookupFlags@/ controls the behaviour of the lookup.--/Since: 2.32/--}-resourceEnumerateChildren ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Resource-    {- ^ /@resource@/: A 'GI.Gio.Structs.Resource.Resource' -}-    -> T.Text-    {- ^ /@path@/: A pathname inside the resource -}-    -> [Gio.Flags.ResourceLookupFlags]-    {- ^ /@lookupFlags@/: A 'GI.Gio.Flags.ResourceLookupFlags' -}-    -> m [T.Text]-    {- ^ __Returns:__ an array of constant strings /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourceEnumerateChildren resource path lookupFlags = liftIO $ do-    resource' <- unsafeManagedPtrGetPtr resource-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resource_enumerate_children resource' path' lookupFlags'-        checkUnexpectedReturnNULL "resourceEnumerateChildren" result-        result' <- unpackZeroTerminatedUTF8CArray result-        mapZeroTerminatedCArray freeMem result-        freeMem result-        touchManagedPtr resource-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )--#if ENABLE_OVERLOADING-data ResourceEnumerateChildrenMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.ResourceLookupFlags] -> m [T.Text]), MonadIO m) => O.MethodInfo ResourceEnumerateChildrenMethodInfo Resource signature where-    overloadedMethod _ = resourceEnumerateChildren--#endif---- method Resource::get_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "Gio", name = "Resource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResource", 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 "A pathname inside the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResourceLookupFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the length of the contents of the file,\n   or %NULL if the length is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a location to place the flags about the file,\n   or %NULL if the length is not needed", 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 "g_resource_get_info" g_resource_get_info :: -    Ptr Resource ->                         -- resource : TInterface (Name {namespace = "Gio", name = "Resource"})-    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"})-    Ptr Word64 ->                           -- size : TBasicType TUInt64-    Ptr Word32 ->                           -- flags : TBasicType TUInt32-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Looks for a file at the specified /@path@/ in the resource and-if found returns information about it.--/@lookupFlags@/ controls the behaviour of the lookup.--/Since: 2.32/--}-resourceGetInfo ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Resource-    {- ^ /@resource@/: A 'GI.Gio.Structs.Resource.Resource' -}-    -> T.Text-    {- ^ /@path@/: A pathname inside the resource -}-    -> [Gio.Flags.ResourceLookupFlags]-    {- ^ /@lookupFlags@/: A 'GI.Gio.Flags.ResourceLookupFlags' -}-    -> m ((Word64, Word32))-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourceGetInfo resource path lookupFlags = liftIO $ do-    resource' <- unsafeManagedPtrGetPtr resource-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    size <- allocMem :: IO (Ptr Word64)-    flags <- allocMem :: IO (Ptr Word32)-    onException (do-        _ <- propagateGError $ g_resource_get_info resource' path' lookupFlags' size flags-        size' <- peek size-        flags' <- peek flags-        touchManagedPtr resource-        freeMem path'-        freeMem size-        freeMem flags-        return (size', flags')-     ) (do-        freeMem path'-        freeMem size-        freeMem flags-     )--#if ENABLE_OVERLOADING-data ResourceGetInfoMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.ResourceLookupFlags] -> m ((Word64, Word32))), MonadIO m) => O.MethodInfo ResourceGetInfoMethodInfo Resource signature where-    overloadedMethod _ = resourceGetInfo--#endif---- method Resource::lookup_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "Gio", name = "Resource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResource", 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 "A pathname inside the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResourceLookupFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : True--- Skip return : False--foreign import ccall "g_resource_lookup_data" g_resource_lookup_data :: -    Ptr Resource ->                         -- resource : TInterface (Name {namespace = "Gio", name = "Resource"})-    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLib.Bytes.Bytes)--{- |-Looks for a file at the specified /@path@/ in the resource and-returns a 'GI.GLib.Structs.Bytes.Bytes' that lets you directly access the data in-memory.--The data is always followed by a zero byte, so you-can safely use the data as a C string. However, that byte-is not included in the size of the GBytes.--For uncompressed resource files this is a pointer directly into-the resource bundle, which is typically in some readonly data section-in the program binary. For compressed files we allocate memory on-the heap and automatically uncompress the data.--/@lookupFlags@/ controls the behaviour of the lookup.--/Since: 2.32/--}-resourceLookupData ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Resource-    {- ^ /@resource@/: A 'GI.Gio.Structs.Resource.Resource' -}-    -> T.Text-    {- ^ /@path@/: A pathname inside the resource -}-    -> [Gio.Flags.ResourceLookupFlags]-    {- ^ /@lookupFlags@/: A 'GI.Gio.Flags.ResourceLookupFlags' -}-    -> m GLib.Bytes.Bytes-    {- ^ __Returns:__ 'GI.GLib.Structs.Bytes.Bytes' or 'Nothing' on error.-    Free the returned object with 'GI.GLib.Structs.Bytes.bytesUnref' /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourceLookupData resource path lookupFlags = liftIO $ do-    resource' <- unsafeManagedPtrGetPtr resource-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resource_lookup_data resource' path' lookupFlags'-        checkUnexpectedReturnNULL "resourceLookupData" result-        result' <- (wrapBoxed GLib.Bytes.Bytes) result-        touchManagedPtr resource-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )--#if ENABLE_OVERLOADING-data ResourceLookupDataMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.ResourceLookupFlags] -> m GLib.Bytes.Bytes), MonadIO m) => O.MethodInfo ResourceLookupDataMethodInfo Resource signature where-    overloadedMethod _ = resourceLookupData--#endif---- method Resource::open_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "Gio", name = "Resource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResource", 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 "A pathname inside the resource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResourceLookupFlags", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "g_resource_open_stream" g_resource_open_stream :: -    Ptr Resource ->                         -- resource : TInterface (Name {namespace = "Gio", name = "Resource"})-    CString ->                              -- path : TBasicType TUTF8-    CUInt ->                                -- lookup_flags : TInterface (Name {namespace = "Gio", name = "ResourceLookupFlags"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Looks for a file at the specified /@path@/ in the resource and-returns a 'GI.Gio.Objects.InputStream.InputStream' that lets you read the data.--/@lookupFlags@/ controls the behaviour of the lookup.--/Since: 2.32/--}-resourceOpenStream ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Resource-    {- ^ /@resource@/: A 'GI.Gio.Structs.Resource.Resource' -}-    -> T.Text-    {- ^ /@path@/: A pathname inside the resource -}-    -> [Gio.Flags.ResourceLookupFlags]-    {- ^ /@lookupFlags@/: A 'GI.Gio.Flags.ResourceLookupFlags' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ 'GI.Gio.Objects.InputStream.InputStream' or 'Nothing' on error.-    Free the returned object with 'GI.GObject.Objects.Object.objectUnref' /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourceOpenStream resource path lookupFlags = liftIO $ do-    resource' <- unsafeManagedPtrGetPtr resource-    path' <- textToCString path-    let lookupFlags' = gflagsToWord lookupFlags-    onException (do-        result <- propagateGError $ g_resource_open_stream resource' path' lookupFlags'-        checkUnexpectedReturnNULL "resourceOpenStream" result-        result' <- (wrapObject Gio.InputStream.InputStream) result-        touchManagedPtr resource-        freeMem path'-        return result'-     ) (do-        freeMem path'-     )--#if ENABLE_OVERLOADING-data ResourceOpenStreamMethodInfo-instance (signature ~ (T.Text -> [Gio.Flags.ResourceLookupFlags] -> m Gio.InputStream.InputStream), MonadIO m) => O.MethodInfo ResourceOpenStreamMethodInfo Resource signature where-    overloadedMethod _ = resourceOpenStream--#endif---- method Resource::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "Gio", name = "Resource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Resource"}))--- throws : False--- Skip return : False--foreign import ccall "g_resource_ref" g_resource_ref :: -    Ptr Resource ->                         -- resource : TInterface (Name {namespace = "Gio", name = "Resource"})-    IO (Ptr Resource)--{- |-Atomically increments the reference count of /@resource@/ by one. This-function is MT-safe and may be called from any thread.--/Since: 2.32/--}-resourceRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Resource-    {- ^ /@resource@/: A 'GI.Gio.Structs.Resource.Resource' -}-    -> m Resource-    {- ^ __Returns:__ The passed in 'GI.Gio.Structs.Resource.Resource' -}-resourceRef resource = liftIO $ do-    resource' <- unsafeManagedPtrGetPtr resource-    result <- g_resource_ref resource'-    checkUnexpectedReturnNULL "resourceRef" result-    result' <- (wrapBoxed Resource) result-    touchManagedPtr resource-    return result'--#if ENABLE_OVERLOADING-data ResourceRefMethodInfo-instance (signature ~ (m Resource), MonadIO m) => O.MethodInfo ResourceRefMethodInfo Resource signature where-    overloadedMethod _ = resourceRef--#endif---- method Resource::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "resource", argType = TInterface (Name {namespace = "Gio", name = "Resource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_resource_unref" g_resource_unref :: -    Ptr Resource ->                         -- resource : TInterface (Name {namespace = "Gio", name = "Resource"})-    IO ()--{- |-Atomically decrements the reference count of /@resource@/ by one. If the-reference count drops to 0, all memory allocated by the resource is-released. This function is MT-safe and may be called from any-thread.--/Since: 2.32/--}-resourceUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Resource-    {- ^ /@resource@/: A 'GI.Gio.Structs.Resource.Resource' -}-    -> m ()-resourceUnref resource = liftIO $ do-    resource' <- unsafeManagedPtrGetPtr resource-    g_resource_unref resource'-    touchManagedPtr resource-    return ()--#if ENABLE_OVERLOADING-data ResourceUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo ResourceUnrefMethodInfo Resource signature where-    overloadedMethod _ = resourceUnref--#endif---- method Resource::load--- method type : MemberFunction--- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path of a filename to load, in the GLib filename encoding", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Resource"}))--- throws : True--- Skip return : False--foreign import ccall "g_resource_load" g_resource_load :: -    CString ->                              -- filename : TBasicType TFileName-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Resource)--{- |-Loads a binary resource bundle and creates a 'GI.Gio.Structs.Resource.Resource' representation of it, allowing-you to query it for data.--If you want to use this resource in the global resource namespace you need-to register it with 'GI.Gio.Functions.resourcesRegister'.--If /@filename@/ is empty or the data in it is corrupt,-'GI.Gio.Enums.ResourceErrorInternal' will be returned. If /@filename@/ doesn’t exist, or-there is an error in reading it, an error from 'GI.GLib.Structs.MappedFile.mappedFileNew' will be-returned.--/Since: 2.32/--}-resourceLoad ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@filename@/: the path of a filename to load, in the GLib filename encoding -}-    -> m Resource-    {- ^ __Returns:__ a new 'GI.Gio.Structs.Resource.Resource', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -}-resourceLoad filename = liftIO $ do-    filename' <- stringToCString filename-    onException (do-        result <- propagateGError $ g_resource_load filename'-        checkUnexpectedReturnNULL "resourceLoad" result-        result' <- (wrapBoxed Resource) result-        freeMem filename'-        return result'-     ) (do-        freeMem filename'-     )--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveResourceMethod (t :: Symbol) (o :: *) :: * where-    ResolveResourceMethod "enumerateChildren" o = ResourceEnumerateChildrenMethodInfo-    ResolveResourceMethod "lookupData" o = ResourceLookupDataMethodInfo-    ResolveResourceMethod "openStream" o = ResourceOpenStreamMethodInfo-    ResolveResourceMethod "ref" o = ResourceRefMethodInfo-    ResolveResourceMethod "unref" o = ResourceUnrefMethodInfo-    ResolveResourceMethod "getInfo" o = ResourceGetInfoMethodInfo-    ResolveResourceMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveResourceMethod t Resource, O.MethodInfo info Resource p) => OL.IsLabel t (Resource -> 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--
− GI/Gio/Structs/Resource.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.Resource 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 Resource = Resource (ManagedPtr Resource)-instance BoxedObject Resource where-#if ENABLE_OVERLOADING-data ResourceEnumerateChildrenMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResourceGetInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResourceLookupDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResourceOpenStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResourceRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data ResourceUnrefMethodInfo-#endif
− GI/Gio/Structs/SettingsSchema.hs 
@@ -1,579 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The 'GI.Gio.Structs.SettingsSchemaSource.SettingsSchemaSource' and 'GI.Gio.Structs.SettingsSchema.SettingsSchema' APIs provide a-mechanism for advanced control over the loading of schemas and a-mechanism for introspecting their content.--Plugin loading systems that wish to provide plugins a way to access-settings face the problem of how to make the schemas for these-settings visible to GSettings.  Typically, a plugin will want to ship-the schema along with itself and it won\'t be installed into the-standard system directories for schemas.--'GI.Gio.Structs.SettingsSchemaSource.SettingsSchemaSource' provides a mechanism for dealing with this by-allowing the creation of a new \'schema source\' from which schemas can-be acquired.  This schema source can then become part of the metadata-associated with the plugin and queried whenever the plugin requires-access to some settings.--Consider the following example:---=== /C code/->->typedef struct->{->   ...->   GSettingsSchemaSource *schema_source;->   ...->} Plugin;->->Plugin *->initialise_plugin (const gchar *dir)->{->  Plugin *plugin;->->  ...->->  plugin->schema_source =->    g_settings_schema_source_new_from_directory (dir,->      g_settings_schema_source_get_default (), FALSE, NULL);->->  ...->->  return plugin;->}->->...->->GSettings *->plugin_get_settings (Plugin      *plugin,->                     const gchar *schema_id)->{->  GSettingsSchema *schema;->->  if (schema_id == NULL)->    schema_id = plugin->identifier;->->  schema = g_settings_schema_source_lookup (plugin->schema_source,->                                            schema_id, FALSE);->->  if (schema == NULL)->    {->      ... disable the plugin or abort, etc ...->    }->->  return g_settings_new_full (schema, NULL, NULL);->}---The code above shows how hooks should be added to the code that-initialises (or enables) the plugin to create the schema source and-how an API can be added to the plugin system to provide a convenient-way for the plugin to access its settings, using the schemas that it-ships.--From the standpoint of the plugin, it would need to ensure that it-ships a gschemas.compiled file as part of itself, and then simply do-the following:---=== /C code/->->{->  GSettings *settings;->  gint some_value;->->  settings = plugin_get_settings (self, NULL);->  some_value = g_settings_get_int (settings, "some-value");->  ...->}---It\'s also possible that the plugin system expects the schema source-files (ie: .gschema.xml files) instead of a gschemas.compiled file.-In that case, the plugin loading system must compile the schemas for-itself before attempting to create the settings source.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.SettingsSchema-    ( ---- * Exported types-    SettingsSchema(..)                      ,-    noSettingsSchema                        ,--- -- * Methods--- ** getId #method:getId#--#if ENABLE_OVERLOADING-    SettingsSchemaGetIdMethodInfo           ,-#endif-    settingsSchemaGetId                     ,----- ** getKey #method:getKey#--#if ENABLE_OVERLOADING-    SettingsSchemaGetKeyMethodInfo          ,-#endif-    settingsSchemaGetKey                    ,----- ** getPath #method:getPath#--#if ENABLE_OVERLOADING-    SettingsSchemaGetPathMethodInfo         ,-#endif-    settingsSchemaGetPath                   ,----- ** hasKey #method:hasKey#--#if ENABLE_OVERLOADING-    SettingsSchemaHasKeyMethodInfo          ,-#endif-    settingsSchemaHasKey                    ,----- ** listChildren #method:listChildren#--#if ENABLE_OVERLOADING-    SettingsSchemaListChildrenMethodInfo    ,-#endif-    settingsSchemaListChildren              ,----- ** listKeys #method:listKeys#--#if ENABLE_OVERLOADING-    SettingsSchemaListKeysMethodInfo        ,-#endif-    settingsSchemaListKeys                  ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    SettingsSchemaRefMethodInfo             ,-#endif-    settingsSchemaRef                       ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    SettingsSchemaUnrefMethodInfo           ,-#endif-    settingsSchemaUnref                     ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Structs.SettingsSchemaKey as Gio.SettingsSchemaKey---- | Memory-managed wrapper type.-newtype SettingsSchema = SettingsSchema (ManagedPtr SettingsSchema)-foreign import ccall "g_settings_schema_get_type" c_g_settings_schema_get_type :: -    IO GType--instance BoxedObject SettingsSchema where-    boxedType _ = c_g_settings_schema_get_type---- | A convenience alias for `Nothing` :: `Maybe` `SettingsSchema`.-noSettingsSchema :: Maybe SettingsSchema-noSettingsSchema = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList SettingsSchema-type instance O.AttributeList SettingsSchema = SettingsSchemaAttributeList-type SettingsSchemaAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method SettingsSchema::get_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", 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 "g_settings_schema_get_id" g_settings_schema_get_id :: -    Ptr SettingsSchema ->                   -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    IO CString--{- |-Get the ID of /@schema@/.--}-settingsSchemaGetId ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> m T.Text-    {- ^ __Returns:__ the ID -}-settingsSchemaGetId schema = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    result <- g_settings_schema_get_id schema'-    checkUnexpectedReturnNULL "settingsSchemaGetId" result-    result' <- cstringToText result-    touchManagedPtr schema-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaGetIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SettingsSchemaGetIdMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaGetId--#endif---- method SettingsSchema::get_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a key", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_get_key" g_settings_schema_get_key :: -    Ptr SettingsSchema ->                   -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Gio.SettingsSchemaKey.SettingsSchemaKey)--{- |-Gets the key named /@name@/ from /@schema@/.--It is a programmer error to request a key that does not exist.  See-'GI.Gio.Structs.SettingsSchema.settingsSchemaListKeys'.--/Since: 2.40/--}-settingsSchemaGetKey ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> T.Text-    {- ^ /@name@/: the name of a key -}-    -> m Gio.SettingsSchemaKey.SettingsSchemaKey-    {- ^ __Returns:__ the 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' for /@name@/ -}-settingsSchemaGetKey schema name = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    name' <- textToCString name-    result <- g_settings_schema_get_key schema' name'-    checkUnexpectedReturnNULL "settingsSchemaGetKey" result-    result' <- (wrapBoxed Gio.SettingsSchemaKey.SettingsSchemaKey) result-    touchManagedPtr schema-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaGetKeyMethodInfo-instance (signature ~ (T.Text -> m Gio.SettingsSchemaKey.SettingsSchemaKey), MonadIO m) => O.MethodInfo SettingsSchemaGetKeyMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaGetKey--#endif---- method SettingsSchema::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", 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 "g_settings_schema_get_path" g_settings_schema_get_path :: -    Ptr SettingsSchema ->                   -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    IO CString--{- |-Gets the path associated with /@schema@/, or 'Nothing'.--Schemas may be single-instance or relocatable.  Single-instance-schemas correspond to exactly one set of keys in the backend-database: those located at the path returned by this function.--Relocatable schemas can be referenced by other schemas and can-threfore describe multiple sets of keys at different locations.  For-relocatable schemas, this function will return 'Nothing'.--/Since: 2.32/--}-settingsSchemaGetPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> m T.Text-    {- ^ __Returns:__ the path of the schema, or 'Nothing' -}-settingsSchemaGetPath schema = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    result <- g_settings_schema_get_path schema'-    checkUnexpectedReturnNULL "settingsSchemaGetPath" result-    result' <- cstringToText result-    touchManagedPtr schema-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SettingsSchemaGetPathMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaGetPath--#endif---- method SettingsSchema::has_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of a key", 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 "g_settings_schema_has_key" g_settings_schema_has_key :: -    Ptr SettingsSchema ->                   -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    CString ->                              -- name : TBasicType TUTF8-    IO CInt--{- |-Checks if /@schema@/ has a key named /@name@/.--/Since: 2.40/--}-settingsSchemaHasKey ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> T.Text-    {- ^ /@name@/: the name of a key -}-    -> m Bool-    {- ^ __Returns:__ 'True' if such a key exists -}-settingsSchemaHasKey schema name = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    name' <- textToCString name-    result <- g_settings_schema_has_key schema' name'-    let result' = (/= 0) result-    touchManagedPtr schema-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaHasKeyMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.MethodInfo SettingsSchemaHasKeyMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaHasKey--#endif---- method SettingsSchema::list_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_list_children" g_settings_schema_list_children :: -    Ptr SettingsSchema ->                   -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    IO (Ptr CString)--{- |-Gets the list of children in /@schema@/.--You should free the return value with 'GI.GLib.Functions.strfreev' when you are done-with it.--/Since: 2.44/--}-settingsSchemaListChildren ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> m [T.Text]-    {- ^ __Returns:__ a list of the children on /@settings@/ -}-settingsSchemaListChildren schema = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    result <- g_settings_schema_list_children schema'-    checkUnexpectedReturnNULL "settingsSchemaListChildren" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr schema-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaListChildrenMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m) => O.MethodInfo SettingsSchemaListChildrenMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaListChildren--#endif---- method SettingsSchema::list_keys--- method type : OrdinaryMethod--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_list_keys" g_settings_schema_list_keys :: -    Ptr SettingsSchema ->                   -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    IO (Ptr CString)--{- |-Introspects the list of keys on /@schema@/.--You should probably not be calling this function from \"normal\" code-(since you should already know what keys are in your schema).  This-function is intended for introspection reasons.--/Since: 2.46/--}-settingsSchemaListKeys ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> m [T.Text]-    {- ^ __Returns:__ a list of the keys on-  /@schema@/ -}-settingsSchemaListKeys schema = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    result <- g_settings_schema_list_keys schema'-    checkUnexpectedReturnNULL "settingsSchemaListKeys" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    touchManagedPtr schema-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaListKeysMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m) => O.MethodInfo SettingsSchemaListKeysMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaListKeys--#endif---- method SettingsSchema::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsSchema"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_ref" g_settings_schema_ref :: -    Ptr SettingsSchema ->                   -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    IO (Ptr SettingsSchema)--{- |-Increase the reference count of /@schema@/, returning a new reference.--/Since: 2.32/--}-settingsSchemaRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> m SettingsSchema-    {- ^ __Returns:__ a new reference to /@schema@/ -}-settingsSchemaRef schema = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    result <- g_settings_schema_ref schema'-    checkUnexpectedReturnNULL "settingsSchemaRef" result-    result' <- (wrapBoxed SettingsSchema) result-    touchManagedPtr schema-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaRefMethodInfo-instance (signature ~ (m SettingsSchema), MonadIO m) => O.MethodInfo SettingsSchemaRefMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaRef--#endif---- method SettingsSchema::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "schema", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchema"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchema", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_unref" g_settings_schema_unref :: -    Ptr SettingsSchema ->                   -- schema : TInterface (Name {namespace = "Gio", name = "SettingsSchema"})-    IO ()--{- |-Decrease the reference count of /@schema@/, possibly freeing it.--/Since: 2.32/--}-settingsSchemaUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchema-    {- ^ /@schema@/: a 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-    -> m ()-settingsSchemaUnref schema = liftIO $ do-    schema' <- unsafeManagedPtrGetPtr schema-    g_settings_schema_unref schema'-    touchManagedPtr schema-    return ()--#if ENABLE_OVERLOADING-data SettingsSchemaUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo SettingsSchemaUnrefMethodInfo SettingsSchema signature where-    overloadedMethod _ = settingsSchemaUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveSettingsSchemaMethod (t :: Symbol) (o :: *) :: * where-    ResolveSettingsSchemaMethod "hasKey" o = SettingsSchemaHasKeyMethodInfo-    ResolveSettingsSchemaMethod "listChildren" o = SettingsSchemaListChildrenMethodInfo-    ResolveSettingsSchemaMethod "listKeys" o = SettingsSchemaListKeysMethodInfo-    ResolveSettingsSchemaMethod "ref" o = SettingsSchemaRefMethodInfo-    ResolveSettingsSchemaMethod "unref" o = SettingsSchemaUnrefMethodInfo-    ResolveSettingsSchemaMethod "getId" o = SettingsSchemaGetIdMethodInfo-    ResolveSettingsSchemaMethod "getKey" o = SettingsSchemaGetKeyMethodInfo-    ResolveSettingsSchemaMethod "getPath" o = SettingsSchemaGetPathMethodInfo-    ResolveSettingsSchemaMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSettingsSchemaMethod t SettingsSchema, O.MethodInfo info SettingsSchema p) => OL.IsLabel t (SettingsSchema -> 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--
− GI/Gio/Structs/SettingsSchema.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.SettingsSchema 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 SettingsSchema = SettingsSchema (ManagedPtr SettingsSchema)-instance BoxedObject SettingsSchema where-#if ENABLE_OVERLOADING-data SettingsSchemaGetIdMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaGetKeyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaGetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaHasKeyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaListChildrenMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaListKeysMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaUnrefMethodInfo-#endif
− GI/Gio/Structs/SettingsSchemaKey.hs 
@@ -1,573 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' is an opaque data structure and can only be accessed-using the following functions.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.SettingsSchemaKey-    ( ---- * Exported types-    SettingsSchemaKey(..)                   ,-    noSettingsSchemaKey                     ,--- -- * Methods--- ** getDefaultValue #method:getDefaultValue#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyGetDefaultValueMethodInfo,-#endif-    settingsSchemaKeyGetDefaultValue        ,----- ** getDescription #method:getDescription#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyGetDescriptionMethodInfo,-#endif-    settingsSchemaKeyGetDescription         ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyGetNameMethodInfo      ,-#endif-    settingsSchemaKeyGetName                ,----- ** getRange #method:getRange#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyGetRangeMethodInfo     ,-#endif-    settingsSchemaKeyGetRange               ,----- ** getSummary #method:getSummary#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyGetSummaryMethodInfo   ,-#endif-    settingsSchemaKeyGetSummary             ,----- ** getValueType #method:getValueType#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyGetValueTypeMethodInfo ,-#endif-    settingsSchemaKeyGetValueType           ,----- ** rangeCheck #method:rangeCheck#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyRangeCheckMethodInfo   ,-#endif-    settingsSchemaKeyRangeCheck             ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyRefMethodInfo          ,-#endif-    settingsSchemaKeyRef                    ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    SettingsSchemaKeyUnrefMethodInfo        ,-#endif-    settingsSchemaKeyUnref                  ,-----    ) 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---- | Memory-managed wrapper type.-newtype SettingsSchemaKey = SettingsSchemaKey (ManagedPtr SettingsSchemaKey)-foreign import ccall "g_settings_schema_key_get_type" c_g_settings_schema_key_get_type :: -    IO GType--instance BoxedObject SettingsSchemaKey where-    boxedType _ = c_g_settings_schema_key_get_type---- | A convenience alias for `Nothing` :: `Maybe` `SettingsSchemaKey`.-noSettingsSchemaKey :: Maybe SettingsSchemaKey-noSettingsSchemaKey = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList SettingsSchemaKey-type instance O.AttributeList SettingsSchemaKey = SettingsSchemaKeyAttributeList-type SettingsSchemaKeyAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method SettingsSchemaKey::get_default_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_key_get_default_value" g_settings_schema_key_get_default_value :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    IO (Ptr GVariant)--{- |-Gets the default value for /@key@/.--Note that this is the default value according to the schema.  System-administrator defaults and lockdown are not visible via this API.--/Since: 2.40/--}-settingsSchemaKeyGetDefaultValue ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> m GVariant-    {- ^ __Returns:__ the default value for the key -}-settingsSchemaKeyGetDefaultValue key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    result <- g_settings_schema_key_get_default_value key'-    checkUnexpectedReturnNULL "settingsSchemaKeyGetDefaultValue" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr key-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetDefaultValueMethodInfo-instance (signature ~ (m GVariant), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetDefaultValueMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetDefaultValue--#endif---- method SettingsSchemaKey::get_description--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", 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 "g_settings_schema_key_get_description" g_settings_schema_key_get_description :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    IO CString--{- |-Gets the description for /@key@/.--If no description has been provided in the schema for /@key@/, returns-'Nothing'.--The description can be one sentence to several paragraphs in length.-Paragraphs are delimited with a double newline.  Descriptions can be-translated and the value returned from this function is is the-current locale.--This function is slow.  The summary and description information for-the schemas is not stored in the compiled schema database so this-function has to parse all of the source XML files in the schema-directory.--/Since: 2.34/--}-settingsSchemaKeyGetDescription ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> m T.Text-    {- ^ __Returns:__ the description for /@key@/, or 'Nothing' -}-settingsSchemaKeyGetDescription key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    result <- g_settings_schema_key_get_description key'-    checkUnexpectedReturnNULL "settingsSchemaKeyGetDescription" result-    result' <- cstringToText result-    touchManagedPtr key-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetDescriptionMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetDescriptionMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetDescription--#endif---- method SettingsSchemaKey::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", 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 "g_settings_schema_key_get_name" g_settings_schema_key_get_name :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    IO CString--{- |-Gets the name of /@key@/.--/Since: 2.44/--}-settingsSchemaKeyGetName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> m T.Text-    {- ^ __Returns:__ the name of /@key@/. -}-settingsSchemaKeyGetName key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    result <- g_settings_schema_key_get_name key'-    checkUnexpectedReturnNULL "settingsSchemaKeyGetName" result-    result' <- cstringToText result-    touchManagedPtr key-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetNameMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetName--#endif---- method SettingsSchemaKey::get_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_key_get_range" g_settings_schema_key_get_range :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    IO (Ptr GVariant)--{- |-Queries the range of a key.--This function will return a 'GVariant' that fully describes the range-of values that are valid for /@key@/.--The type of 'GVariant' returned is @(sv)@. The string describes-the type of range restriction in effect. The type and meaning of-the value contained in the variant depends on the string.--If the string is @\'type\'@ then the variant contains an empty array.-The element type of that empty array is the expected type of value-and all values of that type are valid.--If the string is @\'enum\'@ then the variant contains an array-enumerating the possible values. Each item in the array is-a possible valid value and no other values are valid.--If the string is @\'flags\'@ then the variant contains an array. Each-item in the array is a value that may appear zero or one times in an-array to be used as the value for this key. For example, if the-variant contained the array @[\'x\', \'y\']@ then the valid values for-the key would be @[]@, @[\'x\']@, @[\'y\']@, @[\'x\', \'y\']@ and-@[\'y\', \'x\']@.--Finally, if the string is @\'range\'@ then the variant contains a pair-of like-typed values -- the minimum and maximum permissible values-for this key.--This information should not be used by normal programs.  It is-considered to be a hint for introspection purposes.  Normal programs-should already know what is permitted by their own schema.  The-format may change in any way in the future -- but particularly, new-forms may be added to the possibilities described above.--You should free the returned value with 'GI.GLib.Structs.Variant.variantUnref' when it is-no longer needed.--/Since: 2.40/--}-settingsSchemaKeyGetRange ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> m GVariant-    {- ^ __Returns:__ a 'GVariant' describing the range -}-settingsSchemaKeyGetRange key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    result <- g_settings_schema_key_get_range key'-    checkUnexpectedReturnNULL "settingsSchemaKeyGetRange" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr key-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetRangeMethodInfo-instance (signature ~ (m GVariant), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetRangeMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetRange--#endif---- method SettingsSchemaKey::get_summary--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", 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 "g_settings_schema_key_get_summary" g_settings_schema_key_get_summary :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    IO CString--{- |-Gets the summary for /@key@/.--If no summary has been provided in the schema for /@key@/, returns-'Nothing'.--The summary is a short description of the purpose of the key; usually-one short sentence.  Summaries can be translated and the value-returned from this function is is the current locale.--This function is slow.  The summary and description information for-the schemas is not stored in the compiled schema database so this-function has to parse all of the source XML files in the schema-directory.--/Since: 2.34/--}-settingsSchemaKeyGetSummary ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> m T.Text-    {- ^ __Returns:__ the summary for /@key@/, or 'Nothing' -}-settingsSchemaKeyGetSummary key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    result <- g_settings_schema_key_get_summary key'-    checkUnexpectedReturnNULL "settingsSchemaKeyGetSummary" result-    result' <- cstringToText result-    touchManagedPtr key-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetSummaryMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetSummaryMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetSummary--#endif---- method SettingsSchemaKey::get_value_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", 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 "g_settings_schema_key_get_value_type" g_settings_schema_key_get_value_type :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    IO (Ptr GLib.VariantType.VariantType)--{- |-Gets the 'GI.GLib.Structs.VariantType.VariantType' of /@key@/.--/Since: 2.40/--}-settingsSchemaKeyGetValueType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> m GLib.VariantType.VariantType-    {- ^ __Returns:__ the type of /@key@/ -}-settingsSchemaKeyGetValueType key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    result <- g_settings_schema_key_get_value_type key'-    checkUnexpectedReturnNULL "settingsSchemaKeyGetValueType" result-    result' <- (newBoxed GLib.VariantType.VariantType) result-    touchManagedPtr key-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetValueTypeMethodInfo-instance (signature ~ (m GLib.VariantType.VariantType), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetValueTypeMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyGetValueType--#endif---- method SettingsSchemaKey::range_check--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", 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 check", 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 "g_settings_schema_key_range_check" g_settings_schema_key_range_check :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    Ptr GVariant ->                         -- value : TVariant-    IO CInt--{- |-Checks if the given /@value@/ is of the correct type and within the-permitted range for /@key@/.--It is a programmer error if /@value@/ is not of the correct type -- you-must check for this first.--/Since: 2.40/--}-settingsSchemaKeyRangeCheck ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> GVariant-    {- ^ /@value@/: the value to check -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@value@/ is valid for /@key@/ -}-settingsSchemaKeyRangeCheck key value = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    value' <- unsafeManagedPtrGetPtr value-    result <- g_settings_schema_key_range_check key' value'-    let result' = (/= 0) result-    touchManagedPtr key-    touchManagedPtr value-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaKeyRangeCheckMethodInfo-instance (signature ~ (GVariant -> m Bool), MonadIO m) => O.MethodInfo SettingsSchemaKeyRangeCheckMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyRangeCheck--#endif---- method SettingsSchemaKey::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_key_ref" g_settings_schema_key_ref :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    IO (Ptr SettingsSchemaKey)--{- |-Increase the reference count of /@key@/, returning a new reference.--/Since: 2.40/--}-settingsSchemaKeyRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> m SettingsSchemaKey-    {- ^ __Returns:__ a new reference to /@key@/ -}-settingsSchemaKeyRef key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    result <- g_settings_schema_key_ref key'-    checkUnexpectedReturnNULL "settingsSchemaKeyRef" result-    result' <- (wrapBoxed SettingsSchemaKey) result-    touchManagedPtr key-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaKeyRefMethodInfo-instance (signature ~ (m SettingsSchemaKey), MonadIO m) => O.MethodInfo SettingsSchemaKeyRefMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyRef--#endif---- method SettingsSchemaKey::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaKey", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_key_unref" g_settings_schema_key_unref :: -    Ptr SettingsSchemaKey ->                -- key : TInterface (Name {namespace = "Gio", name = "SettingsSchemaKey"})-    IO ()--{- |-Decrease the reference count of /@key@/, possibly freeing it.--/Since: 2.40/--}-settingsSchemaKeyUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaKey-    {- ^ /@key@/: a 'GI.Gio.Structs.SettingsSchemaKey.SettingsSchemaKey' -}-    -> m ()-settingsSchemaKeyUnref key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    g_settings_schema_key_unref key'-    touchManagedPtr key-    return ()--#if ENABLE_OVERLOADING-data SettingsSchemaKeyUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo SettingsSchemaKeyUnrefMethodInfo SettingsSchemaKey signature where-    overloadedMethod _ = settingsSchemaKeyUnref--#endif--#if ENABLE_OVERLOADING-type family ResolveSettingsSchemaKeyMethod (t :: Symbol) (o :: *) :: * where-    ResolveSettingsSchemaKeyMethod "rangeCheck" o = SettingsSchemaKeyRangeCheckMethodInfo-    ResolveSettingsSchemaKeyMethod "ref" o = SettingsSchemaKeyRefMethodInfo-    ResolveSettingsSchemaKeyMethod "unref" o = SettingsSchemaKeyUnrefMethodInfo-    ResolveSettingsSchemaKeyMethod "getDefaultValue" o = SettingsSchemaKeyGetDefaultValueMethodInfo-    ResolveSettingsSchemaKeyMethod "getDescription" o = SettingsSchemaKeyGetDescriptionMethodInfo-    ResolveSettingsSchemaKeyMethod "getName" o = SettingsSchemaKeyGetNameMethodInfo-    ResolveSettingsSchemaKeyMethod "getRange" o = SettingsSchemaKeyGetRangeMethodInfo-    ResolveSettingsSchemaKeyMethod "getSummary" o = SettingsSchemaKeyGetSummaryMethodInfo-    ResolveSettingsSchemaKeyMethod "getValueType" o = SettingsSchemaKeyGetValueTypeMethodInfo-    ResolveSettingsSchemaKeyMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, O.MethodInfo info SettingsSchemaKey p) => OL.IsLabel t (SettingsSchemaKey -> 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--
− GI/Gio/Structs/SettingsSchemaKey.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.SettingsSchemaKey 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 SettingsSchemaKey = SettingsSchemaKey (ManagedPtr SettingsSchemaKey)-instance BoxedObject SettingsSchemaKey where-#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetDefaultValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetDescriptionMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetRangeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetSummaryMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaKeyGetValueTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaKeyRangeCheckMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaKeyRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaKeyUnrefMethodInfo-#endif
− GI/Gio/Structs/SettingsSchemaSource.hs 
@@ -1,447 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--This is an opaque structure type.  You may not access it directly.--/Since: 2.32/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.SettingsSchemaSource-    ( ---- * Exported types-    SettingsSchemaSource(..)                ,-    noSettingsSchemaSource                  ,--- -- * Methods--- ** getDefault #method:getDefault#--    settingsSchemaSourceGetDefault          ,----- ** listSchemas #method:listSchemas#--#if ENABLE_OVERLOADING-    SettingsSchemaSourceListSchemasMethodInfo,-#endif-    settingsSchemaSourceListSchemas         ,----- ** lookup #method:lookup#--#if ENABLE_OVERLOADING-    SettingsSchemaSourceLookupMethodInfo    ,-#endif-    settingsSchemaSourceLookup              ,----- ** newFromDirectory #method:newFromDirectory#--    settingsSchemaSourceNewFromDirectory    ,----- ** ref #method:ref#--#if ENABLE_OVERLOADING-    SettingsSchemaSourceRefMethodInfo       ,-#endif-    settingsSchemaSourceRef                 ,----- ** unref #method:unref#--#if ENABLE_OVERLOADING-    SettingsSchemaSourceUnrefMethodInfo     ,-#endif-    settingsSchemaSourceUnref               ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Structs.SettingsSchema as Gio.SettingsSchema---- | Memory-managed wrapper type.-newtype SettingsSchemaSource = SettingsSchemaSource (ManagedPtr SettingsSchemaSource)-foreign import ccall "g_settings_schema_source_get_type" c_g_settings_schema_source_get_type :: -    IO GType--instance BoxedObject SettingsSchemaSource where-    boxedType _ = c_g_settings_schema_source_get_type---- | A convenience alias for `Nothing` :: `Maybe` `SettingsSchemaSource`.-noSettingsSchemaSource :: Maybe SettingsSchemaSource-noSettingsSchemaSource = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList SettingsSchemaSource-type instance O.AttributeList SettingsSchemaSource = SettingsSchemaSourceAttributeList-type SettingsSchemaSourceAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method SettingsSchemaSource::new_from_directory--- method type : Constructor--- Args : [Arg {argCName = "directory", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename of a directory", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaSource, or %NULL", 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 "%TRUE, if the directory is trusted", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"}))--- throws : True--- Skip return : False--foreign import ccall "g_settings_schema_source_new_from_directory" g_settings_schema_source_new_from_directory :: -    CString ->                              -- directory : TBasicType TFileName-    Ptr SettingsSchemaSource ->             -- parent : TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"})-    CInt ->                                 -- trusted : TBasicType TBoolean-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr SettingsSchemaSource)--{- |-Attempts to create a new schema source corresponding to the contents-of the given directory.--This function is not required for normal uses of 'GI.Gio.Objects.Settings.Settings' but it-may be useful to authors of plugin management systems.--The directory should contain a file called @gschemas.compiled@ as-produced by the [glib-compile-schemas][glib-compile-schemas] tool.--If /@trusted@/ is 'True' then @gschemas.compiled@ is trusted not to be-corrupted. This assumption has a performance advantage, but can result-in crashes or inconsistent behaviour in the case of a corrupted file.-Generally, you should set /@trusted@/ to 'True' for files installed by the-system and to 'False' for files in the home directory.--In either case, an empty file or some types of corruption in the file will-result in 'GI.GLib.Enums.FileErrorInval' being returned.--If /@parent@/ is non-'Nothing' then there are two effects.--First, if 'GI.Gio.Structs.SettingsSchemaSource.settingsSchemaSourceLookup' is called with the-/@recursive@/ flag set to 'True' and the schema can not be found in the-source, the lookup will recurse to the parent.--Second, any references to other schemas specified within this-source (ie: @child@ or @extends@) references may be resolved-from the /@parent@/.--For this second reason, except in very unusual situations, the-/@parent@/ should probably be given as the default schema source, as-returned by 'GI.Gio.Functions.settingsSchemaSourceGetDefault'.--/Since: 2.32/--}-settingsSchemaSourceNewFromDirectory ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Char]-    {- ^ /@directory@/: the filename of a directory -}-    -> Maybe (SettingsSchemaSource)-    {- ^ /@parent@/: a 'GI.Gio.Structs.SettingsSchemaSource.SettingsSchemaSource', or 'Nothing' -}-    -> Bool-    {- ^ /@trusted@/: 'True', if the directory is trusted -}-    -> m SettingsSchemaSource-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-settingsSchemaSourceNewFromDirectory directory parent trusted = liftIO $ do-    directory' <- stringToCString directory-    maybeParent <- case parent of-        Nothing -> return nullPtr-        Just jParent -> do-            jParent' <- unsafeManagedPtrGetPtr jParent-            return jParent'-    let trusted' = (fromIntegral . fromEnum) trusted-    onException (do-        result <- propagateGError $ g_settings_schema_source_new_from_directory directory' maybeParent trusted'-        checkUnexpectedReturnNULL "settingsSchemaSourceNewFromDirectory" result-        result' <- (wrapBoxed SettingsSchemaSource) result-        whenJust parent touchManagedPtr-        freeMem directory'-        return result'-     ) (do-        freeMem directory'-     )--#if ENABLE_OVERLOADING-#endif---- method SettingsSchemaSource::list_schemas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaSource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if we should recurse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "non_relocatable", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the\n  list of non-relocatable schemas", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "relocatable", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the list\n  of relocatable schemas", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_source_list_schemas" g_settings_schema_source_list_schemas :: -    Ptr SettingsSchemaSource ->             -- source : TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"})-    CInt ->                                 -- recursive : TBasicType TBoolean-    Ptr (Ptr CString) ->                    -- non_relocatable : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr (Ptr CString) ->                    -- relocatable : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()--{- |-Lists the schemas in a given source.--If /@recursive@/ is 'True' then include parent sources.  If 'False' then-only include the schemas from one source (ie: one directory).  You-probably want 'True'.--Non-relocatable schemas are those for which you can call-'GI.Gio.Objects.Settings.settingsNew'.  Relocatable schemas are those for which you must-use 'GI.Gio.Objects.Settings.settingsNewWithPath'.--Do not call this function from normal programs.  This is designed for-use by database editors, commandline tools, etc.--/Since: 2.40/--}-settingsSchemaSourceListSchemas ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaSource-    {- ^ /@source@/: a 'GI.Gio.Structs.SettingsSchemaSource.SettingsSchemaSource' -}-    -> Bool-    {- ^ /@recursive@/: if we should recurse -}-    -> m (([T.Text], [T.Text]))-settingsSchemaSourceListSchemas source recursive = liftIO $ do-    source' <- unsafeManagedPtrGetPtr source-    let recursive' = (fromIntegral . fromEnum) recursive-    nonRelocatable <- allocMem :: IO (Ptr (Ptr CString))-    relocatable <- allocMem :: IO (Ptr (Ptr CString))-    g_settings_schema_source_list_schemas source' recursive' nonRelocatable relocatable-    nonRelocatable' <- peek nonRelocatable-    nonRelocatable'' <- unpackZeroTerminatedUTF8CArray nonRelocatable'-    mapZeroTerminatedCArray freeMem nonRelocatable'-    freeMem nonRelocatable'-    relocatable' <- peek relocatable-    relocatable'' <- unpackZeroTerminatedUTF8CArray relocatable'-    mapZeroTerminatedCArray freeMem relocatable'-    freeMem relocatable'-    touchManagedPtr source-    freeMem nonRelocatable-    freeMem relocatable-    return (nonRelocatable'', relocatable'')--#if ENABLE_OVERLOADING-data SettingsSchemaSourceListSchemasMethodInfo-instance (signature ~ (Bool -> m (([T.Text], [T.Text]))), MonadIO m) => O.MethodInfo SettingsSchemaSourceListSchemasMethodInfo SettingsSchemaSource signature where-    overloadedMethod _ = settingsSchemaSourceListSchemas--#endif---- method SettingsSchemaSource::lookup--- method type : OrdinaryMethod--- Args : [Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaSource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a schema ID", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the lookup should be recursive", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsSchema"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_source_lookup" g_settings_schema_source_lookup :: -    Ptr SettingsSchemaSource ->             -- source : TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"})-    CString ->                              -- schema_id : TBasicType TUTF8-    CInt ->                                 -- recursive : TBasicType TBoolean-    IO (Ptr Gio.SettingsSchema.SettingsSchema)--{- |-Looks up a schema with the identifier /@schemaId@/ in /@source@/.--This function is not required for normal uses of 'GI.Gio.Objects.Settings.Settings' but it-may be useful to authors of plugin management systems or to those who-want to introspect the content of schemas.--If the schema isn\'t found directly in /@source@/ and /@recursive@/ is 'True'-then the parent sources will also be checked.--If the schema isn\'t found, 'Nothing' is returned.--/Since: 2.32/--}-settingsSchemaSourceLookup ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaSource-    {- ^ /@source@/: a 'GI.Gio.Structs.SettingsSchemaSource.SettingsSchemaSource' -}-    -> T.Text-    {- ^ /@schemaId@/: a schema ID -}-    -> Bool-    {- ^ /@recursive@/: 'True' if the lookup should be recursive -}-    -> m (Maybe Gio.SettingsSchema.SettingsSchema)-    {- ^ __Returns:__ a new 'GI.Gio.Structs.SettingsSchema.SettingsSchema' -}-settingsSchemaSourceLookup source schemaId recursive = liftIO $ do-    source' <- unsafeManagedPtrGetPtr source-    schemaId' <- textToCString schemaId-    let recursive' = (fromIntegral . fromEnum) recursive-    result <- g_settings_schema_source_lookup source' schemaId' recursive'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Gio.SettingsSchema.SettingsSchema) result'-        return result''-    touchManagedPtr source-    freeMem schemaId'-    return maybeResult--#if ENABLE_OVERLOADING-data SettingsSchemaSourceLookupMethodInfo-instance (signature ~ (T.Text -> Bool -> m (Maybe Gio.SettingsSchema.SettingsSchema)), MonadIO m) => O.MethodInfo SettingsSchemaSourceLookupMethodInfo SettingsSchemaSource signature where-    overloadedMethod _ = settingsSchemaSourceLookup--#endif---- method SettingsSchemaSource::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaSource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_source_ref" g_settings_schema_source_ref :: -    Ptr SettingsSchemaSource ->             -- source : TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"})-    IO (Ptr SettingsSchemaSource)--{- |-Increase the reference count of /@source@/, returning a new reference.--/Since: 2.32/--}-settingsSchemaSourceRef ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaSource-    {- ^ /@source@/: a 'GI.Gio.Structs.SettingsSchemaSource.SettingsSchemaSource' -}-    -> m SettingsSchemaSource-    {- ^ __Returns:__ a new reference to /@source@/ -}-settingsSchemaSourceRef source = liftIO $ do-    source' <- unsafeManagedPtrGetPtr source-    result <- g_settings_schema_source_ref source'-    checkUnexpectedReturnNULL "settingsSchemaSourceRef" result-    result' <- (wrapBoxed SettingsSchemaSource) result-    touchManagedPtr source-    return result'--#if ENABLE_OVERLOADING-data SettingsSchemaSourceRefMethodInfo-instance (signature ~ (m SettingsSchemaSource), MonadIO m) => O.MethodInfo SettingsSchemaSourceRefMethodInfo SettingsSchemaSource signature where-    overloadedMethod _ = settingsSchemaSourceRef--#endif---- method SettingsSchemaSource::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "source", argType = TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSettingsSchemaSource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_source_unref" g_settings_schema_source_unref :: -    Ptr SettingsSchemaSource ->             -- source : TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"})-    IO ()--{- |-Decrease the reference count of /@source@/, possibly freeing it.--/Since: 2.32/--}-settingsSchemaSourceUnref ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SettingsSchemaSource-    {- ^ /@source@/: a 'GI.Gio.Structs.SettingsSchemaSource.SettingsSchemaSource' -}-    -> m ()-settingsSchemaSourceUnref source = liftIO $ do-    source' <- unsafeManagedPtrGetPtr source-    g_settings_schema_source_unref source'-    touchManagedPtr source-    return ()--#if ENABLE_OVERLOADING-data SettingsSchemaSourceUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo SettingsSchemaSourceUnrefMethodInfo SettingsSchemaSource signature where-    overloadedMethod _ = settingsSchemaSourceUnref--#endif---- method SettingsSchemaSource::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SettingsSchemaSource"}))--- throws : False--- Skip return : False--foreign import ccall "g_settings_schema_source_get_default" g_settings_schema_source_get_default :: -    IO (Ptr SettingsSchemaSource)--{- |-Gets the default system schema source.--This function is not required for normal uses of 'GI.Gio.Objects.Settings.Settings' but it-may be useful to authors of plugin management systems or to those who-want to introspect the content of schemas.--If no schemas are installed, 'Nothing' will be returned.--The returned source may actually consist of multiple schema sources-from different directories, depending on which directories were given-in @XDG_DATA_DIRS@ and @GSETTINGS_SCHEMA_DIR@. For this reason, all-lookups performed against the default source should probably be done-recursively.--/Since: 2.32/--}-settingsSchemaSourceGetDefault ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m (Maybe SettingsSchemaSource)-    {- ^ __Returns:__ the default schema source -}-settingsSchemaSourceGetDefault  = liftIO $ do-    result <- g_settings_schema_source_get_default-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed SettingsSchemaSource) result'-        return result''-    return maybeResult--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveSettingsSchemaSourceMethod (t :: Symbol) (o :: *) :: * where-    ResolveSettingsSchemaSourceMethod "listSchemas" o = SettingsSchemaSourceListSchemasMethodInfo-    ResolveSettingsSchemaSourceMethod "lookup" o = SettingsSchemaSourceLookupMethodInfo-    ResolveSettingsSchemaSourceMethod "ref" o = SettingsSchemaSourceRefMethodInfo-    ResolveSettingsSchemaSourceMethod "unref" o = SettingsSchemaSourceUnrefMethodInfo-    ResolveSettingsSchemaSourceMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSettingsSchemaSourceMethod t SettingsSchemaSource, O.MethodInfo info SettingsSchemaSource p) => OL.IsLabel t (SettingsSchemaSource -> 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--
− GI/Gio/Structs/SettingsSchemaSource.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.SettingsSchemaSource 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 SettingsSchemaSource = SettingsSchemaSource (ManagedPtr SettingsSchemaSource)-instance BoxedObject SettingsSchemaSource where-#if ENABLE_OVERLOADING-data SettingsSchemaSourceListSchemasMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaSourceLookupMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaSourceRefMethodInfo-#endif-#if ENABLE_OVERLOADING-data SettingsSchemaSourceUnrefMethodInfo-#endif
− GI/Gio/Structs/SrvTarget.hs 
@@ -1,424 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--SRV (service) records are used by some network protocols to provide-service-specific aliasing and load-balancing. For example, XMPP-(Jabber) uses SRV records to locate the XMPP server for a domain;-rather than connecting directly to \"example.com\" or assuming a-specific server hostname like \"xmpp.example.com\", an XMPP client-would look up the \"xmpp-client\" SRV record for \"example.com\", and-then connect to whatever host was pointed to by that record.--You can use 'GI.Gio.Objects.Resolver.resolverLookupService' or-'GI.Gio.Objects.Resolver.resolverLookupServiceAsync' to find the @/GSrvTargets/@-for a given service. However, if you are simply planning to connect-to the remote service, you can use 'GI.Gio.Objects.NetworkService.NetworkService'\'s-'GI.Gio.Interfaces.SocketConnectable.SocketConnectable' interface and not need to worry about-'GI.Gio.Structs.SrvTarget.SrvTarget' at all.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.SrvTarget-    ( ---- * Exported types-    SrvTarget(..)                           ,-    noSrvTarget                             ,--- -- * Methods--- ** copy #method:copy#--#if ENABLE_OVERLOADING-    SrvTargetCopyMethodInfo                 ,-#endif-    srvTargetCopy                           ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    SrvTargetFreeMethodInfo                 ,-#endif-    srvTargetFree                           ,----- ** getHostname #method:getHostname#--#if ENABLE_OVERLOADING-    SrvTargetGetHostnameMethodInfo          ,-#endif-    srvTargetGetHostname                    ,----- ** getPort #method:getPort#--#if ENABLE_OVERLOADING-    SrvTargetGetPortMethodInfo              ,-#endif-    srvTargetGetPort                        ,----- ** getPriority #method:getPriority#--#if ENABLE_OVERLOADING-    SrvTargetGetPriorityMethodInfo          ,-#endif-    srvTargetGetPriority                    ,----- ** getWeight #method:getWeight#--#if ENABLE_OVERLOADING-    SrvTargetGetWeightMethodInfo            ,-#endif-    srvTargetGetWeight                      ,----- ** new #method:new#--    srvTargetNew                            ,-----    ) 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----- | Memory-managed wrapper type.-newtype SrvTarget = SrvTarget (ManagedPtr SrvTarget)-foreign import ccall "g_srv_target_get_type" c_g_srv_target_get_type :: -    IO GType--instance BoxedObject SrvTarget where-    boxedType _ = c_g_srv_target_get_type---- | A convenience alias for `Nothing` :: `Maybe` `SrvTarget`.-noSrvTarget :: Maybe SrvTarget-noSrvTarget = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList SrvTarget-type instance O.AttributeList SrvTarget = SrvTargetAttributeList-type SrvTargetAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method SrvTarget::new--- method type : Constructor--- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the host that the service is running on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the port that the service is running on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the target's priority", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "weight", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the target's weight", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SrvTarget"}))--- throws : False--- Skip return : False--foreign import ccall "g_srv_target_new" g_srv_target_new :: -    CString ->                              -- hostname : TBasicType TUTF8-    Word16 ->                               -- port : TBasicType TUInt16-    Word16 ->                               -- priority : TBasicType TUInt16-    Word16 ->                               -- weight : TBasicType TUInt16-    IO (Ptr SrvTarget)--{- |-Creates a new 'GI.Gio.Structs.SrvTarget.SrvTarget' with the given parameters.--You should not need to use this; normally @/GSrvTargets/@ are-created by 'GI.Gio.Objects.Resolver.Resolver'.--/Since: 2.22/--}-srvTargetNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@hostname@/: the host that the service is running on -}-    -> Word16-    {- ^ /@port@/: the port that the service is running on -}-    -> Word16-    {- ^ /@priority@/: the target\'s priority -}-    -> Word16-    {- ^ /@weight@/: the target\'s weight -}-    -> m SrvTarget-    {- ^ __Returns:__ a new 'GI.Gio.Structs.SrvTarget.SrvTarget'. -}-srvTargetNew hostname port priority weight = liftIO $ do-    hostname' <- textToCString hostname-    result <- g_srv_target_new hostname' port priority weight-    checkUnexpectedReturnNULL "srvTargetNew" result-    result' <- (wrapBoxed SrvTarget) result-    freeMem hostname'-    return result'--#if ENABLE_OVERLOADING-#endif---- method SrvTarget::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "Gio", name = "SrvTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSrvTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SrvTarget"}))--- throws : False--- Skip return : False--foreign import ccall "g_srv_target_copy" g_srv_target_copy :: -    Ptr SrvTarget ->                        -- target : TInterface (Name {namespace = "Gio", name = "SrvTarget"})-    IO (Ptr SrvTarget)--{- |-Copies /@target@/--/Since: 2.22/--}-srvTargetCopy ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SrvTarget-    {- ^ /@target@/: a 'GI.Gio.Structs.SrvTarget.SrvTarget' -}-    -> m SrvTarget-    {- ^ __Returns:__ a copy of /@target@/ -}-srvTargetCopy target = liftIO $ do-    target' <- unsafeManagedPtrGetPtr target-    result <- g_srv_target_copy target'-    checkUnexpectedReturnNULL "srvTargetCopy" result-    result' <- (wrapBoxed SrvTarget) result-    touchManagedPtr target-    return result'--#if ENABLE_OVERLOADING-data SrvTargetCopyMethodInfo-instance (signature ~ (m SrvTarget), MonadIO m) => O.MethodInfo SrvTargetCopyMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetCopy--#endif---- method SrvTarget::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "Gio", name = "SrvTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSrvTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_srv_target_free" g_srv_target_free :: -    Ptr SrvTarget ->                        -- target : TInterface (Name {namespace = "Gio", name = "SrvTarget"})-    IO ()--{- |-Frees /@target@/--/Since: 2.22/--}-srvTargetFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SrvTarget-    {- ^ /@target@/: a 'GI.Gio.Structs.SrvTarget.SrvTarget' -}-    -> m ()-srvTargetFree target = liftIO $ do-    target' <- unsafeManagedPtrGetPtr target-    g_srv_target_free target'-    touchManagedPtr target-    return ()--#if ENABLE_OVERLOADING-data SrvTargetFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo SrvTargetFreeMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetFree--#endif---- method SrvTarget::get_hostname--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "Gio", name = "SrvTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSrvTarget", 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 "g_srv_target_get_hostname" g_srv_target_get_hostname :: -    Ptr SrvTarget ->                        -- target : TInterface (Name {namespace = "Gio", name = "SrvTarget"})-    IO CString--{- |-Gets /@target@/\'s hostname (in ASCII form; if you are going to present-this to the user, you should use 'GI.GLib.Functions.hostnameIsAsciiEncoded' to-check if it contains encoded Unicode segments, and use-'GI.GLib.Functions.hostnameToUnicode' to convert it if it does.)--/Since: 2.22/--}-srvTargetGetHostname ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SrvTarget-    {- ^ /@target@/: a 'GI.Gio.Structs.SrvTarget.SrvTarget' -}-    -> m T.Text-    {- ^ __Returns:__ /@target@/\'s hostname -}-srvTargetGetHostname target = liftIO $ do-    target' <- unsafeManagedPtrGetPtr target-    result <- g_srv_target_get_hostname target'-    checkUnexpectedReturnNULL "srvTargetGetHostname" result-    result' <- cstringToText result-    touchManagedPtr target-    return result'--#if ENABLE_OVERLOADING-data SrvTargetGetHostnameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SrvTargetGetHostnameMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetGetHostname--#endif---- method SrvTarget::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "Gio", name = "SrvTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSrvTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : False--- Skip return : False--foreign import ccall "g_srv_target_get_port" g_srv_target_get_port :: -    Ptr SrvTarget ->                        -- target : TInterface (Name {namespace = "Gio", name = "SrvTarget"})-    IO Word16--{- |-Gets /@target@/\'s port--/Since: 2.22/--}-srvTargetGetPort ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SrvTarget-    {- ^ /@target@/: a 'GI.Gio.Structs.SrvTarget.SrvTarget' -}-    -> m Word16-    {- ^ __Returns:__ /@target@/\'s port -}-srvTargetGetPort target = liftIO $ do-    target' <- unsafeManagedPtrGetPtr target-    result <- g_srv_target_get_port target'-    touchManagedPtr target-    return result--#if ENABLE_OVERLOADING-data SrvTargetGetPortMethodInfo-instance (signature ~ (m Word16), MonadIO m) => O.MethodInfo SrvTargetGetPortMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetGetPort--#endif---- method SrvTarget::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "Gio", name = "SrvTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSrvTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : False--- Skip return : False--foreign import ccall "g_srv_target_get_priority" g_srv_target_get_priority :: -    Ptr SrvTarget ->                        -- target : TInterface (Name {namespace = "Gio", name = "SrvTarget"})-    IO Word16--{- |-Gets /@target@/\'s priority. You should not need to look at this;-'GI.Gio.Objects.Resolver.Resolver' already sorts the targets according to the algorithm in-RFC 2782.--/Since: 2.22/--}-srvTargetGetPriority ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SrvTarget-    {- ^ /@target@/: a 'GI.Gio.Structs.SrvTarget.SrvTarget' -}-    -> m Word16-    {- ^ __Returns:__ /@target@/\'s priority -}-srvTargetGetPriority target = liftIO $ do-    target' <- unsafeManagedPtrGetPtr target-    result <- g_srv_target_get_priority target'-    touchManagedPtr target-    return result--#if ENABLE_OVERLOADING-data SrvTargetGetPriorityMethodInfo-instance (signature ~ (m Word16), MonadIO m) => O.MethodInfo SrvTargetGetPriorityMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetGetPriority--#endif---- method SrvTarget::get_weight--- method type : OrdinaryMethod--- Args : [Arg {argCName = "target", argType = TInterface (Name {namespace = "Gio", name = "SrvTarget"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSrvTarget", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : False--- Skip return : False--foreign import ccall "g_srv_target_get_weight" g_srv_target_get_weight :: -    Ptr SrvTarget ->                        -- target : TInterface (Name {namespace = "Gio", name = "SrvTarget"})-    IO Word16--{- |-Gets /@target@/\'s weight. You should not need to look at this;-'GI.Gio.Objects.Resolver.Resolver' already sorts the targets according to the algorithm in-RFC 2782.--/Since: 2.22/--}-srvTargetGetWeight ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    SrvTarget-    {- ^ /@target@/: a 'GI.Gio.Structs.SrvTarget.SrvTarget' -}-    -> m Word16-    {- ^ __Returns:__ /@target@/\'s weight -}-srvTargetGetWeight target = liftIO $ do-    target' <- unsafeManagedPtrGetPtr target-    result <- g_srv_target_get_weight target'-    touchManagedPtr target-    return result--#if ENABLE_OVERLOADING-data SrvTargetGetWeightMethodInfo-instance (signature ~ (m Word16), MonadIO m) => O.MethodInfo SrvTargetGetWeightMethodInfo SrvTarget signature where-    overloadedMethod _ = srvTargetGetWeight--#endif--#if ENABLE_OVERLOADING-type family ResolveSrvTargetMethod (t :: Symbol) (o :: *) :: * where-    ResolveSrvTargetMethod "copy" o = SrvTargetCopyMethodInfo-    ResolveSrvTargetMethod "free" o = SrvTargetFreeMethodInfo-    ResolveSrvTargetMethod "getHostname" o = SrvTargetGetHostnameMethodInfo-    ResolveSrvTargetMethod "getPort" o = SrvTargetGetPortMethodInfo-    ResolveSrvTargetMethod "getPriority" o = SrvTargetGetPriorityMethodInfo-    ResolveSrvTargetMethod "getWeight" o = SrvTargetGetWeightMethodInfo-    ResolveSrvTargetMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSrvTargetMethod t SrvTarget, O.MethodInfo info SrvTarget p) => OL.IsLabel t (SrvTarget -> 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--
− GI/Gio/Structs/SrvTarget.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.SrvTarget 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 SrvTarget = SrvTarget (ManagedPtr SrvTarget)-instance BoxedObject SrvTarget where-#if ENABLE_OVERLOADING-data SrvTargetCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data SrvTargetFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SrvTargetGetHostnameMethodInfo-#endif-#if ENABLE_OVERLOADING-data SrvTargetGetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data SrvTargetGetPriorityMethodInfo-#endif-#if ENABLE_OVERLOADING-data SrvTargetGetWeightMethodInfo-#endif
− GI/Gio/Structs/StaticResource.hs 
@@ -1,241 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--'GI.Gio.Structs.StaticResource.StaticResource' is an opaque data structure and can only be accessed-using the following functions.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.StaticResource-    ( ---- * Exported types-    StaticResource(..)                      ,-    newZeroStaticResource                   ,-    noStaticResource                        ,--- -- * Methods--- ** fini #method:fini#--#if ENABLE_OVERLOADING-    StaticResourceFiniMethodInfo            ,-#endif-    staticResourceFini                      ,----- ** getResource #method:getResource#--#if ENABLE_OVERLOADING-    StaticResourceGetResourceMethodInfo     ,-#endif-    staticResourceGetResource               ,----- ** init #method:init#--#if ENABLE_OVERLOADING-    StaticResourceInitMethodInfo            ,-#endif-    staticResourceInit                      ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Structs.Resource as Gio.Resource---- | Memory-managed wrapper type.-newtype StaticResource = StaticResource (ManagedPtr StaticResource)-instance WrappedPtr StaticResource where-    wrappedPtrCalloc = callocBytes 40-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 40 >=> wrapPtr StaticResource)-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `StaticResource` struct initialized to zero.-newZeroStaticResource :: MonadIO m => m StaticResource-newZeroStaticResource = liftIO $ wrappedPtrCalloc >>= wrapPtr StaticResource--instance tag ~ 'AttrSet => Constructible StaticResource tag where-    new _ attrs = do-        o <- newZeroStaticResource-        GI.Attributes.set o attrs-        return o----- | A convenience alias for `Nothing` :: `Maybe` `StaticResource`.-noStaticResource :: Maybe StaticResource-noStaticResource = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList StaticResource-type instance O.AttributeList StaticResource = StaticResourceAttributeList-type StaticResourceAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method StaticResource::fini--- method type : OrdinaryMethod--- Args : [Arg {argCName = "static_resource", argType = TInterface (Name {namespace = "Gio", name = "StaticResource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a static #GStaticResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_static_resource_fini" g_static_resource_fini :: -    Ptr StaticResource ->                   -- static_resource : TInterface (Name {namespace = "Gio", name = "StaticResource"})-    IO ()--{- |-Finalized a GResource initialized by 'GI.Gio.Structs.StaticResource.staticResourceInit'.--This is normally used by code generated by-[glib-compile-resources][glib-compile-resources]-and is not typically used by other code.--/Since: 2.32/--}-staticResourceFini ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    StaticResource-    {- ^ /@staticResource@/: pointer to a static 'GI.Gio.Structs.StaticResource.StaticResource' -}-    -> m ()-staticResourceFini staticResource = liftIO $ do-    staticResource' <- unsafeManagedPtrGetPtr staticResource-    g_static_resource_fini staticResource'-    touchManagedPtr staticResource-    return ()--#if ENABLE_OVERLOADING-data StaticResourceFiniMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo StaticResourceFiniMethodInfo StaticResource signature where-    overloadedMethod _ = staticResourceFini--#endif---- method StaticResource::get_resource--- method type : OrdinaryMethod--- Args : [Arg {argCName = "static_resource", argType = TInterface (Name {namespace = "Gio", name = "StaticResource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a static #GStaticResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Resource"}))--- throws : False--- Skip return : False--foreign import ccall "g_static_resource_get_resource" g_static_resource_get_resource :: -    Ptr StaticResource ->                   -- static_resource : TInterface (Name {namespace = "Gio", name = "StaticResource"})-    IO (Ptr Gio.Resource.Resource)--{- |-Gets the GResource that was registered by a call to 'GI.Gio.Structs.StaticResource.staticResourceInit'.--This is normally used by code generated by-[glib-compile-resources][glib-compile-resources]-and is not typically used by other code.--/Since: 2.32/--}-staticResourceGetResource ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    StaticResource-    {- ^ /@staticResource@/: pointer to a static 'GI.Gio.Structs.StaticResource.StaticResource' -}-    -> m Gio.Resource.Resource-    {- ^ __Returns:__ a 'GI.Gio.Structs.Resource.Resource' -}-staticResourceGetResource staticResource = liftIO $ do-    staticResource' <- unsafeManagedPtrGetPtr staticResource-    result <- g_static_resource_get_resource staticResource'-    checkUnexpectedReturnNULL "staticResourceGetResource" result-    result' <- (newBoxed Gio.Resource.Resource) result-    touchManagedPtr staticResource-    return result'--#if ENABLE_OVERLOADING-data StaticResourceGetResourceMethodInfo-instance (signature ~ (m Gio.Resource.Resource), MonadIO m) => O.MethodInfo StaticResourceGetResourceMethodInfo StaticResource signature where-    overloadedMethod _ = staticResourceGetResource--#endif---- method StaticResource::init--- method type : OrdinaryMethod--- Args : [Arg {argCName = "static_resource", argType = TInterface (Name {namespace = "Gio", name = "StaticResource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a static #GStaticResource", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_static_resource_init" g_static_resource_init :: -    Ptr StaticResource ->                   -- static_resource : TInterface (Name {namespace = "Gio", name = "StaticResource"})-    IO ()--{- |-Initializes a GResource from static data using a-GStaticResource.--This is normally used by code generated by-[glib-compile-resources][glib-compile-resources]-and is not typically used by other code.--/Since: 2.32/--}-staticResourceInit ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    StaticResource-    {- ^ /@staticResource@/: pointer to a static 'GI.Gio.Structs.StaticResource.StaticResource' -}-    -> m ()-staticResourceInit staticResource = liftIO $ do-    staticResource' <- unsafeManagedPtrGetPtr staticResource-    g_static_resource_init staticResource'-    touchManagedPtr staticResource-    return ()--#if ENABLE_OVERLOADING-data StaticResourceInitMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo StaticResourceInitMethodInfo StaticResource signature where-    overloadedMethod _ = staticResourceInit--#endif--#if ENABLE_OVERLOADING-type family ResolveStaticResourceMethod (t :: Symbol) (o :: *) :: * where-    ResolveStaticResourceMethod "fini" o = StaticResourceFiniMethodInfo-    ResolveStaticResourceMethod "init" o = StaticResourceInitMethodInfo-    ResolveStaticResourceMethod "getResource" o = StaticResourceGetResourceMethodInfo-    ResolveStaticResourceMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveStaticResourceMethod t StaticResource, O.MethodInfo info StaticResource p) => OL.IsLabel t (StaticResource -> 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--
− GI/Gio/Structs/StaticResource.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.StaticResource 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 StaticResource = StaticResource (ManagedPtr StaticResource)-instance WrappedPtr StaticResource where-#if ENABLE_OVERLOADING-data StaticResourceFiniMethodInfo-#endif-#if ENABLE_OVERLOADING-data StaticResourceGetResourceMethodInfo-#endif-#if ENABLE_OVERLOADING-data StaticResourceInitMethodInfo-#endif
− GI/Gio/Structs/UnixMountEntry.hs 
@@ -1,78 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Defines a Unix mount entry (e.g. \<filename>\/media\/cdrom\<\/filename>).-This corresponds roughly to a mtab entry.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.UnixMountEntry-    ( ---- * Exported types-    UnixMountEntry(..)                      ,-    noUnixMountEntry                        ,---    ) 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----- | Memory-managed wrapper type.-newtype UnixMountEntry = UnixMountEntry (ManagedPtr UnixMountEntry)-foreign import ccall "g_unix_mount_entry_get_type" c_g_unix_mount_entry_get_type :: -    IO GType--instance BoxedObject UnixMountEntry where-    boxedType _ = c_g_unix_mount_entry_get_type---- | A convenience alias for `Nothing` :: `Maybe` `UnixMountEntry`.-noUnixMountEntry :: Maybe UnixMountEntry-noUnixMountEntry = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixMountEntry-type instance O.AttributeList UnixMountEntry = UnixMountEntryAttributeList-type UnixMountEntryAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveUnixMountEntryMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixMountEntryMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixMountEntryMethod t UnixMountEntry, O.MethodInfo info UnixMountEntry p) => OL.IsLabel t (UnixMountEntry -> 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--
− GI/Gio/Structs/UnixMountEntry.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.UnixMountEntry 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 UnixMountEntry = UnixMountEntry (ManagedPtr UnixMountEntry)-instance BoxedObject UnixMountEntry where
− GI/Gio/Structs/UnixMountPoint.hs 
@@ -1,718 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Defines a Unix mount point (e.g. \<filename>\/dev\<\/filename>).-This corresponds roughly to a fstab entry.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Gio.Structs.UnixMountPoint-    ( ---- * Exported types-    UnixMountPoint(..)                      ,-    noUnixMountPoint                        ,--- -- * Methods--- ** compare #method:compare#--#if ENABLE_OVERLOADING-    UnixMountPointCompareMethodInfo         ,-#endif-    unixMountPointCompare                   ,----- ** copy #method:copy#--#if ENABLE_OVERLOADING-    UnixMountPointCopyMethodInfo            ,-#endif-    unixMountPointCopy                      ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    UnixMountPointFreeMethodInfo            ,-#endif-    unixMountPointFree                      ,----- ** getDevicePath #method:getDevicePath#--#if ENABLE_OVERLOADING-    UnixMountPointGetDevicePathMethodInfo   ,-#endif-    unixMountPointGetDevicePath             ,----- ** getFsType #method:getFsType#--#if ENABLE_OVERLOADING-    UnixMountPointGetFsTypeMethodInfo       ,-#endif-    unixMountPointGetFsType                 ,----- ** getMountPath #method:getMountPath#--#if ENABLE_OVERLOADING-    UnixMountPointGetMountPathMethodInfo    ,-#endif-    unixMountPointGetMountPath              ,----- ** getOptions #method:getOptions#--#if ENABLE_OVERLOADING-    UnixMountPointGetOptionsMethodInfo      ,-#endif-    unixMountPointGetOptions                ,----- ** guessCanEject #method:guessCanEject#--#if ENABLE_OVERLOADING-    UnixMountPointGuessCanEjectMethodInfo   ,-#endif-    unixMountPointGuessCanEject             ,----- ** guessIcon #method:guessIcon#--#if ENABLE_OVERLOADING-    UnixMountPointGuessIconMethodInfo       ,-#endif-    unixMountPointGuessIcon                 ,----- ** guessName #method:guessName#--#if ENABLE_OVERLOADING-    UnixMountPointGuessNameMethodInfo       ,-#endif-    unixMountPointGuessName                 ,----- ** guessSymbolicIcon #method:guessSymbolicIcon#--#if ENABLE_OVERLOADING-    UnixMountPointGuessSymbolicIconMethodInfo,-#endif-    unixMountPointGuessSymbolicIcon         ,----- ** isLoopback #method:isLoopback#--#if ENABLE_OVERLOADING-    UnixMountPointIsLoopbackMethodInfo      ,-#endif-    unixMountPointIsLoopback                ,----- ** isReadonly #method:isReadonly#--#if ENABLE_OVERLOADING-    UnixMountPointIsReadonlyMethodInfo      ,-#endif-    unixMountPointIsReadonly                ,----- ** isUserMountable #method:isUserMountable#--#if ENABLE_OVERLOADING-    UnixMountPointIsUserMountableMethodInfo ,-#endif-    unixMountPointIsUserMountable           ,-----    ) 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 {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon---- | Memory-managed wrapper type.-newtype UnixMountPoint = UnixMountPoint (ManagedPtr UnixMountPoint)-foreign import ccall "g_unix_mount_point_get_type" c_g_unix_mount_point_get_type :: -    IO GType--instance BoxedObject UnixMountPoint where-    boxedType _ = c_g_unix_mount_point_get_type---- | A convenience alias for `Nothing` :: `Maybe` `UnixMountPoint`.-noUnixMountPoint :: Maybe UnixMountPoint-noUnixMountPoint = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList UnixMountPoint-type instance O.AttributeList UnixMountPoint = UnixMountPointAttributeList-type UnixMountPointAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method UnixMountPoint::compare--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount1", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMount.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount2", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMount.", 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 "g_unix_mount_point_compare" g_unix_mount_point_compare :: -    Ptr UnixMountPoint ->                   -- mount1 : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    Ptr UnixMountPoint ->                   -- mount2 : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO Int32--{- |-Compares two unix mount points.--}-unixMountPointCompare ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mount1@/: a @/GUnixMount/@. -}-    -> UnixMountPoint-    {- ^ /@mount2@/: a @/GUnixMount/@. -}-    -> m Int32-    {- ^ __Returns:__ 1, 0 or -1 if /@mount1@/ is greater than, equal to,-or less than /@mount2@/, respectively. -}-unixMountPointCompare mount1 mount2 = liftIO $ do-    mount1' <- unsafeManagedPtrGetPtr mount1-    mount2' <- unsafeManagedPtrGetPtr mount2-    result <- g_unix_mount_point_compare mount1' mount2'-    touchManagedPtr mount1-    touchManagedPtr mount2-    return result--#if ENABLE_OVERLOADING-data UnixMountPointCompareMethodInfo-instance (signature ~ (UnixMountPoint -> m Int32), MonadIO m) => O.MethodInfo UnixMountPointCompareMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointCompare--#endif---- method UnixMountPoint::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_point_copy" g_unix_mount_point_copy :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO (Ptr UnixMountPoint)--{- |-Makes a copy of /@mountPoint@/.--/Since: 2.54/--}-unixMountPointCopy ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint'. -}-    -> m UnixMountPoint-    {- ^ __Returns:__ a new 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint' -}-unixMountPointCopy mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_copy mountPoint'-    checkUnexpectedReturnNULL "unixMountPointCopy" result-    result' <- (wrapBoxed UnixMountPoint) result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointCopyMethodInfo-instance (signature ~ (m UnixMountPoint), MonadIO m) => O.MethodInfo UnixMountPointCopyMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointCopy--#endif---- method UnixMountPoint::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "unix mount point to free.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_point_free" g_unix_mount_point_free :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO ()--{- |-Frees a unix mount point.--}-unixMountPointFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: unix mount point to free. -}-    -> m ()-unixMountPointFree mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    g_unix_mount_point_free mountPoint'-    touchManagedPtr mountPoint-    return ()--#if ENABLE_OVERLOADING-data UnixMountPointFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo UnixMountPointFreeMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointFree--#endif---- method UnixMountPoint::get_device_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_point_get_device_path" g_unix_mount_point_get_device_path :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CString--{- |-Gets the device path for a unix mount point.--}-unixMountPointGetDevicePath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint'. -}-    -> m [Char]-    {- ^ __Returns:__ a string containing the device path. -}-unixMountPointGetDevicePath mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_get_device_path mountPoint'-    checkUnexpectedReturnNULL "unixMountPointGetDevicePath" result-    result' <- cstringToString result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointGetDevicePathMethodInfo-instance (signature ~ (m [Char]), MonadIO m) => O.MethodInfo UnixMountPointGetDevicePathMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGetDevicePath--#endif---- method UnixMountPoint::get_fs_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint.", 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 "g_unix_mount_point_get_fs_type" g_unix_mount_point_get_fs_type :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CString--{- |-Gets the file system type for the mount point.--}-unixMountPointGetFsType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the file system type. -}-unixMountPointGetFsType mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_get_fs_type mountPoint'-    checkUnexpectedReturnNULL "unixMountPointGetFsType" result-    result' <- cstringToText result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointGetFsTypeMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo UnixMountPointGetFsTypeMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGetFsType--#endif---- method UnixMountPoint::get_mount_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TFileName)--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_point_get_mount_path" g_unix_mount_point_get_mount_path :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CString--{- |-Gets the mount path for a unix mount point.--}-unixMountPointGetMountPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint'. -}-    -> m [Char]-    {- ^ __Returns:__ a string containing the mount path. -}-unixMountPointGetMountPath mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_get_mount_path mountPoint'-    checkUnexpectedReturnNULL "unixMountPointGetMountPath" result-    result' <- cstringToString result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointGetMountPathMethodInfo-instance (signature ~ (m [Char]), MonadIO m) => O.MethodInfo UnixMountPointGetMountPathMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGetMountPath--#endif---- method UnixMountPoint::get_options--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint.", 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 "g_unix_mount_point_get_options" g_unix_mount_point_get_options :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CString--{- |-Gets the options for the mount point.--/Since: 2.32/--}-unixMountPointGetOptions ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint'. -}-    -> m T.Text-    {- ^ __Returns:__ a string containing the options. -}-unixMountPointGetOptions mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_get_options mountPoint'-    checkUnexpectedReturnNULL "unixMountPointGetOptions" result-    result' <- cstringToText result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointGetOptionsMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo UnixMountPointGetOptionsMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGetOptions--#endif---- method UnixMountPoint::guess_can_eject--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint", 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 "g_unix_mount_point_guess_can_eject" g_unix_mount_point_guess_can_eject :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CInt--{- |-Guesses whether a Unix mount point can be ejected.--}-unixMountPointGuessCanEject ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@mountPoint@/ is deemed to be ejectable. -}-unixMountPointGuessCanEject mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_guess_can_eject mountPoint'-    let result' = (/= 0) result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointGuessCanEjectMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo UnixMountPointGuessCanEjectMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGuessCanEject--#endif---- method UnixMountPoint::guess_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_point_guess_icon" g_unix_mount_point_guess_icon :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO (Ptr Gio.Icon.Icon)--{- |-Guesses the icon of a Unix mount point.--}-unixMountPointGuessIcon ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint' -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon' -}-unixMountPointGuessIcon mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_guess_icon mountPoint'-    checkUnexpectedReturnNULL "unixMountPointGuessIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointGuessIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m) => O.MethodInfo UnixMountPointGuessIconMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGuessIcon--#endif---- method UnixMountPoint::guess_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint", 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 "g_unix_mount_point_guess_name" g_unix_mount_point_guess_name :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CString--{- |-Guesses the name of a Unix mount point.-The result is a translated string.--}-unixMountPointGuessName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint' -}-    -> m T.Text-    {- ^ __Returns:__ A newly allocated string that must-    be freed with 'GI.GLib.Functions.free' -}-unixMountPointGuessName mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_guess_name mountPoint'-    checkUnexpectedReturnNULL "unixMountPointGuessName" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointGuessNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo UnixMountPointGuessNameMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGuessName--#endif---- method UnixMountPoint::guess_symbolic_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"}))--- throws : False--- Skip return : False--foreign import ccall "g_unix_mount_point_guess_symbolic_icon" g_unix_mount_point_guess_symbolic_icon :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO (Ptr Gio.Icon.Icon)--{- |-Guesses the symbolic icon of a Unix mount point.--/Since: 2.34/--}-unixMountPointGuessSymbolicIcon ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint' -}-    -> m Gio.Icon.Icon-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.Icon.Icon' -}-unixMountPointGuessSymbolicIcon mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_guess_symbolic_icon mountPoint'-    checkUnexpectedReturnNULL "unixMountPointGuessSymbolicIcon" result-    result' <- (wrapObject Gio.Icon.Icon) result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointGuessSymbolicIconMethodInfo-instance (signature ~ (m Gio.Icon.Icon), MonadIO m) => O.MethodInfo UnixMountPointGuessSymbolicIconMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointGuessSymbolicIcon--#endif---- method UnixMountPoint::is_loopback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint.", 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 "g_unix_mount_point_is_loopback" g_unix_mount_point_is_loopback :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CInt--{- |-Checks if a unix mount point is a loopback device.--}-unixMountPointIsLoopback ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the mount point is a loopback. 'False' otherwise. -}-unixMountPointIsLoopback mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_is_loopback mountPoint'-    let result' = (/= 0) result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointIsLoopbackMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo UnixMountPointIsLoopbackMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointIsLoopback--#endif---- method UnixMountPoint::is_readonly--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint.", 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 "g_unix_mount_point_is_readonly" g_unix_mount_point_is_readonly :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CInt--{- |-Checks if a unix mount point is read only.--}-unixMountPointIsReadonly ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if a mount point is read only. -}-unixMountPointIsReadonly mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_is_readonly mountPoint'-    let result' = (/= 0) result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointIsReadonlyMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo UnixMountPointIsReadonlyMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointIsReadonly--#endif---- method UnixMountPoint::is_user_mountable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "mount_point", argType = TInterface (Name {namespace = "Gio", name = "UnixMountPoint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GUnixMountPoint.", 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 "g_unix_mount_point_is_user_mountable" g_unix_mount_point_is_user_mountable :: -    Ptr UnixMountPoint ->                   -- mount_point : TInterface (Name {namespace = "Gio", name = "UnixMountPoint"})-    IO CInt--{- |-Checks if a unix mount point is mountable by the user.--}-unixMountPointIsUserMountable ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    UnixMountPoint-    {- ^ /@mountPoint@/: a 'GI.Gio.Structs.UnixMountPoint.UnixMountPoint'. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the mount point is user mountable. -}-unixMountPointIsUserMountable mountPoint = liftIO $ do-    mountPoint' <- unsafeManagedPtrGetPtr mountPoint-    result <- g_unix_mount_point_is_user_mountable mountPoint'-    let result' = (/= 0) result-    touchManagedPtr mountPoint-    return result'--#if ENABLE_OVERLOADING-data UnixMountPointIsUserMountableMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo UnixMountPointIsUserMountableMethodInfo UnixMountPoint signature where-    overloadedMethod _ = unixMountPointIsUserMountable--#endif--#if ENABLE_OVERLOADING-type family ResolveUnixMountPointMethod (t :: Symbol) (o :: *) :: * where-    ResolveUnixMountPointMethod "compare" o = UnixMountPointCompareMethodInfo-    ResolveUnixMountPointMethod "copy" o = UnixMountPointCopyMethodInfo-    ResolveUnixMountPointMethod "free" o = UnixMountPointFreeMethodInfo-    ResolveUnixMountPointMethod "guessCanEject" o = UnixMountPointGuessCanEjectMethodInfo-    ResolveUnixMountPointMethod "guessIcon" o = UnixMountPointGuessIconMethodInfo-    ResolveUnixMountPointMethod "guessName" o = UnixMountPointGuessNameMethodInfo-    ResolveUnixMountPointMethod "guessSymbolicIcon" o = UnixMountPointGuessSymbolicIconMethodInfo-    ResolveUnixMountPointMethod "isLoopback" o = UnixMountPointIsLoopbackMethodInfo-    ResolveUnixMountPointMethod "isReadonly" o = UnixMountPointIsReadonlyMethodInfo-    ResolveUnixMountPointMethod "isUserMountable" o = UnixMountPointIsUserMountableMethodInfo-    ResolveUnixMountPointMethod "getDevicePath" o = UnixMountPointGetDevicePathMethodInfo-    ResolveUnixMountPointMethod "getFsType" o = UnixMountPointGetFsTypeMethodInfo-    ResolveUnixMountPointMethod "getMountPath" o = UnixMountPointGetMountPathMethodInfo-    ResolveUnixMountPointMethod "getOptions" o = UnixMountPointGetOptionsMethodInfo-    ResolveUnixMountPointMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveUnixMountPointMethod t UnixMountPoint, O.MethodInfo info UnixMountPoint p) => OL.IsLabel t (UnixMountPoint -> 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--
− GI/Gio/Structs/UnixMountPoint.hs-boot 
@@ -1,68 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Gio.Structs.UnixMountPoint 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 UnixMountPoint = UnixMountPoint (ManagedPtr UnixMountPoint)-instance BoxedObject UnixMountPoint where-#if ENABLE_OVERLOADING-data UnixMountPointCompareMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointGetDevicePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointGetFsTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointGetMountPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointGetOptionsMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointGuessCanEjectMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointGuessIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointGuessNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointGuessSymbolicIconMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointIsLoopbackMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointIsReadonlyMethodInfo-#endif-#if ENABLE_OVERLOADING-data UnixMountPointIsUserMountableMethodInfo-#endif
README.md view
@@ -1,6 +1,6 @@ # Documentation Autogenerated documentation for this package can be found at -[https://hackage.haskell.org/package/gi-gio-2.0.21/docs/GI-Gio.html](https://hackage.haskell.org/package/gi-gio-2.0.21/docs/GI-Gio.html)+[https://hackage.haskell.org/package/gi-gio-2.0.22/docs/GI-Gio.html](https://hackage.haskell.org/package/gi-gio-2.0.22/docs/GI-Gio.html)  For general documentation on using [haskell-gi](https://github.com/haskell-gi/haskell-gi) based bindings, see [the project page](https://github.com/haskell-gi/haskell-gi) or [the Wiki](https://github.com/haskell-gi/haskell-gi/wiki).
gi-gio.cabal view
@@ -1,5 +1,5 @@ name:                 gi-gio-version:              2.0.21+version:              2.0.22 synopsis:             Gio bindings description:          Bindings for Gio, autogenerated by haskell-gi. homepage:             https://github.com/haskell-gi/haskell-gi@@ -42,6 +42,189 @@               build-depends: haskell-gi-overloading == 0.0        exposed-modules: GI.Gio,+                       GI.Gio.Callbacks,+                       GI.Gio.Constants,+                       GI.Gio.Enums,+                       GI.Gio.Flags,+                       GI.Gio.Functions,+                       GI.Gio.Interfaces,+                       GI.Gio.Interfaces.Action,+                       GI.Gio.Interfaces.ActionGroup,+                       GI.Gio.Interfaces.ActionMap,+                       GI.Gio.Interfaces.AppInfo,+                       GI.Gio.Interfaces.AsyncInitable,+                       GI.Gio.Interfaces.AsyncResult,+                       GI.Gio.Interfaces.Converter,+                       GI.Gio.Interfaces.DBusInterface,+                       GI.Gio.Interfaces.DBusObject,+                       GI.Gio.Interfaces.DBusObjectManager,+                       GI.Gio.Interfaces.DatagramBased,+                       GI.Gio.Interfaces.DesktopAppInfoLookup,+                       GI.Gio.Interfaces.Drive,+                       GI.Gio.Interfaces.DtlsClientConnection,+                       GI.Gio.Interfaces.DtlsConnection,+                       GI.Gio.Interfaces.DtlsServerConnection,+                       GI.Gio.Interfaces.File,+                       GI.Gio.Interfaces.FileDescriptorBased,+                       GI.Gio.Interfaces.Icon,+                       GI.Gio.Interfaces.Initable,+                       GI.Gio.Interfaces.ListModel,+                       GI.Gio.Interfaces.LoadableIcon,+                       GI.Gio.Interfaces.Mount,+                       GI.Gio.Interfaces.NetworkMonitor,+                       GI.Gio.Interfaces.PollableInputStream,+                       GI.Gio.Interfaces.PollableOutputStream,+                       GI.Gio.Interfaces.Proxy,+                       GI.Gio.Interfaces.ProxyResolver,+                       GI.Gio.Interfaces.RemoteActionGroup,+                       GI.Gio.Interfaces.Seekable,+                       GI.Gio.Interfaces.SocketConnectable,+                       GI.Gio.Interfaces.TlsBackend,+                       GI.Gio.Interfaces.TlsClientConnection,+                       GI.Gio.Interfaces.TlsFileDatabase,+                       GI.Gio.Interfaces.TlsServerConnection,+                       GI.Gio.Interfaces.Volume,+                       GI.Gio.Objects,+                       GI.Gio.Objects.AppInfoMonitor,+                       GI.Gio.Objects.AppLaunchContext,+                       GI.Gio.Objects.Application,+                       GI.Gio.Objects.ApplicationCommandLine,+                       GI.Gio.Objects.BufferedInputStream,+                       GI.Gio.Objects.BufferedOutputStream,+                       GI.Gio.Objects.BytesIcon,+                       GI.Gio.Objects.Cancellable,+                       GI.Gio.Objects.CharsetConverter,+                       GI.Gio.Objects.ConverterInputStream,+                       GI.Gio.Objects.ConverterOutputStream,+                       GI.Gio.Objects.Credentials,+                       GI.Gio.Objects.DBusActionGroup,+                       GI.Gio.Objects.DBusAuthObserver,+                       GI.Gio.Objects.DBusConnection,+                       GI.Gio.Objects.DBusInterfaceSkeleton,+                       GI.Gio.Objects.DBusMenuModel,+                       GI.Gio.Objects.DBusMessage,+                       GI.Gio.Objects.DBusMethodInvocation,+                       GI.Gio.Objects.DBusObjectManagerClient,+                       GI.Gio.Objects.DBusObjectManagerServer,+                       GI.Gio.Objects.DBusObjectProxy,+                       GI.Gio.Objects.DBusObjectSkeleton,+                       GI.Gio.Objects.DBusProxy,+                       GI.Gio.Objects.DBusServer,+                       GI.Gio.Objects.DataInputStream,+                       GI.Gio.Objects.DataOutputStream,+                       GI.Gio.Objects.DesktopAppInfo,+                       GI.Gio.Objects.Emblem,+                       GI.Gio.Objects.EmblemedIcon,+                       GI.Gio.Objects.FileEnumerator,+                       GI.Gio.Objects.FileIOStream,+                       GI.Gio.Objects.FileIcon,+                       GI.Gio.Objects.FileInfo,+                       GI.Gio.Objects.FileInputStream,+                       GI.Gio.Objects.FileMonitor,+                       GI.Gio.Objects.FileOutputStream,+                       GI.Gio.Objects.FilenameCompleter,+                       GI.Gio.Objects.FilterInputStream,+                       GI.Gio.Objects.FilterOutputStream,+                       GI.Gio.Objects.IOStream,+                       GI.Gio.Objects.InetAddress,+                       GI.Gio.Objects.InetAddressMask,+                       GI.Gio.Objects.InetSocketAddress,+                       GI.Gio.Objects.InputStream,+                       GI.Gio.Objects.ListStore,+                       GI.Gio.Objects.MemoryInputStream,+                       GI.Gio.Objects.MemoryOutputStream,+                       GI.Gio.Objects.Menu,+                       GI.Gio.Objects.MenuAttributeIter,+                       GI.Gio.Objects.MenuItem,+                       GI.Gio.Objects.MenuLinkIter,+                       GI.Gio.Objects.MenuModel,+                       GI.Gio.Objects.MountOperation,+                       GI.Gio.Objects.NativeVolumeMonitor,+                       GI.Gio.Objects.NetworkAddress,+                       GI.Gio.Objects.NetworkService,+                       GI.Gio.Objects.Notification,+                       GI.Gio.Objects.OutputStream,+                       GI.Gio.Objects.Permission,+                       GI.Gio.Objects.PropertyAction,+                       GI.Gio.Objects.ProxyAddress,+                       GI.Gio.Objects.ProxyAddressEnumerator,+                       GI.Gio.Objects.Resolver,+                       GI.Gio.Objects.Settings,+                       GI.Gio.Objects.SettingsBackend,+                       GI.Gio.Objects.SimpleAction,+                       GI.Gio.Objects.SimpleActionGroup,+                       GI.Gio.Objects.SimpleAsyncResult,+                       GI.Gio.Objects.SimpleIOStream,+                       GI.Gio.Objects.SimplePermission,+                       GI.Gio.Objects.SimpleProxyResolver,+                       GI.Gio.Objects.Socket,+                       GI.Gio.Objects.SocketAddress,+                       GI.Gio.Objects.SocketAddressEnumerator,+                       GI.Gio.Objects.SocketClient,+                       GI.Gio.Objects.SocketConnection,+                       GI.Gio.Objects.SocketControlMessage,+                       GI.Gio.Objects.SocketListener,+                       GI.Gio.Objects.SocketService,+                       GI.Gio.Objects.Subprocess,+                       GI.Gio.Objects.SubprocessLauncher,+                       GI.Gio.Objects.Task,+                       GI.Gio.Objects.TcpConnection,+                       GI.Gio.Objects.TcpWrapperConnection,+                       GI.Gio.Objects.TestDBus,+                       GI.Gio.Objects.ThemedIcon,+                       GI.Gio.Objects.ThreadedSocketService,+                       GI.Gio.Objects.TlsCertificate,+                       GI.Gio.Objects.TlsConnection,+                       GI.Gio.Objects.TlsDatabase,+                       GI.Gio.Objects.TlsInteraction,+                       GI.Gio.Objects.TlsPassword,+                       GI.Gio.Objects.UnixConnection,+                       GI.Gio.Objects.UnixCredentialsMessage,+                       GI.Gio.Objects.UnixFDList,+                       GI.Gio.Objects.UnixFDMessage,+                       GI.Gio.Objects.UnixInputStream,+                       GI.Gio.Objects.UnixMountMonitor,+                       GI.Gio.Objects.UnixOutputStream,+                       GI.Gio.Objects.UnixSocketAddress,+                       GI.Gio.Objects.Vfs,+                       GI.Gio.Objects.VolumeMonitor,+                       GI.Gio.Objects.ZlibCompressor,+                       GI.Gio.Objects.ZlibDecompressor,+                       GI.Gio.Structs,+                       GI.Gio.Structs.ActionEntry,+                       GI.Gio.Structs.DBusAnnotationInfo,+                       GI.Gio.Structs.DBusArgInfo,+                       GI.Gio.Structs.DBusErrorEntry,+                       GI.Gio.Structs.DBusInterfaceInfo,+                       GI.Gio.Structs.DBusInterfaceVTable,+                       GI.Gio.Structs.DBusMethodInfo,+                       GI.Gio.Structs.DBusNodeInfo,+                       GI.Gio.Structs.DBusPropertyInfo,+                       GI.Gio.Structs.DBusSignalInfo,+                       GI.Gio.Structs.DBusSubtreeVTable,+                       GI.Gio.Structs.FileAttributeInfo,+                       GI.Gio.Structs.FileAttributeInfoList,+                       GI.Gio.Structs.FileAttributeMatcher,+                       GI.Gio.Structs.IOExtension,+                       GI.Gio.Structs.IOExtensionPoint,+                       GI.Gio.Structs.IOModuleScope,+                       GI.Gio.Structs.IOSchedulerJob,+                       GI.Gio.Structs.IOStreamAdapter,+                       GI.Gio.Structs.InputMessage,+                       GI.Gio.Structs.InputVector,+                       GI.Gio.Structs.NativeSocketAddress,+                       GI.Gio.Structs.OutputMessage,+                       GI.Gio.Structs.OutputVector,+                       GI.Gio.Structs.Resource,+                       GI.Gio.Structs.SettingsSchema,+                       GI.Gio.Structs.SettingsSchemaKey,+                       GI.Gio.Structs.SettingsSchemaSource,+                       GI.Gio.Structs.SrvTarget,+                       GI.Gio.Structs.StaticResource,+                       GI.Gio.Structs.UnixMountEntry,+                       GI.Gio.Structs.UnixMountPoint++      autogen-modules: GI.Gio,                        GI.Gio.Callbacks,                        GI.Gio.Constants,                        GI.Gio.Enums,